summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--doc/ref/api-macros.texi12
-rw-r--r--module/ice-9/boot-9.scm36
-rw-r--r--module/ice-9/psyntax-pp.scm24583
-rw-r--r--module/ice-9/psyntax.scm82
4 files changed, 12375 insertions, 12338 deletions
diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index 2b6f15a54..f6a03bc32 100644
--- a/doc/ref/api-macros.texi
+++ b/doc/ref/api-macros.texi
@@ -706,6 +706,18 @@ 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.
+
+@example
+(use-modules (system syntax))
+@end example
+
@deffn {Scheme Procedure} syntax-module id
Return the name of the module whose source contains the identifier
@var{id}.
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 3914ff35f..39be83d47 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -385,13 +385,10 @@ If there is no handler at all, Guile prints an error and then exits."
(define datum->syntax #f)
(define syntax->datum #f)
(define syntax-source #f)
-(define syntax-module #f)
(define identifier? #f)
(define generate-temporaries #f)
(define bound-identifier=? #f)
(define free-identifier=? #f)
-(define syntax-local-binding #f)
-(define syntax-locally-bound-identifiers #f)
;; $sc-dispatch is an implementation detail of psyntax. It is used by
;; expanded macros, to dispatch an input against a set of patterns.
@@ -3863,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 daded1ab6..d616c7fb7 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1553 +1,1541 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((#{gen-label _hoQGWMnyQPAh3k2jhWHTD}# (if #f #f))
- (#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#
+(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f))
+ (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
(if #f #f)))
(letrec*
- ((#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMnv}#
- #{mod _hoQGWMnyQPAh3k2jhWMnw}#)
- (primitive-eval #{x _hoQGWMnyQPAh3k2jhWMnv}#)))
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- (lambda (#{symbol _hoQGWMnyQPAh3k2jhWJ@F}#
- #{module _hoQGWMnyQPAh3k2jhWJ@G}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWJ@G}#)
+ (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#)
(current-module)
#f)
(warn "module system is booted, we should have a module"
- #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWJ@H}#
+ #{symbol -ANAU$bmvAmthP7L7xwp7A}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwp7C}#
(module-variable
- (if #{module _hoQGWMnyQPAh3k2jhWJ@G}#
+ (if #{module -ANAU$bmvAmthP7L7xwp7B}#
(resolve-module
- (cdr #{module _hoQGWMnyQPAh3k2jhWJ@G}#))
+ (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#))
(current-module))
- #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#)))
- (if #{v _hoQGWMnyQPAh3k2jhWJ@H}#
- (if (variable-bound? #{v _hoQGWMnyQPAh3k2jhWJ@H}#)
- (let ((#{val _hoQGWMnyQPAh3k2jhWJ@J}#
- (variable-ref #{v _hoQGWMnyQPAh3k2jhWJ@H}#)))
- (if (macro? #{val _hoQGWMnyQPAh3k2jhWJ@J}#)
- (if (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#)
- (cons (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#)
- (macro-binding #{val _hoQGWMnyQPAh3k2jhWJ@J}#))
+ #{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! _hoQGWMnyQPAh3k2jhWHSe}#
- (lambda (#{name _hoQGWMnyQPAh3k2jhWKDe}#
- #{val _hoQGWMnyQPAh3k2jhWKDf}#)
- (if (if (struct? #{val _hoQGWMnyQPAh3k2jhWKDf}#)
- (eq? (struct-vtable #{val _hoQGWMnyQPAh3k2jhWKDf}#)
+ (#{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
+ (lambda (#{name -ANAU$bmvAmthP7L7xwp@Z}#
+ #{val -ANAU$bmvAmthP7L7xwp@a}#)
+ (if (if (struct? #{val -ANAU$bmvAmthP7L7xwp@a}#)
+ (eq? (struct-vtable #{val -ANAU$bmvAmthP7L7xwp@a}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _hoQGWMnyQPAh3k2jhWKDm}#
- (struct-ref #{val _hoQGWMnyQPAh3k2jhWKDf}# 1)))
- (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKDm}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWKDr}#
- (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWKDe}#)
- #{meta _hoQGWMnyQPAh3k2jhWKDm}#)))
+ (let ((#{meta -ANAU$bmvAmthP7L7xwp@h}#
+ (struct-ref #{val -ANAU$bmvAmthP7L7xwp@a}# 1)))
+ (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp@h}#))
+ (let ((#{v -ANAU$bmvAmthP7L7xwp@m}#
+ (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp@Z}#)
+ #{meta -ANAU$bmvAmthP7L7xwp@h}#)))
(struct-set!
- #{val _hoQGWMnyQPAh3k2jhWKDf}#
+ #{val -ANAU$bmvAmthP7L7xwp@a}#
1
- #{v _hoQGWMnyQPAh3k2jhWKDr}#)))))))
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@L}#
- #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#)
+ #{v -ANAU$bmvAmthP7L7xwp@m}#)))))))
+ (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwp7H}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source _hoQGWMnyQPAh3k2jhWJ@L}#
- #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#)))
- (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@T}#
- #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}#
- #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}#
- #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#)
+ #{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 _hoQGWMnyQPAh3k2jhWJ@T}#
- #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}#
- #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}#
- #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#)))
- (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@d}#
- #{fluids _hoQGWMnyQPAh3k2jhWJ@e}#
- #{vals _hoQGWMnyQPAh3k2jhWJ@f}#
- #{body _hoQGWMnyQPAh3k2jhWJ@g}#)
+ #{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 _hoQGWMnyQPAh3k2jhWJ@d}#
- #{fluids _hoQGWMnyQPAh3k2jhWJ@e}#
- #{vals _hoQGWMnyQPAh3k2jhWJ@f}#
- #{body _hoQGWMnyQPAh3k2jhWJ@g}#)))
- (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}#
- (lambda (#{type _hoQGWMnyQPAh3k2jhWMnx}#
- #{source _hoQGWMnyQPAh3k2jhWMny}#
- #{name _hoQGWMnyQPAh3k2jhWMnz}#
- #{var _hoQGWMnyQPAh3k2jhWMn0}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMny}#
- #{name _hoQGWMnyQPAh3k2jhWMnz}#
- #{var _hoQGWMnyQPAh3k2jhWMn0}#)))
- (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@n}#
- #{name _hoQGWMnyQPAh3k2jhWJ@o}#
- #{var _hoQGWMnyQPAh3k2jhWJ@p}#
- #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)
+ #{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 _hoQGWMnyQPAh3k2jhWJ@q}#)
- (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _hoQGWMnyQPAh3k2jhWJ@6}#
- (struct-ref #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1)))
- (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWJ@6}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWKAB}#
- (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWJ@o}#)
- #{meta _hoQGWMnyQPAh3k2jhWJ@6}#)))
+ (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 _hoQGWMnyQPAh3k2jhWJ@q}#
+ #{exp -ANAU$bmvAmthP7L7xwp7l}#
1
- #{v _hoQGWMnyQPAh3k2jhWKAB}#)))))
+ #{v -ANAU$bmvAmthP7L7xwp78}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source _hoQGWMnyQPAh3k2jhWJ@n}#
- #{name _hoQGWMnyQPAh3k2jhWJ@o}#
- #{var _hoQGWMnyQPAh3k2jhWJ@p}#
- #{exp _hoQGWMnyQPAh3k2jhWJ@q}#))))
- (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWMn6}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#
- #{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
- #{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#)
- (if (not #{mod _hoQGWMnyQPAh3k2jhWMn6}#)
- (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#)
- (let ((#{kind _hoQGWMnyQPAh3k2jhWMn$}#
- (car #{mod _hoQGWMnyQPAh3k2jhWMn6}#))
- (#{mod _hoQGWMnyQPAh3k2jhWMn@}#
- (cdr #{mod _hoQGWMnyQPAh3k2jhWMn6}#)))
- (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'public)
- (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
- #{mod _hoQGWMnyQPAh3k2jhWMn@}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#
+ #{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 _hoQGWMnyQPAh3k2jhWMn$}# 'private)
+ (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private)
(if (not (equal?
- #{mod _hoQGWMnyQPAh3k2jhWMn@}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
(module-name (current-module))))
- (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
- #{mod _hoQGWMnyQPAh3k2jhWMn@}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#
+ (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
#f)
- (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#))
- (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'bare)
- (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#)
- (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# '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 _hoQGWMnyQPAh3k2jhWMn@}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod _hoQGWMnyQPAh3k2jhWMn@}#)
- #{var _hoQGWMnyQPAh3k2jhWMn7}#)
+ (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#)
+ #{var -ANAU$bmvAmthP7L7xwsuc}#)
#f)
- (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}#
- #{mod _hoQGWMnyQPAh3k2jhWMn@}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#
+ (#{modref-cont -ANAU$bmvAmthP7L7xwsud}#
+ #{mod -ANAU$bmvAmthP7L7xwsug}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#
#f)
- (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#
- #{var _hoQGWMnyQPAh3k2jhWMn7}#))
+ (#{bare-cont -ANAU$bmvAmthP7L7xwsue}#
+ #{var -ANAU$bmvAmthP7L7xwsuc}#))
(syntax-violation
#f
"bad module kind"
- #{var _hoQGWMnyQPAh3k2jhWMn7}#
- #{mod _hoQGWMnyQPAh3k2jhWMn@}#)))))))))
- (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWMoO}#
- #{var _hoQGWMnyQPAh3k2jhWMoP}#
- #{mod _hoQGWMnyQPAh3k2jhWMoQ}#)
- (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
- #{mod _hoQGWMnyQPAh3k2jhWMoQ}#
- #{var _hoQGWMnyQPAh3k2jhWMoP}#
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWMoT}#
- #{var _hoQGWMnyQPAh3k2jhWMoU}#
- #{public? _hoQGWMnyQPAh3k2jhWMoV}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMoO}#
- #{mod _hoQGWMnyQPAh3k2jhWMoT}#
- #{var _hoQGWMnyQPAh3k2jhWMoU}#
- #{public? _hoQGWMnyQPAh3k2jhWMoV}#))
- (lambda (#{var _hoQGWMnyQPAh3k2jhWMod}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMoO}#
- #{var _hoQGWMnyQPAh3k2jhWMod}#)))))
- (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWKAK}#
- #{var _hoQGWMnyQPAh3k2jhWKAL}#
- #{exp _hoQGWMnyQPAh3k2jhWKAM}#
- #{mod _hoQGWMnyQPAh3k2jhWKAN}#)
+ #{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 _hoQGWMnyQPAh3k2jhWKAM}#)
- (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWKAM}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _hoQGWMnyQPAh3k2jhWKAd}#
- (struct-ref #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1)))
- (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKAd}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWKAk}#
- (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWKAL}#)
- #{meta _hoQGWMnyQPAh3k2jhWKAd}#)))
+ (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 _hoQGWMnyQPAh3k2jhWKAM}#
+ #{exp -ANAU$bmvAmthP7L7xwp8H}#
1
- #{v _hoQGWMnyQPAh3k2jhWKAk}#)))))
- (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
- #{mod _hoQGWMnyQPAh3k2jhWKAN}#
- #{var _hoQGWMnyQPAh3k2jhWKAL}#
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWKAp}#
- #{var _hoQGWMnyQPAh3k2jhWKAq}#
- #{public? _hoQGWMnyQPAh3k2jhWKAr}#)
+ #{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 _hoQGWMnyQPAh3k2jhWKAK}#
- #{mod _hoQGWMnyQPAh3k2jhWKAp}#
- #{var _hoQGWMnyQPAh3k2jhWKAq}#
- #{public? _hoQGWMnyQPAh3k2jhWKAr}#
- #{exp _hoQGWMnyQPAh3k2jhWKAM}#))
- (lambda (#{var _hoQGWMnyQPAh3k2jhWKAz}#)
+ #{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 _hoQGWMnyQPAh3k2jhWKAK}#
- #{var _hoQGWMnyQPAh3k2jhWKAz}#
- #{exp _hoQGWMnyQPAh3k2jhWKAM}#))))))
- (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}#
- (lambda (#{source _hoQGWMnyQPAh3k2jhWMoj}#
- #{var _hoQGWMnyQPAh3k2jhWMok}#
- #{exp _hoQGWMnyQPAh3k2jhWMol}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMol}#)
- (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWMol}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _hoQGWMnyQPAh3k2jhWMo1}#
- (struct-ref #{exp _hoQGWMnyQPAh3k2jhWMol}# 1)))
- (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWMo1}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWMo8}#
- (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWMok}#)
- #{meta _hoQGWMnyQPAh3k2jhWMo1}#)))
+ (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 _hoQGWMnyQPAh3k2jhWMol}#
+ #{exp -ANAU$bmvAmthP7L7xwsvG}#
1
- #{v _hoQGWMnyQPAh3k2jhWMo8}#)))))
+ #{v -ANAU$bmvAmthP7L7xwsvd}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source _hoQGWMnyQPAh3k2jhWMoj}#
- #{var _hoQGWMnyQPAh3k2jhWMok}#
- #{exp _hoQGWMnyQPAh3k2jhWMol}#))))
- (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWKA5}#
- #{req _hoQGWMnyQPAh3k2jhWKA6}#
- #{rest _hoQGWMnyQPAh3k2jhWKA7}#
- #{vars _hoQGWMnyQPAh3k2jhWKA8}#
- #{meta _hoQGWMnyQPAh3k2jhWKA9}#
- #{exp _hoQGWMnyQPAh3k2jhWKA$}#)
- (let ((#{body _hoQGWMnyQPAh3k2jhWKBE}#
+ #{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 -ANAU$bmvAmthP7L7xwp8@}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src _hoQGWMnyQPAh3k2jhWKA5}#
- #{req _hoQGWMnyQPAh3k2jhWKA6}#
+ #{src -ANAU$bmvAmthP7L7xwp80}#
+ #{req -ANAU$bmvAmthP7L7xwp81}#
#f
- #{rest _hoQGWMnyQPAh3k2jhWKA7}#
+ #{rest -ANAU$bmvAmthP7L7xwp82}#
#f
'()
- #{vars _hoQGWMnyQPAh3k2jhWKA8}#
- #{exp _hoQGWMnyQPAh3k2jhWKA$}#
+ #{vars -ANAU$bmvAmthP7L7xwp83}#
+ #{exp -ANAU$bmvAmthP7L7xwp85}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src _hoQGWMnyQPAh3k2jhWKA5}#
- #{meta _hoQGWMnyQPAh3k2jhWKA9}#
- #{body _hoQGWMnyQPAh3k2jhWKBE}#))))
- (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWMpE}#
- #{exps _hoQGWMnyQPAh3k2jhWMpF}#)
- (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWMpF}#))
- (car #{exps _hoQGWMnyQPAh3k2jhWMpF}#)
+ #{src -ANAU$bmvAmthP7L7xwp80}#
+ #{meta -ANAU$bmvAmthP7L7xwp84}#
+ #{body -ANAU$bmvAmthP7L7xwp8@}#))))
+ (#{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 _hoQGWMnyQPAh3k2jhWMpE}#
- #{exps _hoQGWMnyQPAh3k2jhWMpF}#))))
- (#{build-let _hoQGWMnyQPAh3k2jhWHSv}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWKBQ}#
- #{ids _hoQGWMnyQPAh3k2jhWKBR}#
- #{vars _hoQGWMnyQPAh3k2jhWKBS}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#
- #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#)
+ #{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! _hoQGWMnyQPAh3k2jhWHSe}#
- #{ids _hoQGWMnyQPAh3k2jhWKBR}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#)
- (if (null? #{vars _hoQGWMnyQPAh3k2jhWKBS}#)
- #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#
+ #{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 _hoQGWMnyQPAh3k2jhWKBQ}#
- #{ids _hoQGWMnyQPAh3k2jhWKBR}#
- #{vars _hoQGWMnyQPAh3k2jhWKBS}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#
- #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#)))))
- (#{build-named-let _hoQGWMnyQPAh3k2jhWHSw}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWKBs}#
- #{ids _hoQGWMnyQPAh3k2jhWKBt}#
- #{vars _hoQGWMnyQPAh3k2jhWKBu}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#
- #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#)
- (let ((#{f _hoQGWMnyQPAh3k2jhWKBx}#
- (car #{vars _hoQGWMnyQPAh3k2jhWKBu}#))
- (#{f-name _hoQGWMnyQPAh3k2jhWKBy}#
- (car #{ids _hoQGWMnyQPAh3k2jhWKBt}#))
- (#{vars _hoQGWMnyQPAh3k2jhWKBz}#
- (cdr #{vars _hoQGWMnyQPAh3k2jhWKBu}#))
- (#{ids _hoQGWMnyQPAh3k2jhWKB0}#
- (cdr #{ids _hoQGWMnyQPAh3k2jhWKBt}#)))
- (let ((#{proc _hoQGWMnyQPAh3k2jhWKB1}#
- (let ((#{body _hoQGWMnyQPAh3k2jhWKCJ}#
+ #{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 _hoQGWMnyQPAh3k2jhWKBs}#
- #{ids _hoQGWMnyQPAh3k2jhWKB0}#
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{ids -ANAU$bmvAmthP7L7xwp9v}#
#f
#f
#f
'()
- #{vars _hoQGWMnyQPAh3k2jhWKBz}#
- #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#
+ #{vars -ANAU$bmvAmthP7L7xwp9u}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp9r}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src _hoQGWMnyQPAh3k2jhWKBs}#
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
'()
- #{body _hoQGWMnyQPAh3k2jhWKCJ}#))))
+ #{body -ANAU$bmvAmthP7L7xwp$E}#))))
(begin
- (if (if (struct? #{proc _hoQGWMnyQPAh3k2jhWKB1}#)
- (eq? (struct-vtable #{proc _hoQGWMnyQPAh3k2jhWKB1}#)
+ (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#)
+ (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _hoQGWMnyQPAh3k2jhWKCh}#
- (struct-ref #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1)))
- (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKCh}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWKCo}#
+ (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 _hoQGWMnyQPAh3k2jhWKBy}#)
- #{meta _hoQGWMnyQPAh3k2jhWKCh}#)))
+ #{f-name -ANAU$bmvAmthP7L7xwp9t}#)
+ #{meta -ANAU$bmvAmthP7L7xwp$c}#)))
(struct-set!
- #{proc _hoQGWMnyQPAh3k2jhWKB1}#
+ #{proc -ANAU$bmvAmthP7L7xwp9w}#
1
- #{v _hoQGWMnyQPAh3k2jhWKCo}#)))))
+ #{v -ANAU$bmvAmthP7L7xwp$j}#)))))
(for-each
- #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}#
- #{ids _hoQGWMnyQPAh3k2jhWKB0}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#)
- (let ((#{names _hoQGWMnyQPAh3k2jhWKDA}#
- (list #{f-name _hoQGWMnyQPAh3k2jhWKBy}#))
- (#{gensyms _hoQGWMnyQPAh3k2jhWKDB}#
- (list #{f _hoQGWMnyQPAh3k2jhWKBx}#))
- (#{vals _hoQGWMnyQPAh3k2jhWKDC}#
- (list #{proc _hoQGWMnyQPAh3k2jhWKB1}#))
- (#{body _hoQGWMnyQPAh3k2jhWKDD}#
- (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWKDH}#
+ #{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 -ANAU$bmvAmthP7L7xwp@C}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src _hoQGWMnyQPAh3k2jhWKBs}#
- #{f-name _hoQGWMnyQPAh3k2jhWKBy}#
- #{f _hoQGWMnyQPAh3k2jhWKBx}#)))
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{f-name -ANAU$bmvAmthP7L7xwp9t}#
+ #{f -ANAU$bmvAmthP7L7xwp9s}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src _hoQGWMnyQPAh3k2jhWKBs}#
- #{fun-exp _hoQGWMnyQPAh3k2jhWKDH}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#))))
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwp@C}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp9q}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src _hoQGWMnyQPAh3k2jhWKBs}#
+ #{src -ANAU$bmvAmthP7L7xwp9n}#
#f
- #{names _hoQGWMnyQPAh3k2jhWKDA}#
- #{gensyms _hoQGWMnyQPAh3k2jhWKDB}#
- #{vals _hoQGWMnyQPAh3k2jhWKDC}#
- #{body _hoQGWMnyQPAh3k2jhWKDD}#)))))))
- (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWKDX}#
- #{in-order? _hoQGWMnyQPAh3k2jhWKDY}#
- #{ids _hoQGWMnyQPAh3k2jhWKDZ}#
- #{vars _hoQGWMnyQPAh3k2jhWKDa}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#
- #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#)
- (if (null? #{vars _hoQGWMnyQPAh3k2jhWKDa}#)
- #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#
+ #{names -ANAU$bmvAmthP7L7xwp$7}#
+ #{gensyms -ANAU$bmvAmthP7L7xwp$8}#
+ #{vals -ANAU$bmvAmthP7L7xwp$9}#
+ #{body -ANAU$bmvAmthP7L7xwp$$}#)))))))
+ (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}#
+ (lambda (#{src -ANAU$bmvAmthP7L7xwp@S}#
+ #{in-order? -ANAU$bmvAmthP7L7xwp@T}#
+ #{ids -ANAU$bmvAmthP7L7xwp@U}#
+ #{vars -ANAU$bmvAmthP7L7xwp@V}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp@W}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp@X}#)
+ (if (null? #{vars -ANAU$bmvAmthP7L7xwp@V}#)
+ #{body-exp -ANAU$bmvAmthP7L7xwp@X}#
(begin
(for-each
- #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}#
- #{ids _hoQGWMnyQPAh3k2jhWKDZ}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#)
+ #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}#
+ #{ids -ANAU$bmvAmthP7L7xwp@U}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp@W}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src _hoQGWMnyQPAh3k2jhWKDX}#
- #{in-order? _hoQGWMnyQPAh3k2jhWKDY}#
- #{ids _hoQGWMnyQPAh3k2jhWKDZ}#
- #{vars _hoQGWMnyQPAh3k2jhWKDa}#
- #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#
- #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#)))))
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWKD2}#)
- (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKD2}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKD2}#)
+ #{src -ANAU$bmvAmthP7L7xwp@S}#
+ #{in-order? -ANAU$bmvAmthP7L7xwp@T}#
+ #{ids -ANAU$bmvAmthP7L7xwp@U}#
+ #{vars -ANAU$bmvAmthP7L7xwp@V}#
+ #{val-exps -ANAU$bmvAmthP7L7xwp@W}#
+ #{body-exp -ANAU$bmvAmthP7L7xwp@X}#)))))
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwp@x}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwp@x}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwp@x}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 0)
'syntax-object)
#f)
#f)
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 1))
- (if (pair? #{x _hoQGWMnyQPAh3k2jhWKD2}#)
- (let ((#{props _hoQGWMnyQPAh3k2jhWKEF}#
- (source-properties #{x _hoQGWMnyQPAh3k2jhWKD2}#)))
- (if (pair? #{props _hoQGWMnyQPAh3k2jhWKEF}#)
- #{props _hoQGWMnyQPAh3k2jhWKEF}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 1))
+ (if (pair? #{x -ANAU$bmvAmthP7L7xwp@x}#)
+ (let ((#{props -ANAU$bmvAmthP7L7xwqAA}#
+ (source-properties #{x -ANAU$bmvAmthP7L7xwp@x}#)))
+ (if (pair? #{props -ANAU$bmvAmthP7L7xwqAA}#)
+ #{props -ANAU$bmvAmthP7L7xwqAA}#
#f))
#f))))
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEH}#
- #{bindings _hoQGWMnyQPAh3k2jhWKEI}#
- #{r _hoQGWMnyQPAh3k2jhWKEJ}#)
- (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEH}#)
- #{r _hoQGWMnyQPAh3k2jhWKEJ}#
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- (cdr #{labels _hoQGWMnyQPAh3k2jhWKEH}#)
- (cdr #{bindings _hoQGWMnyQPAh3k2jhWKEI}#)
- (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEH}#)
- (car #{bindings _hoQGWMnyQPAh3k2jhWKEI}#))
- #{r _hoQGWMnyQPAh3k2jhWKEJ}#)))))
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEK}#
- #{vars _hoQGWMnyQPAh3k2jhWKEL}#
- #{r _hoQGWMnyQPAh3k2jhWKEM}#)
- (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEK}#)
- #{r _hoQGWMnyQPAh3k2jhWKEM}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- (cdr #{labels _hoQGWMnyQPAh3k2jhWKEK}#)
- (cdr #{vars _hoQGWMnyQPAh3k2jhWKEL}#)
- (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEK}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWKEL}#)))
- #{r _hoQGWMnyQPAh3k2jhWKEM}#)))))
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- (lambda (#{r _hoQGWMnyQPAh3k2jhWKEN}#)
- (if (null? #{r _hoQGWMnyQPAh3k2jhWKEN}#)
+ (car #{vars -ANAU$bmvAmthP7L7xwqAG}#)))
+ #{r -ANAU$bmvAmthP7L7xwqAH}#)))))
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#)
+ (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#)
'()
- (let ((#{a _hoQGWMnyQPAh3k2jhWKEO}#
- (car #{r _hoQGWMnyQPAh3k2jhWKEN}#)))
- (if (eq? (car (cdr #{a _hoQGWMnyQPAh3k2jhWKEO}#))
+ (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}#
+ (car #{r -ANAU$bmvAmthP7L7xwqAI}#)))
+ (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#))
'macro)
- (cons #{a _hoQGWMnyQPAh3k2jhWKEO}#
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#)))
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#)))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
- (lambda (#{type _hoQGWMnyQPAh3k2jhWKEQ}#
- #{sym _hoQGWMnyQPAh3k2jhWKER}#
- #{val _hoQGWMnyQPAh3k2jhWKES}#)
+ (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 _hoQGWMnyQPAh3k2jhWKER}#
+ #{sym -ANAU$bmvAmthP7L7xwqAM}#
(make-syntax-transformer
- #{sym _hoQGWMnyQPAh3k2jhWKER}#
- #{type _hoQGWMnyQPAh3k2jhWKEQ}#
- #{val _hoQGWMnyQPAh3k2jhWKES}#))))
- (#{id? _hoQGWMnyQPAh3k2jhWHTB}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWIlN}#)
- (if (symbol? #{x _hoQGWMnyQPAh3k2jhWIlN}#)
+ #{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 _hoQGWMnyQPAh3k2jhWIlN}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIlN}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 1))
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1))
#f))))
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- (lambda (#{ls _hoQGWMnyQPAh3k2jhWKEf}#)
- (if (null? #{ls _hoQGWMnyQPAh3k2jhWKEf}#)
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#)
+ (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#)
'()
- (cons (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- (cdr #{ls _hoQGWMnyQPAh3k2jhWKEf}#))))))
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEg}#
- #{labels _hoQGWMnyQPAh3k2jhWKEh}#
- #{w _hoQGWMnyQPAh3k2jhWKEi}#)
- (if (null? #{ids _hoQGWMnyQPAh3k2jhWKEg}#)
- #{w _hoQGWMnyQPAh3k2jhWKEi}#
- (cons (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)
- (cons (let ((#{labelvec _hoQGWMnyQPAh3k2jhWKEj}#
+ (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 _hoQGWMnyQPAh3k2jhWKEh}#)))
- (let ((#{n _hoQGWMnyQPAh3k2jhWKEk}#
+ #{labels -ANAU$bmvAmthP7L7xwqAc}#)))
+ (let ((#{n -ANAU$bmvAmthP7L7xwqAf}#
(vector-length
- #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#)))
- (let ((#{symnamevec _hoQGWMnyQPAh3k2jhWKEl}#
- (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#))
- (#{marksvec _hoQGWMnyQPAh3k2jhWKEm}#
- (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#)))
+ #{labelvec -ANAU$bmvAmthP7L7xwqAe}#)))
+ (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
+ (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))
+ (#{marksvec -ANAU$bmvAmthP7L7xwqAh}#
+ (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)))
(begin
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWKEn}#
- (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEq}#
- #{i _hoQGWMnyQPAh3k2jhWKEr}#)
- (if (not (null? #{ids _hoQGWMnyQPAh3k2jhWKEq}#))
+ ((#{f -ANAU$bmvAmthP7L7xwqAi}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}#
+ #{i -ANAU$bmvAmthP7L7xwqAm}#)
+ (if (not (null? #{ids -ANAU$bmvAmthP7L7xwqAl}#))
(call-with-values
(lambda ()
- (let ((#{x _hoQGWMnyQPAh3k2jhWKEu}#
- (car #{ids _hoQGWMnyQPAh3k2jhWKEq}#)))
+ (let ((#{x -ANAU$bmvAmthP7L7xwqAp}#
+ (car #{ids -ANAU$bmvAmthP7L7xwqAl}#)))
(if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWKEu}#)
+ #{x -ANAU$bmvAmthP7L7xwqAp}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWKEu}#)
+ #{x -ANAU$bmvAmthP7L7xwqAp}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWKEu}#
+ #{x -ANAU$bmvAmthP7L7xwqAp}#
0)
'syntax-object)
#f)
#f)
(values
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWKEu}#
+ #{x -ANAU$bmvAmthP7L7xwqAp}#
1)
- (let ((#{m1 _hoQGWMnyQPAh3k2jhWKE$}#
- (car #{w _hoQGWMnyQPAh3k2jhWKEi}#))
- (#{m2 _hoQGWMnyQPAh3k2jhWKE@}#
+ (let ((#{m1 -ANAU$bmvAmthP7L7xwqA5}#
+ (car #{w -ANAU$bmvAmthP7L7xwqAd}#))
+ (#{m2 -ANAU$bmvAmthP7L7xwqA6}#
(car (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWKEu}#
+ #{x -ANAU$bmvAmthP7L7xwqAp}#
2))))
- (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKE@}#)
- #{m1 _hoQGWMnyQPAh3k2jhWKE$}#
+ (if (null? #{m2 -ANAU$bmvAmthP7L7xwqA6}#)
+ #{m1 -ANAU$bmvAmthP7L7xwqA5}#
(append
- #{m1 _hoQGWMnyQPAh3k2jhWKE$}#
- #{m2 _hoQGWMnyQPAh3k2jhWKE@}#))))
+ #{m1 -ANAU$bmvAmthP7L7xwqA5}#
+ #{m2 -ANAU$bmvAmthP7L7xwqA6}#))))
(values
- #{x _hoQGWMnyQPAh3k2jhWKEu}#
- (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)))))
- (lambda (#{symname _hoQGWMnyQPAh3k2jhWKFT}#
- #{marks _hoQGWMnyQPAh3k2jhWKFU}#)
+ #{x -ANAU$bmvAmthP7L7xwqAp}#
+ (car #{w -ANAU$bmvAmthP7L7xwqAd}#)))))
+ (lambda (#{symname -ANAU$bmvAmthP7L7xwqBO}#
+ #{marks -ANAU$bmvAmthP7L7xwqBP}#)
(begin
(vector-set!
- #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}#
- #{i _hoQGWMnyQPAh3k2jhWKEr}#
- #{symname _hoQGWMnyQPAh3k2jhWKFT}#)
+ #{symnamevec -ANAU$bmvAmthP7L7xwqAg}#
+ #{i -ANAU$bmvAmthP7L7xwqAm}#
+ #{symname -ANAU$bmvAmthP7L7xwqBO}#)
(vector-set!
- #{marksvec _hoQGWMnyQPAh3k2jhWKEm}#
- #{i _hoQGWMnyQPAh3k2jhWKEr}#
- #{marks _hoQGWMnyQPAh3k2jhWKFU}#)
- (#{f _hoQGWMnyQPAh3k2jhWKEn}#
- (cdr #{ids _hoQGWMnyQPAh3k2jhWKEq}#)
- (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKEr}#)))))))))
- (#{f _hoQGWMnyQPAh3k2jhWKEn}#
- #{ids _hoQGWMnyQPAh3k2jhWKEg}#
+ #{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 _hoQGWMnyQPAh3k2jhWKEl}#
- #{marksvec _hoQGWMnyQPAh3k2jhWKEm}#
- #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#)))))
- (cdr #{w _hoQGWMnyQPAh3k2jhWKEi}#))))))
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- (lambda (#{w1 _hoQGWMnyQPAh3k2jhWKFd}#
- #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)
- (let ((#{m1 _hoQGWMnyQPAh3k2jhWKFf}#
- (car #{w1 _hoQGWMnyQPAh3k2jhWKFd}#))
- (#{s1 _hoQGWMnyQPAh3k2jhWKFg}#
- (cdr #{w1 _hoQGWMnyQPAh3k2jhWKFd}#)))
- (if (null? #{m1 _hoQGWMnyQPAh3k2jhWKFf}#)
- (if (null? #{s1 _hoQGWMnyQPAh3k2jhWKFg}#)
- #{w2 _hoQGWMnyQPAh3k2jhWKFe}#
- (cons (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)
- (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFn}#
- (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)))
- (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFn}#)
- #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
+ #{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 _hoQGWMnyQPAh3k2jhWKFg}#
- #{m2 _hoQGWMnyQPAh3k2jhWKFn}#)))))
- (cons (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFw}#
- (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)))
- (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFw}#)
- #{m1 _hoQGWMnyQPAh3k2jhWKFf}#
+ #{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 _hoQGWMnyQPAh3k2jhWKFf}#
- #{m2 _hoQGWMnyQPAh3k2jhWKFw}#)))
- (let ((#{m2 _hoQGWMnyQPAh3k2jhWKF5}#
- (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#)))
- (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKF5}#)
- #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
+ #{m1 -ANAU$bmvAmthP7L7xwqBa}#
+ #{m2 -ANAU$bmvAmthP7L7xwqBr}#)))
+ (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}#
+ (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#)))
+ (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#)
+ #{s1 -ANAU$bmvAmthP7L7xwqBb}#
(append
- #{s1 _hoQGWMnyQPAh3k2jhWKFg}#
- #{m2 _hoQGWMnyQPAh3k2jhWKF5}#))))))))
- (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWKF$}#
- #{y _hoQGWMnyQPAh3k2jhWKF@}#)
- (if (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}#
- #{y _hoQGWMnyQPAh3k2jhWKF@}#)
- (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}#
- #{y _hoQGWMnyQPAh3k2jhWKF@}#)
- (if (not (null? #{x _hoQGWMnyQPAh3k2jhWKF$}#))
- (if (not (null? #{y _hoQGWMnyQPAh3k2jhWKF@}#))
- (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWKF$}#)
- (car #{y _hoQGWMnyQPAh3k2jhWKF@}#))
- (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWKF$}#)
- (cdr #{y _hoQGWMnyQPAh3k2jhWKF@}#))
+ #{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 _hoQGWMnyQPAh3k2jhWHTU}#
- (lambda (#{id _hoQGWMnyQPAh3k2jhWKGH}#
- #{w _hoQGWMnyQPAh3k2jhWKGI}#)
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}#
+ #{w -ANAU$bmvAmthP7L7xwqCD}#)
(letrec*
- ((#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- (lambda (#{sym _hoQGWMnyQPAh3k2jhWKHG}#
- #{subst _hoQGWMnyQPAh3k2jhWKHH}#
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
- (if (null? #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
- (values #f #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
- (let ((#{fst _hoQGWMnyQPAh3k2jhWKHJ}#
- (car #{subst _hoQGWMnyQPAh3k2jhWKHH}#)))
- (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 'shift)
- (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- #{sym _hoQGWMnyQPAh3k2jhWKHG}#
- (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
- (cdr #{marks _hoQGWMnyQPAh3k2jhWKHI}#))
- (let ((#{symnames _hoQGWMnyQPAh3k2jhWKHL}#
- (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 1)))
- (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKHL}#)
- (let ((#{n _hoQGWMnyQPAh3k2jhWKHX}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWKHL}#)))
+ #{symnames -ANAU$bmvAmthP7L7xwqDG}#)))
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWKHY}#
- (lambda (#{i _hoQGWMnyQPAh3k2jhWKHa}#)
- (if (= #{i _hoQGWMnyQPAh3k2jhWKHa}#
- #{n _hoQGWMnyQPAh3k2jhWKHX}#)
- (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- #{sym _hoQGWMnyQPAh3k2jhWKHG}#
- (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWKHL}#
- #{i _hoQGWMnyQPAh3k2jhWKHa}#)
- #{sym _hoQGWMnyQPAh3k2jhWKHG}#)
- (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#
+ #{symnames -ANAU$bmvAmthP7L7xwqDG}#
+ #{i -ANAU$bmvAmthP7L7xwqDV}#)
+ #{sym -ANAU$bmvAmthP7L7xwqDB}#)
+ (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}#
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#
(vector-ref
(vector-ref
- #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
2)
- #{i _hoQGWMnyQPAh3k2jhWKHa}#))
+ #{i -ANAU$bmvAmthP7L7xwqDV}#))
#f)
(values
(vector-ref
(vector-ref
- #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
3)
- #{i _hoQGWMnyQPAh3k2jhWKHa}#)
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
- (#{f _hoQGWMnyQPAh3k2jhWKHY}#
- (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKHa}#)))))))
- (#{f _hoQGWMnyQPAh3k2jhWKHY}# 0)))
+ #{i -ANAU$bmvAmthP7L7xwqDV}#)
+ #{marks -ANAU$bmvAmthP7L7xwqDD}#)
+ (#{f -ANAU$bmvAmthP7L7xwqDT}#
+ (#{1+}# #{i -ANAU$bmvAmthP7L7xwqDV}#)))))))
+ (#{f -ANAU$bmvAmthP7L7xwqDT}# 0)))
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWKH7}#
- (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKH9}#
- #{i _hoQGWMnyQPAh3k2jhWKH$}#)
- (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKH9}#)
- (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- #{sym _hoQGWMnyQPAh3k2jhWKHG}#
- (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#)
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
- (if (if (eq? (car #{symnames _hoQGWMnyQPAh3k2jhWKH9}#)
- #{sym _hoQGWMnyQPAh3k2jhWKHG}#)
- (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWKHJ}#
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
2)
- #{i _hoQGWMnyQPAh3k2jhWKH$}#))
+ #{i -ANAU$bmvAmthP7L7xwqD5}#))
#f)
(values
(list-ref
(vector-ref
- #{fst _hoQGWMnyQPAh3k2jhWKHJ}#
+ #{fst -ANAU$bmvAmthP7L7xwqDE}#
3)
- #{i _hoQGWMnyQPAh3k2jhWKH$}#)
- #{marks _hoQGWMnyQPAh3k2jhWKHI}#)
- (#{f _hoQGWMnyQPAh3k2jhWKH7}#
- (cdr #{symnames _hoQGWMnyQPAh3k2jhWKH9}#)
- (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKH$}#)))))))
- (#{f _hoQGWMnyQPAh3k2jhWKH7}#
- #{symnames _hoQGWMnyQPAh3k2jhWKHL}#
+ #{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 _hoQGWMnyQPAh3k2jhWKGH}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWKGM}#
- (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- #{id _hoQGWMnyQPAh3k2jhWKGH}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#)
- (car #{w _hoQGWMnyQPAh3k2jhWKGI}#))))
- (if #{t _hoQGWMnyQPAh3k2jhWKGM}#
- #{t _hoQGWMnyQPAh3k2jhWKGM}#
- #{id _hoQGWMnyQPAh3k2jhWKGH}#))
- (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWKGH}#)
- (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWKGH}#)
+ (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 _hoQGWMnyQPAh3k2jhWKGH}# 0)
+ (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 0)
'syntax-object)
#f)
#f)
- (let ((#{id _hoQGWMnyQPAh3k2jhWKGb}#
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 1))
- (#{w1 _hoQGWMnyQPAh3k2jhWKGc}#
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 2)))
- (let ((#{marks _hoQGWMnyQPAh3k2jhWKGd}#
- (let ((#{m1 _hoQGWMnyQPAh3k2jhWKGn}#
- (car #{w _hoQGWMnyQPAh3k2jhWKGI}#))
- (#{m2 _hoQGWMnyQPAh3k2jhWKGo}#
- (car #{w1 _hoQGWMnyQPAh3k2jhWKGc}#)))
- (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKGo}#)
- #{m1 _hoQGWMnyQPAh3k2jhWKGn}#
+ (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 _hoQGWMnyQPAh3k2jhWKGn}#
- #{m2 _hoQGWMnyQPAh3k2jhWKGo}#)))))
+ #{m1 -ANAU$bmvAmthP7L7xwqCi}#
+ #{m2 -ANAU$bmvAmthP7L7xwqCj}#)))))
(call-with-values
(lambda ()
- (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- #{id _hoQGWMnyQPAh3k2jhWKGb}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#)
- #{marks _hoQGWMnyQPAh3k2jhWKGd}#))
- (lambda (#{new-id _hoQGWMnyQPAh3k2jhWKG4}#
- #{marks _hoQGWMnyQPAh3k2jhWKG5}#)
- (if #{new-id _hoQGWMnyQPAh3k2jhWKG4}#
- #{new-id _hoQGWMnyQPAh3k2jhWKG4}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWKHB}#
- (#{search _hoQGWMnyQPAh3k2jhWKGJ}#
- #{id _hoQGWMnyQPAh3k2jhWKGb}#
- (cdr #{w1 _hoQGWMnyQPAh3k2jhWKGc}#)
- #{marks _hoQGWMnyQPAh3k2jhWKG5}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWKHB}#
- #{t _hoQGWMnyQPAh3k2jhWKHB}#
- #{id _hoQGWMnyQPAh3k2jhWKGb}#)))))))
+ (#{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 _hoQGWMnyQPAh3k2jhWKGH}#))))))
- (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}#
- (lambda (#{w _hoQGWMnyQPAh3k2jhWKIU}#
- #{mod _hoQGWMnyQPAh3k2jhWKIV}#)
+ #{id -ANAU$bmvAmthP7L7xwqCC}#))))))
+ (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}#
+ (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}#
+ #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
(letrec*
- ((#{scan _hoQGWMnyQPAh3k2jhWKIW}#
- (lambda (#{subst _hoQGWMnyQPAh3k2jhWKIb}#
- #{results _hoQGWMnyQPAh3k2jhWKIc}#)
- (if (null? #{subst _hoQGWMnyQPAh3k2jhWKIb}#)
- #{results _hoQGWMnyQPAh3k2jhWKIc}#
- (let ((#{fst _hoQGWMnyQPAh3k2jhWKId}#
- (car #{subst _hoQGWMnyQPAh3k2jhWKIb}#)))
- (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKId}# 'shift)
- (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
- (cdr #{subst _hoQGWMnyQPAh3k2jhWKIb}#)
- #{results _hoQGWMnyQPAh3k2jhWKIc}#)
- (let ((#{symnames _hoQGWMnyQPAh3k2jhWKIf}#
- (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 1))
- (#{marks _hoQGWMnyQPAh3k2jhWKIg}#
- (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 2)))
- (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKIf}#)
- (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}#
- #{subst _hoQGWMnyQPAh3k2jhWKIb}#
- #{symnames _hoQGWMnyQPAh3k2jhWKIf}#
- #{marks _hoQGWMnyQPAh3k2jhWKIg}#
- #{results _hoQGWMnyQPAh3k2jhWKIc}#)
- (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}#
- #{subst _hoQGWMnyQPAh3k2jhWKIb}#
- #{symnames _hoQGWMnyQPAh3k2jhWKIf}#
- #{marks _hoQGWMnyQPAh3k2jhWKIg}#
- #{results _hoQGWMnyQPAh3k2jhWKIc}#))))))))
- (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}#
- (lambda (#{subst _hoQGWMnyQPAh3k2jhWKKC}#
- #{symnames _hoQGWMnyQPAh3k2jhWKKD}#
- #{marks _hoQGWMnyQPAh3k2jhWKKE}#
- #{results _hoQGWMnyQPAh3k2jhWKKF}#)
+ ((#{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 -ANAU$bmvAmthP7L7xwqF@}#
+ #{results -ANAU$bmvAmthP7L7xwqGA}#)
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWKKG}#
- (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKLq}#
- #{marks _hoQGWMnyQPAh3k2jhWKLr}#
- #{results _hoQGWMnyQPAh3k2jhWKLs}#)
- (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKLq}#)
- (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
- (cdr #{subst _hoQGWMnyQPAh3k2jhWKKC}#)
- #{results _hoQGWMnyQPAh3k2jhWKLs}#)
- (#{f _hoQGWMnyQPAh3k2jhWKKG}#
- (cdr #{symnames _hoQGWMnyQPAh3k2jhWKLq}#)
- (cdr #{marks _hoQGWMnyQPAh3k2jhWKLr}#)
- (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- (car #{symnames _hoQGWMnyQPAh3k2jhWKLq}#)
- (let ((#{w _hoQGWMnyQPAh3k2jhWKL0}#
- (cons (car #{marks _hoQGWMnyQPAh3k2jhWKLr}#)
- #{subst _hoQGWMnyQPAh3k2jhWKKC}#)))
+ ((#{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 _hoQGWMnyQPAh3k2jhWKL0}#))
+ (car #{w -ANAU$bmvAmthP7L7xwqHv}#))
(cons 'shift
- (cdr #{w _hoQGWMnyQPAh3k2jhWKL0}#))))
- #{mod _hoQGWMnyQPAh3k2jhWKIV}#)
- #{results _hoQGWMnyQPAh3k2jhWKLs}#))))))
- (#{f _hoQGWMnyQPAh3k2jhWKKG}#
- #{symnames _hoQGWMnyQPAh3k2jhWKKD}#
- #{marks _hoQGWMnyQPAh3k2jhWKKE}#
- #{results _hoQGWMnyQPAh3k2jhWKKF}#))))
- (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}#
- (lambda (#{subst _hoQGWMnyQPAh3k2jhWKL1}#
- #{symnames _hoQGWMnyQPAh3k2jhWKL2}#
- #{marks _hoQGWMnyQPAh3k2jhWKL3}#
- #{results _hoQGWMnyQPAh3k2jhWKL4}#)
- (let ((#{n _hoQGWMnyQPAh3k2jhWKL5}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwqHv}#))))
+ #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ #{results -ANAU$bmvAmthP7L7xwqHn}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwqGB}#
+ #{symnames -ANAU$bmvAmthP7L7xwqF$}#
+ #{marks -ANAU$bmvAmthP7L7xwqF@}#
+ #{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 _hoQGWMnyQPAh3k2jhWKL2}#)))
+ #{symnames -ANAU$bmvAmthP7L7xwqHx}#)))
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWKL6}#
- (lambda (#{i _hoQGWMnyQPAh3k2jhWKNN}#
- #{results _hoQGWMnyQPAh3k2jhWKNO}#)
- (if (= #{i _hoQGWMnyQPAh3k2jhWKNN}#
- #{n _hoQGWMnyQPAh3k2jhWKL5}#)
- (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
- (cdr #{subst _hoQGWMnyQPAh3k2jhWKL1}#)
- #{results _hoQGWMnyQPAh3k2jhWKNO}#)
- (#{f _hoQGWMnyQPAh3k2jhWKL6}#
- (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKNN}#)
- (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWKL2}#
- #{i _hoQGWMnyQPAh3k2jhWKNN}#)
- (let ((#{w _hoQGWMnyQPAh3k2jhWKNW}#
+ #{symnames -ANAU$bmvAmthP7L7xwqHx}#
+ #{i -ANAU$bmvAmthP7L7xwqJI}#)
+ (let ((#{w -ANAU$bmvAmthP7L7xwqJR}#
(cons (vector-ref
- #{marks _hoQGWMnyQPAh3k2jhWKL3}#
- #{i _hoQGWMnyQPAh3k2jhWKNN}#)
- #{subst _hoQGWMnyQPAh3k2jhWKL1}#)))
+ #{marks -ANAU$bmvAmthP7L7xwqHy}#
+ #{i -ANAU$bmvAmthP7L7xwqJI}#)
+ #{subst -ANAU$bmvAmthP7L7xwqHw}#)))
(cons (cons #f
- (car #{w _hoQGWMnyQPAh3k2jhWKNW}#))
+ (car #{w -ANAU$bmvAmthP7L7xwqJR}#))
(cons 'shift
- (cdr #{w _hoQGWMnyQPAh3k2jhWKNW}#))))
- #{mod _hoQGWMnyQPAh3k2jhWKIV}#)
- #{results _hoQGWMnyQPAh3k2jhWKNO}#))))))
- (#{f _hoQGWMnyQPAh3k2jhWKL6}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwqJR}#))))
+ #{mod -ANAU$bmvAmthP7L7xwqEQ}#)
+ #{results -ANAU$bmvAmthP7L7xwqJJ}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwqH1}#
0
- #{results _hoQGWMnyQPAh3k2jhWKL4}#))))))
- (#{scan _hoQGWMnyQPAh3k2jhWKIW}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWKIU}#)
+ #{results -ANAU$bmvAmthP7L7xwqHz}#))))))
+ (#{scan -ANAU$bmvAmthP7L7xwqER}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#)
'()))))
- (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
- (lambda (#{ids _hoQGWMnyQPAh3k2jhWKNX}#)
+ (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#)
(if (letrec*
- ((#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}#
- (lambda (#{ids _hoQGWMnyQPAh3k2jhWKP6}#)
- (if (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#)
- (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#)
- (if (let ((#{x _hoQGWMnyQPAh3k2jhWKQF}#
- (car #{ids _hoQGWMnyQPAh3k2jhWKP6}#)))
- (if (symbol? #{x _hoQGWMnyQPAh3k2jhWKQF}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWKQF}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWKQF}#)
+ #{x -ANAU$bmvAmthP7L7xwqMA}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWKQF}#
+ #{x -ANAU$bmvAmthP7L7xwqMA}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWKQF}# 1))
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1))
#f)))
- (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}#
- (cdr #{ids _hoQGWMnyQPAh3k2jhWKP6}#))
+ (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
+ (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#))
#f)))))
- (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}#
- #{ids _hoQGWMnyQPAh3k2jhWKNX}#))
- (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
- #{ids _hoQGWMnyQPAh3k2jhWKNX}#)
+ (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}#
+ #{ids -ANAU$bmvAmthP7L7xwqJS}#))
+ (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ #{ids -ANAU$bmvAmthP7L7xwqJS}#)
#f)))
- (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
- (lambda (#{ids _hoQGWMnyQPAh3k2jhWKSF}#)
+ (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
+ (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#)
(letrec*
- ((#{distinct? _hoQGWMnyQPAh3k2jhWKSG}#
- (lambda (#{ids _hoQGWMnyQPAh3k2jhWKT2}#)
- (if (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#)
- (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#)
- (if (not (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
- (car #{ids _hoQGWMnyQPAh3k2jhWKT2}#)
- (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#)))
- (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}#
- (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#))
+ ((#{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? _hoQGWMnyQPAh3k2jhWKSG}#
- #{ids _hoQGWMnyQPAh3k2jhWKSF}#))))
- (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWKXI}#
- #{list _hoQGWMnyQPAh3k2jhWKXJ}#)
- (if (not (null? #{list _hoQGWMnyQPAh3k2jhWKXJ}#))
- (let ((#{t _hoQGWMnyQPAh3k2jhWKXK}#
- (let ((#{j _hoQGWMnyQPAh3k2jhWKYb}#
- (car #{list _hoQGWMnyQPAh3k2jhWKXJ}#)))
- (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKXI}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWKXI}#)
+ #{x -ANAU$bmvAmthP7L7xwqTD}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWKXI}#
+ #{x -ANAU$bmvAmthP7L7xwqTD}#
0)
'syntax-object)
#f)
#f)
- (if (vector? #{j _hoQGWMnyQPAh3k2jhWKYb}#)
+ (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#)
(if (= (vector-length
- #{j _hoQGWMnyQPAh3k2jhWKYb}#)
+ #{j -ANAU$bmvAmthP7L7xwqUW}#)
4)
- (eq? (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 0)
+ (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0)
'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 1)
- (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 1))
- (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
- (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 2))
- (car (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 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 _hoQGWMnyQPAh3k2jhWKXI}#
- #{j _hoQGWMnyQPAh3k2jhWKYb}#)))))
- (if #{t _hoQGWMnyQPAh3k2jhWKXK}#
- #{t _hoQGWMnyQPAh3k2jhWKXK}#
- (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
- #{x _hoQGWMnyQPAh3k2jhWKXI}#
- (cdr #{list _hoQGWMnyQPAh3k2jhWKXJ}#))))
+ (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 _hoQGWMnyQPAh3k2jhWHTe}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWKZH}#
- #{w _hoQGWMnyQPAh3k2jhWKZI}#
- #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#)
- (if (if (null? (car #{w _hoQGWMnyQPAh3k2jhWKZI}#))
- (null? (cdr #{w _hoQGWMnyQPAh3k2jhWKZI}#))
+ (#{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 _hoQGWMnyQPAh3k2jhWKZH}#
- (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKZH}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKZH}#)
+ #{x -ANAU$bmvAmthP7L7xwqVC}#
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression _hoQGWMnyQPAh3k2jhWKZX}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 1))
- (#{wrap _hoQGWMnyQPAh3k2jhWKZY}#
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWKZI}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 2)))
- (#{module _hoQGWMnyQPAh3k2jhWKZZ}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 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 _hoQGWMnyQPAh3k2jhWKZX}#
- #{wrap _hoQGWMnyQPAh3k2jhWKZY}#
- #{module _hoQGWMnyQPAh3k2jhWKZZ}#))
- (if (null? #{x _hoQGWMnyQPAh3k2jhWKZH}#)
- #{x _hoQGWMnyQPAh3k2jhWKZH}#
+ #{expression -ANAU$bmvAmthP7L7xwqVS}#
+ #{wrap -ANAU$bmvAmthP7L7xwqVT}#
+ #{module -ANAU$bmvAmthP7L7xwqVU}#))
+ (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#)
+ #{x -ANAU$bmvAmthP7L7xwqVC}#
(vector
'syntax-object
- #{x _hoQGWMnyQPAh3k2jhWKZH}#
- #{w _hoQGWMnyQPAh3k2jhWKZI}#
- #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#))))))
- (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWKZq}#
- #{w _hoQGWMnyQPAh3k2jhWKZr}#
- #{s _hoQGWMnyQPAh3k2jhWKZs}#
- #{defmod _hoQGWMnyQPAh3k2jhWKZt}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{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 _hoQGWMnyQPAh3k2jhWKZq}#)
- #{s _hoQGWMnyQPAh3k2jhWKZs}#
+ (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#)
+ #{s -ANAU$bmvAmthP7L7xwqVn}#
#f)
(set-source-properties!
- #{x _hoQGWMnyQPAh3k2jhWKZq}#
- #{s _hoQGWMnyQPAh3k2jhWKZs}#))
- #{x _hoQGWMnyQPAh3k2jhWKZq}#)
- #{w _hoQGWMnyQPAh3k2jhWKZr}#
- #{defmod _hoQGWMnyQPAh3k2jhWKZt}#)))
- (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWMpK}#
- #{r _hoQGWMnyQPAh3k2jhWMpL}#
- #{w _hoQGWMnyQPAh3k2jhWMpM}#
- #{s _hoQGWMnyQPAh3k2jhWMpN}#
- #{mod _hoQGWMnyQPAh3k2jhWMpO}#)
- (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
- #{s _hoQGWMnyQPAh3k2jhWMpN}#
+ #{x -ANAU$bmvAmthP7L7xwqVl}#
+ #{s -ANAU$bmvAmthP7L7xwqVn}#))
+ #{x -ANAU$bmvAmthP7L7xwqVl}#)
+ #{w -ANAU$bmvAmthP7L7xwqVm}#
+ #{defmod -ANAU$bmvAmthP7L7xwqVo}#)))
+ (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#
+ (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 _hoQGWMnyQPAh3k2jhWMqe}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWMv8}#
- #{r _hoQGWMnyQPAh3k2jhWMv9}#
- #{w _hoQGWMnyQPAh3k2jhWMv$}#
- #{mod _hoQGWMnyQPAh3k2jhWMv@}#)
- (if (null? #{body _hoQGWMnyQPAh3k2jhWMv8}#)
+ ((#{dobody -ANAU$bmvAmthP7L7xwsw@}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xws2d}#
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2f}#
+ #{mod -ANAU$bmvAmthP7L7xws2g}#)
+ (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#)
'()
- (let ((#{first _hoQGWMnyQPAh3k2jhWMwA}#
- (let ((#{e _hoQGWMnyQPAh3k2jhWMwE}#
- (car #{body _hoQGWMnyQPAh3k2jhWMv8}#)))
+ (let ((#{first -ANAU$bmvAmthP7L7xws2h}#
+ (let ((#{e -ANAU$bmvAmthP7L7xws2l}#
+ (car #{body -ANAU$bmvAmthP7L7xws2d}#)))
(call-with-values
(lambda ()
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWMwE}#
- #{r _hoQGWMnyQPAh3k2jhWMv9}#
- #{w _hoQGWMnyQPAh3k2jhWMv$}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWMwE}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xws2l}#
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2f}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xws2l}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWMv@}#
+ #{mod -ANAU$bmvAmthP7L7xws2g}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWMwL}#
- #{value _hoQGWMnyQPAh3k2jhWMwM}#
- #{e _hoQGWMnyQPAh3k2jhWMwN}#
- #{w _hoQGWMnyQPAh3k2jhWMwO}#
- #{s _hoQGWMnyQPAh3k2jhWMwP}#
- #{mod _hoQGWMnyQPAh3k2jhWMwQ}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWMwL}#
- #{value _hoQGWMnyQPAh3k2jhWMwM}#
- #{e _hoQGWMnyQPAh3k2jhWMwN}#
- #{r _hoQGWMnyQPAh3k2jhWMv9}#
- #{w _hoQGWMnyQPAh3k2jhWMwO}#
- #{s _hoQGWMnyQPAh3k2jhWMwP}#
- #{mod _hoQGWMnyQPAh3k2jhWMwQ}#))))))
- (cons #{first _hoQGWMnyQPAh3k2jhWMwA}#
- (#{dobody _hoQGWMnyQPAh3k2jhWMqe}#
- (cdr #{body _hoQGWMnyQPAh3k2jhWMv8}#)
- #{r _hoQGWMnyQPAh3k2jhWMv9}#
- #{w _hoQGWMnyQPAh3k2jhWMv$}#
- #{mod _hoQGWMnyQPAh3k2jhWMv@}#)))))))
- (#{dobody _hoQGWMnyQPAh3k2jhWMqe}#
- #{body _hoQGWMnyQPAh3k2jhWMpK}#
- #{r _hoQGWMnyQPAh3k2jhWMpL}#
- #{w _hoQGWMnyQPAh3k2jhWMpM}#
- #{mod _hoQGWMnyQPAh3k2jhWMpO}#)))))
- (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWKZ@}#
- #{r _hoQGWMnyQPAh3k2jhWKaA}#
- #{w _hoQGWMnyQPAh3k2jhWKaB}#
- #{s _hoQGWMnyQPAh3k2jhWKaC}#
- #{m _hoQGWMnyQPAh3k2jhWKaD}#
- #{esew _hoQGWMnyQPAh3k2jhWKaE}#
- #{mod _hoQGWMnyQPAh3k2jhWKaF}#)
+ (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 -ANAU$bmvAmthP7L7xwsw@}#
+ (cdr #{body -ANAU$bmvAmthP7L7xws2d}#)
+ #{r -ANAU$bmvAmthP7L7xws2e}#
+ #{w -ANAU$bmvAmthP7L7xws2f}#
+ #{mod -ANAU$bmvAmthP7L7xws2g}#)))))))
+ (#{dobody -ANAU$bmvAmthP7L7xwsw@}#
+ #{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 -ANAU$bmvAmthP7L7xwqV@}#
+ #{mod -ANAU$bmvAmthP7L7xwqWA}#)
(letrec*
- ((#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWKcJ}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKcL}#
- #{s _hoQGWMnyQPAh3k2jhWKcM}#
- #{m _hoQGWMnyQPAh3k2jhWKcN}#
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#
- #{mod _hoQGWMnyQPAh3k2jhWKcP}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
- (if (null? #{body _hoQGWMnyQPAh3k2jhWKcJ}#)
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWKcR}#
- (car #{body _hoQGWMnyQPAh3k2jhWKcJ}#)))
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWKcR}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKcL}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWKcV}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWKcR}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWKcV}#
- #{t _hoQGWMnyQPAh3k2jhWKcV}#
- #{s _hoQGWMnyQPAh3k2jhWKcM}#))
+ (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 _hoQGWMnyQPAh3k2jhWKcP}#
+ #{mod -ANAU$bmvAmthP7L7xwqYK}#
#f)))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWKgA}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ (lambda (#{type -ANAU$bmvAmthP7L7xwqb7}#
+ #{value -ANAU$bmvAmthP7L7xwqb8}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
'begin-form)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgK}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwqcF}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
'(_))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWKgK}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwqcF}#
(@apply
- (lambda () #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
- #{tmp _hoQGWMnyQPAh3k2jhWKgK}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgO}#
+ (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ #{tmp -ANAU$bmvAmthP7L7xwqcF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
'(_ any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWKgO}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWKgS}#
- #{e2 _hoQGWMnyQPAh3k2jhWKgT}#)
- (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWKgS}#
- #{e2 _hoQGWMnyQPAh3k2jhWKgT}#)
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{m _hoQGWMnyQPAh3k2jhWKcN}#
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
- #{tmp _hoQGWMnyQPAh3k2jhWKgO}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwqcN}#
+ #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwqcN}#
+ #{e2 -ANAU$bmvAmthP7L7xwqcO}#)
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
+ #{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 _hoQGWMnyQPAh3k2jhWKgC}#)))))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#)))))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
'local-syntax-form)
- (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWKgi}#
- #{r _hoQGWMnyQPAh3k2jhWKgj}#
- #{w _hoQGWMnyQPAh3k2jhWKgk}#
- #{s _hoQGWMnyQPAh3k2jhWKgl}#
- #{mod _hoQGWMnyQPAh3k2jhWKgm}#)
- (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- #{body _hoQGWMnyQPAh3k2jhWKgi}#
- #{r _hoQGWMnyQPAh3k2jhWKgj}#
- #{w _hoQGWMnyQPAh3k2jhWKgk}#
- #{s _hoQGWMnyQPAh3k2jhWKgl}#
- #{m _hoQGWMnyQPAh3k2jhWKcN}#
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#
- #{mod _hoQGWMnyQPAh3k2jhWKgm}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
+ #{value -ANAU$bmvAmthP7L7xwqb8}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
+ #{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 _hoQGWMnyQPAh3k2jhWKgr}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwqcm}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#
'(_ each-any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWKgr}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwqcm}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWKgv}#
- #{e1 _hoQGWMnyQPAh3k2jhWKgw}#
- #{e2 _hoQGWMnyQPAh3k2jhWKgx}#)
- (let ((#{when-list _hoQGWMnyQPAh3k2jhWKgy}#
- (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{x _hoQGWMnyQPAh3k2jhWKgv}#))
- (#{body _hoQGWMnyQPAh3k2jhWKgz}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWKgw}#
- #{e2 _hoQGWMnyQPAh3k2jhWKgx}#)))
- (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ (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 _hoQGWMnyQPAh3k2jhWKgy}#)
- (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- #{body _hoQGWMnyQPAh3k2jhWKgz}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
(if (memq 'expand
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)
'c&e
'e)
'(eval)
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)
(begin
(if (memq 'expand
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
- (let ((#{x _hoQGWMnyQPAh3k2jhWKiA}#
- (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
- #{body _hoQGWMnyQPAh3k2jhWKgz}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)
+ (let ((#{x -ANAU$bmvAmthP7L7xwqd7}#
+ (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ #{body -ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
'e
'(eval)
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
(primitive-eval
- #{x _hoQGWMnyQPAh3k2jhWKiA}#)))
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
+ #{x -ANAU$bmvAmthP7L7xwqd7}#)))
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#))
(if (memq 'load
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
- (if (let ((#{t _hoQGWMnyQPAh3k2jhWKia}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)
+ (if (let ((#{t -ANAU$bmvAmthP7L7xwqeV}#
(memq 'compile
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWKia}#
- #{t _hoQGWMnyQPAh3k2jhWKia}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWKjL}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwqeV}#
+ #{t -ANAU$bmvAmthP7L7xwqeV}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwqfG}#
(memq 'expand
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWKjL}#
- #{t _hoQGWMnyQPAh3k2jhWKjL}#
- (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwqfG}#
+ #{t -ANAU$bmvAmthP7L7xwqfG}#
+ (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
'c&e)
(memq 'eval
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)
#f)))))
- (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- #{body _hoQGWMnyQPAh3k2jhWKgz}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
'c&e
'(compile load)
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
- (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
'c)
#t
- (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
'c&e))
- (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- #{body _hoQGWMnyQPAh3k2jhWKgz}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
'c
'(load)
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
- (if (let ((#{t _hoQGWMnyQPAh3k2jhWKlM}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#))
+ (if (let ((#{t -ANAU$bmvAmthP7L7xwqhH}#
(memq 'compile
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWKlM}#
- #{t _hoQGWMnyQPAh3k2jhWKlM}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWKl9}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwqhH}#
+ #{t -ANAU$bmvAmthP7L7xwqhH}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwqh4}#
(memq 'expand
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWKl9}#
- #{t _hoQGWMnyQPAh3k2jhWKl9}#
- (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwqh4}#
+ #{t -ANAU$bmvAmthP7L7xwqh4}#
+ (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
'c&e)
(memq 'eval
- #{when-list _hoQGWMnyQPAh3k2jhWKgy}#)
+ #{when-list -ANAU$bmvAmthP7L7xwqct}#)
#f)))))
(begin
- (let ((#{x _hoQGWMnyQPAh3k2jhWKn5}#
- (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
- #{body _hoQGWMnyQPAh3k2jhWKgz}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
+ (let ((#{x -ANAU$bmvAmthP7L7xwqj0}#
+ (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ #{body -ANAU$bmvAmthP7L7xwqcu}#
+ #{r -ANAU$bmvAmthP7L7xwqYF}#
+ #{w -ANAU$bmvAmthP7L7xwqb$}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
'e
'(eval)
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)))
(primitive-eval
- #{x _hoQGWMnyQPAh3k2jhWKn5}#))
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWKgr}#)
+ #{x -ANAU$bmvAmthP7L7xwqj0}#))
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwqcm}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWKgC}#)))
- (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ #{e -ANAU$bmvAmthP7L7xwqb9}#)))
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
'define-syntax-form)
#t
- (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}#
'define-syntax-parameter-form))
- (let ((#{n _hoQGWMnyQPAh3k2jhWKon}#
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#))
- (#{r _hoQGWMnyQPAh3k2jhWKoo}#
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#)))
- (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c)
+ (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 _hoQGWMnyQPAh3k2jhWKcO}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWKos}#
- (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
- #{n _hoQGWMnyQPAh3k2jhWKon}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKoo}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
+ #{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 _hoQGWMnyQPAh3k2jhWHSZ}#
- #{e _hoQGWMnyQPAh3k2jhWKos}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
+ (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
+ #{e -ANAU$bmvAmthP7L7xwqkn}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)
(if (memq 'load
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
- (values
- (cons #{e _hoQGWMnyQPAh3k2jhWKos}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))
+ #{esew -ANAU$bmvAmthP7L7xwqYJ}#)
+ (cons #{e -ANAU$bmvAmthP7L7xwqkn}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
(if (memq 'load
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
- (values
- (cons (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
- #{n _hoQGWMnyQPAh3k2jhWKon}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKoo}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
- (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ #{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 _hoQGWMnyQPAh3k2jhWKvr}#
- (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
- #{n _hoQGWMnyQPAh3k2jhWKon}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKoo}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
+ (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 _hoQGWMnyQPAh3k2jhWHSZ}#
- #{e _hoQGWMnyQPAh3k2jhWKvr}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
- (values
- (cons #{e _hoQGWMnyQPAh3k2jhWKvr}#
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))
+ (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}#
+ #{e -ANAU$bmvAmthP7L7xwqup}#
+ #{mod -ANAU$bmvAmthP7L7xwqcA}#)
+ (cons #{e -ANAU$bmvAmthP7L7xwqup}#
+ #{exps -ANAU$bmvAmthP7L7xwqYL}#)))
(begin
(if (memq 'eval
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#)
- (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
- (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
- #{n _hoQGWMnyQPAh3k2jhWKon}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKoo}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
- (values
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}#
+ #{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 _hoQGWMnyQPAh3k2jhWK5m}#
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#)))
- (let ((#{type _hoQGWMnyQPAh3k2jhWK5n}#
- (car (let ((#{t _hoQGWMnyQPAh3k2jhWK5u}#
- (assq #{n _hoQGWMnyQPAh3k2jhWK5m}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWK5u}#
- (cdr #{t _hoQGWMnyQPAh3k2jhWK5u}#)
+ (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 _hoQGWMnyQPAh3k2jhWK5m}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWK50}#
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- #{n _hoQGWMnyQPAh3k2jhWK5m}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWK50}#
- #{t _hoQGWMnyQPAh3k2jhWK50}#
+ #{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 _hoQGWMnyQPAh3k2jhWK5n}#
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
'global)
#t
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
'core)
#t
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
'macro)
#t
- (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}#
'module-ref))))
(begin
- (if (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ (if (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
'c)
#t
- (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
+ (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
'c&e))
(if (not (module-local-variable
(current-module)
- #{n _hoQGWMnyQPAh3k2jhWK5m}#))
+ #{n -ANAU$bmvAmthP7L7xwq5L}#))
(current-module)
#f)
#f)
- (let ((#{old _hoQGWMnyQPAh3k2jhWK6T}#
+ (let ((#{old -ANAU$bmvAmthP7L7xwq54}#
(module-variable
(current-module)
- #{n _hoQGWMnyQPAh3k2jhWK5m}#)))
+ #{n -ANAU$bmvAmthP7L7xwq5L}#)))
(if (if (variable?
- #{old _hoQGWMnyQPAh3k2jhWK6T}#)
+ #{old -ANAU$bmvAmthP7L7xwq54}#)
(variable-bound?
- #{old _hoQGWMnyQPAh3k2jhWK6T}#)
+ #{old -ANAU$bmvAmthP7L7xwq54}#)
#f)
(module-define!
(current-module)
- #{n _hoQGWMnyQPAh3k2jhWK5m}#
+ #{n -ANAU$bmvAmthP7L7xwq5L}#
(variable-ref
- #{old _hoQGWMnyQPAh3k2jhWK6T}#))
+ #{old -ANAU$bmvAmthP7L7xwq54}#))
(module-add!
(current-module)
- #{n _hoQGWMnyQPAh3k2jhWK5m}#
+ #{n -ANAU$bmvAmthP7L7xwq5L}#
(make-undefined-variable)))))
- (values
- (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
- 'c&e)
- (let ((#{x _hoQGWMnyQPAh3k2jhWK6V}#
- (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{n _hoQGWMnyQPAh3k2jhWK5m}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
- (begin
- (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}#
- #{x _hoQGWMnyQPAh3k2jhWK6V}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)
- #{x _hoQGWMnyQPAh3k2jhWK6V}#))
- (lambda ()
- (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{n _hoQGWMnyQPAh3k2jhWK5m}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}#
+ (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}#
+ 'c&e)
+ (let ((#{x -ANAU$bmvAmthP7L7xwrAx}#
+ (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}#
+ #{s -ANAU$bmvAmthP7L7xwqb@}#
+ #{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 -ANAU$bmvAmthP7L7xwqb@}#
+ #{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 _hoQGWMnyQPAh3k2jhWKgC}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))
+ #{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 _hoQGWMnyQPAh3k2jhWKgC}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#))))))
- (values
- (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}#
- 'c&e)
- (let ((#{x _hoQGWMnyQPAh3k2jhWLBT}#
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWKgA}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
- (begin
- (primitive-eval
- #{x _hoQGWMnyQPAh3k2jhWLBT}#)
- #{x _hoQGWMnyQPAh3k2jhWLBT}#))
- (lambda ()
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWKgA}#
- #{value _hoQGWMnyQPAh3k2jhWKgB}#
- #{e _hoQGWMnyQPAh3k2jhWKgC}#
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKgD}#
- #{s _hoQGWMnyQPAh3k2jhWKgE}#
- #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))
- #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))))))))
- (lambda (#{exps _hoQGWMnyQPAh3k2jhWLBc}#)
- (#{scan _hoQGWMnyQPAh3k2jhWKaG}#
- (cdr #{body _hoQGWMnyQPAh3k2jhWKcJ}#)
- #{r _hoQGWMnyQPAh3k2jhWKcK}#
- #{w _hoQGWMnyQPAh3k2jhWKcL}#
- #{s _hoQGWMnyQPAh3k2jhWKcM}#
- #{m _hoQGWMnyQPAh3k2jhWKcN}#
- #{esew _hoQGWMnyQPAh3k2jhWKcO}#
- #{mod _hoQGWMnyQPAh3k2jhWKcP}#
- #{exps _hoQGWMnyQPAh3k2jhWLBc}#)))))))
+ #{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 -ANAU$bmvAmthP7L7xwqb@}#
+ #{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 -ANAU$bmvAmthP7L7xwqb@}#
+ #{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 _hoQGWMnyQPAh3k2jhWKaG}#
- #{body _hoQGWMnyQPAh3k2jhWKZ@}#
- #{r _hoQGWMnyQPAh3k2jhWKaA}#
- #{w _hoQGWMnyQPAh3k2jhWKaB}#
- #{s _hoQGWMnyQPAh3k2jhWKaC}#
- #{m _hoQGWMnyQPAh3k2jhWKaD}#
- #{esew _hoQGWMnyQPAh3k2jhWKaE}#
- #{mod _hoQGWMnyQPAh3k2jhWKaF}#
+ (#{scan -ANAU$bmvAmthP7L7xwqWB}#
+ #{body -ANAU$bmvAmthP7L7xwqV6}#
+ #{r -ANAU$bmvAmthP7L7xwqV7}#
+ #{w -ANAU$bmvAmthP7L7xwqV8}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#
+ #{m -ANAU$bmvAmthP7L7xwqV$}#
+ #{esew -ANAU$bmvAmthP7L7xwqV@}#
+ #{mod -ANAU$bmvAmthP7L7xwqWA}#
'()))
- (lambda (#{exps _hoQGWMnyQPAh3k2jhWKaJ}#)
- (if (null? #{exps _hoQGWMnyQPAh3k2jhWKaJ}#)
+ (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#)
+ (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s _hoQGWMnyQPAh3k2jhWKaC}#)
- (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
- #{s _hoQGWMnyQPAh3k2jhWKaC}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#)
+ (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}#
+ #{s -ANAU$bmvAmthP7L7xwqV9}#
(letrec*
- ((#{lp _hoQGWMnyQPAh3k2jhWKax}#
- (lambda (#{in _hoQGWMnyQPAh3k2jhWKcF}#
- #{out _hoQGWMnyQPAh3k2jhWKcG}#)
- (if (null? #{in _hoQGWMnyQPAh3k2jhWKcF}#)
- #{out _hoQGWMnyQPAh3k2jhWKcG}#
- (let ((#{e _hoQGWMnyQPAh3k2jhWKcH}#
- (car #{in _hoQGWMnyQPAh3k2jhWKcF}#)))
- (#{lp _hoQGWMnyQPAh3k2jhWKax}#
- (cdr #{in _hoQGWMnyQPAh3k2jhWKcF}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWKcH}#)
- (#{e _hoQGWMnyQPAh3k2jhWKcH}#)
- #{e _hoQGWMnyQPAh3k2jhWKcH}#)
- #{out _hoQGWMnyQPAh3k2jhWKcG}#)))))))
- (#{lp _hoQGWMnyQPAh3k2jhWKax}#
- #{exps _hoQGWMnyQPAh3k2jhWKaJ}#
+ #{e -ANAU$bmvAmthP7L7xwqYC}#)
+ (#{e -ANAU$bmvAmthP7L7xwqYC}#)
+ #{e -ANAU$bmvAmthP7L7xwqYC}#)
+ #{out -ANAU$bmvAmthP7L7xwqYB}#)))))))
+ (#{lp -ANAU$bmvAmthP7L7xwqWs}#
+ #{exps -ANAU$bmvAmthP7L7xwqWE}#
'())))))))))
- (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}#
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLBd}#
- #{e _hoQGWMnyQPAh3k2jhWLBe}#)
- (let ((#{exp _hoQGWMnyQPAh3k2jhWLBk}#
- (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWLBu}#
+ (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}#
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}#
+ #{e -ANAU$bmvAmthP7L7xwrH@}#)
+ (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)
@@ -1559,416 +1547,416 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#
+ (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name _hoQGWMnyQPAh3k2jhWLBd}#)
+ #{name -ANAU$bmvAmthP7L7xwrH$}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e _hoQGWMnyQPAh3k2jhWLBe}#)))
+ #{e -ANAU$bmvAmthP7L7xwrH@}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _hoQGWMnyQPAh3k2jhWLBu}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#))))
+ #{fun-exp -ANAU$bmvAmthP7L7xwrIP}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#))))
(begin
- (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWLBk}#)
- (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWLBk}#)
+ (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#)
+ (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta _hoQGWMnyQPAh3k2jhWLCY}#
- (struct-ref #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1)))
- (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWLCY}#))
- (let ((#{v _hoQGWMnyQPAh3k2jhWLCf}#
- (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWLBd}#)
- #{meta _hoQGWMnyQPAh3k2jhWLCY}#)))
+ (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 _hoQGWMnyQPAh3k2jhWLBk}#
+ #{exp -ANAU$bmvAmthP7L7xwrIF}#
1
- #{v _hoQGWMnyQPAh3k2jhWLCf}#)))))
+ #{v -ANAU$bmvAmthP7L7xwrJA}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name _hoQGWMnyQPAh3k2jhWLBd}#
- #{exp _hoQGWMnyQPAh3k2jhWLBk}#)))))
- (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWLCq}#
- #{when-list _hoQGWMnyQPAh3k2jhWLCr}#)
- (let ((#{result _hoQGWMnyQPAh3k2jhWLCs}#
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{when-list _hoQGWMnyQPAh3k2jhWLCr}#
+ #{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 _hoQGWMnyQPAh3k2jhWLCt}#
- (lambda (#{l _hoQGWMnyQPAh3k2jhWLDj}#)
- (if (null? #{l _hoQGWMnyQPAh3k2jhWLDj}#)
- #{result _hoQGWMnyQPAh3k2jhWLCs}#
- (if (let ((#{t _hoQGWMnyQPAh3k2jhWLDl}#
- (car #{l _hoQGWMnyQPAh3k2jhWLDj}#)))
- (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# '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 _hoQGWMnyQPAh3k2jhWLDl}# 'load)
+ (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load)
#t
- (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'eval)
+ (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval)
#t
- (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'expand)))))
- (#{lp _hoQGWMnyQPAh3k2jhWLCt}#
- (cdr #{l _hoQGWMnyQPAh3k2jhWLDj}#))
+ (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand)))))
+ (#{lp -ANAU$bmvAmthP7L7xwrJO}#
+ (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e _hoQGWMnyQPAh3k2jhWLCq}#
- (car #{l _hoQGWMnyQPAh3k2jhWLDj}#)))))))
- (#{lp _hoQGWMnyQPAh3k2jhWLCt}#
- #{result _hoQGWMnyQPAh3k2jhWLCs}#)))))
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#
- #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)
- (if (symbol? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
- (let ((#{n _hoQGWMnyQPAh3k2jhWLDu}#
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#)))
- (let ((#{b _hoQGWMnyQPAh3k2jhWLDv}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWLD3}#
- (assq #{n _hoQGWMnyQPAh3k2jhWLDu}#
- #{r _hoQGWMnyQPAh3k2jhWLDo}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWLD3}#
- (cdr #{t _hoQGWMnyQPAh3k2jhWLD3}#)
- (if (symbol? #{n _hoQGWMnyQPAh3k2jhWLDu}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWLD9}#
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- #{n _hoQGWMnyQPAh3k2jhWLDu}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWLD9}#
- #{t _hoQGWMnyQPAh3k2jhWLD9}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDw}#
- (car #{b _hoQGWMnyQPAh3k2jhWLDv}#)))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'lexical)
+ (let ((#{type -ANAU$bmvAmthP7L7xwrKR}#
+ (car #{b -ANAU$bmvAmthP7L7xwrKQ}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical)
(values
- #{type _hoQGWMnyQPAh3k2jhWLDw}#
- (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# '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 _hoQGWMnyQPAh3k2jhWLDw}#
- #{n _hoQGWMnyQPAh3k2jhWLDu}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'macro)
- (if #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDw}#
- (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
- (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDq}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{rib -ANAU$bmvAmthP7L7xwrKM}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#
#f))
(values
- #{type _hoQGWMnyQPAh3k2jhWLDw}#
- (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#)
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))))))
- (if (pair? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
- (let ((#{first _hoQGWMnyQPAh3k2jhWLER}#
- (car #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{first _hoQGWMnyQPAh3k2jhWLER}#
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#
+ (#{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 _hoQGWMnyQPAh3k2jhWLET}#
- #{fval _hoQGWMnyQPAh3k2jhWLEU}#
- #{fe _hoQGWMnyQPAh3k2jhWLEV}#
- #{fw _hoQGWMnyQPAh3k2jhWLEW}#
- #{fs _hoQGWMnyQPAh3k2jhWLEX}#
- #{fmod _hoQGWMnyQPAh3k2jhWLEY}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# '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 _hoQGWMnyQPAh3k2jhWLEU}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# '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 _hoQGWMnyQPAh3k2jhWLEU}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{fmod _hoQGWMnyQPAh3k2jhWLEY}#)
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'macro)
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
- #{fval _hoQGWMnyQPAh3k2jhWLEU}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDq}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#
- #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{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 _hoQGWMnyQPAh3k2jhWLEU}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWLEt}#
- #{r _hoQGWMnyQPAh3k2jhWLEu}#
- #{w _hoQGWMnyQPAh3k2jhWLEv}#
- #{s _hoQGWMnyQPAh3k2jhWLEw}#
- #{mod _hoQGWMnyQPAh3k2jhWLEx}#)
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWLEt}#
- #{r _hoQGWMnyQPAh3k2jhWLEu}#
- #{w _hoQGWMnyQPAh3k2jhWLEv}#
- #{s _hoQGWMnyQPAh3k2jhWLEw}#
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- #{mod _hoQGWMnyQPAh3k2jhWLEx}#
- #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)))
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# '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 _hoQGWMnyQPAh3k2jhWLEU}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{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 _hoQGWMnyQPAh3k2jhWLEU}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
'define)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFC}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFC}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLFG}#
- #{val _hoQGWMnyQPAh3k2jhWLFH}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrLn}#
+ #{val -ANAU$bmvAmthP7L7xwrLo}#)
(if (symbol?
- #{name _hoQGWMnyQPAh3k2jhWLFG}#)
+ #{name -ANAU$bmvAmthP7L7xwrLn}#)
#t
(if (if (vector?
- #{name _hoQGWMnyQPAh3k2jhWLFG}#)
+ #{name -ANAU$bmvAmthP7L7xwrLn}#)
(if (= (vector-length
- #{name _hoQGWMnyQPAh3k2jhWLFG}#)
+ #{name -ANAU$bmvAmthP7L7xwrLn}#)
4)
(eq? (vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLFG}#
+ #{name -ANAU$bmvAmthP7L7xwrLn}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLFG}#
+ #{name -ANAU$bmvAmthP7L7xwrLn}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWLFC}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrLj}#)
#f)
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLFi}#
- #{val _hoQGWMnyQPAh3k2jhWLFj}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrMD}#
+ #{val -ANAU$bmvAmthP7L7xwrME}#)
(values
'define-form
- #{name _hoQGWMnyQPAh3k2jhWLFi}#
- #{val _hoQGWMnyQPAh3k2jhWLFj}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLFC}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFk}#
+ #{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 _hoQGWMnyQPAh3k2jhWLDn}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFk}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrMF}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLFo}#
- #{args _hoQGWMnyQPAh3k2jhWLFp}#
- #{e1 _hoQGWMnyQPAh3k2jhWLFq}#
- #{e2 _hoQGWMnyQPAh3k2jhWLFr}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrMJ}#
+ #{args -ANAU$bmvAmthP7L7xwrMK}#
+ #{e1 -ANAU$bmvAmthP7L7xwrML}#
+ #{e2 -ANAU$bmvAmthP7L7xwrMM}#)
(if (if (symbol?
- #{name _hoQGWMnyQPAh3k2jhWLFo}#)
+ #{name -ANAU$bmvAmthP7L7xwrMJ}#)
#t
(if (if (vector?
- #{name _hoQGWMnyQPAh3k2jhWLFo}#)
+ #{name -ANAU$bmvAmthP7L7xwrMJ}#)
(if (= (vector-length
- #{name _hoQGWMnyQPAh3k2jhWLFo}#)
+ #{name -ANAU$bmvAmthP7L7xwrMJ}#)
4)
(eq? (vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLFo}#
+ #{name -ANAU$bmvAmthP7L7xwrMJ}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLFo}#
+ #{name -ANAU$bmvAmthP7L7xwrMJ}#
1))
#f))
- (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
+ (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
(letrec*
- ((#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
- (lambda (#{vars _hoQGWMnyQPAh3k2jhWLIC}#
- #{ls _hoQGWMnyQPAh3k2jhWLID}#
- #{w _hoQGWMnyQPAh3k2jhWLIE}#)
- (if (pair? #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
- (#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
- (cdr #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
- (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- (car #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
- #{w _hoQGWMnyQPAh3k2jhWLIE}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWLID}#)
- #{w _hoQGWMnyQPAh3k2jhWLIE}#)
+ #{ls -ANAU$bmvAmthP7L7xwrOk}#)
+ #{w -ANAU$bmvAmthP7L7xwrOl}#)
(if (if (symbol?
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#)
#t
(if (if (vector?
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#)
(if (= (vector-length
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#)
4)
(eq? (vector-ref
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#
1))
#f))
- (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#
- #{w _hoQGWMnyQPAh3k2jhWLIE}#
+ (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{w -ANAU$bmvAmthP7L7xwrOl}#
#f)
- #{ls _hoQGWMnyQPAh3k2jhWLID}#)
- (if (null? #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
- #{ls _hoQGWMnyQPAh3k2jhWLID}#
+ #{ls -ANAU$bmvAmthP7L7xwrOk}#)
+ (if (null? #{vars -ANAU$bmvAmthP7L7xwrOj}#)
+ #{ls -ANAU$bmvAmthP7L7xwrOk}#
(if (if (vector?
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#)
(if (= (vector-length
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#)
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#)
4)
(eq? (vector-ref
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#
0)
'syntax-object)
#f)
#f)
- (#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
+ (#{lvl -ANAU$bmvAmthP7L7xwrOh}#
(vector-ref
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#
1)
- #{ls _hoQGWMnyQPAh3k2jhWLID}#
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWLIE}#
+ #{ls -ANAU$bmvAmthP7L7xwrOk}#
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwrOl}#
(vector-ref
- #{vars _hoQGWMnyQPAh3k2jhWLIC}#
+ #{vars -ANAU$bmvAmthP7L7xwrOj}#
2)))
- (cons #{vars _hoQGWMnyQPAh3k2jhWLIC}#
- #{ls _hoQGWMnyQPAh3k2jhWLID}#))))))))
- (#{lvl _hoQGWMnyQPAh3k2jhWLIA}#
- #{args _hoQGWMnyQPAh3k2jhWLFp}#
+ (cons #{vars -ANAU$bmvAmthP7L7xwrOj}#
+ #{ls -ANAU$bmvAmthP7L7xwrOk}#))))))))
+ (#{lvl -ANAU$bmvAmthP7L7xwrOh}#
+ #{args -ANAU$bmvAmthP7L7xwrMK}#
'()
'(()))))
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWLFk}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrMF}#)
#f)
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLIw}#
- #{args _hoQGWMnyQPAh3k2jhWLIx}#
- #{e1 _hoQGWMnyQPAh3k2jhWLIy}#
- #{e2 _hoQGWMnyQPAh3k2jhWLIz}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrPR}#
+ #{args -ANAU$bmvAmthP7L7xwrPS}#
+ #{e1 -ANAU$bmvAmthP7L7xwrPT}#
+ #{e2 -ANAU$bmvAmthP7L7xwrPU}#)
(values
'define-form
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{name _hoQGWMnyQPAh3k2jhWLIw}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWLI5}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{name -ANAU$bmvAmthP7L7xwrPR}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
+ (let ((#{e -ANAU$bmvAmthP7L7xwrPa}#
(cons '#(syntax-object
lambda
((top)
@@ -1981,10 +1969,10 @@
(top)
(top)
(top))
- #("29f"
- "29g"
- "29h"
- "29i"))
+ #("l7"
+ "l8"
+ "l9"
+ "la"))
#(ribcage
()
()
@@ -2006,12 +1994,12 @@
(top)
(top)
(top))
- #("28w"
- "28x"
- "28y"
- "28z"
- "290"
- "291"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage
()
()
@@ -2019,7 +2007,7 @@
#(ribcage
#(first)
#((top))
- #("28v"))
+ #("kn"))
#(ribcage
()
()
@@ -2047,13 +2035,13 @@
(top)
(top)
(top))
- #("28l"
- "28m"
- "28n"
- "28o"
- "28p"
- "28q"
- "28r"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -2335,146 +2323,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2482,72 +2470,72 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8"
+ "7"
+ "6")))
(hygiene
guile))
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- (cons #{args _hoQGWMnyQPAh3k2jhWLIx}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWLIy}#
- #{e2 _hoQGWMnyQPAh3k2jhWLIz}#))
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))
+ (#{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 _hoQGWMnyQPAh3k2jhWLI5}#)
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrPa}#)
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLI5}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#))
- #{e _hoQGWMnyQPAh3k2jhWLI5}#))
+ #{e -ANAU$bmvAmthP7L7xwrPa}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#))
+ #{e -ANAU$bmvAmthP7L7xwrPa}#))
'(())
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLFk}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJA}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrMF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrPh}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJA}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrPh}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLJE}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrPl}#)
(if (symbol?
- #{name _hoQGWMnyQPAh3k2jhWLJE}#)
+ #{name -ANAU$bmvAmthP7L7xwrPl}#)
#t
(if (if (vector?
- #{name _hoQGWMnyQPAh3k2jhWLJE}#)
+ #{name -ANAU$bmvAmthP7L7xwrPl}#)
(if (= (vector-length
- #{name _hoQGWMnyQPAh3k2jhWLJE}#)
+ #{name -ANAU$bmvAmthP7L7xwrPl}#)
4)
(eq? (vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLJE}#
+ #{name -ANAU$bmvAmthP7L7xwrPl}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLJE}#
+ #{name -ANAU$bmvAmthP7L7xwrPl}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWLJA}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrPh}#)
#f)
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLJf}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrQA}#)
(values
'define-form
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{name _hoQGWMnyQPAh3k2jhWLJf}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{name -ANAU$bmvAmthP7L7xwrQA}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("29k"))
+ #("lc"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2563,17 +2551,17 @@
(top)
(top)
(top))
- #("28w"
- "28x"
- "28y"
- "28z"
- "290"
- "291"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("28v"))
+ #("kn"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2592,13 +2580,13 @@
(top)
(top)
(top))
- #("28l"
- "28m"
- "28n"
- "28o"
- "28p"
- "28q"
- "28r"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -2880,146 +2868,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3027,9 +3015,7 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
#(syntax-object
#f
@@ -3037,7 +3023,7 @@
#(ribcage
#(name)
#((top))
- #("29k"))
+ #("lc"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3053,17 +3039,17 @@
(top)
(top)
(top))
- #("28w"
- "28x"
- "28y"
- "28z"
- "290"
- "291"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("28v"))
+ #("kn"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3082,13 +3068,13 @@
(top)
(top)
(top))
- #("28l"
- "28m"
- "28n"
- "28o"
- "28p"
- "28q"
- "28r"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -3370,146 +3356,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3517,9 +3503,7 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
#(syntax-object
#f
@@ -3527,7 +3511,7 @@
#(ribcage
#(name)
#((top))
- #("29k"))
+ #("lc"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3543,17 +3527,17 @@
(top)
(top)
(top))
- #("28w"
- "28x"
- "28y"
- "28z"
- "290"
- "291"))
+ #("ko"
+ "kp"
+ "kq"
+ "kr"
+ "ks"
+ "kt"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("28v"))
+ #("kn"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3572,13 +3556,13 @@
(top)
(top)
(top))
- #("28l"
- "28m"
- "28n"
- "28o"
- "28p"
- "28q"
- "28r"))
+ #("kd"
+ "ke"
+ "kf"
+ "kg"
+ "kh"
+ "ki"
+ "kj"))
#(ribcage
(lambda-var-list
gen-var
@@ -3860,146 +3844,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -4007,363 +3991,361 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))
'(())
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLJA}#)
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrPh}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWLDn}#)))))))
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#)))))))
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
'define-syntax)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJy}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJy}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLJ2}#
- #{val _hoQGWMnyQPAh3k2jhWLJ3}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrQX}#
+ #{val -ANAU$bmvAmthP7L7xwrQY}#)
(if (symbol?
- #{name _hoQGWMnyQPAh3k2jhWLJ2}#)
+ #{name -ANAU$bmvAmthP7L7xwrQX}#)
#t
(if (if (vector?
- #{name _hoQGWMnyQPAh3k2jhWLJ2}#)
+ #{name -ANAU$bmvAmthP7L7xwrQX}#)
(if (= (vector-length
- #{name _hoQGWMnyQPAh3k2jhWLJ2}#)
+ #{name -ANAU$bmvAmthP7L7xwrQX}#)
4)
(eq? (vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLJ2}#
+ #{name -ANAU$bmvAmthP7L7xwrQX}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLJ2}#
+ #{name -ANAU$bmvAmthP7L7xwrQX}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWLJy}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrQT}#)
#f)
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLKS}#
- #{val _hoQGWMnyQPAh3k2jhWLKT}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrQz}#
+ #{val -ANAU$bmvAmthP7L7xwrQ0}#)
(values
'define-syntax-form
- #{name _hoQGWMnyQPAh3k2jhWLKS}#
- #{val _hoQGWMnyQPAh3k2jhWLKT}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLJy}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLDn}#)))
- (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#)))
+ (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}#
'define-syntax-parameter)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLKe}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrQ@}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
'(_ any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWLKe}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwrQ@}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLKi}#
- #{val _hoQGWMnyQPAh3k2jhWLKj}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrRD}#
+ #{val -ANAU$bmvAmthP7L7xwrRE}#)
(if (symbol?
- #{name _hoQGWMnyQPAh3k2jhWLKi}#)
+ #{name -ANAU$bmvAmthP7L7xwrRD}#)
#t
(if (if (vector?
- #{name _hoQGWMnyQPAh3k2jhWLKi}#)
+ #{name -ANAU$bmvAmthP7L7xwrRD}#)
(if (= (vector-length
- #{name _hoQGWMnyQPAh3k2jhWLKi}#)
+ #{name -ANAU$bmvAmthP7L7xwrRD}#)
4)
(eq? (vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLKi}#
+ #{name -ANAU$bmvAmthP7L7xwrRD}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name _hoQGWMnyQPAh3k2jhWLKi}#
+ #{name -ANAU$bmvAmthP7L7xwrRD}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWLKe}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrQ@}#)
#f)
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWLK$}#
- #{val _hoQGWMnyQPAh3k2jhWLK@}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xwrRf}#
+ #{val -ANAU$bmvAmthP7L7xwrRg}#)
(values
'define-syntax-parameter-form
- #{name _hoQGWMnyQPAh3k2jhWLK$}#
- #{val _hoQGWMnyQPAh3k2jhWLK@}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLKe}#)
+ #{name -ANAU$bmvAmthP7L7xwrRf}#
+ #{val -ANAU$bmvAmthP7L7xwrRg}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#))
+ #{tmp -ANAU$bmvAmthP7L7xwrQ@}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
+ #{e -ANAU$bmvAmthP7L7xwrKI}#)))
(values
'call
#f
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))))))))))))))
- (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
- (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWLDn}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLDn}# 0)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 0)
'syntax-object)
#f)
#f)
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 1)
- #{r _hoQGWMnyQPAh3k2jhWLDo}#
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 2))
- (let ((#{t _hoQGWMnyQPAh3k2jhWLLa}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWLDn}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWLLa}#
- #{t _hoQGWMnyQPAh3k2jhWLLa}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#))
- #{rib _hoQGWMnyQPAh3k2jhWLDr}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWLPF}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 3)))
- (if #{t _hoQGWMnyQPAh3k2jhWLPF}#
- #{t _hoQGWMnyQPAh3k2jhWLPF}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#))
- #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#)
- (if (self-evaluating? #{e _hoQGWMnyQPAh3k2jhWLDn}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)
+ #{e -ANAU$bmvAmthP7L7xwrKI}#
+ #{w -ANAU$bmvAmthP7L7xwrKK}#
+ #{s -ANAU$bmvAmthP7L7xwrKL}#
+ #{mod -ANAU$bmvAmthP7L7xwrKN}#)
(values
'other
#f
- #{e _hoQGWMnyQPAh3k2jhWLDn}#
- #{w _hoQGWMnyQPAh3k2jhWLDp}#
- #{s _hoQGWMnyQPAh3k2jhWLDq}#
- #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))))))
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWLPO}#
- #{r _hoQGWMnyQPAh3k2jhWLPP}#
- #{w _hoQGWMnyQPAh3k2jhWLPQ}#
- #{mod _hoQGWMnyQPAh3k2jhWLPR}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWLPO}#
- #{r _hoQGWMnyQPAh3k2jhWLPP}#
- #{w _hoQGWMnyQPAh3k2jhWLPQ}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWLPO}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwrVv}#
+ #{r -ANAU$bmvAmthP7L7xwrVw}#
+ #{w -ANAU$bmvAmthP7L7xwrVx}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwrVv}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWLPR}#
+ #{mod -ANAU$bmvAmthP7L7xwrVy}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWLRs}#
- #{value _hoQGWMnyQPAh3k2jhWLRt}#
- #{e _hoQGWMnyQPAh3k2jhWLRu}#
- #{w _hoQGWMnyQPAh3k2jhWLRv}#
- #{s _hoQGWMnyQPAh3k2jhWLRw}#
- #{mod _hoQGWMnyQPAh3k2jhWLRx}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWLRs}#
- #{value _hoQGWMnyQPAh3k2jhWLRt}#
- #{e _hoQGWMnyQPAh3k2jhWLRu}#
- #{r _hoQGWMnyQPAh3k2jhWLPP}#
- #{w _hoQGWMnyQPAh3k2jhWLRv}#
- #{s _hoQGWMnyQPAh3k2jhWLRw}#
- #{mod _hoQGWMnyQPAh3k2jhWLRx}#)))))
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- (lambda (#{type _hoQGWMnyQPAh3k2jhWLR0}#
- #{value _hoQGWMnyQPAh3k2jhWLR1}#
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# '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 _hoQGWMnyQPAh3k2jhWLR5}#
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{value _hoQGWMnyQPAh3k2jhWLR1}#)
- (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core)
#t
- (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core-form))
- (#{value _hoQGWMnyQPAh3k2jhWLR1}#
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ (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 _hoQGWMnyQPAh3k2jhWLR1}#
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWLSU}#
- #{r _hoQGWMnyQPAh3k2jhWLSV}#
- #{w _hoQGWMnyQPAh3k2jhWLSW}#
- #{s _hoQGWMnyQPAh3k2jhWLSX}#
- #{mod _hoQGWMnyQPAh3k2jhWLSY}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWLSU}#
- #{r _hoQGWMnyQPAh3k2jhWLSV}#
- #{w _hoQGWMnyQPAh3k2jhWLSW}#
- #{mod _hoQGWMnyQPAh3k2jhWLSY}#)))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ (#{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 _hoQGWMnyQPAh3k2jhWHTn}#
- (let ((#{id _hoQGWMnyQPAh3k2jhWLTj}#
- (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)))
- (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}#
+ (#{expand-application -ANAU$bmvAmthP7L7xwnOG}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwraE}#
+ (car #{e -ANAU$bmvAmthP7L7xwrYX}#)))
+ (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}#
'fun
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{id _hoQGWMnyQPAh3k2jhWLTj}#)
- (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWLTj}#)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{id -ANAU$bmvAmthP7L7xwraE}#)
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#)
(if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWLTj}#)
+ #{id -ANAU$bmvAmthP7L7xwraE}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLTj}#
+ #{id -ANAU$bmvAmthP7L7xwraE}#
0)
'syntax-object)
#f)
#f)
- (syntax->datum #{id _hoQGWMnyQPAh3k2jhWLTj}#)
- #{id _hoQGWMnyQPAh3k2jhWLTj}#)
- #{value _hoQGWMnyQPAh3k2jhWLR1}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ (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 _hoQGWMnyQPAh3k2jhWHTn}#
- (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- (car #{e _hoQGWMnyQPAh3k2jhWLR2}#))
- (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWLR1}#)
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
4)
(eq? (vector-ref
- #{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 1)
- #{value _hoQGWMnyQPAh3k2jhWLR1}#)
- (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#)
+ (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1)
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
+ (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#)
(if (= (vector-length
- #{value _hoQGWMnyQPAh3k2jhWLR1}#)
+ #{value -ANAU$bmvAmthP7L7xwrYW}#)
4)
(eq? (vector-ref
- #{value _hoQGWMnyQPAh3k2jhWLR1}#
+ #{value -ANAU$bmvAmthP7L7xwrYW}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 3)
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'constant)
- (let ((#{exp _hoQGWMnyQPAh3k2jhWLY0}#
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (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 _hoQGWMnyQPAh3k2jhWLR2}#)
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLR5}#
- #{exp _hoQGWMnyQPAh3k2jhWLY0}#))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global)
- (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#
- #{value _hoQGWMnyQPAh3k2jhWLR1}#
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWLZY}#
- #{var _hoQGWMnyQPAh3k2jhWLZZ}#
- #{public? _hoQGWMnyQPAh3k2jhWLZa}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLZY}#
- #{var _hoQGWMnyQPAh3k2jhWLZZ}#
- #{public? _hoQGWMnyQPAh3k2jhWLZa}#))
- (lambda (#{var _hoQGWMnyQPAh3k2jhWLZj}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLR5}#
- #{var _hoQGWMnyQPAh3k2jhWLZj}#)))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'call)
- (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ #{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 _hoQGWMnyQPAh3k2jhWLau}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrhP}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
'(_ any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWLau}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrhP}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLay}#
- #{e2 _hoQGWMnyQPAh3k2jhWLaz}#)
- (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWLay}#
- #{e2 _hoQGWMnyQPAh3k2jhWLaz}#)
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLau}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLcK}#
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwrhT}#
+ #{e2 -ANAU$bmvAmthP7L7xwrhU}#)
+ (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#
+ (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 _hoQGWMnyQPAh3k2jhWLR2}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
'(_))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWLcK}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrir}#
(@apply
(lambda ()
(if (include-deprecated-features)
@@ -4376,914 +4358,914 @@
(syntax-violation
#f
"sequence of zero expressions"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWLcK}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLR2}#)))))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)))))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'local-syntax-form)
- (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
- #{value _hoQGWMnyQPAh3k2jhWLR1}#
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#
- #{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ (#{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 -ANAU$bmvAmthP7L7xwnN@}#)
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'eval-when-form)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLd5}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrka}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
'(_ each-any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWLd5}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrka}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWLd9}#
- #{e1 _hoQGWMnyQPAh3k2jhWLd$}#
- #{e2 _hoQGWMnyQPAh3k2jhWLd@}#)
- (let ((#{when-list _hoQGWMnyQPAh3k2jhWLeA}#
- (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}#
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{x _hoQGWMnyQPAh3k2jhWLd9}#)))
+ (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 _hoQGWMnyQPAh3k2jhWLeA}#)
- (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWLd$}#
- #{e2 _hoQGWMnyQPAh3k2jhWLd@}#)
- #{r _hoQGWMnyQPAh3k2jhWLR3}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#)
+ #{when-list -ANAU$bmvAmthP7L7xwrkh}#)
+ (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#
+ (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 _hoQGWMnyQPAh3k2jhWLd5}#)
+ #{tmp -ANAU$bmvAmthP7L7xwrka}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWLR2}#)))
- (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)))
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'define-form)
#t
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'define-syntax-form)
#t
- (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{value _hoQGWMnyQPAh3k2jhWLR1}#
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ #{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 _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}#
+ #{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 _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#
+ #{s -ANAU$bmvAmthP7L7xwrYa}#))
+ #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{w -ANAU$bmvAmthP7L7xwrYZ}#
+ #{mod -ANAU$bmvAmthP7L7xwrYb}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{s _hoQGWMnyQPAh3k2jhWLR5}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#)
+ #{s -ANAU$bmvAmthP7L7xwrYa}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLR2}#
- #{s _hoQGWMnyQPAh3k2jhWLR5}#))
- #{e _hoQGWMnyQPAh3k2jhWLR2}#)
- #{w _hoQGWMnyQPAh3k2jhWLR4}#
- #{mod _hoQGWMnyQPAh3k2jhWLR6}#))))))))))))))))))
- (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWLhw}#
- #{e _hoQGWMnyQPAh3k2jhWLhx}#
- #{r _hoQGWMnyQPAh3k2jhWLhy}#
- #{w _hoQGWMnyQPAh3k2jhWLhz}#
- #{s _hoQGWMnyQPAh3k2jhWLh0}#
- #{mod _hoQGWMnyQPAh3k2jhWLh1}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWLh3}#
+ #{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 _hoQGWMnyQPAh3k2jhWLhx}#
+ #{e -ANAU$bmvAmthP7L7xwroS}#
'(any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWLh3}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwroY}#
(@apply
- (lambda (#{e0 _hoQGWMnyQPAh3k2jhWLh7}#
- #{e1 _hoQGWMnyQPAh3k2jhWLh8}#)
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
- #{s _hoQGWMnyQPAh3k2jhWLh0}#
- #{x _hoQGWMnyQPAh3k2jhWLhw}#
- (map (lambda (#{e _hoQGWMnyQPAh3k2jhWLjM}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{e _hoQGWMnyQPAh3k2jhWLjM}#
- #{r _hoQGWMnyQPAh3k2jhWLhy}#
- #{w _hoQGWMnyQPAh3k2jhWLhz}#
- #{mod _hoQGWMnyQPAh3k2jhWLh1}#))
- #{e1 _hoQGWMnyQPAh3k2jhWLh8}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWLh3}#)
+ (lambda (#{e0 -ANAU$bmvAmthP7L7xwroc}#
+ #{e1 -ANAU$bmvAmthP7L7xwrod}#)
+ (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ #{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 _hoQGWMnyQPAh3k2jhWLhx}#)))))
- (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
- (lambda (#{p _hoQGWMnyQPAh3k2jhWLkY}#
- #{e _hoQGWMnyQPAh3k2jhWLkZ}#
- #{r _hoQGWMnyQPAh3k2jhWLka}#
- #{w _hoQGWMnyQPAh3k2jhWLkb}#
- #{s _hoQGWMnyQPAh3k2jhWLkc}#
- #{rib _hoQGWMnyQPAh3k2jhWLkd}#
- #{mod _hoQGWMnyQPAh3k2jhWLke}#)
+ #{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 -ANAU$bmvAmthP7L7xwrq@}#)
(letrec*
- ((#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWLlA}#
- #{m _hoQGWMnyQPAh3k2jhWLlB}#)
- (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWLlF}#
- (cons (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
- (car #{x _hoQGWMnyQPAh3k2jhWLlA}#)
- #{m _hoQGWMnyQPAh3k2jhWLlB}#)
- (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWLlA}#)
- #{m _hoQGWMnyQPAh3k2jhWLlB}#))))
+ ((#{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 _hoQGWMnyQPAh3k2jhWLlF}#)
- #{s _hoQGWMnyQPAh3k2jhWLkc}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#)
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLlF}#
- #{s _hoQGWMnyQPAh3k2jhWLkc}#))
- #{e _hoQGWMnyQPAh3k2jhWLlF}#))
- (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLlA}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 0)
'syntax-object)
#f)
#f)
- (let ((#{w _hoQGWMnyQPAh3k2jhWLlV}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 2)))
- (let ((#{ms _hoQGWMnyQPAh3k2jhWLlW}#
- (car #{w _hoQGWMnyQPAh3k2jhWLlV}#))
- (#{s _hoQGWMnyQPAh3k2jhWLlX}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWLlV}#)))
- (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWLlW}#)
- (eq? (car #{ms _hoQGWMnyQPAh3k2jhWLlW}#) #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 _hoQGWMnyQPAh3k2jhWLlf}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 1))
- (#{wrap _hoQGWMnyQPAh3k2jhWLlg}#
- (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWLlW}#)
- (if #{rib _hoQGWMnyQPAh3k2jhWLkd}#
- (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}#
- (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#))
- (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#))))
- (#{module _hoQGWMnyQPAh3k2jhWLlh}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 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 _hoQGWMnyQPAh3k2jhWLlf}#
- #{wrap _hoQGWMnyQPAh3k2jhWLlg}#
- #{module _hoQGWMnyQPAh3k2jhWLlh}#))
- (let ((#{expression _hoQGWMnyQPAh3k2jhWLlr}#
- (let ((#{e _hoQGWMnyQPAh3k2jhWLlw}#
+ #{expression -ANAU$bmvAmthP7L7xwrsA}#
+ #{wrap -ANAU$bmvAmthP7L7xwrsB}#
+ #{module -ANAU$bmvAmthP7L7xwrsC}#))
+ (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}#
+ (let ((#{e -ANAU$bmvAmthP7L7xwrsR}#
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWLlA}#
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
1)))
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlw}#)
- #{s _hoQGWMnyQPAh3k2jhWLlX}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsR}#)
+ #{s -ANAU$bmvAmthP7L7xwrr4}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLlw}#
- #{s _hoQGWMnyQPAh3k2jhWLlX}#))
- #{e _hoQGWMnyQPAh3k2jhWLlw}#)))
- (#{wrap _hoQGWMnyQPAh3k2jhWLls}#
- (cons (cons #{m _hoQGWMnyQPAh3k2jhWLlB}#
- #{ms _hoQGWMnyQPAh3k2jhWLlW}#)
- (if #{rib _hoQGWMnyQPAh3k2jhWLkd}#
- (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}#
+ #{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 _hoQGWMnyQPAh3k2jhWLlX}#))
+ #{s -ANAU$bmvAmthP7L7xwrr4}#))
(cons 'shift
- #{s _hoQGWMnyQPAh3k2jhWLlX}#))))
- (#{module _hoQGWMnyQPAh3k2jhWLlt}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3)))
+ #{s -ANAU$bmvAmthP7L7xwrr4}#))))
+ (#{module -ANAU$bmvAmthP7L7xwrsO}#
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3)))
(vector
'syntax-object
- #{expression _hoQGWMnyQPAh3k2jhWLlr}#
- #{wrap _hoQGWMnyQPAh3k2jhWLls}#
- #{module _hoQGWMnyQPAh3k2jhWLlt}#)))))
- (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
- (let ((#{n _hoQGWMnyQPAh3k2jhWLl8}#
- (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#)))
- (let ((#{v _hoQGWMnyQPAh3k2jhWLl9}#
- (let ((#{e _hoQGWMnyQPAh3k2jhWLmF}#
+ #{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 _hoQGWMnyQPAh3k2jhWLl8}#)))
+ #{n -ANAU$bmvAmthP7L7xwrsd}#)))
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLmF}#)
- #{x _hoQGWMnyQPAh3k2jhWLlA}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsm}#)
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLmF}#
- #{x _hoQGWMnyQPAh3k2jhWLlA}#))
- #{e _hoQGWMnyQPAh3k2jhWLmF}#))))
+ #{e -ANAU$bmvAmthP7L7xwrsm}#
+ #{x -ANAU$bmvAmthP7L7xwrrh}#))
+ #{e -ANAU$bmvAmthP7L7xwrsm}#))))
(letrec*
- ((#{loop _hoQGWMnyQPAh3k2jhWLl$}#
- (lambda (#{i _hoQGWMnyQPAh3k2jhWLmy}#)
- (if (= #{i _hoQGWMnyQPAh3k2jhWLmy}#
- #{n _hoQGWMnyQPAh3k2jhWLl8}#)
- #{v _hoQGWMnyQPAh3k2jhWLl9}#
+ ((#{loop -ANAU$bmvAmthP7L7xwrsf}#
+ (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#)
+ (if (= #{i -ANAU$bmvAmthP7L7xwrtT}#
+ #{n -ANAU$bmvAmthP7L7xwrsd}#)
+ #{v -ANAU$bmvAmthP7L7xwrse}#
(begin
(vector-set!
- #{v _hoQGWMnyQPAh3k2jhWLl9}#
- #{i _hoQGWMnyQPAh3k2jhWLmy}#
- (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
+ #{v -ANAU$bmvAmthP7L7xwrse}#
+ #{i -ANAU$bmvAmthP7L7xwrtT}#
+ (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWLlA}#
- #{i _hoQGWMnyQPAh3k2jhWLmy}#)
- #{m _hoQGWMnyQPAh3k2jhWLlB}#))
- (#{loop _hoQGWMnyQPAh3k2jhWLl$}#
- (#{1+}# #{i _hoQGWMnyQPAh3k2jhWLmy}#)))))))
- (#{loop _hoQGWMnyQPAh3k2jhWLl$}# 0))))
- (if (symbol? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLm4}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#)))
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
- #{s _hoQGWMnyQPAh3k2jhWLm4}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{s -ANAU$bmvAmthP7L7xwrtZ}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLkZ}#
- #{s _hoQGWMnyQPAh3k2jhWLm4}#))
- #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
- #{w _hoQGWMnyQPAh3k2jhWLkb}#
- #{mod _hoQGWMnyQPAh3k2jhWLke}#))
- #{x _hoQGWMnyQPAh3k2jhWLlA}#)
+ #{e -ANAU$bmvAmthP7L7xwrq6}#
+ #{s -ANAU$bmvAmthP7L7xwrtZ}#))
+ #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{w -ANAU$bmvAmthP7L7xwrq8}#
+ #{mod -ANAU$bmvAmthP7L7xwrq@}#))
+ #{x -ANAU$bmvAmthP7L7xwrrh}#)
(begin
- (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#)
- #{s _hoQGWMnyQPAh3k2jhWLkc}#
+ (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#)
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
#f)
(set-source-properties!
- #{x _hoQGWMnyQPAh3k2jhWLlA}#
- #{s _hoQGWMnyQPAh3k2jhWLkc}#))
- #{x _hoQGWMnyQPAh3k2jhWLlA}#))))))))
+ #{x -ANAU$bmvAmthP7L7xwrrh}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#))
+ #{x -ANAU$bmvAmthP7L7xwrrh}#))))))))
(with-fluids
- ((#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#
- (lambda (#{k _hoQGWMnyQPAh3k2jhWLkg}#)
- (#{k _hoQGWMnyQPAh3k2jhWLkg}#
- #{e _hoQGWMnyQPAh3k2jhWLkZ}#
- #{r _hoQGWMnyQPAh3k2jhWLka}#
- #{w _hoQGWMnyQPAh3k2jhWLkb}#
- #{s _hoQGWMnyQPAh3k2jhWLkc}#
- #{rib _hoQGWMnyQPAh3k2jhWLkd}#
- #{mod _hoQGWMnyQPAh3k2jhWLke}#))))
- (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}#
- (#{p _hoQGWMnyQPAh3k2jhWLkY}#
- (let ((#{w _hoQGWMnyQPAh3k2jhWLkn}#
- (cons (cons #f (car #{w _hoQGWMnyQPAh3k2jhWLkb}#))
+ ((#{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 -ANAU$bmvAmthP7L7xwrq@}#))))
+ (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}#
+ (#{p -ANAU$bmvAmthP7L7xwrq5}#
+ (let ((#{w -ANAU$bmvAmthP7L7xwrrI}#
+ (cons (cons #f (car #{w -ANAU$bmvAmthP7L7xwrq8}#))
(cons 'shift
- (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#)))))
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#)))))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
- #{s _hoQGWMnyQPAh3k2jhWLkc}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{s -ANAU$bmvAmthP7L7xwrq9}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLkZ}#
- #{s _hoQGWMnyQPAh3k2jhWLkc}#))
- #{e _hoQGWMnyQPAh3k2jhWLkZ}#)
- #{w _hoQGWMnyQPAh3k2jhWLkn}#
- #{mod _hoQGWMnyQPAh3k2jhWLke}#)))
+ #{e -ANAU$bmvAmthP7L7xwrq6}#
+ #{s -ANAU$bmvAmthP7L7xwrq9}#))
+ #{e -ANAU$bmvAmthP7L7xwrq6}#)
+ #{w -ANAU$bmvAmthP7L7xwrrI}#
+ #{mod -ANAU$bmvAmthP7L7xwrq@}#)))
(gensym "m"))))))
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWLnY}#
- #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#
- #{r _hoQGWMnyQPAh3k2jhWLna}#
- #{w _hoQGWMnyQPAh3k2jhWLnb}#
- #{mod _hoQGWMnyQPAh3k2jhWLnc}#)
- (let ((#{r _hoQGWMnyQPAh3k2jhWLnd}#
+ (#{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 _hoQGWMnyQPAh3k2jhWLna}#)))
- (let ((#{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{r -ANAU$bmvAmthP7L7xwrt7}#)))
+ (let ((#{ribcage -ANAU$bmvAmthP7L7xwrt@}#
(vector 'ribcage '() '() '())))
- (let ((#{w _hoQGWMnyQPAh3k2jhWLnf}#
- (cons (car #{w _hoQGWMnyQPAh3k2jhWLnb}#)
- (cons #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWLnb}#)))))
+ (let ((#{w -ANAU$bmvAmthP7L7xwruA}#
+ (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#)
+ (cons #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#)))))
(letrec*
- ((#{parse _hoQGWMnyQPAh3k2jhWLng}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWLnt}#
- #{ids _hoQGWMnyQPAh3k2jhWLnu}#
- #{labels _hoQGWMnyQPAh3k2jhWLnv}#
- #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
- #{vars _hoQGWMnyQPAh3k2jhWLnx}#
- #{vals _hoQGWMnyQPAh3k2jhWLny}#
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)
- (if (null? #{body _hoQGWMnyQPAh3k2jhWLnt}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWLnZ}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWLn0}#
- (cdr (car #{body _hoQGWMnyQPAh3k2jhWLnt}#)))
- (#{er _hoQGWMnyQPAh3k2jhWLn1}#
- (car (car #{body _hoQGWMnyQPAh3k2jhWLnt}#))))
+ #{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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWLn0}#
- #{er _hoQGWMnyQPAh3k2jhWLn1}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwruV}#
+ #{er -ANAU$bmvAmthP7L7xwruW}#
'(())
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{er _hoQGWMnyQPAh3k2jhWLn1}#)
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
- #{mod _hoQGWMnyQPAh3k2jhWLnc}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{er -ANAU$bmvAmthP7L7xwruW}#)
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
+ #{mod -ANAU$bmvAmthP7L7xwrt9}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWLqS}#
- #{value _hoQGWMnyQPAh3k2jhWLqT}#
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{s _hoQGWMnyQPAh3k2jhWLqW}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
+ (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 _hoQGWMnyQPAh3k2jhWLqb}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{value _hoQGWMnyQPAh3k2jhWLqT}#
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- (#{label _hoQGWMnyQPAh3k2jhWLqc}#
- (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)))
- (let ((#{var _hoQGWMnyQPAh3k2jhWLqd}#
- (let ((#{id _hoQGWMnyQPAh3k2jhWLrX}#
+ (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 _hoQGWMnyQPAh3k2jhWLqb}#)
+ #{id -ANAU$bmvAmthP7L7xwrw8}#)
(if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWLqb}#)
+ #{id -ANAU$bmvAmthP7L7xwrw8}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLqb}#
+ #{id -ANAU$bmvAmthP7L7xwrw8}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLqb}#
+ #{id -ANAU$bmvAmthP7L7xwrw8}#
1)
- #{id _hoQGWMnyQPAh3k2jhWLqb}#)))
+ #{id -ANAU$bmvAmthP7L7xwrw8}#)))
(gensym
(string-append
(symbol->string
- #{id _hoQGWMnyQPAh3k2jhWLrX}#)
+ #{id -ANAU$bmvAmthP7L7xwrx4}#)
" ")))))
(begin
- (let ((#{update _hoQGWMnyQPAh3k2jhWLrN}#
+ (let ((#{update -ANAU$bmvAmthP7L7xwrxu}#
(cons (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLqb}#
+ #{id -ANAU$bmvAmthP7L7xwrw8}#
1)
(vector-ref
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
1))))
(vector-set!
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
1
- #{update _hoQGWMnyQPAh3k2jhWLrN}#))
- (let ((#{update _hoQGWMnyQPAh3k2jhWLrP}#
+ #{update -ANAU$bmvAmthP7L7xwrxu}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrxw}#
(cons (car (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLqb}#
+ #{id -ANAU$bmvAmthP7L7xwrw8}#
2))
(vector-ref
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
2))))
(vector-set!
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
2
- #{update _hoQGWMnyQPAh3k2jhWLrP}#))
- (let ((#{update _hoQGWMnyQPAh3k2jhWLrR}#
- (cons #{label _hoQGWMnyQPAh3k2jhWLqc}#
+ #{update -ANAU$bmvAmthP7L7xwrxw}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrxy}#
+ (cons #{label -ANAU$bmvAmthP7L7xwrw9}#
(vector-ref
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
3))))
(vector-set!
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
3
- #{update _hoQGWMnyQPAh3k2jhWLrR}#))
- (#{parse _hoQGWMnyQPAh3k2jhWLng}#
- (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
- (cons #{id _hoQGWMnyQPAh3k2jhWLqb}#
- #{ids _hoQGWMnyQPAh3k2jhWLnu}#)
- (cons #{label _hoQGWMnyQPAh3k2jhWLqc}#
- #{labels _hoQGWMnyQPAh3k2jhWLnv}#)
- (cons #{id _hoQGWMnyQPAh3k2jhWLqb}#
- #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#)
- (cons #{var _hoQGWMnyQPAh3k2jhWLqd}#
- #{vars _hoQGWMnyQPAh3k2jhWLnx}#)
- (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- #{vals _hoQGWMnyQPAh3k2jhWLny}#)
+ #{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 _hoQGWMnyQPAh3k2jhWLqd}#)
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))))
- (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
+ #{var -ANAU$bmvAmthP7L7xwrw$}#)
+ #{bindings -ANAU$bmvAmthP7L7xwruU}#)))))
+ (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
'define-syntax-form)
#t
- (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
+ (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
'define-syntax-parameter-form))
- (let ((#{id _hoQGWMnyQPAh3k2jhWLr4}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{value _hoQGWMnyQPAh3k2jhWLqT}#
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- (#{label _hoQGWMnyQPAh3k2jhWLr5}#
- (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)))
+ (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 _hoQGWMnyQPAh3k2jhWLsp}#
+ (let ((#{update -ANAU$bmvAmthP7L7xwrzK}#
(cons (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLr4}#
+ #{id -ANAU$bmvAmthP7L7xwryZ}#
1)
(vector-ref
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
1))))
(vector-set!
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
1
- #{update _hoQGWMnyQPAh3k2jhWLsp}#))
- (let ((#{update _hoQGWMnyQPAh3k2jhWLsr}#
+ #{update -ANAU$bmvAmthP7L7xwrzK}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrzM}#
(cons (car (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWLr4}#
+ #{id -ANAU$bmvAmthP7L7xwryZ}#
2))
(vector-ref
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
2))))
(vector-set!
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
2
- #{update _hoQGWMnyQPAh3k2jhWLsr}#))
- (let ((#{update _hoQGWMnyQPAh3k2jhWLst}#
- (cons #{label _hoQGWMnyQPAh3k2jhWLr5}#
+ #{update -ANAU$bmvAmthP7L7xwrzM}#))
+ (let ((#{update -ANAU$bmvAmthP7L7xwrzO}#
+ (cons #{label -ANAU$bmvAmthP7L7xwrya}#
(vector-ref
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
3))))
(vector-set!
- #{ribcage _hoQGWMnyQPAh3k2jhWLne}#
+ #{ribcage -ANAU$bmvAmthP7L7xwrt@}#
3
- #{update _hoQGWMnyQPAh3k2jhWLst}#))
- (#{parse _hoQGWMnyQPAh3k2jhWLng}#
- (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
- (cons #{id _hoQGWMnyQPAh3k2jhWLr4}#
- #{ids _hoQGWMnyQPAh3k2jhWLnu}#)
- (cons #{label _hoQGWMnyQPAh3k2jhWLr5}#
- #{labels _hoQGWMnyQPAh3k2jhWLnv}#)
- #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
- #{vars _hoQGWMnyQPAh3k2jhWLnx}#
- #{vals _hoQGWMnyQPAh3k2jhWLny}#
+ #{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 _hoQGWMnyQPAh3k2jhWLn1}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#)))
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
+ (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 _hoQGWMnyQPAh3k2jhWLs1}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwrzW}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
+ #{e -ANAU$bmvAmthP7L7xwrw1}#
'(_ . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWLs1}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwrzW}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLs5}#)
- (#{parse _hoQGWMnyQPAh3k2jhWLng}#
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwrza}#)
+ (#{parse -ANAU$bmvAmthP7L7xwruB}#
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWLs6}#
- (lambda (#{forms _hoQGWMnyQPAh3k2jhWLt5}#)
- (if (null? #{forms _hoQGWMnyQPAh3k2jhWLt5}#)
- (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
- (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- (car #{forms _hoQGWMnyQPAh3k2jhWLt5}#)
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- (#{f _hoQGWMnyQPAh3k2jhWLs6}#
- (cdr #{forms _hoQGWMnyQPAh3k2jhWLt5}#)))))))
- (#{f _hoQGWMnyQPAh3k2jhWLs6}#
- #{e1 _hoQGWMnyQPAh3k2jhWLs5}#))
- #{ids _hoQGWMnyQPAh3k2jhWLnu}#
- #{labels _hoQGWMnyQPAh3k2jhWLnv}#
- #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
- #{vars _hoQGWMnyQPAh3k2jhWLnx}#
- #{vals _hoQGWMnyQPAh3k2jhWLny}#
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))
- #{tmp _hoQGWMnyQPAh3k2jhWLs1}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWLqU}#)))
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}#
+ #{e -ANAU$bmvAmthP7L7xwrw1}#)))
+ (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}#
'local-syntax-form)
- (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}#
- #{value _hoQGWMnyQPAh3k2jhWLqT}#
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
- #{er _hoQGWMnyQPAh3k2jhWLn1}#
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{s _hoQGWMnyQPAh3k2jhWLqW}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#
- (lambda (#{forms _hoQGWMnyQPAh3k2jhWLuH}#
- #{er _hoQGWMnyQPAh3k2jhWLuI}#
- #{w _hoQGWMnyQPAh3k2jhWLuJ}#
- #{s _hoQGWMnyQPAh3k2jhWLuK}#
- #{mod _hoQGWMnyQPAh3k2jhWLuL}#)
- (#{parse _hoQGWMnyQPAh3k2jhWLng}#
+ (#{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 _hoQGWMnyQPAh3k2jhWLuM}#
- (lambda (#{forms _hoQGWMnyQPAh3k2jhWLvL}#)
- (if (null? #{forms _hoQGWMnyQPAh3k2jhWLvL}#)
- (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)
- (cons (cons #{er _hoQGWMnyQPAh3k2jhWLuI}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- (car #{forms _hoQGWMnyQPAh3k2jhWLvL}#)
- #{w _hoQGWMnyQPAh3k2jhWLuJ}#
- #{mod _hoQGWMnyQPAh3k2jhWLuL}#))
- (#{f _hoQGWMnyQPAh3k2jhWLuM}#
- (cdr #{forms _hoQGWMnyQPAh3k2jhWLvL}#)))))))
- (#{f _hoQGWMnyQPAh3k2jhWLuM}#
- #{forms _hoQGWMnyQPAh3k2jhWLuH}#))
- #{ids _hoQGWMnyQPAh3k2jhWLnu}#
- #{labels _hoQGWMnyQPAh3k2jhWLnv}#
- #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#
- #{vars _hoQGWMnyQPAh3k2jhWLnx}#
- #{vals _hoQGWMnyQPAh3k2jhWLny}#
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))
- (if (null? #{ids _hoQGWMnyQPAh3k2jhWLnu}#)
- (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWLwM}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWLwQ}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWLwM}#))
- (#{r _hoQGWMnyQPAh3k2jhWLwR}#
- (car #{x _hoQGWMnyQPAh3k2jhWLwM}#)))
+ (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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWLwQ}#
- #{r _hoQGWMnyQPAh3k2jhWLwR}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwr2x}#
+ #{r -ANAU$bmvAmthP7L7xwr2y}#
'(())
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWLwQ}#)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwr2x}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWLwV}#
- #{value _hoQGWMnyQPAh3k2jhWLwW}#
- #{e _hoQGWMnyQPAh3k2jhWLwX}#
- #{w _hoQGWMnyQPAh3k2jhWLwY}#
- #{s _hoQGWMnyQPAh3k2jhWLwZ}#
- #{mod _hoQGWMnyQPAh3k2jhWLwa}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWLwV}#
- #{value _hoQGWMnyQPAh3k2jhWLwW}#
- #{e _hoQGWMnyQPAh3k2jhWLwX}#
- #{r _hoQGWMnyQPAh3k2jhWLwR}#
- #{w _hoQGWMnyQPAh3k2jhWLwY}#
- #{s _hoQGWMnyQPAh3k2jhWLwZ}#
- #{mod _hoQGWMnyQPAh3k2jhWLwa}#)))))
- (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (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 _hoQGWMnyQPAh3k2jhWLqU}#)
- #{s _hoQGWMnyQPAh3k2jhWLqW}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#)
+ #{s -ANAU$bmvAmthP7L7xwrw3}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
- #{s _hoQGWMnyQPAh3k2jhWLqW}#))
- #{e _hoQGWMnyQPAh3k2jhWLqU}#)
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#))))
+ #{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? _hoQGWMnyQPAh3k2jhWHTb}#
- #{ids _hoQGWMnyQPAh3k2jhWLnu}#))
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{ids -ANAU$bmvAmthP7L7xwruP}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#))
+ #{outer-form -ANAU$bmvAmthP7L7xwrt6}#))
(letrec*
- ((#{loop _hoQGWMnyQPAh3k2jhWLx@}#
- (lambda (#{bs _hoQGWMnyQPAh3k2jhWLyC}#
- #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#
- #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#)
- (if (not (null? #{bs _hoQGWMnyQPAh3k2jhWLyC}#))
- (let ((#{b _hoQGWMnyQPAh3k2jhWLyF}#
- (car #{bs _hoQGWMnyQPAh3k2jhWLyC}#)))
- (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWLyF}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWLyH}#
- (car (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#))))
- (let ((#{r-cache _hoQGWMnyQPAh3k2jhWLyI}#
- (if (eq? #{er _hoQGWMnyQPAh3k2jhWLyH}#
- #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#)
- #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- #{er _hoQGWMnyQPAh3k2jhWLyH}#))))
+ (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 _hoQGWMnyQPAh3k2jhWLyF}#
- (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- (cdr (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#))
- #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#
+ #{b -ANAU$bmvAmthP7L7xwr4m}#
+ (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ (cdr (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#))
+ #{r-cache -ANAU$bmvAmthP7L7xwr4p}#
'(())
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#)
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- (#{loop _hoQGWMnyQPAh3k2jhWLx@}#
- (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#)
- #{er _hoQGWMnyQPAh3k2jhWLyH}#
- #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#))))
- (#{loop _hoQGWMnyQPAh3k2jhWLx@}#
- (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#)
- #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#
- #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#)))))))
- (#{loop _hoQGWMnyQPAh3k2jhWLx@}#
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#
+ #{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 _hoQGWMnyQPAh3k2jhWLnd}#
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- #{labels _hoQGWMnyQPAh3k2jhWLnv}#
- #{bindings _hoQGWMnyQPAh3k2jhWLnz}#
- (cdr #{r _hoQGWMnyQPAh3k2jhWLnd}#)))
- (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
+ #{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 _hoQGWMnyQPAh3k2jhWLnw}#))
+ #{var-ids -ANAU$bmvAmthP7L7xwruR}#))
(reverse
- #{vars _hoQGWMnyQPAh3k2jhWLnx}#)
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL3f}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWL3j}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWL3f}#))
- (#{r _hoQGWMnyQPAh3k2jhWL3k}#
- (car #{x _hoQGWMnyQPAh3k2jhWL3f}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWL3j}#
- #{r _hoQGWMnyQPAh3k2jhWL3k}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwr$E}#
+ #{r -ANAU$bmvAmthP7L7xwr$F}#
'(())
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWL3j}#)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwr$E}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWL3o}#
- #{value _hoQGWMnyQPAh3k2jhWL3p}#
- #{e _hoQGWMnyQPAh3k2jhWL3q}#
- #{w _hoQGWMnyQPAh3k2jhWL3r}#
- #{s _hoQGWMnyQPAh3k2jhWL3s}#
- #{mod _hoQGWMnyQPAh3k2jhWL3t}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWL3o}#
- #{value _hoQGWMnyQPAh3k2jhWL3p}#
- #{e _hoQGWMnyQPAh3k2jhWL3q}#
- #{r _hoQGWMnyQPAh3k2jhWL3k}#
- #{w _hoQGWMnyQPAh3k2jhWL3r}#
- #{s _hoQGWMnyQPAh3k2jhWL3s}#
- #{mod _hoQGWMnyQPAh3k2jhWL3t}#)))))
+ (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 _hoQGWMnyQPAh3k2jhWLny}#))
- (let ((#{exps _hoQGWMnyQPAh3k2jhWL3z}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL30}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWL33}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWL30}#))
- (#{r _hoQGWMnyQPAh3k2jhWL34}#
- (car #{x _hoQGWMnyQPAh3k2jhWL30}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWL33}#
- #{r _hoQGWMnyQPAh3k2jhWL34}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwr$Y}#
+ #{r -ANAU$bmvAmthP7L7xwr$Z}#
'(())
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWL33}#)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwr$Y}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#
+ #{mod -ANAU$bmvAmthP7L7xwrw4}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWL38}#
- #{value _hoQGWMnyQPAh3k2jhWL39}#
- #{e _hoQGWMnyQPAh3k2jhWL3$}#
- #{w _hoQGWMnyQPAh3k2jhWL3@}#
- #{s _hoQGWMnyQPAh3k2jhWL4A}#
- #{mod _hoQGWMnyQPAh3k2jhWL4B}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWL38}#
- #{value _hoQGWMnyQPAh3k2jhWL39}#
- #{e _hoQGWMnyQPAh3k2jhWL3$}#
- #{r _hoQGWMnyQPAh3k2jhWL34}#
- #{w _hoQGWMnyQPAh3k2jhWL3@}#
- #{s _hoQGWMnyQPAh3k2jhWL4A}#
- #{mod _hoQGWMnyQPAh3k2jhWL4B}#)))))
- (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (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 _hoQGWMnyQPAh3k2jhWLqU}#)
- #{s _hoQGWMnyQPAh3k2jhWLqW}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#)
+ #{s -ANAU$bmvAmthP7L7xwrw3}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWLqU}#
- #{s _hoQGWMnyQPAh3k2jhWLqW}#))
- #{e _hoQGWMnyQPAh3k2jhWLqU}#)
- #{w _hoQGWMnyQPAh3k2jhWLqV}#
- #{mod _hoQGWMnyQPAh3k2jhWLqX}#))
- (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)))))
- (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWL3z}#))
- (car #{exps _hoQGWMnyQPAh3k2jhWL3z}#)
+ #{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 _hoQGWMnyQPAh3k2jhWL3z}#)))))))))))))))))
- (#{parse _hoQGWMnyQPAh3k2jhWLng}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLnj}#)
- (cons #{r _hoQGWMnyQPAh3k2jhWLnd}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{x _hoQGWMnyQPAh3k2jhWLnj}#
- #{w _hoQGWMnyQPAh3k2jhWLnf}#
- #{mod _hoQGWMnyQPAh3k2jhWLnc}#)))
- #{body _hoQGWMnyQPAh3k2jhWLnY}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHTq}#
- (lambda (#{rec? _hoQGWMnyQPAh3k2jhWL4b}#
- #{e _hoQGWMnyQPAh3k2jhWL4c}#
- #{r _hoQGWMnyQPAh3k2jhWL4d}#
- #{w _hoQGWMnyQPAh3k2jhWL4e}#
- #{s _hoQGWMnyQPAh3k2jhWL4f}#
- #{mod _hoQGWMnyQPAh3k2jhWL4g}#
- #{k _hoQGWMnyQPAh3k2jhWL4h}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWL4j}#
+ (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}#
+ (lambda (#{rec? -ANAU$bmvAmthP7L7xwr$8}#
+ #{e -ANAU$bmvAmthP7L7xwr$9}#
+ #{r -ANAU$bmvAmthP7L7xwr$$}#
+ #{w -ANAU$bmvAmthP7L7xwr$@}#
+ #{s -ANAU$bmvAmthP7L7xwr@A}#
+ #{mod -ANAU$bmvAmthP7L7xwr@B}#
+ #{k -ANAU$bmvAmthP7L7xwr@C}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwr@E}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWL4c}#
+ #{e -ANAU$bmvAmthP7L7xwr$9}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWL4j}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwr@E}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWL4n}#
- #{val _hoQGWMnyQPAh3k2jhWL4o}#
- #{e1 _hoQGWMnyQPAh3k2jhWL4p}#
- #{e2 _hoQGWMnyQPAh3k2jhWL4q}#)
- (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
- #{id _hoQGWMnyQPAh3k2jhWL4n}#))
+ (lambda (#{id -ANAU$bmvAmthP7L7xwr@I}#
+ #{val -ANAU$bmvAmthP7L7xwr@J}#
+ #{e1 -ANAU$bmvAmthP7L7xwr@K}#
+ #{e2 -ANAU$bmvAmthP7L7xwr@L}#)
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{id -ANAU$bmvAmthP7L7xwr@I}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e _hoQGWMnyQPAh3k2jhWL4c}#)
- (let ((#{labels _hoQGWMnyQPAh3k2jhWL6E}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{id _hoQGWMnyQPAh3k2jhWL4n}#)))
- (let ((#{new-w _hoQGWMnyQPAh3k2jhWL6F}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{id _hoQGWMnyQPAh3k2jhWL4n}#
- #{labels _hoQGWMnyQPAh3k2jhWL6E}#
- #{w _hoQGWMnyQPAh3k2jhWL4e}#)))
- (#{k _hoQGWMnyQPAh3k2jhWL4h}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWL4p}#
- #{e2 _hoQGWMnyQPAh3k2jhWL4q}#)
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- #{labels _hoQGWMnyQPAh3k2jhWL6E}#
- (let ((#{trans-r _hoQGWMnyQPAh3k2jhWL6l}#
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- #{r _hoQGWMnyQPAh3k2jhWL4d}#)))
+ #{e -ANAU$bmvAmthP7L7xwr$9}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwsAl}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ #{id -ANAU$bmvAmthP7L7xwr@I}#)))
+ (let ((#{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{id -ANAU$bmvAmthP7L7xwr@I}#
+ #{labels -ANAU$bmvAmthP7L7xwsAl}#
+ #{w -ANAU$bmvAmthP7L7xwr$@}#)))
+ (#{k -ANAU$bmvAmthP7L7xwr@C}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwr@K}#
+ #{e2 -ANAU$bmvAmthP7L7xwr@L}#)
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ #{labels -ANAU$bmvAmthP7L7xwsAl}#
+ (let ((#{trans-r -ANAU$bmvAmthP7L7xwsBG}#
+ (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}#
+ #{r -ANAU$bmvAmthP7L7xwr$$}#)))
(begin
- (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}#
- #{new-w _hoQGWMnyQPAh3k2jhWL6F}#
- #{w _hoQGWMnyQPAh3k2jhWL4e}#)
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL6m}#)
+ (if #{rec? -ANAU$bmvAmthP7L7xwr$8}#
+ #{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ #{w -ANAU$bmvAmthP7L7xwr$@}#)
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#)
(cons 'macro
- (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWL6m}#
- #{trans-r _hoQGWMnyQPAh3k2jhWL6l}#
+ (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwsBH}#
+ #{trans-r -ANAU$bmvAmthP7L7xwsBG}#
(values
- (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}#
- #{new-w _hoQGWMnyQPAh3k2jhWL6F}#
- #{w _hoQGWMnyQPAh3k2jhWL4e}#))
- #{mod _hoQGWMnyQPAh3k2jhWL4g}#)
- #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))
- #{val _hoQGWMnyQPAh3k2jhWL4o}#)))
- #{r _hoQGWMnyQPAh3k2jhWL4d}#)
- #{new-w _hoQGWMnyQPAh3k2jhWL6F}#
- #{s _hoQGWMnyQPAh3k2jhWL4f}#
- #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWL4j}#)
+ (if #{rec? -ANAU$bmvAmthP7L7xwr$8}#
+ #{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ #{w -ANAU$bmvAmthP7L7xwr$@}#))
+ #{mod -ANAU$bmvAmthP7L7xwr@B}#)
+ #{mod -ANAU$bmvAmthP7L7xwr@B}#)))
+ #{val -ANAU$bmvAmthP7L7xwr@J}#)))
+ #{r -ANAU$bmvAmthP7L7xwr$$}#)
+ #{new-w -ANAU$bmvAmthP7L7xwsAm}#
+ #{s -ANAU$bmvAmthP7L7xwr@A}#
+ #{mod -ANAU$bmvAmthP7L7xwr@B}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwr@E}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWL4c}#)
- #{s _hoQGWMnyQPAh3k2jhWL4f}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#)
+ #{s -ANAU$bmvAmthP7L7xwr@A}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWL4c}#
- #{s _hoQGWMnyQPAh3k2jhWL4f}#))
- #{e _hoQGWMnyQPAh3k2jhWL4c}#)
- #{w _hoQGWMnyQPAh3k2jhWL4e}#
- #{mod _hoQGWMnyQPAh3k2jhWL4g}#))))))
- (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}#
- (lambda (#{expanded _hoQGWMnyQPAh3k2jhWL$6}#
- #{mod _hoQGWMnyQPAh3k2jhWL$7}#)
- (let ((#{p _hoQGWMnyQPAh3k2jhWL$8}#
+ #{e -ANAU$bmvAmthP7L7xwr$9}#
+ #{s -ANAU$bmvAmthP7L7xwr@A}#))
+ #{e -ANAU$bmvAmthP7L7xwr$9}#)
+ #{w -ANAU$bmvAmthP7L7xwr$@}#
+ #{mod -ANAU$bmvAmthP7L7xwr@B}#))))))
+ (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}#
+ (lambda (#{expanded -ANAU$bmvAmthP7L7xwsFb}#
+ #{mod -ANAU$bmvAmthP7L7xwsFc}#)
+ (let ((#{p -ANAU$bmvAmthP7L7xwsFd}#
(primitive-eval
- #{expanded _hoQGWMnyQPAh3k2jhWL$6}#)))
- (if (procedure? #{p _hoQGWMnyQPAh3k2jhWL$8}#)
- #{p _hoQGWMnyQPAh3k2jhWL$8}#
+ #{expanded -ANAU$bmvAmthP7L7xwsFb}#)))
+ (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#)
+ #{p -ANAU$bmvAmthP7L7xwsFd}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p _hoQGWMnyQPAh3k2jhWL$8}#)))))
- (#{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHeC}#)
- (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHeC}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1))
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1))
#f)
- (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#)
+ (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1)
- #{x _hoQGWMnyQPAh3k2jhWHeC}#)
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)
+ #{x -ANAU$bmvAmthP7L7xwnYh}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2de"))
+ #(ribcage #(x) #((top)) #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -5565,152 +5547,152 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))
4)
#t
@@ -5721,7 +5703,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2de"))
+ #(ribcage #(x) #((top)) #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -6003,163 +5985,163 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{x _hoQGWMnyQPAh3k2jhWHeC}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwnYh}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2de"))
+ #(ribcage #(x) #((top)) #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -6441,539 +6423,539 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
#f)))
- (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}#
- (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWL@B}#)
+ (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
+ (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#)
(letrec*
- ((#{req _hoQGWMnyQPAh3k2jhWL@C}#
- (lambda (#{args _hoQGWMnyQPAh3k2jhWL@G}#
- #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWL@J}#
+ ((#{req -ANAU$bmvAmthP7L7xwsFj}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}#
+ #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWL@G}#
+ #{args -ANAU$bmvAmthP7L7xwsFn}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWL@J}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsFq}#
(@apply
(lambda ()
- (#{check _hoQGWMnyQPAh3k2jhWL@D}#
- (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)
+ (#{check -ANAU$bmvAmthP7L7xwsFk}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#)
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWL@J}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBE}#
+ #{tmp -ANAU$bmvAmthP7L7xwsFq}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWL@G}#
+ #{args -ANAU$bmvAmthP7L7xwsFn}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMBE}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMBI}#
- #{b _hoQGWMnyQPAh3k2jhWMBJ}#)
- (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMBI}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}#
+ #{b -ANAU$bmvAmthP7L7xwsHq}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMBI}#)
+ #{a -ANAU$bmvAmthP7L7xwsHp}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMBI}#)
+ #{a -ANAU$bmvAmthP7L7xwsHp}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMBI}#
+ #{a -ANAU$bmvAmthP7L7xwsHp}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMBI}#
+ #{a -ANAU$bmvAmthP7L7xwsHp}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMBE}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsHl}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMBk}#
- #{b _hoQGWMnyQPAh3k2jhWMBl}#)
- (#{req _hoQGWMnyQPAh3k2jhWL@C}#
- #{b _hoQGWMnyQPAh3k2jhWMBl}#
- (cons #{a _hoQGWMnyQPAh3k2jhWMBk}#
- #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMBE}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBm}#
- (list #{args _hoQGWMnyQPAh3k2jhWL@G}#)))
+ (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 _hoQGWMnyQPAh3k2jhWMBo}#)
- (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMBo}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#)
+ (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#)
#t
(if (if (vector?
- #{r _hoQGWMnyQPAh3k2jhWMBo}#)
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#)
(if (= (vector-length
- #{r _hoQGWMnyQPAh3k2jhWMBo}#)
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#)
4)
(eq? (vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMBo}#
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMBo}#
+ #{r -ANAU$bmvAmthP7L7xwsIJ}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMBm}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsIH}#)
(@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMCG}#)
- (#{check _hoQGWMnyQPAh3k2jhWL@D}#
- (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#)
- #{r _hoQGWMnyQPAh3k2jhWMCG}#))
- #{tmp _hoQGWMnyQPAh3k2jhWMBm}#)
+ (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 _hoQGWMnyQPAh3k2jhWL@B}#
- #{args _hoQGWMnyQPAh3k2jhWL@G}#)))))))))
- (#{check _hoQGWMnyQPAh3k2jhWL@D}#
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMEJ}#
- #{rest _hoQGWMnyQPAh3k2jhWMEK}#)
- (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
- (if #{rest _hoQGWMnyQPAh3k2jhWMEK}#
- (cons #{rest _hoQGWMnyQPAh3k2jhWMEK}#
- #{req _hoQGWMnyQPAh3k2jhWMEJ}#)
- #{req _hoQGWMnyQPAh3k2jhWMEJ}#))
+ #{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 _hoQGWMnyQPAh3k2jhWMEJ}#
+ #{req -ANAU$bmvAmthP7L7xwsKq}#
#f
- #{rest _hoQGWMnyQPAh3k2jhWMEK}#
+ #{rest -ANAU$bmvAmthP7L7xwsKr}#
#f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#)))))
- (#{req _hoQGWMnyQPAh3k2jhWL@C}#
- #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsFi}#)))))
+ (#{req -ANAU$bmvAmthP7L7xwsFj}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsFi}#
'()))))
- (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWMF$}#
- #{r _hoQGWMnyQPAh3k2jhWMF@}#
- #{w _hoQGWMnyQPAh3k2jhWMGA}#
- #{s _hoQGWMnyQPAh3k2jhWMGB}#
- #{mod _hoQGWMnyQPAh3k2jhWMGC}#
- #{req _hoQGWMnyQPAh3k2jhWMGD}#
- #{rest _hoQGWMnyQPAh3k2jhWMGE}#
- #{meta _hoQGWMnyQPAh3k2jhWMGF}#
- #{body _hoQGWMnyQPAh3k2jhWMGG}#)
- (let ((#{ids _hoQGWMnyQPAh3k2jhWMGH}#
- (if #{rest _hoQGWMnyQPAh3k2jhWMGE}#
+ (#{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 _hoQGWMnyQPAh3k2jhWMGD}#
- (list #{rest _hoQGWMnyQPAh3k2jhWMGE}#))
- #{req _hoQGWMnyQPAh3k2jhWMGD}#)))
- (let ((#{vars _hoQGWMnyQPAh3k2jhWMGI}#
- (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- #{ids _hoQGWMnyQPAh3k2jhWMGH}#)))
- (let ((#{labels _hoQGWMnyQPAh3k2jhWMGJ}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{ids _hoQGWMnyQPAh3k2jhWMGH}#)))
- (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
- #{s _hoQGWMnyQPAh3k2jhWMGB}#
+ #{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 _hoQGWMnyQPAh3k2jhWMGD}#)
- (if #{rest _hoQGWMnyQPAh3k2jhWMGE}#
- (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMGE}#)
+ #{req -ANAU$bmvAmthP7L7xwsMk}#)
+ (if #{rest -ANAU$bmvAmthP7L7xwsMl}#
+ (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#)
#f)
- #{vars _hoQGWMnyQPAh3k2jhWMGI}#
- #{meta _hoQGWMnyQPAh3k2jhWMGF}#
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- #{body _hoQGWMnyQPAh3k2jhWMGG}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{vars -ANAU$bmvAmthP7L7xwsMp}#
+ #{meta -ANAU$bmvAmthP7L7xwsMm}#
+ (#{expand-body -ANAU$bmvAmthP7L7xwnOI}#
+ #{body -ANAU$bmvAmthP7L7xwsMn}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMF$}#)
- #{s _hoQGWMnyQPAh3k2jhWMGB}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#)
+ #{s -ANAU$bmvAmthP7L7xwsMi}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWMF$}#
- #{s _hoQGWMnyQPAh3k2jhWMGB}#))
- #{e _hoQGWMnyQPAh3k2jhWMF$}#)
- #{w _hoQGWMnyQPAh3k2jhWMGA}#
- #{mod _hoQGWMnyQPAh3k2jhWMGC}#)
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{labels _hoQGWMnyQPAh3k2jhWMGJ}#
- #{vars _hoQGWMnyQPAh3k2jhWMGI}#
- #{r _hoQGWMnyQPAh3k2jhWMF@}#)
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{ids _hoQGWMnyQPAh3k2jhWMGH}#
- #{labels _hoQGWMnyQPAh3k2jhWMGJ}#
- #{w _hoQGWMnyQPAh3k2jhWMGA}#)
- #{mod _hoQGWMnyQPAh3k2jhWMGC}#)))))))
- (#{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}#
- (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMKa}#
- (lambda (#{args _hoQGWMnyQPAh3k2jhWMKh}#
- #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKk}#
+ ((#{req -ANAU$bmvAmthP7L7xwsQ7}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}#
+ #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMKh}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMKk}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsRF}#
(@apply
(lambda ()
- (#{check _hoQGWMnyQPAh3k2jhWMKe}#
- (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
+ (#{check -ANAU$bmvAmthP7L7xwsQ@}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
#f
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMKk}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKq}#
+ #{tmp -ANAU$bmvAmthP7L7xwsRF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMKh}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMKq}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMKu}#
- #{b _hoQGWMnyQPAh3k2jhWMKv}#)
- (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMKu}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}#
+ #{b -ANAU$bmvAmthP7L7xwsRQ}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMKu}#)
+ #{a -ANAU$bmvAmthP7L7xwsRP}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMKu}#)
+ #{a -ANAU$bmvAmthP7L7xwsRP}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMKu}#
+ #{a -ANAU$bmvAmthP7L7xwsRP}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMKu}#
+ #{a -ANAU$bmvAmthP7L7xwsRP}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMKq}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsRL}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLK}#
- #{b _hoQGWMnyQPAh3k2jhWMLL}#)
- (#{req _hoQGWMnyQPAh3k2jhWMKa}#
- #{b _hoQGWMnyQPAh3k2jhWMLL}#
- (cons #{a _hoQGWMnyQPAh3k2jhWMLK}#
- #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMKq}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLM}#
+ (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 _hoQGWMnyQPAh3k2jhWMKh}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLM}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLQ}#
- #{b _hoQGWMnyQPAh3k2jhWMLR}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}#
+ #{b -ANAU$bmvAmthP7L7xwsRy}#)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMLQ}#)
+ #{a -ANAU$bmvAmthP7L7xwsRx}#)
#:optional))
- #{tmp _hoQGWMnyQPAh3k2jhWMLM}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLS}#
- #{b _hoQGWMnyQPAh3k2jhWMLT}#)
- (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
- #{b _hoQGWMnyQPAh3k2jhWMLT}#
- (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}#
+ #{b -ANAU$bmvAmthP7L7xwsR0}#)
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ #{b -ANAU$bmvAmthP7L7xwsR0}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMLM}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLW}#
+ #{tmp -ANAU$bmvAmthP7L7xwsRt}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMKh}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLW}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLa}#
- #{b _hoQGWMnyQPAh3k2jhWMLb}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}#
+ #{b -ANAU$bmvAmthP7L7xwsR8}#)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMLa}#)
+ #{a -ANAU$bmvAmthP7L7xwsR7}#)
#:key))
- #{tmp _hoQGWMnyQPAh3k2jhWMLW}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLc}#
- #{b _hoQGWMnyQPAh3k2jhWMLd}#)
- (#{key _hoQGWMnyQPAh3k2jhWMKc}#
- #{b _hoQGWMnyQPAh3k2jhWMLd}#
- (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}#
+ #{b -ANAU$bmvAmthP7L7xwsR$}#)
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsR$}#
+ (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMLW}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLg}#
+ #{tmp -ANAU$bmvAmthP7L7xwsR3}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMKh}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#
'(any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLg}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLk}#
- #{b _hoQGWMnyQPAh3k2jhWMLl}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}#
+ #{b -ANAU$bmvAmthP7L7xwsSG}#)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMLk}#)
+ #{a -ANAU$bmvAmthP7L7xwsSF}#)
#:rest))
- #{tmp _hoQGWMnyQPAh3k2jhWMLg}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMLm}#
- #{b _hoQGWMnyQPAh3k2jhWMLn}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{b _hoQGWMnyQPAh3k2jhWMLn}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}#
+ #{b -ANAU$bmvAmthP7L7xwsSI}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{b -ANAU$bmvAmthP7L7xwsSI}#
(reverse
- #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
+ #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMLg}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLq}#
- (list #{args _hoQGWMnyQPAh3k2jhWMKh}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsSB}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}#
+ (list #{args -ANAU$bmvAmthP7L7xwsRC}#)))
(if (@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMLs}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsSN}#)
(if (symbol?
- #{r _hoQGWMnyQPAh3k2jhWMLs}#)
+ #{r -ANAU$bmvAmthP7L7xwsSN}#)
#t
(if (if (vector?
- #{r _hoQGWMnyQPAh3k2jhWMLs}#)
+ #{r -ANAU$bmvAmthP7L7xwsSN}#)
(if (= (vector-length
- #{r _hoQGWMnyQPAh3k2jhWMLs}#)
+ #{r -ANAU$bmvAmthP7L7xwsSN}#)
4)
(eq? (vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMLs}#
+ #{r -ANAU$bmvAmthP7L7xwsSN}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMLs}#
+ #{r -ANAU$bmvAmthP7L7xwsSN}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMLq}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
(@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMMK}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{r _hoQGWMnyQPAh3k2jhWMMK}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsSr}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsSr}#
(reverse
- #{rreq _hoQGWMnyQPAh3k2jhWMKi}#)
+ #{rreq -ANAU$bmvAmthP7L7xwsRD}#)
'()
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMLq}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsSL}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
- #{args _hoQGWMnyQPAh3k2jhWMKh}#)))))))))))))))
- (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
- (lambda (#{args _hoQGWMnyQPAh3k2jhWMMd}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
- #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMh}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
+ #{args -ANAU$bmvAmthP7L7xwsRC}#)))))))))))))))
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ (lambda (#{args -ANAU$bmvAmthP7L7xwsS$}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsTC}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMMd}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMMh}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsTC}#
(@apply
(lambda ()
- (#{check _hoQGWMnyQPAh3k2jhWMKe}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
- (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
+ (#{check -ANAU$bmvAmthP7L7xwsQ@}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
+ (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
#f
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMMh}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMn}#
+ #{tmp -ANAU$bmvAmthP7L7xwsTC}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMMd}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMMn}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMMr}#
- #{b _hoQGWMnyQPAh3k2jhWMMs}#)
- (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMMr}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}#
+ #{b -ANAU$bmvAmthP7L7xwsTN}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMMr}#)
+ #{a -ANAU$bmvAmthP7L7xwsTM}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMMr}#)
+ #{a -ANAU$bmvAmthP7L7xwsTM}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMMr}#
+ #{a -ANAU$bmvAmthP7L7xwsTM}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMMr}#
+ #{a -ANAU$bmvAmthP7L7xwsTM}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMMn}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMNH}#
- #{b _hoQGWMnyQPAh3k2jhWMNI}#)
- (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
- #{b _hoQGWMnyQPAh3k2jhWMNI}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
- (cons (cons #{a _hoQGWMnyQPAh3k2jhWMNH}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}#
+ #{b -ANAU$bmvAmthP7L7xwsTp}#)
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ #{b -ANAU$bmvAmthP7L7xwsTp}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
+ (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("2f1" "2f2"))
+ #("qt" "qu"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("2ew" "2ex" "2ey"))
+ #("qo" "qp" "qq"))
#(ribcage
(check rest key opt req)
((top)
@@ -6981,15 +6963,11 @@
(top)
(top)
(top))
- ("2ea"
- "2e9"
- "2e8"
- "2e7"
- "2e6"))
+ ("q2" "q1" "q0" "pz" "py"))
#(ribcage
#(orig-args)
#((top))
- #("2e5"))
+ #("px"))
#(ribcage
(lambda-var-list
gen-var
@@ -7271,338 +7249,338 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMMn}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNJ}#
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsTI}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMMd}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'((any any) . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMNN}#
- #{init _hoQGWMnyQPAh3k2jhWMNO}#
- #{b _hoQGWMnyQPAh3k2jhWMNP}#)
- (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMNN}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}#
+ #{init -ANAU$bmvAmthP7L7xwsTv}#
+ #{b -ANAU$bmvAmthP7L7xwsTw}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMNN}#)
+ #{a -ANAU$bmvAmthP7L7xwsTu}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMNN}#)
+ #{a -ANAU$bmvAmthP7L7xwsTu}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMNN}#
+ #{a -ANAU$bmvAmthP7L7xwsTu}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMNN}#
+ #{a -ANAU$bmvAmthP7L7xwsTu}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMNq}#
- #{init _hoQGWMnyQPAh3k2jhWMNr}#
- #{b _hoQGWMnyQPAh3k2jhWMNs}#)
- (#{opt _hoQGWMnyQPAh3k2jhWMKb}#
- #{b _hoQGWMnyQPAh3k2jhWMNs}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
- (cons (list #{a _hoQGWMnyQPAh3k2jhWMNq}#
- #{init _hoQGWMnyQPAh3k2jhWMNr}#)
- #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNt}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUL}#
+ #{init -ANAU$bmvAmthP7L7xwsUM}#
+ #{b -ANAU$bmvAmthP7L7xwsUN}#)
+ (#{opt -ANAU$bmvAmthP7L7xwsQ8}#
+ #{b -ANAU$bmvAmthP7L7xwsUN}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
+ (cons (list #{a -ANAU$bmvAmthP7L7xwsUL}#
+ #{init -ANAU$bmvAmthP7L7xwsUM}#)
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsTq}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsUO}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMMd}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNt}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMNx}#
- #{b _hoQGWMnyQPAh3k2jhWMNy}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}#
+ #{b -ANAU$bmvAmthP7L7xwsUT}#)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMNx}#)
+ #{a -ANAU$bmvAmthP7L7xwsUS}#)
#:key))
- #{tmp _hoQGWMnyQPAh3k2jhWMNt}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMNz}#
- #{b _hoQGWMnyQPAh3k2jhWMN0}#)
- (#{key _hoQGWMnyQPAh3k2jhWMKc}#
- #{b _hoQGWMnyQPAh3k2jhWMN0}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
- (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}#
+ #{b -ANAU$bmvAmthP7L7xwsUV}#)
+ (#{key -ANAU$bmvAmthP7L7xwsQ9}#
+ #{b -ANAU$bmvAmthP7L7xwsUV}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
+ (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMNt}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMN3}#
+ #{tmp -ANAU$bmvAmthP7L7xwsUO}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMMd}#
+ #{args -ANAU$bmvAmthP7L7xwsS$}#
'(any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMN3}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMN7}#
- #{b _hoQGWMnyQPAh3k2jhWMN8}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}#
+ #{b -ANAU$bmvAmthP7L7xwsUd}#)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMN7}#)
+ #{a -ANAU$bmvAmthP7L7xwsUc}#)
#:rest))
- #{tmp _hoQGWMnyQPAh3k2jhWMN3}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMN9}#
- #{b _hoQGWMnyQPAh3k2jhWMN$}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{b _hoQGWMnyQPAh3k2jhWMN$}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}#
+ #{b -ANAU$bmvAmthP7L7xwsUf}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{b -ANAU$bmvAmthP7L7xwsUf}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
(reverse
- #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMN3}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMOB}#
- (list #{args _hoQGWMnyQPAh3k2jhWMMd}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsUY}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}#
+ (list #{args -ANAU$bmvAmthP7L7xwsS$}#)))
(if (@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMOD}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsUk}#)
(if (symbol?
- #{r _hoQGWMnyQPAh3k2jhWMOD}#)
+ #{r -ANAU$bmvAmthP7L7xwsUk}#)
#t
(if (if (vector?
- #{r _hoQGWMnyQPAh3k2jhWMOD}#)
+ #{r -ANAU$bmvAmthP7L7xwsUk}#)
(if (= (vector-length
- #{r _hoQGWMnyQPAh3k2jhWMOD}#)
+ #{r -ANAU$bmvAmthP7L7xwsUk}#)
4)
(eq? (vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMOD}#
+ #{r -ANAU$bmvAmthP7L7xwsUk}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMOD}#
+ #{r -ANAU$bmvAmthP7L7xwsUk}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMOB}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
(@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMOh}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{r _hoQGWMnyQPAh3k2jhWMOh}#
- #{req _hoQGWMnyQPAh3k2jhWMMe}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsVC}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsVC}#
+ #{req -ANAU$bmvAmthP7L7xwsS@}#
(reverse
- #{ropt _hoQGWMnyQPAh3k2jhWMMf}#)
+ #{ropt -ANAU$bmvAmthP7L7xwsTA}#)
'()))
- #{tmp _hoQGWMnyQPAh3k2jhWMOB}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsUi}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
- #{args _hoQGWMnyQPAh3k2jhWMMd}#)))))))))))))))
- (#{key _hoQGWMnyQPAh3k2jhWMKc}#
- (lambda (#{args _hoQGWMnyQPAh3k2jhWMO0}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO5}#
+ #{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 _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMO5}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsVa}#
(@apply
(lambda ()
- (#{check _hoQGWMnyQPAh3k2jhWMKe}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (#{check -ANAU$bmvAmthP7L7xwsQ@}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
#f
(cons #f
- (reverse #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMO5}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO@}#
+ (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsVa}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMO@}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMPD}#
- #{b _hoQGWMnyQPAh3k2jhWMPE}#)
- (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPD}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}#
+ #{b -ANAU$bmvAmthP7L7xwsVl}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMPD}#)
+ #{a -ANAU$bmvAmthP7L7xwsVk}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMPD}#)
+ #{a -ANAU$bmvAmthP7L7xwsVk}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMPD}#
+ #{a -ANAU$bmvAmthP7L7xwsVk}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMPD}#
+ #{a -ANAU$bmvAmthP7L7xwsVk}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMO@}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMPf}#
- #{b _hoQGWMnyQPAh3k2jhWMPg}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPh}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}#
+ #{b -ANAU$bmvAmthP7L7xwsWB}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}#
(symbol->keyword
(syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMPf}#))))
- (#{key _hoQGWMnyQPAh3k2jhWMKc}#
- #{b _hoQGWMnyQPAh3k2jhWMPg}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
- (cons (cons #{tmp _hoQGWMnyQPAh3k2jhWMPh}#
- (cons #{a _hoQGWMnyQPAh3k2jhWMPf}#
+ #{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)
@@ -7610,11 +7588,11 @@
#(ribcage
#(k)
#((top))
- #("2fs"))
+ #("rk"))
#(ribcage
#(a b)
#((top) (top))
- #("2fq" "2fr"))
+ #("ri" "rj"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -7622,10 +7600,10 @@
(top)
(top)
(top))
- #("2fk"
- "2fl"
- "2fm"
- "2fn"))
+ #("rc"
+ "rd"
+ "re"
+ "rf"))
#(ribcage
(check rest
key
@@ -7636,15 +7614,15 @@
(top)
(top)
(top))
- ("2ea"
- "2e9"
- "2e8"
- "2e7"
- "2e6"))
+ ("q2"
+ "q1"
+ "q0"
+ "pz"
+ "py"))
#(ribcage
#(orig-args)
#((top))
- #("2e5"))
+ #("px"))
#(ribcage
(lambda-var-list
gen-var
@@ -7926,1063 +7904,1063 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))))
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMO@}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPk}#
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsVg}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'((any any) . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMPk}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMPo}#
- #{init _hoQGWMnyQPAh3k2jhWMPp}#
- #{b _hoQGWMnyQPAh3k2jhWMPq}#)
- (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPo}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}#
+ #{init -ANAU$bmvAmthP7L7xwsWK}#
+ #{b -ANAU$bmvAmthP7L7xwsWL}#)
+ (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMPo}#)
+ #{a -ANAU$bmvAmthP7L7xwsWJ}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMPo}#)
+ #{a -ANAU$bmvAmthP7L7xwsWJ}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMPo}#
+ #{a -ANAU$bmvAmthP7L7xwsWJ}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMPo}#
+ #{a -ANAU$bmvAmthP7L7xwsWJ}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMPk}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsWF}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMQF}#
- #{init _hoQGWMnyQPAh3k2jhWMQG}#
- #{b _hoQGWMnyQPAh3k2jhWMQH}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQI}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}#
+ #{init -ANAU$bmvAmthP7L7xwsWn}#
+ #{b -ANAU$bmvAmthP7L7xwsWo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}#
(symbol->keyword
(syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMQF}#))))
- (#{key _hoQGWMnyQPAh3k2jhWMKc}#
- #{b _hoQGWMnyQPAh3k2jhWMQH}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
- (cons (list #{tmp _hoQGWMnyQPAh3k2jhWMQI}#
- #{a _hoQGWMnyQPAh3k2jhWMQF}#
- #{init _hoQGWMnyQPAh3k2jhWMQG}#)
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMPk}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQL}#
+ #{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 _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'((any any any) . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQL}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMQP}#
- #{init _hoQGWMnyQPAh3k2jhWMQQ}#
- #{k _hoQGWMnyQPAh3k2jhWMQR}#
- #{b _hoQGWMnyQPAh3k2jhWMQS}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}#
+ #{init -ANAU$bmvAmthP7L7xwsWx}#
+ #{k -ANAU$bmvAmthP7L7xwsWy}#
+ #{b -ANAU$bmvAmthP7L7xwsWz}#)
(if (if (symbol?
- #{a _hoQGWMnyQPAh3k2jhWMQP}#)
+ #{a -ANAU$bmvAmthP7L7xwsWw}#)
#t
(if (if (vector?
- #{a _hoQGWMnyQPAh3k2jhWMQP}#)
+ #{a -ANAU$bmvAmthP7L7xwsWw}#)
(if (= (vector-length
- #{a _hoQGWMnyQPAh3k2jhWMQP}#)
+ #{a -ANAU$bmvAmthP7L7xwsWw}#)
4)
(eq? (vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMQP}#
+ #{a -ANAU$bmvAmthP7L7xwsWw}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{a _hoQGWMnyQPAh3k2jhWMQP}#
+ #{a -ANAU$bmvAmthP7L7xwsWw}#
1))
#f))
(keyword?
(syntax->datum
- #{k _hoQGWMnyQPAh3k2jhWMQR}#))
+ #{k -ANAU$bmvAmthP7L7xwsWy}#))
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWMQL}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsWs}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMQt}#
- #{init _hoQGWMnyQPAh3k2jhWMQu}#
- #{k _hoQGWMnyQPAh3k2jhWMQv}#
- #{b _hoQGWMnyQPAh3k2jhWMQw}#)
- (#{key _hoQGWMnyQPAh3k2jhWMKc}#
- #{b _hoQGWMnyQPAh3k2jhWMQw}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
- (cons (list #{k _hoQGWMnyQPAh3k2jhWMQv}#
- #{a _hoQGWMnyQPAh3k2jhWMQt}#
- #{init _hoQGWMnyQPAh3k2jhWMQu}#)
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMQL}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQx}#
+ (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 _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'(any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQx}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}#
(@apply
- (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ1}#)
+ (lambda (#{aok -ANAU$bmvAmthP7L7xwsXW}#)
(eq? (syntax->datum
- #{aok _hoQGWMnyQPAh3k2jhWMQ1}#)
+ #{aok -ANAU$bmvAmthP7L7xwsXW}#)
#:allow-other-keys))
- #{tmp _hoQGWMnyQPAh3k2jhWMQx}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
#f)
(@apply
- (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ2}#)
- (#{check _hoQGWMnyQPAh3k2jhWMKe}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#)
+ (#{check -ANAU$bmvAmthP7L7xwsQ@}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
#f
(cons #t
(reverse
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMQx}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQ5}#
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsXS}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'(any any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}#
(@apply
- (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ9}#
- #{a _hoQGWMnyQPAh3k2jhWMQ$}#
- #{b _hoQGWMnyQPAh3k2jhWMQ@}#)
+ (lambda (#{aok -ANAU$bmvAmthP7L7xwsXe}#
+ #{a -ANAU$bmvAmthP7L7xwsXf}#
+ #{b -ANAU$bmvAmthP7L7xwsXg}#)
(if (eq? (syntax->datum
- #{aok _hoQGWMnyQPAh3k2jhWMQ9}#)
+ #{aok -ANAU$bmvAmthP7L7xwsXe}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMQ$}#)
+ #{a -ANAU$bmvAmthP7L7xwsXf}#)
#:rest)
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
#f)
(@apply
- (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRA}#
- #{a _hoQGWMnyQPAh3k2jhWMRB}#
- #{b _hoQGWMnyQPAh3k2jhWMRC}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{b _hoQGWMnyQPAh3k2jhWMRC}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (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 _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRF}#
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsXa}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRF}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsXm}#
(@apply
- (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRJ}#
- #{r _hoQGWMnyQPAh3k2jhWMRK}#)
+ (lambda (#{aok -ANAU$bmvAmthP7L7xwsXq}#
+ #{r -ANAU$bmvAmthP7L7xwsXr}#)
(if (eq? (syntax->datum
- #{aok _hoQGWMnyQPAh3k2jhWMRJ}#)
+ #{aok -ANAU$bmvAmthP7L7xwsXq}#)
#:allow-other-keys)
(if (symbol?
- #{r _hoQGWMnyQPAh3k2jhWMRK}#)
+ #{r -ANAU$bmvAmthP7L7xwsXr}#)
#t
(if (if (vector?
- #{r _hoQGWMnyQPAh3k2jhWMRK}#)
+ #{r -ANAU$bmvAmthP7L7xwsXr}#)
(if (= (vector-length
- #{r _hoQGWMnyQPAh3k2jhWMRK}#)
+ #{r -ANAU$bmvAmthP7L7xwsXr}#)
4)
(eq? (vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMRK}#
+ #{r -ANAU$bmvAmthP7L7xwsXr}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMRK}#
+ #{r -ANAU$bmvAmthP7L7xwsXr}#
1))
#f))
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWMRF}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsXm}#)
#f)
(@apply
- (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRl}#
- #{r _hoQGWMnyQPAh3k2jhWMRm}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{r _hoQGWMnyQPAh3k2jhWMRm}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (lambda (#{aok -ANAU$bmvAmthP7L7xwsYG}#
+ #{r -ANAU$bmvAmthP7L7xwsYH}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsYH}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
(cons #t
(reverse
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMRF}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRp}#
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsXm}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsYK}#
($sc-dispatch
- #{args _hoQGWMnyQPAh3k2jhWMO0}#
+ #{args -ANAU$bmvAmthP7L7xwsVV}#
'(any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRp}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsYK}#
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMRt}#
- #{b _hoQGWMnyQPAh3k2jhWMRu}#)
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsYO}#
+ #{b -ANAU$bmvAmthP7L7xwsYP}#)
(eq? (syntax->datum
- #{a _hoQGWMnyQPAh3k2jhWMRt}#)
+ #{a -ANAU$bmvAmthP7L7xwsYO}#)
#:rest))
- #{tmp _hoQGWMnyQPAh3k2jhWMRp}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsYK}#)
#f)
(@apply
- (lambda (#{a _hoQGWMnyQPAh3k2jhWMRv}#
- #{b _hoQGWMnyQPAh3k2jhWMRw}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{b _hoQGWMnyQPAh3k2jhWMRw}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (lambda (#{a -ANAU$bmvAmthP7L7xwsYQ}#
+ #{b -ANAU$bmvAmthP7L7xwsYR}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{b -ANAU$bmvAmthP7L7xwsYR}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
(cons #f
(reverse
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMRp}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRz}#
- (list #{args _hoQGWMnyQPAh3k2jhWMO0}#)))
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsYK}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsYU}#
+ (list #{args -ANAU$bmvAmthP7L7xwsVV}#)))
(if (@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMR1}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsYW}#)
(if (symbol?
- #{r _hoQGWMnyQPAh3k2jhWMR1}#)
+ #{r -ANAU$bmvAmthP7L7xwsYW}#)
#t
(if (if (vector?
- #{r _hoQGWMnyQPAh3k2jhWMR1}#)
+ #{r -ANAU$bmvAmthP7L7xwsYW}#)
(if (= (vector-length
- #{r _hoQGWMnyQPAh3k2jhWMR1}#)
+ #{r -ANAU$bmvAmthP7L7xwsYW}#)
4)
(eq? (vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMR1}#
+ #{r -ANAU$bmvAmthP7L7xwsYW}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMR1}#
+ #{r -ANAU$bmvAmthP7L7xwsYW}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMRz}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsYU}#)
(@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMST}#)
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- #{r _hoQGWMnyQPAh3k2jhWMST}#
- #{req _hoQGWMnyQPAh3k2jhWMO1}#
- #{opt _hoQGWMnyQPAh3k2jhWMO2}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsY0}#)
+ (#{rest -ANAU$bmvAmthP7L7xwsQ$}#
+ #{r -ANAU$bmvAmthP7L7xwsY0}#
+ #{req -ANAU$bmvAmthP7L7xwsVW}#
+ #{opt -ANAU$bmvAmthP7L7xwsVX}#
(cons #f
(reverse
- #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMRz}#)
+ #{rkey -ANAU$bmvAmthP7L7xwsVY}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwsYU}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
- #{args _hoQGWMnyQPAh3k2jhWMO0}#)))))))))))))))))))))
- (#{rest _hoQGWMnyQPAh3k2jhWMKd}#
- (lambda (#{args _hoQGWMnyQPAh3k2jhWMSv}#
- #{req _hoQGWMnyQPAh3k2jhWMSw}#
- #{opt _hoQGWMnyQPAh3k2jhWMSx}#
- #{kw _hoQGWMnyQPAh3k2jhWMSy}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMS0}#
- (list #{args _hoQGWMnyQPAh3k2jhWMSv}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWMS2}#)
- (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMS2}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#)
+ (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#)
#t
- (if (if (vector? #{r _hoQGWMnyQPAh3k2jhWMS2}#)
+ (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#)
(if (= (vector-length
- #{r _hoQGWMnyQPAh3k2jhWMS2}#)
+ #{r -ANAU$bmvAmthP7L7xwsZX}#)
4)
(eq? (vector-ref
- #{r _hoQGWMnyQPAh3k2jhWMS2}#
+ #{r -ANAU$bmvAmthP7L7xwsZX}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r _hoQGWMnyQPAh3k2jhWMS2}# 1))
+ (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWMS0}#)
+ #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
(@apply
- (lambda (#{r _hoQGWMnyQPAh3k2jhWMTU}#)
- (#{check _hoQGWMnyQPAh3k2jhWMKe}#
- #{req _hoQGWMnyQPAh3k2jhWMSw}#
- #{opt _hoQGWMnyQPAh3k2jhWMSx}#
- #{r _hoQGWMnyQPAh3k2jhWMTU}#
- #{kw _hoQGWMnyQPAh3k2jhWMSy}#))
- #{tmp _hoQGWMnyQPAh3k2jhWMS0}#)
+ (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#)
+ (#{check -ANAU$bmvAmthP7L7xwsQ@}#
+ #{req -ANAU$bmvAmthP7L7xwsZR}#
+ #{opt -ANAU$bmvAmthP7L7xwsZS}#
+ #{r -ANAU$bmvAmthP7L7xwsZ1}#
+ #{kw -ANAU$bmvAmthP7L7xwsZT}#))
+ #{tmp -ANAU$bmvAmthP7L7xwsZV}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
- #{args _hoQGWMnyQPAh3k2jhWMSv}#)))))
- (#{check _hoQGWMnyQPAh3k2jhWMKe}#
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMTY}#
- #{opt _hoQGWMnyQPAh3k2jhWMTZ}#
- #{rest _hoQGWMnyQPAh3k2jhWMTa}#
- #{kw _hoQGWMnyQPAh3k2jhWMTb}#)
- (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
+ #{args -ANAU$bmvAmthP7L7xwsZQ}#)))))
+ (#{check -ANAU$bmvAmthP7L7xwsQ@}#
+ (lambda (#{req -ANAU$bmvAmthP7L7xwsZ5}#
+ #{opt -ANAU$bmvAmthP7L7xwsZ6}#
+ #{rest -ANAU$bmvAmthP7L7xwsZ7}#
+ #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
+ (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}#
(append
- #{req _hoQGWMnyQPAh3k2jhWMTY}#
- (map car #{opt _hoQGWMnyQPAh3k2jhWMTZ}#)
- (if #{rest _hoQGWMnyQPAh3k2jhWMTa}#
- (list #{rest _hoQGWMnyQPAh3k2jhWMTa}#)
+ #{req -ANAU$bmvAmthP7L7xwsZ5}#
+ (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#)
+ (if #{rest -ANAU$bmvAmthP7L7xwsZ7}#
+ (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#)
'())
- (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMTb}#)
- (map cadr (cdr #{kw _hoQGWMnyQPAh3k2jhWMTb}#))
+ (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
+ (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#))
'())))
(values
- #{req _hoQGWMnyQPAh3k2jhWMTY}#
- #{opt _hoQGWMnyQPAh3k2jhWMTZ}#
- #{rest _hoQGWMnyQPAh3k2jhWMTa}#
- #{kw _hoQGWMnyQPAh3k2jhWMTb}#)
+ #{req -ANAU$bmvAmthP7L7xwsZ5}#
+ #{opt -ANAU$bmvAmthP7L7xwsZ6}#
+ #{rest -ANAU$bmvAmthP7L7xwsZ7}#
+ #{kw -ANAU$bmvAmthP7L7xwsZ8}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#)))))
- (#{req _hoQGWMnyQPAh3k2jhWMKa}#
- #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#)))))
+ (#{req -ANAU$bmvAmthP7L7xwsQ7}#
+ #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#
'()))))
- (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWMVP}#
- #{r _hoQGWMnyQPAh3k2jhWMVQ}#
- #{w _hoQGWMnyQPAh3k2jhWMVR}#
- #{s _hoQGWMnyQPAh3k2jhWMVS}#
- #{mod _hoQGWMnyQPAh3k2jhWMVT}#
- #{get-formals _hoQGWMnyQPAh3k2jhWMVU}#
- #{clauses _hoQGWMnyQPAh3k2jhWMVV}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWMVW}#
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMXV}#
- #{opt _hoQGWMnyQPAh3k2jhWMXW}#
- #{rest _hoQGWMnyQPAh3k2jhWMXX}#
- #{kw _hoQGWMnyQPAh3k2jhWMXY}#
- #{body _hoQGWMnyQPAh3k2jhWMXZ}#)
- (let ((#{vars _hoQGWMnyQPAh3k2jhWMXa}#
- (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- #{req _hoQGWMnyQPAh3k2jhWMXV}#))
- (#{labels _hoQGWMnyQPAh3k2jhWMXb}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{req _hoQGWMnyQPAh3k2jhWMXV}#)))
- (let ((#{r* _hoQGWMnyQPAh3k2jhWMXc}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{labels _hoQGWMnyQPAh3k2jhWMXb}#
- #{vars _hoQGWMnyQPAh3k2jhWMXa}#
- #{r _hoQGWMnyQPAh3k2jhWMVQ}#))
- (#{w* _hoQGWMnyQPAh3k2jhWMXd}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{req _hoQGWMnyQPAh3k2jhWMXV}#
- #{labels _hoQGWMnyQPAh3k2jhWMXb}#
- #{w _hoQGWMnyQPAh3k2jhWMVR}#)))
- (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWMXV}#)
- #{opt _hoQGWMnyQPAh3k2jhWMXW}#
- #{rest _hoQGWMnyQPAh3k2jhWMXX}#
- #{kw _hoQGWMnyQPAh3k2jhWMXY}#
- #{body _hoQGWMnyQPAh3k2jhWMXZ}#
- (reverse #{vars _hoQGWMnyQPAh3k2jhWMXa}#)
- #{r* _hoQGWMnyQPAh3k2jhWMXc}#
- #{w* _hoQGWMnyQPAh3k2jhWMXd}#
+ #{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 _hoQGWMnyQPAh3k2jhWMVX}#
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMaN}#
- #{opt _hoQGWMnyQPAh3k2jhWMaO}#
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#
- #{kw _hoQGWMnyQPAh3k2jhWMaQ}#
- #{body _hoQGWMnyQPAh3k2jhWMaR}#
- #{vars _hoQGWMnyQPAh3k2jhWMaS}#
- #{r* _hoQGWMnyQPAh3k2jhWMaT}#
- #{w* _hoQGWMnyQPAh3k2jhWMaU}#
- #{out _hoQGWMnyQPAh3k2jhWMaV}#
- #{inits _hoQGWMnyQPAh3k2jhWMaW}#)
- (if (pair? #{opt _hoQGWMnyQPAh3k2jhWMaO}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaX}#
- (car #{opt _hoQGWMnyQPAh3k2jhWMaO}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaY}#
+ (#{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 _hoQGWMnyQPAh3k2jhWMaX}#
+ #{tmp -ANAU$bmvAmthP7L7xwsg4}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMaY}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsg5}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWMaa}#
- #{i _hoQGWMnyQPAh3k2jhWMab}#)
- (let ((#{v _hoQGWMnyQPAh3k2jhWMac}#
- (let ((#{id _hoQGWMnyQPAh3k2jhWMak}#
+ (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}#
+ #{i -ANAU$bmvAmthP7L7xwsg8}#)
+ (let ((#{v -ANAU$bmvAmthP7L7xwsg9}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwshF}#
(if (if (vector?
- #{id _hoQGWMnyQPAh3k2jhWMaa}#)
+ #{id -ANAU$bmvAmthP7L7xwsg7}#)
(if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWMaa}#)
+ #{id -ANAU$bmvAmthP7L7xwsg7}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWMaa}#
+ #{id -ANAU$bmvAmthP7L7xwsg7}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _hoQGWMnyQPAh3k2jhWMaa}#
+ #{id -ANAU$bmvAmthP7L7xwsg7}#
1)
- #{id _hoQGWMnyQPAh3k2jhWMaa}#)))
+ #{id -ANAU$bmvAmthP7L7xwsg7}#)))
(gensym
(string-append
(symbol->string
- #{id _hoQGWMnyQPAh3k2jhWMak}#)
+ #{id -ANAU$bmvAmthP7L7xwshF}#)
" ")))))
- (let ((#{l _hoQGWMnyQPAh3k2jhWMad}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- (list #{v _hoQGWMnyQPAh3k2jhWMac}#))))
- (let ((#{r** _hoQGWMnyQPAh3k2jhWMae}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{l _hoQGWMnyQPAh3k2jhWMad}#
- (list #{v _hoQGWMnyQPAh3k2jhWMac}#)
- #{r* _hoQGWMnyQPAh3k2jhWMaT}#)))
- (let ((#{w** _hoQGWMnyQPAh3k2jhWMaf}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- (list #{id _hoQGWMnyQPAh3k2jhWMaa}#)
- #{l _hoQGWMnyQPAh3k2jhWMad}#
- #{w* _hoQGWMnyQPAh3k2jhWMaU}#)))
- (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}#
- #{req _hoQGWMnyQPAh3k2jhWMaN}#
- (cdr #{opt _hoQGWMnyQPAh3k2jhWMaO}#)
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#
- #{kw _hoQGWMnyQPAh3k2jhWMaQ}#
- #{body _hoQGWMnyQPAh3k2jhWMaR}#
- (cons #{v _hoQGWMnyQPAh3k2jhWMac}#
- #{vars _hoQGWMnyQPAh3k2jhWMaS}#)
- #{r** _hoQGWMnyQPAh3k2jhWMae}#
- #{w** _hoQGWMnyQPAh3k2jhWMaf}#
+ (let ((#{l -ANAU$bmvAmthP7L7xwsg$}#
+ (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}#
+ (list #{v -ANAU$bmvAmthP7L7xwsg9}#))))
+ (let ((#{r** -ANAU$bmvAmthP7L7xwsg@}#
+ (#{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** -ANAU$bmvAmthP7L7xwsg@}#
+ #{w** -ANAU$bmvAmthP7L7xwshA}#
(cons (syntax->datum
- #{id _hoQGWMnyQPAh3k2jhWMaa}#)
- #{out _hoQGWMnyQPAh3k2jhWMaV}#)
- (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{i _hoQGWMnyQPAh3k2jhWMab}#
- #{r* _hoQGWMnyQPAh3k2jhWMaT}#
- #{w* _hoQGWMnyQPAh3k2jhWMaU}#
- #{mod _hoQGWMnyQPAh3k2jhWMVT}#)
- #{inits _hoQGWMnyQPAh3k2jhWMaW}#)))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMaY}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMaX}#))))
- (if #{rest _hoQGWMnyQPAh3k2jhWMaP}#
- (let ((#{v _hoQGWMnyQPAh3k2jhWMeJ}#
- (let ((#{id _hoQGWMnyQPAh3k2jhWMeT}#
+ #{tmp -ANAU$bmvAmthP7L7xwsg4}#))))
+ (if #{rest -ANAU$bmvAmthP7L7xwsgw}#
+ (let ((#{v -ANAU$bmvAmthP7L7xwskq}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwsk0}#
(if (if (vector?
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#)
(if (= (vector-length
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#)
4)
(eq? (vector-ref
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#
1)
- #{rest _hoQGWMnyQPAh3k2jhWMaP}#)))
+ #{rest -ANAU$bmvAmthP7L7xwsgw}#)))
(gensym
(string-append
(symbol->string
- #{id _hoQGWMnyQPAh3k2jhWMeT}#)
+ #{id -ANAU$bmvAmthP7L7xwsk0}#)
" ")))))
- (let ((#{l _hoQGWMnyQPAh3k2jhWMeK}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#))))
- (let ((#{r* _hoQGWMnyQPAh3k2jhWMeL}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{l _hoQGWMnyQPAh3k2jhWMeK}#
- (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#)
- #{r* _hoQGWMnyQPAh3k2jhWMaT}#)))
- (let ((#{w* _hoQGWMnyQPAh3k2jhWMeM}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- (list #{rest _hoQGWMnyQPAh3k2jhWMaP}#)
- #{l _hoQGWMnyQPAh3k2jhWMeK}#
- #{w* _hoQGWMnyQPAh3k2jhWMaU}#)))
- (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
- #{req _hoQGWMnyQPAh3k2jhWMaN}#
- (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#)
- (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#)
+ (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 _hoQGWMnyQPAh3k2jhWMaP}#)
- (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- #{body _hoQGWMnyQPAh3k2jhWMaR}#
- (cons #{v _hoQGWMnyQPAh3k2jhWMeJ}#
- #{vars _hoQGWMnyQPAh3k2jhWMaS}#)
- #{r* _hoQGWMnyQPAh3k2jhWMeL}#
- #{w* _hoQGWMnyQPAh3k2jhWMeM}#
- (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ (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)
'()
- #{inits _hoQGWMnyQPAh3k2jhWMaW}#)))))
- (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
- #{req _hoQGWMnyQPAh3k2jhWMaN}#
- (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#)
- (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#)
+ #{inits -ANAU$bmvAmthP7L7xwsg3}#)))))
+ (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}#
+ #{req -ANAU$bmvAmthP7L7xwsgu}#
+ (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#)
+ (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#)
#f)
#f
- (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- #{body _hoQGWMnyQPAh3k2jhWMaR}#
- #{vars _hoQGWMnyQPAh3k2jhWMaS}#
- #{r* _hoQGWMnyQPAh3k2jhWMaT}#
- #{w* _hoQGWMnyQPAh3k2jhWMaU}#
- (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
- (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#)
+ (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 _hoQGWMnyQPAh3k2jhWMaW}#)))))
- (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMg1}#
- #{opt _hoQGWMnyQPAh3k2jhWMg2}#
- #{rest _hoQGWMnyQPAh3k2jhWMg3}#
- #{kw _hoQGWMnyQPAh3k2jhWMg4}#
- #{body _hoQGWMnyQPAh3k2jhWMg5}#
- #{vars _hoQGWMnyQPAh3k2jhWMg6}#
- #{r* _hoQGWMnyQPAh3k2jhWMg7}#
- #{w* _hoQGWMnyQPAh3k2jhWMg8}#
- #{aok _hoQGWMnyQPAh3k2jhWMg9}#
- #{out _hoQGWMnyQPAh3k2jhWMg$}#
- #{inits _hoQGWMnyQPAh3k2jhWMg@}#)
- (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMg4}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhA}#
- (car #{kw _hoQGWMnyQPAh3k2jhWMg4}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhB}#
+ #{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 _hoQGWMnyQPAh3k2jhWMhA}#
+ #{tmp -ANAU$bmvAmthP7L7xwsnh}#
'(any any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMhB}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsni}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWMhD}#
- #{id _hoQGWMnyQPAh3k2jhWMhE}#
- #{i _hoQGWMnyQPAh3k2jhWMhF}#)
- (let ((#{v _hoQGWMnyQPAh3k2jhWMhG}#
- (let ((#{id _hoQGWMnyQPAh3k2jhWMhO}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}#
+ #{id -ANAU$bmvAmthP7L7xwsnl}#
+ #{i -ANAU$bmvAmthP7L7xwsnm}#)
+ (let ((#{v -ANAU$bmvAmthP7L7xwsnn}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwsnv}#
(if (if (vector?
- #{id _hoQGWMnyQPAh3k2jhWMhE}#)
+ #{id -ANAU$bmvAmthP7L7xwsnl}#)
(if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWMhE}#)
+ #{id -ANAU$bmvAmthP7L7xwsnl}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWMhE}#
+ #{id -ANAU$bmvAmthP7L7xwsnl}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{id _hoQGWMnyQPAh3k2jhWMhE}#
+ #{id -ANAU$bmvAmthP7L7xwsnl}#
1)
- #{id _hoQGWMnyQPAh3k2jhWMhE}#)))
+ #{id -ANAU$bmvAmthP7L7xwsnl}#)))
(gensym
(string-append
(symbol->string
- #{id _hoQGWMnyQPAh3k2jhWMhO}#)
+ #{id -ANAU$bmvAmthP7L7xwsnv}#)
" ")))))
- (let ((#{l _hoQGWMnyQPAh3k2jhWMhH}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- (list #{v _hoQGWMnyQPAh3k2jhWMhG}#))))
- (let ((#{r** _hoQGWMnyQPAh3k2jhWMhI}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{l _hoQGWMnyQPAh3k2jhWMhH}#
- (list #{v _hoQGWMnyQPAh3k2jhWMhG}#)
- #{r* _hoQGWMnyQPAh3k2jhWMg7}#)))
- (let ((#{w** _hoQGWMnyQPAh3k2jhWMhJ}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- (list #{id _hoQGWMnyQPAh3k2jhWMhE}#)
- #{l _hoQGWMnyQPAh3k2jhWMhH}#
- #{w* _hoQGWMnyQPAh3k2jhWMg8}#)))
- (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}#
- #{req _hoQGWMnyQPAh3k2jhWMg1}#
- #{opt _hoQGWMnyQPAh3k2jhWMg2}#
- #{rest _hoQGWMnyQPAh3k2jhWMg3}#
- (cdr #{kw _hoQGWMnyQPAh3k2jhWMg4}#)
- #{body _hoQGWMnyQPAh3k2jhWMg5}#
- (cons #{v _hoQGWMnyQPAh3k2jhWMhG}#
- #{vars _hoQGWMnyQPAh3k2jhWMg6}#)
- #{r** _hoQGWMnyQPAh3k2jhWMhI}#
- #{w** _hoQGWMnyQPAh3k2jhWMhJ}#
- #{aok _hoQGWMnyQPAh3k2jhWMg9}#
+ (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 _hoQGWMnyQPAh3k2jhWMhD}#)
+ #{k -ANAU$bmvAmthP7L7xwsnk}#)
(syntax->datum
- #{id _hoQGWMnyQPAh3k2jhWMhE}#)
- #{v _hoQGWMnyQPAh3k2jhWMhG}#)
- #{out _hoQGWMnyQPAh3k2jhWMg$}#)
- (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{i _hoQGWMnyQPAh3k2jhWMhF}#
- #{r* _hoQGWMnyQPAh3k2jhWMg7}#
- #{w* _hoQGWMnyQPAh3k2jhWMg8}#
- #{mod _hoQGWMnyQPAh3k2jhWMVT}#)
- #{inits _hoQGWMnyQPAh3k2jhWMg@}#)))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMhB}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMhA}#))))
- (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
- #{req _hoQGWMnyQPAh3k2jhWMg1}#
- #{opt _hoQGWMnyQPAh3k2jhWMg2}#
- #{rest _hoQGWMnyQPAh3k2jhWMg3}#
- (if (if #{aok _hoQGWMnyQPAh3k2jhWMg9}#
- #{aok _hoQGWMnyQPAh3k2jhWMg9}#
- (pair? #{out _hoQGWMnyQPAh3k2jhWMg$}#))
- (cons #{aok _hoQGWMnyQPAh3k2jhWMg9}#
- (reverse #{out _hoQGWMnyQPAh3k2jhWMg$}#))
+ #{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 _hoQGWMnyQPAh3k2jhWMg5}#
- (reverse #{vars _hoQGWMnyQPAh3k2jhWMg6}#)
- #{r* _hoQGWMnyQPAh3k2jhWMg7}#
- #{w* _hoQGWMnyQPAh3k2jhWMg8}#
- (reverse #{inits _hoQGWMnyQPAh3k2jhWMg@}#)
+ #{body -ANAU$bmvAmthP7L7xwsna}#
+ (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#)
+ #{r* -ANAU$bmvAmthP7L7xwsnc}#
+ #{w* -ANAU$bmvAmthP7L7xwsnd}#
+ (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#)
'()))))
- (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMk8}#
- #{opt _hoQGWMnyQPAh3k2jhWMk9}#
- #{rest _hoQGWMnyQPAh3k2jhWMk$}#
- #{kw _hoQGWMnyQPAh3k2jhWMk@}#
- #{body _hoQGWMnyQPAh3k2jhWMlA}#
- #{vars _hoQGWMnyQPAh3k2jhWMlB}#
- #{r* _hoQGWMnyQPAh3k2jhWMlC}#
- #{w* _hoQGWMnyQPAh3k2jhWMlD}#
- #{inits _hoQGWMnyQPAh3k2jhWMlE}#
- #{meta _hoQGWMnyQPAh3k2jhWMlF}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlH}#
+ (#{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 _hoQGWMnyQPAh3k2jhWMlA}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
'(any any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMlH}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}#
(@apply
- (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlL}#
- #{e1 _hoQGWMnyQPAh3k2jhWMlM}#
- #{e2 _hoQGWMnyQPAh3k2jhWMlN}#)
+ (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}#
+ #{e1 -ANAU$bmvAmthP7L7xwsrt}#
+ #{e2 -ANAU$bmvAmthP7L7xwsru}#)
(string?
(syntax->datum
- #{docstring _hoQGWMnyQPAh3k2jhWMlL}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMlH}#)
+ #{docstring -ANAU$bmvAmthP7L7xwsrs}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwsro}#)
#f)
(@apply
- (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlO}#
- #{e1 _hoQGWMnyQPAh3k2jhWMlP}#
- #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#)
- (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
- #{req _hoQGWMnyQPAh3k2jhWMk8}#
- #{opt _hoQGWMnyQPAh3k2jhWMk9}#
- #{rest _hoQGWMnyQPAh3k2jhWMk$}#
- #{kw _hoQGWMnyQPAh3k2jhWMk@}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMlP}#
- #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#)
- #{vars _hoQGWMnyQPAh3k2jhWMlB}#
- #{r* _hoQGWMnyQPAh3k2jhWMlC}#
- #{w* _hoQGWMnyQPAh3k2jhWMlD}#
- #{inits _hoQGWMnyQPAh3k2jhWMlE}#
+ (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 _hoQGWMnyQPAh3k2jhWMlF}#
+ #{meta -ANAU$bmvAmthP7L7xwsrm}#
(list (cons 'documentation
(syntax->datum
- #{docstring _hoQGWMnyQPAh3k2jhWMlO}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMlH}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlR}#
+ #{docstring -ANAU$bmvAmthP7L7xwsrv}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwsro}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}#
($sc-dispatch
- #{body _hoQGWMnyQPAh3k2jhWMlA}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMlR}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsry}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWMlV}#
- #{v _hoQGWMnyQPAh3k2jhWMlW}#
- #{e1 _hoQGWMnyQPAh3k2jhWMlX}#
- #{e2 _hoQGWMnyQPAh3k2jhWMlY}#)
- (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}#
- #{req _hoQGWMnyQPAh3k2jhWMk8}#
- #{opt _hoQGWMnyQPAh3k2jhWMk9}#
- #{rest _hoQGWMnyQPAh3k2jhWMk$}#
- #{kw _hoQGWMnyQPAh3k2jhWMk@}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMlX}#
- #{e2 _hoQGWMnyQPAh3k2jhWMlY}#)
- #{vars _hoQGWMnyQPAh3k2jhWMlB}#
- #{r* _hoQGWMnyQPAh3k2jhWMlC}#
- #{w* _hoQGWMnyQPAh3k2jhWMlD}#
- #{inits _hoQGWMnyQPAh3k2jhWMlE}#
+ (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 _hoQGWMnyQPAh3k2jhWMlF}#
+ #{meta -ANAU$bmvAmthP7L7xwsrm}#
(syntax->datum
(map cons
- #{k _hoQGWMnyQPAh3k2jhWMlV}#
- #{v _hoQGWMnyQPAh3k2jhWMlW}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWMlR}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlZ}#
+ #{k -ANAU$bmvAmthP7L7xwsr2}#
+ #{v -ANAU$bmvAmthP7L7xwsr3}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwsry}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}#
($sc-dispatch
- #{body _hoQGWMnyQPAh3k2jhWMlA}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#
'(any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsr6}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMld}#
- #{e2 _hoQGWMnyQPAh3k2jhWMle}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}#
+ #{e2 -ANAU$bmvAmthP7L7xwsr@}#)
(values
- #{meta _hoQGWMnyQPAh3k2jhWMlF}#
- #{req _hoQGWMnyQPAh3k2jhWMk8}#
- #{opt _hoQGWMnyQPAh3k2jhWMk9}#
- #{rest _hoQGWMnyQPAh3k2jhWMk$}#
- #{kw _hoQGWMnyQPAh3k2jhWMk@}#
- #{inits _hoQGWMnyQPAh3k2jhWMlE}#
- #{vars _hoQGWMnyQPAh3k2jhWMlB}#
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMld}#
- #{e2 _hoQGWMnyQPAh3k2jhWMle}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{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 -ANAU$bmvAmthP7L7xwsr@}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMVP}#)
- #{s _hoQGWMnyQPAh3k2jhWMVS}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsbw}#)
+ #{s -ANAU$bmvAmthP7L7xwsbz}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWMVP}#
- #{s _hoQGWMnyQPAh3k2jhWMVS}#))
- #{e _hoQGWMnyQPAh3k2jhWMVP}#)
- #{w _hoQGWMnyQPAh3k2jhWMVR}#
- #{mod _hoQGWMnyQPAh3k2jhWMVT}#)
- #{r* _hoQGWMnyQPAh3k2jhWMlC}#
- #{w* _hoQGWMnyQPAh3k2jhWMlD}#
- #{mod _hoQGWMnyQPAh3k2jhWMVT}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMlA}#))))))))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVb}#
+ #{body -ANAU$bmvAmthP7L7xwsrh}#))))))))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}#
($sc-dispatch
- #{clauses _hoQGWMnyQPAh3k2jhWMVV}#
+ #{clauses -ANAU$bmvAmthP7L7xwsb2}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMVb}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwsb8}#
(@apply
(lambda () (values '() #f))
- #{tmp _hoQGWMnyQPAh3k2jhWMVb}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVf}#
+ #{tmp -ANAU$bmvAmthP7L7xwsb8}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}#
($sc-dispatch
- #{clauses _hoQGWMnyQPAh3k2jhWMVV}#
+ #{clauses -ANAU$bmvAmthP7L7xwsb2}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMVf}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwscA}#
(@apply
- (lambda (#{args _hoQGWMnyQPAh3k2jhWMVj}#
- #{e1 _hoQGWMnyQPAh3k2jhWMVk}#
- #{e2 _hoQGWMnyQPAh3k2jhWMVl}#
- #{args* _hoQGWMnyQPAh3k2jhWMVm}#
- #{e1* _hoQGWMnyQPAh3k2jhWMVn}#
- #{e2* _hoQGWMnyQPAh3k2jhWMVo}#)
+ (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 _hoQGWMnyQPAh3k2jhWMVU}#
- #{args _hoQGWMnyQPAh3k2jhWMVj}#))
- (lambda (#{req _hoQGWMnyQPAh3k2jhWMVp}#
- #{opt _hoQGWMnyQPAh3k2jhWMVq}#
- #{rest _hoQGWMnyQPAh3k2jhWMVr}#
- #{kw _hoQGWMnyQPAh3k2jhWMVs}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWMVW}#
- #{req _hoQGWMnyQPAh3k2jhWMVp}#
- #{opt _hoQGWMnyQPAh3k2jhWMVq}#
- #{rest _hoQGWMnyQPAh3k2jhWMVr}#
- #{kw _hoQGWMnyQPAh3k2jhWMVs}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMVk}#
- #{e2 _hoQGWMnyQPAh3k2jhWMVl}#)))
- (lambda (#{meta _hoQGWMnyQPAh3k2jhWMWp}#
- #{req _hoQGWMnyQPAh3k2jhWMWq}#
- #{opt _hoQGWMnyQPAh3k2jhWMWr}#
- #{rest _hoQGWMnyQPAh3k2jhWMWs}#
- #{kw _hoQGWMnyQPAh3k2jhWMWt}#
- #{inits _hoQGWMnyQPAh3k2jhWMWu}#
- #{vars _hoQGWMnyQPAh3k2jhWMWv}#
- #{body _hoQGWMnyQPAh3k2jhWMWw}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHTx}#
- #{e _hoQGWMnyQPAh3k2jhWMVP}#
- #{r _hoQGWMnyQPAh3k2jhWMVQ}#
- #{w _hoQGWMnyQPAh3k2jhWMVR}#
- #{s _hoQGWMnyQPAh3k2jhWMVS}#
- #{mod _hoQGWMnyQPAh3k2jhWMVT}#
- #{get-formals _hoQGWMnyQPAh3k2jhWMVU}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#
- #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}#
- #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#)
- (cons #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#
- (cons #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}#
- #{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#)))
- #{e2* _hoQGWMnyQPAh3k2jhWMVo}#
- #{e1* _hoQGWMnyQPAh3k2jhWMVn}#
- #{args* _hoQGWMnyQPAh3k2jhWMVm}#)))
- (lambda (#{meta* _hoQGWMnyQPAh3k2jhWMW0}#
- #{else* _hoQGWMnyQPAh3k2jhWMW1}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWMWp}#
- #{meta* _hoQGWMnyQPAh3k2jhWMW0}#)
+ #{meta -ANAU$bmvAmthP7L7xwsdK}#
+ #{meta* -ANAU$bmvAmthP7L7xwsdV}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s _hoQGWMnyQPAh3k2jhWMVS}#
- #{req _hoQGWMnyQPAh3k2jhWMWq}#
- #{opt _hoQGWMnyQPAh3k2jhWMWr}#
- #{rest _hoQGWMnyQPAh3k2jhWMWs}#
- #{kw _hoQGWMnyQPAh3k2jhWMWt}#
- #{inits _hoQGWMnyQPAh3k2jhWMWu}#
- #{vars _hoQGWMnyQPAh3k2jhWMWv}#
- #{body _hoQGWMnyQPAh3k2jhWMWw}#
- #{else* _hoQGWMnyQPAh3k2jhWMW1}#)))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMVf}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMVV}#))))))))
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMmD}#
- #{w _hoQGWMnyQPAh3k2jhWMmE}#)
- (if (memq 'top (car #{w _hoQGWMnyQPAh3k2jhWMmE}#))
- #{x _hoQGWMnyQPAh3k2jhWMmD}#
+ #{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 _hoQGWMnyQPAh3k2jhWMmF}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMmI}#)
- (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWMmI}#)
+ ((#{f -ANAU$bmvAmthP7L7xwssm}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0)
'syntax-object)
#f)
#f)
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 1)
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 2))
- (if (pair? #{x _hoQGWMnyQPAh3k2jhWMmI}#)
- (let ((#{a _hoQGWMnyQPAh3k2jhWMmb}#
- (#{f _hoQGWMnyQPAh3k2jhWMmF}#
- (car #{x _hoQGWMnyQPAh3k2jhWMmI}#)))
- (#{d _hoQGWMnyQPAh3k2jhWMmc}#
- (#{f _hoQGWMnyQPAh3k2jhWMmF}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#))))
- (if (if (eq? #{a _hoQGWMnyQPAh3k2jhWMmb}#
- (car #{x _hoQGWMnyQPAh3k2jhWMmI}#))
- (eq? #{d _hoQGWMnyQPAh3k2jhWMmc}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#))
+ (#{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 _hoQGWMnyQPAh3k2jhWMmI}#
- (cons #{a _hoQGWMnyQPAh3k2jhWMmb}#
- #{d _hoQGWMnyQPAh3k2jhWMmc}#)))
- (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#)
- (let ((#{old _hoQGWMnyQPAh3k2jhWMmf}#
- (vector->list #{x _hoQGWMnyQPAh3k2jhWMmI}#)))
- (let ((#{new _hoQGWMnyQPAh3k2jhWMmg}#
- (map #{f _hoQGWMnyQPAh3k2jhWMmF}#
- #{old _hoQGWMnyQPAh3k2jhWMmf}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWMmh}#
- (lambda (#{l1 _hoQGWMnyQPAh3k2jhWMnt}#
- #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)
- (if (null? #{l1 _hoQGWMnyQPAh3k2jhWMnt}#)
- #{x _hoQGWMnyQPAh3k2jhWMmI}#
- (if (eq? (car #{l1 _hoQGWMnyQPAh3k2jhWMnt}#)
- (car #{l2 _hoQGWMnyQPAh3k2jhWMnu}#))
- (#{lp _hoQGWMnyQPAh3k2jhWMmh}#
- (cdr #{l1 _hoQGWMnyQPAh3k2jhWMnt}#)
- (cdr #{l2 _hoQGWMnyQPAh3k2jhWMnu}#))
+ ((#{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 _hoQGWMnyQPAh3k2jhWMmg}#))))))
- (#{lp _hoQGWMnyQPAh3k2jhWMmh}#
- #{old _hoQGWMnyQPAh3k2jhWMmf}#
- #{new _hoQGWMnyQPAh3k2jhWMmg}#))))
- #{x _hoQGWMnyQPAh3k2jhWMmI}#))))))
- (#{f _hoQGWMnyQPAh3k2jhWMmF}#
- #{x _hoQGWMnyQPAh3k2jhWMmD}#)))))
- (#{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- (lambda (#{id _hoQGWMnyQPAh3k2jhWMXh}#)
- (let ((#{id _hoQGWMnyQPAh3k2jhWMXi}#
- (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWMXh}#)
- (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWMXh}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMXh}# 0)
+ (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 1)
- #{id _hoQGWMnyQPAh3k2jhWMXh}#)))
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1)
+ #{id -ANAU$bmvAmthP7L7xwseC}#)))
(gensym
(string-append
- (symbol->string #{id _hoQGWMnyQPAh3k2jhWMXi}#)
+ (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#)
" "))))))
(begin
- (set! #{gen-label _hoQGWMnyQPAh3k2jhWHTD}#
- (let ((#{i _hoQGWMnyQPAh3k2jhWKEc}# 0))
+ (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}#
+ (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0))
(lambda ()
- (let ((#{n _hoQGWMnyQPAh3k2jhWKEd}#
- #{i _hoQGWMnyQPAh3k2jhWKEc}#))
+ (let ((#{n -ANAU$bmvAmthP7L7xwqAY}#
+ #{i -ANAU$bmvAmthP7L7xwqAX}#))
(begin
- (set! #{i _hoQGWMnyQPAh3k2jhWKEc}#
- (#{1+}# #{n _hoQGWMnyQPAh3k2jhWKEd}#))
- (number->string #{n _hoQGWMnyQPAh3k2jhWKEd}# 36))))))
- (set! #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#
+ (set! #{i -ANAU$bmvAmthP7L7xwqAX}#
+ (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#))
+ (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36))))))
+ (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#
(make-fluid
- (lambda (#{k _hoQGWMnyQPAh3k2jhWJpb}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
@@ -8998,1500 +8976,1500 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'syntax-parameterize
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHVs}#
- #{r _hoQGWMnyQPAh3k2jhWHVt}#
- #{w _hoQGWMnyQPAh3k2jhWHVu}#
- #{s _hoQGWMnyQPAh3k2jhWHVv}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHVy}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}#
+ #{r -ANAU$bmvAmthP7L7xwnQM}#
+ #{w -ANAU$bmvAmthP7L7xwnQN}#
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
+ #{mod -ANAU$bmvAmthP7L7xwnQP}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHVs}#
+ #{e -ANAU$bmvAmthP7L7xwnQL}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWHVy}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}#
(@apply
- (lambda (#{var _hoQGWMnyQPAh3k2jhWHV2}#
- #{val _hoQGWMnyQPAh3k2jhWHV3}#
- #{e1 _hoQGWMnyQPAh3k2jhWHV4}#
- #{e2 _hoQGWMnyQPAh3k2jhWHV5}#)
- (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
- #{var _hoQGWMnyQPAh3k2jhWHV2}#))
- #{tmp _hoQGWMnyQPAh3k2jhWHVy}#)
+ (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 _hoQGWMnyQPAh3k2jhWHXH}#
- #{val _hoQGWMnyQPAh3k2jhWHXI}#
- #{e1 _hoQGWMnyQPAh3k2jhWHXJ}#
- #{e2 _hoQGWMnyQPAh3k2jhWHXK}#)
- (let ((#{names _hoQGWMnyQPAh3k2jhWHXL}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHX9}#)
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{x _hoQGWMnyQPAh3k2jhWHX9}#
- #{w _hoQGWMnyQPAh3k2jhWHVu}#))
- #{var _hoQGWMnyQPAh3k2jhWHXH}#)))
+ (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 _hoQGWMnyQPAh3k2jhWHXM}#
- #{n _hoQGWMnyQPAh3k2jhWHXN}#)
- (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHXO}#
- (car (let ((#{t _hoQGWMnyQPAh3k2jhWHXV}#
- (assq #{n _hoQGWMnyQPAh3k2jhWHXN}#
- #{r _hoQGWMnyQPAh3k2jhWHVt}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWHXV}#
- (cdr #{t _hoQGWMnyQPAh3k2jhWHXV}#)
+ (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 _hoQGWMnyQPAh3k2jhWHXN}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWHXa}#
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- #{n _hoQGWMnyQPAh3k2jhWHXN}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWHXa}#
- #{t _hoQGWMnyQPAh3k2jhWHXa}#
+ #{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 _hoQGWMnyQPAh3k2jhWHXO}#
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}#
'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e _hoQGWMnyQPAh3k2jhWHVs}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{e -ANAU$bmvAmthP7L7xwnQL}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{id _hoQGWMnyQPAh3k2jhWHXM}#)
- #{s _hoQGWMnyQPAh3k2jhWHVv}#
+ (if (if (pair? #{id -ANAU$bmvAmthP7L7xwnRr}#)
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
#f)
(set-source-properties!
- #{id _hoQGWMnyQPAh3k2jhWHXM}#
- #{s _hoQGWMnyQPAh3k2jhWHVv}#))
- #{id _hoQGWMnyQPAh3k2jhWHXM}#)
- #{w _hoQGWMnyQPAh3k2jhWHVu}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))))
- #{var _hoQGWMnyQPAh3k2jhWHXH}#
- #{names _hoQGWMnyQPAh3k2jhWHXL}#)
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHXJ}#
- #{e2 _hoQGWMnyQPAh3k2jhWHXK}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{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 _hoQGWMnyQPAh3k2jhWHVs}#)
- #{s _hoQGWMnyQPAh3k2jhWHVv}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWHVs}#
- #{s _hoQGWMnyQPAh3k2jhWHVv}#))
- #{e _hoQGWMnyQPAh3k2jhWHVs}#)
- #{w _hoQGWMnyQPAh3k2jhWHVu}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#)
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- #{names _hoQGWMnyQPAh3k2jhWHXL}#
- (let ((#{trans-r _hoQGWMnyQPAh3k2jhWHZT}#
- (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}#
- #{r _hoQGWMnyQPAh3k2jhWHVt}#)))
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHZU}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHTr}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWHZU}#
- #{trans-r _hoQGWMnyQPAh3k2jhWHZT}#
- #{w _hoQGWMnyQPAh3k2jhWHVu}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#)
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))
- #{val _hoQGWMnyQPAh3k2jhWHXI}#))
- #{r _hoQGWMnyQPAh3k2jhWHVt}#)
- #{w _hoQGWMnyQPAh3k2jhWHVu}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWHVy}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#)
- #{s _hoQGWMnyQPAh3k2jhWHVv}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#)
+ #{s -ANAU$bmvAmthP7L7xwnQO}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWHVs}#
- #{s _hoQGWMnyQPAh3k2jhWHVv}#))
- #{e _hoQGWMnyQPAh3k2jhWHVs}#)
- #{w _hoQGWMnyQPAh3k2jhWHVu}#
- #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))))
+ #{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 _hoQGWMnyQPAh3k2jhWHcl}#
- #{r _hoQGWMnyQPAh3k2jhWHcm}#
- #{w _hoQGWMnyQPAh3k2jhWHcn}#
- #{s _hoQGWMnyQPAh3k2jhWHco}#
- #{mod _hoQGWMnyQPAh3k2jhWHcp}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHcr}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}#
+ #{r -ANAU$bmvAmthP7L7xwnXF}#
+ #{w -ANAU$bmvAmthP7L7xwnXG}#
+ #{s -ANAU$bmvAmthP7L7xwnXH}#
+ #{mod -ANAU$bmvAmthP7L7xwnXI}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHcl}#
+ #{e -ANAU$bmvAmthP7L7xwnXE}#
'(_ any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHcr}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnXK}#
(@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHcu}#)
- (let ((#{exp _hoQGWMnyQPAh3k2jhWHcy}#
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{e _hoQGWMnyQPAh3k2jhWHcu}#
- #{w _hoQGWMnyQPAh3k2jhWHcn}#)))
+ (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 _hoQGWMnyQPAh3k2jhWHco}#
- #{exp _hoQGWMnyQPAh3k2jhWHcy}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWHcr}#)
+ #{s -ANAU$bmvAmthP7L7xwnXH}#
+ #{exp -ANAU$bmvAmthP7L7xwnXR}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwnXK}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHcl}#)
- #{s _hoQGWMnyQPAh3k2jhWHco}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#)
+ #{s -ANAU$bmvAmthP7L7xwnXH}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWHcl}#
- #{s _hoQGWMnyQPAh3k2jhWHco}#))
- #{e _hoQGWMnyQPAh3k2jhWHcl}#)
- #{w _hoQGWMnyQPAh3k2jhWHcn}#
- #{mod _hoQGWMnyQPAh3k2jhWHcp}#)))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwnXE}#
+ #{s -ANAU$bmvAmthP7L7xwnXH}#))
+ #{e -ANAU$bmvAmthP7L7xwnXE}#)
+ #{w -ANAU$bmvAmthP7L7xwnXG}#
+ #{mod -ANAU$bmvAmthP7L7xwnXI}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'syntax
(letrec*
- ((#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWHh0}#
- #{e _hoQGWMnyQPAh3k2jhWHh1}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#)
- (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWHh1}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWHh1}#)
- (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWHh1}#)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#)
4)
- (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 0)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 1))
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1))
#f))
- (let ((#{label _hoQGWMnyQPAh3k2jhWHiU}#
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{e _hoQGWMnyQPAh3k2jhWHh1}#
+ (let ((#{label -ANAU$bmvAmthP7L7xwncz}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
'(()))))
- (let ((#{b _hoQGWMnyQPAh3k2jhWHiV}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWHic}#
- (assq #{label _hoQGWMnyQPAh3k2jhWHiU}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWHic}#
- (cdr #{t _hoQGWMnyQPAh3k2jhWHic}#)
- (if (symbol? #{label _hoQGWMnyQPAh3k2jhWHiU}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWHii}#
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- #{label _hoQGWMnyQPAh3k2jhWHiU}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWHii}#
- #{t _hoQGWMnyQPAh3k2jhWHii}#
+ (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 _hoQGWMnyQPAh3k2jhWHiV}#) 'syntax)
+ (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev _hoQGWMnyQPAh3k2jhWHir}#
- (cdr #{b _hoQGWMnyQPAh3k2jhWHiV}#)))
- (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- (car #{var.lev _hoQGWMnyQPAh3k2jhWHir}#)
- (cdr #{var.lev _hoQGWMnyQPAh3k2jhWHir}#)
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))
- (lambda (#{var _hoQGWMnyQPAh3k2jhWHiv}#
- #{maps _hoQGWMnyQPAh3k2jhWHiw}#)
+ (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 _hoQGWMnyQPAh3k2jhWHiv}#)
- #{maps _hoQGWMnyQPAh3k2jhWHiw}#)))
- (if (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{e _hoQGWMnyQPAh3k2jhWHh1}#)
+ (list 'ref #{var -ANAU$bmvAmthP7L7xwndO}#)
+ #{maps -ANAU$bmvAmthP7L7xwndP}#)))
+ (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src _hoQGWMnyQPAh3k2jhWHh0}#)
+ #{src -ANAU$bmvAmthP7L7xwncT}#)
(values
- (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#)
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHiy}#
+ (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#)
+ #{maps -ANAU$bmvAmthP7L7xwncW}#)))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHh1}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
'(any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWHiy}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}#
(@apply
- (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi2}#
- #{e _hoQGWMnyQPAh3k2jhWHi3}#)
- (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{dots _hoQGWMnyQPAh3k2jhWHi2}#))
- #{tmp _hoQGWMnyQPAh3k2jhWHiy}#)
+ (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}#
+ #{e -ANAU$bmvAmthP7L7xwndW}#)
+ (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{dots -ANAU$bmvAmthP7L7xwndV}#))
+ #{tmp -ANAU$bmvAmthP7L7xwndR}#)
#f)
(@apply
- (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi4}#
- #{e _hoQGWMnyQPAh3k2jhWHi5}#)
- (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- #{e _hoQGWMnyQPAh3k2jhWHi5}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHi6}#) #f)
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
- #{tmp _hoQGWMnyQPAh3k2jhWHiy}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHi7}#
+ (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 _hoQGWMnyQPAh3k2jhWHh1}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
'(any any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWHi7}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHi@}#
- #{dots _hoQGWMnyQPAh3k2jhWHjA}#
- #{y _hoQGWMnyQPAh3k2jhWHjB}#)
- (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{dots _hoQGWMnyQPAh3k2jhWHjA}#))
- #{tmp _hoQGWMnyQPAh3k2jhWHi7}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnde}#
+ #{dots -ANAU$bmvAmthP7L7xwndf}#
+ #{y -ANAU$bmvAmthP7L7xwndg}#)
+ (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{dots -ANAU$bmvAmthP7L7xwndf}#))
+ #{tmp -ANAU$bmvAmthP7L7xwnda}#)
#f)
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHjC}#
- #{dots _hoQGWMnyQPAh3k2jhWHjD}#
- #{y _hoQGWMnyQPAh3k2jhWHjE}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwndh}#
+ #{dots -ANAU$bmvAmthP7L7xwndi}#
+ #{y -ANAU$bmvAmthP7L7xwndj}#)
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWHjF}#
- (lambda (#{y _hoQGWMnyQPAh3k2jhWHjN}#
- #{k _hoQGWMnyQPAh3k2jhWHjO}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHjQ}#
+ ((#{f -ANAU$bmvAmthP7L7xwndk}#
+ (lambda (#{y -ANAU$bmvAmthP7L7xwnds}#
+ #{k -ANAU$bmvAmthP7L7xwndt}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWHjN}#
+ #{y -ANAU$bmvAmthP7L7xwnds}#
'(any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}#
(@apply
- (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjU}#
- #{y _hoQGWMnyQPAh3k2jhWHjV}#)
- (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{dots _hoQGWMnyQPAh3k2jhWHjU}#))
- #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#)
+ (lambda (#{dots -ANAU$bmvAmthP7L7xwndz}#
+ #{y -ANAU$bmvAmthP7L7xwnd0}#)
+ (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}#
+ #{dots -ANAU$bmvAmthP7L7xwndz}#))
+ #{tmp -ANAU$bmvAmthP7L7xwndv}#)
#f)
(@apply
- (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjW}#
- #{y _hoQGWMnyQPAh3k2jhWHjX}#)
- (#{f _hoQGWMnyQPAh3k2jhWHjF}#
- #{y _hoQGWMnyQPAh3k2jhWHjX}#
- (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjY}#)
+ (lambda (#{dots -ANAU$bmvAmthP7L7xwnd1}#
+ #{y -ANAU$bmvAmthP7L7xwnd2}#)
+ (#{f -ANAU$bmvAmthP7L7xwndk}#
+ #{y -ANAU$bmvAmthP7L7xwnd2}#
+ (lambda (#{maps -ANAU$bmvAmthP7L7xwnd3}#)
(call-with-values
(lambda ()
- (#{k _hoQGWMnyQPAh3k2jhWHjO}#
+ (#{k -ANAU$bmvAmthP7L7xwndt}#
(cons '()
- #{maps _hoQGWMnyQPAh3k2jhWHjY}#)))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHjZ}#
- #{maps _hoQGWMnyQPAh3k2jhWHja}#)
- (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHja}#))
+ #{maps -ANAU$bmvAmthP7L7xwnd3}#)))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnd4}#
+ #{maps -ANAU$bmvAmthP7L7xwnd5}#)
+ (if (null? (car #{maps -ANAU$bmvAmthP7L7xwnd5}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src _hoQGWMnyQPAh3k2jhWHh0}#)
+ #{src -ANAU$bmvAmthP7L7xwncT}#)
(values
- (let ((#{map-env _hoQGWMnyQPAh3k2jhWHje}#
- (car #{maps _hoQGWMnyQPAh3k2jhWHja}#)))
+ (let ((#{map-env -ANAU$bmvAmthP7L7xwnd9}#
+ (car #{maps -ANAU$bmvAmthP7L7xwnd5}#)))
(list 'apply
'(primitive
append)
- (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}#
- #{x _hoQGWMnyQPAh3k2jhWHjZ}#
- #{map-env _hoQGWMnyQPAh3k2jhWHje}#)))
- (cdr #{maps _hoQGWMnyQPAh3k2jhWHja}#))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#)
+ (#{gen-map -ANAU$bmvAmthP7L7xwnaw}#
+ #{x -ANAU$bmvAmthP7L7xwnd4}#
+ #{map-env -ANAU$bmvAmthP7L7xwnd9}#)))
+ (cdr #{maps -ANAU$bmvAmthP7L7xwnd5}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwndv}#)
(call-with-values
(lambda ()
- (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- #{y _hoQGWMnyQPAh3k2jhWHjN}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
- (lambda (#{y _hoQGWMnyQPAh3k2jhWHjh}#
- #{maps _hoQGWMnyQPAh3k2jhWHji}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHjO}#
- #{maps _hoQGWMnyQPAh3k2jhWHji}#))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHjj}#
- #{maps _hoQGWMnyQPAh3k2jhWHjk}#)
+ (#{k -ANAU$bmvAmthP7L7xwndt}#
+ #{maps -ANAU$bmvAmthP7L7xwneB}#))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwneC}#
+ #{maps -ANAU$bmvAmthP7L7xwneD}#)
(values
(if (equal?
- #{y _hoQGWMnyQPAh3k2jhWHjh}#
+ #{y -ANAU$bmvAmthP7L7xwneA}#
''())
- #{x _hoQGWMnyQPAh3k2jhWHjj}#
+ #{x -ANAU$bmvAmthP7L7xwneC}#
(list 'append
- #{x _hoQGWMnyQPAh3k2jhWHjj}#
- #{y _hoQGWMnyQPAh3k2jhWHjh}#))
- #{maps _hoQGWMnyQPAh3k2jhWHjk}#))))))))))
- (#{f _hoQGWMnyQPAh3k2jhWHjF}#
- #{y _hoQGWMnyQPAh3k2jhWHjE}#
- (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjI}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHgO}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- #{x _hoQGWMnyQPAh3k2jhWHjC}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{src -ANAU$bmvAmthP7L7xwncT}#
+ #{x -ANAU$bmvAmthP7L7xwndh}#
+ #{r -ANAU$bmvAmthP7L7xwncV}#
(cons '()
- #{maps _hoQGWMnyQPAh3k2jhWHjI}#)
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHjJ}#
- #{maps _hoQGWMnyQPAh3k2jhWHjK}#)
- (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#))
+ #{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 _hoQGWMnyQPAh3k2jhWHh0}#)
+ #{src -ANAU$bmvAmthP7L7xwncT}#)
(values
- (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}#
- #{x _hoQGWMnyQPAh3k2jhWHjJ}#
- (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#))
- (cdr #{maps _hoQGWMnyQPAh3k2jhWHjK}#)))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWHi7}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHj0}#
+ (#{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 _hoQGWMnyQPAh3k2jhWHh1}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
'(any . any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHj0}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwneT}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHj4}#
- #{y _hoQGWMnyQPAh3k2jhWHj5}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwneX}#
+ #{y -ANAU$bmvAmthP7L7xwneY}#)
(call-with-values
(lambda ()
- (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- #{x _hoQGWMnyQPAh3k2jhWHj4}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHj6}#
- #{maps _hoQGWMnyQPAh3k2jhWHj7}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHgO}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- #{y _hoQGWMnyQPAh3k2jhWHj5}#
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
- #{maps _hoQGWMnyQPAh3k2jhWHj7}#
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
- (lambda (#{y _hoQGWMnyQPAh3k2jhWHj8}#
- #{maps _hoQGWMnyQPAh3k2jhWHj9}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHkC}#
- (car #{y _hoQGWMnyQPAh3k2jhWHj8}#)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}#
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwneh}#
+ (car #{y -ANAU$bmvAmthP7L7xwneb}#)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}#
'quote)
- (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHj6}#)
+ (if (eq? (car #{x -ANAU$bmvAmthP7L7xwneZ}#)
'quote)
(list 'quote
- (cons (car (cdr #{x _hoQGWMnyQPAh3k2jhWHj6}#))
- (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))))
- (if (eq? (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))
+ (cons (car (cdr #{x -ANAU$bmvAmthP7L7xwneZ}#))
+ (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))))
+ (if (eq? (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))
'())
(list 'list
- #{x _hoQGWMnyQPAh3k2jhWHj6}#)
+ #{x -ANAU$bmvAmthP7L7xwneZ}#)
(list 'cons
- #{x _hoQGWMnyQPAh3k2jhWHj6}#
- #{y _hoQGWMnyQPAh3k2jhWHj8}#)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}#
+ #{x -ANAU$bmvAmthP7L7xwneZ}#
+ #{y -ANAU$bmvAmthP7L7xwneb}#)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}#
'list)
(cons 'list
- (cons #{x _hoQGWMnyQPAh3k2jhWHj6}#
- (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)))
+ (cons #{x -ANAU$bmvAmthP7L7xwneZ}#
+ (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)))
(list 'cons
- #{x _hoQGWMnyQPAh3k2jhWHj6}#
- #{y _hoQGWMnyQPAh3k2jhWHj8}#))))
- #{maps _hoQGWMnyQPAh3k2jhWHj9}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWHj0}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHkf}#
+ #{x -ANAU$bmvAmthP7L7xwneZ}#
+ #{y -ANAU$bmvAmthP7L7xwneb}#))))
+ #{maps -ANAU$bmvAmthP7L7xwnec}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwneT}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHh1}#
+ #{e -ANAU$bmvAmthP7L7xwncU}#
'#(vector (any . each-any)))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHkf}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwne$}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWHkj}#
- #{e2 _hoQGWMnyQPAh3k2jhWHkk}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}#
+ #{e2 -ANAU$bmvAmthP7L7xwnfD}#)
(call-with-values
(lambda ()
- (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
- #{src _hoQGWMnyQPAh3k2jhWHh0}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHkj}#
- #{e2 _hoQGWMnyQPAh3k2jhWHkk}#)
- #{r _hoQGWMnyQPAh3k2jhWHh2}#
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}#
- #{mod _hoQGWMnyQPAh3k2jhWHh5}#))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHkl}#
- #{maps _hoQGWMnyQPAh3k2jhWHkm}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHkl}#)
+ (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#)
'list)
(cons 'vector
- (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#))
- (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#)
+ (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#))
+ (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#)
'quote)
(list 'quote
(list->vector
- (car (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#))))
+ (car (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#))))
(list 'list->vector
- #{e _hoQGWMnyQPAh3k2jhWHkl}#)))
- #{maps _hoQGWMnyQPAh3k2jhWHkm}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWHkf}#)
+ #{e -ANAU$bmvAmthP7L7xwnfE}#)))
+ #{maps -ANAU$bmvAmthP7L7xwnfF}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwne$}#)
(values
- (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#)
- #{maps _hoQGWMnyQPAh3k2jhWHh3}#))))))))))))
- (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}#
- (lambda (#{src _hoQGWMnyQPAh3k2jhWHlB}#
- #{var _hoQGWMnyQPAh3k2jhWHlC}#
- #{level _hoQGWMnyQPAh3k2jhWHlD}#
- #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
- (if (= #{level _hoQGWMnyQPAh3k2jhWHlD}# 0)
+ (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 _hoQGWMnyQPAh3k2jhWHlC}#
- #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
- (if (null? #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
+ #{var -ANAU$bmvAmthP7L7xwnfh}#
+ #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src _hoQGWMnyQPAh3k2jhWHlB}#)
+ #{src -ANAU$bmvAmthP7L7xwnfg}#)
(call-with-values
(lambda ()
- (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}#
- #{src _hoQGWMnyQPAh3k2jhWHlB}#
- #{var _hoQGWMnyQPAh3k2jhWHlC}#
- (#{1-}# #{level _hoQGWMnyQPAh3k2jhWHlD}#)
- (cdr #{maps _hoQGWMnyQPAh3k2jhWHlE}#)))
- (lambda (#{outer-var _hoQGWMnyQPAh3k2jhWHlF}#
- #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#)
- (let ((#{b _hoQGWMnyQPAh3k2jhWHlH}#
- (assq #{outer-var _hoQGWMnyQPAh3k2jhWHlF}#
- (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#))))
- (if #{b _hoQGWMnyQPAh3k2jhWHlH}#
+ (#{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 _hoQGWMnyQPAh3k2jhWHlH}#)
- #{maps _hoQGWMnyQPAh3k2jhWHlE}#)
- (let ((#{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwnfm}#)
+ #{maps -ANAU$bmvAmthP7L7xwnfj}#)
+ (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}#
(gensym
(string-append
(symbol->string 'tmp)
" "))))
(values
- #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#
- (cons (cons (cons #{outer-var _hoQGWMnyQPAh3k2jhWHlF}#
- #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#)
- (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#))
- #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#)))))))))))
- (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHlX}#
- #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)
- (let ((#{formals _hoQGWMnyQPAh3k2jhWHlZ}#
- (map cdr #{map-env _hoQGWMnyQPAh3k2jhWHlY}#))
- (#{actuals _hoQGWMnyQPAh3k2jhWHla}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHlc}#)
- (list 'ref (car #{x _hoQGWMnyQPAh3k2jhWHlc}#)))
- #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)))
- (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHlX}#) 'ref)
- (car #{actuals _hoQGWMnyQPAh3k2jhWHla}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHld}#)
- (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHld}#) 'ref)
- (memq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHld}#))
- #{formals _hoQGWMnyQPAh3k2jhWHlZ}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#)
+ (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref)
+ (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#))
+ #{formals -ANAU$bmvAmthP7L7xwnf4}#)
#f))
- (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#))
+ (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))
(cons 'map
(cons (list 'primitive
- (car #{e _hoQGWMnyQPAh3k2jhWHlX}#))
- (map (let ((#{r _hoQGWMnyQPAh3k2jhWHlf}#
+ (car #{e -ANAU$bmvAmthP7L7xwnf2}#))
+ (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}#
(map cons
- #{formals _hoQGWMnyQPAh3k2jhWHlZ}#
- #{actuals _hoQGWMnyQPAh3k2jhWHla}#)))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHlg}#)
- (cdr (assq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHlg}#))
- #{r _hoQGWMnyQPAh3k2jhWHlf}#))))
- (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#))))
+ #{formals -ANAU$bmvAmthP7L7xwnf4}#
+ #{actuals -ANAU$bmvAmthP7L7xwnf5}#)))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnf@}#)
+ (cdr (assq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf@}#))
+ #{r -ANAU$bmvAmthP7L7xwnf$}#))))
+ (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#))))
(cons 'map
(cons (list 'lambda
- #{formals _hoQGWMnyQPAh3k2jhWHlZ}#
- #{e _hoQGWMnyQPAh3k2jhWHlX}#)
- #{actuals _hoQGWMnyQPAh3k2jhWHla}#)))))))
- (#{regen _hoQGWMnyQPAh3k2jhWHgV}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHli}#)
- (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHlj}#
- (car #{x _hoQGWMnyQPAh3k2jhWHli}#)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'ref)
- (let ((#{name _hoQGWMnyQPAh3k2jhWHlt}#
- (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
- (#{var _hoQGWMnyQPAh3k2jhWHlu}#
- (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
+ #{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 _hoQGWMnyQPAh3k2jhWHlt}#
- #{var _hoQGWMnyQPAh3k2jhWHlu}#))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}#
+ #{name -ANAU$bmvAmthP7L7xwngM}#
+ #{var -ANAU$bmvAmthP7L7xwngN}#))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
'primitive)
- (let ((#{name _hoQGWMnyQPAh3k2jhWHl6}#
- (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
+ (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 _hoQGWMnyQPAh3k2jhWHl6}#)
+ #{name -ANAU$bmvAmthP7L7xwngZ}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name _hoQGWMnyQPAh3k2jhWHl6}#
+ #{name -ANAU$bmvAmthP7L7xwngZ}#
#f)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'quote)
- (let ((#{exp _hoQGWMnyQPAh3k2jhWHmM}#
- (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
+ (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 _hoQGWMnyQPAh3k2jhWHmM}#))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}#
+ #{exp -ANAU$bmvAmthP7L7xwngr}#))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}#
'lambda)
- (if (list? (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
- (let ((#{req _hoQGWMnyQPAh3k2jhWHmX}#
- (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
- (#{vars _hoQGWMnyQPAh3k2jhWHmZ}#
- (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))
- (#{exp _hoQGWMnyQPAh3k2jhWHmb}#
- (#{regen _hoQGWMnyQPAh3k2jhWHgV}#
- (car (cdr (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))))
- (let ((#{body _hoQGWMnyQPAh3k2jhWHmg}#
+ (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 -ANAU$bmvAmthP7L7xwng@}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req _hoQGWMnyQPAh3k2jhWHmX}#
+ #{req -ANAU$bmvAmthP7L7xwng2}#
#f
#f
#f
'()
- #{vars _hoQGWMnyQPAh3k2jhWHmZ}#
- #{exp _hoQGWMnyQPAh3k2jhWHmb}#
+ #{vars -ANAU$bmvAmthP7L7xwng4}#
+ #{exp -ANAU$bmvAmthP7L7xwng6}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body _hoQGWMnyQPAh3k2jhWHmg}#)))
+ #{body -ANAU$bmvAmthP7L7xwng@}#)))
(error "how did we get here"
- #{x _hoQGWMnyQPAh3k2jhWHli}#))
- (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWHmw}#
- (let ((#{name _hoQGWMnyQPAh3k2jhWHm5}#
- (car #{x _hoQGWMnyQPAh3k2jhWHli}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWHm5}#)
+ #{name -ANAU$bmvAmthP7L7xwnhY}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name _hoQGWMnyQPAh3k2jhWHm5}#
+ #{name -ANAU$bmvAmthP7L7xwnhY}#
#f))))
- (#{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#
- (map #{regen _hoQGWMnyQPAh3k2jhWHgV}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))))
+ (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#
+ (map #{regen -ANAU$bmvAmthP7L7xwna0}#
+ (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _hoQGWMnyQPAh3k2jhWHmw}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#))))))))))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHgW}#
- #{r _hoQGWMnyQPAh3k2jhWHgX}#
- #{w _hoQGWMnyQPAh3k2jhWHgY}#
- #{s _hoQGWMnyQPAh3k2jhWHgZ}#
- #{mod _hoQGWMnyQPAh3k2jhWHga}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWHgb}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ #{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 _hoQGWMnyQPAh3k2jhWHgW}#)
- #{s _hoQGWMnyQPAh3k2jhWHgZ}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#)
+ #{s -ANAU$bmvAmthP7L7xwna4}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWHgW}#
- #{s _hoQGWMnyQPAh3k2jhWHgZ}#))
- #{e _hoQGWMnyQPAh3k2jhWHgW}#)
- #{w _hoQGWMnyQPAh3k2jhWHgY}#
- #{mod _hoQGWMnyQPAh3k2jhWHga}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHgd}#
+ #{e -ANAU$bmvAmthP7L7xwna1}#
+ #{s -ANAU$bmvAmthP7L7xwna4}#))
+ #{e -ANAU$bmvAmthP7L7xwna1}#)
+ #{w -ANAU$bmvAmthP7L7xwna3}#
+ #{mod -ANAU$bmvAmthP7L7xwna5}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHgb}#
+ #{e -ANAU$bmvAmthP7L7xwna6}#
'(_ any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHgd}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwna8}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWHg2}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#)
(call-with-values
(lambda ()
- (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}#
- #{e _hoQGWMnyQPAh3k2jhWHgb}#
- #{x _hoQGWMnyQPAh3k2jhWHg2}#
- #{r _hoQGWMnyQPAh3k2jhWHgX}#
+ (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}#
+ #{e -ANAU$bmvAmthP7L7xwna6}#
+ #{x -ANAU$bmvAmthP7L7xwnbV}#
+ #{r -ANAU$bmvAmthP7L7xwna2}#
'()
- #{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}#
- #{mod _hoQGWMnyQPAh3k2jhWHga}#))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHhs}#
- #{maps _hoQGWMnyQPAh3k2jhWHht}#)
- (#{regen _hoQGWMnyQPAh3k2jhWHgV}#
- #{e _hoQGWMnyQPAh3k2jhWHhs}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWHgd}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHgb}#)))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwna6}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'lambda
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHp2}#
- #{r _hoQGWMnyQPAh3k2jhWHp3}#
- #{w _hoQGWMnyQPAh3k2jhWHp4}#
- #{s _hoQGWMnyQPAh3k2jhWHp5}#
- #{mod _hoQGWMnyQPAh3k2jhWHp6}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHp8}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}#
+ #{r -ANAU$bmvAmthP7L7xwnkW}#
+ #{w -ANAU$bmvAmthP7L7xwnkX}#
+ #{s -ANAU$bmvAmthP7L7xwnkY}#
+ #{mod -ANAU$bmvAmthP7L7xwnkZ}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHp2}#
+ #{e -ANAU$bmvAmthP7L7xwnkV}#
'(_ any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHp8}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnkb}#
(@apply
- (lambda (#{args _hoQGWMnyQPAh3k2jhWHqA}#
- #{e1 _hoQGWMnyQPAh3k2jhWHqB}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqC}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}#
+ #{e1 -ANAU$bmvAmthP7L7xwnkg}#
+ #{e2 -ANAU$bmvAmthP7L7xwnkh}#)
(call-with-values
(lambda ()
- (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}#
- #{args _hoQGWMnyQPAh3k2jhWHqA}#))
- (lambda (#{req _hoQGWMnyQPAh3k2jhWHqF}#
- #{opt _hoQGWMnyQPAh3k2jhWHqG}#
- #{rest _hoQGWMnyQPAh3k2jhWHqH}#
- #{kw _hoQGWMnyQPAh3k2jhWHqI}#)
+ (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}#
+ #{args -ANAU$bmvAmthP7L7xwnkf}#))
+ (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}#
+ #{opt -ANAU$bmvAmthP7L7xwnkl}#
+ #{rest -ANAU$bmvAmthP7L7xwnkm}#
+ #{kw -ANAU$bmvAmthP7L7xwnkn}#)
(letrec*
- ((#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
- (lambda (#{body _hoQGWMnyQPAh3k2jhWHqM}#
- #{meta _hoQGWMnyQPAh3k2jhWHqN}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqP}#
+ ((#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}#
($sc-dispatch
- #{body _hoQGWMnyQPAh3k2jhWHqM}#
+ #{body -ANAU$bmvAmthP7L7xwnkr}#
'(any any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWHqP}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}#
(@apply
- (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqT}#
- #{e1 _hoQGWMnyQPAh3k2jhWHqU}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqV}#)
+ (lambda (#{docstring -ANAU$bmvAmthP7L7xwnky}#
+ #{e1 -ANAU$bmvAmthP7L7xwnkz}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk0}#)
(string?
(syntax->datum
- #{docstring _hoQGWMnyQPAh3k2jhWHqT}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWHqP}#)
+ #{docstring -ANAU$bmvAmthP7L7xwnky}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwnku}#)
#f)
(@apply
- (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqW}#
- #{e1 _hoQGWMnyQPAh3k2jhWHqX}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqY}#)
- (#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHqX}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqY}#)
+ (lambda (#{docstring -ANAU$bmvAmthP7L7xwnk1}#
+ #{e1 -ANAU$bmvAmthP7L7xwnk2}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
+ (#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk3}#)
(append
- #{meta _hoQGWMnyQPAh3k2jhWHqN}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#
(list (cons 'documentation
(syntax->datum
- #{docstring _hoQGWMnyQPAh3k2jhWHqW}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWHqP}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqZ}#
+ #{docstring -ANAU$bmvAmthP7L7xwnk1}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwnku}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}#
($sc-dispatch
- #{body _hoQGWMnyQPAh3k2jhWHqM}#
+ #{body -ANAU$bmvAmthP7L7xwnkr}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnk4}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWHqd}#
- #{v _hoQGWMnyQPAh3k2jhWHqe}#
- #{e1 _hoQGWMnyQPAh3k2jhWHqf}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqg}#)
- (#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHqf}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqg}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}#
+ #{v -ANAU$bmvAmthP7L7xwnk9}#
+ #{e1 -ANAU$bmvAmthP7L7xwnk$}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk@}#)
+ (#{lp -ANAU$bmvAmthP7L7xwnko}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}#
+ #{e2 -ANAU$bmvAmthP7L7xwnk@}#)
(append
- #{meta _hoQGWMnyQPAh3k2jhWHqN}#
+ #{meta -ANAU$bmvAmthP7L7xwnks}#
(syntax->datum
(map cons
- #{k _hoQGWMnyQPAh3k2jhWHqd}#
- #{v _hoQGWMnyQPAh3k2jhWHqe}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#)
- (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}#
- #{e _hoQGWMnyQPAh3k2jhWHp2}#
- #{r _hoQGWMnyQPAh3k2jhWHp3}#
- #{w _hoQGWMnyQPAh3k2jhWHp4}#
- #{s _hoQGWMnyQPAh3k2jhWHp5}#
- #{mod _hoQGWMnyQPAh3k2jhWHp6}#
- #{req _hoQGWMnyQPAh3k2jhWHqF}#
- #{rest _hoQGWMnyQPAh3k2jhWHqH}#
- #{meta _hoQGWMnyQPAh3k2jhWHqN}#
- #{body _hoQGWMnyQPAh3k2jhWHqM}#))))))))
- (#{lp _hoQGWMnyQPAh3k2jhWHqJ}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHqB}#
- #{e2 _hoQGWMnyQPAh3k2jhWHqC}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHp8}#)
+ #{tmp -ANAU$bmvAmthP7L7xwnkb}#)
(syntax-violation
'lambda
"bad lambda"
- #{e _hoQGWMnyQPAh3k2jhWHp2}#)))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwnkV}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'lambda*
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHu9}#
- #{r _hoQGWMnyQPAh3k2jhWHu$}#
- #{w _hoQGWMnyQPAh3k2jhWHu@}#
- #{s _hoQGWMnyQPAh3k2jhWHvA}#
- #{mod _hoQGWMnyQPAh3k2jhWHvB}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHvD}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}#
+ #{r -ANAU$bmvAmthP7L7xwnpd}#
+ #{w -ANAU$bmvAmthP7L7xwnpe}#
+ #{s -ANAU$bmvAmthP7L7xwnpf}#
+ #{mod -ANAU$bmvAmthP7L7xwnpg}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHu9}#
+ #{e -ANAU$bmvAmthP7L7xwnpc}#
'(_ any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHvD}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnpi}#
(@apply
- (lambda (#{args _hoQGWMnyQPAh3k2jhWHvH}#
- #{e1 _hoQGWMnyQPAh3k2jhWHvI}#
- #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#)
+ (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}#
+ #{e1 -ANAU$bmvAmthP7L7xwnpn}#
+ #{e2 -ANAU$bmvAmthP7L7xwnpo}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}#
- #{e _hoQGWMnyQPAh3k2jhWHu9}#
- #{r _hoQGWMnyQPAh3k2jhWHu$}#
- #{w _hoQGWMnyQPAh3k2jhWHu@}#
- #{s _hoQGWMnyQPAh3k2jhWHvA}#
- #{mod _hoQGWMnyQPAh3k2jhWHvB}#
- #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}#
- (list (cons #{args _hoQGWMnyQPAh3k2jhWHvH}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHvI}#
- #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#)))))
- (lambda (#{meta _hoQGWMnyQPAh3k2jhWHvM}#
- #{lcase _hoQGWMnyQPAh3k2jhWHvN}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHvA}#
- #{meta _hoQGWMnyQPAh3k2jhWHvM}#
- #{lcase _hoQGWMnyQPAh3k2jhWHvN}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWHvD}#)
+ #{s -ANAU$bmvAmthP7L7xwnpf}#
+ #{meta -ANAU$bmvAmthP7L7xwnpr}#
+ #{lcase -ANAU$bmvAmthP7L7xwnps}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnpi}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e _hoQGWMnyQPAh3k2jhWHu9}#)))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwnpc}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'case-lambda
- (lambda (#{e _hoQGWMnyQPAh3k2jhWHx3}#
- #{r _hoQGWMnyQPAh3k2jhWHx4}#
- #{w _hoQGWMnyQPAh3k2jhWHx5}#
- #{s _hoQGWMnyQPAh3k2jhWHx6}#
- #{mod _hoQGWMnyQPAh3k2jhWHx7}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWHx9}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}#
+ #{r -ANAU$bmvAmthP7L7xwnsX}#
+ #{w -ANAU$bmvAmthP7L7xwnsY}#
+ #{s -ANAU$bmvAmthP7L7xwnsZ}#
+ #{mod -ANAU$bmvAmthP7L7xwnsa}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWHx3}#
+ #{e -ANAU$bmvAmthP7L7xwnsW}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWHx9}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnsc}#
(@apply
- (lambda (#{args _hoQGWMnyQPAh3k2jhWHyB}#
- #{e1 _hoQGWMnyQPAh3k2jhWHyC}#
- #{e2 _hoQGWMnyQPAh3k2jhWHyD}#
- #{args* _hoQGWMnyQPAh3k2jhWHyE}#
- #{e1* _hoQGWMnyQPAh3k2jhWHyF}#
- #{e2* _hoQGWMnyQPAh3k2jhWHyG}#)
+ (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 _hoQGWMnyQPAh3k2jhWHTx}#
- #{e _hoQGWMnyQPAh3k2jhWHx3}#
- #{r _hoQGWMnyQPAh3k2jhWHx4}#
- #{w _hoQGWMnyQPAh3k2jhWHx5}#
- #{s _hoQGWMnyQPAh3k2jhWHx6}#
- #{mod _hoQGWMnyQPAh3k2jhWHx7}#
- #{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}#
- (cons (cons #{args _hoQGWMnyQPAh3k2jhWHyB}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWHyC}#
- #{e2 _hoQGWMnyQPAh3k2jhWHyD}#))
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#
- #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}#
- #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#)
- (cons #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#
- (cons #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}#
- #{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#)))
- #{e2* _hoQGWMnyQPAh3k2jhWHyG}#
- #{e1* _hoQGWMnyQPAh3k2jhWHyF}#
- #{args* _hoQGWMnyQPAh3k2jhWHyE}#))))
- (lambda (#{meta _hoQGWMnyQPAh3k2jhWHyM}#
- #{lcase _hoQGWMnyQPAh3k2jhWHyN}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWHx6}#
- #{meta _hoQGWMnyQPAh3k2jhWHyM}#
- #{lcase _hoQGWMnyQPAh3k2jhWHyN}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWHx9}#)
+ #{s -ANAU$bmvAmthP7L7xwnsZ}#
+ #{meta -ANAU$bmvAmthP7L7xwnsr}#
+ #{lcase -ANAU$bmvAmthP7L7xwnss}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnsc}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e _hoQGWMnyQPAh3k2jhWHx3}#)))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwnsW}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'case-lambda*
- (lambda (#{e _hoQGWMnyQPAh3k2jhWH0v}#
- #{r _hoQGWMnyQPAh3k2jhWH0w}#
- #{w _hoQGWMnyQPAh3k2jhWH0x}#
- #{s _hoQGWMnyQPAh3k2jhWH0y}#
- #{mod _hoQGWMnyQPAh3k2jhWH0z}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWH01}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}#
+ #{r -ANAU$bmvAmthP7L7xwnvP}#
+ #{w -ANAU$bmvAmthP7L7xwnvQ}#
+ #{s -ANAU$bmvAmthP7L7xwnvR}#
+ #{mod -ANAU$bmvAmthP7L7xwnvS}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWH0v}#
+ #{e -ANAU$bmvAmthP7L7xwnvO}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWH01}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwnvU}#
(@apply
- (lambda (#{args _hoQGWMnyQPAh3k2jhWH05}#
- #{e1 _hoQGWMnyQPAh3k2jhWH06}#
- #{e2 _hoQGWMnyQPAh3k2jhWH07}#
- #{args* _hoQGWMnyQPAh3k2jhWH08}#
- #{e1* _hoQGWMnyQPAh3k2jhWH09}#
- #{e2* _hoQGWMnyQPAh3k2jhWH0$}#)
+ (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 _hoQGWMnyQPAh3k2jhWHTx}#
- #{e _hoQGWMnyQPAh3k2jhWH0v}#
- #{r _hoQGWMnyQPAh3k2jhWH0w}#
- #{w _hoQGWMnyQPAh3k2jhWH0x}#
- #{s _hoQGWMnyQPAh3k2jhWH0y}#
- #{mod _hoQGWMnyQPAh3k2jhWH0z}#
- #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}#
- (cons (cons #{args _hoQGWMnyQPAh3k2jhWH05}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWH06}#
- #{e2 _hoQGWMnyQPAh3k2jhWH07}#))
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#
- #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}#
- #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#)
- (cons #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#
- (cons #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}#
- #{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#)))
- #{e2* _hoQGWMnyQPAh3k2jhWH0$}#
- #{e1* _hoQGWMnyQPAh3k2jhWH09}#
- #{args* _hoQGWMnyQPAh3k2jhWH08}#))))
- (lambda (#{meta _hoQGWMnyQPAh3k2jhWH1E}#
- #{lcase _hoQGWMnyQPAh3k2jhWH1F}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWH0y}#
- #{meta _hoQGWMnyQPAh3k2jhWH1E}#
- #{lcase _hoQGWMnyQPAh3k2jhWH1F}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWH01}#)
+ #{s -ANAU$bmvAmthP7L7xwnvR}#
+ #{meta -ANAU$bmvAmthP7L7xwnvj}#
+ #{lcase -ANAU$bmvAmthP7L7xwnvk}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwnvU}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e _hoQGWMnyQPAh3k2jhWH0v}#)))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwnvO}#)))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'let
(letrec*
- ((#{expand-let _hoQGWMnyQPAh3k2jhWH4E}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWH6Z}#
- #{r _hoQGWMnyQPAh3k2jhWH6a}#
- #{w _hoQGWMnyQPAh3k2jhWH6b}#
- #{s _hoQGWMnyQPAh3k2jhWH6c}#
- #{mod _hoQGWMnyQPAh3k2jhWH6d}#
- #{constructor _hoQGWMnyQPAh3k2jhWH6e}#
- #{ids _hoQGWMnyQPAh3k2jhWH6f}#
- #{vals _hoQGWMnyQPAh3k2jhWH6g}#
- #{exps _hoQGWMnyQPAh3k2jhWH6h}#)
- (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
- #{ids _hoQGWMnyQPAh3k2jhWH6f}#))
+ ((#{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 -ANAU$bmvAmthP7L7xwn0@}#
+ #{exps -ANAU$bmvAmthP7L7xwn1A}#)
+ (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}#
+ #{ids -ANAU$bmvAmthP7L7xwn0$}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e _hoQGWMnyQPAh3k2jhWH6Z}#)
- (let ((#{labels _hoQGWMnyQPAh3k2jhWH7v}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{ids _hoQGWMnyQPAh3k2jhWH6f}#))
- (#{new-vars _hoQGWMnyQPAh3k2jhWH7w}#
- (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- #{ids _hoQGWMnyQPAh3k2jhWH6f}#)))
- (let ((#{nw _hoQGWMnyQPAh3k2jhWH7x}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{ids _hoQGWMnyQPAh3k2jhWH6f}#
- #{labels _hoQGWMnyQPAh3k2jhWH7v}#
- #{w _hoQGWMnyQPAh3k2jhWH6b}#))
- (#{nr _hoQGWMnyQPAh3k2jhWH7y}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{labels _hoQGWMnyQPAh3k2jhWH7v}#
- #{new-vars _hoQGWMnyQPAh3k2jhWH7w}#
- #{r _hoQGWMnyQPAh3k2jhWH6a}#)))
- (#{constructor _hoQGWMnyQPAh3k2jhWH6e}#
- #{s _hoQGWMnyQPAh3k2jhWH6c}#
+ #{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 _hoQGWMnyQPAh3k2jhWH6f}#)
- #{new-vars _hoQGWMnyQPAh3k2jhWH7w}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWH8D}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWH8D}#
- #{r _hoQGWMnyQPAh3k2jhWH6a}#
- #{w _hoQGWMnyQPAh3k2jhWH6b}#
- #{mod _hoQGWMnyQPAh3k2jhWH6d}#))
- #{vals _hoQGWMnyQPAh3k2jhWH6g}#)
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- #{exps _hoQGWMnyQPAh3k2jhWH6h}#
- (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}#
- #{e _hoQGWMnyQPAh3k2jhWH6Z}#
- #{nw _hoQGWMnyQPAh3k2jhWH7x}#
- #{s _hoQGWMnyQPAh3k2jhWH6c}#
- #{mod _hoQGWMnyQPAh3k2jhWH6d}#)
- #{nr _hoQGWMnyQPAh3k2jhWH7y}#
- #{nw _hoQGWMnyQPAh3k2jhWH7x}#
- #{mod _hoQGWMnyQPAh3k2jhWH6d}#))))))))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWH4F}#
- #{r _hoQGWMnyQPAh3k2jhWH4G}#
- #{w _hoQGWMnyQPAh3k2jhWH4H}#
- #{s _hoQGWMnyQPAh3k2jhWH4I}#
- #{mod _hoQGWMnyQPAh3k2jhWH4J}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWH4L}#
+ #{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 -ANAU$bmvAmthP7L7xwn0@}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWH4F}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWH4L}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWH4P}#
- #{val _hoQGWMnyQPAh3k2jhWH4Q}#
- #{e1 _hoQGWMnyQPAh3k2jhWH4R}#
- #{e2 _hoQGWMnyQPAh3k2jhWH4S}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}#
+ #{val -ANAU$bmvAmthP7L7xwnyv}#
+ #{e1 -ANAU$bmvAmthP7L7xwnyw}#
+ #{e2 -ANAU$bmvAmthP7L7xwnyx}#)
(and-map
- #{id? _hoQGWMnyQPAh3k2jhWHTB}#
- #{id _hoQGWMnyQPAh3k2jhWH4P}#))
- #{tmp _hoQGWMnyQPAh3k2jhWH4L}#)
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwnyu}#))
+ #{tmp -ANAU$bmvAmthP7L7xwnyq}#)
#f)
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWH4i}#
- #{val _hoQGWMnyQPAh3k2jhWH4j}#
- #{e1 _hoQGWMnyQPAh3k2jhWH4k}#
- #{e2 _hoQGWMnyQPAh3k2jhWH4l}#)
- (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}#
- #{e _hoQGWMnyQPAh3k2jhWH4F}#
- #{r _hoQGWMnyQPAh3k2jhWH4G}#
- #{w _hoQGWMnyQPAh3k2jhWH4H}#
- #{s _hoQGWMnyQPAh3k2jhWH4I}#
- #{mod _hoQGWMnyQPAh3k2jhWH4J}#
- #{build-let _hoQGWMnyQPAh3k2jhWHSv}#
- #{id _hoQGWMnyQPAh3k2jhWH4i}#
- #{val _hoQGWMnyQPAh3k2jhWH4j}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWH4k}#
- #{e2 _hoQGWMnyQPAh3k2jhWH4l}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWH4L}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWH5D}#
+ (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 _hoQGWMnyQPAh3k2jhWH4F}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWH5D}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}#
(@apply
- (lambda (#{f _hoQGWMnyQPAh3k2jhWH5H}#
- #{id _hoQGWMnyQPAh3k2jhWH5I}#
- #{val _hoQGWMnyQPAh3k2jhWH5J}#
- #{e1 _hoQGWMnyQPAh3k2jhWH5K}#
- #{e2 _hoQGWMnyQPAh3k2jhWH5L}#)
- (if (if (symbol? #{f _hoQGWMnyQPAh3k2jhWH5H}#)
+ (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 _hoQGWMnyQPAh3k2jhWH5H}#)
+ #{f -ANAU$bmvAmthP7L7xwnzm}#)
(if (= (vector-length
- #{f _hoQGWMnyQPAh3k2jhWH5H}#)
+ #{f -ANAU$bmvAmthP7L7xwnzm}#)
4)
(eq? (vector-ref
- #{f _hoQGWMnyQPAh3k2jhWH5H}#
+ #{f -ANAU$bmvAmthP7L7xwnzm}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{f _hoQGWMnyQPAh3k2jhWH5H}#
+ #{f -ANAU$bmvAmthP7L7xwnzm}#
1))
#f))
(and-map
- #{id? _hoQGWMnyQPAh3k2jhWHTB}#
- #{id _hoQGWMnyQPAh3k2jhWH5I}#)
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwnzn}#)
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWH5D}#)
+ #{tmp -ANAU$bmvAmthP7L7xwnzi}#)
#f)
(@apply
- (lambda (#{f _hoQGWMnyQPAh3k2jhWH51}#
- #{id _hoQGWMnyQPAh3k2jhWH52}#
- #{val _hoQGWMnyQPAh3k2jhWH53}#
- #{e1 _hoQGWMnyQPAh3k2jhWH54}#
- #{e2 _hoQGWMnyQPAh3k2jhWH55}#)
- (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}#
- #{e _hoQGWMnyQPAh3k2jhWH4F}#
- #{r _hoQGWMnyQPAh3k2jhWH4G}#
- #{w _hoQGWMnyQPAh3k2jhWH4H}#
- #{s _hoQGWMnyQPAh3k2jhWH4I}#
- #{mod _hoQGWMnyQPAh3k2jhWH4J}#
- #{build-named-let _hoQGWMnyQPAh3k2jhWHSw}#
- (cons #{f _hoQGWMnyQPAh3k2jhWH51}#
- #{id _hoQGWMnyQPAh3k2jhWH52}#)
- #{val _hoQGWMnyQPAh3k2jhWH53}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWH54}#
- #{e2 _hoQGWMnyQPAh3k2jhWH55}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWH5D}#)
+ (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 _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWH4F}#)
- #{s _hoQGWMnyQPAh3k2jhWH4I}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#)
+ #{s -ANAU$bmvAmthP7L7xwnyn}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWH4F}#
- #{s _hoQGWMnyQPAh3k2jhWH4I}#))
- #{e _hoQGWMnyQPAh3k2jhWH4F}#)
- #{w _hoQGWMnyQPAh3k2jhWH4H}#
- #{mod _hoQGWMnyQPAh3k2jhWH4J}#)))))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwnyk}#
+ #{s -ANAU$bmvAmthP7L7xwnyn}#))
+ #{e -ANAU$bmvAmthP7L7xwnyk}#)
+ #{w -ANAU$bmvAmthP7L7xwnym}#
+ #{mod -ANAU$bmvAmthP7L7xwnyo}#)))))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'letrec
- (lambda (#{e _hoQGWMnyQPAh3k2jhWICR}#
- #{r _hoQGWMnyQPAh3k2jhWICS}#
- #{w _hoQGWMnyQPAh3k2jhWICT}#
- #{s _hoQGWMnyQPAh3k2jhWICU}#
- #{mod _hoQGWMnyQPAh3k2jhWICV}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWICX}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}#
+ #{r -ANAU$bmvAmthP7L7xwn8x}#
+ #{w -ANAU$bmvAmthP7L7xwn8y}#
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWICR}#
+ #{e -ANAU$bmvAmthP7L7xwn8w}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWICX}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWICb}#
- #{val _hoQGWMnyQPAh3k2jhWICc}#
- #{e1 _hoQGWMnyQPAh3k2jhWICd}#
- #{e2 _hoQGWMnyQPAh3k2jhWICe}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwn86}#
+ #{val -ANAU$bmvAmthP7L7xwn87}#
+ #{e1 -ANAU$bmvAmthP7L7xwn88}#
+ #{e2 -ANAU$bmvAmthP7L7xwn89}#)
(and-map
- #{id? _hoQGWMnyQPAh3k2jhWHTB}#
- #{id _hoQGWMnyQPAh3k2jhWICb}#))
- #{tmp _hoQGWMnyQPAh3k2jhWICX}#)
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwn86}#))
+ #{tmp -ANAU$bmvAmthP7L7xwn82}#)
#f)
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWICu}#
- #{val _hoQGWMnyQPAh3k2jhWICv}#
- #{e1 _hoQGWMnyQPAh3k2jhWICw}#
- #{e2 _hoQGWMnyQPAh3k2jhWICx}#)
- (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
- #{id _hoQGWMnyQPAh3k2jhWICu}#))
+ (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 _hoQGWMnyQPAh3k2jhWICR}#)
- (let ((#{labels _hoQGWMnyQPAh3k2jhWIEL}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{id _hoQGWMnyQPAh3k2jhWICu}#))
- (#{new-vars _hoQGWMnyQPAh3k2jhWIEM}#
- (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- #{id _hoQGWMnyQPAh3k2jhWICu}#)))
- (let ((#{w _hoQGWMnyQPAh3k2jhWIEN}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{id _hoQGWMnyQPAh3k2jhWICu}#
- #{labels _hoQGWMnyQPAh3k2jhWIEL}#
- #{w _hoQGWMnyQPAh3k2jhWICT}#))
- (#{r _hoQGWMnyQPAh3k2jhWIEO}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{labels _hoQGWMnyQPAh3k2jhWIEL}#
- #{new-vars _hoQGWMnyQPAh3k2jhWIEM}#
- #{r _hoQGWMnyQPAh3k2jhWICS}#)))
- (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
- #{s _hoQGWMnyQPAh3k2jhWICU}#
+ #{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 _hoQGWMnyQPAh3k2jhWICu}#)
- #{new-vars _hoQGWMnyQPAh3k2jhWIEM}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIFf}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWIFf}#
- #{r _hoQGWMnyQPAh3k2jhWIEO}#
- #{w _hoQGWMnyQPAh3k2jhWIEN}#
- #{mod _hoQGWMnyQPAh3k2jhWICV}#))
- #{val _hoQGWMnyQPAh3k2jhWICv}#)
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWICw}#
- #{e2 _hoQGWMnyQPAh3k2jhWICx}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (map syntax->datum #{id -ANAU$bmvAmthP7L7xwn9N}#)
+ #{new-vars -ANAU$bmvAmthP7L7xwn$r}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwn@$}#)
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{x -ANAU$bmvAmthP7L7xwn@$}#
+ #{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 _hoQGWMnyQPAh3k2jhWICR}#)
- #{s _hoQGWMnyQPAh3k2jhWICU}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWICR}#
- #{s _hoQGWMnyQPAh3k2jhWICU}#))
- #{e _hoQGWMnyQPAh3k2jhWICR}#)
- #{w _hoQGWMnyQPAh3k2jhWIEN}#
- #{mod _hoQGWMnyQPAh3k2jhWICV}#)
- #{r _hoQGWMnyQPAh3k2jhWIEO}#
- #{w _hoQGWMnyQPAh3k2jhWIEN}#
- #{mod _hoQGWMnyQPAh3k2jhWICV}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWICX}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#)
- #{s _hoQGWMnyQPAh3k2jhWICU}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{s -ANAU$bmvAmthP7L7xwn8z}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWICR}#
- #{s _hoQGWMnyQPAh3k2jhWICU}#))
- #{e _hoQGWMnyQPAh3k2jhWICR}#)
- #{w _hoQGWMnyQPAh3k2jhWICT}#
- #{mod _hoQGWMnyQPAh3k2jhWICV}#))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwn8w}#
+ #{s -ANAU$bmvAmthP7L7xwn8z}#))
+ #{e -ANAU$bmvAmthP7L7xwn8w}#)
+ #{w -ANAU$bmvAmthP7L7xwn8y}#
+ #{mod -ANAU$bmvAmthP7L7xwn80}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'letrec*
- (lambda (#{e _hoQGWMnyQPAh3k2jhWILi}#
- #{r _hoQGWMnyQPAh3k2jhWILj}#
- #{w _hoQGWMnyQPAh3k2jhWILk}#
- #{s _hoQGWMnyQPAh3k2jhWILl}#
- #{mod _hoQGWMnyQPAh3k2jhWILm}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWILo}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}#
+ #{r -ANAU$bmvAmthP7L7xwoGC}#
+ #{w -ANAU$bmvAmthP7L7xwoGD}#
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWILi}#
+ #{e -ANAU$bmvAmthP7L7xwoGB}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWILo}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWILs}#
- #{val _hoQGWMnyQPAh3k2jhWILt}#
- #{e1 _hoQGWMnyQPAh3k2jhWILu}#
- #{e2 _hoQGWMnyQPAh3k2jhWILv}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}#
+ #{val -ANAU$bmvAmthP7L7xwoGM}#
+ #{e1 -ANAU$bmvAmthP7L7xwoGN}#
+ #{e2 -ANAU$bmvAmthP7L7xwoGO}#)
(and-map
- #{id? _hoQGWMnyQPAh3k2jhWHTB}#
- #{id _hoQGWMnyQPAh3k2jhWILs}#))
- #{tmp _hoQGWMnyQPAh3k2jhWILo}#)
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{id -ANAU$bmvAmthP7L7xwoGL}#))
+ #{tmp -ANAU$bmvAmthP7L7xwoGH}#)
#f)
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWIL@}#
- #{val _hoQGWMnyQPAh3k2jhWIMA}#
- #{e1 _hoQGWMnyQPAh3k2jhWIMB}#
- #{e2 _hoQGWMnyQPAh3k2jhWIMC}#)
- (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}#
- #{id _hoQGWMnyQPAh3k2jhWIL@}#))
+ (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 _hoQGWMnyQPAh3k2jhWILi}#)
- (let ((#{labels _hoQGWMnyQPAh3k2jhWINc}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{id _hoQGWMnyQPAh3k2jhWIL@}#))
- (#{new-vars _hoQGWMnyQPAh3k2jhWINd}#
- (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- #{id _hoQGWMnyQPAh3k2jhWIL@}#)))
- (let ((#{w _hoQGWMnyQPAh3k2jhWINe}#
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{id _hoQGWMnyQPAh3k2jhWIL@}#
- #{labels _hoQGWMnyQPAh3k2jhWINc}#
- #{w _hoQGWMnyQPAh3k2jhWILk}#))
- (#{r _hoQGWMnyQPAh3k2jhWINf}#
- (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}#
- #{labels _hoQGWMnyQPAh3k2jhWINc}#
- #{new-vars _hoQGWMnyQPAh3k2jhWINd}#
- #{r _hoQGWMnyQPAh3k2jhWILj}#)))
- (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}#
- #{s _hoQGWMnyQPAh3k2jhWILl}#
+ #{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 _hoQGWMnyQPAh3k2jhWIL@}#)
- #{new-vars _hoQGWMnyQPAh3k2jhWINd}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIOw}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWIOw}#
- #{r _hoQGWMnyQPAh3k2jhWINf}#
- #{w _hoQGWMnyQPAh3k2jhWINe}#
- #{mod _hoQGWMnyQPAh3k2jhWILm}#))
- #{val _hoQGWMnyQPAh3k2jhWIMA}#)
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- (cons #{e1 _hoQGWMnyQPAh3k2jhWIMB}#
- #{e2 _hoQGWMnyQPAh3k2jhWIMC}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (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 _hoQGWMnyQPAh3k2jhWILi}#)
- #{s _hoQGWMnyQPAh3k2jhWILl}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWILi}#
- #{s _hoQGWMnyQPAh3k2jhWILl}#))
- #{e _hoQGWMnyQPAh3k2jhWILi}#)
- #{w _hoQGWMnyQPAh3k2jhWINe}#
- #{mod _hoQGWMnyQPAh3k2jhWILm}#)
- #{r _hoQGWMnyQPAh3k2jhWINf}#
- #{w _hoQGWMnyQPAh3k2jhWINe}#
- #{mod _hoQGWMnyQPAh3k2jhWILm}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWILo}#)
+ #{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 _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#)
- #{s _hoQGWMnyQPAh3k2jhWILl}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{s -ANAU$bmvAmthP7L7xwoGE}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWILi}#
- #{s _hoQGWMnyQPAh3k2jhWILl}#))
- #{e _hoQGWMnyQPAh3k2jhWILi}#)
- #{w _hoQGWMnyQPAh3k2jhWILk}#
- #{mod _hoQGWMnyQPAh3k2jhWILm}#))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwoGB}#
+ #{s -ANAU$bmvAmthP7L7xwoGE}#))
+ #{e -ANAU$bmvAmthP7L7xwoGB}#)
+ #{w -ANAU$bmvAmthP7L7xwoGD}#
+ #{mod -ANAU$bmvAmthP7L7xwoGF}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'set!
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIVa}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIVg}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoP@}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
'(_ any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWIVg}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwoP@}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWIVk}#
- #{val _hoQGWMnyQPAh3k2jhWIVl}#)
- (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIVk}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}#
+ #{val -ANAU$bmvAmthP7L7xwoQE}#)
+ (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#)
#t
- (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIVk}#)
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#)
(if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWIVk}#)
+ #{id -ANAU$bmvAmthP7L7xwoQD}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWIVk}#
+ #{id -ANAU$bmvAmthP7L7xwoQD}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWIVk}# 1))
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWIVg}#)
+ #{tmp -ANAU$bmvAmthP7L7xwoP@}#)
#f)
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWIWA}#
- #{val _hoQGWMnyQPAh3k2jhWIWB}#)
- (let ((#{n _hoQGWMnyQPAh3k2jhWIWC}#
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{id _hoQGWMnyQPAh3k2jhWIWA}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#))
- (#{id-mod _hoQGWMnyQPAh3k2jhWIWD}#
- (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIWA}#)
+ (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 _hoQGWMnyQPAh3k2jhWIWA}#)
+ #{id -ANAU$bmvAmthP7L7xwoQf}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWIWA}#
+ #{id -ANAU$bmvAmthP7L7xwoQf}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWIWA}# 3)
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))
- (let ((#{b _hoQGWMnyQPAh3k2jhWIWE}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWIWt}#
- (assq #{n _hoQGWMnyQPAh3k2jhWIWC}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWIWt}#
- (cdr #{t _hoQGWMnyQPAh3k2jhWIWt}#)
- (if (symbol? #{n _hoQGWMnyQPAh3k2jhWIWC}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWIWy}#
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- #{n _hoQGWMnyQPAh3k2jhWIWC}#
- #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWIWy}#
- #{t _hoQGWMnyQPAh3k2jhWIWy}#
+ (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 _hoQGWMnyQPAh3k2jhWIWF}#
- (car #{b _hoQGWMnyQPAh3k2jhWIWE}#)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
+ (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}#
+ (car #{b -ANAU$bmvAmthP7L7xwoQj}#)))
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}#
'lexical)
- (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
- (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIWA}#)
- (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{val _hoQGWMnyQPAh3k2jhWIWB}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
+ (#{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 _hoQGWMnyQPAh3k2jhWHSn}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
- #{n _hoQGWMnyQPAh3k2jhWIWC}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{val _hoQGWMnyQPAh3k2jhWIWB}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
- #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
+ (#{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 _hoQGWMnyQPAh3k2jhWIbs}#
- (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#)))
+ (let ((#{p -ANAU$bmvAmthP7L7xwoWL}#
+ (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#)))
(if (procedure-property
- #{p _hoQGWMnyQPAh3k2jhWIbs}#
+ #{p -ANAU$bmvAmthP7L7xwoWL}#
'variable-transformer)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}#
- #{p _hoQGWMnyQPAh3k2jhWIbs}#
- #{e _hoQGWMnyQPAh3k2jhWIVa}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}#
+ #{p -ANAU$bmvAmthP7L7xwoWL}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
#f
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
'(())
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{e _hoQGWMnyQPAh3k2jhWIVa}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{id _hoQGWMnyQPAh3k2jhWIWA}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#))))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}#
+ (#{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 _hoQGWMnyQPAh3k2jhWHTe}#
- #{id _hoQGWMnyQPAh3k2jhWIWA}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#))
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{id -ANAU$bmvAmthP7L7xwoQf}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#)
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#)
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWIVa}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#))
- #{e _hoQGWMnyQPAh3k2jhWIVa}#)
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#))))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWIVg}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdL}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#))
+ #{e -ANAU$bmvAmthP7L7xwoP5}#)
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#))))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwoP@}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWIVa}#
+ #{e -ANAU$bmvAmthP7L7xwoP5}#
'(_ (any . each-any) any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWIdL}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwoXq}#
(@apply
- (lambda (#{head _hoQGWMnyQPAh3k2jhWIdP}#
- #{tail _hoQGWMnyQPAh3k2jhWIdQ}#
- #{val _hoQGWMnyQPAh3k2jhWIdR}#)
+ (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}#
+ #{tail -ANAU$bmvAmthP7L7xwoXv}#
+ #{val -ANAU$bmvAmthP7L7xwoXw}#)
(call-with-values
(lambda ()
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- #{head _hoQGWMnyQPAh3k2jhWIdP}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{head -ANAU$bmvAmthP7L7xwoXu}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
'(())
#f
#f
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#
#t))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWIdU}#
- #{value _hoQGWMnyQPAh3k2jhWIdV}#
- #{ee _hoQGWMnyQPAh3k2jhWIdW}#
- #{ww _hoQGWMnyQPAh3k2jhWIdX}#
- #{ss _hoQGWMnyQPAh3k2jhWIdY}#
- #{modmod _hoQGWMnyQPAh3k2jhWIdZ}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWIdU}#
+ (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 _hoQGWMnyQPAh3k2jhWIdd}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{val _hoQGWMnyQPAh3k2jhWIdR}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))
+ (let ((#{val -ANAU$bmvAmthP7L7xwoX8}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{val -ANAU$bmvAmthP7L7xwoXw}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#)))
(call-with-values
(lambda ()
- (#{value _hoQGWMnyQPAh3k2jhWIdV}#
- (cons #{head _hoQGWMnyQPAh3k2jhWIdP}#
- #{tail _hoQGWMnyQPAh3k2jhWIdQ}#)
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIde}#
- #{r _hoQGWMnyQPAh3k2jhWIdf}#
- #{w _hoQGWMnyQPAh3k2jhWIdg}#
- #{s* _hoQGWMnyQPAh3k2jhWIdh}#
- #{mod _hoQGWMnyQPAh3k2jhWIdi}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdk}#
- (list #{e _hoQGWMnyQPAh3k2jhWIde}#)))
+ (#{value -ANAU$bmvAmthP7L7xwoX0}#
+ (cons #{head -ANAU$bmvAmthP7L7xwoXu}#
+ #{tail -ANAU$bmvAmthP7L7xwoXv}#)
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#))
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoX9}#
+ #{r -ANAU$bmvAmthP7L7xwoX$}#
+ #{w -ANAU$bmvAmthP7L7xwoX@}#
+ #{s* -ANAU$bmvAmthP7L7xwoYA}#
+ #{mod -ANAU$bmvAmthP7L7xwoYB}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoYD}#
+ (list #{e -ANAU$bmvAmthP7L7xwoX9}#)))
(if (@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIdm}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoYF}#)
(if (symbol?
- #{e _hoQGWMnyQPAh3k2jhWIdm}#)
+ #{e -ANAU$bmvAmthP7L7xwoYF}#)
#t
(if (if (vector?
- #{e _hoQGWMnyQPAh3k2jhWIdm}#)
+ #{e -ANAU$bmvAmthP7L7xwoYF}#)
(if (= (vector-length
- #{e _hoQGWMnyQPAh3k2jhWIdm}#)
+ #{e -ANAU$bmvAmthP7L7xwoYF}#)
4)
(eq? (vector-ref
- #{e _hoQGWMnyQPAh3k2jhWIdm}#
+ #{e -ANAU$bmvAmthP7L7xwoYF}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{e _hoQGWMnyQPAh3k2jhWIdm}#
+ #{e -ANAU$bmvAmthP7L7xwoYF}#
1))
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWIdk}#)
+ #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
(@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIeE}#)
- (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#)
+ (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
(syntax->datum
- #{e _hoQGWMnyQPAh3k2jhWIeE}#)
- #{val _hoQGWMnyQPAh3k2jhWIdd}#
- #{mod _hoQGWMnyQPAh3k2jhWIdi}#))
- #{tmp _hoQGWMnyQPAh3k2jhWIdk}#)
+ #{e -ANAU$bmvAmthP7L7xwoYj}#)
+ #{val -ANAU$bmvAmthP7L7xwoX8}#
+ #{mod -ANAU$bmvAmthP7L7xwoYB}#))
+ #{tmp -ANAU$bmvAmthP7L7xwoYD}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWIde}#))))))
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
- (let ((#{e _hoQGWMnyQPAh3k2jhWIhl}#
+ #{e -ANAU$bmvAmthP7L7xwoX9}#))))))
+ (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
+ (let ((#{e -ANAU$bmvAmthP7L7xwocE}#
(list '#(syntax-object
setter
((top)
@@ -10505,16 +10483,16 @@
(top)
(top)
(top))
- #("2sa"
- "2sb"
- "2sc"
- "2sd"
- "2se"
- "2sf"))
+ #("142"
+ "143"
+ "144"
+ "145"
+ "146"
+ "147"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("2s7" "2s8" "2s9"))
+ #("13z" "140" "141"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -10523,11 +10501,11 @@
(top)
(top)
(top))
- #("2rt"
- "2ru"
- "2rv"
- "2rw"
- "2rx"))
+ #("13l"
+ "13m"
+ "13n"
+ "13o"
+ "13p"))
#(ribcage
(lambda-var-list
gen-var
@@ -10809,268 +10787,268 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
- #{head _hoQGWMnyQPAh3k2jhWIdP}#)))
+ #{head -ANAU$bmvAmthP7L7xwoXu}#)))
(call-with-values
(lambda ()
- (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWIhl}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWIhl}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwocE}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwocE}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWIhs}#
- #{value _hoQGWMnyQPAh3k2jhWIht}#
- #{e _hoQGWMnyQPAh3k2jhWIhu}#
- #{w _hoQGWMnyQPAh3k2jhWIhv}#
- #{s _hoQGWMnyQPAh3k2jhWIhw}#
- #{mod _hoQGWMnyQPAh3k2jhWIhx}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWIhs}#
- #{value _hoQGWMnyQPAh3k2jhWIht}#
- #{e _hoQGWMnyQPAh3k2jhWIhu}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIhv}#
- #{s _hoQGWMnyQPAh3k2jhWIhw}#
- #{mod _hoQGWMnyQPAh3k2jhWIhx}#))))
- (map (lambda (#{e _hoQGWMnyQPAh3k2jhWIh1}#)
+ (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 _hoQGWMnyQPAh3k2jhWHTk}#
- #{e _hoQGWMnyQPAh3k2jhWIh1}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{e _hoQGWMnyQPAh3k2jhWIh1}#)
+ (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}#
+ #{e -ANAU$bmvAmthP7L7xwocU}#
+ #{r -ANAU$bmvAmthP7L7xwoP6}#
+ #{w -ANAU$bmvAmthP7L7xwoP7}#
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{e -ANAU$bmvAmthP7L7xwocU}#)
#f
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#
+ #{mod -ANAU$bmvAmthP7L7xwoP9}#
#f))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWIiE}#
- #{value _hoQGWMnyQPAh3k2jhWIiF}#
- #{e _hoQGWMnyQPAh3k2jhWIiG}#
- #{w _hoQGWMnyQPAh3k2jhWIiH}#
- #{s _hoQGWMnyQPAh3k2jhWIiI}#
- #{mod _hoQGWMnyQPAh3k2jhWIiJ}#)
- (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}#
- #{type _hoQGWMnyQPAh3k2jhWIiE}#
- #{value _hoQGWMnyQPAh3k2jhWIiF}#
- #{e _hoQGWMnyQPAh3k2jhWIiG}#
- #{r _hoQGWMnyQPAh3k2jhWIVb}#
- #{w _hoQGWMnyQPAh3k2jhWIiH}#
- #{s _hoQGWMnyQPAh3k2jhWIiI}#
- #{mod _hoQGWMnyQPAh3k2jhWIiJ}#))))
+ (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 _hoQGWMnyQPAh3k2jhWIdQ}#
- (list #{val _hoQGWMnyQPAh3k2jhWIdR}#))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWIdL}#)
+ #{tail -ANAU$bmvAmthP7L7xwoXv}#
+ (list #{val -ANAU$bmvAmthP7L7xwoXw}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwoXq}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(begin
- (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#)
- #{s _hoQGWMnyQPAh3k2jhWIVd}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#)
+ #{s -ANAU$bmvAmthP7L7xwoP8}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWIVa}#
- #{s _hoQGWMnyQPAh3k2jhWIVd}#))
- #{e _hoQGWMnyQPAh3k2jhWIVa}#)
- #{w _hoQGWMnyQPAh3k2jhWIVc}#
- #{mod _hoQGWMnyQPAh3k2jhWIVe}#))))))))
+ #{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 _hoQGWMnyQPAh3k2jhWIi0}#
- #{r _hoQGWMnyQPAh3k2jhWIi1}#
- #{w _hoQGWMnyQPAh3k2jhWIi2}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIi4}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwodT}#
+ #{r -ANAU$bmvAmthP7L7xwodU}#
+ #{w -ANAU$bmvAmthP7L7xwodV}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWIi0}#
+ #{e -ANAU$bmvAmthP7L7xwodT}#
'(_ each-any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWIi4}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}#
(@apply
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWIi7}#
- #{id _hoQGWMnyQPAh3k2jhWIi8}#)
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}#
+ #{id -ANAU$bmvAmthP7L7xwodb}#)
(if (and-map
- #{id? _hoQGWMnyQPAh3k2jhWHTB}#
- #{mod _hoQGWMnyQPAh3k2jhWIi7}#)
- (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIi8}#)
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{mod -ANAU$bmvAmthP7L7xwoda}#)
+ (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#)
#t
- (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIi8}#)
+ (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#)
(if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWIi8}#)
+ #{id -ANAU$bmvAmthP7L7xwodb}#)
4)
(eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWIi8}#
+ #{id -ANAU$bmvAmthP7L7xwodb}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWIi8}# 1))
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1))
#f))
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWIi4}#)
+ #{tmp -ANAU$bmvAmthP7L7xwodX}#)
#f)
(@apply
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWIjk}#
- #{id _hoQGWMnyQPAh3k2jhWIjl}#)
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}#
+ #{id -ANAU$bmvAmthP7L7xwoeE}#)
(values
- (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIjl}#)
- #{r _hoQGWMnyQPAh3k2jhWIi1}#
- #{w _hoQGWMnyQPAh3k2jhWIi2}#
+ (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#)
+ #{r -ANAU$bmvAmthP7L7xwodU}#
+ #{w -ANAU$bmvAmthP7L7xwodV}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -11079,12 +11057,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("2sv" "2sw"))
+ #("14n" "14o"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("2sq" "2sr" "2ss"))
+ #("14i" "14j" "14k"))
#(ribcage
(lambda-var-list
gen-var
@@ -11366,235 +11344,235 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
- #{mod _hoQGWMnyQPAh3k2jhWIjk}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWIi4}#)
+ #{mod -ANAU$bmvAmthP7L7xwoeD}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwodX}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWIi0}#))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwodT}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'module-ref
'@@
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIlB}#
- #{r _hoQGWMnyQPAh3k2jhWIlC}#
- #{w _hoQGWMnyQPAh3k2jhWIlD}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwofg}#
+ #{r -ANAU$bmvAmthP7L7xwofh}#
+ #{w -ANAU$bmvAmthP7L7xwofi}#)
(letrec*
- ((#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWIln}#
- #{mod _hoQGWMnyQPAh3k2jhWIlo}#)
- (if (pair? #{x _hoQGWMnyQPAh3k2jhWIln}#)
- (cons (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
- (car #{x _hoQGWMnyQPAh3k2jhWIln}#)
- #{mod _hoQGWMnyQPAh3k2jhWIlo}#)
- (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWIln}#)
- #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
- (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#)
+ ((#{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 _hoQGWMnyQPAh3k2jhWIln}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 0)
'syntax-object)
#f)
#f)
- (let ((#{expression _hoQGWMnyQPAh3k2jhWIl2}#
- (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 1)
- #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
- (#{wrap _hoQGWMnyQPAh3k2jhWIl3}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 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 _hoQGWMnyQPAh3k2jhWIl2}#
- #{wrap _hoQGWMnyQPAh3k2jhWIl3}#
- #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
- (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#)
- (let ((#{n _hoQGWMnyQPAh3k2jhWIl@}#
- (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#)))
- (let ((#{v _hoQGWMnyQPAh3k2jhWImA}#
- (make-vector #{n _hoQGWMnyQPAh3k2jhWIl@}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWImB}#
- (lambda (#{i _hoQGWMnyQPAh3k2jhWImw}#)
- (if (= #{i _hoQGWMnyQPAh3k2jhWImw}#
- #{n _hoQGWMnyQPAh3k2jhWIl@}#)
- #{v _hoQGWMnyQPAh3k2jhWImA}#
+ ((#{loop -ANAU$bmvAmthP7L7xwogg}#
+ (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#)
+ (if (= #{i -ANAU$bmvAmthP7L7xwohP}#
+ #{n -ANAU$bmvAmthP7L7xwoge}#)
+ #{v -ANAU$bmvAmthP7L7xwogf}#
(begin
(vector-set!
- #{v _hoQGWMnyQPAh3k2jhWImA}#
- #{i _hoQGWMnyQPAh3k2jhWImw}#
- (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
+ #{v -ANAU$bmvAmthP7L7xwogf}#
+ #{i -ANAU$bmvAmthP7L7xwohP}#
+ (#{remodulate -ANAU$bmvAmthP7L7xwofj}#
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWIln}#
- #{i _hoQGWMnyQPAh3k2jhWImw}#)
- #{mod _hoQGWMnyQPAh3k2jhWIlo}#))
- (#{loop _hoQGWMnyQPAh3k2jhWImB}#
- (#{1+}# #{i _hoQGWMnyQPAh3k2jhWImw}#)))))))
- (#{loop _hoQGWMnyQPAh3k2jhWImB}# 0))))
- #{x _hoQGWMnyQPAh3k2jhWIln}#))))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIlG}#
+ #{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 _hoQGWMnyQPAh3k2jhWIlB}#
+ #{e -ANAU$bmvAmthP7L7xwofg}#
'(_ each-any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWIlG}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}#
(@apply
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlK}#
- #{exp _hoQGWMnyQPAh3k2jhWIlL}#)
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}#
+ #{exp -ANAU$bmvAmthP7L7xwofq}#)
(and-map
- #{id? _hoQGWMnyQPAh3k2jhWHTB}#
- #{mod _hoQGWMnyQPAh3k2jhWIlK}#))
- #{tmp _hoQGWMnyQPAh3k2jhWIlG}#)
+ #{id? -ANAU$bmvAmthP7L7xwnNg}#
+ #{mod -ANAU$bmvAmthP7L7xwofp}#))
+ #{tmp -ANAU$bmvAmthP7L7xwofl}#)
#f)
(@apply
- (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlb}#
- #{exp _hoQGWMnyQPAh3k2jhWIlc}#)
- (let ((#{mod _hoQGWMnyQPAh3k2jhWIld}#
+ (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}#
+ #{exp -ANAU$bmvAmthP7L7xwof7}#)
+ (let ((#{mod -ANAU$bmvAmthP7L7xwof8}#
(syntax->datum
(cons '#(syntax-object
private
@@ -11602,12 +11580,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("2t9" "2ta"))
- #(ribcage (remodulate) ((top)) ("2t0"))
+ #("151" "152"))
+ #(ribcage (remodulate) ((top)) ("14s"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("2sx" "2sy" "2sz"))
+ #("14p" "14q" "14r"))
#(ribcage
(lambda-var-list
gen-var
@@ -11889,287 +11867,287 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
- #{mod _hoQGWMnyQPAh3k2jhWIlb}#))))
+ #{mod -ANAU$bmvAmthP7L7xwof6}#))))
(values
- (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}#
- #{exp _hoQGWMnyQPAh3k2jhWIlc}#
- #{mod _hoQGWMnyQPAh3k2jhWIld}#)
- #{r _hoQGWMnyQPAh3k2jhWIlC}#
- #{w _hoQGWMnyQPAh3k2jhWIlD}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{exp _hoQGWMnyQPAh3k2jhWIlc}#)
- #{mod _hoQGWMnyQPAh3k2jhWIld}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWIlG}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWIlB}#))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwofg}#))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'if
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIoV}#
- #{r _hoQGWMnyQPAh3k2jhWIoW}#
- #{w _hoQGWMnyQPAh3k2jhWIoX}#
- #{s _hoQGWMnyQPAh3k2jhWIoY}#
- #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIob}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{s -ANAU$bmvAmthP7L7xwoi3}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWIoV}#
+ #{e -ANAU$bmvAmthP7L7xwoi0}#
'(_ any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWIob}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwoi6}#
(@apply
- (lambda (#{test _hoQGWMnyQPAh3k2jhWIof}#
- #{then _hoQGWMnyQPAh3k2jhWIog}#)
- (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}#
- #{s _hoQGWMnyQPAh3k2jhWIoY}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{test _hoQGWMnyQPAh3k2jhWIof}#
- #{r _hoQGWMnyQPAh3k2jhWIoW}#
- #{w _hoQGWMnyQPAh3k2jhWIoX}#
- #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{then _hoQGWMnyQPAh3k2jhWIog}#
- #{r _hoQGWMnyQPAh3k2jhWIoW}#
- #{w _hoQGWMnyQPAh3k2jhWIoX}#
- #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
+ (lambda (#{test -ANAU$bmvAmthP7L7xwoi$}#
+ #{then -ANAU$bmvAmthP7L7xwoi@}#)
+ (#{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 -ANAU$bmvAmthP7L7xwoi@}#
+ #{r -ANAU$bmvAmthP7L7xwoi1}#
+ #{w -ANAU$bmvAmthP7L7xwoi2}#
+ #{mod -ANAU$bmvAmthP7L7xwoi4}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp _hoQGWMnyQPAh3k2jhWIob}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIsB}#
+ #{tmp -ANAU$bmvAmthP7L7xwoi6}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWIoV}#
+ #{e -ANAU$bmvAmthP7L7xwoi0}#
'(_ any any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWIsB}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwomg}#
(@apply
- (lambda (#{test _hoQGWMnyQPAh3k2jhWIsF}#
- #{then _hoQGWMnyQPAh3k2jhWIsG}#
- #{else _hoQGWMnyQPAh3k2jhWIsH}#)
- (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}#
- #{s _hoQGWMnyQPAh3k2jhWIoY}#
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{test _hoQGWMnyQPAh3k2jhWIsF}#
- #{r _hoQGWMnyQPAh3k2jhWIoW}#
- #{w _hoQGWMnyQPAh3k2jhWIoX}#
- #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{then _hoQGWMnyQPAh3k2jhWIsG}#
- #{r _hoQGWMnyQPAh3k2jhWIoW}#
- #{w _hoQGWMnyQPAh3k2jhWIoX}#
- #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{else _hoQGWMnyQPAh3k2jhWIsH}#
- #{r _hoQGWMnyQPAh3k2jhWIoW}#
- #{w _hoQGWMnyQPAh3k2jhWIoX}#
- #{mod _hoQGWMnyQPAh3k2jhWIoZ}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWIsB}#)
+ (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 _hoQGWMnyQPAh3k2jhWIoV}#)))))))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ #{e -ANAU$bmvAmthP7L7xwoi0}#)))))))
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'with-fluids
- (lambda (#{e _hoQGWMnyQPAh3k2jhWIyW}#
- #{r _hoQGWMnyQPAh3k2jhWIyX}#
- #{w _hoQGWMnyQPAh3k2jhWIyY}#
- #{s _hoQGWMnyQPAh3k2jhWIyZ}#
- #{mod _hoQGWMnyQPAh3k2jhWIya}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWIyc}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwos1}#
+ #{r -ANAU$bmvAmthP7L7xwos2}#
+ #{w -ANAU$bmvAmthP7L7xwos3}#
+ #{s -ANAU$bmvAmthP7L7xwos4}#
+ #{mod -ANAU$bmvAmthP7L7xwos5}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWIyW}#
+ #{e -ANAU$bmvAmthP7L7xwos1}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWIyc}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwos7}#
(@apply
- (lambda (#{fluid _hoQGWMnyQPAh3k2jhWIyg}#
- #{val _hoQGWMnyQPAh3k2jhWIyh}#
- #{b _hoQGWMnyQPAh3k2jhWIyi}#
- #{b* _hoQGWMnyQPAh3k2jhWIyj}#)
- (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}#
- #{s _hoQGWMnyQPAh3k2jhWIyZ}#
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIz0}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWIz0}#
- #{r _hoQGWMnyQPAh3k2jhWIyX}#
- #{w _hoQGWMnyQPAh3k2jhWIyY}#
- #{mod _hoQGWMnyQPAh3k2jhWIya}#))
- #{fluid _hoQGWMnyQPAh3k2jhWIyg}#)
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWI06}#)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{x _hoQGWMnyQPAh3k2jhWI06}#
- #{r _hoQGWMnyQPAh3k2jhWIyX}#
- #{w _hoQGWMnyQPAh3k2jhWIyY}#
- #{mod _hoQGWMnyQPAh3k2jhWIya}#))
- #{val _hoQGWMnyQPAh3k2jhWIyh}#)
- (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}#
- (cons #{b _hoQGWMnyQPAh3k2jhWIyi}#
- #{b* _hoQGWMnyQPAh3k2jhWIyj}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (lambda (#{fluid -ANAU$bmvAmthP7L7xwos@}#
+ #{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 -ANAU$bmvAmthP7L7xwos@}#)
+ (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 _hoQGWMnyQPAh3k2jhWIyW}#)
- #{s _hoQGWMnyQPAh3k2jhWIyZ}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#)
+ #{s -ANAU$bmvAmthP7L7xwos4}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWIyW}#
- #{s _hoQGWMnyQPAh3k2jhWIyZ}#))
- #{e _hoQGWMnyQPAh3k2jhWIyW}#)
- #{w _hoQGWMnyQPAh3k2jhWIyY}#
- #{mod _hoQGWMnyQPAh3k2jhWIya}#)
- #{r _hoQGWMnyQPAh3k2jhWIyX}#
- #{w _hoQGWMnyQPAh3k2jhWIyY}#
- #{mod _hoQGWMnyQPAh3k2jhWIya}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWIyc}#)
+ #{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 _hoQGWMnyQPAh3k2jhWIyW}#)))))
+ #{e -ANAU$bmvAmthP7L7xwos1}#)))))
(module-define!
(current-module)
'begin
@@ -12199,100 +12177,100 @@
'eval-when
'eval-when
'()))
- (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}#
+ (#{global-extend -ANAU$bmvAmthP7L7xwnNe}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}#
- (lambda (#{pattern _hoQGWMnyQPAh3k2jhWJTl}#
- #{keys _hoQGWMnyQPAh3k2jhWJTm}#)
+ ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}#
+ (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}#
+ #{keys -ANAU$bmvAmthP7L7xwpOF}#)
(letrec*
- ((#{cvt* _hoQGWMnyQPAh3k2jhWJTn}#
- (lambda (#{p* _hoQGWMnyQPAh3k2jhWJdX}#
- #{n _hoQGWMnyQPAh3k2jhWJdY}#
- #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)
- (if (not (pair? #{p* _hoQGWMnyQPAh3k2jhWJdX}#))
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{p* _hoQGWMnyQPAh3k2jhWJdX}#
- #{n _hoQGWMnyQPAh3k2jhWJdY}#
- #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)
+ ((#{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* _hoQGWMnyQPAh3k2jhWJTn}#
- (cdr #{p* _hoQGWMnyQPAh3k2jhWJdX}#)
- #{n _hoQGWMnyQPAh3k2jhWJdY}#
- #{ids _hoQGWMnyQPAh3k2jhWJdZ}#))
- (lambda (#{y _hoQGWMnyQPAh3k2jhWJdc}#
- #{ids _hoQGWMnyQPAh3k2jhWJdd}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWJTp}#
- (car #{p* _hoQGWMnyQPAh3k2jhWJdX}#)
- #{n _hoQGWMnyQPAh3k2jhWJdY}#
- #{ids _hoQGWMnyQPAh3k2jhWJdd}#))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJdg}#
- #{ids _hoQGWMnyQPAh3k2jhWJdh}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ (car #{p* -ANAU$bmvAmthP7L7xwpX2}#)
+ #{n -ANAU$bmvAmthP7L7xwpX3}#
+ #{ids -ANAU$bmvAmthP7L7xwpX8}#))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpX@}#
+ #{ids -ANAU$bmvAmthP7L7xwpYA}#)
(values
- (cons #{x _hoQGWMnyQPAh3k2jhWJdg}#
- #{y _hoQGWMnyQPAh3k2jhWJdc}#)
- #{ids _hoQGWMnyQPAh3k2jhWJdh}#))))))))
- (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJdi}#)
+ (cons #{x -ANAU$bmvAmthP7L7xwpX@}#
+ #{y -ANAU$bmvAmthP7L7xwpX7}#)
+ #{ids -ANAU$bmvAmthP7L7xwpYA}#))))))))
+ (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#)
(letrec*
- ((#{loop _hoQGWMnyQPAh3k2jhWJdj}#
- (lambda (#{r _hoQGWMnyQPAh3k2jhWJez}#
- #{x _hoQGWMnyQPAh3k2jhWJe0}#)
- (if (not (pair? #{x _hoQGWMnyQPAh3k2jhWJe0}#))
+ ((#{loop -ANAU$bmvAmthP7L7xwpYC}#
+ (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}#
+ #{x -ANAU$bmvAmthP7L7xwpZT}#)
+ (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#))
(values
- #{r _hoQGWMnyQPAh3k2jhWJez}#
- #{x _hoQGWMnyQPAh3k2jhWJe0}#)
- (#{loop _hoQGWMnyQPAh3k2jhWJdj}#
- (cons (car #{x _hoQGWMnyQPAh3k2jhWJe0}#)
- #{r _hoQGWMnyQPAh3k2jhWJez}#)
- (cdr #{x _hoQGWMnyQPAh3k2jhWJe0}#))))))
- (#{loop _hoQGWMnyQPAh3k2jhWJdj}#
+ #{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 _hoQGWMnyQPAh3k2jhWJdi}#))))
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- (lambda (#{p _hoQGWMnyQPAh3k2jhWJTs}#
- #{n _hoQGWMnyQPAh3k2jhWJTt}#
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#)
- (if (if (symbol? #{p _hoQGWMnyQPAh3k2jhWJTs}#)
+ #{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 _hoQGWMnyQPAh3k2jhWJTs}#)
+ (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#)
(if (= (vector-length
- #{p _hoQGWMnyQPAh3k2jhWJTs}#)
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
4)
(eq? (vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJTs}# 1))
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1))
#f))
- (if (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}#
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
- #{keys _hoQGWMnyQPAh3k2jhWJTm}#)
+ (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{keys -ANAU$bmvAmthP7L7xwpOF}#)
(values
- (vector 'free-id #{p _hoQGWMnyQPAh3k2jhWJTs}#)
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#)
+ (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#)
+ #{ids -ANAU$bmvAmthP7L7xwpON}#)
(if (if (eq? (if (if (vector?
- #{p _hoQGWMnyQPAh3k2jhWJTs}#)
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
(if (= (vector-length
- #{p _hoQGWMnyQPAh3k2jhWJTs}#)
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
4)
(eq? (vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
1)
- #{p _hoQGWMnyQPAh3k2jhWJTs}#)
+ #{p -ANAU$bmvAmthP7L7xwpOL}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -12301,15 +12279,15 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("2uh" "2ui" "2uj"))
+ #("169" "16a" "16b"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("2u5" "2u4" "2u3"))
+ ("15x" "15w" "15v"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("2u1" "2u2"))
+ #("15t" "15u"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -12319,10 +12297,10 @@
(top)
(top)
(top))
- ("2u0"
- "2tz"
- "2ty"
- "2tx"))
+ ("15s"
+ "15r"
+ "15q"
+ "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -12604,152 +12582,152 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))
4)
#t
@@ -12762,22 +12740,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("2uh" "2ui" "2uj"))
+ #("169" "16a" "16b"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("2u5" "2u4" "2u3"))
+ ("15x" "15w" "15v"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("2u1" "2u2"))
+ #("15t" "15u"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -13059,157 +13037,157 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
_
((top)
@@ -13217,22 +13195,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("2uh" "2ui" "2uj"))
+ #("169" "16a" "16b"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("2u5" "2u4" "2u3"))
+ ("15x" "15w" "15v"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("2u1" "2u2"))
+ #("15t" "15u"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -13514,200 +13492,200 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
- (values '_ #{ids _hoQGWMnyQPAh3k2jhWJTu}#)
+ (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#)
(values
'any
- (cons (cons #{p _hoQGWMnyQPAh3k2jhWJTs}#
- #{n _hoQGWMnyQPAh3k2jhWJTt}#)
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJYu}#
+ (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#)
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWJYu}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJYy}#
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
(if (if (if (vector?
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
(if (= (vector-length
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
4)
(eq? (vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
1))
#f)
(if (eq? (if (if (vector?
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
(if (= (vector-length
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
4)
(eq? (vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
1)
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#)
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -13723,7 +13701,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -14005,146 +13983,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14152,9 +14130,9 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8"
+ "7"
+ "6")))
(hygiene
guile)))
4)
@@ -14169,7 +14147,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -14451,157 +14429,157 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{dots _hoQGWMnyQPAh3k2jhWJYz}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{dots -ANAU$bmvAmthP7L7xwpTS}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -14610,7 +14588,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -14892,218 +14870,218 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWJYu}#)
+ #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
#f)
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJaX}#
- #{dots _hoQGWMnyQPAh3k2jhWJaY}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}#
+ #{dots -ANAU$bmvAmthP7L7xwpU3}#)
(call-with-values
(lambda ()
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{x _hoQGWMnyQPAh3k2jhWJaX}#
- (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#)
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
- (lambda (#{p _hoQGWMnyQPAh3k2jhWJaZ}#
- #{ids _hoQGWMnyQPAh3k2jhWJaa}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{x -ANAU$bmvAmthP7L7xwpU2}#
+ (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#)
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}#
+ #{ids -ANAU$bmvAmthP7L7xwpU5}#)
(values
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJaZ}#
+ (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}#
'any)
'each-any
(vector
'each
- #{p _hoQGWMnyQPAh3k2jhWJaZ}#))
- #{ids _hoQGWMnyQPAh3k2jhWJaa}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWJYu}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJab}#
+ #{p -ANAU$bmvAmthP7L7xwpU4}#))
+ #{ids -ANAU$bmvAmthP7L7xwpU5}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwpTN}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(any any . any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWJab}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJaf}#
- #{dots _hoQGWMnyQPAh3k2jhWJag}#
- #{ys _hoQGWMnyQPAh3k2jhWJah}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}#
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#
+ #{ys -ANAU$bmvAmthP7L7xwpVA}#)
(if (if (if (vector?
- #{dots _hoQGWMnyQPAh3k2jhWJag}#)
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#)
(if (= (vector-length
- #{dots _hoQGWMnyQPAh3k2jhWJag}#)
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#)
4)
(eq? (vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJag}#
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJag}#
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#
1))
#f)
(if (eq? (if (if (vector?
- #{dots _hoQGWMnyQPAh3k2jhWJag}#)
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#)
(if (= (vector-length
- #{dots _hoQGWMnyQPAh3k2jhWJag}#)
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#)
4)
(eq? (vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJag}#
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots _hoQGWMnyQPAh3k2jhWJag}#
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#
1)
- #{dots _hoQGWMnyQPAh3k2jhWJag}#)
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15119,7 +15097,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -15401,146 +15379,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -15548,9 +15526,9 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8"
+ "7"
+ "6")))
(hygiene
guile)))
4)
@@ -15565,7 +15543,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -15847,159 +15825,157 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{dots _hoQGWMnyQPAh3k2jhWJag}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{dots -ANAU$bmvAmthP7L7xwpU@}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -16008,7 +15984,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -16290,281 +16266,281 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp _hoQGWMnyQPAh3k2jhWJab}#)
+ #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
#f)
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJcF}#
- #{dots _hoQGWMnyQPAh3k2jhWJcG}#
- #{ys _hoQGWMnyQPAh3k2jhWJcH}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}#
+ #{dots -ANAU$bmvAmthP7L7xwpWl}#
+ #{ys -ANAU$bmvAmthP7L7xwpWm}#)
(call-with-values
(lambda ()
- (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}#
- #{ys _hoQGWMnyQPAh3k2jhWJcH}#
- #{n _hoQGWMnyQPAh3k2jhWJTt}#
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
- (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcK}#
- #{ids _hoQGWMnyQPAh3k2jhWJcL}#)
+ (#{cvt* -ANAU$bmvAmthP7L7xwpOG}#
+ #{ys -ANAU$bmvAmthP7L7xwpWm}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}#
+ #{ids -ANAU$bmvAmthP7L7xwpWq}#)
(call-with-values
(lambda ()
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{x _hoQGWMnyQPAh3k2jhWJcF}#
- (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#)
- #{ids _hoQGWMnyQPAh3k2jhWJcL}#))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJcM}#
- #{ids _hoQGWMnyQPAh3k2jhWJcN}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWJTo}#
- #{ys _hoQGWMnyQPAh3k2jhWJcK}#))
- (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcu}#
- #{e _hoQGWMnyQPAh3k2jhWJcv}#)
+ (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}#
+ #{ys -ANAU$bmvAmthP7L7xwpWp}#))
+ (lambda (#{ys -ANAU$bmvAmthP7L7xwpXN}#
+ #{e -ANAU$bmvAmthP7L7xwpXO}#)
(values
(vector
'each+
- #{x _hoQGWMnyQPAh3k2jhWJcM}#
- #{ys _hoQGWMnyQPAh3k2jhWJcu}#
- #{e _hoQGWMnyQPAh3k2jhWJcv}#)
- #{ids _hoQGWMnyQPAh3k2jhWJcN}#))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWJab}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJcw}#
+ #{x -ANAU$bmvAmthP7L7xwpWr}#
+ #{ys -ANAU$bmvAmthP7L7xwpXN}#
+ #{e -ANAU$bmvAmthP7L7xwpXO}#)
+ #{ids -ANAU$bmvAmthP7L7xwpWs}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwpU6}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(any . any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWJcw}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpXP}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJc0}#
- #{y _hoQGWMnyQPAh3k2jhWJc1}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}#
+ #{y -ANAU$bmvAmthP7L7xwpXU}#)
(call-with-values
(lambda ()
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{y _hoQGWMnyQPAh3k2jhWJc1}#
- #{n _hoQGWMnyQPAh3k2jhWJTt}#
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
- (lambda (#{y _hoQGWMnyQPAh3k2jhWJc2}#
- #{ids _hoQGWMnyQPAh3k2jhWJc3}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{y -ANAU$bmvAmthP7L7xwpXU}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}#
+ #{ids -ANAU$bmvAmthP7L7xwpXW}#)
(call-with-values
(lambda ()
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{x _hoQGWMnyQPAh3k2jhWJc0}#
- #{n _hoQGWMnyQPAh3k2jhWJTt}#
- #{ids _hoQGWMnyQPAh3k2jhWJc3}#))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJc4}#
- #{ids _hoQGWMnyQPAh3k2jhWJc5}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{x -ANAU$bmvAmthP7L7xwpXT}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpXW}#))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpXX}#
+ #{ids -ANAU$bmvAmthP7L7xwpXY}#)
(values
- (cons #{x _hoQGWMnyQPAh3k2jhWJc4}#
- #{y _hoQGWMnyQPAh3k2jhWJc2}#)
- #{ids _hoQGWMnyQPAh3k2jhWJc5}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWJcw}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc6}#
+ (cons #{x -ANAU$bmvAmthP7L7xwpXX}#
+ #{y -ANAU$bmvAmthP7L7xwpXV}#)
+ #{ids -ANAU$bmvAmthP7L7xwpXY}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwpXP}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWJc6}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}#
(@apply
(lambda ()
(values
'()
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
- #{tmp _hoQGWMnyQPAh3k2jhWJc6}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc$}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ #{tmp -ANAU$bmvAmthP7L7xwpXZ}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'#(vector each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWJc$}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpXd}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJdC}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpXh}#)
(call-with-values
(lambda ()
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{x _hoQGWMnyQPAh3k2jhWJdC}#
- #{n _hoQGWMnyQPAh3k2jhWJTt}#
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#))
- (lambda (#{p _hoQGWMnyQPAh3k2jhWJdD}#
- #{ids _hoQGWMnyQPAh3k2jhWJdE}#)
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{x -ANAU$bmvAmthP7L7xwpXh}#
+ #{n -ANAU$bmvAmthP7L7xwpOM}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#))
+ (lambda (#{p -ANAU$bmvAmthP7L7xwpXi}#
+ #{ids -ANAU$bmvAmthP7L7xwpXj}#)
(values
(vector
'vector
- #{p _hoQGWMnyQPAh3k2jhWJdD}#)
- #{ids _hoQGWMnyQPAh3k2jhWJdE}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWJc$}#)
+ #{p -ANAU$bmvAmthP7L7xwpXi}#)
+ #{ids -ANAU$bmvAmthP7L7xwpXj}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwpXd}#)
(values
(vector
'atom
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{p _hoQGWMnyQPAh3k2jhWJTs}#
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{p -ANAU$bmvAmthP7L7xwpOL}#
'(())))
- #{ids _hoQGWMnyQPAh3k2jhWJTu}#)))))))))))))))
- (#{cvt _hoQGWMnyQPAh3k2jhWJTp}#
- #{pattern _hoQGWMnyQPAh3k2jhWJTl}#
+ #{ids -ANAU$bmvAmthP7L7xwpON}#)))))))))))))))
+ (#{cvt -ANAU$bmvAmthP7L7xwpOI}#
+ #{pattern -ANAU$bmvAmthP7L7xwpOE}#
0
'()))))
- (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}#
- (lambda (#{pvars _hoQGWMnyQPAh3k2jhWJe1}#
- #{exp _hoQGWMnyQPAh3k2jhWJe2}#
- #{y _hoQGWMnyQPAh3k2jhWJe3}#
- #{r _hoQGWMnyQPAh3k2jhWJe4}#
- #{mod _hoQGWMnyQPAh3k2jhWJe5}#)
- (let ((#{ids _hoQGWMnyQPAh3k2jhWJe6}#
- (map car #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)))
+ (#{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 _hoQGWMnyQPAh3k2jhWJe1}#)
- (let ((#{labels _hoQGWMnyQPAh3k2jhWJe8}#
- (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}#
- #{ids _hoQGWMnyQPAh3k2jhWJe6}#))
- (#{new-vars _hoQGWMnyQPAh3k2jhWJe9}#
- (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}#
- #{ids _hoQGWMnyQPAh3k2jhWJe6}#)))
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ (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 -ANAU$bmvAmthP7L7xwnM@}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -16577,89 +16553,89 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
+ (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
#f
(map syntax->datum
- #{ids _hoQGWMnyQPAh3k2jhWJe6}#)
+ #{ids -ANAU$bmvAmthP7L7xwpZZ}#)
#f
- #{new-vars _hoQGWMnyQPAh3k2jhWJe9}#
+ #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
'()
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{exp _hoQGWMnyQPAh3k2jhWJe2}#
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- #{labels _hoQGWMnyQPAh3k2jhWJe8}#
- (map (lambda (#{var _hoQGWMnyQPAh3k2jhWJj8}#
- #{level _hoQGWMnyQPAh3k2jhWJj9}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWJj8}#
- #{level _hoQGWMnyQPAh3k2jhWJj9}#)))
- #{new-vars _hoQGWMnyQPAh3k2jhWJe9}#
+ (cons #{var -ANAU$bmvAmthP7L7xwpeb}#
+ #{level -ANAU$bmvAmthP7L7xwpec}#)))
+ #{new-vars -ANAU$bmvAmthP7L7xwpZc}#
(map cdr
- #{pvars _hoQGWMnyQPAh3k2jhWJe1}#))
- #{r _hoQGWMnyQPAh3k2jhWJe4}#)
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- #{ids _hoQGWMnyQPAh3k2jhWJe6}#
- #{labels _hoQGWMnyQPAh3k2jhWJe8}#
+ #{pvars -ANAU$bmvAmthP7L7xwpZU}#))
+ #{r -ANAU$bmvAmthP7L7xwpZX}#)
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ #{ids -ANAU$bmvAmthP7L7xwpZZ}#
+ #{labels -ANAU$bmvAmthP7L7xwpZb}#
'(()))
- #{mod _hoQGWMnyQPAh3k2jhWJe5}#))
- #{y _hoQGWMnyQPAh3k2jhWJe3}#)))))))
- (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJJx}#
- #{keys _hoQGWMnyQPAh3k2jhWJJy}#
- #{clauses _hoQGWMnyQPAh3k2jhWJJz}#
- #{r _hoQGWMnyQPAh3k2jhWJJ0}#
- #{pat _hoQGWMnyQPAh3k2jhWJJ1}#
- #{fender _hoQGWMnyQPAh3k2jhWJJ2}#
- #{exp _hoQGWMnyQPAh3k2jhWJJ3}#
- #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)
+ #{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 _hoQGWMnyQPAh3k2jhWI6q}#
- #{pat _hoQGWMnyQPAh3k2jhWJJ1}#
- #{keys _hoQGWMnyQPAh3k2jhWJJy}#))
- (lambda (#{p _hoQGWMnyQPAh3k2jhWJMT}#
- #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)
- (if (not (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}#
- (map car #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)))
+ (#{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 _hoQGWMnyQPAh3k2jhWJJ1}#)
+ #{pat -ANAU$bmvAmthP7L7xwpEU}#)
(if (not (and-map
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJOI}#)
- (not (let ((#{x _hoQGWMnyQPAh3k2jhWJOM}#
- (car #{x _hoQGWMnyQPAh3k2jhWJOI}#)))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#)
+ (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}#
+ (car #{x -ANAU$bmvAmthP7L7xwpIn}#)))
(if (if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWJOM}#)
+ #{x -ANAU$bmvAmthP7L7xwpIr}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWJOM}#)
+ #{x -ANAU$bmvAmthP7L7xwpIr}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWJOM}#
+ #{x -ANAU$bmvAmthP7L7xwpIr}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWJOM}#
+ #{x -ANAU$bmvAmthP7L7xwpIr}#
1))
#f)
(if (eq? (if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWJOM}#)
+ #{x -ANAU$bmvAmthP7L7xwpIr}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWJOM}#)
+ #{x -ANAU$bmvAmthP7L7xwpIr}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWJOM}#
+ #{x -ANAU$bmvAmthP7L7xwpIr}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWJOM}#
+ #{x -ANAU$bmvAmthP7L7xwpIr}#
1)
- #{x _hoQGWMnyQPAh3k2jhWJOM}#)
+ #{x -ANAU$bmvAmthP7L7xwpIr}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -16675,7 +16651,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -16957,146 +16933,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -17104,9 +17080,9 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8"
+ "7"
+ "6")))
(hygiene
guile)))
4)
@@ -17121,7 +17097,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -17403,159 +17379,157 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{x _hoQGWMnyQPAh3k2jhWJOM}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwpIr}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -17564,7 +17538,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -17846,194 +17820,194 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
#f))))
- #{pvars _hoQGWMnyQPAh3k2jhWJMU}#))
+ #{pvars -ANAU$bmvAmthP7L7xwpGz}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat _hoQGWMnyQPAh3k2jhWJJ1}#)
- (let ((#{y _hoQGWMnyQPAh3k2jhWJPY}#
+ #{pat -ANAU$bmvAmthP7L7xwpEU}#)
+ (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
#f
- (let ((#{req _hoQGWMnyQPAh3k2jhWJRn}# (list 'tmp))
- (#{vars _hoQGWMnyQPAh3k2jhWJRp}#
- (list #{y _hoQGWMnyQPAh3k2jhWJPY}#))
- (#{exp _hoQGWMnyQPAh3k2jhWJRr}#
- (let ((#{y _hoQGWMnyQPAh3k2jhWJR8}#
+ (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 _hoQGWMnyQPAh3k2jhWJPY}#)))
- (let ((#{test-exp _hoQGWMnyQPAh3k2jhWJSA}#
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJSJ}#
+ #{y -ANAU$bmvAmthP7L7xwpJ3}#)))
+ (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpMo}#
($sc-dispatch
- #{fender _hoQGWMnyQPAh3k2jhWJJ2}#
+ #{fender -ANAU$bmvAmthP7L7xwpEV}#
'#(atom #t))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpMo}#
(@apply
(lambda ()
- #{y _hoQGWMnyQPAh3k2jhWJR8}#)
- #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#)
- (let ((#{then-exp _hoQGWMnyQPAh3k2jhWJSb}#
- (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}#
- #{pvars _hoQGWMnyQPAh3k2jhWJMU}#
- #{fender _hoQGWMnyQPAh3k2jhWJJ2}#
- #{y _hoQGWMnyQPAh3k2jhWJR8}#
- #{r _hoQGWMnyQPAh3k2jhWJJ0}#
- #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))
- (#{else-exp _hoQGWMnyQPAh3k2jhWJSc}#
+ #{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
@@ -18045,48 +18019,48 @@
%expanded-vtables
10)
#f
- #{y _hoQGWMnyQPAh3k2jhWJR8}#
- #{then-exp _hoQGWMnyQPAh3k2jhWJSb}#
- #{else-exp _hoQGWMnyQPAh3k2jhWJSc}#)))))
- (#{then-exp _hoQGWMnyQPAh3k2jhWJSB}#
- (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}#
- #{pvars _hoQGWMnyQPAh3k2jhWJMU}#
- #{exp _hoQGWMnyQPAh3k2jhWJJ3}#
- #{y _hoQGWMnyQPAh3k2jhWJR8}#
- #{r _hoQGWMnyQPAh3k2jhWJJ0}#
- #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))
- (#{else-exp _hoQGWMnyQPAh3k2jhWJSC}#
- (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}#
- #{x _hoQGWMnyQPAh3k2jhWJJx}#
- #{keys _hoQGWMnyQPAh3k2jhWJJy}#
- #{clauses _hoQGWMnyQPAh3k2jhWJJz}#
- #{r _hoQGWMnyQPAh3k2jhWJJ0}#
- #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)))
+ #{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 _hoQGWMnyQPAh3k2jhWJSA}#
- #{then-exp _hoQGWMnyQPAh3k2jhWJSB}#
- #{else-exp _hoQGWMnyQPAh3k2jhWJSC}#)))))
- (let ((#{body _hoQGWMnyQPAh3k2jhWJRw}#
+ #{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 _hoQGWMnyQPAh3k2jhWJRn}#
+ #{req -ANAU$bmvAmthP7L7xwpMG}#
#f
#f
#f
'()
- #{vars _hoQGWMnyQPAh3k2jhWJRp}#
- #{exp _hoQGWMnyQPAh3k2jhWJRr}#
+ #{vars -ANAU$bmvAmthP7L7xwpMI}#
+ #{exp -ANAU$bmvAmthP7L7xwpMK}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body _hoQGWMnyQPAh3k2jhWJRw}#)))
- (list (if (eq? #{p _hoQGWMnyQPAh3k2jhWJMT}# 'any)
- (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJSy}#
+ #{body -ANAU$bmvAmthP7L7xwpMP}#)))
+ (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any)
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -18100,14 +18074,14 @@
'(guile)
'list
#f)))
- (#{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#
- (list #{x _hoQGWMnyQPAh3k2jhWJJx}#)))
+ (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}#
+ (list #{x -ANAU$bmvAmthP7L7xwpEQ}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _hoQGWMnyQPAh3k2jhWJSy}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#))
- (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJTK}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwpNR}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#))
+ (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -18121,27 +18095,27 @@
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#
- (list #{x _hoQGWMnyQPAh3k2jhWJJx}#
+ (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}#
+ (list #{x -ANAU$bmvAmthP7L7xwpEQ}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p _hoQGWMnyQPAh3k2jhWJMT}#))))
+ #{p -ANAU$bmvAmthP7L7xwpGy}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _hoQGWMnyQPAh3k2jhWJTK}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#))))))))))))
- (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJA8}#
- #{keys _hoQGWMnyQPAh3k2jhWJA9}#
- #{clauses _hoQGWMnyQPAh3k2jhWJA$}#
- #{r _hoQGWMnyQPAh3k2jhWJA@}#
- #{mod _hoQGWMnyQPAh3k2jhWJBA}#)
- (if (null? #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)
- (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJBF}#
+ #{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)
@@ -18153,7 +18127,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#
+ (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -18162,77 +18136,77 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x _hoQGWMnyQPAh3k2jhWJA8}#)))
+ #{x -ANAU$bmvAmthP7L7xwo7b}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp _hoQGWMnyQPAh3k2jhWJBF}#
- #{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBn}#
- (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBo}#
+ #{fun-exp -ANAU$bmvAmthP7L7xwo7k}#
+ #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}#
+ (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWJBn}#
+ #{tmp -ANAU$bmvAmthP7L7xwo8G}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWJBo}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwo8H}#
(@apply
- (lambda (#{pat _hoQGWMnyQPAh3k2jhWJBq}#
- #{exp _hoQGWMnyQPAh3k2jhWJBr}#)
- (if (if (if (symbol? #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#)
+ (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#)
#t
(if (if (vector?
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
(if (= (vector-length
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
4)
(eq? (vector-ref
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
1))
#f))
(and-map
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJCG}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#)
(not (if (eq? (if (if (vector?
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
(if (= (vector-length
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
4)
(eq? (vector-ref
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
1)
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
(if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWJCG}#)
+ #{x -ANAU$bmvAmthP7L7xwo8l}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWJCG}#)
+ #{x -ANAU$bmvAmthP7L7xwo8l}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWJCG}#
+ #{x -ANAU$bmvAmthP7L7xwo8l}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWJCG}#
+ #{x -ANAU$bmvAmthP7L7xwo8l}#
1)
- #{x _hoQGWMnyQPAh3k2jhWJCG}#))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{x -ANAU$bmvAmthP7L7xwo8l}#))
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{x _hoQGWMnyQPAh3k2jhWJCG}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwo8l}#
'(())))
#f)))
(cons '#(syntax-object
@@ -18241,23 +18215,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -18539,154 +18513,154 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
- #{keys _hoQGWMnyQPAh3k2jhWJA9}#))
+ #{keys -ANAU$bmvAmthP7L7xwo7c}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -18695,7 +18669,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18708,11 +18682,11 @@
(top)
(top)
(top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18722,10 +18696,10 @@
(top)
(top)
(top))
- ("2u0"
- "2tz"
- "2ty"
- "2tx"))
+ ("15s"
+ "15r"
+ "15q"
+ "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -19007,146 +18981,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -19154,9 +19128,7 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))
4)
#t
@@ -19168,7 +19140,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19177,18 +19149,18 @@
(top)
(top)
(top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -19470,152 +19442,152 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -19624,7 +19596,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x
@@ -19637,11 +19609,11 @@
(top)
(top)
(top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -19651,10 +19623,10 @@
(top)
(top)
(top))
- ("2u0"
- "2tz"
- "2ty"
- "2tx"))
+ ("15s"
+ "15r"
+ "15q"
+ "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -19936,146 +19908,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -20083,9 +20055,7 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8" "7" "6")))
(hygiene guile)))
4)
#t
@@ -20097,7 +20067,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -20106,18 +20076,18 @@
(top)
(top)
(top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -20399,161 +20369,161 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -20562,18 +20532,18 @@
(top)
(top)
(top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -20855,162 +20825,162 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("2w6" "2w7"))
+ #("17y" "17z"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -21019,18 +20989,18 @@
(top)
(top)
(top))
- #("2w1"
- "2w2"
- "2w3"
- "2w4"
- "2w5"))
+ #("17t"
+ "17u"
+ "17v"
+ "17w"
+ "17x"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("2u0" "2tz" "2ty" "2tx"))
+ ("15s" "15r" "15q" "15p"))
#(ribcage
(lambda-var-list
gen-var
@@ -21312,317 +21282,317 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{exp _hoQGWMnyQPAh3k2jhWJBr}#
- #{r _hoQGWMnyQPAh3k2jhWJA@}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#
+ #{r -ANAU$bmvAmthP7L7xwo7e}#
'(())
- #{mod _hoQGWMnyQPAh3k2jhWJBA}#)
- (let ((#{labels _hoQGWMnyQPAh3k2jhWJE2}#
- (list (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#)))
- (#{var _hoQGWMnyQPAh3k2jhWJE3}#
- (let ((#{id _hoQGWMnyQPAh3k2jhWJFd}#
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#)
+ (let ((#{labels -ANAU$bmvAmthP7L7xwo@V}#
+ (list (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#)))
+ (#{var -ANAU$bmvAmthP7L7xwo@W}#
+ (let ((#{id -ANAU$bmvAmthP7L7xwo@8}#
(if (if (vector?
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
(if (= (vector-length
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)
4)
(eq? (vector-ref
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#
1)
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#)))
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#)))
(gensym
(string-append
(symbol->string
- #{id _hoQGWMnyQPAh3k2jhWJFd}#)
+ #{id -ANAU$bmvAmthP7L7xwo@8}#)
" ")))))
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
+ (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
#f
- (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}#
+ (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}#
#f
(list (syntax->datum
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#))
+ #{pat -ANAU$bmvAmthP7L7xwo8J}#))
#f
- (list #{var _hoQGWMnyQPAh3k2jhWJE3}#)
+ (list #{var -ANAU$bmvAmthP7L7xwo@W}#)
'()
- (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{exp _hoQGWMnyQPAh3k2jhWJBr}#
- (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}#
- #{labels _hoQGWMnyQPAh3k2jhWJE2}#
+ (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#
+ (#{extend-env -ANAU$bmvAmthP7L7xwnNa}#
+ #{labels -ANAU$bmvAmthP7L7xwo@V}#
(list (cons 'syntax
- (cons #{var _hoQGWMnyQPAh3k2jhWJE3}#
+ (cons #{var -ANAU$bmvAmthP7L7xwo@W}#
0)))
- #{r _hoQGWMnyQPAh3k2jhWJA@}#)
- (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}#
- (list #{pat _hoQGWMnyQPAh3k2jhWJBq}#)
- #{labels _hoQGWMnyQPAh3k2jhWJE2}#
+ #{r -ANAU$bmvAmthP7L7xwo7e}#)
+ (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}#
+ (list #{pat -ANAU$bmvAmthP7L7xwo8J}#)
+ #{labels -ANAU$bmvAmthP7L7xwo@V}#
'(()))
- #{mod _hoQGWMnyQPAh3k2jhWJBA}#))
- (list #{x _hoQGWMnyQPAh3k2jhWJA8}#))))
- (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}#
- #{x _hoQGWMnyQPAh3k2jhWJA8}#
- #{keys _hoQGWMnyQPAh3k2jhWJA9}#
- (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)
- #{r _hoQGWMnyQPAh3k2jhWJA@}#
- #{pat _hoQGWMnyQPAh3k2jhWJBq}#
+ #{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 _hoQGWMnyQPAh3k2jhWJBr}#
- #{mod _hoQGWMnyQPAh3k2jhWJBA}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWJBo}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWJJp}#
+ #{exp -ANAU$bmvAmthP7L7xwo8K}#
+ #{mod -ANAU$bmvAmthP7L7xwo7f}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwo8H}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWJBn}#
+ #{tmp -ANAU$bmvAmthP7L7xwo8G}#
'(any any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWJJp}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwpEI}#
(@apply
- (lambda (#{pat _hoQGWMnyQPAh3k2jhWJJr}#
- #{fender _hoQGWMnyQPAh3k2jhWJJs}#
- #{exp _hoQGWMnyQPAh3k2jhWJJt}#)
- (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}#
- #{x _hoQGWMnyQPAh3k2jhWJA8}#
- #{keys _hoQGWMnyQPAh3k2jhWJA9}#
- (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#)
- #{r _hoQGWMnyQPAh3k2jhWJA@}#
- #{pat _hoQGWMnyQPAh3k2jhWJJr}#
- #{fender _hoQGWMnyQPAh3k2jhWJJs}#
- #{exp _hoQGWMnyQPAh3k2jhWJJt}#
- #{mod _hoQGWMnyQPAh3k2jhWJBA}#))
- #{tmp _hoQGWMnyQPAh3k2jhWJJp}#)
+ (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 _hoQGWMnyQPAh3k2jhWJA$}#)))))))))))
- (lambda (#{e _hoQGWMnyQPAh3k2jhWI6u}#
- #{r _hoQGWMnyQPAh3k2jhWI6v}#
- #{w _hoQGWMnyQPAh3k2jhWI6w}#
- #{s _hoQGWMnyQPAh3k2jhWI6x}#
- #{mod _hoQGWMnyQPAh3k2jhWI6y}#)
- (let ((#{e _hoQGWMnyQPAh3k2jhWI6z}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (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 _hoQGWMnyQPAh3k2jhWI6u}#)
- #{s _hoQGWMnyQPAh3k2jhWI6x}#
+ (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#)
+ #{s -ANAU$bmvAmthP7L7xwo1Q}#
#f)
(set-source-properties!
- #{e _hoQGWMnyQPAh3k2jhWI6u}#
- #{s _hoQGWMnyQPAh3k2jhWI6x}#))
- #{e _hoQGWMnyQPAh3k2jhWI6u}#)
- #{w _hoQGWMnyQPAh3k2jhWI6w}#
- #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWI61}#
+ #{e -ANAU$bmvAmthP7L7xwo1N}#
+ #{s -ANAU$bmvAmthP7L7xwo1Q}#))
+ #{e -ANAU$bmvAmthP7L7xwo1N}#)
+ #{w -ANAU$bmvAmthP7L7xwo1P}#
+ #{mod -ANAU$bmvAmthP7L7xwo1R}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}#
($sc-dispatch
- #{e _hoQGWMnyQPAh3k2jhWI6z}#
+ #{e -ANAU$bmvAmthP7L7xwo1S}#
'(_ any each-any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWI61}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwo1U}#
(@apply
- (lambda (#{val _hoQGWMnyQPAh3k2jhWI7O}#
- #{key _hoQGWMnyQPAh3k2jhWI7P}#
- #{m _hoQGWMnyQPAh3k2jhWI7Q}#)
+ (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}#
+ #{key -ANAU$bmvAmthP7L7xwo1u}#
+ #{m -ANAU$bmvAmthP7L7xwo1v}#)
(if (and-map
- (lambda (#{x _hoQGWMnyQPAh3k2jhWI7R}#)
- (if (if (symbol? #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#)
+ (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#)
#t
(if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
1))
#f))
(not (if (if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
1))
#f)
(if (eq? (if (if (vector?
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
(if (= (vector-length
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
4)
(eq? (vector-ref
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
1)
- #{x _hoQGWMnyQPAh3k2jhWI7R}#)
+ #{x -ANAU$bmvAmthP7L7xwo1w}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -21638,7 +21608,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -21920,146 +21890,146 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -22067,9 +22037,9 @@
((top)
(top)
(top))
- ("1og"
- "1of"
- "1oe")))
+ ("8"
+ "7"
+ "6")))
(hygiene
guile)))
4)
@@ -22084,7 +22054,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -22366,157 +22336,157 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{x _hoQGWMnyQPAh3k2jhWI7R}#
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwo1w}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
'#(syntax-object
...
((top)
@@ -22525,7 +22495,7 @@
#(ribcage
#(x)
#((top))
- #("2de"))
+ #("p6"))
#(ribcage
(lambda-var-list
gen-var
@@ -22807,1042 +22777,1063 @@
(top)
(top)
(top))
- ("1tt"
- "1ts"
- "1tr"
- "1tq"
- "1tp"
- "1to"
- "1tn"
- "1tm"
- "1tl"
- "1tk"
- "1tj"
- "1ti"
- "1th"
- "1tg"
- "1tf"
- "1te"
- "1td"
- "1tc"
- "1tb"
- "1ta"
- "1t9"
- "1t8"
- "1t7"
- "1t6"
- "1t5"
- "1t4"
- "1t3"
- "1t2"
- "1t1"
- "1t0"
- "1sz"
- "1sy"
- "1sx"
- "1sw"
- "1sv"
- "1su"
- "1st"
- "1ss"
- "1sr"
- "1sq"
- "1sp"
- "1so"
- "1sn"
- "1sm"
- "1sl"
- "1sk"
- "1sj"
- "1si"
- "1sh"
- "1sg"
- "1sf"
- "1se"
- "1sd"
- "1sc"
- "1sb"
- "1sa"
- "1s9"
- "1s8"
- "1s7"
- "1s6"
- "1s5"
- "1s4"
- "1s3"
- "1s2"
- "1s1"
- "1s0"
- "1rz"
- "1ry"
- "1rx"
- "1rw"
- "1rv"
- "1ru"
- "1rt"
- "1rs"
- "1rr"
- "1rq"
- "1rp"
- "1ro"
- "1rn"
- "1rm"
- "1rl"
- "1rk"
- "1rj"
- "1ri"
- "1rh"
- "1rg"
- "1rf"
- "1re"
- "1rd"
- "1rc"
- "1rb"
- "1ra"
- "1r9"
- "1r8"
- "1r7"
- "1r6"
- "1r5"
- "1r4"
- "1r3"
- "1r2"
- "1r1"
- "1r0"
- "1qz"
- "1qy"
- "1qx"
- "1qw"
- "1qv"
- "1qu"
- "1qt"
- "1qs"
- "1qr"
- "1qq"
- "1qp"
- "1qo"
- "1qn"
- "1qm"
- "1ql"
- "1qk"
- "1qj"
- "1qi"
- "1qh"
- "1qg"
- "1qf"
- "1qe"
- "1qd"
- "1qc"
- "1qb"
- "1qa"
- "1q9"
- "1q8"
- "1q7"
- "1q6"
- "1q5"
- "1q4"
- "1q3"
- "1q2"
- "1q1"
- "1q0"
- "1pz"
- "1py"))
+ ("5l"
+ "5k"
+ "5j"
+ "5i"
+ "5h"
+ "5g"
+ "5f"
+ "5e"
+ "5d"
+ "5c"
+ "5b"
+ "5a"
+ "59"
+ "58"
+ "57"
+ "56"
+ "55"
+ "54"
+ "53"
+ "52"
+ "51"
+ "50"
+ "4z"
+ "4y"
+ "4x"
+ "4w"
+ "4v"
+ "4u"
+ "4t"
+ "4s"
+ "4r"
+ "4q"
+ "4p"
+ "4o"
+ "4n"
+ "4m"
+ "4l"
+ "4k"
+ "4j"
+ "4i"
+ "4h"
+ "4g"
+ "4f"
+ "4e"
+ "4d"
+ "4c"
+ "4b"
+ "4a"
+ "49"
+ "48"
+ "47"
+ "46"
+ "45"
+ "44"
+ "43"
+ "42"
+ "41"
+ "40"
+ "3z"
+ "3y"
+ "3x"
+ "3w"
+ "3v"
+ "3u"
+ "3t"
+ "3s"
+ "3r"
+ "3q"
+ "3p"
+ "3o"
+ "3n"
+ "3m"
+ "3l"
+ "3k"
+ "3j"
+ "3i"
+ "3h"
+ "3g"
+ "3f"
+ "3e"
+ "3d"
+ "3c"
+ "3b"
+ "3a"
+ "39"
+ "38"
+ "37"
+ "36"
+ "35"
+ "34"
+ "33"
+ "32"
+ "31"
+ "30"
+ "2z"
+ "2y"
+ "2x"
+ "2w"
+ "2v"
+ "2u"
+ "2t"
+ "2s"
+ "2r"
+ "2q"
+ "2p"
+ "2o"
+ "2n"
+ "2m"
+ "2l"
+ "2k"
+ "2j"
+ "2i"
+ "2h"
+ "2g"
+ "2f"
+ "2e"
+ "2d"
+ "2c"
+ "2b"
+ "2a"
+ "29"
+ "28"
+ "27"
+ "26"
+ "25"
+ "24"
+ "23"
+ "22"
+ "21"
+ "20"
+ "1z"
+ "1y"
+ "1x"
+ "1w"
+ "1v"
+ "1u"
+ "1t"
+ "1s"
+ "1r"
+ "1q"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("1og" "1of" "1oe")))
+ ("8" "7" "6")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- #{key _hoQGWMnyQPAh3k2jhWI7P}#)
- (let ((#{x _hoQGWMnyQPAh3k2jhWI9P}#
+ #{key -ANAU$bmvAmthP7L7xwo1u}#)
+ (let ((#{x -ANAU$bmvAmthP7L7xwo3u}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application _hoQGWMnyQPAh3k2jhWHSg}#
- #{s _hoQGWMnyQPAh3k2jhWI6x}#
- (let ((#{req _hoQGWMnyQPAh3k2jhWI@R}# (list 'tmp))
- (#{vars _hoQGWMnyQPAh3k2jhWI@T}#
- (list #{x _hoQGWMnyQPAh3k2jhWI9P}#))
- (#{exp _hoQGWMnyQPAh3k2jhWI@V}#
- (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}#
+ (#{build-application -ANAU$bmvAmthP7L7xwnM@}#
+ #{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 _hoQGWMnyQPAh3k2jhWI9P}#)
- #{key _hoQGWMnyQPAh3k2jhWI7P}#
- #{m _hoQGWMnyQPAh3k2jhWI7Q}#
- #{r _hoQGWMnyQPAh3k2jhWI6v}#
- #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))
- (let ((#{body _hoQGWMnyQPAh3k2jhWI@a}#
+ #{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 _hoQGWMnyQPAh3k2jhWI@R}#
+ #{req -ANAU$bmvAmthP7L7xwo5w}#
#f
#f
#f
'()
- #{vars _hoQGWMnyQPAh3k2jhWI@T}#
- #{exp _hoQGWMnyQPAh3k2jhWI@V}#
+ #{vars -ANAU$bmvAmthP7L7xwo5y}#
+ #{exp -ANAU$bmvAmthP7L7xwo50}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body _hoQGWMnyQPAh3k2jhWI@a}#)))
- (list (#{expand _hoQGWMnyQPAh3k2jhWHTl}#
- #{val _hoQGWMnyQPAh3k2jhWI7O}#
- #{r _hoQGWMnyQPAh3k2jhWI6v}#
+ #{body -ANAU$bmvAmthP7L7xwo55}#)))
+ (list (#{expand -ANAU$bmvAmthP7L7xwnOE}#
+ #{val -ANAU$bmvAmthP7L7xwo1t}#
+ #{r -ANAU$bmvAmthP7L7xwo1O}#
'(())
- #{mod _hoQGWMnyQPAh3k2jhWI6y}#))))
+ #{mod -ANAU$bmvAmthP7L7xwo1R}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e _hoQGWMnyQPAh3k2jhWI6z}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWI61}#)
+ #{e -ANAU$bmvAmthP7L7xwo1S}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwo1U}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e _hoQGWMnyQPAh3k2jhWI6z}#)))))))
+ #{e -ANAU$bmvAmthP7L7xwo1S}#)))))))
(set! macroexpand
(lambda*
- (#{x _hoQGWMnyQPAh3k2jhWJlC}#
+ (#{x -ANAU$bmvAmthP7L7xwpfh}#
#:optional
- (#{m _hoQGWMnyQPAh3k2jhWJlD}# 'e)
- (#{esew _hoQGWMnyQPAh3k2jhWJlE}# '(eval)))
- (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}#
- (list #{x _hoQGWMnyQPAh3k2jhWJlC}#)
+ (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e)
+ (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval)))
+ (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}#
+ (list #{x -ANAU$bmvAmthP7L7xwpfh}#)
'()
'((top))
#f
- #{m _hoQGWMnyQPAh3k2jhWJlD}#
- #{esew _hoQGWMnyQPAh3k2jhWJlE}#
+ #{m -ANAU$bmvAmthP7L7xwpfi}#
+ #{esew -ANAU$bmvAmthP7L7xwpfj}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJlH}#)
- (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJlH}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJlH}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#)
+ (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 1))
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id _hoQGWMnyQPAh3k2jhWJlg}#
- #{datum _hoQGWMnyQPAh3k2jhWJlh}#)
- (let ((#{wrap _hoQGWMnyQPAh3k2jhWJlm}#
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 2))
- (#{module _hoQGWMnyQPAh3k2jhWJln}#
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 3)))
+ (lambda (#{id -ANAU$bmvAmthP7L7xwpf@}#
+ #{datum -ANAU$bmvAmthP7L7xwpgA}#)
+ (let ((#{wrap -ANAU$bmvAmthP7L7xwpgF}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 2))
+ (#{module -ANAU$bmvAmthP7L7xwpgG}#
+ (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 3)))
(vector
'syntax-object
- #{datum _hoQGWMnyQPAh3k2jhWJlh}#
- #{wrap _hoQGWMnyQPAh3k2jhWJlm}#
- #{module _hoQGWMnyQPAh3k2jhWJln}#))))
+ #{datum -ANAU$bmvAmthP7L7xwpgA}#
+ #{wrap -ANAU$bmvAmthP7L7xwpgF}#
+ #{module -ANAU$bmvAmthP7L7xwpgG}#))))
(set! syntax->datum
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJlu}#)
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{x _hoQGWMnyQPAh3k2jhWJlu}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#)
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{x -ANAU$bmvAmthP7L7xwpgN}#
'(()))))
(set! syntax-source
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJlx}#)
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- #{x _hoQGWMnyQPAh3k2jhWJlx}#)))
- (set! syntax-module
- (lambda (#{id _hoQGWMnyQPAh3k2jhWJoK}#)
- (begin
- (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoK}#)
- (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoK}#)
- 4)
- (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 1))
- #f))
- (syntax-violation
- 'syntax-module
- "invalid argument"
- #{id _hoQGWMnyQPAh3k2jhWJoK}#))
- (cdr (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 3)))))
- (set! syntax-local-binding
- (lambda (#{id _hoQGWMnyQPAh3k2jhWJoz}#)
- (begin
- (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoz}#)
- (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoz}#)
- 4)
- (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1))
- #f))
- (syntax-violation
- 'syntax-local-binding
- "invalid argument"
- #{id _hoQGWMnyQPAh3k2jhWJoz}#))
- ((fluid-ref
- #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#)
- (lambda (#{e _hoQGWMnyQPAh3k2jhWJpc}#
- #{r _hoQGWMnyQPAh3k2jhWJpd}#
- #{w _hoQGWMnyQPAh3k2jhWJpe}#
- #{s _hoQGWMnyQPAh3k2jhWJpf}#
- #{rib _hoQGWMnyQPAh3k2jhWJpg}#
- #{mod _hoQGWMnyQPAh3k2jhWJph}#)
- (call-with-values
- (lambda ()
- (let ((#{id _hoQGWMnyQPAh3k2jhWJpk}#
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1))
- (#{w _hoQGWMnyQPAh3k2jhWJpl}#
- (let ((#{w _hoQGWMnyQPAh3k2jhWJpw}#
- (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWJoz}#
- 2)))
- (let ((#{ms _hoQGWMnyQPAh3k2jhWJpx}#
- (car #{w _hoQGWMnyQPAh3k2jhWJpw}#))
- (#{s _hoQGWMnyQPAh3k2jhWJpy}#
- (cdr #{w _hoQGWMnyQPAh3k2jhWJpw}#)))
- (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWJpx}#)
- (eq? (car #{ms _hoQGWMnyQPAh3k2jhWJpx}#)
- #f)
- #f)
- (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWJpx}#)
- (if #{rib _hoQGWMnyQPAh3k2jhWJpg}#
- (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}#
- (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#))
- (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#)))
- (cons #{ms _hoQGWMnyQPAh3k2jhWJpx}#
- (if #{rib _hoQGWMnyQPAh3k2jhWJpg}#
- (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}#
- #{s _hoQGWMnyQPAh3k2jhWJpy}#)
- #{s _hoQGWMnyQPAh3k2jhWJpy}#))))))
- (#{mod _hoQGWMnyQPAh3k2jhWJpn}#
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 3)))
- (let ((#{n _hoQGWMnyQPAh3k2jhWJpq}#
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{id _hoQGWMnyQPAh3k2jhWJpk}#
- #{w _hoQGWMnyQPAh3k2jhWJpl}#)))
- (if (symbol? #{n _hoQGWMnyQPAh3k2jhWJpq}#)
- (let ((#{mod _hoQGWMnyQPAh3k2jhWJp4}#
- (if (if (vector?
- #{id _hoQGWMnyQPAh3k2jhWJpk}#)
- (if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWJpk}#)
- 4)
- (eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWJpk}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref #{id _hoQGWMnyQPAh3k2jhWJpk}# 3)
- #{mod _hoQGWMnyQPAh3k2jhWJpn}#)))
- (let ((#{b _hoQGWMnyQPAh3k2jhWJp5}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWJp6}#
- (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}#
- #{n _hoQGWMnyQPAh3k2jhWJpq}#
- #{mod _hoQGWMnyQPAh3k2jhWJp4}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWJp6}#
- #{t _hoQGWMnyQPAh3k2jhWJp6}#
- '(global)))))
- (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWJp5}#)
- 'global)
- (values
- 'global
- #{n _hoQGWMnyQPAh3k2jhWJpq}#
- #{mod _hoQGWMnyQPAh3k2jhWJp4}#)
- (values
- (car #{b _hoQGWMnyQPAh3k2jhWJp5}#)
- (cdr #{b _hoQGWMnyQPAh3k2jhWJp5}#)
- #{mod _hoQGWMnyQPAh3k2jhWJp4}#))))
- (if (string? #{n _hoQGWMnyQPAh3k2jhWJpq}#)
- (let ((#{mod _hoQGWMnyQPAh3k2jhWJqU}#
- (if (if (vector?
- #{id _hoQGWMnyQPAh3k2jhWJpk}#)
- (if (= (vector-length
- #{id _hoQGWMnyQPAh3k2jhWJpk}#)
- 4)
- (eq? (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWJpk}#
- 0)
- 'syntax-object)
- #f)
- #f)
- (vector-ref
- #{id _hoQGWMnyQPAh3k2jhWJpk}#
- 3)
- #{mod _hoQGWMnyQPAh3k2jhWJpn}#)))
- (let ((#{b _hoQGWMnyQPAh3k2jhWJqV}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWJqW}#
- (assq-ref
- #{r _hoQGWMnyQPAh3k2jhWJpd}#
- #{n _hoQGWMnyQPAh3k2jhWJpq}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWJqW}#
- #{t _hoQGWMnyQPAh3k2jhWJqW}#
- '(displaced-lexical)))))
- (values
- (car #{b _hoQGWMnyQPAh3k2jhWJqV}#)
- (cdr #{b _hoQGWMnyQPAh3k2jhWJqV}#)
- #{mod _hoQGWMnyQPAh3k2jhWJqU}#)))
- (error "unexpected id-var-name"
- #{id _hoQGWMnyQPAh3k2jhWJpk}#
- #{w _hoQGWMnyQPAh3k2jhWJpl}#
- #{n _hoQGWMnyQPAh3k2jhWJpq}#))))))
- (lambda (#{type _hoQGWMnyQPAh3k2jhWJqj}#
- #{value _hoQGWMnyQPAh3k2jhWJqk}#
- #{mod _hoQGWMnyQPAh3k2jhWJql}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'lexical)
- (values
- 'lexical
- #{value _hoQGWMnyQPAh3k2jhWJqk}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'macro)
- (values 'macro #{value _hoQGWMnyQPAh3k2jhWJqk}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'syntax)
- (values
- 'pattern-variable
- #{value _hoQGWMnyQPAh3k2jhWJqk}#)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}#
- 'displaced-lexical)
- (values 'displaced-lexical #f)
- (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'global)
- (values
- 'global
- (cons #{value _hoQGWMnyQPAh3k2jhWJqk}#
- (cdr #{mod _hoQGWMnyQPAh3k2jhWJql}#)))
- (values 'other #f)))))))))))))
- (set! syntax-locally-bound-identifiers
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJqw}#)
- (begin
- (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJqw}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJqw}#)
- 4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 0)
- 'syntax-object)
- #f)
- #f)
- (symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 1))
- #f))
- (syntax-violation
- 'syntax-locally-bound-identifiers
- "invalid argument"
- #{x _hoQGWMnyQPAh3k2jhWJqw}#))
- (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}#
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 2)
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 3)))))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#)
+ (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}#
+ #{x -ANAU$bmvAmthP7L7xwpgQ}#)))
(set! generate-temporaries
- (lambda (#{ls _hoQGWMnyQPAh3k2jhWJsb}#)
+ (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#)
(begin
- (if (not (list? #{ls _hoQGWMnyQPAh3k2jhWJsb}#))
+ (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls _hoQGWMnyQPAh3k2jhWJsb}#))
- (let ((#{mod _hoQGWMnyQPAh3k2jhWJsj}#
+ #{ls -ANAU$bmvAmthP7L7xwpip}#))
+ (let ((#{mod -ANAU$bmvAmthP7L7xwpix}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x _hoQGWMnyQPAh3k2jhWJsk}#)
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
+ (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#)
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
(gensym)
'((top))
- #{mod _hoQGWMnyQPAh3k2jhWJsj}#))
- #{ls _hoQGWMnyQPAh3k2jhWJsb}#)))))
+ #{mod -ANAU$bmvAmthP7L7xwpix}#))
+ #{ls -ANAU$bmvAmthP7L7xwpip}#)))))
(set! free-identifier=?
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJso}#
- #{y _hoQGWMnyQPAh3k2jhWJsp}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}#
+ #{y -ANAU$bmvAmthP7L7xwpi3}#)
(begin
- (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#)
+ (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1))
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x _hoQGWMnyQPAh3k2jhWJso}#))
- (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#)
- (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#)
+ #{x -ANAU$bmvAmthP7L7xwpi2}#))
+ (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#)
4)
- (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1))
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y _hoQGWMnyQPAh3k2jhWJsp}#))
- (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#)
+ #{y -ANAU$bmvAmthP7L7xwpi3}#))
+ (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1)
- #{x _hoQGWMnyQPAh3k2jhWJso}#)
- (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#)
- (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#)
+ (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 _hoQGWMnyQPAh3k2jhWJsp}# 0)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0)
'syntax-object)
#f)
#f)
- (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1)
- #{y _hoQGWMnyQPAh3k2jhWJsp}#))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{x _hoQGWMnyQPAh3k2jhWJso}#
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)
+ #{y -ANAU$bmvAmthP7L7xwpi3}#))
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{x -ANAU$bmvAmthP7L7xwpi2}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{y _hoQGWMnyQPAh3k2jhWJsp}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{y -ANAU$bmvAmthP7L7xwpi3}#
'(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x _hoQGWMnyQPAh3k2jhWJu@}#
- #{y _hoQGWMnyQPAh3k2jhWJvA}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwplN}#
+ #{y -ANAU$bmvAmthP7L7xwplO}#)
(begin
- (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#)
+ (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1))
+ (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x _hoQGWMnyQPAh3k2jhWJu@}#))
- (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#)
- (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#)
+ #{x -ANAU$bmvAmthP7L7xwplN}#))
+ (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
4)
- (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1))
+ (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y _hoQGWMnyQPAh3k2jhWJvA}#))
- (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#)
- (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#)
+ #{y -ANAU$bmvAmthP7L7xwplO}#))
+ (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#)
+ (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#)
4)
- (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0)
+ (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0)
'syntax-object)
#f)
#f)
- (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#)
- (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#)
+ (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#)
+ (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#)
4)
- (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0)
+ (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0)
'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1)
- (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1))
- (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}#
- (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 2))
- (car (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 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 _hoQGWMnyQPAh3k2jhWJu@}#
- #{y _hoQGWMnyQPAh3k2jhWJvA}#)))))
+ (eq? #{x -ANAU$bmvAmthP7L7xwplN}#
+ #{y -ANAU$bmvAmthP7L7xwplO}#)))))
(set! syntax-violation
(lambda*
- (#{who _hoQGWMnyQPAh3k2jhWJxF}#
- #{message _hoQGWMnyQPAh3k2jhWJxG}#
- #{form _hoQGWMnyQPAh3k2jhWJxH}#
+ (#{who -ANAU$bmvAmthP7L7xwpnT}#
+ #{message -ANAU$bmvAmthP7L7xwpnU}#
+ #{form -ANAU$bmvAmthP7L7xwpnV}#
#:optional
- (#{subform _hoQGWMnyQPAh3k2jhWJxI}# #f))
+ (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f))
(begin
- (if (not (if (not #{who _hoQGWMnyQPAh3k2jhWJxF}#)
- (not #{who _hoQGWMnyQPAh3k2jhWJxF}#)
- (let ((#{t _hoQGWMnyQPAh3k2jhWJxa}#
- (string? #{who _hoQGWMnyQPAh3k2jhWJxF}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWJxa}#
- #{t _hoQGWMnyQPAh3k2jhWJxa}#
- (symbol? #{who _hoQGWMnyQPAh3k2jhWJxF}#)))))
+ (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 _hoQGWMnyQPAh3k2jhWJxF}#))
- (if (not (string? #{message _hoQGWMnyQPAh3k2jhWJxG}#))
+ #{who -ANAU$bmvAmthP7L7xwpnT}#))
+ (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message _hoQGWMnyQPAh3k2jhWJxG}#))
+ #{message -ANAU$bmvAmthP7L7xwpnU}#))
(throw 'syntax-error
- #{who _hoQGWMnyQPAh3k2jhWJxF}#
- #{message _hoQGWMnyQPAh3k2jhWJxG}#
- (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}#
- (if #{form _hoQGWMnyQPAh3k2jhWJxH}#
- #{form _hoQGWMnyQPAh3k2jhWJxH}#
- #{subform _hoQGWMnyQPAh3k2jhWJxI}#))
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{form _hoQGWMnyQPAh3k2jhWJxH}#
+ #{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 _hoQGWMnyQPAh3k2jhWJxI}#
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{subform _hoQGWMnyQPAh3k2jhWJxI}#
+ (if #{subform -ANAU$bmvAmthP7L7xwpnW}#
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{subform -ANAU$bmvAmthP7L7xwpnW}#
'(()))
#f)))))
(letrec*
- ((#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9w}#
- #{p _hoQGWMnyQPAh3k2jhWJ9x}#
- #{w _hoQGWMnyQPAh3k2jhWJ9y}#
- #{mod _hoQGWMnyQPAh3k2jhWJ9z}#)
- (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
- (let ((#{first _hoQGWMnyQPAh3k2jhWJ90}#
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- (car #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
- #{p _hoQGWMnyQPAh3k2jhWJ9x}#
- #{w _hoQGWMnyQPAh3k2jhWJ9y}#
+ ((#{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 -ANAU$bmvAmthP7L7xwpt@}#
+ (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}#
+ #{n -ANAU$bmvAmthP7L7xwptv}#
+ #{mod -ANAU$bmvAmthP7L7xwpt9}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwpt@}#
+ #{t -ANAU$bmvAmthP7L7xwpt@}#
+ '(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 _hoQGWMnyQPAh3k2jhWJ9z}#)))
- (if #{first _hoQGWMnyQPAh3k2jhWJ90}#
- (let ((#{rest _hoQGWMnyQPAh3k2jhWJ93}#
- (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
- (cdr #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
- #{p _hoQGWMnyQPAh3k2jhWJ9x}#
- #{w _hoQGWMnyQPAh3k2jhWJ9y}#
- #{mod _hoQGWMnyQPAh3k2jhWJ9z}#)))
- (if #{rest _hoQGWMnyQPAh3k2jhWJ93}#
- (cons #{first _hoQGWMnyQPAh3k2jhWJ90}#
- #{rest _hoQGWMnyQPAh3k2jhWJ93}#)
+ #{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 _hoQGWMnyQPAh3k2jhWJ9w}#)
+ (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#)
'()
- (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
- (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9w}#)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#)
4)
- (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 0)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0)
'syntax-object)
#f)
#f)
- (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 1)
- #{p _hoQGWMnyQPAh3k2jhWJ9x}#
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWJ9y}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 2))
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 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 _hoQGWMnyQPAh3k2jhWJ0n}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWJ$T}#
- #{w _hoQGWMnyQPAh3k2jhWJ$U}#
- #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)
- (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
- (let ((#{l _hoQGWMnyQPAh3k2jhWJ$W}#
- (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
- (cdr #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
- #{w _hoQGWMnyQPAh3k2jhWJ$U}#
- #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)))
- (if #{l _hoQGWMnyQPAh3k2jhWJ$W}#
- (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- (car #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
- #{w _hoQGWMnyQPAh3k2jhWJ$U}#
- #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)
- #{l _hoQGWMnyQPAh3k2jhWJ$W}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWJ$T}#)
+ (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#)
'()
- (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
- (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ$T}#)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#)
4)
- (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 0)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0)
'syntax-object)
#f)
#f)
- (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 1)
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWJ$U}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 2))
- #{mod _hoQGWMnyQPAh3k2jhWJ$V}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWJ0o}#
- (lambda (#{p _hoQGWMnyQPAh3k2jhWJ$u}#
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
- (if (null? #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# '_)
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'any)
- (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
- (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
- (car #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
- (cdr #{p _hoQGWMnyQPAh3k2jhWJ$u}#)
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#))
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'each-any)
- (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
- (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 0)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1)
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#)
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
+ (#{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 _hoQGWMnyQPAh3k2jhWJ0o}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
(reverse
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 2))
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 3)
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#)))
- (if (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
+ (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 _hoQGWMnyQPAh3k2jhWJ$w}#
+ (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
'atom))
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}#
+ #{r -ANAU$bmvAmthP7L7xwp6q}#
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}#
'vector)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1)
- #{r _hoQGWMnyQPAh3k2jhWJ$v}#)))))))))))))
- (#{combine _hoQGWMnyQPAh3k2jhWJ0p}#
- (lambda (#{r* _hoQGWMnyQPAh3k2jhWJ@D}#
- #{r _hoQGWMnyQPAh3k2jhWJ@E}#)
- (if (null? (car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#))
- #{r _hoQGWMnyQPAh3k2jhWJ@E}#
- (cons (map car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)
- (#{combine _hoQGWMnyQPAh3k2jhWJ0p}#
- (map cdr #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)
- #{r _hoQGWMnyQPAh3k2jhWJ@E}#)))))
- (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWJ1I}#
- #{p _hoQGWMnyQPAh3k2jhWJ1J}#
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
- (if (null? #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
- (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1)
+ #{r -ANAU$bmvAmthP7L7xwp6q}#)))))))))))))
+ (#{combine -ANAU$bmvAmthP7L7xwpwk}#
+ (lambda (#{r* -ANAU$bmvAmthP7L7xwp6$}#
+ #{r -ANAU$bmvAmthP7L7xwp6@}#)
+ (if (null? (car #{r* -ANAU$bmvAmthP7L7xwp6$}#))
+ #{r -ANAU$bmvAmthP7L7xwp6@}#
+ (cons (map car #{r* -ANAU$bmvAmthP7L7xwp6$}#)
+ (#{combine -ANAU$bmvAmthP7L7xwpwk}#
+ (map cdr #{r* -ANAU$bmvAmthP7L7xwp6$}#)
+ #{r -ANAU$bmvAmthP7L7xwp6@}#)))))
+ (#{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 _hoQGWMnyQPAh3k2jhWJ1J}#)
- (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- (car #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- (car #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- (cdr #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- (cdr #{p _hoQGWMnyQPAh3k2jhWJ1J}#)
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
+ (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 _hoQGWMnyQPAh3k2jhWJ1J}# 'each-any)
- (let ((#{l _hoQGWMnyQPAh3k2jhWJ1R}#
- (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}#
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
- (if #{l _hoQGWMnyQPAh3k2jhWJ1R}#
- (cons #{l _hoQGWMnyQPAh3k2jhWJ1R}#
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#)
+ (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 _hoQGWMnyQPAh3k2jhWJ1W}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 0)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each)
- (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#)
- (let ((#{l _hoQGWMnyQPAh3k2jhWJ1d}#
- (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}#
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
- (if #{l _hoQGWMnyQPAh3k2jhWJ1d}#
+ (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 _hoQGWMnyQPAh3k2jhWJ1g}#
- (lambda (#{l _hoQGWMnyQPAh3k2jhWJ2T}#)
- (if (null? (car #{l _hoQGWMnyQPAh3k2jhWJ2T}#))
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ ((#{collect -ANAU$bmvAmthP7L7xwpxb}#
+ (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#)
+ (if (null? (car #{l -ANAU$bmvAmthP7L7xwpyO}#))
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
(cons (map car
- #{l _hoQGWMnyQPAh3k2jhWJ2T}#)
- (#{collect _hoQGWMnyQPAh3k2jhWJ1g}#
+ #{l -ANAU$bmvAmthP7L7xwpyO}#)
+ (#{collect -ANAU$bmvAmthP7L7xwpxb}#
(map cdr
- #{l _hoQGWMnyQPAh3k2jhWJ2T}#)))))))
- (#{collect _hoQGWMnyQPAh3k2jhWJ1g}#
- #{l _hoQGWMnyQPAh3k2jhWJ1d}#))
+ #{l -ANAU$bmvAmthP7L7xwpyO}#)))))))
+ (#{collect -ANAU$bmvAmthP7L7xwpxb}#
+ #{l -ANAU$bmvAmthP7L7xwpxY}#))
#f)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each+)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat _hoQGWMnyQPAh3k2jhWJ2c}#
+ (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}#
(vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJ1J}#
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
1))
- (#{y-pat _hoQGWMnyQPAh3k2jhWJ2d}#
+ (#{y-pat -ANAU$bmvAmthP7L7xwpyY}#
(vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJ1J}#
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
2))
- (#{z-pat _hoQGWMnyQPAh3k2jhWJ2e}#
+ (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}#
(vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJ1J}#
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
3)))
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWJ2i}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWJ2k}#
- #{w _hoQGWMnyQPAh3k2jhWJ2l}#)
- (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
+ ((#{f -ANAU$bmvAmthP7L7xwpyd}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}#
+ #{w -ANAU$bmvAmthP7L7xwpyg}#)
+ (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#)
(call-with-values
(lambda ()
- (#{f _hoQGWMnyQPAh3k2jhWJ2i}#
- (cdr #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
- #{w _hoQGWMnyQPAh3k2jhWJ2l}#))
- (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ2m}#
- #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#
- #{r _hoQGWMnyQPAh3k2jhWJ2o}#)
- (if #{r _hoQGWMnyQPAh3k2jhWJ2o}#
- (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#)
- (let ((#{xr _hoQGWMnyQPAh3k2jhWJ2p}#
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
- #{x-pat _hoQGWMnyQPAh3k2jhWJ2c}#
- #{w _hoQGWMnyQPAh3k2jhWJ2l}#
+ (#{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 _hoQGWMnyQPAh3k2jhWJ1M}#)))
- (if #{xr _hoQGWMnyQPAh3k2jhWJ2p}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#)))
+ (if #{xr -ANAU$bmvAmthP7L7xwpyk}#
(values
- (cons #{xr _hoQGWMnyQPAh3k2jhWJ2p}#
- #{xr* _hoQGWMnyQPAh3k2jhWJ2m}#)
- #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#
- #{r _hoQGWMnyQPAh3k2jhWJ2o}#)
+ (cons #{xr -ANAU$bmvAmthP7L7xwpyk}#
+ #{xr* -ANAU$bmvAmthP7L7xwpyh}#)
+ #{y-pat -ANAU$bmvAmthP7L7xwpyi}#
+ #{r -ANAU$bmvAmthP7L7xwpyj}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#)
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
- (car #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#)
- #{w _hoQGWMnyQPAh3k2jhWJ2l}#
- #{r _hoQGWMnyQPAh3k2jhWJ2o}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))
+ (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 _hoQGWMnyQPAh3k2jhWJ2k}#)
+ #{e -ANAU$bmvAmthP7L7xwpyf}#)
(if (= (vector-length
- #{e _hoQGWMnyQPAh3k2jhWJ2k}#)
+ #{e -ANAU$bmvAmthP7L7xwpyf}#)
4)
(eq? (vector-ref
- #{e _hoQGWMnyQPAh3k2jhWJ2k}#
+ #{e -ANAU$bmvAmthP7L7xwpyf}#
0)
'syntax-object)
#f)
#f)
- (#{f _hoQGWMnyQPAh3k2jhWJ2i}#
+ (#{f -ANAU$bmvAmthP7L7xwpyd}#
(vector-ref
- #{e _hoQGWMnyQPAh3k2jhWJ2k}#
+ #{e -ANAU$bmvAmthP7L7xwpyf}#
1)
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWJ2l}#
- #{e _hoQGWMnyQPAh3k2jhWJ2k}#))
+ (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}#
+ #{w -ANAU$bmvAmthP7L7xwpyg}#
+ #{e -ANAU$bmvAmthP7L7xwpyf}#))
(values
'()
- #{y-pat _hoQGWMnyQPAh3k2jhWJ2d}#
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- #{e _hoQGWMnyQPAh3k2jhWJ2k}#
- #{z-pat _hoQGWMnyQPAh3k2jhWJ2e}#
- #{w _hoQGWMnyQPAh3k2jhWJ2l}#
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)))))))
- (#{f _hoQGWMnyQPAh3k2jhWJ2i}#
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#))))
- (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ3D}#
- #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#
- #{r _hoQGWMnyQPAh3k2jhWJ3F}#)
- (if #{r _hoQGWMnyQPAh3k2jhWJ3F}#
- (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#)
- (if (null? #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#)
- (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}#
+ #{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 -ANAU$bmvAmthP7L7xwpy@}#
+ #{r -ANAU$bmvAmthP7L7xwpzA}#)
+ (if #{r -ANAU$bmvAmthP7L7xwpzA}#
+ (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpy@}#)
+ (if (null? #{xr* -ANAU$bmvAmthP7L7xwpy$}#)
+ (#{match-empty -ANAU$bmvAmthP7L7xwpwj}#
(vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJ1J}#
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
1)
- #{r _hoQGWMnyQPAh3k2jhWJ3F}#)
- (#{combine _hoQGWMnyQPAh3k2jhWJ0p}#
- #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#
- #{r _hoQGWMnyQPAh3k2jhWJ3F}#))
+ #{r -ANAU$bmvAmthP7L7xwpzA}#)
+ (#{combine -ANAU$bmvAmthP7L7xwpwk}#
+ #{xr* -ANAU$bmvAmthP7L7xwpy$}#
+ #{r -ANAU$bmvAmthP7L7xwpzA}#))
#f)
#f)))
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}#
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
'free-id)
- (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#)
#t
- (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#)
(if (= (vector-length
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
+ #{e -ANAU$bmvAmthP7L7xwpxD}#)
4)
(eq? (vector-ref
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
1))
#f))
- (if (let ((#{i _hoQGWMnyQPAh3k2jhWJ8Q}#
- (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))
- (#{j _hoQGWMnyQPAh3k2jhWJ8R}#
+ (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}#
+ (#{wrap -ANAU$bmvAmthP7L7xwnN9}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#
+ #{mod -ANAU$bmvAmthP7L7xwpxH}#))
+ (#{j -ANAU$bmvAmthP7L7xwp4M}#
(vector-ref
- #{p _hoQGWMnyQPAh3k2jhWJ1J}#
+ #{p -ANAU$bmvAmthP7L7xwpxE}#
1)))
(if (eq? (if (if (vector?
- #{i _hoQGWMnyQPAh3k2jhWJ8Q}#)
+ #{i -ANAU$bmvAmthP7L7xwp4L}#)
(if (= (vector-length
- #{i _hoQGWMnyQPAh3k2jhWJ8Q}#)
+ #{i -ANAU$bmvAmthP7L7xwp4L}#)
4)
(eq? (vector-ref
- #{i _hoQGWMnyQPAh3k2jhWJ8Q}#
+ #{i -ANAU$bmvAmthP7L7xwp4L}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{i _hoQGWMnyQPAh3k2jhWJ8Q}#
+ #{i -ANAU$bmvAmthP7L7xwp4L}#
1)
- #{i _hoQGWMnyQPAh3k2jhWJ8Q}#)
+ #{i -ANAU$bmvAmthP7L7xwp4L}#)
(if (if (vector?
- #{j _hoQGWMnyQPAh3k2jhWJ8R}#)
+ #{j -ANAU$bmvAmthP7L7xwp4M}#)
(if (= (vector-length
- #{j _hoQGWMnyQPAh3k2jhWJ8R}#)
+ #{j -ANAU$bmvAmthP7L7xwp4M}#)
4)
(eq? (vector-ref
- #{j _hoQGWMnyQPAh3k2jhWJ8R}#
+ #{j -ANAU$bmvAmthP7L7xwp4M}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{j _hoQGWMnyQPAh3k2jhWJ8R}#
+ #{j -ANAU$bmvAmthP7L7xwp4M}#
1)
- #{j _hoQGWMnyQPAh3k2jhWJ8R}#))
- (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{i _hoQGWMnyQPAh3k2jhWJ8Q}#
+ #{j -ANAU$bmvAmthP7L7xwp4M}#))
+ (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{i -ANAU$bmvAmthP7L7xwp4L}#
'(()))
- (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}#
- #{j _hoQGWMnyQPAh3k2jhWJ8R}#
+ (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}#
+ #{j -ANAU$bmvAmthP7L7xwp4M}#
'(())))
#f))
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
#f)
#f)
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'atom)
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom)
(if (equal?
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
- (#{strip _hoQGWMnyQPAh3k2jhWHTy}#
- #{e _hoQGWMnyQPAh3k2jhWJ1I}#
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#))
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
+ (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1)
+ (#{strip -ANAU$bmvAmthP7L7xwnOR}#
+ #{e -ANAU$bmvAmthP7L7xwpxD}#
+ #{w -ANAU$bmvAmthP7L7xwpxF}#))
+ #{r -ANAU$bmvAmthP7L7xwpxG}#
#f)
- (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}#
+ (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}#
'vector)
- (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- (#{match _hoQGWMnyQPAh3k2jhWJ0r}#
- (vector->list #{e _hoQGWMnyQPAh3k2jhWJ1I}#)
- (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)
- #{w _hoQGWMnyQPAh3k2jhWJ1K}#
- #{r _hoQGWMnyQPAh3k2jhWJ1L}#
- #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)
+ (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 _hoQGWMnyQPAh3k2jhWJ0r}#
- (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9N}#
- #{p _hoQGWMnyQPAh3k2jhWJ9O}#
- #{w _hoQGWMnyQPAh3k2jhWJ9P}#
- #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
- #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)
- (if (not #{r _hoQGWMnyQPAh3k2jhWJ9Q}#)
+ (#{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 _hoQGWMnyQPAh3k2jhWJ9O}# '_)
- #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# 'any)
- (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}#
- #{e _hoQGWMnyQPAh3k2jhWJ9N}#
- #{w _hoQGWMnyQPAh3k2jhWJ9P}#
- #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)
- #{r _hoQGWMnyQPAh3k2jhWJ9Q}#)
- (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9N}#)
- (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9N}#)
+ (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 _hoQGWMnyQPAh3k2jhWJ9N}# 0)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 0)
'syntax-object)
#f)
#f)
- (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 1)
- #{p _hoQGWMnyQPAh3k2jhWJ9O}#
- (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}#
- #{w _hoQGWMnyQPAh3k2jhWJ9P}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 2))
- #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 3))
- (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
- #{e _hoQGWMnyQPAh3k2jhWJ9N}#
- #{p _hoQGWMnyQPAh3k2jhWJ9O}#
- #{w _hoQGWMnyQPAh3k2jhWJ9P}#
- #{r _hoQGWMnyQPAh3k2jhWJ9Q}#
- #{mod _hoQGWMnyQPAh3k2jhWJ9R}#))))))))
+ (#{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 _hoQGWMnyQPAh3k2jhWJ0s}#
- #{p _hoQGWMnyQPAh3k2jhWJ0t}#)
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# 'any)
- (list #{e _hoQGWMnyQPAh3k2jhWJ0s}#)
- (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# '_)
+ (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 _hoQGWMnyQPAh3k2jhWJ0s}#)
- (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ0s}#)
+ (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#)
+ (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#)
4)
- (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 0)
+ (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0)
'syntax-object)
#f)
#f)
- (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 1)
- #{p _hoQGWMnyQPAh3k2jhWJ0t}#
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 2)
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1)
+ #{p -ANAU$bmvAmthP7L7xwpwo}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2)
'()
- (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 3))
- (#{match* _hoQGWMnyQPAh3k2jhWJ0q}#
- #{e _hoQGWMnyQPAh3k2jhWJ0s}#
- #{p _hoQGWMnyQPAh3k2jhWJ0t}#
+ (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3))
+ (#{match* -ANAU$bmvAmthP7L7xwpwl}#
+ #{e -ANAU$bmvAmthP7L7xwpwn}#
+ #{p -ANAU$bmvAmthP7L7xwpwo}#
'(())
'()
#f))))))))))
@@ -23851,82 +23842,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMwo}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMwq}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMwo}#
+ #{x -ANAU$bmvAmthP7L7xws3J}#
'(_ () any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMwq}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws3L}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMwu}#
- #{e2 _hoQGWMnyQPAh3k2jhWMwv}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}#
+ #{e2 -ANAU$bmvAmthP7L7xws3Q}#)
(cons '#(syntax-object
let
((top)
- #(ribcage #(e1 e2) #((top) (top)) #("2zo" "2zp"))
+ #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zn")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '()
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMwu}#
- #{e2 _hoQGWMnyQPAh3k2jhWMwv}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMwq}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMww}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xws3P}#
+ #{e2 -ANAU$bmvAmthP7L7xws3Q}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws3L}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMwo}#
+ #{x -ANAU$bmvAmthP7L7xws3J}#
'(_ ((any any)) any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMww}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws3R}#
(@apply
- (lambda (#{out _hoQGWMnyQPAh3k2jhWMw0}#
- #{in _hoQGWMnyQPAh3k2jhWMw1}#
- #{e1 _hoQGWMnyQPAh3k2jhWMw2}#
- #{e2 _hoQGWMnyQPAh3k2jhWMw3}#)
+ (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))
- #("2zq" "2zr" "2zs" "2zt"))
+ #("1bl" "1bm" "1bn" "1bo"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zn")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
- #{in _hoQGWMnyQPAh3k2jhWMw1}#
+ #{in -ANAU$bmvAmthP7L7xws3W}#
'()
- (list #{out _hoQGWMnyQPAh3k2jhWMw0}#
+ (list #{out -ANAU$bmvAmthP7L7xws3V}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zq" "2zr" "2zs" "2zt"))
+ #("1bl" "1bm" "1bn" "1bo"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zn")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '()
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMw2}#
- #{e2 _hoQGWMnyQPAh3k2jhWMw3}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMww}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMw4}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xws3X}#
+ #{e2 -ANAU$bmvAmthP7L7xws3Y}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws3R}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMwo}#
+ #{x -ANAU$bmvAmthP7L7xws3J}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMw4}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws3Z}#
(@apply
- (lambda (#{out _hoQGWMnyQPAh3k2jhWMw8}#
- #{in _hoQGWMnyQPAh3k2jhWMw9}#
- #{e1 _hoQGWMnyQPAh3k2jhWMw$}#
- #{e2 _hoQGWMnyQPAh3k2jhWMw@}#)
+ (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))
- #("2zu" "2zv" "2zw" "2zx"))
+ #("1bp" "1bq" "1br" "1bs"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zn")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -23934,56 +23925,56 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zu" "2zv" "2zw" "2zx"))
+ #("1bp" "1bq" "1br" "1bs"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zn")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
- #{in _hoQGWMnyQPAh3k2jhWMw9}#)
+ #{in -ANAU$bmvAmthP7L7xws3e}#)
'()
- (list #{out _hoQGWMnyQPAh3k2jhWMw8}#
+ (list #{out -ANAU$bmvAmthP7L7xws3d}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("2zu" "2zv" "2zw" "2zx"))
+ #("1bp" "1bq" "1br" "1bs"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zn")))
+ #(ribcage #(x) #((top)) #("1bi")))
(hygiene guile))
(cons '()
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMw$}#
- #{e2 _hoQGWMnyQPAh3k2jhWMw@}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMw4}#)
+ (cons #{e1 -ANAU$bmvAmthP7L7xws3f}#
+ #{e2 -ANAU$bmvAmthP7L7xws3g}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws3Z}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWMwo}#))))))))))
+ #{x -ANAU$bmvAmthP7L7xws3J}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMxm}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxo}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMxm}#
+ #{x -ANAU$bmvAmthP7L7xws4H}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMxo}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws4J}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWMxs}#
- #{keyword _hoQGWMnyQPAh3k2jhWMxt}#
- #{pattern _hoQGWMnyQPAh3k2jhWMxu}#
- #{template _hoQGWMnyQPAh3k2jhWMxv}#)
+ (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))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
'(#(syntax-object
x
@@ -23991,9 +23982,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -24002,9 +23993,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
.
#(syntax-object
@@ -24013,9 +24004,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -24023,20 +24014,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- #{pattern _hoQGWMnyQPAh3k2jhWMxu}#))
+ #{pattern -ANAU$bmvAmthP7L7xws4P}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -24044,13 +24035,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("2zz" "300" "301" "302"))
+ #("1bu" "1bv" "1bw" "1bx"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- (cons #{k _hoQGWMnyQPAh3k2jhWMxs}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#
- #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#)
+ (cons #{k -ANAU$bmvAmthP7L7xws4N}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#
+ #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -24063,10 +24054,10 @@
(top)
(top)
(top))
- #("2zz"
- "300"
- "301"
- "302"))
+ #("1bu"
+ "1bv"
+ "1bw"
+ "1bx"))
#(ribcage
()
()
@@ -24074,9 +24065,9 @@
#(ribcage
#(x)
#((top))
- #("2zy")))
+ #("1bt")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#)
+ #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#)
(list '#(syntax-object
syntax
((top)
@@ -24089,10 +24080,10 @@
(top)
(top)
(top))
- #("2zz"
- "300"
- "301"
- "302"))
+ #("1bu"
+ "1bv"
+ "1bw"
+ "1bx"))
#(ribcage
()
()
@@ -24100,43 +24091,43 @@
#(ribcage
#(x)
#((top))
- #("2zy")))
+ #("1bt")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#)))
- #{template _hoQGWMnyQPAh3k2jhWMxv}#
- #{pattern _hoQGWMnyQPAh3k2jhWMxu}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMxo}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxy}#
+ #{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#)))
+ #{template -ANAU$bmvAmthP7L7xws4Q}#
+ #{pattern -ANAU$bmvAmthP7L7xws4P}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws4J}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMxm}#
+ #{x -ANAU$bmvAmthP7L7xws4H}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMxy}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWMx2}#
- #{docstring _hoQGWMnyQPAh3k2jhWMx3}#
- #{keyword _hoQGWMnyQPAh3k2jhWMx4}#
- #{pattern _hoQGWMnyQPAh3k2jhWMx5}#
- #{template _hoQGWMnyQPAh3k2jhWMx6}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xws4X}#
+ #{docstring -ANAU$bmvAmthP7L7xws4Y}#
+ #{keyword -ANAU$bmvAmthP7L7xws4Z}#
+ #{pattern -ANAU$bmvAmthP7L7xws4a}#
+ #{template -ANAU$bmvAmthP7L7xws4b}#)
(string?
(syntax->datum
- #{docstring _hoQGWMnyQPAh3k2jhWMx3}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMxy}#)
+ #{docstring -ANAU$bmvAmthP7L7xws4Y}#)))
+ #{tmp -ANAU$bmvAmthP7L7xws4T}#)
#f)
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWMx7}#
- #{docstring _hoQGWMnyQPAh3k2jhWMx8}#
- #{keyword _hoQGWMnyQPAh3k2jhWMx9}#
- #{pattern _hoQGWMnyQPAh3k2jhWMx$}#
- #{template _hoQGWMnyQPAh3k2jhWMx@}#)
+ (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))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
'(#(syntax-object
x
@@ -24144,11 +24135,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
- #{docstring _hoQGWMnyQPAh3k2jhWMx8}#
+ #{docstring -ANAU$bmvAmthP7L7xws4d}#
(vector
'(#(syntax-object
macro-type
@@ -24156,9 +24147,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
.
#(syntax-object
@@ -24167,9 +24158,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -24177,20 +24168,20 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- #{pattern _hoQGWMnyQPAh3k2jhWMx$}#))
+ #{pattern -ANAU$bmvAmthP7L7xws4f}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -24202,13 +24193,13 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("308" "309" "30a" "30b" "30c"))
+ #("1c3" "1c4" "1c5" "1c6" "1c7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("2zy")))
+ #(ribcage #(x) #((top)) #("1bt")))
(hygiene guile))
- (cons #{k _hoQGWMnyQPAh3k2jhWMx7}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#
- #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#)
+ (cons #{k -ANAU$bmvAmthP7L7xws4c}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#
+ #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -24223,11 +24214,11 @@
(top)
(top)
(top))
- #("308"
- "309"
- "30a"
- "30b"
- "30c"))
+ #("1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage
()
()
@@ -24235,10 +24226,10 @@
#(ribcage
#(x)
#((top))
- #("2zy")))
+ #("1bt")))
(hygiene
guile))
- #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#)
+ #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#)
(list '#(syntax-object
syntax
((top)
@@ -24253,11 +24244,11 @@
(top)
(top)
(top))
- #("308"
- "309"
- "30a"
- "30b"
- "30c"))
+ #("1c3"
+ "1c4"
+ "1c5"
+ "1c6"
+ "1c7"))
#(ribcage
()
()
@@ -24265,52 +24256,52 @@
#(ribcage
#(x)
#((top))
- #("2zy")))
+ #("1bt")))
(hygiene
guile))
- #{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#)))
- #{template _hoQGWMnyQPAh3k2jhWMx@}#
- #{pattern _hoQGWMnyQPAh3k2jhWMx$}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWMxy}#)
+ #{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 _hoQGWMnyQPAh3k2jhWMxm}#))))))))
+ #{x -ANAU$bmvAmthP7L7xws4H}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMya}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyc}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws47}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws49}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMya}#
+ #{x -ANAU$bmvAmthP7L7xws47}#
'(_ (any . any) any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMyc}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws49}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWMyg}#
- #{pattern _hoQGWMnyQPAh3k2jhWMyh}#
- #{template _hoQGWMnyQPAh3k2jhWMyi}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xws5B}#
+ #{pattern -ANAU$bmvAmthP7L7xws5C}#
+ #{template -ANAU$bmvAmthP7L7xws5D}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("30e" "30f" "30g"))
+ #("1c9" "1ca" "1cb"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30d")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
- #{name _hoQGWMnyQPAh3k2jhWMyg}#
+ #{name -ANAU$bmvAmthP7L7xws5B}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("30e" "30f" "30g"))
+ #("1c9" "1ca" "1cb"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30d")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -24319,56 +24310,56 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("30e" "30f" "30g"))
+ #("1c9" "1ca" "1cb"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30d")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
- #{pattern _hoQGWMnyQPAh3k2jhWMyh}#)
- #{template _hoQGWMnyQPAh3k2jhWMyi}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMyc}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyj}#
+ #{pattern -ANAU$bmvAmthP7L7xws5C}#)
+ #{template -ANAU$bmvAmthP7L7xws5D}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws49}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMya}#
+ #{x -ANAU$bmvAmthP7L7xws47}#
'(_ (any . any) any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMyj}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}#
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWMyn}#
- #{pattern _hoQGWMnyQPAh3k2jhWMyo}#
- #{docstring _hoQGWMnyQPAh3k2jhWMyp}#
- #{template _hoQGWMnyQPAh3k2jhWMyq}#)
+ (lambda (#{name -ANAU$bmvAmthP7L7xws5I}#
+ #{pattern -ANAU$bmvAmthP7L7xws5J}#
+ #{docstring -ANAU$bmvAmthP7L7xws5K}#
+ #{template -ANAU$bmvAmthP7L7xws5L}#)
(string?
(syntax->datum
- #{docstring _hoQGWMnyQPAh3k2jhWMyp}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWMyj}#)
+ #{docstring -ANAU$bmvAmthP7L7xws5K}#)))
+ #{tmp -ANAU$bmvAmthP7L7xws5E}#)
#f)
(@apply
- (lambda (#{name _hoQGWMnyQPAh3k2jhWMyr}#
- #{pattern _hoQGWMnyQPAh3k2jhWMys}#
- #{docstring _hoQGWMnyQPAh3k2jhWMyt}#
- #{template _hoQGWMnyQPAh3k2jhWMyu}#)
+ (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))
- #("30l" "30m" "30n" "30o"))
+ #("1cg" "1ch" "1ci" "1cj"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30d")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
- #{name _hoQGWMnyQPAh3k2jhWMyr}#
+ #{name -ANAU$bmvAmthP7L7xws5M}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("30l" "30m" "30n" "30o"))
+ #("1cg" "1ch" "1ci" "1cj"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30d")))
+ #(ribcage #(x) #((top)) #("1c8")))
(hygiene guile))
'()
- #{docstring _hoQGWMnyQPAh3k2jhWMyt}#
+ #{docstring -ANAU$bmvAmthP7L7xws5O}#
(list (cons '#(syntax-object
_
((top)
@@ -24378,52 +24369,52 @@
docstring
template)
#((top) (top) (top) (top))
- #("30l" "30m" "30n" "30o"))
+ #("1cg" "1ch" "1ci" "1cj"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("30d")))
+ #("1c8")))
(hygiene guile))
- #{pattern _hoQGWMnyQPAh3k2jhWMys}#)
- #{template _hoQGWMnyQPAh3k2jhWMyu}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMyj}#)
+ #{pattern -ANAU$bmvAmthP7L7xws5N}#)
+ #{template -ANAU$bmvAmthP7L7xws5P}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws5E}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWMya}#))))))))
+ #{x -ANAU$bmvAmthP7L7xws47}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWMzQ}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzS}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWMzQ}#
+ #{x -ANAU$bmvAmthP7L7xws5x}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWMzS}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}#
(@apply
- (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzW}#
- #{x _hoQGWMnyQPAh3k2jhWMzX}#
- #{v _hoQGWMnyQPAh3k2jhWMzY}#
- #{e1 _hoQGWMnyQPAh3k2jhWMzZ}#
- #{e2 _hoQGWMnyQPAh3k2jhWMza}#)
+ (lambda (#{let* -ANAU$bmvAmthP7L7xws53}#
+ #{x -ANAU$bmvAmthP7L7xws54}#
+ #{v -ANAU$bmvAmthP7L7xws55}#
+ #{e1 -ANAU$bmvAmthP7L7xws56}#
+ #{e2 -ANAU$bmvAmthP7L7xws57}#)
(and-map
identifier?
- #{x _hoQGWMnyQPAh3k2jhWMzX}#))
- #{tmp _hoQGWMnyQPAh3k2jhWMzS}#)
+ #{x -ANAU$bmvAmthP7L7xws54}#))
+ #{tmp -ANAU$bmvAmthP7L7xws5z}#)
#f)
(@apply
- (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzb}#
- #{x _hoQGWMnyQPAh3k2jhWMzc}#
- #{v _hoQGWMnyQPAh3k2jhWMzd}#
- #{e1 _hoQGWMnyQPAh3k2jhWMze}#
- #{e2 _hoQGWMnyQPAh3k2jhWMzf}#)
+ (lambda (#{let* -ANAU$bmvAmthP7L7xws58}#
+ #{x -ANAU$bmvAmthP7L7xws59}#
+ #{v -ANAU$bmvAmthP7L7xws5$}#
+ #{e1 -ANAU$bmvAmthP7L7xws5@}#
+ #{e2 -ANAU$bmvAmthP7L7xws6A}#)
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWMzg}#
- (lambda (#{bindings _hoQGWMnyQPAh3k2jhWMzj}#)
- (if (null? #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)
+ ((#{f -ANAU$bmvAmthP7L7xws6B}#
+ (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#)
+ (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#)
(cons '#(syntax-object
let
((top)
@@ -24431,29 +24422,29 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("310" "311"))
+ #("1cv" "1cw"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("30v" "30w" "30x" "30y" "30z"))
+ #("1cq" "1cr" "1cs" "1ct" "1cu"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30p")))
+ #(ribcage #(x) #((top)) #("1ck")))
(hygiene guile))
(cons '()
- (cons #{e1 _hoQGWMnyQPAh3k2jhWMze}#
- #{e2 _hoQGWMnyQPAh3k2jhWMzf}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzk}#
- (list (#{f _hoQGWMnyQPAh3k2jhWMzg}#
- (cdr #{bindings _hoQGWMnyQPAh3k2jhWMzj}#))
- (car #{bindings _hoQGWMnyQPAh3k2jhWMzj}#))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzl}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xws5@}#
+ #{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 _hoQGWMnyQPAh3k2jhWMzk}#
+ #{tmp -ANAU$bmvAmthP7L7xws6F}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWMzl}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws6G}#
(@apply
- (lambda (#{body _hoQGWMnyQPAh3k2jhWMzn}#
- #{binding _hoQGWMnyQPAh3k2jhWMzo}#)
+ (lambda (#{body -ANAU$bmvAmthP7L7xws6I}#
+ #{binding -ANAU$bmvAmthP7L7xws6J}#)
(list '#(syntax-object
let
((top)
@@ -24461,102 +24452,102 @@
#(ribcage
#(body binding)
#((top) (top))
- #("312" "313"))
+ #("1cx" "1cy"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("310" "311"))
+ #("1cv" "1cw"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("30v" "30w" "30x" "30y" "30z"))
+ #("1cq" "1cr" "1cs" "1ct" "1cu"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("30p")))
+ #(ribcage #(x) #((top)) #("1ck")))
(hygiene guile))
- (list #{binding _hoQGWMnyQPAh3k2jhWMzo}#)
- #{body _hoQGWMnyQPAh3k2jhWMzn}#))
- #{tmp _hoQGWMnyQPAh3k2jhWMzl}#)
+ (list #{binding -ANAU$bmvAmthP7L7xws6J}#)
+ #{body -ANAU$bmvAmthP7L7xws6I}#))
+ #{tmp -ANAU$bmvAmthP7L7xws6G}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWMzk}#))))))))
- (#{f _hoQGWMnyQPAh3k2jhWMzg}#
+ #{tmp -ANAU$bmvAmthP7L7xws6F}#))))))))
+ (#{f -ANAU$bmvAmthP7L7xws6B}#
(map list
- #{x _hoQGWMnyQPAh3k2jhWMzc}#
- #{v _hoQGWMnyQPAh3k2jhWMzd}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWMzS}#)
+ #{x -ANAU$bmvAmthP7L7xws59}#
+ #{v -ANAU$bmvAmthP7L7xws5$}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws5z}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWMzQ}#))))))
+ #{x -ANAU$bmvAmthP7L7xws5x}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x _hoQGWMnyQPAh3k2jhWM0U}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0W}#
+ (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws63}#
($sc-dispatch
- #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#
+ #{orig-x -ANAU$bmvAmthP7L7xws61}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM0W}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws63}#
(@apply
- (lambda (#{var _hoQGWMnyQPAh3k2jhWM0a}#
- #{init _hoQGWMnyQPAh3k2jhWM0b}#
- #{step _hoQGWMnyQPAh3k2jhWM0c}#
- #{e0 _hoQGWMnyQPAh3k2jhWM0d}#
- #{e1 _hoQGWMnyQPAh3k2jhWM0e}#
- #{c _hoQGWMnyQPAh3k2jhWM0f}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0g}#
- (map (lambda (#{v _hoQGWMnyQPAh3k2jhWM0j}#
- #{s _hoQGWMnyQPAh3k2jhWM0k}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0m}#
+ (lambda (#{var -ANAU$bmvAmthP7L7xws67}#
+ #{init -ANAU$bmvAmthP7L7xws68}#
+ #{step -ANAU$bmvAmthP7L7xws69}#
+ #{e0 -ANAU$bmvAmthP7L7xws6$}#
+ #{e1 -ANAU$bmvAmthP7L7xws6@}#
+ #{c -ANAU$bmvAmthP7L7xws7A}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7B}#
+ (map (lambda (#{v -ANAU$bmvAmthP7L7xws7E}#
+ #{s -ANAU$bmvAmthP7L7xws7F}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7H}#
($sc-dispatch
- #{s _hoQGWMnyQPAh3k2jhWM0k}#
+ #{s -ANAU$bmvAmthP7L7xws7F}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM0m}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws7H}#
(@apply
- (lambda () #{v _hoQGWMnyQPAh3k2jhWM0j}#)
- #{tmp _hoQGWMnyQPAh3k2jhWM0m}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0p}#
+ (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#)
+ #{tmp -ANAU$bmvAmthP7L7xws7H}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}#
($sc-dispatch
- #{s _hoQGWMnyQPAh3k2jhWM0k}#
+ #{s -ANAU$bmvAmthP7L7xws7F}#
'(any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM0p}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws7K}#
(@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWM0s}#)
- #{e _hoQGWMnyQPAh3k2jhWM0s}#)
- #{tmp _hoQGWMnyQPAh3k2jhWM0p}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#)
+ #{e -ANAU$bmvAmthP7L7xws7N}#)
+ #{tmp -ANAU$bmvAmthP7L7xws7K}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#
- #{s _hoQGWMnyQPAh3k2jhWM0k}#))))))
- #{var _hoQGWMnyQPAh3k2jhWM0a}#
- #{step _hoQGWMnyQPAh3k2jhWM0c}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0h}#
+ #{orig-x -ANAU$bmvAmthP7L7xws61}#
+ #{s -ANAU$bmvAmthP7L7xws7F}#))))))
+ #{var -ANAU$bmvAmthP7L7xws67}#
+ #{step -ANAU$bmvAmthP7L7xws69}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWM0g}#
+ #{tmp -ANAU$bmvAmthP7L7xws7B}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM0h}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws7C}#
(@apply
- (lambda (#{step _hoQGWMnyQPAh3k2jhWM0y}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM00}#
+ (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}#
($sc-dispatch
- #{e1 _hoQGWMnyQPAh3k2jhWM0e}#
+ #{e1 -ANAU$bmvAmthP7L7xws6@}#
'())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM00}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws7V}#
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("31b"))
+ #(ribcage #(step) #((top)) #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24565,23 +24556,23 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("31b"))
+ #(ribcage #(step) #((top)) #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24590,21 +24581,21 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
(map list
- #{var _hoQGWMnyQPAh3k2jhWM0a}#
- #{init _hoQGWMnyQPAh3k2jhWM0b}#)
+ #{var -ANAU$bmvAmthP7L7xws67}#
+ #{init -ANAU$bmvAmthP7L7xws68}#)
(list '#(syntax-object
if
((top)
@@ -24612,7 +24603,7 @@
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24621,17 +24612,17 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
(list '#(syntax-object
not
@@ -24640,7 +24631,7 @@
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -24654,19 +24645,19 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
- #{e0 _hoQGWMnyQPAh3k2jhWM0d}#)
+ #{e0 -ANAU$bmvAmthP7L7xws6$}#)
(cons '#(syntax-object
begin
((top)
@@ -24674,7 +24665,7 @@
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -24688,20 +24679,20 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
(append
- #{c _hoQGWMnyQPAh3k2jhWM0f}#
+ #{c -ANAU$bmvAmthP7L7xws7A}#
(list (cons '#(syntax-object
doloop
((top)
@@ -24712,7 +24703,7 @@
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -24726,12 +24717,12 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage
()
()
@@ -24739,31 +24730,31 @@
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene
guile))
- #{step _hoQGWMnyQPAh3k2jhWM0y}#)))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM00}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM04}#
+ #{step -ANAU$bmvAmthP7L7xws7T}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xws7V}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}#
($sc-dispatch
- #{e1 _hoQGWMnyQPAh3k2jhWM0e}#
+ #{e1 -ANAU$bmvAmthP7L7xws6@}#
'(any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM04}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws7Z}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWM08}#
- #{e2 _hoQGWMnyQPAh3k2jhWM09}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}#
+ #{e2 -ANAU$bmvAmthP7L7xws7e}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31c" "31d"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24772,17 +24763,17 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
'#(syntax-object
doloop
@@ -24790,12 +24781,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("31c" "31d"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24804,33 +24795,33 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
(map list
- #{var _hoQGWMnyQPAh3k2jhWM0a}#
- #{init _hoQGWMnyQPAh3k2jhWM0b}#)
+ #{var -ANAU$bmvAmthP7L7xws67}#
+ #{init -ANAU$bmvAmthP7L7xws68}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31c" "31d"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -24839,31 +24830,31 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
- #{e0 _hoQGWMnyQPAh3k2jhWM0d}#
+ #{e0 -ANAU$bmvAmthP7L7xws6$}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31c" "31d"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -24877,32 +24868,32 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
- (cons #{e1 _hoQGWMnyQPAh3k2jhWM08}#
- #{e2 _hoQGWMnyQPAh3k2jhWM09}#))
+ (cons #{e1 -ANAU$bmvAmthP7L7xws7d}#
+ #{e2 -ANAU$bmvAmthP7L7xws7e}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("31c" "31d"))
+ #("1d7" "1d8"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -24916,20 +24907,20 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene guile))
(append
- #{c _hoQGWMnyQPAh3k2jhWM0f}#
+ #{c -ANAU$bmvAmthP7L7xws7A}#
(list (cons '#(syntax-object
doloop
((top)
@@ -24938,8 +24929,8 @@
e2)
#((top)
(top))
- #("31c"
- "31d"))
+ #("1d7"
+ "1d8"))
#(ribcage
()
()
@@ -24947,7 +24938,7 @@
#(ribcage
#(step)
#((top))
- #("31b"))
+ #("1d6"))
#(ribcage
#(var
init
@@ -24961,12 +24952,12 @@
(top)
(top)
(top))
- #("315"
- "316"
- "317"
- "318"
- "319"
- "31a"))
+ #("1d0"
+ "1d1"
+ "1d2"
+ "1d3"
+ "1d4"
+ "1d5"))
#(ribcage
()
()
@@ -24974,43 +24965,43 @@
#(ribcage
#(orig-x)
#((top))
- #("314")))
+ #("1cz")))
(hygiene
guile))
- #{step _hoQGWMnyQPAh3k2jhWM0y}#)))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM04}#)
+ #{step -ANAU$bmvAmthP7L7xws7T}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xws7Z}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 _hoQGWMnyQPAh3k2jhWM0e}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM0h}#)
+ #{e1 -ANAU$bmvAmthP7L7xws6@}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xws7C}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWM0g}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM0W}#)
+ #{tmp -ANAU$bmvAmthP7L7xws7B}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xws63}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#))))))
+ #{orig-x -ANAU$bmvAmthP7L7xws61}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM4k}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4n}#
+ ((#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xws@F}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws@I}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM4k}#
+ #{p -ANAU$bmvAmthP7L7xws@F}#
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25019,22 +25010,22 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM4n}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws@I}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM4r}#)
- (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0)
+ (lambda (#{p -ANAU$bmvAmthP7L7xws@M}#)
+ (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("31r"))
+ #(ribcage #(p) #((top)) #("1dm"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25043,16 +25034,16 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
- #{p _hoQGWMnyQPAh3k2jhWM4r}#)
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ #{p -ANAU$bmvAmthP7L7xws@M}#)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31r"))
+ #(ribcage #(p) #((top)) #("1dm"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25061,14 +25052,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("31r"))
+ #(ribcage #(p) #((top)) #("1dm"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25077,15 +25068,15 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- (list #{p _hoQGWMnyQPAh3k2jhWM4r}#)
- (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM4n}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4u}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ (list #{p -ANAU$bmvAmthP7L7xws@M}#)
+ (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xws@I}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws@P}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM4k}#
+ #{p -ANAU$bmvAmthP7L7xws@F}#
'(#(free-id
#(syntax-object
quasiquote
@@ -25094,7 +25085,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25103,19 +25094,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM4u}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws@P}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM4y}#)
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xws@T}#)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31s"))
+ #(ribcage #(p) #((top)) #("1dn"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25124,14 +25115,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("31s"))
+ #(ribcage #(p) #((top)) #("1dn"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("31p" "31q"))
+ #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25140,23 +25131,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- (list #{p _hoQGWMnyQPAh3k2jhWM4y}#)
- (#{1+}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWM4u}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM41}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ (list #{p -ANAU$bmvAmthP7L7xws@T}#)
+ (#{1+}# #{lev -ANAU$bmvAmthP7L7xws@G}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws@P}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws@W}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM4k}#
+ #{p -ANAU$bmvAmthP7L7xws@F}#
'(any . any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM41}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws@W}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM45}#
- #{q _hoQGWMnyQPAh3k2jhWM46}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM48}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xws@a}#
+ #{q -ANAU$bmvAmthP7L7xws@b}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws@d}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM45}#
+ #{p -ANAU$bmvAmthP7L7xws@a}#
'(#(free-id
#(syntax-object
unquote
@@ -25164,12 +25155,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25184,38 +25175,38 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM48}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws@d}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM5A}#)
- (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0)
- (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xws@h}#)
+ (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0)
+ (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("31v"))
+ #("1dq"))
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25230,34 +25221,34 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#))
- #{p _hoQGWMnyQPAh3k2jhWM5A}#)
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{q _hoQGWMnyQPAh3k2jhWM46}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#))
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ #{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#))
+ #{p -ANAU$bmvAmthP7L7xws@h}#)
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q -ANAU$bmvAmthP7L7xws@b}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31v"))
+ #(ribcage #(p) #((top)) #("1dq"))
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25272,27 +25263,27 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("31v"))
+ #(ribcage #(p) #((top)) #("1dq"))
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25307,24 +25298,24 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{p _hoQGWMnyQPAh3k2jhWM5A}#
- (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{q _hoQGWMnyQPAh3k2jhWM46}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWM48}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5p}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xws@h}#
+ (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q -ANAU$bmvAmthP7L7xws@b}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#))))
+ #{tmp -ANAU$bmvAmthP7L7xws@d}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAK}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM45}#
+ #{p -ANAU$bmvAmthP7L7xws@a}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -25332,12 +25323,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25352,38 +25343,38 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM5p}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAK}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM5t}#)
- (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0)
- (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#)
+ (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0)
+ (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("31w"))
+ #("1dr"))
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25398,37 +25389,37 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#))
- #{p _hoQGWMnyQPAh3k2jhWM5t}#)
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{q _hoQGWMnyQPAh3k2jhWM46}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#))
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ #{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#))
+ #{p -ANAU$bmvAmthP7L7xwtAO}#)
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q -ANAU$bmvAmthP7L7xws@b}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#))
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("31w"))
+ #("1dr"))
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25443,13 +25434,13 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -25457,16 +25448,16 @@
#(ribcage
#(p)
#((top))
- #("31w"))
+ #("1dr"))
#(ribcage
#(p q)
#((top) (top))
- #("31t" "31u"))
+ #("1do" "1dp"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25481,59 +25472,59 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{p _hoQGWMnyQPAh3k2jhWM5t}#
- (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{q _hoQGWMnyQPAh3k2jhWM46}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWM5p}#)
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{p _hoQGWMnyQPAh3k2jhWM45}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#)
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{q _hoQGWMnyQPAh3k2jhWM46}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM41}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5$}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xwtAO}#
+ (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q -ANAU$bmvAmthP7L7xws@b}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtAK}#)
+ (#{quasicons -ANAU$bmvAmthP7L7xws$v}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{p -ANAU$bmvAmthP7L7xws@a}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#)
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{q -ANAU$bmvAmthP7L7xws@b}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#)))))))
+ #{tmp -ANAU$bmvAmthP7L7xws@W}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAf}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM4k}#
+ #{p -ANAU$bmvAmthP7L7xws@F}#
'#(vector each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM5$}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAf}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM6C}#)
- (let ((#{x _hoQGWMnyQPAh3k2jhWM6F}#
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- #{x _hoQGWMnyQPAh3k2jhWM6C}#
- #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6H}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#)
+ (let ((#{x -ANAU$bmvAmthP7L7xwtAm}#
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ #{x -ANAU$bmvAmthP7L7xwtAj}#
+ #{lev -ANAU$bmvAmthP7L7xws@G}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM6F}#
+ #{x -ANAU$bmvAmthP7L7xwtAm}#
'(#(atom "quote") each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM6H}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAo}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM6L}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("32s"))
+ #("1en"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("32r"))
+ #("1em"))
#(ribcage
(emit quasivector
quasilist*
@@ -25548,38 +25539,38 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
(list->vector
- #{x _hoQGWMnyQPAh3k2jhWM6L}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM6H}#)
+ #{x -ANAU$bmvAmthP7L7xwtAs}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtAo}#)
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWM6N}#
- (lambda (#{y _hoQGWMnyQPAh3k2jhWM6Z}#
- #{k _hoQGWMnyQPAh3k2jhWM6a}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6c}#
+ ((#{f -ANAU$bmvAmthP7L7xwtAu}#
+ (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}#
+ #{k -ANAU$bmvAmthP7L7xwtA7}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtA9}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM6Z}#
+ #{y -ANAU$bmvAmthP7L7xwtA6}#
'(#(atom "quote")
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM6c}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtA9}#
(@apply
- (lambda (#{y _hoQGWMnyQPAh3k2jhWM6f}#)
- (#{k _hoQGWMnyQPAh3k2jhWM6a}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#)
+ (lambda (#{y -ANAU$bmvAmthP7L7xwtBA}#)
+ (#{k -ANAU$bmvAmthP7L7xwtA7}#
+ (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("32z"))
+ #("1eu"))
#(ribcage
()
()
@@ -25591,13 +25582,13 @@
#((top)
(top)
(top))
- #("32u"
- "32v"
- "32w"))
+ #("1ep"
+ "1eq"
+ "1er"))
#(ribcage
#(_)
#((top))
- #("32t"))
+ #("1eo"))
#(ribcage
()
()
@@ -25605,7 +25596,7 @@
#(ribcage
#(x)
#((top))
- #("32r"))
+ #("1em"))
#(ribcage
(emit quasivector
quasilist*
@@ -25620,51 +25611,51 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene
guile))
- #{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#))
- #{y _hoQGWMnyQPAh3k2jhWM6f}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM6c}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6h}#
+ #{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#))
+ #{y -ANAU$bmvAmthP7L7xwtBA}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtA9}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtBC}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM6Z}#
+ #{y -ANAU$bmvAmthP7L7xwtA6}#
'(#(atom "list")
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM6h}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtBC}#
(@apply
- (lambda (#{y _hoQGWMnyQPAh3k2jhWM6k}#)
- (#{k _hoQGWMnyQPAh3k2jhWM6a}#
- #{y _hoQGWMnyQPAh3k2jhWM6k}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM6h}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6l}#
+ (lambda (#{y -ANAU$bmvAmthP7L7xwtBF}#)
+ (#{k -ANAU$bmvAmthP7L7xwtA7}#
+ #{y -ANAU$bmvAmthP7L7xwtBF}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtBC}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtBG}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM6Z}#
+ #{y -ANAU$bmvAmthP7L7xwtA6}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM6l}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtBG}#
(@apply
- (lambda (#{y _hoQGWMnyQPAh3k2jhWM6o}#
- #{z _hoQGWMnyQPAh3k2jhWM6p}#)
- (#{f _hoQGWMnyQPAh3k2jhWM6N}#
- #{z _hoQGWMnyQPAh3k2jhWM6p}#
- (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6q}#)
- (#{k _hoQGWMnyQPAh3k2jhWM6a}#
+ (lambda (#{y -ANAU$bmvAmthP7L7xwtBJ}#
+ #{z -ANAU$bmvAmthP7L7xwtBK}#)
+ (#{f -ANAU$bmvAmthP7L7xwtAu}#
+ #{z -ANAU$bmvAmthP7L7xwtBK}#
+ (lambda (#{ls -ANAU$bmvAmthP7L7xwtBL}#)
+ (#{k -ANAU$bmvAmthP7L7xwtA7}#
(append
- #{y _hoQGWMnyQPAh3k2jhWM6o}#
- #{ls _hoQGWMnyQPAh3k2jhWM6q}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM6l}#)
+ #{y -ANAU$bmvAmthP7L7xwtBJ}#
+ #{ls -ANAU$bmvAmthP7L7xwtBL}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtBG}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -25673,14 +25664,14 @@
()
())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM3K}#)
- #((m_hoQGWMnyQPAh3k2jhWM3L
+ #(#{ g-ANAU$bmvAmthP7L7xws9r}#)
+ #((m-ANAU$bmvAmthP7L7xws9s
top))
- #("335"))
+ #("1f0"))
#(ribcage
#(else)
#((top))
- #("334"))
+ #("1ez"))
#(ribcage
()
()
@@ -25690,13 +25681,13 @@
#((top)
(top)
(top))
- #("32u"
- "32v"
- "32w"))
+ #("1ep"
+ "1eq"
+ "1er"))
#(ribcage
#(_)
#((top))
- #("32t"))
+ #("1eo"))
#(ribcage
()
()
@@ -25704,7 +25695,7 @@
#(ribcage
#(x)
#((top))
- #("32r"))
+ #("1em"))
#(ribcage
(emit quasivector
quasilist*
@@ -25719,26 +25710,26 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene
guile))
- #{x _hoQGWMnyQPAh3k2jhWM6F}#))))))))))
- (#{f _hoQGWMnyQPAh3k2jhWM6N}#
- #{x _hoQGWMnyQPAh3k2jhWM6F}#
- (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6P}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6R}#
+ #{x -ANAU$bmvAmthP7L7xwtAm}#))))))))))
+ (#{f -ANAU$bmvAmthP7L7xwtAu}#
+ #{x -ANAU$bmvAmthP7L7xwtAm}#
+ (lambda (#{ls -ANAU$bmvAmthP7L7xwtAw}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtAy}#
($sc-dispatch
- #{ls _hoQGWMnyQPAh3k2jhWM6P}#
+ #{ls -ANAU$bmvAmthP7L7xwtAw}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM6R}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtAy}#
(@apply
- (lambda (#{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)
(cons '#(syntax-object
"vector"
((top)
@@ -25747,10 +25738,10 @@
()
())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM22}#)
- #((m_hoQGWMnyQPAh3k2jhWM23
+ #(#{ g-ANAU$bmvAmthP7L7xws9X}#)
+ #((m-ANAU$bmvAmthP7L7xws9Y
top))
- #("32y"))
+ #("1et"))
#(ribcage
()
()
@@ -25766,11 +25757,11 @@
#(ribcage
#(ls)
#((top))
- #("32x"))
+ #("1es"))
#(ribcage
#(_)
#((top))
- #("32t"))
+ #("1eo"))
#(ribcage
()
()
@@ -25778,7 +25769,7 @@
#(ribcage
#(x)
#((top))
- #("32r"))
+ #("1em"))
#(ribcage
(emit quasivector
quasilist*
@@ -25793,30 +25784,30 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM6R}#)
+ #{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtAy}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls _hoQGWMnyQPAh3k2jhWM6P}#))))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM5$}#)
+ #{ls -ANAU$bmvAmthP7L7xwtAw}#))))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtAf}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("31z"))
+ #(ribcage #(p) #((top)) #("1du"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("31p" "31q"))
+ #("1dk" "1dl"))
#(ribcage
(emit quasivector
quasilist*
@@ -25831,29 +25822,29 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{p _hoQGWMnyQPAh3k2jhWM4k}#)))))))))))
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM7G}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7J}#
+ #{p -ANAU$bmvAmthP7L7xws@F}#)))))))))))
+ (#{vquasi -ANAU$bmvAmthP7L7xws$u}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}#
+ #{lev -ANAU$bmvAmthP7L7xwtBo}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM7G}#
+ #{p -ANAU$bmvAmthP7L7xwtBn}#
'(any . any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM7J}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtBq}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM7N}#
- #{q _hoQGWMnyQPAh3k2jhWM7O}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7Q}#
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}#
+ #{q -ANAU$bmvAmthP7L7xwtBv}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}#
($sc-dispatch
- #{p _hoQGWMnyQPAh3k2jhWM7N}#
+ #{p -ANAU$bmvAmthP7L7xwtBu}#
'(#(free-id
#(syntax-object
unquote
@@ -25861,12 +25852,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -25881,38 +25872,38 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtBx}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM7U}#)
- (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0)
- (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#)
+ (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))
- #("324"))
+ #("1dz"))
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -25927,34 +25918,34 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#))
- #{p _hoQGWMnyQPAh3k2jhWM7U}#)
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- #{q _hoQGWMnyQPAh3k2jhWM7O}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#))
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ #{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)) #("324"))
+ #(ribcage #(p) #((top)) #("1dz"))
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -25969,27 +25960,27 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("324"))
+ #(ribcage #(p) #((top)) #("1dz"))
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -26004,24 +25995,24 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{p _hoQGWMnyQPAh3k2jhWM7U}#
- (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- #{q _hoQGWMnyQPAh3k2jhWM7O}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7@}#
+ (#{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 _hoQGWMnyQPAh3k2jhWM7N}#
+ #{p -ANAU$bmvAmthP7L7xwtBu}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -26029,12 +26020,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -26049,38 +26040,38 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM7@}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtCg}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM8D}#)
- (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0)
- (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}#
- (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#)
+ (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))
- #("325"))
+ #("1e0"))
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -26095,34 +26086,34 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#))
- #{p _hoQGWMnyQPAh3k2jhWM8D}#)
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- #{q _hoQGWMnyQPAh3k2jhWM7O}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#))
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
+ #{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)) #("325"))
+ #(ribcage #(p) #((top)) #("1e0"))
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -26137,27 +26128,27 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("325"))
+ #(ribcage #(p) #((top)) #("1e0"))
#(ribcage
#(p q)
#((top) (top))
- #("322" "323"))
+ #("1dx" "1dy"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("320" "321"))
+ #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -26172,39 +26163,39 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile)))
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{p _hoQGWMnyQPAh3k2jhWM8D}#
- (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- #{q _hoQGWMnyQPAh3k2jhWM7O}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWM7@}#)
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{p _hoQGWMnyQPAh3k2jhWM7N}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#)
- (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}#
- #{q _hoQGWMnyQPAh3k2jhWM7O}#
- #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM7J}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8Y}#
- ($sc-dispatch #{p _hoQGWMnyQPAh3k2jhWM7G}# '())))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#
+ (#{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)) #("320" "321"))
+ #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw"))
#(ribcage
(emit quasivector
quasilist*
@@ -26213,64 +26204,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
()))
- #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtC5}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p _hoQGWMnyQPAh3k2jhWM7G}#)))))))
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM8l}#
- #{y _hoQGWMnyQPAh3k2jhWM8m}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8n}#
- (list #{x _hoQGWMnyQPAh3k2jhWM8l}#
- #{y _hoQGWMnyQPAh3k2jhWM8m}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8o}#
+ #{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 _hoQGWMnyQPAh3k2jhWM8n}#
+ #{tmp -ANAU$bmvAmthP7L7xwtDI}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM8o}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM8q}#
- #{y _hoQGWMnyQPAh3k2jhWM8r}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8t}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM8r}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#
'(#(atom "quote") any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM8t}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDO}#
(@apply
- (lambda (#{dy _hoQGWMnyQPAh3k2jhWM8x}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8z}#
+ (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM8q}#
+ #{x -ANAU$bmvAmthP7L7xwtDL}#
'(#(atom "quote") any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM8z}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDU}#
(@apply
- (lambda (#{dx _hoQGWMnyQPAh3k2jhWM83}#)
+ (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("32c"))
+ #("1e7"))
#(ribcage
#(dy)
#((top))
- #("32b"))
+ #("1e6"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("329" "32a"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -26285,34 +26276,34 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (cons #{dx _hoQGWMnyQPAh3k2jhWM83}#
- #{dy _hoQGWMnyQPAh3k2jhWM8x}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM8z}#)
- (if (null? #{dy _hoQGWMnyQPAh3k2jhWM8x}#)
+ (cons #{dx -ANAU$bmvAmthP7L7xwtDY}#
+ #{dy -ANAU$bmvAmthP7L7xwtDS}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtDU}#)
+ (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#)
(list '#(syntax-object
"list"
((top)
- #(ribcage #(_) #((top)) #("32d"))
- #(ribcage #(dy) #((top)) #("32b"))
+ #(ribcage #(_) #((top)) #("1e8"))
+ #(ribcage #(dy) #((top)) #("1e6"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("329" "32a"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -26327,31 +26318,31 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{x _hoQGWMnyQPAh3k2jhWM8q}#)
+ #{x -ANAU$bmvAmthP7L7xwtDL}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("32d"))
- #(ribcage #(dy) #((top)) #("32b"))
+ #(ribcage #(_) #((top)) #("1e8"))
+ #(ribcage #(dy) #((top)) #("1e6"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("329" "32a"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -26366,42 +26357,42 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{x _hoQGWMnyQPAh3k2jhWM8q}#
- #{y _hoQGWMnyQPAh3k2jhWM8r}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM8t}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM88}#
+ #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtDO}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM8r}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#
'(#(atom "list") . any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM88}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDd}#
(@apply
- (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9A}#)
+ (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("32e"))
+ #("1e9"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("329" "32a"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -26416,42 +26407,42 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (cons #{x _hoQGWMnyQPAh3k2jhWM8q}#
- #{stuff _hoQGWMnyQPAh3k2jhWM9A}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM88}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9B}#
+ (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{stuff -ANAU$bmvAmthP7L7xwtDh}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtDd}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM8r}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#
'(#(atom "list*") . any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM9B}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtDi}#
(@apply
- (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9F}#)
+ (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("32f"))
+ #("1ea"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("329" "32a"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -26466,32 +26457,32 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- (cons #{x _hoQGWMnyQPAh3k2jhWM8q}#
- #{stuff _hoQGWMnyQPAh3k2jhWM9F}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM9B}#)
+ (cons #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{stuff -ANAU$bmvAmthP7L7xwtDm}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtDi}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("32g"))
+ #(ribcage #(_) #((top)) #("1eb"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("329" "32a"))
+ #("1e4" "1e5"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("327" "328"))
+ #("1e2" "1e3"))
#(ribcage
(emit quasivector
quasilist*
@@ -26506,37 +26497,37 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{x _hoQGWMnyQPAh3k2jhWM8q}#
- #{y _hoQGWMnyQPAh3k2jhWM8r}#))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM8o}#)
+ #{x -ANAU$bmvAmthP7L7xwtDL}#
+ #{y -ANAU$bmvAmthP7L7xwtDM}#))))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtDJ}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWM8n}#))))))
- (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM9Q}#
- #{y _hoQGWMnyQPAh3k2jhWM9R}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9T}#
+ #{tmp -ANAU$bmvAmthP7L7xwtDI}#))))))
+ (#{quasiappend -ANAU$bmvAmthP7L7xws$w}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}#
+ #{y -ANAU$bmvAmthP7L7xwtDy}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}#
($sc-dispatch
- #{y _hoQGWMnyQPAh3k2jhWM9R}#
+ #{y -ANAU$bmvAmthP7L7xwtDy}#
'(#(atom "quote") ()))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM9T}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtD0}#
(@apply
(lambda ()
- (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#)
+ (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(x y) #((top) (top)) #("32h" "32i"))
+ #(ribcage #(x y) #((top) (top)) #("1ec" "1ed"))
#(ribcage
(emit quasivector
quasilist*
@@ -26545,28 +26536,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
())
- (if (null? (cdr #{x _hoQGWMnyQPAh3k2jhWM9Q}#))
- (car #{x _hoQGWMnyQPAh3k2jhWM9Q}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9Y}#
+ (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#))
+ (car #{x -ANAU$bmvAmthP7L7xwtDx}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM9Q}#
+ #{x -ANAU$bmvAmthP7L7xwtDx}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtD5}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM9c}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("32j"))
+ #(ribcage #(p) #((top)) #("1ee"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("32h" "32i"))
+ #("1ec" "1ed"))
#(ribcage
(emit quasivector
quasilist*
@@ -26581,34 +26572,34 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{p _hoQGWMnyQPAh3k2jhWM9c}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#)
+ #{p -ANAU$bmvAmthP7L7xwtD9}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtD5}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWM9Q}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWM9T}#)
- (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#)
- #{y _hoQGWMnyQPAh3k2jhWM9R}#
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9k}#
- (list #{x _hoQGWMnyQPAh3k2jhWM9Q}#
- #{y _hoQGWMnyQPAh3k2jhWM9R}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9l}#
+ #{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 _hoQGWMnyQPAh3k2jhWM9k}#
+ #{tmp -ANAU$bmvAmthP7L7xwtEF}#
'(each-any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM9l}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtEG}#
(@apply
- (lambda (#{p _hoQGWMnyQPAh3k2jhWM9n}#
- #{y _hoQGWMnyQPAh3k2jhWM9o}#)
+ (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}#
+ #{y -ANAU$bmvAmthP7L7xwtEJ}#)
(cons '#(syntax-object
"append"
((top)
@@ -26616,13 +26607,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("32l" "32m"))
- #(ribcage #(_) #((top)) #("32k"))
+ #("1eg" "1eh"))
+ #(ribcage #(_) #((top)) #("1ef"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("32h" "32i"))
+ #("1ec" "1ed"))
#(ribcage
(emit quasivector
quasilist*
@@ -26637,51 +26628,51 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
(append
- #{p _hoQGWMnyQPAh3k2jhWM9n}#
- (list #{y _hoQGWMnyQPAh3k2jhWM9o}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWM9l}#)
+ #{p -ANAU$bmvAmthP7L7xwtEI}#
+ (list #{y -ANAU$bmvAmthP7L7xwtEJ}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtEG}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWM9k}#)))))))))
- (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM9s}#
- #{y _hoQGWMnyQPAh3k2jhWM9t}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtEF}#)))))))))
+ (#{quasilist* -ANAU$bmvAmthP7L7xws$x}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}#
+ #{y -ANAU$bmvAmthP7L7xwtEO}#)
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWM9u}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@H}#)
- (if (null? #{x _hoQGWMnyQPAh3k2jhWM@H}#)
- #{y _hoQGWMnyQPAh3k2jhWM9t}#
- (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}#
- (car #{x _hoQGWMnyQPAh3k2jhWM@H}#)
- (#{f _hoQGWMnyQPAh3k2jhWM9u}#
- (cdr #{x _hoQGWMnyQPAh3k2jhWM@H}#)))))))
- (#{f _hoQGWMnyQPAh3k2jhWM9u}#
- #{x _hoQGWMnyQPAh3k2jhWM9s}#))))
- (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@K}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@M}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "quote") any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@M}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtFt}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@Q}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("337"))
+ #(ribcage #(x) #((top)) #("1f2"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("336"))
+ #(ribcage #(x) #((top)) #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -26690,38 +26681,38 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("31o" "31n" "31m" "31l" "31k" "31j" "31i")))
+ ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd")))
(hygiene guile))
- #{x _hoQGWMnyQPAh3k2jhWM@Q}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM@M}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@R}#
+ #{x -ANAU$bmvAmthP7L7xwtFx}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtFt}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "list") . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@R}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtFy}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@V}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@W}#
- (map #{emit _hoQGWMnyQPAh3k2jhWM4S}#
- #{x _hoQGWMnyQPAh3k2jhWM@V}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@X}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}#
+ (map #{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtF2}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWM@W}#
+ #{tmp -ANAU$bmvAmthP7L7xwtF3}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@X}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtF4}#
(@apply
- (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM3V}#)
- #((m_hoQGWMnyQPAh3k2jhWM3W top))
- #("339"))
- #(ribcage #(x) #((top)) #("338"))
+ #(#{ g-ANAU$bmvAmthP7L7xws92}#)
+ #((m-ANAU$bmvAmthP7L7xws93 top))
+ #("1f4"))
+ #(ribcage #(x) #((top)) #("1f3"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("336"))
+ #(ribcage #(x) #((top)) #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -26736,74 +26727,74 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM@X}#)
+ #{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtF4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWM@W}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM@R}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@a}#
+ #{tmp -ANAU$bmvAmthP7L7xwtF3}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtFy}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@a}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtF7}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@e}#
- #{y _hoQGWMnyQPAh3k2jhWM@f}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtF@}#
+ #{y -ANAU$bmvAmthP7L7xwtGA}#)
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWM@g}#
- (lambda (#{x* _hoQGWMnyQPAh3k2jhWM@j}#)
- (if (null? #{x* _hoQGWMnyQPAh3k2jhWM@j}#)
- (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
- #{y _hoQGWMnyQPAh3k2jhWM@f}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@k}#
- (list (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
- (car #{x* _hoQGWMnyQPAh3k2jhWM@j}#))
- (#{f _hoQGWMnyQPAh3k2jhWM@g}#
- (cdr #{x* _hoQGWMnyQPAh3k2jhWM@j}#)))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@l}#
+ ((#{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 _hoQGWMnyQPAh3k2jhWM@k}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGF}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@l}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGG}#
(@apply
- (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}#
- #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}#
+ #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM3k}#
- #{ g_hoQGWMnyQPAh3k2jhWM3j}#)
- #((m_hoQGWMnyQPAh3k2jhWM3l
+ #(#{ g-ANAU$bmvAmthP7L7xws$F}#
+ #{ g-ANAU$bmvAmthP7L7xws$E}#)
+ #((m-ANAU$bmvAmthP7L7xws$G
top)
- (m_hoQGWMnyQPAh3k2jhWM3l
+ (m-ANAU$bmvAmthP7L7xws$G
top))
- #("33e" "33f"))
+ #("1f9" "1fa"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("33c" "33d"))
+ #("1f7" "1f8"))
#(ribcage
#(x y)
#((top) (top))
- #("33a" "33b"))
+ #("1f5" "1f6"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("336"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -26818,59 +26809,59 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}#
- #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM@l}#)
+ #{ 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 _hoQGWMnyQPAh3k2jhWM@k}#))))))))
- (#{f _hoQGWMnyQPAh3k2jhWM@g}#
- #{x _hoQGWMnyQPAh3k2jhWM@e}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM@a}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@p}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGF}#))))))))
+ (#{f -ANAU$bmvAmthP7L7xwtGB}#
+ #{x -ANAU$bmvAmthP7L7xwtF@}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtF7}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "append") . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@p}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGK}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@t}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@u}#
- (map #{emit _hoQGWMnyQPAh3k2jhWM4S}#
- #{x _hoQGWMnyQPAh3k2jhWM@t}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@v}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}#
+ (map #{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtGO}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWM@u}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGP}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@v}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}#
(@apply
- (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM3t}#)
- #((m_hoQGWMnyQPAh3k2jhWM3u
+ #(#{ g-ANAU$bmvAmthP7L7xws$O}#)
+ #((m-ANAU$bmvAmthP7L7xws$P
top))
- #("33h"))
+ #("1fc"))
#(ribcage
#(x)
#((top))
- #("33g"))
+ #("1fb"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("336"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -26885,56 +26876,56 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM@v}#)
+ #{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtGQ}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWM@u}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM@p}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@y}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGP}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtGK}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "vector") . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@y}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGT}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@2}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@3}#
- (map #{emit _hoQGWMnyQPAh3k2jhWM4S}#
- #{x _hoQGWMnyQPAh3k2jhWM@2}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@4}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}#
+ (map #{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtGX}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWM@3}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGY}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@4}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}#
(@apply
- (lambda (#{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#)
+ (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM33}#)
- #((m_hoQGWMnyQPAh3k2jhWM34
+ #(#{ g-ANAU$bmvAmthP7L7xws$Y}#)
+ #((m-ANAU$bmvAmthP7L7xws$Z
top))
- #("33j"))
+ #("1fe"))
#(ribcage
#(x)
#((top))
- #("33i"))
+ #("1fd"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("336"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -26949,49 +26940,49 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#))
- #{tmp _hoQGWMnyQPAh3k2jhWM@4}#)
+ #{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtGZ}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWM@3}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWM@y}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@7}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGY}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtGT}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "list->vector") any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM@7}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGc}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM@@}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAA}#
- (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
- #{x _hoQGWMnyQPAh3k2jhWM@@}#)))
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}#
+ (#{emit -ANAU$bmvAmthP7L7xws$z}#
+ #{x -ANAU$bmvAmthP7L7xwtGg}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g_hoQGWMnyQPAh3k2jhWM4B}#)
- #((m_hoQGWMnyQPAh3k2jhWM4C
+ #(#{ g-ANAU$bmvAmthP7L7xws$i}#)
+ #((m-ANAU$bmvAmthP7L7xws$j
top))
- #("33l"))
+ #("1fg"))
#(ribcage
#(x)
#((top))
- #("33k"))
+ #("1ff"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("336"))
+ #("1f1"))
#(ribcage
(emit quasivector
quasilist*
@@ -27006,218 +26997,218 @@
(top)
(top)
(top))
- ("31o"
- "31n"
- "31m"
- "31l"
- "31k"
- "31j"
- "31i")))
+ ("1dj"
+ "1di"
+ "1dh"
+ "1dg"
+ "1df"
+ "1de"
+ "1dd")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWNAA}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWM@7}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAD}#
+ #{tmp -ANAU$bmvAmthP7L7xwtGh}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtGc}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM@K}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#
'(#(atom "value") any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNAD}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtGk}#
(@apply
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNAH}#)
- #{x _hoQGWMnyQPAh3k2jhWNAH}#)
- #{tmp _hoQGWMnyQPAh3k2jhWNAD}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#)
+ #{x -ANAU$bmvAmthP7L7xwtGo}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtGk}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWM@K}#))))))))))))))))))
- (lambda (#{x _hoQGWMnyQPAh3k2jhWM4T}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4V}#
+ #{x -ANAU$bmvAmthP7L7xwtFr}#))))))))))))))))))
+ (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWM4T}#
+ #{x -ANAU$bmvAmthP7L7xws$0}#
'(_ any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWM4V}#
+ (if #{tmp -ANAU$bmvAmthP7L7xws$2}#
(@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWM4Z}#)
- (#{emit _hoQGWMnyQPAh3k2jhWM4S}#
- (#{quasi _hoQGWMnyQPAh3k2jhWM4M}#
- #{e _hoQGWMnyQPAh3k2jhWM4Z}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#)
+ (#{emit -ANAU$bmvAmthP7L7xws$z}#
+ (#{quasi -ANAU$bmvAmthP7L7xws$t}#
+ #{e -ANAU$bmvAmthP7L7xws$6}#
0)))
- #{tmp _hoQGWMnyQPAh3k2jhWM4V}#)
+ #{tmp -ANAU$bmvAmthP7L7xws$2}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWM4T}#)))))))
+ #{x -ANAU$bmvAmthP7L7xws$0}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNAy}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#)
(letrec*
- ((#{read-file _hoQGWMnyQPAh3k2jhWNAz}#
- (lambda (#{fn _hoQGWMnyQPAh3k2jhWNCg}#
- #{k _hoQGWMnyQPAh3k2jhWNCh}#)
- (let ((#{p _hoQGWMnyQPAh3k2jhWNCi}#
- (open-input-file #{fn _hoQGWMnyQPAh3k2jhWNCg}#)))
+ ((#{read-file -ANAU$bmvAmthP7L7xwtHU}#
+ (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}#
+ #{k -ANAU$bmvAmthP7L7xwtJC}#)
+ (let ((#{p -ANAU$bmvAmthP7L7xwtJD}#
+ (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#)))
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWNCj}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNDZ}#
- #{result _hoQGWMnyQPAh3k2jhWNDa}#)
- (if (eof-object? #{x _hoQGWMnyQPAh3k2jhWNDZ}#)
+ ((#{f -ANAU$bmvAmthP7L7xwtJE}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}#
+ #{result -ANAU$bmvAmthP7L7xwtJ7}#)
+ (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#)
(begin
- (close-input-port #{p _hoQGWMnyQPAh3k2jhWNCi}#)
- (reverse #{result _hoQGWMnyQPAh3k2jhWNDa}#))
- (#{f _hoQGWMnyQPAh3k2jhWNCj}#
- (read #{p _hoQGWMnyQPAh3k2jhWNCi}#)
+ (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#)
+ (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#))
+ (#{f -ANAU$bmvAmthP7L7xwtJE}#
+ (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
(cons (datum->syntax
- #{k _hoQGWMnyQPAh3k2jhWNCh}#
- #{x _hoQGWMnyQPAh3k2jhWNDZ}#)
- #{result _hoQGWMnyQPAh3k2jhWNDa}#))))))
- (#{f _hoQGWMnyQPAh3k2jhWNCj}#
- (read #{p _hoQGWMnyQPAh3k2jhWNCi}#)
+ #{k -ANAU$bmvAmthP7L7xwtJC}#
+ #{x -ANAU$bmvAmthP7L7xwtJ6}#)
+ #{result -ANAU$bmvAmthP7L7xwtJ7}#))))))
+ (#{f -ANAU$bmvAmthP7L7xwtJE}#
+ (read #{p -ANAU$bmvAmthP7L7xwtJD}#)
'()))))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA1}#
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNAy}#
+ #{x -ANAU$bmvAmthP7L7xwtHT}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNA1}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtHW}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWNA5}#
- #{filename _hoQGWMnyQPAh3k2jhWNA6}#)
- (let ((#{fn _hoQGWMnyQPAh3k2jhWNA7}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}#
+ #{filename -ANAU$bmvAmthP7L7xwtHb}#)
+ (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}#
(syntax->datum
- #{filename _hoQGWMnyQPAh3k2jhWNA6}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA8}#
- (#{read-file _hoQGWMnyQPAh3k2jhWNAz}#
- #{fn _hoQGWMnyQPAh3k2jhWNA7}#
- #{filename _hoQGWMnyQPAh3k2jhWNA6}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA9}#
+ #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}#
+ (#{read-file -ANAU$bmvAmthP7L7xwtHU}#
+ #{fn -ANAU$bmvAmthP7L7xwtHc}#
+ #{filename -ANAU$bmvAmthP7L7xwtHb}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}#
($sc-dispatch
- #{tmp _hoQGWMnyQPAh3k2jhWNA8}#
+ #{tmp -ANAU$bmvAmthP7L7xwtHd}#
'each-any)))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNA9}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtHe}#
(@apply
- (lambda (#{exp _hoQGWMnyQPAh3k2jhWNBP}#)
+ (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("340"))
+ #(ribcage #(exp) #((top)) #("1fv"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("33z"))
+ #(ribcage #(fn) #((top)) #("1fu"))
#(ribcage
#(k filename)
#((top) (top))
- #("33x" "33y"))
- #(ribcage (read-file) ((top)) ("33q"))
- #(ribcage #(x) #((top)) #("33p")))
+ #("1fs" "1ft"))
+ #(ribcage (read-file) ((top)) ("1fl"))
+ #(ribcage #(x) #((top)) #("1fk")))
(hygiene guile))
- #{exp _hoQGWMnyQPAh3k2jhWNBP}#))
- #{tmp _hoQGWMnyQPAh3k2jhWNA9}#)
+ #{exp -ANAU$bmvAmthP7L7xwtHw}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtHe}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp _hoQGWMnyQPAh3k2jhWNA8}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWNA1}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtHd}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtHW}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWNAy}#)))))))
+ #{x -ANAU$bmvAmthP7L7xwtHT}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNDn}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDp}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNDn}#
+ #{x -ANAU$bmvAmthP7L7xwtKI}#
'(any any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNDp}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtKK}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWNDt}#
- #{filename _hoQGWMnyQPAh3k2jhWNDu}#)
- (let ((#{fn _hoQGWMnyQPAh3k2jhWNDv}#
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#)
+ (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}#
(syntax->datum
- #{filename _hoQGWMnyQPAh3k2jhWNDu}#)))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDw}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#)))
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}#
(datum->syntax
- #{filename _hoQGWMnyQPAh3k2jhWNDu}#
- (let ((#{t _hoQGWMnyQPAh3k2jhWNDz}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#
+ (let ((#{t -ANAU$bmvAmthP7L7xwtKU}#
(%search-load-path
- #{fn _hoQGWMnyQPAh3k2jhWNDv}#)))
- (if #{t _hoQGWMnyQPAh3k2jhWNDz}#
- #{t _hoQGWMnyQPAh3k2jhWNDz}#
+ #{fn -ANAU$bmvAmthP7L7xwtKQ}#)))
+ (if #{t -ANAU$bmvAmthP7L7xwtKU}#
+ #{t -ANAU$bmvAmthP7L7xwtKU}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x _hoQGWMnyQPAh3k2jhWNDn}#
- #{filename _hoQGWMnyQPAh3k2jhWNDu}#))))))
+ #{x -ANAU$bmvAmthP7L7xwtKI}#
+ #{filename -ANAU$bmvAmthP7L7xwtKP}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("345"))
+ #(ribcage #(fn) #((top)) #("1g0"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("344"))
+ #(ribcage #(fn) #((top)) #("1fz"))
#(ribcage
#(k filename)
#((top) (top))
- #("342" "343"))
+ #("1fx" "1fy"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("341")))
+ #(ribcage #(x) #((top)) #("1fw")))
(hygiene guile))
- #{tmp _hoQGWMnyQPAh3k2jhWNDw}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWNDp}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtKR}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtKK}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWNDn}#))))))
+ #{x -ANAU$bmvAmthP7L7xwtKI}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWND7}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x _hoQGWMnyQPAh3k2jhWND7}#))))
+ #{x -ANAU$bmvAmthP7L7xwtKc}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWND9}#)
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x _hoQGWMnyQPAh3k2jhWND9}#))))
+ #{x -ANAU$bmvAmthP7L7xwtKe}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNEi}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEk}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNEi}#
+ #{x -ANAU$bmvAmthP7L7xwtLD}#
'(_ any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNEk}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtLF}#
(@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWNEo}#
- #{m1 _hoQGWMnyQPAh3k2jhWNEp}#
- #{m2 _hoQGWMnyQPAh3k2jhWNEq}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEr}#
+ (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}#
+ #{m1 -ANAU$bmvAmthP7L7xwtLK}#
+ #{m2 -ANAU$bmvAmthP7L7xwtLL}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}#
(letrec*
- ((#{f _hoQGWMnyQPAh3k2jhWNFV}#
- (lambda (#{clause _hoQGWMnyQPAh3k2jhWNFY}#
- #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)
- (if (null? #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFb}#
+ ((#{f -ANAU$bmvAmthP7L7xwtL2}#
+ (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}#
+ #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
+ (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}#
($sc-dispatch
- #{clause _hoQGWMnyQPAh3k2jhWNFY}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#
'(#(free-id
#(syntax-object
else
@@ -27226,79 +27217,79 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e" "34f" "34g"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a" "34b" "34c"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNFb}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtL8}#
(@apply
- (lambda (#{e1 _hoQGWMnyQPAh3k2jhWNFf}#
- #{e2 _hoQGWMnyQPAh3k2jhWNFg}#)
+ (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMB}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("34h" "34i"))
+ #("1gc" "1gd"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e" "34f" "34g"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a" "34b" "34c"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
- (cons #{e1 _hoQGWMnyQPAh3k2jhWNFf}#
- #{e2 _hoQGWMnyQPAh3k2jhWNFg}#)))
- #{tmp _hoQGWMnyQPAh3k2jhWNFb}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFh}#
+ (cons #{e1 -ANAU$bmvAmthP7L7xwtMA}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMB}#)))
+ #{tmp -ANAU$bmvAmthP7L7xwtL8}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}#
($sc-dispatch
- #{clause _hoQGWMnyQPAh3k2jhWNFY}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#
'(each-any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNFh}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtMC}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWNFl}#
- #{e1 _hoQGWMnyQPAh3k2jhWNFm}#
- #{e2 _hoQGWMnyQPAh3k2jhWNFn}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}#
+ #{e1 -ANAU$bmvAmthP7L7xwtMH}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMI}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34j" "34k" "34l"))
+ #("1ge" "1gf" "1gg"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e" "34f" "34g"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a" "34b" "34c"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -27308,9 +27299,9 @@
#((top)
(top)
(top))
- #("34j"
- "34k"
- "34l"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage () () ())
#(ribcage
#(f
@@ -27319,22 +27310,22 @@
#((top)
(top)
(top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
'#(syntax-object
t
@@ -27344,9 +27335,9 @@
#((top)
(top)
(top))
- #("34j"
- "34k"
- "34l"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage () () ())
#(ribcage
#(f
@@ -27355,22 +27346,22 @@
#((top)
(top)
(top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -27380,9 +27371,9 @@
#((top)
(top)
(top))
- #("34j"
- "34k"
- "34l"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage
()
()
@@ -27394,17 +27385,17 @@
#((top)
(top)
(top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage
()
()
@@ -27412,10 +27403,10 @@
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene
guile))
- #{k _hoQGWMnyQPAh3k2jhWNFl}#))
+ #{k -ANAU$bmvAmthP7L7xwtMG}#))
(cons '#(syntax-object
begin
((top)
@@ -27424,9 +27415,9 @@
#((top)
(top)
(top))
- #("34j"
- "34k"
- "34l"))
+ #("1ge"
+ "1gf"
+ "1gg"))
#(ribcage () () ())
#(ribcage
#(f
@@ -27435,70 +27426,70 @@
#((top)
(top)
(top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
- (cons #{e1 _hoQGWMnyQPAh3k2jhWNFm}#
- #{e2 _hoQGWMnyQPAh3k2jhWNFn}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWNFh}#)
+ (cons #{e1 -ANAU$bmvAmthP7L7xwtMH}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMI}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtMC}#)
(syntax-violation
'case
"bad clause"
- #{x _hoQGWMnyQPAh3k2jhWNEi}#
- #{clause _hoQGWMnyQPAh3k2jhWNFY}#)))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFv}#
- (#{f _hoQGWMnyQPAh3k2jhWNFV}#
- (car #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)
- (cdr #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#))))
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFy}#
+ #{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 _hoQGWMnyQPAh3k2jhWNFY}#
+ #{clause -ANAU$bmvAmthP7L7xwtL5}#
'(each-any any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNFy}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtMT}#
(@apply
- (lambda (#{k _hoQGWMnyQPAh3k2jhWNF2}#
- #{e1 _hoQGWMnyQPAh3k2jhWNF3}#
- #{e2 _hoQGWMnyQPAh3k2jhWNF4}#)
+ (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}#
+ #{e1 -ANAU$bmvAmthP7L7xwtMY}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34o" "34p" "34q"))
+ #("1gj" "1gk" "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34n"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e" "34f" "34g"))
+ #("1g9" "1ga" "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a" "34b" "34c"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -27506,32 +27497,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34o"
- "34p"
- "34q"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34n"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
'#(syntax-object
t
@@ -27539,32 +27530,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34o"
- "34p"
- "34q"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34n"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -27574,9 +27565,9 @@
#((top)
(top)
(top))
- #("34o"
- "34p"
- "34q"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage
()
()
@@ -27584,7 +27575,7 @@
#(ribcage
#(rest)
#((top))
- #("34n"))
+ #("1gi"))
#(ribcage
()
()
@@ -27596,17 +27587,17 @@
#((top)
(top)
(top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage
()
()
@@ -27614,238 +27605,238 @@
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
- #{k _hoQGWMnyQPAh3k2jhWNF2}#))
+ #{k -ANAU$bmvAmthP7L7xwtMX}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("34o"
- "34p"
- "34q"))
+ #("1gj"
+ "1gk"
+ "1gl"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("34n"))
+ #("1gi"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("34e"
- "34f"
- "34g"))
+ #("1g9"
+ "1ga"
+ "1gb"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a"
- "34b"
- "34c"))
+ #("1g5"
+ "1g6"
+ "1g7"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("349")))
+ #("1g4")))
(hygiene guile))
- (cons #{e1 _hoQGWMnyQPAh3k2jhWNF3}#
- #{e2 _hoQGWMnyQPAh3k2jhWNF4}#))
- #{tmp _hoQGWMnyQPAh3k2jhWNFv}#))
- #{tmp _hoQGWMnyQPAh3k2jhWNFy}#)
+ (cons #{e1 -ANAU$bmvAmthP7L7xwtMY}#
+ #{e2 -ANAU$bmvAmthP7L7xwtMZ}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtMQ}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtMT}#)
(syntax-violation
'case
"bad clause"
- #{x _hoQGWMnyQPAh3k2jhWNEi}#
- #{clause _hoQGWMnyQPAh3k2jhWNFY}#))))))))
- (#{f _hoQGWMnyQPAh3k2jhWNFV}#
- #{m1 _hoQGWMnyQPAh3k2jhWNEp}#
- #{m2 _hoQGWMnyQPAh3k2jhWNEq}#))))
- (let ((#{body _hoQGWMnyQPAh3k2jhWNEs}#
- #{tmp _hoQGWMnyQPAh3k2jhWNEr}#))
+ #{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)) #("34d"))
+ #(ribcage #(body) #((top)) #("1g8"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a" "34b" "34c"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("349")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("34d"))
+ #(ribcage #(body) #((top)) #("1g8"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("34a" "34b" "34c"))
+ #("1g5" "1g6" "1g7"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("349")))
+ #(ribcage #(x) #((top)) #("1g4")))
(hygiene guile))
- #{e _hoQGWMnyQPAh3k2jhWNEo}#))
- #{body _hoQGWMnyQPAh3k2jhWNEs}#))))
- #{tmp _hoQGWMnyQPAh3k2jhWNEk}#)
+ #{e -ANAU$bmvAmthP7L7xwtLJ}#))
+ #{body -ANAU$bmvAmthP7L7xwtLN}#))))
+ #{tmp -ANAU$bmvAmthP7L7xwtLF}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWNEi}#))))))
+ #{x -ANAU$bmvAmthP7L7xwtLD}#))))))
(define make-variable-transformer
- (lambda (#{proc _hoQGWMnyQPAh3k2jhWNGH}#)
- (if (procedure? #{proc _hoQGWMnyQPAh3k2jhWNGH}#)
+ (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#)
+ (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#)
(letrec*
- ((#{trans _hoQGWMnyQPAh3k2jhWNGI}#
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNGO}#)
- (#{proc _hoQGWMnyQPAh3k2jhWNGH}#
- #{x _hoQGWMnyQPAh3k2jhWNGO}#))))
+ ((#{trans -ANAU$bmvAmthP7L7xwtMp}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#)
+ (#{proc -ANAU$bmvAmthP7L7xwtMo}#
+ #{x -ANAU$bmvAmthP7L7xwtMv}#))))
(begin
(set-procedure-property!
- #{trans _hoQGWMnyQPAh3k2jhWNGI}#
+ #{trans -ANAU$bmvAmthP7L7xwtMp}#
'variable-transformer
#t)
- #{trans _hoQGWMnyQPAh3k2jhWNGI}#))
+ #{trans -ANAU$bmvAmthP7L7xwtMp}#))
(error "variable transformer not a procedure"
- #{proc _hoQGWMnyQPAh3k2jhWNGH}#))))
+ #{proc -ANAU$bmvAmthP7L7xwtMo}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNGi}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGk}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNGi}#
+ #{x -ANAU$bmvAmthP7L7xwtND}#
'(_ any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNGk}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtNF}#
(@apply
- (lambda (#{e _hoQGWMnyQPAh3k2jhWNGo}#)
+ (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
- #{e _hoQGWMnyQPAh3k2jhWNGo}#))
+ #{e -ANAU$bmvAmthP7L7xwtNJ}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("34w"))
+ #(ribcage #(e) #((top)) #("1gr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
- (cons #{e _hoQGWMnyQPAh3k2jhWNGo}#
+ (cons #{e -ANAU$bmvAmthP7L7xwtNJ}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("34w"))
+ #("1gr"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
#(syntax-object
...
@@ -27853,55 +27844,55 @@
#(ribcage
#(e)
#((top))
- #("34w"))
+ #("1gr"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile)))))))))
- #{tmp _hoQGWMnyQPAh3k2jhWNGk}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGp}#
+ #{tmp -ANAU$bmvAmthP7L7xwtNF}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNGi}#
+ #{x -ANAU$bmvAmthP7L7xwtND}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWNGp}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWNGt}#
- #{exp1 _hoQGWMnyQPAh3k2jhWNGu}#
- #{var _hoQGWMnyQPAh3k2jhWNGv}#
- #{val _hoQGWMnyQPAh3k2jhWNGw}#
- #{exp2 _hoQGWMnyQPAh3k2jhWNGx}#)
- (if (identifier? #{id _hoQGWMnyQPAh3k2jhWNGt}#)
- (identifier? #{var _hoQGWMnyQPAh3k2jhWNGv}#)
+ (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 _hoQGWMnyQPAh3k2jhWNGp}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
#f)
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWNGy}#
- #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#
- #{var _hoQGWMnyQPAh3k2jhWNG0}#
- #{val _hoQGWMnyQPAh3k2jhWNG1}#
- #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#)
+ (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))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -27909,9 +27900,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
x
@@ -27919,9 +27910,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -27929,9 +27920,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
.
#(syntax-object
@@ -27940,9 +27931,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -27950,9 +27941,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'#(syntax-object
x
@@ -27960,9 +27951,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile))
'(#(syntax-object
set!
@@ -27970,9 +27961,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("352" "353" "354" "355" "356"))
+ #("1gx" "1gy" "1gz" "1h0" "1h1"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("34v")))
+ #(ribcage #(x) #((top)) #("1gq")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -27984,19 +27975,19 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
- #{var _hoQGWMnyQPAh3k2jhWNG0}#
- #{val _hoQGWMnyQPAh3k2jhWNG1}#)
+ #{var -ANAU$bmvAmthP7L7xwtNV}#
+ #{val -ANAU$bmvAmthP7L7xwtNW}#)
(list '#(syntax-object
syntax
((top)
@@ -28007,19 +27998,19 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
- #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#))
- (list (cons #{id _hoQGWMnyQPAh3k2jhWNGy}#
+ #{exp2 -ANAU$bmvAmthP7L7xwtNX}#))
+ (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}#
'(#(syntax-object
x
((top)
@@ -28030,16 +28021,16 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
#(syntax-object
...
@@ -28051,16 +28042,16 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -28072,18 +28063,18 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
- (cons #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#
+ (cons #{exp1 -ANAU$bmvAmthP7L7xwtNU}#
'(#(syntax-object
x
((top)
@@ -28098,16 +28089,16 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
#(syntax-object
...
@@ -28123,18 +28114,18 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))))))
- (list #{id _hoQGWMnyQPAh3k2jhWNGy}#
+ (list #{id -ANAU$bmvAmthP7L7xwtNT}#
(list '#(syntax-object
identifier?
((top)
@@ -28145,16 +28136,16 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -28170,18 +28161,18 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
- #{id _hoQGWMnyQPAh3k2jhWNGy}#))
+ #{id -ANAU$bmvAmthP7L7xwtNT}#))
(list '#(syntax-object
syntax
((top)
@@ -28192,72 +28183,72 @@
(top)
(top)
(top))
- #("352"
- "353"
- "354"
- "355"
- "356"))
+ #("1gx"
+ "1gy"
+ "1gz"
+ "1h0"
+ "1h1"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("34v")))
+ #("1gq")))
(hygiene guile))
- #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#))))))
- #{tmp _hoQGWMnyQPAh3k2jhWNGp}#)
+ #{exp1 -ANAU$bmvAmthP7L7xwtNU}#))))))
+ #{tmp -ANAU$bmvAmthP7L7xwtNK}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWNGi}#))))))))
+ #{x -ANAU$bmvAmthP7L7xwtND}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x _hoQGWMnyQPAh3k2jhWNHN}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHP}#
+ (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNHN}#
+ #{x -ANAU$bmvAmthP7L7xwtNu}#
'(_ (any . any) any . each-any))))
- (if #{tmp _hoQGWMnyQPAh3k2jhWNHP}#
+ (if #{tmp -ANAU$bmvAmthP7L7xwtNw}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWNHT}#
- #{args _hoQGWMnyQPAh3k2jhWNHU}#
- #{b0 _hoQGWMnyQPAh3k2jhWNHV}#
- #{b1 _hoQGWMnyQPAh3k2jhWNHW}#)
+ (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))
- #("358" "359" "35a" "35b"))
+ #("1h3" "1h4" "1h5" "1h6"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("357")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))
- #{id _hoQGWMnyQPAh3k2jhWNHT}#
+ #{id -ANAU$bmvAmthP7L7xwtN0}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("358" "359" "35a" "35b"))
+ #("1h3" "1h4" "1h5" "1h6"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("357")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))
- (cons #{args _hoQGWMnyQPAh3k2jhWNHU}#
- (cons #{b0 _hoQGWMnyQPAh3k2jhWNHV}#
- #{b1 _hoQGWMnyQPAh3k2jhWNHW}#)))))
- #{tmp _hoQGWMnyQPAh3k2jhWNHP}#)
- (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHX}#
+ (cons #{args -ANAU$bmvAmthP7L7xwtN1}#
+ (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}#
+ #{b1 -ANAU$bmvAmthP7L7xwtN3}#)))))
+ #{tmp -ANAU$bmvAmthP7L7xwtNw}#)
+ (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}#
($sc-dispatch
- #{x _hoQGWMnyQPAh3k2jhWNHN}#
+ #{x -ANAU$bmvAmthP7L7xwtNu}#
'(_ any any))))
- (if (if #{tmp _hoQGWMnyQPAh3k2jhWNHX}#
+ (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}#
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWNHb}#
- #{val _hoQGWMnyQPAh3k2jhWNHc}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}#
+ #{val -ANAU$bmvAmthP7L7xwtN9}#)
(identifier?
'#(syntax-object
x
@@ -28265,30 +28256,30 @@
#(ribcage
#(id val)
#((top) (top))
- #("35c" "35d"))
+ #("1h7" "1h8"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("357")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))))
- #{tmp _hoQGWMnyQPAh3k2jhWNHX}#)
+ #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
#f)
(@apply
- (lambda (#{id _hoQGWMnyQPAh3k2jhWNHd}#
- #{val _hoQGWMnyQPAh3k2jhWNHe}#)
+ (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}#
+ #{val -ANAU$bmvAmthP7L7xwtN@}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("35e" "35f"))
+ #("1h9" "1ha"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("357")))
+ #(ribcage #(x) #((top)) #("1h2")))
(hygiene guile))
- #{id _hoQGWMnyQPAh3k2jhWNHd}#
- #{val _hoQGWMnyQPAh3k2jhWNHe}#))
- #{tmp _hoQGWMnyQPAh3k2jhWNHX}#)
+ #{id -ANAU$bmvAmthP7L7xwtN$}#
+ #{val -ANAU$bmvAmthP7L7xwtN@}#))
+ #{tmp -ANAU$bmvAmthP7L7xwtN4}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x _hoQGWMnyQPAh3k2jhWNHN}#))))))))
+ #{x -ANAU$bmvAmthP7L7xwtNu}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index 00cb54948..8220829ac 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -2525,44 +2525,6 @@
(set! syntax-source
(lambda (x) (source-annotation x)))
- (set! syntax-module
- (lambda (id)
- (arg-check nonsymbol-id? id 'syntax-module)
- (cdr (syntax-object-module id))))
-
- (set! syntax-local-binding
- (lambda (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)))))))))
-
- (set! syntax-locally-bound-identifiers
- (lambda (x)
- (arg-check nonsymbol-id? x 'syntax-locally-bound-identifiers)
- (locally-bound-identifiers (syntax-object-wrap x)
- (syntax-object-module x))))
-
(set! generate-temporaries
(lambda (ls)
(arg-check list? ls 'generate-temporaries)
@@ -2591,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