summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2012-01-15 18:39:44 +0100
committerAndy Wingo <wingo@pobox.com>2012-01-25 20:34:16 +0100
commit3d51e57cfb0404db568a6adfde2a346d3fd9907e (patch)
treedffd942a591444eb1654387b84a816b99e3d782d
parenta2b62b48ab92ed1b5e5e0bcc292498abba3154cb (diff)
downloadguile-3d51e57cfb0404db568a6adfde2a346d3fd9907e.tar.gz
add syntax-locally-bound-identifiers
* module/ice-9/boot-9.scm (syntax-locally-bound-identifiers): Declare variable. * module/ice-9/psyntax.scm: Add locally-bound-identifiers helper, and define syntax-locally-bound-identifiers. * module/ice-9/psyntax-pp.scm: Regenerated. * doc/ref/api-macros.texi: Document the new procedure.
-rw-r--r--doc/ref/api-macros.texi37
-rw-r--r--module/ice-9/boot-9.scm1
-rw-r--r--module/ice-9/psyntax-pp.scm24438
-rw-r--r--module/ice-9/psyntax.scm59
4 files changed, 13078 insertions, 11457 deletions
diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi
index 4702d2f7a..02b5d5c8a 100644
--- a/doc/ref/api-macros.texi
+++ b/doc/ref/api-macros.texi
@@ -744,7 +744,7 @@ information with macros:
(define-syntax-rule (with-aux aux value)
(let ((trans value))
(set! (aux-property trans) aux)
- trans)))
+ trans))
(define-syntax retrieve-aux
(lambda (x)
(syntax-case x ()
@@ -768,6 +768,41 @@ information with macros:
a syntax transformer; to call it otherwise will signal an error.
@end deffn
+@deffn {Scheme Procedure} syntax-locally-bound-identifiers id
+Return a list of identifiers that were visible lexically when the
+identifier @var{id} was created, in order from outermost to innermost.
+
+This procedure is intended to be used in specialized procedural macros,
+to provide a macro with the set of bound identifiers that the macro can
+reference.
+
+As a technical implementation detail, the identifiers returned by
+@code{syntax-locally-bound-identifiers} will be anti-marked, like the
+syntax object that is given as input to a macro. This is to signal to
+the macro expander that these bindings were present in the original
+source, and do not need to be hygienically renamed, as would be the case
+with other introduced identifiers. See the discussion of hygiene in
+section 12.1 of the R6RS, for more information on marks.
+
+@example
+(define (local-lexicals id)
+ (filter (lambda (x)
+ (eq? (syntax-local-binding x) 'lexical))
+ (syntax-locally-bound-identifiers id)))
+(define-syntax lexicals
+ (lambda (x)
+ (syntax-case x ()
+ ((lexicals) #'(lexicals lexicals))
+ ((lexicals scope)
+ (with-syntax (((id ...) (local-lexicals #'scope)))
+ #'(list (cons 'id id) ...))))))
+
+(let* ((x 10) (x 20)) (lexicals))
+@result{} ((x . 10) (x . 20))
+@end example
+@end deffn
+
+
@node Defmacros
@subsection Lisp-style Macro Definitions
diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm
index 2c87d13fb..cd5520373 100644
--- a/module/ice-9/boot-9.scm
+++ b/module/ice-9/boot-9.scm
@@ -390,6 +390,7 @@ If there is no handler at all, Guile prints an error and then exits."
(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.
diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm
index b1f1d129d..f87379f41 100644
--- a/module/ice-9/psyntax-pp.scm
+++ b/module/ice-9/psyntax-pp.scm
@@ -1,1246 +1,1553 @@
(eval-when (compile) (set-current-module (resolve-module (quote (guile)))))
(if #f #f)
-(let ((#{gen-label 2745}# (if #f #f))
- (#{transformer-environment 2764}# (if #f #f)))
+(let ((#{gen-label _85hotwsCta0JfYIjI4J3p}# (if #f #f))
+ (#{transformer-environment _85hotwsCta0JfYIjI4J39}#
+ (if #f #f)))
(letrec*
- ((#{top-level-eval-hook 2703}#
- (lambda (#{x 24076}# #{mod 24077}#)
- (primitive-eval #{x 24076}#)))
- (#{get-global-definition-hook 2706}#
- (lambda (#{symbol 13606}# #{module 13607}#)
+ ((#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PLs}#
+ #{mod _85hotwsCta0JfYIjI4PLt}#)
+ (primitive-eval #{x _85hotwsCta0JfYIjI4PLs}#)))
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ (lambda (#{symbol _85hotwsCta0JfYIjI4MjC}#
+ #{module _85hotwsCta0JfYIjI4MjD}#)
(begin
- (if (if (not #{module 13607}#) (current-module) #f)
+ (if (if (not #{module _85hotwsCta0JfYIjI4MjD}#)
+ (current-module)
+ #f)
(warn "module system is booted, we should have a module"
- #{symbol 13606}#))
- (let ((#{v 13608}#
+ #{symbol _85hotwsCta0JfYIjI4MjC}#))
+ (let ((#{v _85hotwsCta0JfYIjI4MjE}#
(module-variable
- (if #{module 13607}#
- (resolve-module (cdr #{module 13607}#))
+ (if #{module _85hotwsCta0JfYIjI4MjD}#
+ (resolve-module
+ (cdr #{module _85hotwsCta0JfYIjI4MjD}#))
(current-module))
- #{symbol 13606}#)))
- (if #{v 13608}#
- (if (variable-bound? #{v 13608}#)
- (let ((#{val 13610}# (variable-ref #{v 13608}#)))
- (if (macro? #{val 13610}#)
- (if (macro-type #{val 13610}#)
- (cons (macro-type #{val 13610}#)
- (macro-binding #{val 13610}#))
+ #{symbol _85hotwsCta0JfYIjI4MjC}#)))
+ (if #{v _85hotwsCta0JfYIjI4MjE}#
+ (if (variable-bound? #{v _85hotwsCta0JfYIjI4MjE}#)
+ (let ((#{val _85hotwsCta0JfYIjI4MjG}#
+ (variable-ref #{v _85hotwsCta0JfYIjI4MjE}#)))
+ (if (macro? #{val _85hotwsCta0JfYIjI4MjG}#)
+ (if (macro-type #{val _85hotwsCta0JfYIjI4MjG}#)
+ (cons (macro-type #{val _85hotwsCta0JfYIjI4MjG}#)
+ (macro-binding #{val _85hotwsCta0JfYIjI4MjG}#))
#f)
#f))
#f)
#f)))))
- (#{maybe-name-value! 2708}#
- (lambda (#{name 13887}# #{val 13888}#)
- (if (if (struct? #{val 13888}#)
- (eq? (struct-vtable #{val 13888}#)
+ (#{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
+ (lambda (#{name _85hotwsCta0JfYIjI4Mnb}#
+ #{val _85hotwsCta0JfYIjI4Mnc}#)
+ (if (if (struct? #{val _85hotwsCta0JfYIjI4Mnc}#)
+ (eq? (struct-vtable #{val _85hotwsCta0JfYIjI4Mnc}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13895}# (struct-ref #{val 13888}# 1)))
- (if (not (assq 'name #{meta 13895}#))
- (let ((#{v 13900}#
- (cons (cons 'name #{name 13887}#) #{meta 13895}#)))
- (struct-set! #{val 13888}# 1 #{v 13900}#)))))))
- (#{build-application 2710}#
- (lambda (#{source 13612}#
- #{fun-exp 13613}#
- #{arg-exps 13614}#)
+ (let ((#{meta _85hotwsCta0JfYIjI4Mnj}#
+ (struct-ref #{val _85hotwsCta0JfYIjI4Mnc}# 1)))
+ (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mnj}#))
+ (let ((#{v _85hotwsCta0JfYIjI4Mno}#
+ (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mnb}#)
+ #{meta _85hotwsCta0JfYIjI4Mnj}#)))
+ (struct-set!
+ #{val _85hotwsCta0JfYIjI4Mnc}#
+ 1
+ #{v _85hotwsCta0JfYIjI4Mno}#)))))))
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ (lambda (#{source _85hotwsCta0JfYIjI4MjI}#
+ #{fun-exp _85hotwsCta0JfYIjI4MjJ}#
+ #{arg-exps _85hotwsCta0JfYIjI4MjK}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{source 13612}#
- #{fun-exp 13613}#
- #{arg-exps 13614}#)))
- (#{build-conditional 2711}#
- (lambda (#{source 13620}#
- #{test-exp 13621}#
- #{then-exp 13622}#
- #{else-exp 13623}#)
+ #{source _85hotwsCta0JfYIjI4MjI}#
+ #{fun-exp _85hotwsCta0JfYIjI4MjJ}#
+ #{arg-exps _85hotwsCta0JfYIjI4MjK}#)))
+ (#{build-conditional _85hotwsCta0JfYIjI4J3H}#
+ (lambda (#{source _85hotwsCta0JfYIjI4MjQ}#
+ #{test-exp _85hotwsCta0JfYIjI4MjR}#
+ #{then-exp _85hotwsCta0JfYIjI4MjS}#
+ #{else-exp _85hotwsCta0JfYIjI4MjT}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
- #{source 13620}#
- #{test-exp 13621}#
- #{then-exp 13622}#
- #{else-exp 13623}#)))
- (#{build-dynlet 2712}#
- (lambda (#{source 13630}#
- #{fluids 13631}#
- #{vals 13632}#
- #{body 13633}#)
+ #{source _85hotwsCta0JfYIjI4MjQ}#
+ #{test-exp _85hotwsCta0JfYIjI4MjR}#
+ #{then-exp _85hotwsCta0JfYIjI4MjS}#
+ #{else-exp _85hotwsCta0JfYIjI4MjT}#)))
+ (#{build-dynlet _85hotwsCta0JfYIjI4J3I}#
+ (lambda (#{source _85hotwsCta0JfYIjI4Mja}#
+ #{fluids _85hotwsCta0JfYIjI4Mjb}#
+ #{vals _85hotwsCta0JfYIjI4Mjc}#
+ #{body _85hotwsCta0JfYIjI4Mjd}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 17)
- #{source 13630}#
- #{fluids 13631}#
- #{vals 13632}#
- #{body 13633}#)))
- (#{build-lexical-reference 2713}#
- (lambda (#{type 24078}#
- #{source 24079}#
- #{name 24080}#
- #{var 24081}#)
+ #{source _85hotwsCta0JfYIjI4Mja}#
+ #{fluids _85hotwsCta0JfYIjI4Mjb}#
+ #{vals _85hotwsCta0JfYIjI4Mjc}#
+ #{body _85hotwsCta0JfYIjI4Mjd}#)))
+ (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}#
+ (lambda (#{type _85hotwsCta0JfYIjI4PLu}#
+ #{source _85hotwsCta0JfYIjI4PLv}#
+ #{name _85hotwsCta0JfYIjI4PLw}#
+ #{var _85hotwsCta0JfYIjI4PLx}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{source 24079}#
- #{name 24080}#
- #{var 24081}#)))
- (#{build-lexical-assignment 2714}#
- (lambda (#{source 13640}#
- #{name 13641}#
- #{var 13642}#
- #{exp 13643}#)
+ #{source _85hotwsCta0JfYIjI4PLv}#
+ #{name _85hotwsCta0JfYIjI4PLw}#
+ #{var _85hotwsCta0JfYIjI4PLx}#)))
+ (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}#
+ (lambda (#{source _85hotwsCta0JfYIjI4Mjk}#
+ #{name _85hotwsCta0JfYIjI4Mjl}#
+ #{var _85hotwsCta0JfYIjI4Mjm}#
+ #{exp _85hotwsCta0JfYIjI4Mjn}#)
(begin
- (if (if (struct? #{exp 13643}#)
- (eq? (struct-vtable #{exp 13643}#)
+ (if (if (struct? #{exp _85hotwsCta0JfYIjI4Mjn}#)
+ (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Mjn}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13659}# (struct-ref #{exp 13643}# 1)))
- (if (not (assq 'name #{meta 13659}#))
- (let ((#{v 13666}#
- (cons (cons 'name #{name 13641}#) #{meta 13659}#)))
- (struct-set! #{exp 13643}# 1 #{v 13666}#)))))
+ (let ((#{meta _85hotwsCta0JfYIjI4Mj3}#
+ (struct-ref #{exp _85hotwsCta0JfYIjI4Mjn}# 1)))
+ (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mj3}#))
+ (let ((#{v _85hotwsCta0JfYIjI4Mj$}#
+ (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mjl}#)
+ #{meta _85hotwsCta0JfYIjI4Mj3}#)))
+ (struct-set!
+ #{exp _85hotwsCta0JfYIjI4Mjn}#
+ 1
+ #{v _85hotwsCta0JfYIjI4Mj$}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 4)
- #{source 13640}#
- #{name 13641}#
- #{var 13642}#
- #{exp 13643}#))))
- (#{analyze-variable 2715}#
- (lambda (#{mod 24087}#
- #{var 24088}#
- #{modref-cont 24089}#
- #{bare-cont 24090}#)
- (if (not #{mod 24087}#)
- (#{bare-cont 24090}# #{var 24088}#)
- (let ((#{kind 24091}# (car #{mod 24087}#))
- (#{mod 24092}# (cdr #{mod 24087}#)))
- (if (eqv? #{kind 24091}# 'public)
- (#{modref-cont 24089}#
- #{mod 24092}#
- #{var 24088}#
+ #{source _85hotwsCta0JfYIjI4Mjk}#
+ #{name _85hotwsCta0JfYIjI4Mjl}#
+ #{var _85hotwsCta0JfYIjI4Mjm}#
+ #{exp _85hotwsCta0JfYIjI4Mjn}#))))
+ (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
+ (lambda (#{mod _85hotwsCta0JfYIjI4PL3}#
+ #{var _85hotwsCta0JfYIjI4PL4}#
+ #{modref-cont _85hotwsCta0JfYIjI4PL5}#
+ #{bare-cont _85hotwsCta0JfYIjI4PL6}#)
+ (if (not #{mod _85hotwsCta0JfYIjI4PL3}#)
+ (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
+ #{var _85hotwsCta0JfYIjI4PL4}#)
+ (let ((#{kind _85hotwsCta0JfYIjI4PL7}#
+ (car #{mod _85hotwsCta0JfYIjI4PL3}#))
+ (#{mod _85hotwsCta0JfYIjI4PL8}#
+ (cdr #{mod _85hotwsCta0JfYIjI4PL3}#)))
+ (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'public)
+ (#{modref-cont _85hotwsCta0JfYIjI4PL5}#
+ #{mod _85hotwsCta0JfYIjI4PL8}#
+ #{var _85hotwsCta0JfYIjI4PL4}#
#t)
- (if (eqv? #{kind 24091}# 'private)
+ (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'private)
(if (not (equal?
- #{mod 24092}#
+ #{mod _85hotwsCta0JfYIjI4PL8}#
(module-name (current-module))))
- (#{modref-cont 24089}#
- #{mod 24092}#
- #{var 24088}#
+ (#{modref-cont _85hotwsCta0JfYIjI4PL5}#
+ #{mod _85hotwsCta0JfYIjI4PL8}#
+ #{var _85hotwsCta0JfYIjI4PL4}#
#f)
- (#{bare-cont 24090}# #{var 24088}#))
- (if (eqv? #{kind 24091}# 'bare)
- (#{bare-cont 24090}# #{var 24088}#)
- (if (eqv? #{kind 24091}# 'hygiene)
+ (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
+ #{var _85hotwsCta0JfYIjI4PL4}#))
+ (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'bare)
+ (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
+ #{var _85hotwsCta0JfYIjI4PL4}#)
+ (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'hygiene)
(if (if (not (equal?
- #{mod 24092}#
+ #{mod _85hotwsCta0JfYIjI4PL8}#
(module-name (current-module))))
(module-variable
- (resolve-module #{mod 24092}#)
- #{var 24088}#)
+ (resolve-module #{mod _85hotwsCta0JfYIjI4PL8}#)
+ #{var _85hotwsCta0JfYIjI4PL4}#)
#f)
- (#{modref-cont 24089}#
- #{mod 24092}#
- #{var 24088}#
+ (#{modref-cont _85hotwsCta0JfYIjI4PL5}#
+ #{mod _85hotwsCta0JfYIjI4PL8}#
+ #{var _85hotwsCta0JfYIjI4PL4}#
#f)
- (#{bare-cont 24090}# #{var 24088}#))
+ (#{bare-cont _85hotwsCta0JfYIjI4PL6}#
+ #{var _85hotwsCta0JfYIjI4PL4}#))
(syntax-violation
#f
"bad module kind"
- #{var 24088}#
- #{mod 24092}#)))))))))
- (#{build-global-reference 2716}#
- (lambda (#{source 24107}# #{var 24108}# #{mod 24109}#)
- (#{analyze-variable 2715}#
- #{mod 24109}#
- #{var 24108}#
- (lambda (#{mod 24112}# #{var 24113}# #{public? 24114}#)
+ #{var _85hotwsCta0JfYIjI4PL4}#
+ #{mod _85hotwsCta0JfYIjI4PL8}#)))))))))
+ (#{build-global-reference _85hotwsCta0JfYIjI4J3M}#
+ (lambda (#{source _85hotwsCta0JfYIjI4PML}#
+ #{var _85hotwsCta0JfYIjI4PMM}#
+ #{mod _85hotwsCta0JfYIjI4PMN}#)
+ (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
+ #{mod _85hotwsCta0JfYIjI4PMN}#
+ #{var _85hotwsCta0JfYIjI4PMM}#
+ (lambda (#{mod _85hotwsCta0JfYIjI4PMQ}#
+ #{var _85hotwsCta0JfYIjI4PMR}#
+ #{public? _85hotwsCta0JfYIjI4PMS}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{source 24107}#
- #{mod 24112}#
- #{var 24113}#
- #{public? 24114}#))
- (lambda (#{var 24122}#)
+ #{source _85hotwsCta0JfYIjI4PML}#
+ #{mod _85hotwsCta0JfYIjI4PMQ}#
+ #{var _85hotwsCta0JfYIjI4PMR}#
+ #{public? _85hotwsCta0JfYIjI4PMS}#))
+ (lambda (#{var _85hotwsCta0JfYIjI4PMa}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{source 24107}#
- #{var 24122}#)))))
- (#{build-global-assignment 2717}#
- (lambda (#{source 13675}#
- #{var 13676}#
- #{exp 13677}#
- #{mod 13678}#)
+ #{source _85hotwsCta0JfYIjI4PML}#
+ #{var _85hotwsCta0JfYIjI4PMa}#)))))
+ (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}#
+ (lambda (#{source _85hotwsCta0JfYIjI4MkH}#
+ #{var _85hotwsCta0JfYIjI4MkI}#
+ #{exp _85hotwsCta0JfYIjI4MkJ}#
+ #{mod _85hotwsCta0JfYIjI4MkK}#)
(begin
- (if (if (struct? #{exp 13677}#)
- (eq? (struct-vtable #{exp 13677}#)
+ (if (if (struct? #{exp _85hotwsCta0JfYIjI4MkJ}#)
+ (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4MkJ}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13694}# (struct-ref #{exp 13677}# 1)))
- (if (not (assq 'name #{meta 13694}#))
- (let ((#{v 13701}#
- (cons (cons 'name #{var 13676}#) #{meta 13694}#)))
- (struct-set! #{exp 13677}# 1 #{v 13701}#)))))
- (#{analyze-variable 2715}#
- #{mod 13678}#
- #{var 13676}#
- (lambda (#{mod 13706}# #{var 13707}# #{public? 13708}#)
+ (let ((#{meta _85hotwsCta0JfYIjI4Mka}#
+ (struct-ref #{exp _85hotwsCta0JfYIjI4MkJ}# 1)))
+ (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mka}#))
+ (let ((#{v _85hotwsCta0JfYIjI4Mkh}#
+ (cons (cons 'name #{var _85hotwsCta0JfYIjI4MkI}#)
+ #{meta _85hotwsCta0JfYIjI4Mka}#)))
+ (struct-set!
+ #{exp _85hotwsCta0JfYIjI4MkJ}#
+ 1
+ #{v _85hotwsCta0JfYIjI4Mkh}#)))))
+ (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
+ #{mod _85hotwsCta0JfYIjI4MkK}#
+ #{var _85hotwsCta0JfYIjI4MkI}#
+ (lambda (#{mod _85hotwsCta0JfYIjI4Mkm}#
+ #{var _85hotwsCta0JfYIjI4Mkn}#
+ #{public? _85hotwsCta0JfYIjI4Mko}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 6)
- #{source 13675}#
- #{mod 13706}#
- #{var 13707}#
- #{public? 13708}#
- #{exp 13677}#))
- (lambda (#{var 13716}#)
+ #{source _85hotwsCta0JfYIjI4MkH}#
+ #{mod _85hotwsCta0JfYIjI4Mkm}#
+ #{var _85hotwsCta0JfYIjI4Mkn}#
+ #{public? _85hotwsCta0JfYIjI4Mko}#
+ #{exp _85hotwsCta0JfYIjI4MkJ}#))
+ (lambda (#{var _85hotwsCta0JfYIjI4Mkw}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 8)
- #{source 13675}#
- #{var 13716}#
- #{exp 13677}#))))))
- (#{build-global-definition 2718}#
- (lambda (#{source 24128}# #{var 24129}# #{exp 24130}#)
+ #{source _85hotwsCta0JfYIjI4MkH}#
+ #{var _85hotwsCta0JfYIjI4Mkw}#
+ #{exp _85hotwsCta0JfYIjI4MkJ}#))))))
+ (#{build-global-definition _85hotwsCta0JfYIjI4J3O}#
+ (lambda (#{source _85hotwsCta0JfYIjI4PMg}#
+ #{var _85hotwsCta0JfYIjI4PMh}#
+ #{exp _85hotwsCta0JfYIjI4PMi}#)
(begin
- (if (if (struct? #{exp 24130}#)
- (eq? (struct-vtable #{exp 24130}#)
+ (if (if (struct? #{exp _85hotwsCta0JfYIjI4PMi}#)
+ (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4PMi}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 24146}# (struct-ref #{exp 24130}# 1)))
- (if (not (assq 'name #{meta 24146}#))
- (let ((#{v 24153}#
- (cons (cons 'name #{var 24129}#) #{meta 24146}#)))
- (struct-set! #{exp 24130}# 1 #{v 24153}#)))))
+ (let ((#{meta _85hotwsCta0JfYIjI4PMy}#
+ (struct-ref #{exp _85hotwsCta0JfYIjI4PMi}# 1)))
+ (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4PMy}#))
+ (let ((#{v _85hotwsCta0JfYIjI4PM5}#
+ (cons (cons 'name #{var _85hotwsCta0JfYIjI4PMh}#)
+ #{meta _85hotwsCta0JfYIjI4PMy}#)))
+ (struct-set!
+ #{exp _85hotwsCta0JfYIjI4PMi}#
+ 1
+ #{v _85hotwsCta0JfYIjI4PM5}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
- #{source 24128}#
- #{var 24129}#
- #{exp 24130}#))))
- (#{build-simple-lambda 2719}#
- (lambda (#{src 13722}#
- #{req 13723}#
- #{rest 13724}#
- #{vars 13725}#
- #{meta 13726}#
- #{exp 13727}#)
- (let ((#{body 13733}#
+ #{source _85hotwsCta0JfYIjI4PMg}#
+ #{var _85hotwsCta0JfYIjI4PMh}#
+ #{exp _85hotwsCta0JfYIjI4PMi}#))))
+ (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
+ (lambda (#{src _85hotwsCta0JfYIjI4Mk2}#
+ #{req _85hotwsCta0JfYIjI4Mk3}#
+ #{rest _85hotwsCta0JfYIjI4Mk4}#
+ #{vars _85hotwsCta0JfYIjI4Mk5}#
+ #{meta _85hotwsCta0JfYIjI4Mk6}#
+ #{exp _85hotwsCta0JfYIjI4Mk7}#)
+ (let ((#{body _85hotwsCta0JfYIjI4MlB}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 13722}#
- #{req 13723}#
+ #{src _85hotwsCta0JfYIjI4Mk2}#
+ #{req _85hotwsCta0JfYIjI4Mk3}#
#f
- #{rest 13724}#
+ #{rest _85hotwsCta0JfYIjI4Mk4}#
#f
'()
- #{vars 13725}#
- #{exp 13727}#
+ #{vars _85hotwsCta0JfYIjI4Mk5}#
+ #{exp _85hotwsCta0JfYIjI4Mk7}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 13722}#
- #{meta 13726}#
- #{body 13733}#))))
- (#{build-sequence 2724}#
- (lambda (#{src 24161}# #{exps 24162}#)
- (if (null? (cdr #{exps 24162}#))
- (car #{exps 24162}#)
+ #{src _85hotwsCta0JfYIjI4Mk2}#
+ #{meta _85hotwsCta0JfYIjI4Mk6}#
+ #{body _85hotwsCta0JfYIjI4MlB}#))))
+ (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
+ (lambda (#{src _85hotwsCta0JfYIjI4PNB}#
+ #{exps _85hotwsCta0JfYIjI4PNC}#)
+ (if (null? (cdr #{exps _85hotwsCta0JfYIjI4PNC}#))
+ (car #{exps _85hotwsCta0JfYIjI4PNC}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 12)
- #{src 24161}#
- #{exps 24162}#))))
- (#{build-let 2725}#
- (lambda (#{src 13745}#
- #{ids 13746}#
- #{vars 13747}#
- #{val-exps 13748}#
- #{body-exp 13749}#)
+ #{src _85hotwsCta0JfYIjI4PNB}#
+ #{exps _85hotwsCta0JfYIjI4PNC}#))))
+ (#{build-let _85hotwsCta0JfYIjI4J3V}#
+ (lambda (#{src _85hotwsCta0JfYIjI4MlN}#
+ #{ids _85hotwsCta0JfYIjI4MlO}#
+ #{vars _85hotwsCta0JfYIjI4MlP}#
+ #{val-exps _85hotwsCta0JfYIjI4MlQ}#
+ #{body-exp _85hotwsCta0JfYIjI4MlR}#)
(begin
(for-each
- #{maybe-name-value! 2708}#
- #{ids 13746}#
- #{val-exps 13748}#)
- (if (null? #{vars 13747}#)
- #{body-exp 13749}#
+ #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
+ #{ids _85hotwsCta0JfYIjI4MlO}#
+ #{val-exps _85hotwsCta0JfYIjI4MlQ}#)
+ (if (null? #{vars _85hotwsCta0JfYIjI4MlP}#)
+ #{body-exp _85hotwsCta0JfYIjI4MlR}#
(make-struct/no-tail
(vector-ref %expanded-vtables 15)
- #{src 13745}#
- #{ids 13746}#
- #{vars 13747}#
- #{val-exps 13748}#
- #{body-exp 13749}#)))))
- (#{build-named-let 2726}#
- (lambda (#{src 13773}#
- #{ids 13774}#
- #{vars 13775}#
- #{val-exps 13776}#
- #{body-exp 13777}#)
- (let ((#{f 13778}# (car #{vars 13775}#))
- (#{f-name 13779}# (car #{ids 13774}#))
- (#{vars 13780}# (cdr #{vars 13775}#))
- (#{ids 13781}# (cdr #{ids 13774}#)))
- (let ((#{proc 13782}#
- (let ((#{body 13802}#
+ #{src _85hotwsCta0JfYIjI4MlN}#
+ #{ids _85hotwsCta0JfYIjI4MlO}#
+ #{vars _85hotwsCta0JfYIjI4MlP}#
+ #{val-exps _85hotwsCta0JfYIjI4MlQ}#
+ #{body-exp _85hotwsCta0JfYIjI4MlR}#)))))
+ (#{build-named-let _85hotwsCta0JfYIjI4J3W}#
+ (lambda (#{src _85hotwsCta0JfYIjI4Mlp}#
+ #{ids _85hotwsCta0JfYIjI4Mlq}#
+ #{vars _85hotwsCta0JfYIjI4Mlr}#
+ #{val-exps _85hotwsCta0JfYIjI4Mls}#
+ #{body-exp _85hotwsCta0JfYIjI4Mlt}#)
+ (let ((#{f _85hotwsCta0JfYIjI4Mlu}#
+ (car #{vars _85hotwsCta0JfYIjI4Mlr}#))
+ (#{f-name _85hotwsCta0JfYIjI4Mlv}#
+ (car #{ids _85hotwsCta0JfYIjI4Mlq}#))
+ (#{vars _85hotwsCta0JfYIjI4Mlw}#
+ (cdr #{vars _85hotwsCta0JfYIjI4Mlr}#))
+ (#{ids _85hotwsCta0JfYIjI4Mlx}#
+ (cdr #{ids _85hotwsCta0JfYIjI4Mlq}#)))
+ (let ((#{proc _85hotwsCta0JfYIjI4Mly}#
+ (let ((#{body _85hotwsCta0JfYIjI4MmG}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{src 13773}#
- #{ids 13781}#
+ #{src _85hotwsCta0JfYIjI4Mlp}#
+ #{ids _85hotwsCta0JfYIjI4Mlx}#
#f
#f
#f
'()
- #{vars 13780}#
- #{body-exp 13777}#
+ #{vars _85hotwsCta0JfYIjI4Mlw}#
+ #{body-exp _85hotwsCta0JfYIjI4Mlt}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{src 13773}#
+ #{src _85hotwsCta0JfYIjI4Mlp}#
'()
- #{body 13802}#))))
+ #{body _85hotwsCta0JfYIjI4MmG}#))))
(begin
- (if (if (struct? #{proc 13782}#)
- (eq? (struct-vtable #{proc 13782}#)
+ (if (if (struct? #{proc _85hotwsCta0JfYIjI4Mly}#)
+ (eq? (struct-vtable #{proc _85hotwsCta0JfYIjI4Mly}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 13826}# (struct-ref #{proc 13782}# 1)))
- (if (not (assq 'name #{meta 13826}#))
- (let ((#{v 13833}#
- (cons (cons 'name #{f-name 13779}#)
- #{meta 13826}#)))
- (struct-set! #{proc 13782}# 1 #{v 13833}#)))))
+ (let ((#{meta _85hotwsCta0JfYIjI4Mme}#
+ (struct-ref #{proc _85hotwsCta0JfYIjI4Mly}# 1)))
+ (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mme}#))
+ (let ((#{v _85hotwsCta0JfYIjI4Mml}#
+ (cons (cons 'name
+ #{f-name _85hotwsCta0JfYIjI4Mlv}#)
+ #{meta _85hotwsCta0JfYIjI4Mme}#)))
+ (struct-set!
+ #{proc _85hotwsCta0JfYIjI4Mly}#
+ 1
+ #{v _85hotwsCta0JfYIjI4Mml}#)))))
(for-each
- #{maybe-name-value! 2708}#
- #{ids 13781}#
- #{val-exps 13776}#)
- (let ((#{names 13857}# (list #{f-name 13779}#))
- (#{gensyms 13858}# (list #{f 13778}#))
- (#{vals 13859}# (list #{proc 13782}#))
- (#{body 13860}#
- (let ((#{fun-exp 13864}#
+ #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
+ #{ids _85hotwsCta0JfYIjI4Mlx}#
+ #{val-exps _85hotwsCta0JfYIjI4Mls}#)
+ (let ((#{names _85hotwsCta0JfYIjI4Mm9}#
+ (list #{f-name _85hotwsCta0JfYIjI4Mlv}#))
+ (#{gensyms _85hotwsCta0JfYIjI4Mm$}#
+ (list #{f _85hotwsCta0JfYIjI4Mlu}#))
+ (#{vals _85hotwsCta0JfYIjI4Mm@}#
+ (list #{proc _85hotwsCta0JfYIjI4Mly}#))
+ (#{body _85hotwsCta0JfYIjI4MnA}#
+ (let ((#{fun-exp _85hotwsCta0JfYIjI4MnE}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{src 13773}#
- #{f-name 13779}#
- #{f 13778}#)))
+ #{src _85hotwsCta0JfYIjI4Mlp}#
+ #{f-name _85hotwsCta0JfYIjI4Mlv}#
+ #{f _85hotwsCta0JfYIjI4Mlu}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
- #{src 13773}#
- #{fun-exp 13864}#
- #{val-exps 13776}#))))
+ #{src _85hotwsCta0JfYIjI4Mlp}#
+ #{fun-exp _85hotwsCta0JfYIjI4MnE}#
+ #{val-exps _85hotwsCta0JfYIjI4Mls}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 13773}#
+ #{src _85hotwsCta0JfYIjI4Mlp}#
#f
- #{names 13857}#
- #{gensyms 13858}#
- #{vals 13859}#
- #{body 13860}#)))))))
- (#{build-letrec 2727}#
- (lambda (#{src 13880}#
- #{in-order? 13881}#
- #{ids 13882}#
- #{vars 13883}#
- #{val-exps 13884}#
- #{body-exp 13885}#)
- (if (null? #{vars 13883}#)
- #{body-exp 13885}#
+ #{names _85hotwsCta0JfYIjI4Mm9}#
+ #{gensyms _85hotwsCta0JfYIjI4Mm$}#
+ #{vals _85hotwsCta0JfYIjI4Mm@}#
+ #{body _85hotwsCta0JfYIjI4MnA}#)))))))
+ (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
+ (lambda (#{src _85hotwsCta0JfYIjI4MnU}#
+ #{in-order? _85hotwsCta0JfYIjI4MnV}#
+ #{ids _85hotwsCta0JfYIjI4MnW}#
+ #{vars _85hotwsCta0JfYIjI4MnX}#
+ #{val-exps _85hotwsCta0JfYIjI4MnY}#
+ #{body-exp _85hotwsCta0JfYIjI4MnZ}#)
+ (if (null? #{vars _85hotwsCta0JfYIjI4MnX}#)
+ #{body-exp _85hotwsCta0JfYIjI4MnZ}#
(begin
(for-each
- #{maybe-name-value! 2708}#
- #{ids 13882}#
- #{val-exps 13884}#)
+ #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}#
+ #{ids _85hotwsCta0JfYIjI4MnW}#
+ #{val-exps _85hotwsCta0JfYIjI4MnY}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 16)
- #{src 13880}#
- #{in-order? 13881}#
- #{ids 13882}#
- #{vars 13883}#
- #{val-exps 13884}#
- #{body-exp 13885}#)))))
- (#{source-annotation 2736}#
- (lambda (#{x 13911}#)
- (if (if (vector? #{x 13911}#)
- (if (= (vector-length #{x 13911}#) 4)
- (eq? (vector-ref #{x 13911}# 0) 'syntax-object)
+ #{src _85hotwsCta0JfYIjI4MnU}#
+ #{in-order? _85hotwsCta0JfYIjI4MnV}#
+ #{ids _85hotwsCta0JfYIjI4MnW}#
+ #{vars _85hotwsCta0JfYIjI4MnX}#
+ #{val-exps _85hotwsCta0JfYIjI4MnY}#
+ #{body-exp _85hotwsCta0JfYIjI4MnZ}#)))))
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Mnz}#)
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4Mnz}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4Mnz}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 0)
+ 'syntax-object)
#f)
#f)
- (#{source-annotation 2736}#
- (vector-ref #{x 13911}# 1))
- (if (pair? #{x 13911}#)
- (let ((#{props 13926}# (source-properties #{x 13911}#)))
- (if (pair? #{props 13926}#) #{props 13926}# #f))
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 1))
+ (if (pair? #{x _85hotwsCta0JfYIjI4Mnz}#)
+ (let ((#{props _85hotwsCta0JfYIjI4MoC}#
+ (source-properties #{x _85hotwsCta0JfYIjI4Mnz}#)))
+ (if (pair? #{props _85hotwsCta0JfYIjI4MoC}#)
+ #{props _85hotwsCta0JfYIjI4MoC}#
+ #f))
#f))))
- (#{extend-env 2737}#
- (lambda (#{labels 13928}# #{bindings 13929}# #{r 13930}#)
- (if (null? #{labels 13928}#)
- #{r 13930}#
- (#{extend-env 2737}#
- (cdr #{labels 13928}#)
- (cdr #{bindings 13929}#)
- (cons (cons (car #{labels 13928}#)
- (car #{bindings 13929}#))
- #{r 13930}#)))))
- (#{extend-var-env 2738}#
- (lambda (#{labels 13931}# #{vars 13932}# #{r 13933}#)
- (if (null? #{labels 13931}#)
- #{r 13933}#
- (#{extend-var-env 2738}#
- (cdr #{labels 13931}#)
- (cdr #{vars 13932}#)
- (cons (cons (car #{labels 13931}#)
- (cons 'lexical (car #{vars 13932}#)))
- #{r 13933}#)))))
- (#{macros-only-env 2739}#
- (lambda (#{r 13934}#)
- (if (null? #{r 13934}#)
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ (lambda (#{labels _85hotwsCta0JfYIjI4MoE}#
+ #{bindings _85hotwsCta0JfYIjI4MoF}#
+ #{r _85hotwsCta0JfYIjI4MoG}#)
+ (if (null? #{labels _85hotwsCta0JfYIjI4MoE}#)
+ #{r _85hotwsCta0JfYIjI4MoG}#
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ (cdr #{labels _85hotwsCta0JfYIjI4MoE}#)
+ (cdr #{bindings _85hotwsCta0JfYIjI4MoF}#)
+ (cons (cons (car #{labels _85hotwsCta0JfYIjI4MoE}#)
+ (car #{bindings _85hotwsCta0JfYIjI4MoF}#))
+ #{r _85hotwsCta0JfYIjI4MoG}#)))))
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ (lambda (#{labels _85hotwsCta0JfYIjI4MoH}#
+ #{vars _85hotwsCta0JfYIjI4MoI}#
+ #{r _85hotwsCta0JfYIjI4MoJ}#)
+ (if (null? #{labels _85hotwsCta0JfYIjI4MoH}#)
+ #{r _85hotwsCta0JfYIjI4MoJ}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ (cdr #{labels _85hotwsCta0JfYIjI4MoH}#)
+ (cdr #{vars _85hotwsCta0JfYIjI4MoI}#)
+ (cons (cons (car #{labels _85hotwsCta0JfYIjI4MoH}#)
+ (cons 'lexical
+ (car #{vars _85hotwsCta0JfYIjI4MoI}#)))
+ #{r _85hotwsCta0JfYIjI4MoJ}#)))))
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ (lambda (#{r _85hotwsCta0JfYIjI4MoK}#)
+ (if (null? #{r _85hotwsCta0JfYIjI4MoK}#)
'()
- (let ((#{a 13935}# (car #{r 13934}#)))
- (if (eq? (car (cdr #{a 13935}#)) 'macro)
- (cons #{a 13935}#
- (#{macros-only-env 2739}# (cdr #{r 13934}#)))
- (#{macros-only-env 2739}# (cdr #{r 13934}#)))))))
- (#{global-extend 2741}#
- (lambda (#{type 13937}# #{sym 13938}# #{val 13939}#)
+ (let ((#{a _85hotwsCta0JfYIjI4MoL}#
+ (car #{r _85hotwsCta0JfYIjI4MoK}#)))
+ (if (eq? (car (cdr #{a _85hotwsCta0JfYIjI4MoL}#))
+ 'macro)
+ (cons #{a _85hotwsCta0JfYIjI4MoL}#
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ (cdr #{r _85hotwsCta0JfYIjI4MoK}#)))
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ (cdr #{r _85hotwsCta0JfYIjI4MoK}#)))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
+ (lambda (#{type _85hotwsCta0JfYIjI4MoN}#
+ #{sym _85hotwsCta0JfYIjI4MoO}#
+ #{val _85hotwsCta0JfYIjI4MoP}#)
(module-define!
(current-module)
- #{sym 13938}#
+ #{sym _85hotwsCta0JfYIjI4MoO}#
(make-syntax-transformer
- #{sym 13938}#
- #{type 13937}#
- #{val 13939}#))))
- (#{id? 2743}#
- (lambda (#{x 8002}#)
- (if (symbol? #{x 8002}#)
+ #{sym _85hotwsCta0JfYIjI4MoO}#
+ #{type _85hotwsCta0JfYIjI4MoN}#
+ #{val _85hotwsCta0JfYIjI4MoP}#))))
+ (#{id? _85hotwsCta0JfYIjI4J3n}#
+ (lambda (#{x _85hotwsCta0JfYIjI4LJz}#)
+ (if (symbol? #{x _85hotwsCta0JfYIjI4LJz}#)
#t
- (if (if (vector? #{x 8002}#)
- (if (= (vector-length #{x 8002}#) 4)
- (eq? (vector-ref #{x 8002}# 0) 'syntax-object)
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4LJz}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4LJz}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 8002}# 1))
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 1))
#f))))
- (#{gen-labels 2746}#
- (lambda (#{ls 13952}#)
- (if (null? #{ls 13952}#)
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ (lambda (#{ls _85hotwsCta0JfYIjI4Moc}#)
+ (if (null? #{ls _85hotwsCta0JfYIjI4Moc}#)
'()
- (cons (#{gen-label 2745}#)
- (#{gen-labels 2746}# (cdr #{ls 13952}#))))))
- (#{make-binding-wrap 2757}#
- (lambda (#{ids 13953}# #{labels 13954}# #{w 13955}#)
- (if (null? #{ids 13953}#)
- #{w 13955}#
- (cons (car #{w 13955}#)
- (cons (let ((#{labelvec 13956}#
- (list->vector #{labels 13954}#)))
- (let ((#{n 13957}#
- (vector-length #{labelvec 13956}#)))
- (let ((#{symnamevec 13958}#
- (make-vector #{n 13957}#))
- (#{marksvec 13959}#
- (make-vector #{n 13957}#)))
+ (cons (#{gen-label _85hotwsCta0JfYIjI4J3p}#)
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ (cdr #{ls _85hotwsCta0JfYIjI4Moc}#))))))
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ (lambda (#{ids _85hotwsCta0JfYIjI4Mod}#
+ #{labels _85hotwsCta0JfYIjI4Moe}#
+ #{w _85hotwsCta0JfYIjI4Mof}#)
+ (if (null? #{ids _85hotwsCta0JfYIjI4Mod}#)
+ #{w _85hotwsCta0JfYIjI4Mof}#
+ (cons (car #{w _85hotwsCta0JfYIjI4Mof}#)
+ (cons (let ((#{labelvec _85hotwsCta0JfYIjI4Mog}#
+ (list->vector
+ #{labels _85hotwsCta0JfYIjI4Moe}#)))
+ (let ((#{n _85hotwsCta0JfYIjI4Moh}#
+ (vector-length
+ #{labelvec _85hotwsCta0JfYIjI4Mog}#)))
+ (let ((#{symnamevec _85hotwsCta0JfYIjI4Moi}#
+ (make-vector #{n _85hotwsCta0JfYIjI4Moh}#))
+ (#{marksvec _85hotwsCta0JfYIjI4Moj}#
+ (make-vector #{n _85hotwsCta0JfYIjI4Moh}#)))
(begin
(letrec*
- ((#{f 13960}#
- (lambda (#{ids 13963}# #{i 13964}#)
- (if (not (null? #{ids 13963}#))
+ ((#{f _85hotwsCta0JfYIjI4Mok}#
+ (lambda (#{ids _85hotwsCta0JfYIjI4Mon}#
+ #{i _85hotwsCta0JfYIjI4Moo}#)
+ (if (not (null? #{ids _85hotwsCta0JfYIjI4Mon}#))
(call-with-values
(lambda ()
- (let ((#{x 13967}#
- (car #{ids 13963}#)))
- (if (if (vector? #{x 13967}#)
+ (let ((#{x _85hotwsCta0JfYIjI4Mor}#
+ (car #{ids _85hotwsCta0JfYIjI4Mon}#)))
+ (if (if (vector?
+ #{x _85hotwsCta0JfYIjI4Mor}#)
(if (= (vector-length
- #{x 13967}#)
+ #{x _85hotwsCta0JfYIjI4Mor}#)
4)
(eq? (vector-ref
- #{x 13967}#
+ #{x _85hotwsCta0JfYIjI4Mor}#
0)
'syntax-object)
#f)
#f)
(values
- (vector-ref #{x 13967}# 1)
- (let ((#{m1 13983}#
- (car #{w 13955}#))
- (#{m2 13984}#
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4Mor}#
+ 1)
+ (let ((#{m1 _85hotwsCta0JfYIjI4Mo7}#
+ (car #{w _85hotwsCta0JfYIjI4Mof}#))
+ (#{m2 _85hotwsCta0JfYIjI4Mo8}#
(car (vector-ref
- #{x 13967}#
+ #{x _85hotwsCta0JfYIjI4Mor}#
2))))
- (if (null? #{m2 13984}#)
- #{m1 13983}#
+ (if (null? #{m2 _85hotwsCta0JfYIjI4Mo8}#)
+ #{m1 _85hotwsCta0JfYIjI4Mo7}#
(append
- #{m1 13983}#
- #{m2 13984}#))))
+ #{m1 _85hotwsCta0JfYIjI4Mo7}#
+ #{m2 _85hotwsCta0JfYIjI4Mo8}#))))
(values
- #{x 13967}#
- (car #{w 13955}#)))))
- (lambda (#{symname 14004}#
- #{marks 14005}#)
+ #{x _85hotwsCta0JfYIjI4Mor}#
+ (car #{w _85hotwsCta0JfYIjI4Mof}#)))))
+ (lambda (#{symname _85hotwsCta0JfYIjI4MpQ}#
+ #{marks _85hotwsCta0JfYIjI4MpR}#)
(begin
(vector-set!
- #{symnamevec 13958}#
- #{i 13964}#
- #{symname 14004}#)
+ #{symnamevec _85hotwsCta0JfYIjI4Moi}#
+ #{i _85hotwsCta0JfYIjI4Moo}#
+ #{symname _85hotwsCta0JfYIjI4MpQ}#)
(vector-set!
- #{marksvec 13959}#
- #{i 13964}#
- #{marks 14005}#)
- (#{f 13960}#
- (cdr #{ids 13963}#)
- (#{1+}# #{i 13964}#)))))))))
- (#{f 13960}# #{ids 13953}# 0))
+ #{marksvec _85hotwsCta0JfYIjI4Moj}#
+ #{i _85hotwsCta0JfYIjI4Moo}#
+ #{marks _85hotwsCta0JfYIjI4MpR}#)
+ (#{f _85hotwsCta0JfYIjI4Mok}#
+ (cdr #{ids _85hotwsCta0JfYIjI4Mon}#)
+ (#{1+}# #{i _85hotwsCta0JfYIjI4Moo}#)))))))))
+ (#{f _85hotwsCta0JfYIjI4Mok}#
+ #{ids _85hotwsCta0JfYIjI4Mod}#
+ 0))
(vector
'ribcage
- #{symnamevec 13958}#
- #{marksvec 13959}#
- #{labelvec 13956}#)))))
- (cdr #{w 13955}#))))))
- (#{join-wraps 2759}#
- (lambda (#{w1 14014}# #{w2 14015}#)
- (let ((#{m1 14016}# (car #{w1 14014}#))
- (#{s1 14017}# (cdr #{w1 14014}#)))
- (if (null? #{m1 14016}#)
- (if (null? #{s1 14017}#)
- #{w2 14015}#
- (cons (car #{w2 14015}#)
- (let ((#{m2 14024}# (cdr #{w2 14015}#)))
- (if (null? #{m2 14024}#)
- #{s1 14017}#
- (append #{s1 14017}# #{m2 14024}#)))))
- (cons (let ((#{m2 14033}# (car #{w2 14015}#)))
- (if (null? #{m2 14033}#)
- #{m1 14016}#
- (append #{m1 14016}# #{m2 14033}#)))
- (let ((#{m2 14042}# (cdr #{w2 14015}#)))
- (if (null? #{m2 14042}#)
- #{s1 14017}#
- (append #{s1 14017}# #{m2 14042}#))))))))
- (#{same-marks? 2761}#
- (lambda (#{x 14047}# #{y 14048}#)
- (if (eq? #{x 14047}# #{y 14048}#)
- (eq? #{x 14047}# #{y 14048}#)
- (if (not (null? #{x 14047}#))
- (if (not (null? #{y 14048}#))
- (if (eq? (car #{x 14047}#) (car #{y 14048}#))
- (#{same-marks? 2761}#
- (cdr #{x 14047}#)
- (cdr #{y 14048}#))
+ #{symnamevec _85hotwsCta0JfYIjI4Moi}#
+ #{marksvec _85hotwsCta0JfYIjI4Moj}#
+ #{labelvec _85hotwsCta0JfYIjI4Mog}#)))))
+ (cdr #{w _85hotwsCta0JfYIjI4Mof}#))))))
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ (lambda (#{w1 _85hotwsCta0JfYIjI4Mpa}#
+ #{w2 _85hotwsCta0JfYIjI4Mpb}#)
+ (let ((#{m1 _85hotwsCta0JfYIjI4Mpc}#
+ (car #{w1 _85hotwsCta0JfYIjI4Mpa}#))
+ (#{s1 _85hotwsCta0JfYIjI4Mpd}#
+ (cdr #{w1 _85hotwsCta0JfYIjI4Mpa}#)))
+ (if (null? #{m1 _85hotwsCta0JfYIjI4Mpc}#)
+ (if (null? #{s1 _85hotwsCta0JfYIjI4Mpd}#)
+ #{w2 _85hotwsCta0JfYIjI4Mpb}#
+ (cons (car #{w2 _85hotwsCta0JfYIjI4Mpb}#)
+ (let ((#{m2 _85hotwsCta0JfYIjI4Mpk}#
+ (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#)))
+ (if (null? #{m2 _85hotwsCta0JfYIjI4Mpk}#)
+ #{s1 _85hotwsCta0JfYIjI4Mpd}#
+ (append
+ #{s1 _85hotwsCta0JfYIjI4Mpd}#
+ #{m2 _85hotwsCta0JfYIjI4Mpk}#)))))
+ (cons (let ((#{m2 _85hotwsCta0JfYIjI4Mpt}#
+ (car #{w2 _85hotwsCta0JfYIjI4Mpb}#)))
+ (if (null? #{m2 _85hotwsCta0JfYIjI4Mpt}#)
+ #{m1 _85hotwsCta0JfYIjI4Mpc}#
+ (append
+ #{m1 _85hotwsCta0JfYIjI4Mpc}#
+ #{m2 _85hotwsCta0JfYIjI4Mpt}#)))
+ (let ((#{m2 _85hotwsCta0JfYIjI4Mp2}#
+ (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#)))
+ (if (null? #{m2 _85hotwsCta0JfYIjI4Mp2}#)
+ #{s1 _85hotwsCta0JfYIjI4Mpd}#
+ (append
+ #{s1 _85hotwsCta0JfYIjI4Mpd}#
+ #{m2 _85hotwsCta0JfYIjI4Mp2}#))))))))
+ (#{same-marks? _85hotwsCta0JfYIjI4J35}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Mp7}#
+ #{y _85hotwsCta0JfYIjI4Mp8}#)
+ (if (eq? #{x _85hotwsCta0JfYIjI4Mp7}#
+ #{y _85hotwsCta0JfYIjI4Mp8}#)
+ (eq? #{x _85hotwsCta0JfYIjI4Mp7}#
+ #{y _85hotwsCta0JfYIjI4Mp8}#)
+ (if (not (null? #{x _85hotwsCta0JfYIjI4Mp7}#))
+ (if (not (null? #{y _85hotwsCta0JfYIjI4Mp8}#))
+ (if (eq? (car #{x _85hotwsCta0JfYIjI4Mp7}#)
+ (car #{y _85hotwsCta0JfYIjI4Mp8}#))
+ (#{same-marks? _85hotwsCta0JfYIjI4J35}#
+ (cdr #{x _85hotwsCta0JfYIjI4Mp7}#)
+ (cdr #{y _85hotwsCta0JfYIjI4Mp8}#))
#f)
#f)
#f))))
- (#{id-var-name 2762}#
- (lambda (#{id 14056}# #{w 14057}#)
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ (lambda (#{id _85hotwsCta0JfYIjI4MqE}#
+ #{w _85hotwsCta0JfYIjI4MqF}#)
(letrec*
- ((#{search 14058}#
- (lambda (#{sym 14119}# #{subst 14120}# #{marks 14121}#)
- (if (null? #{subst 14120}#)
- (values #f #{marks 14121}#)
- (let ((#{fst 14122}# (car #{subst 14120}#)))
- (if (eq? #{fst 14122}# 'shift)
- (#{search 14058}#
- #{sym 14119}#
- (cdr #{subst 14120}#)
- (cdr #{marks 14121}#))
- (let ((#{symnames 14124}# (vector-ref #{fst 14122}# 1)))
- (if (vector? #{symnames 14124}#)
- (let ((#{n 14136}#
- (vector-length #{symnames 14124}#)))
+ ((#{search _85hotwsCta0JfYIjI4MqG}#
+ (lambda (#{sym _85hotwsCta0JfYIjI4MrD}#
+ #{subst _85hotwsCta0JfYIjI4MrE}#
+ #{marks _85hotwsCta0JfYIjI4MrF}#)
+ (if (null? #{subst _85hotwsCta0JfYIjI4MrE}#)
+ (values #f #{marks _85hotwsCta0JfYIjI4MrF}#)
+ (let ((#{fst _85hotwsCta0JfYIjI4MrG}#
+ (car #{subst _85hotwsCta0JfYIjI4MrE}#)))
+ (if (eq? #{fst _85hotwsCta0JfYIjI4MrG}# 'shift)
+ (#{search _85hotwsCta0JfYIjI4MqG}#
+ #{sym _85hotwsCta0JfYIjI4MrD}#
+ (cdr #{subst _85hotwsCta0JfYIjI4MrE}#)
+ (cdr #{marks _85hotwsCta0JfYIjI4MrF}#))
+ (let ((#{symnames _85hotwsCta0JfYIjI4MrI}#
+ (vector-ref #{fst _85hotwsCta0JfYIjI4MrG}# 1)))
+ (if (vector? #{symnames _85hotwsCta0JfYIjI4MrI}#)
+ (let ((#{n _85hotwsCta0JfYIjI4MrU}#
+ (vector-length
+ #{symnames _85hotwsCta0JfYIjI4MrI}#)))
(letrec*
- ((#{f 14137}#
- (lambda (#{i 14139}#)
- (if (= #{i 14139}# #{n 14136}#)
- (#{search 14058}#
- #{sym 14119}#
- (cdr #{subst 14120}#)
- #{marks 14121}#)
+ ((#{f _85hotwsCta0JfYIjI4MrV}#
+ (lambda (#{i _85hotwsCta0JfYIjI4MrX}#)
+ (if (= #{i _85hotwsCta0JfYIjI4MrX}#
+ #{n _85hotwsCta0JfYIjI4MrU}#)
+ (#{search _85hotwsCta0JfYIjI4MqG}#
+ #{sym _85hotwsCta0JfYIjI4MrD}#
+ (cdr #{subst _85hotwsCta0JfYIjI4MrE}#)
+ #{marks _85hotwsCta0JfYIjI4MrF}#)
(if (if (eq? (vector-ref
- #{symnames 14124}#
- #{i 14139}#)
- #{sym 14119}#)
- (#{same-marks? 2761}#
- #{marks 14121}#
+ #{symnames _85hotwsCta0JfYIjI4MrI}#
+ #{i _85hotwsCta0JfYIjI4MrX}#)
+ #{sym _85hotwsCta0JfYIjI4MrD}#)
+ (#{same-marks? _85hotwsCta0JfYIjI4J35}#
+ #{marks _85hotwsCta0JfYIjI4MrF}#
(vector-ref
- (vector-ref #{fst 14122}# 2)
- #{i 14139}#))
+ (vector-ref
+ #{fst _85hotwsCta0JfYIjI4MrG}#
+ 2)
+ #{i _85hotwsCta0JfYIjI4MrX}#))
#f)
(values
(vector-ref
- (vector-ref #{fst 14122}# 3)
- #{i 14139}#)
- #{marks 14121}#)
- (#{f 14137}# (#{1+}# #{i 14139}#)))))))
- (#{f 14137}# 0)))
+ (vector-ref
+ #{fst _85hotwsCta0JfYIjI4MrG}#
+ 3)
+ #{i _85hotwsCta0JfYIjI4MrX}#)
+ #{marks _85hotwsCta0JfYIjI4MrF}#)
+ (#{f _85hotwsCta0JfYIjI4MrV}#
+ (#{1+}# #{i _85hotwsCta0JfYIjI4MrX}#)))))))
+ (#{f _85hotwsCta0JfYIjI4MrV}# 0)))
(letrec*
- ((#{f 14172}#
- (lambda (#{symnames 14174}# #{i 14175}#)
- (if (null? #{symnames 14174}#)
- (#{search 14058}#
- #{sym 14119}#
- (cdr #{subst 14120}#)
- #{marks 14121}#)
- (if (if (eq? (car #{symnames 14174}#)
- #{sym 14119}#)
- (#{same-marks? 2761}#
- #{marks 14121}#
+ ((#{f _85hotwsCta0JfYIjI4Mr4}#
+ (lambda (#{symnames _85hotwsCta0JfYIjI4Mr6}#
+ #{i _85hotwsCta0JfYIjI4Mr7}#)
+ (if (null? #{symnames _85hotwsCta0JfYIjI4Mr6}#)
+ (#{search _85hotwsCta0JfYIjI4MqG}#
+ #{sym _85hotwsCta0JfYIjI4MrD}#
+ (cdr #{subst _85hotwsCta0JfYIjI4MrE}#)
+ #{marks _85hotwsCta0JfYIjI4MrF}#)
+ (if (if (eq? (car #{symnames _85hotwsCta0JfYIjI4Mr6}#)
+ #{sym _85hotwsCta0JfYIjI4MrD}#)
+ (#{same-marks? _85hotwsCta0JfYIjI4J35}#
+ #{marks _85hotwsCta0JfYIjI4MrF}#
(list-ref
- (vector-ref #{fst 14122}# 2)
- #{i 14175}#))
+ (vector-ref
+ #{fst _85hotwsCta0JfYIjI4MrG}#
+ 2)
+ #{i _85hotwsCta0JfYIjI4Mr7}#))
#f)
(values
(list-ref
- (vector-ref #{fst 14122}# 3)
- #{i 14175}#)
- #{marks 14121}#)
- (#{f 14172}#
- (cdr #{symnames 14174}#)
- (#{1+}# #{i 14175}#)))))))
- (#{f 14172}# #{symnames 14124}# 0))))))))))
- (if (symbol? #{id 14056}#)
- (let ((#{t 14061}#
- (#{search 14058}#
- #{id 14056}#
- (cdr #{w 14057}#)
- (car #{w 14057}#))))
- (if #{t 14061}# #{t 14061}# #{id 14056}#))
- (if (if (vector? #{id 14056}#)
- (if (= (vector-length #{id 14056}#) 4)
- (eq? (vector-ref #{id 14056}# 0) 'syntax-object)
+ (vector-ref
+ #{fst _85hotwsCta0JfYIjI4MrG}#
+ 3)
+ #{i _85hotwsCta0JfYIjI4Mr7}#)
+ #{marks _85hotwsCta0JfYIjI4MrF}#)
+ (#{f _85hotwsCta0JfYIjI4Mr4}#
+ (cdr #{symnames _85hotwsCta0JfYIjI4Mr6}#)
+ (#{1+}# #{i _85hotwsCta0JfYIjI4Mr7}#)))))))
+ (#{f _85hotwsCta0JfYIjI4Mr4}#
+ #{symnames _85hotwsCta0JfYIjI4MrI}#
+ 0))))))))))
+ (if (symbol? #{id _85hotwsCta0JfYIjI4MqE}#)
+ (let ((#{t _85hotwsCta0JfYIjI4MqJ}#
+ (#{search _85hotwsCta0JfYIjI4MqG}#
+ #{id _85hotwsCta0JfYIjI4MqE}#
+ (cdr #{w _85hotwsCta0JfYIjI4MqF}#)
+ (car #{w _85hotwsCta0JfYIjI4MqF}#))))
+ (if #{t _85hotwsCta0JfYIjI4MqJ}#
+ #{t _85hotwsCta0JfYIjI4MqJ}#
+ #{id _85hotwsCta0JfYIjI4MqE}#))
+ (if (if (vector? #{id _85hotwsCta0JfYIjI4MqE}#)
+ (if (= (vector-length #{id _85hotwsCta0JfYIjI4MqE}#)
+ 4)
+ (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{id 14076}# (vector-ref #{id 14056}# 1))
- (#{w1 14077}# (vector-ref #{id 14056}# 2)))
- (let ((#{marks 14078}#
- (let ((#{m1 14088}# (car #{w 14057}#))
- (#{m2 14089}# (car #{w1 14077}#)))
- (if (null? #{m2 14089}#)
- #{m1 14088}#
- (append #{m1 14088}# #{m2 14089}#)))))
+ (let ((#{id _85hotwsCta0JfYIjI4MqY}#
+ (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 1))
+ (#{w1 _85hotwsCta0JfYIjI4MqZ}#
+ (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 2)))
+ (let ((#{marks _85hotwsCta0JfYIjI4Mqa}#
+ (let ((#{m1 _85hotwsCta0JfYIjI4Mqk}#
+ (car #{w _85hotwsCta0JfYIjI4MqF}#))
+ (#{m2 _85hotwsCta0JfYIjI4Mql}#
+ (car #{w1 _85hotwsCta0JfYIjI4MqZ}#)))
+ (if (null? #{m2 _85hotwsCta0JfYIjI4Mql}#)
+ #{m1 _85hotwsCta0JfYIjI4Mqk}#
+ (append
+ #{m1 _85hotwsCta0JfYIjI4Mqk}#
+ #{m2 _85hotwsCta0JfYIjI4Mql}#)))))
(call-with-values
(lambda ()
- (#{search 14058}#
- #{id 14076}#
- (cdr #{w 14057}#)
- #{marks 14078}#))
- (lambda (#{new-id 14105}# #{marks 14106}#)
- (if #{new-id 14105}#
- #{new-id 14105}#
- (let ((#{t 14114}#
- (#{search 14058}#
- #{id 14076}#
- (cdr #{w1 14077}#)
- #{marks 14106}#)))
- (if #{t 14114}# #{t 14114}# #{id 14076}#)))))))
+ (#{search _85hotwsCta0JfYIjI4MqG}#
+ #{id _85hotwsCta0JfYIjI4MqY}#
+ (cdr #{w _85hotwsCta0JfYIjI4MqF}#)
+ #{marks _85hotwsCta0JfYIjI4Mqa}#))
+ (lambda (#{new-id _85hotwsCta0JfYIjI4Mq1}#
+ #{marks _85hotwsCta0JfYIjI4Mq2}#)
+ (if #{new-id _85hotwsCta0JfYIjI4Mq1}#
+ #{new-id _85hotwsCta0JfYIjI4Mq1}#
+ (let ((#{t _85hotwsCta0JfYIjI4Mq$}#
+ (#{search _85hotwsCta0JfYIjI4MqG}#
+ #{id _85hotwsCta0JfYIjI4MqY}#
+ (cdr #{w1 _85hotwsCta0JfYIjI4MqZ}#)
+ #{marks _85hotwsCta0JfYIjI4Mq2}#)))
+ (if #{t _85hotwsCta0JfYIjI4Mq$}#
+ #{t _85hotwsCta0JfYIjI4Mq$}#
+ #{id _85hotwsCta0JfYIjI4MqY}#)))))))
(syntax-violation
'id-var-name
"invalid id"
- #{id 14056}#))))))
- (#{valid-bound-ids? 2768}#
- (lambda (#{ids 14197}#)
+ #{id _85hotwsCta0JfYIjI4MqE}#))))))
+ (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}#
+ (lambda (#{w _85hotwsCta0JfYIjI4MsR}#
+ #{mod _85hotwsCta0JfYIjI4MsS}#)
+ (letrec*
+ ((#{scan _85hotwsCta0JfYIjI4MsT}#
+ (lambda (#{subst _85hotwsCta0JfYIjI4MsY}#
+ #{results _85hotwsCta0JfYIjI4MsZ}#)
+ (if (null? #{subst _85hotwsCta0JfYIjI4MsY}#)
+ #{results _85hotwsCta0JfYIjI4MsZ}#
+ (let ((#{fst _85hotwsCta0JfYIjI4Msa}#
+ (car #{subst _85hotwsCta0JfYIjI4MsY}#)))
+ (if (eq? #{fst _85hotwsCta0JfYIjI4Msa}# 'shift)
+ (#{scan _85hotwsCta0JfYIjI4MsT}#
+ (cdr #{subst _85hotwsCta0JfYIjI4MsY}#)
+ #{results _85hotwsCta0JfYIjI4MsZ}#)
+ (let ((#{symnames _85hotwsCta0JfYIjI4Msc}#
+ (vector-ref #{fst _85hotwsCta0JfYIjI4Msa}# 1))
+ (#{marks _85hotwsCta0JfYIjI4Msd}#
+ (vector-ref #{fst _85hotwsCta0JfYIjI4Msa}# 2)))
+ (if (vector? #{symnames _85hotwsCta0JfYIjI4Msc}#)
+ (#{scan-vector-rib _85hotwsCta0JfYIjI4MsV}#
+ #{subst _85hotwsCta0JfYIjI4MsY}#
+ #{symnames _85hotwsCta0JfYIjI4Msc}#
+ #{marks _85hotwsCta0JfYIjI4Msd}#
+ #{results _85hotwsCta0JfYIjI4MsZ}#)
+ (#{scan-list-rib _85hotwsCta0JfYIjI4MsU}#
+ #{subst _85hotwsCta0JfYIjI4MsY}#
+ #{symnames _85hotwsCta0JfYIjI4Msc}#
+ #{marks _85hotwsCta0JfYIjI4Msd}#
+ #{results _85hotwsCta0JfYIjI4MsZ}#))))))))
+ (#{scan-list-rib _85hotwsCta0JfYIjI4MsU}#
+ (lambda (#{subst _85hotwsCta0JfYIjI4Mt@}#
+ #{symnames _85hotwsCta0JfYIjI4MuA}#
+ #{marks _85hotwsCta0JfYIjI4MuB}#
+ #{results _85hotwsCta0JfYIjI4MuC}#)
+ (letrec*
+ ((#{f _85hotwsCta0JfYIjI4MuD}#
+ (lambda (#{symnames _85hotwsCta0JfYIjI4Mvn}#
+ #{marks _85hotwsCta0JfYIjI4Mvo}#
+ #{results _85hotwsCta0JfYIjI4Mvp}#)
+ (if (null? #{symnames _85hotwsCta0JfYIjI4Mvn}#)
+ (#{scan _85hotwsCta0JfYIjI4MsT}#
+ (cdr #{subst _85hotwsCta0JfYIjI4Mt@}#)
+ #{results _85hotwsCta0JfYIjI4Mvp}#)
+ (#{f _85hotwsCta0JfYIjI4MuD}#
+ (cdr #{symnames _85hotwsCta0JfYIjI4Mvn}#)
+ (cdr #{marks _85hotwsCta0JfYIjI4Mvo}#)
+ (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (car #{symnames _85hotwsCta0JfYIjI4Mvn}#)
+ (let ((#{w _85hotwsCta0JfYIjI4Mvx}#
+ (cons (car #{marks _85hotwsCta0JfYIjI4Mvo}#)
+ #{subst _85hotwsCta0JfYIjI4Mt@}#)))
+ (cons (cons #f
+ (car #{w _85hotwsCta0JfYIjI4Mvx}#))
+ (cons 'shift
+ (cdr #{w _85hotwsCta0JfYIjI4Mvx}#))))
+ #{mod _85hotwsCta0JfYIjI4MsS}#)
+ #{results _85hotwsCta0JfYIjI4Mvp}#))))))
+ (#{f _85hotwsCta0JfYIjI4MuD}#
+ #{symnames _85hotwsCta0JfYIjI4MuA}#
+ #{marks _85hotwsCta0JfYIjI4MuB}#
+ #{results _85hotwsCta0JfYIjI4MuC}#))))
+ (#{scan-vector-rib _85hotwsCta0JfYIjI4MsV}#
+ (lambda (#{subst _85hotwsCta0JfYIjI4Mvy}#
+ #{symnames _85hotwsCta0JfYIjI4Mvz}#
+ #{marks _85hotwsCta0JfYIjI4Mv0}#
+ #{results _85hotwsCta0JfYIjI4Mv1}#)
+ (let ((#{n _85hotwsCta0JfYIjI4Mv2}#
+ (vector-length
+ #{symnames _85hotwsCta0JfYIjI4Mvz}#)))
+ (letrec*
+ ((#{f _85hotwsCta0JfYIjI4Mv3}#
+ (lambda (#{i _85hotwsCta0JfYIjI4MxK}#
+ #{results _85hotwsCta0JfYIjI4MxL}#)
+ (if (= #{i _85hotwsCta0JfYIjI4MxK}#
+ #{n _85hotwsCta0JfYIjI4Mv2}#)
+ (#{scan _85hotwsCta0JfYIjI4MsT}#
+ (cdr #{subst _85hotwsCta0JfYIjI4Mvy}#)
+ #{results _85hotwsCta0JfYIjI4MxL}#)
+ (#{f _85hotwsCta0JfYIjI4Mv3}#
+ (#{1+}# #{i _85hotwsCta0JfYIjI4MxK}#)
+ (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (vector-ref
+ #{symnames _85hotwsCta0JfYIjI4Mvz}#
+ #{i _85hotwsCta0JfYIjI4MxK}#)
+ (let ((#{w _85hotwsCta0JfYIjI4MxT}#
+ (cons (vector-ref
+ #{marks _85hotwsCta0JfYIjI4Mv0}#
+ #{i _85hotwsCta0JfYIjI4MxK}#)
+ #{subst _85hotwsCta0JfYIjI4Mvy}#)))
+ (cons (cons #f
+ (car #{w _85hotwsCta0JfYIjI4MxT}#))
+ (cons 'shift
+ (cdr #{w _85hotwsCta0JfYIjI4MxT}#))))
+ #{mod _85hotwsCta0JfYIjI4MsS}#)
+ #{results _85hotwsCta0JfYIjI4MxL}#))))))
+ (#{f _85hotwsCta0JfYIjI4Mv3}#
+ 0
+ #{results _85hotwsCta0JfYIjI4Mv1}#))))))
+ (#{scan _85hotwsCta0JfYIjI4MsT}#
+ (cdr #{w _85hotwsCta0JfYIjI4MsR}#)
+ '()))))
+ (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ (lambda (#{ids _85hotwsCta0JfYIjI4MxU}#)
(if (letrec*
- ((#{all-ids? 14198}#
- (lambda (#{ids 14360}#)
- (if (null? #{ids 14360}#)
- (null? #{ids 14360}#)
- (if (let ((#{x 14371}# (car #{ids 14360}#)))
- (if (symbol? #{x 14371}#)
+ ((#{all-ids? _85hotwsCta0JfYIjI4MxV}#
+ (lambda (#{ids _85hotwsCta0JfYIjI4Mz3}#)
+ (if (null? #{ids _85hotwsCta0JfYIjI4Mz3}#)
+ (null? #{ids _85hotwsCta0JfYIjI4Mz3}#)
+ (if (let ((#{x _85hotwsCta0JfYIjI4M0C}#
+ (car #{ids _85hotwsCta0JfYIjI4Mz3}#)))
+ (if (symbol? #{x _85hotwsCta0JfYIjI4M0C}#)
#t
- (if (if (vector? #{x 14371}#)
- (if (= (vector-length #{x 14371}#) 4)
- (eq? (vector-ref #{x 14371}# 0)
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4M0C}#)
+ (if (= (vector-length
+ #{x _85hotwsCta0JfYIjI4M0C}#)
+ 4)
+ (eq? (vector-ref
+ #{x _85hotwsCta0JfYIjI4M0C}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 14371}# 1))
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4M0C}# 1))
#f)))
- (#{all-ids? 14198}# (cdr #{ids 14360}#))
+ (#{all-ids? _85hotwsCta0JfYIjI4MxV}#
+ (cdr #{ids _85hotwsCta0JfYIjI4Mz3}#))
#f)))))
- (#{all-ids? 14198}# #{ids 14197}#))
- (#{distinct-bound-ids? 2769}# #{ids 14197}#)
+ (#{all-ids? _85hotwsCta0JfYIjI4MxV}#
+ #{ids _85hotwsCta0JfYIjI4MxU}#))
+ (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
+ #{ids _85hotwsCta0JfYIjI4MxU}#)
#f)))
- (#{distinct-bound-ids? 2769}#
- (lambda (#{ids 14499}#)
+ (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
+ (lambda (#{ids _85hotwsCta0JfYIjI4M2C}#)
(letrec*
- ((#{distinct? 14500}#
- (lambda (#{ids 14612}#)
- (if (null? #{ids 14612}#)
- (null? #{ids 14612}#)
- (if (not (#{bound-id-member? 2770}#
- (car #{ids 14612}#)
- (cdr #{ids 14612}#)))
- (#{distinct? 14500}# (cdr #{ids 14612}#))
+ ((#{distinct? _85hotwsCta0JfYIjI4M2D}#
+ (lambda (#{ids _85hotwsCta0JfYIjI4M3z}#)
+ (if (null? #{ids _85hotwsCta0JfYIjI4M3z}#)
+ (null? #{ids _85hotwsCta0JfYIjI4M3z}#)
+ (if (not (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
+ (car #{ids _85hotwsCta0JfYIjI4M3z}#)
+ (cdr #{ids _85hotwsCta0JfYIjI4M3z}#)))
+ (#{distinct? _85hotwsCta0JfYIjI4M2D}#
+ (cdr #{ids _85hotwsCta0JfYIjI4M3z}#))
#f)))))
- (#{distinct? 14500}# #{ids 14499}#))))
- (#{bound-id-member? 2770}#
- (lambda (#{x 14822}# #{list 14823}#)
- (if (not (null? #{list 14823}#))
- (let ((#{t 14824}#
- (let ((#{j 14905}# (car #{list 14823}#)))
- (if (if (if (vector? #{x 14822}#)
- (if (= (vector-length #{x 14822}#) 4)
- (eq? (vector-ref #{x 14822}# 0)
+ (#{distinct? _85hotwsCta0JfYIjI4M2D}#
+ #{ids _85hotwsCta0JfYIjI4M2C}#))))
+ (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
+ (lambda (#{x _85hotwsCta0JfYIjI4M7F}#
+ #{list _85hotwsCta0JfYIjI4M7G}#)
+ (if (not (null? #{list _85hotwsCta0JfYIjI4M7G}#))
+ (let ((#{t _85hotwsCta0JfYIjI4M7H}#
+ (let ((#{j _85hotwsCta0JfYIjI4M8Y}#
+ (car #{list _85hotwsCta0JfYIjI4M7G}#)))
+ (if (if (if (vector? #{x _85hotwsCta0JfYIjI4M7F}#)
+ (if (= (vector-length
+ #{x _85hotwsCta0JfYIjI4M7F}#)
+ 4)
+ (eq? (vector-ref
+ #{x _85hotwsCta0JfYIjI4M7F}#
+ 0)
'syntax-object)
#f)
#f)
- (if (vector? #{j 14905}#)
- (if (= (vector-length #{j 14905}#) 4)
- (eq? (vector-ref #{j 14905}# 0) 'syntax-object)
+ (if (vector? #{j _85hotwsCta0JfYIjI4M8Y}#)
+ (if (= (vector-length
+ #{j _85hotwsCta0JfYIjI4M8Y}#)
+ 4)
+ (eq? (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 0)
+ 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 14822}# 1)
- (vector-ref #{j 14905}# 1))
- (#{same-marks? 2761}#
- (car (vector-ref #{x 14822}# 2))
- (car (vector-ref #{j 14905}# 2)))
+ (if (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M7F}# 1)
+ (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 1))
+ (#{same-marks? _85hotwsCta0JfYIjI4J35}#
+ (car (vector-ref #{x _85hotwsCta0JfYIjI4M7F}# 2))
+ (car (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 2)))
#f)
- (eq? #{x 14822}# #{j 14905}#)))))
- (if #{t 14824}#
- #{t 14824}#
- (#{bound-id-member? 2770}#
- #{x 14822}#
- (cdr #{list 14823}#))))
+ (eq? #{x _85hotwsCta0JfYIjI4M7F}#
+ #{j _85hotwsCta0JfYIjI4M8Y}#)))))
+ (if #{t _85hotwsCta0JfYIjI4M7H}#
+ #{t _85hotwsCta0JfYIjI4M7H}#
+ (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
+ #{x _85hotwsCta0JfYIjI4M7F}#
+ (cdr #{list _85hotwsCta0JfYIjI4M7G}#))))
#f)))
- (#{wrap 2771}#
- (lambda (#{x 14949}# #{w 14950}# #{defmod 14951}#)
- (if (if (null? (car #{w 14950}#))
- (null? (cdr #{w 14950}#))
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (lambda (#{x _85hotwsCta0JfYIjI4M9E}#
+ #{w _85hotwsCta0JfYIjI4M9F}#
+ #{defmod _85hotwsCta0JfYIjI4M9G}#)
+ (if (if (null? (car #{w _85hotwsCta0JfYIjI4M9F}#))
+ (null? (cdr #{w _85hotwsCta0JfYIjI4M9F}#))
#f)
- #{x 14949}#
- (if (if (vector? #{x 14949}#)
- (if (= (vector-length #{x 14949}#) 4)
- (eq? (vector-ref #{x 14949}# 0) 'syntax-object)
+ #{x _85hotwsCta0JfYIjI4M9E}#
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4M9E}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4M9E}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{expression 14965}# (vector-ref #{x 14949}# 1))
- (#{wrap 14966}#
- (#{join-wraps 2759}#
- #{w 14950}#
- (vector-ref #{x 14949}# 2)))
- (#{module 14967}# (vector-ref #{x 14949}# 3)))
+ (let ((#{expression _85hotwsCta0JfYIjI4M9U}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 1))
+ (#{wrap _85hotwsCta0JfYIjI4M9V}#
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4M9F}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 2)))
+ (#{module _85hotwsCta0JfYIjI4M9W}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 3)))
(vector
'syntax-object
- #{expression 14965}#
- #{wrap 14966}#
- #{module 14967}#))
- (if (null? #{x 14949}#)
- #{x 14949}#
+ #{expression _85hotwsCta0JfYIjI4M9U}#
+ #{wrap _85hotwsCta0JfYIjI4M9V}#
+ #{module _85hotwsCta0JfYIjI4M9W}#))
+ (if (null? #{x _85hotwsCta0JfYIjI4M9E}#)
+ #{x _85hotwsCta0JfYIjI4M9E}#
(vector
'syntax-object
- #{x 14949}#
- #{w 14950}#
- #{defmod 14951}#))))))
- (#{source-wrap 2772}#
- (lambda (#{x 14984}#
- #{w 14985}#
- #{s 14986}#
- #{defmod 14987}#)
- (#{wrap 2771}#
+ #{x _85hotwsCta0JfYIjI4M9E}#
+ #{w _85hotwsCta0JfYIjI4M9F}#
+ #{defmod _85hotwsCta0JfYIjI4M9G}#))))))
+ (#{source-wrap _85hotwsCta0JfYIjI4J4F}#
+ (lambda (#{x _85hotwsCta0JfYIjI4M9n}#
+ #{w _85hotwsCta0JfYIjI4M9o}#
+ #{s _85hotwsCta0JfYIjI4M9p}#
+ #{defmod _85hotwsCta0JfYIjI4M9q}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{x 14984}#) #{s 14986}# #f)
- (set-source-properties! #{x 14984}# #{s 14986}#))
- #{x 14984}#)
- #{w 14985}#
- #{defmod 14987}#)))
- (#{expand-sequence 2773}#
- (lambda (#{body 24167}#
- #{r 24168}#
- #{w 24169}#
- #{s 24170}#
- #{mod 24171}#)
- (#{build-sequence 2724}#
- #{s 24170}#
+ (if (if (pair? #{x _85hotwsCta0JfYIjI4M9n}#)
+ #{s _85hotwsCta0JfYIjI4M9p}#
+ #f)
+ (set-source-properties!
+ #{x _85hotwsCta0JfYIjI4M9n}#
+ #{s _85hotwsCta0JfYIjI4M9p}#))
+ #{x _85hotwsCta0JfYIjI4M9n}#)
+ #{w _85hotwsCta0JfYIjI4M9o}#
+ #{defmod _85hotwsCta0JfYIjI4M9q}#)))
+ (#{expand-sequence _85hotwsCta0JfYIjI4J4G}#
+ (lambda (#{body _85hotwsCta0JfYIjI4PNH}#
+ #{r _85hotwsCta0JfYIjI4PNI}#
+ #{w _85hotwsCta0JfYIjI4PNJ}#
+ #{s _85hotwsCta0JfYIjI4PNK}#
+ #{mod _85hotwsCta0JfYIjI4PNL}#)
+ (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
+ #{s _85hotwsCta0JfYIjI4PNK}#
(letrec*
- ((#{dobody 24251}#
- (lambda (#{body 24601}#
- #{r 24602}#
- #{w 24603}#
- #{mod 24604}#)
- (if (null? #{body 24601}#)
+ ((#{dobody _85hotwsCta0JfYIjI4POb}#
+ (lambda (#{body _85hotwsCta0JfYIjI4PT5}#
+ #{r _85hotwsCta0JfYIjI4PT6}#
+ #{w _85hotwsCta0JfYIjI4PT7}#
+ #{mod _85hotwsCta0JfYIjI4PT8}#)
+ (if (null? #{body _85hotwsCta0JfYIjI4PT5}#)
'()
- (let ((#{first 24605}#
- (let ((#{e 24609}# (car #{body 24601}#)))
+ (let ((#{first _85hotwsCta0JfYIjI4PT9}#
+ (let ((#{e _85hotwsCta0JfYIjI4PUB}#
+ (car #{body _85hotwsCta0JfYIjI4PT5}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 24609}#
- #{r 24602}#
- #{w 24603}#
- (#{source-annotation 2736}# #{e 24609}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4PUB}#
+ #{r _85hotwsCta0JfYIjI4PT6}#
+ #{w _85hotwsCta0JfYIjI4PT7}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4PUB}#)
#f
- #{mod 24604}#
+ #{mod _85hotwsCta0JfYIjI4PT8}#
#f))
- (lambda (#{type 24616}#
- #{value 24617}#
- #{e 24618}#
- #{w 24619}#
- #{s 24620}#
- #{mod 24621}#)
- (#{expand-expr 2779}#
- #{type 24616}#
- #{value 24617}#
- #{e 24618}#
- #{r 24602}#
- #{w 24619}#
- #{s 24620}#
- #{mod 24621}#))))))
- (cons #{first 24605}#
- (#{dobody 24251}#
- (cdr #{body 24601}#)
- #{r 24602}#
- #{w 24603}#
- #{mod 24604}#)))))))
- (#{dobody 24251}#
- #{body 24167}#
- #{r 24168}#
- #{w 24169}#
- #{mod 24171}#)))))
- (#{expand-top-sequence 2774}#
- (lambda (#{body 15005}#
- #{r 15006}#
- #{w 15007}#
- #{s 15008}#
- #{m 15009}#
- #{esew 15010}#
- #{mod 15011}#)
+ (lambda (#{type _85hotwsCta0JfYIjI4PUI}#
+ #{value _85hotwsCta0JfYIjI4PUJ}#
+ #{e _85hotwsCta0JfYIjI4PUK}#
+ #{w _85hotwsCta0JfYIjI4PUL}#
+ #{s _85hotwsCta0JfYIjI4PUM}#
+ #{mod _85hotwsCta0JfYIjI4PUN}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4PUI}#
+ #{value _85hotwsCta0JfYIjI4PUJ}#
+ #{e _85hotwsCta0JfYIjI4PUK}#
+ #{r _85hotwsCta0JfYIjI4PT6}#
+ #{w _85hotwsCta0JfYIjI4PUL}#
+ #{s _85hotwsCta0JfYIjI4PUM}#
+ #{mod _85hotwsCta0JfYIjI4PUN}#))))))
+ (cons #{first _85hotwsCta0JfYIjI4PT9}#
+ (#{dobody _85hotwsCta0JfYIjI4POb}#
+ (cdr #{body _85hotwsCta0JfYIjI4PT5}#)
+ #{r _85hotwsCta0JfYIjI4PT6}#
+ #{w _85hotwsCta0JfYIjI4PT7}#
+ #{mod _85hotwsCta0JfYIjI4PT8}#)))))))
+ (#{dobody _85hotwsCta0JfYIjI4POb}#
+ #{body _85hotwsCta0JfYIjI4PNH}#
+ #{r _85hotwsCta0JfYIjI4PNI}#
+ #{w _85hotwsCta0JfYIjI4PNJ}#
+ #{mod _85hotwsCta0JfYIjI4PNL}#)))))
+ (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
+ (lambda (#{body _85hotwsCta0JfYIjI4M98}#
+ #{r _85hotwsCta0JfYIjI4M99}#
+ #{w _85hotwsCta0JfYIjI4M9$}#
+ #{s _85hotwsCta0JfYIjI4M9@}#
+ #{m _85hotwsCta0JfYIjI4M$A}#
+ #{esew _85hotwsCta0JfYIjI4M$B}#
+ #{mod _85hotwsCta0JfYIjI4M$C}#)
(letrec*
- ((#{scan 15012}#
- (lambda (#{body 15143}#
- #{r 15144}#
- #{w 15145}#
- #{s 15146}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15149}#
- #{exps 15150}#)
- (if (null? #{body 15143}#)
- #{exps 15150}#
+ ((#{scan _85hotwsCta0JfYIjI4M$D}#
+ (lambda (#{body _85hotwsCta0JfYIjI4NAG}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NAI}#
+ #{s _85hotwsCta0JfYIjI4NAJ}#
+ #{m _85hotwsCta0JfYIjI4NAK}#
+ #{esew _85hotwsCta0JfYIjI4NAL}#
+ #{mod _85hotwsCta0JfYIjI4NAM}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#)
+ (if (null? #{body _85hotwsCta0JfYIjI4NAG}#)
+ #{exps _85hotwsCta0JfYIjI4NAN}#
(call-with-values
(lambda ()
(call-with-values
(lambda ()
- (let ((#{e 15151}# (car #{body 15143}#)))
- (#{syntax-type 2777}#
- #{e 15151}#
- #{r 15144}#
- #{w 15145}#
- (let ((#{t 15155}#
- (#{source-annotation 2736}#
- #{e 15151}#)))
- (if #{t 15155}# #{t 15155}# #{s 15146}#))
+ (let ((#{e _85hotwsCta0JfYIjI4NAO}#
+ (car #{body _85hotwsCta0JfYIjI4NAG}#)))
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4NAO}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NAI}#
+ (let ((#{t _85hotwsCta0JfYIjI4NAS}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4NAO}#)))
+ (if #{t _85hotwsCta0JfYIjI4NAS}#
+ #{t _85hotwsCta0JfYIjI4NAS}#
+ #{s _85hotwsCta0JfYIjI4NAJ}#))
#f
- #{mod 15149}#
+ #{mod _85hotwsCta0JfYIjI4NAM}#
#f)))
- (lambda (#{type 15390}#
- #{value 15391}#
- #{e 15392}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#)
- (if (eqv? #{type 15390}# 'begin-form)
- (let ((#{tmp 15400}#
- ($sc-dispatch #{e 15392}# '(_))))
- (if #{tmp 15400}#
+ (lambda (#{type _85hotwsCta0JfYIjI4ND9}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ 'begin-form)
+ (let ((#{tmp _85hotwsCta0JfYIjI4NEH}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ '(_))))
+ (if #{tmp _85hotwsCta0JfYIjI4NEH}#
(@apply
- (lambda () #{exps 15150}#)
- #{tmp 15400}#)
- (let ((#{tmp 15404}#
+ (lambda () #{exps _85hotwsCta0JfYIjI4NAN}#)
+ #{tmp _85hotwsCta0JfYIjI4NEH}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4NEL}#
($sc-dispatch
- #{e 15392}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
'(_ any . each-any))))
- (if #{tmp 15404}#
+ (if #{tmp _85hotwsCta0JfYIjI4NEL}#
(@apply
- (lambda (#{e1 15408}# #{e2 15409}#)
- (#{scan 15012}#
- (cons #{e1 15408}# #{e2 15409}#)
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15395}#
- #{exps 15150}#))
- #{tmp 15404}#)
+ (lambda (#{e1 _85hotwsCta0JfYIjI4NEP}#
+ #{e2 _85hotwsCta0JfYIjI4NEQ}#)
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ (cons #{e1 _85hotwsCta0JfYIjI4NEP}#
+ #{e2 _85hotwsCta0JfYIjI4NEQ}#)
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{m _85hotwsCta0JfYIjI4NAK}#
+ #{esew _85hotwsCta0JfYIjI4NAL}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#))
+ #{tmp _85hotwsCta0JfYIjI4NEL}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 15392}#)))))
- (if (eqv? #{type 15390}# 'local-syntax-form)
- (#{expand-local-syntax 2783}#
- #{value 15391}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#
- (lambda (#{body 15424}#
- #{r 15425}#
- #{w 15426}#
- #{s 15427}#
- #{mod 15428}#)
- (#{scan 15012}#
- #{body 15424}#
- #{r 15425}#
- #{w 15426}#
- #{s 15427}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15428}#
- #{exps 15150}#)))
- (if (eqv? #{type 15390}# 'eval-when-form)
- (let ((#{tmp 15433}#
+ #{e _85hotwsCta0JfYIjI4ND@}#)))))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ 'local-syntax-form)
+ (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#
+ (lambda (#{body _85hotwsCta0JfYIjI4NEf}#
+ #{r _85hotwsCta0JfYIjI4NEg}#
+ #{w _85hotwsCta0JfYIjI4NEh}#
+ #{s _85hotwsCta0JfYIjI4NEi}#
+ #{mod _85hotwsCta0JfYIjI4NEj}#)
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ #{body _85hotwsCta0JfYIjI4NEf}#
+ #{r _85hotwsCta0JfYIjI4NEg}#
+ #{w _85hotwsCta0JfYIjI4NEh}#
+ #{s _85hotwsCta0JfYIjI4NEi}#
+ #{m _85hotwsCta0JfYIjI4NAK}#
+ #{esew _85hotwsCta0JfYIjI4NAL}#
+ #{mod _85hotwsCta0JfYIjI4NEj}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#)))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ 'eval-when-form)
+ (let ((#{tmp _85hotwsCta0JfYIjI4NEo}#
($sc-dispatch
- #{e 15392}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
'(_ each-any any . each-any))))
- (if #{tmp 15433}#
+ (if #{tmp _85hotwsCta0JfYIjI4NEo}#
(@apply
- (lambda (#{x 15437}#
- #{e1 15438}#
- #{e2 15439}#)
- (let ((#{when-list 15440}#
- (#{parse-when-list 2776}#
- #{e 15392}#
- #{x 15437}#))
- (#{body 15441}#
- (cons #{e1 15438}#
- #{e2 15439}#)))
- (if (eq? #{m 15147}# 'e)
+ (lambda (#{x _85hotwsCta0JfYIjI4NEs}#
+ #{e1 _85hotwsCta0JfYIjI4NEt}#
+ #{e2 _85hotwsCta0JfYIjI4NEu}#)
+ (let ((#{when-list _85hotwsCta0JfYIjI4NEv}#
+ (#{parse-when-list _85hotwsCta0JfYIjI4J4J}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{x _85hotwsCta0JfYIjI4NEs}#))
+ (#{body _85hotwsCta0JfYIjI4NEw}#
+ (cons #{e1 _85hotwsCta0JfYIjI4NEt}#
+ #{e2 _85hotwsCta0JfYIjI4NEu}#)))
+ (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'e)
(if (memq 'eval
- #{when-list 15440}#)
- (#{scan 15012}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ #{body _85hotwsCta0JfYIjI4NEw}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
(if (memq 'expand
- #{when-list 15440}#)
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)
'c&e
'e)
'(eval)
- #{mod 15395}#
- #{exps 15150}#)
+ #{mod _85hotwsCta0JfYIjI4NEC}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#)
(begin
(if (memq 'expand
- #{when-list 15440}#)
- (let ((#{x 15518}#
- (#{expand-top-sequence 2774}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)
+ (let ((#{x _85hotwsCta0JfYIjI4NF9}#
+ (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
+ #{body _85hotwsCta0JfYIjI4NEw}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
'e
'(eval)
- #{mod 15395}#)))
+ #{mod _85hotwsCta0JfYIjI4NEC}#)))
(primitive-eval
- #{x 15518}#)))
- (values #{exps 15150}#)))
+ #{x _85hotwsCta0JfYIjI4NF9}#)))
+ (values
+ #{exps _85hotwsCta0JfYIjI4NAN}#)))
(if (memq 'load
- #{when-list 15440}#)
- (if (let ((#{t 15544}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)
+ (if (let ((#{t _85hotwsCta0JfYIjI4NGX}#
(memq 'compile
- #{when-list 15440}#)))
- (if #{t 15544}#
- #{t 15544}#
- (let ((#{t 15593}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)))
+ (if #{t _85hotwsCta0JfYIjI4NGX}#
+ #{t _85hotwsCta0JfYIjI4NGX}#
+ (let ((#{t _85hotwsCta0JfYIjI4NHI}#
(memq 'expand
- #{when-list 15440}#)))
- (if #{t 15593}#
- #{t 15593}#
- (if (eq? #{m 15147}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)))
+ (if #{t _85hotwsCta0JfYIjI4NHI}#
+ #{t _85hotwsCta0JfYIjI4NHI}#
+ (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
'c&e)
(memq 'eval
- #{when-list 15440}#)
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)
#f)))))
- (#{scan 15012}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ #{body _85hotwsCta0JfYIjI4NEw}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
'c&e
'(compile load)
- #{mod 15395}#
- #{exps 15150}#)
- (if (if (eq? #{m 15147}# 'c)
+ #{mod _85hotwsCta0JfYIjI4NEC}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#)
+ (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c)
#t
- (eq? #{m 15147}# 'c&e))
- (#{scan 15012}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c&e))
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ #{body _85hotwsCta0JfYIjI4NEw}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
'c
'(load)
- #{mod 15395}#
- #{exps 15150}#)
- (values #{exps 15150}#)))
- (if (let ((#{t 15722}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#)
+ (values
+ #{exps _85hotwsCta0JfYIjI4NAN}#)))
+ (if (let ((#{t _85hotwsCta0JfYIjI4NJJ}#
(memq 'compile
- #{when-list 15440}#)))
- (if #{t 15722}#
- #{t 15722}#
- (let ((#{t 15771}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)))
+ (if #{t _85hotwsCta0JfYIjI4NJJ}#
+ #{t _85hotwsCta0JfYIjI4NJJ}#
+ (let ((#{t _85hotwsCta0JfYIjI4NJ6}#
(memq 'expand
- #{when-list 15440}#)))
- (if #{t 15771}#
- #{t 15771}#
- (if (eq? #{m 15147}#
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)))
+ (if #{t _85hotwsCta0JfYIjI4NJ6}#
+ #{t _85hotwsCta0JfYIjI4NJ6}#
+ (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
'c&e)
(memq 'eval
- #{when-list 15440}#)
+ #{when-list _85hotwsCta0JfYIjI4NEv}#)
#f)))))
(begin
- (let ((#{x 15895}#
- (#{expand-top-sequence 2774}#
- #{body 15441}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
+ (let ((#{x _85hotwsCta0JfYIjI4NL2}#
+ (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
+ #{body _85hotwsCta0JfYIjI4NEw}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
'e
'(eval)
- #{mod 15395}#)))
+ #{mod _85hotwsCta0JfYIjI4NEC}#)))
(primitive-eval
- #{x 15895}#))
- (values #{exps 15150}#))
- (values #{exps 15150}#))))))
- #{tmp 15433}#)
+ #{x _85hotwsCta0JfYIjI4NL2}#))
+ (values
+ #{exps _85hotwsCta0JfYIjI4NAN}#))
+ (values
+ #{exps _85hotwsCta0JfYIjI4NAN}#))))))
+ #{tmp _85hotwsCta0JfYIjI4NEo}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 15392}#)))
- (if (if (eqv? #{type 15390}#
+ #{e _85hotwsCta0JfYIjI4ND@}#)))
+ (if (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
'define-syntax-form)
#t
- (eqv? #{type 15390}#
+ (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
'define-syntax-parameter-form))
- (let ((#{n 15941}#
- (#{id-var-name 2762}#
- #{value 15391}#
- #{w 15393}#))
- (#{r 15942}#
- (#{macros-only-env 2739}#
- #{r 15144}#)))
- (if (eqv? #{m 15147}# 'c)
- (if (memq 'compile #{esew 15148}#)
- (let ((#{e 15946}#
- (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))))
+ (let ((#{n _85hotwsCta0JfYIjI4NMk}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{w _85hotwsCta0JfYIjI4NEA}#))
+ (#{r _85hotwsCta0JfYIjI4NMl}#
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ #{r _85hotwsCta0JfYIjI4NAH}#)))
+ (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}# 'c)
+ (if (memq 'compile
+ #{esew _85hotwsCta0JfYIjI4NAL}#)
+ (let ((#{e _85hotwsCta0JfYIjI4NMp}#
+ (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
+ #{n _85hotwsCta0JfYIjI4NMk}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NMl}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))))
(begin
- (#{top-level-eval-hook 2703}#
- #{e 15946}#
- #{mod 15395}#)
- (if (memq 'load #{esew 15148}#)
+ (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
+ #{e _85hotwsCta0JfYIjI4NMp}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)
+ (if (memq 'load
+ #{esew _85hotwsCta0JfYIjI4NAL}#)
(values
- (cons #{e 15946}#
- #{exps 15150}#))
- (values #{exps 15150}#))))
- (if (memq 'load #{esew 15148}#)
+ (cons #{e _85hotwsCta0JfYIjI4NMp}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#))
+ (values
+ #{exps _85hotwsCta0JfYIjI4NAN}#))))
+ (if (memq 'load
+ #{esew _85hotwsCta0JfYIjI4NAL}#)
+ (values
+ (cons (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
+ #{n _85hotwsCta0JfYIjI4NMk}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NMl}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))
+ #{exps _85hotwsCta0JfYIjI4NAN}#))
(values
- (cons (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))
- #{exps 15150}#))
- (values #{exps 15150}#)))
- (if (eqv? #{m 15147}# 'c&e)
- (let ((#{e 16393}#
- (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))))
+ #{exps _85hotwsCta0JfYIjI4NAN}#)))
+ (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c&e)
+ (let ((#{e _85hotwsCta0JfYIjI4NTo}#
+ (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
+ #{n _85hotwsCta0JfYIjI4NMk}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NMl}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))))
(begin
- (#{top-level-eval-hook 2703}#
- #{e 16393}#
- #{mod 15395}#)
+ (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
+ #{e _85hotwsCta0JfYIjI4NTo}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)
(values
- (cons #{e 16393}#
- #{exps 15150}#))))
+ (cons #{e _85hotwsCta0JfYIjI4NTo}#
+ #{exps _85hotwsCta0JfYIjI4NAN}#))))
(begin
- (if (memq 'eval #{esew 15148}#)
- (#{top-level-eval-hook 2703}#
- (#{expand-install-global 2775}#
- #{n 15941}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15942}#
- #{w 15393}#
- #{mod 15395}#))
- #{mod 15395}#))
- (values #{exps 15150}#)))))
- (if (eqv? #{type 15390}# 'define-form)
- (let ((#{n 17028}#
- (#{id-var-name 2762}#
- #{value 15391}#
- #{w 15393}#)))
- (let ((#{type 17029}#
- (car (let ((#{t 17036}#
- (assq #{n 17028}#
- #{r 15144}#)))
- (if #{t 17036}#
- (cdr #{t 17036}#)
+ (if (memq 'eval
+ #{esew _85hotwsCta0JfYIjI4NAL}#)
+ (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
+ (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
+ #{n _85hotwsCta0JfYIjI4NMk}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NMl}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))
+ #{mod _85hotwsCta0JfYIjI4NEC}#))
+ (values
+ #{exps _85hotwsCta0JfYIjI4NAN}#)))))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}#
+ 'define-form)
+ (let ((#{n _85hotwsCta0JfYIjI4Ndj}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{w _85hotwsCta0JfYIjI4NEA}#)))
+ (let ((#{type _85hotwsCta0JfYIjI4Ndk}#
+ (car (let ((#{t _85hotwsCta0JfYIjI4Ndr}#
+ (assq #{n _85hotwsCta0JfYIjI4Ndj}#
+ #{r _85hotwsCta0JfYIjI4NAH}#)))
+ (if #{t _85hotwsCta0JfYIjI4Ndr}#
+ (cdr #{t _85hotwsCta0JfYIjI4Ndr}#)
(if (symbol?
- #{n 17028}#)
- (let ((#{t 17042}#
- (#{get-global-definition-hook 2706}#
- #{n 17028}#
- #{mod 15395}#)))
- (if #{t 17042}#
- #{t 17042}#
+ #{n _85hotwsCta0JfYIjI4Ndj}#)
+ (let ((#{t _85hotwsCta0JfYIjI4Ndx}#
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ #{n _85hotwsCta0JfYIjI4Ndj}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)))
+ (if #{t _85hotwsCta0JfYIjI4Ndx}#
+ #{t _85hotwsCta0JfYIjI4Ndx}#
'(global)))
'(displaced-lexical)))))))
- (if (if (eqv? #{type 17029}# 'global)
+ (if (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ 'global)
#t
- (if (eqv? #{type 17029}# 'core)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
+ 'core)
#t
- (if (eqv? #{type 17029}#
+ (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
'macro)
#t
- (eqv? #{type 17029}#
+ (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
'module-ref))))
(begin
- (if (if (if (eq? #{m 15147}# 'c)
+ (if (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c)
#t
- (eq? #{m 15147}# 'c&e))
+ (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c&e))
(if (not (module-local-variable
(current-module)
- #{n 17028}#))
+ #{n _85hotwsCta0JfYIjI4Ndj}#))
(current-module)
#f)
#f)
- (let ((#{old 17073}#
+ (let ((#{old _85hotwsCta0JfYIjI4NeQ}#
(module-variable
(current-module)
- #{n 17028}#)))
+ #{n _85hotwsCta0JfYIjI4Ndj}#)))
(if (if (variable?
- #{old 17073}#)
+ #{old _85hotwsCta0JfYIjI4NeQ}#)
(variable-bound?
- #{old 17073}#)
+ #{old _85hotwsCta0JfYIjI4NeQ}#)
#f)
(module-define!
(current-module)
- #{n 17028}#
+ #{n _85hotwsCta0JfYIjI4Ndj}#
(variable-ref
- #{old 17073}#))
+ #{old _85hotwsCta0JfYIjI4NeQ}#))
(module-add!
(current-module)
- #{n 17028}#
+ #{n _85hotwsCta0JfYIjI4Ndj}#
(make-undefined-variable)))))
(values
- (cons (if (eq? #{m 15147}# 'c&e)
- (let ((#{x 17075}#
- (#{build-global-definition 2718}#
- #{s 15394}#
- #{n 17028}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{mod 15395}#))))
+ (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c&e)
+ (let ((#{x _85hotwsCta0JfYIjI4NeS}#
+ (#{build-global-definition _85hotwsCta0JfYIjI4J3O}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{n _85hotwsCta0JfYIjI4Ndj}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))))
(begin
- (#{top-level-eval-hook 2703}#
- #{x 17075}#
- #{mod 15395}#)
- #{x 17075}#))
+ (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}#
+ #{x _85hotwsCta0JfYIjI4NeS}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)
+ #{x _85hotwsCta0JfYIjI4NeS}#))
(lambda ()
- (#{build-global-definition 2718}#
- #{s 15394}#
- #{n 17028}#
- (#{expand 2778}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{mod 15395}#))))
- #{exps 15150}#)))
- (if (eqv? #{type 17029}#
+ (#{build-global-definition _85hotwsCta0JfYIjI4J3O}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{n _85hotwsCta0JfYIjI4Ndj}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))))
+ #{exps _85hotwsCta0JfYIjI4NAN}#)))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}#
'displaced-lexical)
(syntax-violation
#f
"identifier out of context"
- #{e 15392}#
- (#{wrap 2771}#
- #{value 15391}#
- #{w 15393}#
- #{mod 15395}#))
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))
(syntax-violation
#f
"cannot define keyword at top level"
- #{e 15392}#
- (#{wrap 2771}#
- #{value 15391}#
- #{w 15393}#
- #{mod 15395}#))))))
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#))))))
(values
- (cons (if (eq? #{m 15147}# 'c&e)
- (let ((#{x 17521}#
- (#{expand-expr 2779}#
- #{type 15390}#
- #{value 15391}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#)))
+ (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}#
+ 'c&e)
+ (let ((#{x _85hotwsCta0JfYIjI4NlQ}#
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4ND9}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)))
(begin
- (primitive-eval #{x 17521}#)
- #{x 17521}#))
+ (primitive-eval
+ #{x _85hotwsCta0JfYIjI4NlQ}#)
+ #{x _85hotwsCta0JfYIjI4NlQ}#))
(lambda ()
- (#{expand-expr 2779}#
- #{type 15390}#
- #{value 15391}#
- #{e 15392}#
- #{r 15144}#
- #{w 15393}#
- #{s 15394}#
- #{mod 15395}#)))
- #{exps 15150}#))))))))))
- (lambda (#{exps 17530}#)
- (#{scan 15012}#
- (cdr #{body 15143}#)
- #{r 15144}#
- #{w 15145}#
- #{s 15146}#
- #{m 15147}#
- #{esew 15148}#
- #{mod 15149}#
- #{exps 17530}#)))))))
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4ND9}#
+ #{value _85hotwsCta0JfYIjI4ND$}#
+ #{e _85hotwsCta0JfYIjI4ND@}#
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NEA}#
+ #{s _85hotwsCta0JfYIjI4NEB}#
+ #{mod _85hotwsCta0JfYIjI4NEC}#)))
+ #{exps _85hotwsCta0JfYIjI4NAN}#))))))))))
+ (lambda (#{exps _85hotwsCta0JfYIjI4NlZ}#)
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ (cdr #{body _85hotwsCta0JfYIjI4NAG}#)
+ #{r _85hotwsCta0JfYIjI4NAH}#
+ #{w _85hotwsCta0JfYIjI4NAI}#
+ #{s _85hotwsCta0JfYIjI4NAJ}#
+ #{m _85hotwsCta0JfYIjI4NAK}#
+ #{esew _85hotwsCta0JfYIjI4NAL}#
+ #{mod _85hotwsCta0JfYIjI4NAM}#
+ #{exps _85hotwsCta0JfYIjI4NlZ}#)))))))
(call-with-values
(lambda ()
- (#{scan 15012}#
- #{body 15005}#
- #{r 15006}#
- #{w 15007}#
- #{s 15008}#
- #{m 15009}#
- #{esew 15010}#
- #{mod 15011}#
+ (#{scan _85hotwsCta0JfYIjI4M$D}#
+ #{body _85hotwsCta0JfYIjI4M98}#
+ #{r _85hotwsCta0JfYIjI4M99}#
+ #{w _85hotwsCta0JfYIjI4M9$}#
+ #{s _85hotwsCta0JfYIjI4M9@}#
+ #{m _85hotwsCta0JfYIjI4M$A}#
+ #{esew _85hotwsCta0JfYIjI4M$B}#
+ #{mod _85hotwsCta0JfYIjI4M$C}#
'()))
- (lambda (#{exps 15015}#)
- (if (null? #{exps 15015}#)
+ (lambda (#{exps _85hotwsCta0JfYIjI4M$G}#)
+ (if (null? #{exps _85hotwsCta0JfYIjI4M$G}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
- #{s 15008}#)
- (#{build-sequence 2724}#
- #{s 15008}#
+ #{s _85hotwsCta0JfYIjI4M9@}#)
+ (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
+ #{s _85hotwsCta0JfYIjI4M9@}#
(letrec*
- ((#{lp 15055}#
- (lambda (#{in 15139}# #{out 15140}#)
- (if (null? #{in 15139}#)
- #{out 15140}#
- (let ((#{e 15141}# (car #{in 15139}#)))
- (#{lp 15055}#
- (cdr #{in 15139}#)
- (cons (if (procedure? #{e 15141}#)
- (#{e 15141}#)
- #{e 15141}#)
- #{out 15140}#)))))))
- (#{lp 15055}# #{exps 15015}# '())))))))))
- (#{expand-install-global 2775}#
- (lambda (#{name 17531}# #{e 17532}#)
- (let ((#{exp 17538}#
- (let ((#{fun-exp 17548}#
+ ((#{lp _85hotwsCta0JfYIjI4M$u}#
+ (lambda (#{in _85hotwsCta0JfYIjI4NAC}#
+ #{out _85hotwsCta0JfYIjI4NAD}#)
+ (if (null? #{in _85hotwsCta0JfYIjI4NAC}#)
+ #{out _85hotwsCta0JfYIjI4NAD}#
+ (let ((#{e _85hotwsCta0JfYIjI4NAE}#
+ (car #{in _85hotwsCta0JfYIjI4NAC}#)))
+ (#{lp _85hotwsCta0JfYIjI4M$u}#
+ (cdr #{in _85hotwsCta0JfYIjI4NAC}#)
+ (cons (if (procedure?
+ #{e _85hotwsCta0JfYIjI4NAE}#)
+ (#{e _85hotwsCta0JfYIjI4NAE}#)
+ #{e _85hotwsCta0JfYIjI4NAE}#)
+ #{out _85hotwsCta0JfYIjI4NAD}#)))))))
+ (#{lp _85hotwsCta0JfYIjI4M$u}#
+ #{exps _85hotwsCta0JfYIjI4M$G}#
+ '())))))))))
+ (#{expand-install-global _85hotwsCta0JfYIjI4J4I}#
+ (lambda (#{name _85hotwsCta0JfYIjI4Nla}#
+ #{e _85hotwsCta0JfYIjI4Nlb}#)
+ (let ((#{exp _85hotwsCta0JfYIjI4Nlh}#
+ (let ((#{fun-exp _85hotwsCta0JfYIjI4Nlr}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -1252,391 +1559,416 @@
'(guile)
'make-syntax-transformer
#f)))
- (#{arg-exps 17549}#
+ (#{arg-exps _85hotwsCta0JfYIjI4Nls}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{name 17531}#)
+ #{name _85hotwsCta0JfYIjI4Nla}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
'macro)
- #{e 17532}#)))
+ #{e _85hotwsCta0JfYIjI4Nlb}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 17548}#
- #{arg-exps 17549}#))))
+ #{fun-exp _85hotwsCta0JfYIjI4Nlr}#
+ #{arg-exps _85hotwsCta0JfYIjI4Nls}#))))
(begin
- (if (if (struct? #{exp 17538}#)
- (eq? (struct-vtable #{exp 17538}#)
+ (if (if (struct? #{exp _85hotwsCta0JfYIjI4Nlh}#)
+ (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Nlh}#)
(vector-ref %expanded-vtables 13))
#f)
- (let ((#{meta 17590}# (struct-ref #{exp 17538}# 1)))
- (if (not (assq 'name #{meta 17590}#))
- (let ((#{v 17597}#
- (cons (cons 'name #{name 17531}#) #{meta 17590}#)))
- (struct-set! #{exp 17538}# 1 #{v 17597}#)))))
+ (let ((#{meta _85hotwsCta0JfYIjI4NmV}#
+ (struct-ref #{exp _85hotwsCta0JfYIjI4Nlh}# 1)))
+ (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4NmV}#))
+ (let ((#{v _85hotwsCta0JfYIjI4Nmc}#
+ (cons (cons 'name #{name _85hotwsCta0JfYIjI4Nla}#)
+ #{meta _85hotwsCta0JfYIjI4NmV}#)))
+ (struct-set!
+ #{exp _85hotwsCta0JfYIjI4Nlh}#
+ 1
+ #{v _85hotwsCta0JfYIjI4Nmc}#)))))
(make-struct/no-tail
(vector-ref %expanded-vtables 9)
#f
- #{name 17531}#
- #{exp 17538}#)))))
- (#{parse-when-list 2776}#
- (lambda (#{e 17608}# #{when-list 17609}#)
- (let ((#{result 17610}#
- (#{strip 2791}# #{when-list 17609}# '(()))))
+ #{name _85hotwsCta0JfYIjI4Nla}#
+ #{exp _85hotwsCta0JfYIjI4Nlh}#)))))
+ (#{parse-when-list _85hotwsCta0JfYIjI4J4J}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Nmn}#
+ #{when-list _85hotwsCta0JfYIjI4Nmo}#)
+ (let ((#{result _85hotwsCta0JfYIjI4Nmp}#
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{when-list _85hotwsCta0JfYIjI4Nmo}#
+ '(()))))
(letrec*
- ((#{lp 17611}#
- (lambda (#{l 17665}#)
- (if (null? #{l 17665}#)
- #{result 17610}#
- (if (let ((#{t 17667}# (car #{l 17665}#)))
- (if (eq? #{t 17667}# 'compile)
+ ((#{lp _85hotwsCta0JfYIjI4Nmq}#
+ (lambda (#{l _85hotwsCta0JfYIjI4Nng}#)
+ (if (null? #{l _85hotwsCta0JfYIjI4Nng}#)
+ #{result _85hotwsCta0JfYIjI4Nmp}#
+ (if (let ((#{t _85hotwsCta0JfYIjI4Nni}#
+ (car #{l _85hotwsCta0JfYIjI4Nng}#)))
+ (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'compile)
#t
- (if (eq? #{t 17667}# 'load)
+ (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'load)
#t
- (if (eq? #{t 17667}# 'eval)
+ (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'eval)
#t
- (eq? #{t 17667}# 'expand)))))
- (#{lp 17611}# (cdr #{l 17665}#))
+ (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'expand)))))
+ (#{lp _85hotwsCta0JfYIjI4Nmq}#
+ (cdr #{l _85hotwsCta0JfYIjI4Nng}#))
(syntax-violation
'eval-when
"invalid situation"
- #{e 17608}#
- (car #{l 17665}#)))))))
- (#{lp 17611}# #{result 17610}#)))))
- (#{syntax-type 2777}#
- (lambda (#{e 17669}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
- #{for-car? 17675}#)
- (if (symbol? #{e 17669}#)
- (let ((#{n 17676}#
- (#{id-var-name 2762}# #{e 17669}# #{w 17671}#)))
- (let ((#{b 17677}#
- (let ((#{t 17685}# (assq #{n 17676}# #{r 17670}#)))
- (if #{t 17685}#
- (cdr #{t 17685}#)
- (if (symbol? #{n 17676}#)
- (let ((#{t 17691}#
- (#{get-global-definition-hook 2706}#
- #{n 17676}#
- #{mod 17674}#)))
- (if #{t 17691}# #{t 17691}# '(global)))
+ #{e _85hotwsCta0JfYIjI4Nmn}#
+ (car #{l _85hotwsCta0JfYIjI4Nng}#)))))))
+ (#{lp _85hotwsCta0JfYIjI4Nmq}#
+ #{result _85hotwsCta0JfYIjI4Nmp}#)))))
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Nnk}#
+ #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#
+ #{for-car? _85hotwsCta0JfYIjI4Nnq}#)
+ (if (symbol? #{e _85hotwsCta0JfYIjI4Nnk}#)
+ (let ((#{n _85hotwsCta0JfYIjI4Nnr}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#)))
+ (let ((#{b _85hotwsCta0JfYIjI4Nns}#
+ (let ((#{t _85hotwsCta0JfYIjI4Nn0}#
+ (assq #{n _85hotwsCta0JfYIjI4Nnr}#
+ #{r _85hotwsCta0JfYIjI4Nnl}#)))
+ (if #{t _85hotwsCta0JfYIjI4Nn0}#
+ (cdr #{t _85hotwsCta0JfYIjI4Nn0}#)
+ (if (symbol? #{n _85hotwsCta0JfYIjI4Nnr}#)
+ (let ((#{t _85hotwsCta0JfYIjI4Nn6}#
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ #{n _85hotwsCta0JfYIjI4Nnr}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)))
+ (if #{t _85hotwsCta0JfYIjI4Nn6}#
+ #{t _85hotwsCta0JfYIjI4Nn6}#
+ '(global)))
'(displaced-lexical))))))
- (let ((#{type 17678}# (car #{b 17677}#)))
- (if (eqv? #{type 17678}# 'lexical)
+ (let ((#{type _85hotwsCta0JfYIjI4Nnt}#
+ (car #{b _85hotwsCta0JfYIjI4Nns}#)))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'lexical)
(values
- #{type 17678}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{type 17678}# 'global)
+ #{type _85hotwsCta0JfYIjI4Nnt}#
+ (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'global)
(values
- #{type 17678}#
- #{n 17676}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{type 17678}# 'macro)
- (if #{for-car? 17675}#
+ #{type _85hotwsCta0JfYIjI4Nnt}#
+ #{n _85hotwsCta0JfYIjI4Nnr}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'macro)
+ (if #{for-car? _85hotwsCta0JfYIjI4Nnq}#
(values
- #{type 17678}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (#{syntax-type 2777}#
- (#{expand-macro 2781}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#)
- #{r 17670}#
+ #{type _85hotwsCta0JfYIjI4Nnt}#
+ (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
+ (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ #{r _85hotwsCta0JfYIjI4Nnl}#
'(())
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#
#f))
(values
- #{type 17678}#
- (cdr #{b 17677}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)))))))
- (if (pair? #{e 17669}#)
- (let ((#{first 17711}# (car #{e 17669}#)))
+ #{type _85hotwsCta0JfYIjI4Nnt}#
+ (cdr #{b _85hotwsCta0JfYIjI4Nns}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)))))))
+ (if (pair? #{e _85hotwsCta0JfYIjI4Nnk}#)
+ (let ((#{first _85hotwsCta0JfYIjI4NoO}#
+ (car #{e _85hotwsCta0JfYIjI4Nnk}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{first 17711}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{first _85hotwsCta0JfYIjI4NoO}#
+ #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#
#t))
- (lambda (#{ftype 17713}#
- #{fval 17714}#
- #{fe 17715}#
- #{fw 17716}#
- #{fs 17717}#
- #{fmod 17718}#)
- (if (eqv? #{ftype 17713}# 'lexical)
+ (lambda (#{ftype _85hotwsCta0JfYIjI4NoQ}#
+ #{fval _85hotwsCta0JfYIjI4NoR}#
+ #{fe _85hotwsCta0JfYIjI4NoS}#
+ #{fw _85hotwsCta0JfYIjI4NoT}#
+ #{fs _85hotwsCta0JfYIjI4NoU}#
+ #{fmod _85hotwsCta0JfYIjI4NoV}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'lexical)
(values
'lexical-call
- #{fval 17714}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'global)
+ #{fval _85hotwsCta0JfYIjI4NoR}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'global)
(values
'global-call
(vector
'syntax-object
- #{fval 17714}#
- #{w 17671}#
- #{fmod 17718}#)
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'macro)
- (#{syntax-type 2777}#
- (#{expand-macro 2781}#
- #{fval 17714}#
- #{e 17669}#
- #{r 17670}#
- #{w 17671}#
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#)
- #{r 17670}#
+ #{fval _85hotwsCta0JfYIjI4NoR}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{fmod _85hotwsCta0JfYIjI4NoV}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'macro)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
+ #{fval _85hotwsCta0JfYIjI4NoR}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ #{r _85hotwsCta0JfYIjI4Nnl}#
'(())
- #{s 17672}#
- #{rib 17673}#
- #{mod 17674}#
- #{for-car? 17675}#)
- (if (eqv? #{ftype 17713}# 'module-ref)
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#
+ #{for-car? _85hotwsCta0JfYIjI4Nnq}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ 'module-ref)
(call-with-values
(lambda ()
- (#{fval 17714}#
- #{e 17669}#
- #{r 17670}#
- #{w 17671}#))
- (lambda (#{e 17739}#
- #{r 17740}#
- #{w 17741}#
- #{s 17742}#
- #{mod 17743}#)
- (#{syntax-type 2777}#
- #{e 17739}#
- #{r 17740}#
- #{w 17741}#
- #{s 17742}#
- #{rib 17673}#
- #{mod 17743}#
- #{for-car? 17675}#)))
- (if (eqv? #{ftype 17713}# 'core)
+ (#{fval _85hotwsCta0JfYIjI4NoR}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{r _85hotwsCta0JfYIjI4Nnl}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#))
+ (lambda (#{e _85hotwsCta0JfYIjI4Noq}#
+ #{r _85hotwsCta0JfYIjI4Nor}#
+ #{w _85hotwsCta0JfYIjI4Nos}#
+ #{s _85hotwsCta0JfYIjI4Not}#
+ #{mod _85hotwsCta0JfYIjI4Nou}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4Noq}#
+ #{r _85hotwsCta0JfYIjI4Nor}#
+ #{w _85hotwsCta0JfYIjI4Nos}#
+ #{s _85hotwsCta0JfYIjI4Not}#
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ #{mod _85hotwsCta0JfYIjI4Nou}#
+ #{for-car? _85hotwsCta0JfYIjI4Nnq}#)))
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'core)
(values
'core-form
- #{fval 17714}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'local-syntax)
+ #{fval _85hotwsCta0JfYIjI4NoR}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ 'local-syntax)
(values
'local-syntax-form
- #{fval 17714}#
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'begin)
+ #{fval _85hotwsCta0JfYIjI4NoR}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ 'begin)
(values
'begin-form
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'eval-when)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ 'eval-when)
(values
'eval-when-form
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
- (if (eqv? #{ftype 17713}# 'define)
- (let ((#{tmp 17760}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ 'define)
+ (let ((#{tmp _85hotwsCta0JfYIjI4No@}#
($sc-dispatch
- #{e 17669}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
'(_ any any))))
- (if (if #{tmp 17760}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4No@}#
(@apply
- (lambda (#{name 17764}#
- #{val 17765}#)
- (if (symbol? #{name 17764}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4NpD}#
+ #{val _85hotwsCta0JfYIjI4NpE}#)
+ (if (symbol?
+ #{name _85hotwsCta0JfYIjI4NpD}#)
#t
(if (if (vector?
- #{name 17764}#)
+ #{name _85hotwsCta0JfYIjI4NpD}#)
(if (= (vector-length
- #{name 17764}#)
+ #{name _85hotwsCta0JfYIjI4NpD}#)
4)
(eq? (vector-ref
- #{name 17764}#
+ #{name _85hotwsCta0JfYIjI4NpD}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 17764}#
+ #{name _85hotwsCta0JfYIjI4NpD}#
1))
#f)))
- #{tmp 17760}#)
+ #{tmp _85hotwsCta0JfYIjI4No@}#)
#f)
(@apply
- (lambda (#{name 17792}#
- #{val 17793}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Npf}#
+ #{val _85hotwsCta0JfYIjI4Npg}#)
(values
'define-form
- #{name 17792}#
- #{val 17793}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 17760}#)
- (let ((#{tmp 17794}#
+ #{name _85hotwsCta0JfYIjI4Npf}#
+ #{val _85hotwsCta0JfYIjI4Npg}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))
+ #{tmp _85hotwsCta0JfYIjI4No@}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Nph}#
($sc-dispatch
- #{e 17669}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
'(_ (any . any)
any
.
each-any))))
- (if (if #{tmp 17794}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Nph}#
(@apply
- (lambda (#{name 17798}#
- #{args 17799}#
- #{e1 17800}#
- #{e2 17801}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Npl}#
+ #{args _85hotwsCta0JfYIjI4Npm}#
+ #{e1 _85hotwsCta0JfYIjI4Npn}#
+ #{e2 _85hotwsCta0JfYIjI4Npo}#)
(if (if (symbol?
- #{name 17798}#)
+ #{name _85hotwsCta0JfYIjI4Npl}#)
#t
(if (if (vector?
- #{name 17798}#)
+ #{name _85hotwsCta0JfYIjI4Npl}#)
(if (= (vector-length
- #{name 17798}#)
+ #{name _85hotwsCta0JfYIjI4Npl}#)
4)
(eq? (vector-ref
- #{name 17798}#
+ #{name _85hotwsCta0JfYIjI4Npl}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 17798}#
+ #{name _85hotwsCta0JfYIjI4Npl}#
1))
#f))
- (#{valid-bound-ids? 2768}#
+ (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
(letrec*
- ((#{lvl 17950}#
- (lambda (#{vars 17952}#
- #{ls 17953}#
- #{w 17954}#)
- (if (pair? #{vars 17952}#)
- (#{lvl 17950}#
- (cdr #{vars 17952}#)
- (cons (#{wrap 2771}#
- (car #{vars 17952}#)
- #{w 17954}#
+ ((#{lvl _85hotwsCta0JfYIjI4Nr9}#
+ (lambda (#{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{ls _85hotwsCta0JfYIjI4NsA}#
+ #{w _85hotwsCta0JfYIjI4NsB}#)
+ (if (pair? #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ (#{lvl _85hotwsCta0JfYIjI4Nr9}#
+ (cdr #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (car #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{w _85hotwsCta0JfYIjI4NsB}#
#f)
- #{ls 17953}#)
- #{w 17954}#)
+ #{ls _85hotwsCta0JfYIjI4NsA}#)
+ #{w _85hotwsCta0JfYIjI4NsB}#)
(if (if (symbol?
- #{vars 17952}#)
+ #{vars _85hotwsCta0JfYIjI4Nr@}#)
#t
(if (if (vector?
- #{vars 17952}#)
+ #{vars _85hotwsCta0JfYIjI4Nr@}#)
(if (= (vector-length
- #{vars 17952}#)
+ #{vars _85hotwsCta0JfYIjI4Nr@}#)
4)
(eq? (vector-ref
- #{vars 17952}#
+ #{vars _85hotwsCta0JfYIjI4Nr@}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{vars 17952}#
+ #{vars _85hotwsCta0JfYIjI4Nr@}#
1))
#f))
- (cons (#{wrap 2771}#
- #{vars 17952}#
- #{w 17954}#
+ (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{w _85hotwsCta0JfYIjI4NsB}#
#f)
- #{ls 17953}#)
- (if (null? #{vars 17952}#)
- #{ls 17953}#
+ #{ls _85hotwsCta0JfYIjI4NsA}#)
+ (if (null? #{vars _85hotwsCta0JfYIjI4Nr@}#)
+ #{ls _85hotwsCta0JfYIjI4NsA}#
(if (if (vector?
- #{vars 17952}#)
+ #{vars _85hotwsCta0JfYIjI4Nr@}#)
(if (= (vector-length
- #{vars 17952}#)
+ #{vars _85hotwsCta0JfYIjI4Nr@}#)
4)
(eq? (vector-ref
- #{vars 17952}#
+ #{vars _85hotwsCta0JfYIjI4Nr@}#
0)
'syntax-object)
#f)
#f)
- (#{lvl 17950}#
+ (#{lvl _85hotwsCta0JfYIjI4Nr9}#
(vector-ref
- #{vars 17952}#
+ #{vars _85hotwsCta0JfYIjI4Nr@}#
1)
- #{ls 17953}#
- (#{join-wraps 2759}#
- #{w 17954}#
+ #{ls _85hotwsCta0JfYIjI4NsA}#
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4NsB}#
(vector-ref
- #{vars 17952}#
+ #{vars _85hotwsCta0JfYIjI4Nr@}#
2)))
- (cons #{vars 17952}#
- #{ls 17953}#))))))))
- (#{lvl 17950}#
- #{args 17799}#
+ (cons #{vars _85hotwsCta0JfYIjI4Nr@}#
+ #{ls _85hotwsCta0JfYIjI4NsA}#))))))))
+ (#{lvl _85hotwsCta0JfYIjI4Nr9}#
+ #{args _85hotwsCta0JfYIjI4Npm}#
'()
'(()))))
#f))
- #{tmp 17794}#)
+ #{tmp _85hotwsCta0JfYIjI4Nph}#)
#f)
(@apply
- (lambda (#{name 17998}#
- #{args 17999}#
- #{e1 18000}#
- #{e2 18001}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Nst}#
+ #{args _85hotwsCta0JfYIjI4Nsu}#
+ #{e1 _85hotwsCta0JfYIjI4Nsv}#
+ #{e2 _85hotwsCta0JfYIjI4Nsw}#)
(values
'define-form
- (#{wrap 2771}#
- #{name 17998}#
- #{w 17671}#
- #{mod 17674}#)
- (let ((#{e 18007}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{name _85hotwsCta0JfYIjI4Nst}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
+ (let ((#{e _85hotwsCta0JfYIjI4Ns2}#
(cons '#(syntax-object
lambda
((top)
@@ -1649,10 +1981,10 @@
(top)
(top)
(top))
- #("kg"
- "kh"
- "ki"
- "kj"))
+ #("29f"
+ "29g"
+ "29h"
+ "29i"))
#(ribcage
()
()
@@ -1674,12 +2006,12 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("28w"
+ "28x"
+ "28y"
+ "28z"
+ "290"
+ "291"))
#(ribcage
()
()
@@ -1687,7 +2019,7 @@
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("28v"))
#(ribcage
()
()
@@ -1715,13 +2047,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("28l"
+ "28m"
+ "28n"
+ "28o"
+ "28p"
+ "28q"
+ "28r"))
#(ribcage
(lambda-var-list
gen-var
@@ -1754,6 +2086,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -2000,146 +2333,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2147,72 +2482,72 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene
guile))
- (#{wrap 2771}#
- (cons #{args 17999}#
- (cons #{e1 18000}#
- #{e2 18001}#))
- #{w 17671}#
- #{mod 17674}#))))
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (cons #{args _85hotwsCta0JfYIjI4Nsu}#
+ (cons #{e1 _85hotwsCta0JfYIjI4Nsv}#
+ #{e2 _85hotwsCta0JfYIjI4Nsw}#))
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))))
(begin
- (if (if (pair? #{e 18007}#)
- #{s 17672}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4Ns2}#)
+ #{s _85hotwsCta0JfYIjI4Nnn}#
#f)
(set-source-properties!
- #{e 18007}#
- #{s 17672}#))
- #{e 18007}#))
+ #{e _85hotwsCta0JfYIjI4Ns2}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#))
+ #{e _85hotwsCta0JfYIjI4Ns2}#))
'(())
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 17794}#)
- (let ((#{tmp 18014}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))
+ #{tmp _85hotwsCta0JfYIjI4Nph}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ns9}#
($sc-dispatch
- #{e 17669}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
'(_ any))))
- (if (if #{tmp 18014}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Ns9}#
(@apply
- (lambda (#{name 18018}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4NtB}#)
(if (symbol?
- #{name 18018}#)
+ #{name _85hotwsCta0JfYIjI4NtB}#)
#t
(if (if (vector?
- #{name 18018}#)
+ #{name _85hotwsCta0JfYIjI4NtB}#)
(if (= (vector-length
- #{name 18018}#)
+ #{name _85hotwsCta0JfYIjI4NtB}#)
4)
(eq? (vector-ref
- #{name 18018}#
+ #{name _85hotwsCta0JfYIjI4NtB}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 18018}#
+ #{name _85hotwsCta0JfYIjI4NtB}#
1))
#f)))
- #{tmp 18014}#)
+ #{tmp _85hotwsCta0JfYIjI4Ns9}#)
#f)
(@apply
- (lambda (#{name 18045}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Ntc}#)
(values
'define-form
- (#{wrap 2771}#
- #{name 18045}#
- #{w 17671}#
- #{mod 17674}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{name _85hotwsCta0JfYIjI4Ntc}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
'(#(syntax-object
if
((top)
#(ribcage
#(name)
#((top))
- #("kl"))
+ #("29k"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2228,17 +2563,17 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("28w"
+ "28x"
+ "28y"
+ "28z"
+ "290"
+ "291"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("28v"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2257,13 +2592,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("28l"
+ "28m"
+ "28n"
+ "28o"
+ "28p"
+ "28q"
+ "28r"))
#(ribcage
(lambda-var-list
gen-var
@@ -2296,6 +2631,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -2542,146 +2878,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -2689,7 +3027,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile))
#(syntax-object
#f
@@ -2697,7 +3037,7 @@
#(ribcage
#(name)
#((top))
- #("kl"))
+ #("29k"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -2713,17 +3053,17 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("28w"
+ "28x"
+ "28y"
+ "28z"
+ "290"
+ "291"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("28v"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -2742,13 +3082,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("28l"
+ "28m"
+ "28n"
+ "28o"
+ "28p"
+ "28q"
+ "28r"))
#(ribcage
(lambda-var-list
gen-var
@@ -2781,6 +3121,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -3027,146 +3368,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3174,7 +3517,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile))
#(syntax-object
#f
@@ -3182,7 +3527,7 @@
#(ribcage
#(name)
#((top))
- #("kl"))
+ #("29k"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
@@ -3198,17 +3543,17 @@
(top)
(top)
(top))
- #("jx"
- "jy"
- "jz"
- "k0"
- "k1"
- "k2"))
+ #("28w"
+ "28x"
+ "28y"
+ "28z"
+ "290"
+ "291"))
#(ribcage () () ())
#(ribcage
#(first)
#((top))
- #("jw"))
+ #("28v"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage () () ())
@@ -3227,13 +3572,13 @@
(top)
(top)
(top))
- #("jm"
- "jn"
- "jo"
- "jp"
- "jq"
- "jr"
- "js"))
+ #("28l"
+ "28m"
+ "28n"
+ "28o"
+ "28p"
+ "28q"
+ "28r"))
#(ribcage
(lambda-var-list
gen-var
@@ -3266,6 +3611,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -3512,146 +3858,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -3659,324 +4007,363 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile)))
'(())
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 18014}#)
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))
+ #{tmp _85hotwsCta0JfYIjI4Ns9}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 17669}#)))))))
- (if (eqv? #{ftype 17713}# 'define-syntax)
- (let ((#{tmp 18064}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#)))))))
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
+ 'define-syntax)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ntv}#
($sc-dispatch
- #{e 17669}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
'(_ any any))))
- (if (if #{tmp 18064}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Ntv}#
(@apply
- (lambda (#{name 18068}#
- #{val 18069}#)
- (if (symbol? #{name 18068}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Ntz}#
+ #{val _85hotwsCta0JfYIjI4Nt0}#)
+ (if (symbol?
+ #{name _85hotwsCta0JfYIjI4Ntz}#)
#t
(if (if (vector?
- #{name 18068}#)
+ #{name _85hotwsCta0JfYIjI4Ntz}#)
(if (= (vector-length
- #{name 18068}#)
+ #{name _85hotwsCta0JfYIjI4Ntz}#)
4)
(eq? (vector-ref
- #{name 18068}#
+ #{name _85hotwsCta0JfYIjI4Ntz}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 18068}#
+ #{name _85hotwsCta0JfYIjI4Ntz}#
1))
#f)))
- #{tmp 18064}#)
+ #{tmp _85hotwsCta0JfYIjI4Ntv}#)
#f)
(@apply
- (lambda (#{name 18096}#
- #{val 18097}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4NuP}#
+ #{val _85hotwsCta0JfYIjI4NuQ}#)
(values
'define-syntax-form
- #{name 18096}#
- #{val 18097}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 18064}#)
+ #{name _85hotwsCta0JfYIjI4NuP}#
+ #{val _85hotwsCta0JfYIjI4NuQ}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))
+ #{tmp _85hotwsCta0JfYIjI4Ntv}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 17669}#)))
- (if (eqv? #{ftype 17713}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#)))
+ (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}#
'define-syntax-parameter)
- (let ((#{tmp 18108}#
+ (let ((#{tmp _85hotwsCta0JfYIjI4Nub}#
($sc-dispatch
- #{e 17669}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#
'(_ any any))))
- (if (if #{tmp 18108}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Nub}#
(@apply
- (lambda (#{name 18112}#
- #{val 18113}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Nuf}#
+ #{val _85hotwsCta0JfYIjI4Nug}#)
(if (symbol?
- #{name 18112}#)
+ #{name _85hotwsCta0JfYIjI4Nuf}#)
#t
(if (if (vector?
- #{name 18112}#)
+ #{name _85hotwsCta0JfYIjI4Nuf}#)
(if (= (vector-length
- #{name 18112}#)
+ #{name _85hotwsCta0JfYIjI4Nuf}#)
4)
(eq? (vector-ref
- #{name 18112}#
+ #{name _85hotwsCta0JfYIjI4Nuf}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{name 18112}#
+ #{name _85hotwsCta0JfYIjI4Nuf}#
1))
#f)))
- #{tmp 18108}#)
+ #{tmp _85hotwsCta0JfYIjI4Nub}#)
#f)
(@apply
- (lambda (#{name 18140}#
- #{val 18141}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4Nu7}#
+ #{val _85hotwsCta0JfYIjI4Nu8}#)
(values
'define-syntax-parameter-form
- #{name 18140}#
- #{val 18141}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#))
- #{tmp 18108}#)
+ #{name _85hotwsCta0JfYIjI4Nu7}#
+ #{val _85hotwsCta0JfYIjI4Nu8}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))
+ #{tmp _85hotwsCta0JfYIjI4Nub}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 17669}#)))
+ #{e _85hotwsCta0JfYIjI4Nnk}#)))
(values
'call
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)))))))))))))))
- (if (if (vector? #{e 17669}#)
- (if (= (vector-length #{e 17669}#) 4)
- (eq? (vector-ref #{e 17669}# 0) 'syntax-object)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)))))))))))))))
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4Nnk}#)
+ (if (= (vector-length #{e _85hotwsCta0JfYIjI4Nnk}#)
+ 4)
+ (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 0)
+ 'syntax-object)
#f)
#f)
- (#{syntax-type 2777}#
- (vector-ref #{e 17669}# 1)
- #{r 17670}#
- (#{join-wraps 2759}#
- #{w 17671}#
- (vector-ref #{e 17669}# 2))
- (let ((#{t 18168}#
- (#{source-annotation 2736}# #{e 17669}#)))
- (if #{t 18168}# #{t 18168}# #{s 17672}#))
- #{rib 17673}#
- (let ((#{t 18403}# (vector-ref #{e 17669}# 3)))
- (if #{t 18403}# #{t 18403}# #{mod 17674}#))
- #{for-car? 17675}#)
- (if (self-evaluating? #{e 17669}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 1)
+ #{r _85hotwsCta0JfYIjI4Nnl}#
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 2))
+ (let ((#{t _85hotwsCta0JfYIjI4NvX}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4Nnk}#)))
+ (if #{t _85hotwsCta0JfYIjI4NvX}#
+ #{t _85hotwsCta0JfYIjI4NvX}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#))
+ #{rib _85hotwsCta0JfYIjI4Nno}#
+ (let ((#{t _85hotwsCta0JfYIjI4NzC}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 3)))
+ (if #{t _85hotwsCta0JfYIjI4NzC}#
+ #{t _85hotwsCta0JfYIjI4NzC}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#))
+ #{for-car? _85hotwsCta0JfYIjI4Nnq}#)
+ (if (self-evaluating? #{e _85hotwsCta0JfYIjI4Nnk}#)
(values
'constant
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)
(values
'other
#f
- #{e 17669}#
- #{w 17671}#
- #{s 17672}#
- #{mod 17674}#)))))))
- (#{expand 2778}#
- (lambda (#{e 18412}#
- #{r 18413}#
- #{w 18414}#
- #{mod 18415}#)
+ #{e _85hotwsCta0JfYIjI4Nnk}#
+ #{w _85hotwsCta0JfYIjI4Nnm}#
+ #{s _85hotwsCta0JfYIjI4Nnn}#
+ #{mod _85hotwsCta0JfYIjI4Nnp}#)))))))
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ (lambda (#{e _85hotwsCta0JfYIjI4NzL}#
+ #{r _85hotwsCta0JfYIjI4NzM}#
+ #{w _85hotwsCta0JfYIjI4NzN}#
+ #{mod _85hotwsCta0JfYIjI4NzO}#)
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 18412}#
- #{r 18413}#
- #{w 18414}#
- (#{source-annotation 2736}# #{e 18412}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4NzL}#
+ #{r _85hotwsCta0JfYIjI4NzM}#
+ #{w _85hotwsCta0JfYIjI4NzN}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4NzL}#)
#f
- #{mod 18415}#
+ #{mod _85hotwsCta0JfYIjI4NzO}#
#f))
- (lambda (#{type 18570}#
- #{value 18571}#
- #{e 18572}#
- #{w 18573}#
- #{s 18574}#
- #{mod 18575}#)
- (#{expand-expr 2779}#
- #{type 18570}#
- #{value 18571}#
- #{e 18572}#
- #{r 18413}#
- #{w 18573}#
- #{s 18574}#
- #{mod 18575}#)))))
- (#{expand-expr 2779}#
- (lambda (#{type 18578}#
- #{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'lexical)
+ (lambda (#{type _85hotwsCta0JfYIjI4N1p}#
+ #{value _85hotwsCta0JfYIjI4N1q}#
+ #{e _85hotwsCta0JfYIjI4N1r}#
+ #{w _85hotwsCta0JfYIjI4N1s}#
+ #{s _85hotwsCta0JfYIjI4N1t}#
+ #{mod _85hotwsCta0JfYIjI4N1u}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4N1p}#
+ #{value _85hotwsCta0JfYIjI4N1q}#
+ #{e _85hotwsCta0JfYIjI4N1r}#
+ #{r _85hotwsCta0JfYIjI4NzM}#
+ #{w _85hotwsCta0JfYIjI4N1s}#
+ #{s _85hotwsCta0JfYIjI4N1t}#
+ #{mod _85hotwsCta0JfYIjI4N1u}#)))))
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ (lambda (#{type _85hotwsCta0JfYIjI4N1x}#
+ #{value _85hotwsCta0JfYIjI4N1y}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'lexical)
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
- #{s 18583}#
- #{e 18580}#
- #{value 18579}#)
- (if (if (eqv? #{type 18578}# 'core)
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{value _85hotwsCta0JfYIjI4N1y}#)
+ (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core)
#t
- (eqv? #{type 18578}# 'core-form))
- (#{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'module-ref)
+ (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core-form))
+ (#{value _85hotwsCta0JfYIjI4N1y}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'module-ref)
(call-with-values
(lambda ()
- (#{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#))
- (lambda (#{e 18610}#
- #{r 18611}#
- #{w 18612}#
- #{s 18613}#
- #{mod 18614}#)
- (#{expand 2778}#
- #{e 18610}#
- #{r 18611}#
- #{w 18612}#
- #{mod 18614}#)))
- (if (eqv? #{type 18578}# 'lexical-call)
- (#{expand-application 2780}#
- (let ((#{id 18689}# (car #{e 18580}#)))
- (#{build-lexical-reference 2713}#
+ (#{value _85hotwsCta0JfYIjI4N1y}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#))
+ (lambda (#{e _85hotwsCta0JfYIjI4N2R}#
+ #{r _85hotwsCta0JfYIjI4N2S}#
+ #{w _85hotwsCta0JfYIjI4N2T}#
+ #{s _85hotwsCta0JfYIjI4N2U}#
+ #{mod _85hotwsCta0JfYIjI4N2V}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4N2R}#
+ #{r _85hotwsCta0JfYIjI4N2S}#
+ #{w _85hotwsCta0JfYIjI4N2T}#
+ #{mod _85hotwsCta0JfYIjI4N2V}#)))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'lexical-call)
+ (#{expand-application _85hotwsCta0JfYIjI4J4N}#
+ (let ((#{id _85hotwsCta0JfYIjI4N3g}#
+ (car #{e _85hotwsCta0JfYIjI4N1z}#)))
+ (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}#
'fun
- (#{source-annotation 2736}# #{id 18689}#)
- (if (if (vector? #{id 18689}#)
- (if (= (vector-length #{id 18689}#) 4)
- (eq? (vector-ref #{id 18689}# 0) 'syntax-object)
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{id _85hotwsCta0JfYIjI4N3g}#)
+ (if (if (vector? #{id _85hotwsCta0JfYIjI4N3g}#)
+ (if (= (vector-length
+ #{id _85hotwsCta0JfYIjI4N3g}#)
+ 4)
+ (eq? (vector-ref
+ #{id _85hotwsCta0JfYIjI4N3g}#
+ 0)
+ 'syntax-object)
#f)
#f)
- (syntax->datum #{id 18689}#)
- #{id 18689}#)
- #{value 18579}#))
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'global-call)
- (#{expand-application 2780}#
- (#{build-global-reference 2716}#
- (#{source-annotation 2736}# (car #{e 18580}#))
- (if (if (vector? #{value 18579}#)
- (if (= (vector-length #{value 18579}#) 4)
- (eq? (vector-ref #{value 18579}# 0)
+ (syntax->datum #{id _85hotwsCta0JfYIjI4N3g}#)
+ #{id _85hotwsCta0JfYIjI4N3g}#)
+ #{value _85hotwsCta0JfYIjI4N1y}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'global-call)
+ (#{expand-application _85hotwsCta0JfYIjI4J4N}#
+ (#{build-global-reference _85hotwsCta0JfYIjI4J3M}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ (car #{e _85hotwsCta0JfYIjI4N1z}#))
+ (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#)
+ (if (= (vector-length
+ #{value _85hotwsCta0JfYIjI4N1y}#)
+ 4)
+ (eq? (vector-ref
+ #{value _85hotwsCta0JfYIjI4N1y}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 18579}# 1)
- #{value 18579}#)
- (if (if (vector? #{value 18579}#)
- (if (= (vector-length #{value 18579}#) 4)
- (eq? (vector-ref #{value 18579}# 0)
+ (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 1)
+ #{value _85hotwsCta0JfYIjI4N1y}#)
+ (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#)
+ (if (= (vector-length
+ #{value _85hotwsCta0JfYIjI4N1y}#)
+ 4)
+ (eq? (vector-ref
+ #{value _85hotwsCta0JfYIjI4N1y}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{value 18579}# 3)
- #{mod 18584}#))
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'constant)
- (let ((#{exp 19026}#
- (#{strip 2791}#
- (#{wrap 2771}#
+ (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 3)
+ #{mod _85hotwsCta0JfYIjI4N13}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'constant)
+ (let ((#{exp _85hotwsCta0JfYIjI4N8x}#
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 18580}#) #{s 18583}# #f)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#)
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{s _85hotwsCta0JfYIjI4N12}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
'(()))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 18583}#
- #{exp 19026}#))
- (if (eqv? #{type 18578}# 'global)
- (#{analyze-variable 2715}#
- #{mod 18584}#
- #{value 18579}#
- (lambda (#{mod 19062}#
- #{var 19063}#
- #{public? 19064}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{exp _85hotwsCta0JfYIjI4N8x}#))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'global)
+ (#{analyze-variable _85hotwsCta0JfYIjI4J3L}#
+ #{mod _85hotwsCta0JfYIjI4N13}#
+ #{value _85hotwsCta0JfYIjI4N1y}#
+ (lambda (#{mod _85hotwsCta0JfYIjI4N9V}#
+ #{var _85hotwsCta0JfYIjI4N9W}#
+ #{public? _85hotwsCta0JfYIjI4N9X}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
- #{s 18583}#
- #{mod 19062}#
- #{var 19063}#
- #{public? 19064}#))
- (lambda (#{var 19073}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N9V}#
+ #{var _85hotwsCta0JfYIjI4N9W}#
+ #{public? _85hotwsCta0JfYIjI4N9X}#))
+ (lambda (#{var _85hotwsCta0JfYIjI4N9g}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
- #{s 18583}#
- #{var 19073}#)))
- (if (eqv? #{type 18578}# 'call)
- (#{expand-application 2780}#
- (#{expand 2778}#
- (car #{e 18580}#)
- #{r 18581}#
- #{w 18582}#
- #{mod 18584}#)
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
- (if (eqv? #{type 18578}# 'begin-form)
- (let ((#{tmp 19148}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{var _85hotwsCta0JfYIjI4N9g}#)))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'call)
+ (#{expand-application _85hotwsCta0JfYIjI4J4N}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ (car #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'begin-form)
+ (let ((#{tmp _85hotwsCta0JfYIjI4N$r}#
($sc-dispatch
- #{e 18580}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
'(_ any . each-any))))
- (if #{tmp 19148}#
+ (if #{tmp _85hotwsCta0JfYIjI4N$r}#
(@apply
- (lambda (#{e1 19152}# #{e2 19153}#)
- (#{expand-sequence 2773}#
- (cons #{e1 19152}# #{e2 19153}#)
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#))
- #{tmp 19148}#)
- (let ((#{tmp 19240}#
- ($sc-dispatch #{e 18580}# '(_))))
- (if #{tmp 19240}#
+ (lambda (#{e1 _85hotwsCta0JfYIjI4N$v}#
+ #{e2 _85hotwsCta0JfYIjI4N$w}#)
+ (#{expand-sequence _85hotwsCta0JfYIjI4J4G}#
+ (cons #{e1 _85hotwsCta0JfYIjI4N$v}#
+ #{e2 _85hotwsCta0JfYIjI4N$w}#)
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#))
+ #{tmp _85hotwsCta0JfYIjI4N$r}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OAH}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ '(_))))
+ (if #{tmp _85hotwsCta0JfYIjI4OAH}#
(@apply
(lambda ()
(if (include-deprecated-features)
@@ -3989,820 +4376,914 @@
(syntax-violation
#f
"sequence of zero expressions"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))))
- #{tmp 19240}#)
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{s _85hotwsCta0JfYIjI4N12}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#))))
+ #{tmp _85hotwsCta0JfYIjI4OAH}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 18580}#)))))
- (if (eqv? #{type 18578}# 'local-syntax-form)
- (#{expand-local-syntax 2783}#
- #{value 18579}#
- #{e 18580}#
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#
- #{expand-sequence 2773}#)
- (if (eqv? #{type 18578}# 'eval-when-form)
- (let ((#{tmp 19351}#
+ #{e _85hotwsCta0JfYIjI4N1z}#)))))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'local-syntax-form)
+ (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
+ #{value _85hotwsCta0JfYIjI4N1y}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#
+ #{expand-sequence _85hotwsCta0JfYIjI4J4G}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'eval-when-form)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OB2}#
($sc-dispatch
- #{e 18580}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
'(_ each-any any . each-any))))
- (if #{tmp 19351}#
+ (if #{tmp _85hotwsCta0JfYIjI4OB2}#
(@apply
- (lambda (#{x 19355}#
- #{e1 19356}#
- #{e2 19357}#)
- (let ((#{when-list 19358}#
- (#{parse-when-list 2776}#
- #{e 18580}#
- #{x 19355}#)))
- (if (memq 'eval #{when-list 19358}#)
- (#{expand-sequence 2773}#
- (cons #{e1 19356}# #{e2 19357}#)
- #{r 18581}#
- #{w 18582}#
- #{s 18583}#
- #{mod 18584}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4OB6}#
+ #{e1 _85hotwsCta0JfYIjI4OB7}#
+ #{e2 _85hotwsCta0JfYIjI4OB8}#)
+ (let ((#{when-list _85hotwsCta0JfYIjI4OB9}#
+ (#{parse-when-list _85hotwsCta0JfYIjI4J4J}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{x _85hotwsCta0JfYIjI4OB6}#)))
+ (if (memq 'eval
+ #{when-list _85hotwsCta0JfYIjI4OB9}#)
+ (#{expand-sequence _85hotwsCta0JfYIjI4J4G}#
+ (cons #{e1 _85hotwsCta0JfYIjI4OB7}#
+ #{e2 _85hotwsCta0JfYIjI4OB8}#)
+ #{r _85hotwsCta0JfYIjI4N10}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{s _85hotwsCta0JfYIjI4N12}#
+ #{mod _85hotwsCta0JfYIjI4N13}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f))))
- #{tmp 19351}#)
+ #{tmp _85hotwsCta0JfYIjI4OB2}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 18580}#)))
- (if (if (eqv? #{type 18578}# 'define-form)
+ #{e _85hotwsCta0JfYIjI4N1z}#)))
+ (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'define-form)
#t
- (if (eqv? #{type 18578}#
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
'define-syntax-form)
#t
- (eqv? #{type 18578}#
+ (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
'define-syntax-parameter-form)))
(syntax-violation
#f
"definition in expression context"
- #{e 18580}#
- (#{wrap 2771}#
- #{value 18579}#
- #{w 18582}#
- #{mod 18584}#))
- (if (eqv? #{type 18578}# 'syntax)
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{value _85hotwsCta0JfYIjI4N1y}#
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'syntax)
(syntax-violation
#f
"reference to pattern variable outside syntax form"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))
- (if (eqv? #{type 18578}# 'displaced-lexical)
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{s _85hotwsCta0JfYIjI4N12}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}#
+ 'displaced-lexical)
(syntax-violation
#f
"reference to identifier outside its scope"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{s _85hotwsCta0JfYIjI4N12}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#))
(syntax-violation
#f
"unexpected syntax"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 18580}#)
- #{s 18583}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{s _85hotwsCta0JfYIjI4N12}#
#f)
(set-source-properties!
- #{e 18580}#
- #{s 18583}#))
- #{e 18580}#)
- #{w 18582}#
- #{mod 18584}#))))))))))))))))))
- (#{expand-application 2780}#
- (lambda (#{x 19598}#
- #{e 19599}#
- #{r 19600}#
- #{w 19601}#
- #{s 19602}#
- #{mod 19603}#)
- (let ((#{tmp 19605}#
- ($sc-dispatch #{e 19599}# '(any . each-any))))
- (if #{tmp 19605}#
+ #{e _85hotwsCta0JfYIjI4N1z}#
+ #{s _85hotwsCta0JfYIjI4N12}#))
+ #{e _85hotwsCta0JfYIjI4N1z}#)
+ #{w _85hotwsCta0JfYIjI4N11}#
+ #{mod _85hotwsCta0JfYIjI4N13}#))))))))))))))))))
+ (#{expand-application _85hotwsCta0JfYIjI4J4N}#
+ (lambda (#{x _85hotwsCta0JfYIjI4OFt}#
+ #{e _85hotwsCta0JfYIjI4OFu}#
+ #{r _85hotwsCta0JfYIjI4OFv}#
+ #{w _85hotwsCta0JfYIjI4OFw}#
+ #{s _85hotwsCta0JfYIjI4OFx}#
+ #{mod _85hotwsCta0JfYIjI4OFy}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OF0}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4OFu}#
+ '(any . each-any))))
+ (if #{tmp _85hotwsCta0JfYIjI4OF0}#
(@apply
- (lambda (#{e0 19609}# #{e1 19610}#)
- (#{build-application 2710}#
- #{s 19602}#
- #{x 19598}#
- (map (lambda (#{e 19690}#)
- (#{expand 2778}#
- #{e 19690}#
- #{r 19600}#
- #{w 19601}#
- #{mod 19603}#))
- #{e1 19610}#)))
- #{tmp 19605}#)
+ (lambda (#{e0 _85hotwsCta0JfYIjI4OF4}#
+ #{e1 _85hotwsCta0JfYIjI4OF5}#)
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ #{s _85hotwsCta0JfYIjI4OFx}#
+ #{x _85hotwsCta0JfYIjI4OFt}#
+ (map (lambda (#{e _85hotwsCta0JfYIjI4OHJ}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{e _85hotwsCta0JfYIjI4OHJ}#
+ #{r _85hotwsCta0JfYIjI4OFv}#
+ #{w _85hotwsCta0JfYIjI4OFw}#
+ #{mod _85hotwsCta0JfYIjI4OFy}#))
+ #{e1 _85hotwsCta0JfYIjI4OF5}#)))
+ #{tmp _85hotwsCta0JfYIjI4OF0}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 19599}#)))))
- (#{expand-macro 2781}#
- (lambda (#{p 19766}#
- #{e 19767}#
- #{r 19768}#
- #{w 19769}#
- #{s 19770}#
- #{rib 19771}#
- #{mod 19772}#)
+ #{e _85hotwsCta0JfYIjI4OFu}#)))))
+ (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
+ (lambda (#{p _85hotwsCta0JfYIjI4OIV}#
+ #{e _85hotwsCta0JfYIjI4OIW}#
+ #{r _85hotwsCta0JfYIjI4OIX}#
+ #{w _85hotwsCta0JfYIjI4OIY}#
+ #{s _85hotwsCta0JfYIjI4OIZ}#
+ #{rib _85hotwsCta0JfYIjI4OIa}#
+ #{mod _85hotwsCta0JfYIjI4OIb}#)
(letrec*
- ((#{rebuild-macro-output 19773}#
- (lambda (#{x 19805}# #{m 19806}#)
- (if (pair? #{x 19805}#)
- (let ((#{e 19810}#
- (cons (#{rebuild-macro-output 19773}#
- (car #{x 19805}#)
- #{m 19806}#)
- (#{rebuild-macro-output 19773}#
- (cdr #{x 19805}#)
- #{m 19806}#))))
+ ((#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
+ (lambda (#{x _85hotwsCta0JfYIjI4OI9}#
+ #{m _85hotwsCta0JfYIjI4OI$}#)
+ (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#)
+ (let ((#{e _85hotwsCta0JfYIjI4OJC}#
+ (cons (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
+ (car #{x _85hotwsCta0JfYIjI4OI9}#)
+ #{m _85hotwsCta0JfYIjI4OI$}#)
+ (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
+ (cdr #{x _85hotwsCta0JfYIjI4OI9}#)
+ #{m _85hotwsCta0JfYIjI4OI$}#))))
(begin
- (if (if (pair? #{e 19810}#) #{s 19770}# #f)
- (set-source-properties! #{e 19810}# #{s 19770}#))
- #{e 19810}#))
- (if (if (vector? #{x 19805}#)
- (if (= (vector-length #{x 19805}#) 4)
- (eq? (vector-ref #{x 19805}# 0) 'syntax-object)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OJC}#)
+ #{s _85hotwsCta0JfYIjI4OIZ}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4OJC}#
+ #{s _85hotwsCta0JfYIjI4OIZ}#))
+ #{e _85hotwsCta0JfYIjI4OJC}#))
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4OI9}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{w 19826}# (vector-ref #{x 19805}# 2)))
- (let ((#{ms 19827}# (car #{w 19826}#))
- (#{s 19828}# (cdr #{w 19826}#)))
- (if (if (pair? #{ms 19827}#)
- (eq? (car #{ms 19827}#) #f)
+ (let ((#{w _85hotwsCta0JfYIjI4OJS}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 2)))
+ (let ((#{ms _85hotwsCta0JfYIjI4OJT}#
+ (car #{w _85hotwsCta0JfYIjI4OJS}#))
+ (#{s _85hotwsCta0JfYIjI4OJU}#
+ (cdr #{w _85hotwsCta0JfYIjI4OJS}#)))
+ (if (if (pair? #{ms _85hotwsCta0JfYIjI4OJT}#)
+ (eq? (car #{ms _85hotwsCta0JfYIjI4OJT}#) #f)
#f)
- (let ((#{expression 19836}#
- (vector-ref #{x 19805}# 1))
- (#{wrap 19837}#
- (cons (cdr #{ms 19827}#)
- (if #{rib 19771}#
- (cons #{rib 19771}#
- (cdr #{s 19828}#))
- (cdr #{s 19828}#))))
- (#{module 19838}# (vector-ref #{x 19805}# 3)))
+ (let ((#{expression _85hotwsCta0JfYIjI4OJc}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 1))
+ (#{wrap _85hotwsCta0JfYIjI4OJd}#
+ (cons (cdr #{ms _85hotwsCta0JfYIjI4OJT}#)
+ (if #{rib _85hotwsCta0JfYIjI4OIa}#
+ (cons #{rib _85hotwsCta0JfYIjI4OIa}#
+ (cdr #{s _85hotwsCta0JfYIjI4OJU}#))
+ (cdr #{s _85hotwsCta0JfYIjI4OJU}#))))
+ (#{module _85hotwsCta0JfYIjI4OJe}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3)))
(vector
'syntax-object
- #{expression 19836}#
- #{wrap 19837}#
- #{module 19838}#))
- (let ((#{expression 19848}#
- (let ((#{e 19853}#
- (vector-ref #{x 19805}# 1)))
+ #{expression _85hotwsCta0JfYIjI4OJc}#
+ #{wrap _85hotwsCta0JfYIjI4OJd}#
+ #{module _85hotwsCta0JfYIjI4OJe}#))
+ (let ((#{expression _85hotwsCta0JfYIjI4OJo}#
+ (let ((#{e _85hotwsCta0JfYIjI4OJt}#
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4OI9}#
+ 1)))
(begin
- (if (if (pair? #{e 19853}#)
- #{s 19828}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OJt}#)
+ #{s _85hotwsCta0JfYIjI4OJU}#
#f)
(set-source-properties!
- #{e 19853}#
- #{s 19828}#))
- #{e 19853}#)))
- (#{wrap 19849}#
- (cons (cons #{m 19806}# #{ms 19827}#)
- (if #{rib 19771}#
- (cons #{rib 19771}#
- (cons 'shift #{s 19828}#))
- (cons 'shift #{s 19828}#))))
- (#{module 19850}# (vector-ref #{x 19805}# 3)))
+ #{e _85hotwsCta0JfYIjI4OJt}#
+ #{s _85hotwsCta0JfYIjI4OJU}#))
+ #{e _85hotwsCta0JfYIjI4OJt}#)))
+ (#{wrap _85hotwsCta0JfYIjI4OJp}#
+ (cons (cons #{m _85hotwsCta0JfYIjI4OI$}#
+ #{ms _85hotwsCta0JfYIjI4OJT}#)
+ (if #{rib _85hotwsCta0JfYIjI4OIa}#
+ (cons #{rib _85hotwsCta0JfYIjI4OIa}#
+ (cons 'shift
+ #{s _85hotwsCta0JfYIjI4OJU}#))
+ (cons 'shift
+ #{s _85hotwsCta0JfYIjI4OJU}#))))
+ (#{module _85hotwsCta0JfYIjI4OJq}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3)))
(vector
'syntax-object
- #{expression 19848}#
- #{wrap 19849}#
- #{module 19850}#)))))
- (if (vector? #{x 19805}#)
- (let ((#{n 19865}# (vector-length #{x 19805}#)))
- (let ((#{v 19866}#
- (let ((#{e 19874}# (make-vector #{n 19865}#)))
+ #{expression _85hotwsCta0JfYIjI4OJo}#
+ #{wrap _85hotwsCta0JfYIjI4OJp}#
+ #{module _85hotwsCta0JfYIjI4OJq}#)))))
+ (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#)
+ (let ((#{n _85hotwsCta0JfYIjI4OJ5}#
+ (vector-length #{x _85hotwsCta0JfYIjI4OI9}#)))
+ (let ((#{v _85hotwsCta0JfYIjI4OJ6}#
+ (let ((#{e _85hotwsCta0JfYIjI4OKC}#
+ (make-vector
+ #{n _85hotwsCta0JfYIjI4OJ5}#)))
(begin
- (if (if (pair? #{e 19874}#) #{x 19805}# #f)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OKC}#)
+ #{x _85hotwsCta0JfYIjI4OI9}#
+ #f)
(set-source-properties!
- #{e 19874}#
- #{x 19805}#))
- #{e 19874}#))))
+ #{e _85hotwsCta0JfYIjI4OKC}#
+ #{x _85hotwsCta0JfYIjI4OI9}#))
+ #{e _85hotwsCta0JfYIjI4OKC}#))))
(letrec*
- ((#{loop 19867}#
- (lambda (#{i 19919}#)
- (if (= #{i 19919}# #{n 19865}#)
- #{v 19866}#
+ ((#{loop _85hotwsCta0JfYIjI4OJ7}#
+ (lambda (#{i _85hotwsCta0JfYIjI4OKv}#)
+ (if (= #{i _85hotwsCta0JfYIjI4OKv}#
+ #{n _85hotwsCta0JfYIjI4OJ5}#)
+ #{v _85hotwsCta0JfYIjI4OJ6}#
(begin
(vector-set!
- #{v 19866}#
- #{i 19919}#
- (#{rebuild-macro-output 19773}#
- (vector-ref #{x 19805}# #{i 19919}#)
- #{m 19806}#))
- (#{loop 19867}# (#{1+}# #{i 19919}#)))))))
- (#{loop 19867}# 0))))
- (if (symbol? #{x 19805}#)
+ #{v _85hotwsCta0JfYIjI4OJ6}#
+ #{i _85hotwsCta0JfYIjI4OKv}#
+ (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4OI9}#
+ #{i _85hotwsCta0JfYIjI4OKv}#)
+ #{m _85hotwsCta0JfYIjI4OI$}#))
+ (#{loop _85hotwsCta0JfYIjI4OJ7}#
+ (#{1+}# #{i _85hotwsCta0JfYIjI4OKv}#)))))))
+ (#{loop _85hotwsCta0JfYIjI4OJ7}# 0))))
+ (if (symbol? #{x _85hotwsCta0JfYIjI4OI9}#)
(syntax-violation
#f
"encountered raw symbol in macro output"
- (let ((#{s 19925}# (cdr #{w 19769}#)))
- (#{wrap 2771}#
+ (let ((#{s _85hotwsCta0JfYIjI4OK1}#
+ (cdr #{w _85hotwsCta0JfYIjI4OIY}#)))
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 19767}#) #{s 19925}# #f)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#)
+ #{s _85hotwsCta0JfYIjI4OK1}#
+ #f)
(set-source-properties!
- #{e 19767}#
- #{s 19925}#))
- #{e 19767}#)
- #{w 19769}#
- #{mod 19772}#))
- #{x 19805}#)
+ #{e _85hotwsCta0JfYIjI4OIW}#
+ #{s _85hotwsCta0JfYIjI4OK1}#))
+ #{e _85hotwsCta0JfYIjI4OIW}#)
+ #{w _85hotwsCta0JfYIjI4OIY}#
+ #{mod _85hotwsCta0JfYIjI4OIb}#))
+ #{x _85hotwsCta0JfYIjI4OI9}#)
(begin
- (if (if (pair? #{x 19805}#) #{s 19770}# #f)
- (set-source-properties! #{x 19805}# #{s 19770}#))
- #{x 19805}#))))))))
+ (if (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#)
+ #{s _85hotwsCta0JfYIjI4OIZ}#
+ #f)
+ (set-source-properties!
+ #{x _85hotwsCta0JfYIjI4OI9}#
+ #{s _85hotwsCta0JfYIjI4OIZ}#))
+ #{x _85hotwsCta0JfYIjI4OI9}#))))))))
(with-fluids
- ((#{transformer-environment 2764}#
- (lambda (#{k 19774}#)
- (#{k 19774}#
- #{e 19767}#
- #{r 19768}#
- #{w 19769}#
- #{s 19770}#
- #{rib 19771}#
- #{mod 19772}#))))
- (#{rebuild-macro-output 19773}#
- (#{p 19766}#
- (let ((#{w 19781}#
- (cons (cons #f (car #{w 19769}#))
- (cons 'shift (cdr #{w 19769}#)))))
- (#{wrap 2771}#
+ ((#{transformer-environment _85hotwsCta0JfYIjI4J39}#
+ (lambda (#{k _85hotwsCta0JfYIjI4OId}#)
+ (#{k _85hotwsCta0JfYIjI4OId}#
+ #{e _85hotwsCta0JfYIjI4OIW}#
+ #{r _85hotwsCta0JfYIjI4OIX}#
+ #{w _85hotwsCta0JfYIjI4OIY}#
+ #{s _85hotwsCta0JfYIjI4OIZ}#
+ #{rib _85hotwsCta0JfYIjI4OIa}#
+ #{mod _85hotwsCta0JfYIjI4OIb}#))))
+ (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}#
+ (#{p _85hotwsCta0JfYIjI4OIV}#
+ (let ((#{w _85hotwsCta0JfYIjI4OIk}#
+ (cons (cons #f (car #{w _85hotwsCta0JfYIjI4OIY}#))
+ (cons 'shift
+ (cdr #{w _85hotwsCta0JfYIjI4OIY}#)))))
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 19767}#) #{s 19770}# #f)
- (set-source-properties! #{e 19767}# #{s 19770}#))
- #{e 19767}#)
- #{w 19781}#
- #{mod 19772}#)))
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#)
+ #{s _85hotwsCta0JfYIjI4OIZ}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4OIW}#
+ #{s _85hotwsCta0JfYIjI4OIZ}#))
+ #{e _85hotwsCta0JfYIjI4OIW}#)
+ #{w _85hotwsCta0JfYIjI4OIk}#
+ #{mod _85hotwsCta0JfYIjI4OIb}#)))
(gensym "m"))))))
- (#{expand-body 2782}#
- (lambda (#{body 19957}#
- #{outer-form 19958}#
- #{r 19959}#
- #{w 19960}#
- #{mod 19961}#)
- (let ((#{r 19962}#
- (cons '("placeholder" placeholder) #{r 19959}#)))
- (let ((#{ribcage 19963}# (vector 'ribcage '() '() '())))
- (let ((#{w 19964}#
- (cons (car #{w 19960}#)
- (cons #{ribcage 19963}# (cdr #{w 19960}#)))))
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ (lambda (#{body _85hotwsCta0JfYIjI4OLV}#
+ #{outer-form _85hotwsCta0JfYIjI4OLW}#
+ #{r _85hotwsCta0JfYIjI4OLX}#
+ #{w _85hotwsCta0JfYIjI4OLY}#
+ #{mod _85hotwsCta0JfYIjI4OLZ}#)
+ (let ((#{r _85hotwsCta0JfYIjI4OLa}#
+ (cons '("placeholder" placeholder)
+ #{r _85hotwsCta0JfYIjI4OLX}#)))
+ (let ((#{ribcage _85hotwsCta0JfYIjI4OLb}#
+ (vector 'ribcage '() '() '())))
+ (let ((#{w _85hotwsCta0JfYIjI4OLc}#
+ (cons (car #{w _85hotwsCta0JfYIjI4OLY}#)
+ (cons #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ (cdr #{w _85hotwsCta0JfYIjI4OLY}#)))))
(letrec*
- ((#{parse 19965}#
- (lambda (#{body 19978}#
- #{ids 19979}#
- #{labels 19980}#
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
- #{bindings 19984}#)
- (if (null? #{body 19978}#)
+ ((#{parse _85hotwsCta0JfYIjI4OLd}#
+ (lambda (#{body _85hotwsCta0JfYIjI4OLq}#
+ #{ids _85hotwsCta0JfYIjI4OLr}#
+ #{labels _85hotwsCta0JfYIjI4OLs}#
+ #{var-ids _85hotwsCta0JfYIjI4OLt}#
+ #{vars _85hotwsCta0JfYIjI4OLu}#
+ #{vals _85hotwsCta0JfYIjI4OLv}#
+ #{bindings _85hotwsCta0JfYIjI4OLw}#)
+ (if (null? #{body _85hotwsCta0JfYIjI4OLq}#)
(syntax-violation
#f
"no expressions in body"
- #{outer-form 19958}#)
- (let ((#{e 19985}# (cdr (car #{body 19978}#)))
- (#{er 19986}# (car (car #{body 19978}#))))
+ #{outer-form _85hotwsCta0JfYIjI4OLW}#)
+ (let ((#{e _85hotwsCta0JfYIjI4OLx}#
+ (cdr (car #{body _85hotwsCta0JfYIjI4OLq}#)))
+ (#{er _85hotwsCta0JfYIjI4OLy}#
+ (car (car #{body _85hotwsCta0JfYIjI4OLq}#))))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 19985}#
- #{er 19986}#
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4OLx}#
+ #{er _85hotwsCta0JfYIjI4OLy}#
'(())
- (#{source-annotation 2736}# #{er 19986}#)
- #{ribcage 19963}#
- #{mod 19961}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{er _85hotwsCta0JfYIjI4OLy}#)
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
+ #{mod _85hotwsCta0JfYIjI4OLZ}#
#f))
- (lambda (#{type 20143}#
- #{value 20144}#
- #{e 20145}#
- #{w 20146}#
- #{s 20147}#
- #{mod 20148}#)
- (if (eqv? #{type 20143}# 'define-form)
- (let ((#{id 20152}#
- (#{wrap 2771}#
- #{value 20144}#
- #{w 20146}#
- #{mod 20148}#))
- (#{label 20153}# (#{gen-label 2745}#)))
- (let ((#{var 20154}#
- (let ((#{id 20212}#
+ (lambda (#{type _85hotwsCta0JfYIjI4OOP}#
+ #{value _85hotwsCta0JfYIjI4OOQ}#
+ #{e _85hotwsCta0JfYIjI4OOR}#
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{s _85hotwsCta0JfYIjI4OOT}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ 'define-form)
+ (let ((#{id _85hotwsCta0JfYIjI4OOY}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{value _85hotwsCta0JfYIjI4OOQ}#
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ (#{label _85hotwsCta0JfYIjI4OOZ}#
+ (#{gen-label _85hotwsCta0JfYIjI4J3p}#)))
+ (let ((#{var _85hotwsCta0JfYIjI4OOa}#
+ (let ((#{id _85hotwsCta0JfYIjI4OPU}#
(if (if (vector?
- #{id 20152}#)
+ #{id _85hotwsCta0JfYIjI4OOY}#)
(if (= (vector-length
- #{id 20152}#)
+ #{id _85hotwsCta0JfYIjI4OOY}#)
4)
(eq? (vector-ref
- #{id 20152}#
+ #{id _85hotwsCta0JfYIjI4OOY}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 20152}# 1)
- #{id 20152}#)))
+ (vector-ref
+ #{id _85hotwsCta0JfYIjI4OOY}#
+ 1)
+ #{id _85hotwsCta0JfYIjI4OOY}#)))
(gensym
(string-append
- (symbol->string #{id 20212}#)
+ (symbol->string
+ #{id _85hotwsCta0JfYIjI4OPU}#)
" ")))))
(begin
- (let ((#{update 20202}#
- (cons (vector-ref #{id 20152}# 1)
+ (let ((#{update _85hotwsCta0JfYIjI4OPK}#
+ (cons (vector-ref
+ #{id _85hotwsCta0JfYIjI4OOY}#
+ 1)
(vector-ref
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
1))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
1
- #{update 20202}#))
- (let ((#{update 20204}#
+ #{update _85hotwsCta0JfYIjI4OPK}#))
+ (let ((#{update _85hotwsCta0JfYIjI4OPM}#
(cons (car (vector-ref
- #{id 20152}#
+ #{id _85hotwsCta0JfYIjI4OOY}#
2))
(vector-ref
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
2))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
2
- #{update 20204}#))
- (let ((#{update 20206}#
- (cons #{label 20153}#
+ #{update _85hotwsCta0JfYIjI4OPM}#))
+ (let ((#{update _85hotwsCta0JfYIjI4OPO}#
+ (cons #{label _85hotwsCta0JfYIjI4OOZ}#
(vector-ref
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
3))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
3
- #{update 20206}#))
- (#{parse 19965}#
- (cdr #{body 19978}#)
- (cons #{id 20152}# #{ids 19979}#)
- (cons #{label 20153}# #{labels 19980}#)
- (cons #{id 20152}# #{var-ids 19981}#)
- (cons #{var 20154}# #{vars 19982}#)
- (cons (cons #{er 19986}#
- (#{wrap 2771}#
- #{e 20145}#
- #{w 20146}#
- #{mod 20148}#))
- #{vals 19983}#)
- (cons (cons 'lexical #{var 20154}#)
- #{bindings 19984}#)))))
- (if (if (eqv? #{type 20143}#
+ #{update _85hotwsCta0JfYIjI4OPO}#))
+ (#{parse _85hotwsCta0JfYIjI4OLd}#
+ (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
+ (cons #{id _85hotwsCta0JfYIjI4OOY}#
+ #{ids _85hotwsCta0JfYIjI4OLr}#)
+ (cons #{label _85hotwsCta0JfYIjI4OOZ}#
+ #{labels _85hotwsCta0JfYIjI4OLs}#)
+ (cons #{id _85hotwsCta0JfYIjI4OOY}#
+ #{var-ids _85hotwsCta0JfYIjI4OLt}#)
+ (cons #{var _85hotwsCta0JfYIjI4OOa}#
+ #{vars _85hotwsCta0JfYIjI4OLu}#)
+ (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{e _85hotwsCta0JfYIjI4OOR}#
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ #{vals _85hotwsCta0JfYIjI4OLv}#)
+ (cons (cons 'lexical
+ #{var _85hotwsCta0JfYIjI4OOa}#)
+ #{bindings _85hotwsCta0JfYIjI4OLw}#)))))
+ (if (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
'define-syntax-form)
#t
- (eqv? #{type 20143}#
+ (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
'define-syntax-parameter-form))
- (let ((#{id 20245}#
- (#{wrap 2771}#
- #{value 20144}#
- #{w 20146}#
- #{mod 20148}#))
- (#{label 20246}# (#{gen-label 2745}#)))
+ (let ((#{id _85hotwsCta0JfYIjI4OP1}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{value _85hotwsCta0JfYIjI4OOQ}#
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ (#{label _85hotwsCta0JfYIjI4OP2}#
+ (#{gen-label _85hotwsCta0JfYIjI4J3p}#)))
(begin
- (let ((#{update 20294}#
- (cons (vector-ref #{id 20245}# 1)
+ (let ((#{update _85hotwsCta0JfYIjI4OQm}#
+ (cons (vector-ref
+ #{id _85hotwsCta0JfYIjI4OP1}#
+ 1)
(vector-ref
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
1))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
1
- #{update 20294}#))
- (let ((#{update 20296}#
+ #{update _85hotwsCta0JfYIjI4OQm}#))
+ (let ((#{update _85hotwsCta0JfYIjI4OQo}#
(cons (car (vector-ref
- #{id 20245}#
+ #{id _85hotwsCta0JfYIjI4OP1}#
2))
(vector-ref
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
2))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
2
- #{update 20296}#))
- (let ((#{update 20298}#
- (cons #{label 20246}#
+ #{update _85hotwsCta0JfYIjI4OQo}#))
+ (let ((#{update _85hotwsCta0JfYIjI4OQq}#
+ (cons #{label _85hotwsCta0JfYIjI4OP2}#
(vector-ref
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
3))))
(vector-set!
- #{ribcage 19963}#
+ #{ribcage _85hotwsCta0JfYIjI4OLb}#
3
- #{update 20298}#))
- (#{parse 19965}#
- (cdr #{body 19978}#)
- (cons #{id 20245}# #{ids 19979}#)
- (cons #{label 20246}# #{labels 19980}#)
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
+ #{update _85hotwsCta0JfYIjI4OQq}#))
+ (#{parse _85hotwsCta0JfYIjI4OLd}#
+ (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
+ (cons #{id _85hotwsCta0JfYIjI4OP1}#
+ #{ids _85hotwsCta0JfYIjI4OLr}#)
+ (cons #{label _85hotwsCta0JfYIjI4OP2}#
+ #{labels _85hotwsCta0JfYIjI4OLs}#)
+ #{var-ids _85hotwsCta0JfYIjI4OLt}#
+ #{vars _85hotwsCta0JfYIjI4OLu}#
+ #{vals _85hotwsCta0JfYIjI4OLv}#
(cons (cons 'macro
- (cons #{er 19986}#
- (#{wrap 2771}#
- #{e 20145}#
- #{w 20146}#
- #{mod 20148}#)))
- #{bindings 19984}#))))
- (if (eqv? #{type 20143}# 'begin-form)
- (let ((#{tmp 20306}#
+ (cons #{er _85hotwsCta0JfYIjI4OLy}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{e _85hotwsCta0JfYIjI4OOR}#
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#)))
+ #{bindings _85hotwsCta0JfYIjI4OLw}#))))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
+ 'begin-form)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OQy}#
($sc-dispatch
- #{e 20145}#
+ #{e _85hotwsCta0JfYIjI4OOR}#
'(_ . each-any))))
- (if #{tmp 20306}#
+ (if #{tmp _85hotwsCta0JfYIjI4OQy}#
(@apply
- (lambda (#{e1 20310}#)
- (#{parse 19965}#
+ (lambda (#{e1 _85hotwsCta0JfYIjI4OQ2}#)
+ (#{parse _85hotwsCta0JfYIjI4OLd}#
(letrec*
- ((#{f 20311}#
- (lambda (#{forms 20374}#)
- (if (null? #{forms 20374}#)
- (cdr #{body 19978}#)
- (cons (cons #{er 19986}#
- (#{wrap 2771}#
- (car #{forms 20374}#)
- #{w 20146}#
- #{mod 20148}#))
- (#{f 20311}#
- (cdr #{forms 20374}#)))))))
- (#{f 20311}# #{e1 20310}#))
- #{ids 19979}#
- #{labels 19980}#
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
- #{bindings 19984}#))
- #{tmp 20306}#)
+ ((#{f _85hotwsCta0JfYIjI4OQ3}#
+ (lambda (#{forms _85hotwsCta0JfYIjI4OR2}#)
+ (if (null? #{forms _85hotwsCta0JfYIjI4OR2}#)
+ (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
+ (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (car #{forms _85hotwsCta0JfYIjI4OR2}#)
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ (#{f _85hotwsCta0JfYIjI4OQ3}#
+ (cdr #{forms _85hotwsCta0JfYIjI4OR2}#)))))))
+ (#{f _85hotwsCta0JfYIjI4OQ3}#
+ #{e1 _85hotwsCta0JfYIjI4OQ2}#))
+ #{ids _85hotwsCta0JfYIjI4OLr}#
+ #{labels _85hotwsCta0JfYIjI4OLs}#
+ #{var-ids _85hotwsCta0JfYIjI4OLt}#
+ #{vars _85hotwsCta0JfYIjI4OLu}#
+ #{vals _85hotwsCta0JfYIjI4OLv}#
+ #{bindings _85hotwsCta0JfYIjI4OLw}#))
+ #{tmp _85hotwsCta0JfYIjI4OQy}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 20145}#)))
- (if (eqv? #{type 20143}#
+ #{e _85hotwsCta0JfYIjI4OOR}#)))
+ (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}#
'local-syntax-form)
- (#{expand-local-syntax 2783}#
- #{value 20144}#
- #{e 20145}#
- #{er 19986}#
- #{w 20146}#
- #{s 20147}#
- #{mod 20148}#
- (lambda (#{forms 20388}#
- #{er 20389}#
- #{w 20390}#
- #{s 20391}#
- #{mod 20392}#)
- (#{parse 19965}#
+ (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
+ #{value _85hotwsCta0JfYIjI4OOQ}#
+ #{e _85hotwsCta0JfYIjI4OOR}#
+ #{er _85hotwsCta0JfYIjI4OLy}#
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{s _85hotwsCta0JfYIjI4OOT}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#
+ (lambda (#{forms _85hotwsCta0JfYIjI4OSE}#
+ #{er _85hotwsCta0JfYIjI4OSF}#
+ #{w _85hotwsCta0JfYIjI4OSG}#
+ #{s _85hotwsCta0JfYIjI4OSH}#
+ #{mod _85hotwsCta0JfYIjI4OSI}#)
+ (#{parse _85hotwsCta0JfYIjI4OLd}#
(letrec*
- ((#{f 20393}#
- (lambda (#{forms 20456}#)
- (if (null? #{forms 20456}#)
- (cdr #{body 19978}#)
- (cons (cons #{er 20389}#
- (#{wrap 2771}#
- (car #{forms 20456}#)
- #{w 20390}#
- #{mod 20392}#))
- (#{f 20393}#
- (cdr #{forms 20456}#)))))))
- (#{f 20393}# #{forms 20388}#))
- #{ids 19979}#
- #{labels 19980}#
- #{var-ids 19981}#
- #{vars 19982}#
- #{vals 19983}#
- #{bindings 19984}#)))
- (if (null? #{ids 19979}#)
- (#{build-sequence 2724}#
+ ((#{f _85hotwsCta0JfYIjI4OSJ}#
+ (lambda (#{forms _85hotwsCta0JfYIjI4OTI}#)
+ (if (null? #{forms _85hotwsCta0JfYIjI4OTI}#)
+ (cdr #{body _85hotwsCta0JfYIjI4OLq}#)
+ (cons (cons #{er _85hotwsCta0JfYIjI4OSF}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (car #{forms _85hotwsCta0JfYIjI4OTI}#)
+ #{w _85hotwsCta0JfYIjI4OSG}#
+ #{mod _85hotwsCta0JfYIjI4OSI}#))
+ (#{f _85hotwsCta0JfYIjI4OSJ}#
+ (cdr #{forms _85hotwsCta0JfYIjI4OTI}#)))))))
+ (#{f _85hotwsCta0JfYIjI4OSJ}#
+ #{forms _85hotwsCta0JfYIjI4OSE}#))
+ #{ids _85hotwsCta0JfYIjI4OLr}#
+ #{labels _85hotwsCta0JfYIjI4OLs}#
+ #{var-ids _85hotwsCta0JfYIjI4OLt}#
+ #{vars _85hotwsCta0JfYIjI4OLu}#
+ #{vals _85hotwsCta0JfYIjI4OLv}#
+ #{bindings _85hotwsCta0JfYIjI4OLw}#)))
+ (if (null? #{ids _85hotwsCta0JfYIjI4OLr}#)
+ (#{build-sequence _85hotwsCta0JfYIjI4J3U}#
#f
- (map (lambda (#{x 20521}#)
- (let ((#{e 20525}#
- (cdr #{x 20521}#))
- (#{r 20526}#
- (car #{x 20521}#)))
+ (map (lambda (#{x _85hotwsCta0JfYIjI4OUJ}#)
+ (let ((#{e _85hotwsCta0JfYIjI4OUN}#
+ (cdr #{x _85hotwsCta0JfYIjI4OUJ}#))
+ (#{r _85hotwsCta0JfYIjI4OUO}#
+ (car #{x _85hotwsCta0JfYIjI4OUJ}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 20525}#
- #{r 20526}#
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4OUN}#
+ #{r _85hotwsCta0JfYIjI4OUO}#
'(())
- (#{source-annotation 2736}#
- #{e 20525}#)
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4OUN}#)
#f
- #{mod 20148}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#
#f))
- (lambda (#{type 20530}#
- #{value 20531}#
- #{e 20532}#
- #{w 20533}#
- #{s 20534}#
- #{mod 20535}#)
- (#{expand-expr 2779}#
- #{type 20530}#
- #{value 20531}#
- #{e 20532}#
- #{r 20526}#
- #{w 20533}#
- #{s 20534}#
- #{mod 20535}#)))))
- (cons (cons #{er 19986}#
- (#{wrap 2771}#
+ (lambda (#{type _85hotwsCta0JfYIjI4OUS}#
+ #{value _85hotwsCta0JfYIjI4OUT}#
+ #{e _85hotwsCta0JfYIjI4OUU}#
+ #{w _85hotwsCta0JfYIjI4OUV}#
+ #{s _85hotwsCta0JfYIjI4OUW}#
+ #{mod _85hotwsCta0JfYIjI4OUX}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4OUS}#
+ #{value _85hotwsCta0JfYIjI4OUT}#
+ #{e _85hotwsCta0JfYIjI4OUU}#
+ #{r _85hotwsCta0JfYIjI4OUO}#
+ #{w _85hotwsCta0JfYIjI4OUV}#
+ #{s _85hotwsCta0JfYIjI4OUW}#
+ #{mod _85hotwsCta0JfYIjI4OUX}#)))))
+ (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 20145}#)
- #{s 20147}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#)
+ #{s _85hotwsCta0JfYIjI4OOT}#
#f)
(set-source-properties!
- #{e 20145}#
- #{s 20147}#))
- #{e 20145}#)
- #{w 20146}#
- #{mod 20148}#))
- (cdr #{body 19978}#))))
+ #{e _85hotwsCta0JfYIjI4OOR}#
+ #{s _85hotwsCta0JfYIjI4OOT}#))
+ #{e _85hotwsCta0JfYIjI4OOR}#)
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ (cdr #{body _85hotwsCta0JfYIjI4OLq}#))))
(begin
- (if (not (#{valid-bound-ids? 2768}#
- #{ids 19979}#))
+ (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ #{ids _85hotwsCta0JfYIjI4OLr}#))
(syntax-violation
#f
"invalid or duplicate identifier in definition"
- #{outer-form 19958}#))
+ #{outer-form _85hotwsCta0JfYIjI4OLW}#))
(letrec*
- ((#{loop 20636}#
- (lambda (#{bs 20639}#
- #{er-cache 20640}#
- #{r-cache 20641}#)
- (if (not (null? #{bs 20639}#))
- (let ((#{b 20642}#
- (car #{bs 20639}#)))
- (if (eq? (car #{b 20642}#)
+ ((#{loop _85hotwsCta0JfYIjI4OV8}#
+ (lambda (#{bs _85hotwsCta0JfYIjI4OV@}#
+ #{er-cache _85hotwsCta0JfYIjI4OWA}#
+ #{r-cache _85hotwsCta0JfYIjI4OWB}#)
+ (if (not (null? #{bs _85hotwsCta0JfYIjI4OV@}#))
+ (let ((#{b _85hotwsCta0JfYIjI4OWC}#
+ (car #{bs _85hotwsCta0JfYIjI4OV@}#)))
+ (if (eq? (car #{b _85hotwsCta0JfYIjI4OWC}#)
'macro)
- (let ((#{er 20644}#
- (car (cdr #{b 20642}#))))
- (let ((#{r-cache 20645}#
- (if (eq? #{er 20644}#
- #{er-cache 20640}#)
- #{r-cache 20641}#
- (#{macros-only-env 2739}#
- #{er 20644}#))))
+ (let ((#{er _85hotwsCta0JfYIjI4OWE}#
+ (car (cdr #{b _85hotwsCta0JfYIjI4OWC}#))))
+ (let ((#{r-cache _85hotwsCta0JfYIjI4OWF}#
+ (if (eq? #{er _85hotwsCta0JfYIjI4OWE}#
+ #{er-cache _85hotwsCta0JfYIjI4OWA}#)
+ #{r-cache _85hotwsCta0JfYIjI4OWB}#
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ #{er _85hotwsCta0JfYIjI4OWE}#))))
(begin
(set-cdr!
- #{b 20642}#
- (#{eval-local-transformer 2784}#
- (#{expand 2778}#
- (cdr (cdr #{b 20642}#))
- #{r-cache 20645}#
+ #{b _85hotwsCta0JfYIjI4OWC}#
+ (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ (cdr (cdr #{b _85hotwsCta0JfYIjI4OWC}#))
+ #{r-cache _85hotwsCta0JfYIjI4OWF}#
'(())
- #{mod 20148}#)
- #{mod 20148}#))
- (#{loop 20636}#
- (cdr #{bs 20639}#)
- #{er 20644}#
- #{r-cache 20645}#))))
- (#{loop 20636}#
- (cdr #{bs 20639}#)
- #{er-cache 20640}#
- #{r-cache 20641}#)))))))
- (#{loop 20636}#
- #{bindings 19984}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#)
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ (#{loop _85hotwsCta0JfYIjI4OV8}#
+ (cdr #{bs _85hotwsCta0JfYIjI4OV@}#)
+ #{er _85hotwsCta0JfYIjI4OWE}#
+ #{r-cache _85hotwsCta0JfYIjI4OWF}#))))
+ (#{loop _85hotwsCta0JfYIjI4OV8}#
+ (cdr #{bs _85hotwsCta0JfYIjI4OV@}#)
+ #{er-cache _85hotwsCta0JfYIjI4OWA}#
+ #{r-cache _85hotwsCta0JfYIjI4OWB}#)))))))
+ (#{loop _85hotwsCta0JfYIjI4OV8}#
+ #{bindings _85hotwsCta0JfYIjI4OLw}#
#f
#f))
(set-cdr!
- #{r 19962}#
- (#{extend-env 2737}#
- #{labels 19980}#
- #{bindings 19984}#
- (cdr #{r 19962}#)))
- (#{build-letrec 2727}#
+ #{r _85hotwsCta0JfYIjI4OLa}#
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ #{labels _85hotwsCta0JfYIjI4OLs}#
+ #{bindings _85hotwsCta0JfYIjI4OLw}#
+ (cdr #{r _85hotwsCta0JfYIjI4OLa}#)))
+ (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
#f
#t
(reverse
(map syntax->datum
- #{var-ids 19981}#))
- (reverse #{vars 19982}#)
- (map (lambda (#{x 20988}#)
- (let ((#{e 20992}#
- (cdr #{x 20988}#))
- (#{r 20993}#
- (car #{x 20988}#)))
+ #{var-ids _85hotwsCta0JfYIjI4OLt}#))
+ (reverse
+ #{vars _85hotwsCta0JfYIjI4OLu}#)
+ (map (lambda (#{x _85hotwsCta0JfYIjI4Obc}#)
+ (let ((#{e _85hotwsCta0JfYIjI4Obg}#
+ (cdr #{x _85hotwsCta0JfYIjI4Obc}#))
+ (#{r _85hotwsCta0JfYIjI4Obh}#
+ (car #{x _85hotwsCta0JfYIjI4Obc}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 20992}#
- #{r 20993}#
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4Obg}#
+ #{r _85hotwsCta0JfYIjI4Obh}#
'(())
- (#{source-annotation 2736}#
- #{e 20992}#)
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4Obg}#)
#f
- #{mod 20148}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#
#f))
- (lambda (#{type 20997}#
- #{value 20998}#
- #{e 20999}#
- #{w 21000}#
- #{s 21001}#
- #{mod 21002}#)
- (#{expand-expr 2779}#
- #{type 20997}#
- #{value 20998}#
- #{e 20999}#
- #{r 20993}#
- #{w 21000}#
- #{s 21001}#
- #{mod 21002}#)))))
- (reverse #{vals 19983}#))
- (let ((#{exps 21008}#
- (map (lambda (#{x 21009}#)
- (let ((#{e 21012}#
- (cdr #{x 21009}#))
- (#{r 21013}#
- (car #{x 21009}#)))
+ (lambda (#{type _85hotwsCta0JfYIjI4Obl}#
+ #{value _85hotwsCta0JfYIjI4Obm}#
+ #{e _85hotwsCta0JfYIjI4Obn}#
+ #{w _85hotwsCta0JfYIjI4Obo}#
+ #{s _85hotwsCta0JfYIjI4Obp}#
+ #{mod _85hotwsCta0JfYIjI4Obq}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4Obl}#
+ #{value _85hotwsCta0JfYIjI4Obm}#
+ #{e _85hotwsCta0JfYIjI4Obn}#
+ #{r _85hotwsCta0JfYIjI4Obh}#
+ #{w _85hotwsCta0JfYIjI4Obo}#
+ #{s _85hotwsCta0JfYIjI4Obp}#
+ #{mod _85hotwsCta0JfYIjI4Obq}#)))))
+ (reverse
+ #{vals _85hotwsCta0JfYIjI4OLv}#))
+ (let ((#{exps _85hotwsCta0JfYIjI4Obw}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4Obx}#)
+ (let ((#{e _85hotwsCta0JfYIjI4Ob0}#
+ (cdr #{x _85hotwsCta0JfYIjI4Obx}#))
+ (#{r _85hotwsCta0JfYIjI4Ob1}#
+ (car #{x _85hotwsCta0JfYIjI4Obx}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 21012}#
- #{r 21013}#
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4Ob0}#
+ #{r _85hotwsCta0JfYIjI4Ob1}#
'(())
- (#{source-annotation 2736}#
- #{e 21012}#)
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4Ob0}#)
#f
- #{mod 20148}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#
#f))
- (lambda (#{type 21017}#
- #{value 21018}#
- #{e 21019}#
- #{w 21020}#
- #{s 21021}#
- #{mod 21022}#)
- (#{expand-expr 2779}#
- #{type 21017}#
- #{value 21018}#
- #{e 21019}#
- #{r 21013}#
- #{w 21020}#
- #{s 21021}#
- #{mod 21022}#)))))
- (cons (cons #{er 19986}#
- (#{wrap 2771}#
+ (lambda (#{type _85hotwsCta0JfYIjI4Ob5}#
+ #{value _85hotwsCta0JfYIjI4Ob6}#
+ #{e _85hotwsCta0JfYIjI4Ob7}#
+ #{w _85hotwsCta0JfYIjI4Ob8}#
+ #{s _85hotwsCta0JfYIjI4Ob9}#
+ #{mod _85hotwsCta0JfYIjI4Ob$}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4Ob5}#
+ #{value _85hotwsCta0JfYIjI4Ob6}#
+ #{e _85hotwsCta0JfYIjI4Ob7}#
+ #{r _85hotwsCta0JfYIjI4Ob1}#
+ #{w _85hotwsCta0JfYIjI4Ob8}#
+ #{s _85hotwsCta0JfYIjI4Ob9}#
+ #{mod _85hotwsCta0JfYIjI4Ob$}#)))))
+ (cons (cons #{er _85hotwsCta0JfYIjI4OLy}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 20145}#)
- #{s 20147}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#)
+ #{s _85hotwsCta0JfYIjI4OOT}#
#f)
(set-source-properties!
- #{e 20145}#
- #{s 20147}#))
- #{e 20145}#)
- #{w 20146}#
- #{mod 20148}#))
- (cdr #{body 19978}#)))))
- (if (null? (cdr #{exps 21008}#))
- (car #{exps 21008}#)
+ #{e _85hotwsCta0JfYIjI4OOR}#
+ #{s _85hotwsCta0JfYIjI4OOT}#))
+ #{e _85hotwsCta0JfYIjI4OOR}#)
+ #{w _85hotwsCta0JfYIjI4OOS}#
+ #{mod _85hotwsCta0JfYIjI4OOU}#))
+ (cdr #{body _85hotwsCta0JfYIjI4OLq}#)))))
+ (if (null? (cdr #{exps _85hotwsCta0JfYIjI4Obw}#))
+ (car #{exps _85hotwsCta0JfYIjI4Obw}#)
(make-struct/no-tail
(vector-ref
%expanded-vtables
12)
#f
- #{exps 21008}#)))))))))))))))))
- (#{parse 19965}#
- (map (lambda (#{x 19968}#)
- (cons #{r 19962}#
- (#{wrap 2771}#
- #{x 19968}#
- #{w 19964}#
- #{mod 19961}#)))
- #{body 19957}#)
+ #{exps _85hotwsCta0JfYIjI4Obw}#)))))))))))))))))
+ (#{parse _85hotwsCta0JfYIjI4OLd}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4OLg}#)
+ (cons #{r _85hotwsCta0JfYIjI4OLa}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{x _85hotwsCta0JfYIjI4OLg}#
+ #{w _85hotwsCta0JfYIjI4OLc}#
+ #{mod _85hotwsCta0JfYIjI4OLZ}#)))
+ #{body _85hotwsCta0JfYIjI4OLV}#)
'()
'()
'()
'()
'()
'())))))))
- (#{expand-local-syntax 2783}#
- (lambda (#{rec? 21048}#
- #{e 21049}#
- #{r 21050}#
- #{w 21051}#
- #{s 21052}#
- #{mod 21053}#
- #{k 21054}#)
- (let ((#{tmp 21056}#
+ (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}#
+ (lambda (#{rec? _85hotwsCta0JfYIjI4OcY}#
+ #{e _85hotwsCta0JfYIjI4OcZ}#
+ #{r _85hotwsCta0JfYIjI4Oca}#
+ #{w _85hotwsCta0JfYIjI4Ocb}#
+ #{s _85hotwsCta0JfYIjI4Occ}#
+ #{mod _85hotwsCta0JfYIjI4Ocd}#
+ #{k _85hotwsCta0JfYIjI4Oce}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ocg}#
($sc-dispatch
- #{e 21049}#
+ #{e _85hotwsCta0JfYIjI4OcZ}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 21056}#
+ (if #{tmp _85hotwsCta0JfYIjI4Ocg}#
(@apply
- (lambda (#{id 21060}#
- #{val 21061}#
- #{e1 21062}#
- #{e2 21063}#)
- (if (not (#{valid-bound-ids? 2768}# #{id 21060}#))
+ (lambda (#{id _85hotwsCta0JfYIjI4Ock}#
+ #{val _85hotwsCta0JfYIjI4Ocl}#
+ #{e1 _85hotwsCta0JfYIjI4Ocm}#
+ #{e2 _85hotwsCta0JfYIjI4Ocn}#)
+ (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ #{id _85hotwsCta0JfYIjI4Ock}#))
(syntax-violation
#f
"duplicate bound keyword"
- #{e 21049}#)
- (let ((#{labels 21153}#
- (#{gen-labels 2746}# #{id 21060}#)))
- (let ((#{new-w 21154}#
- (#{make-binding-wrap 2757}#
- #{id 21060}#
- #{labels 21153}#
- #{w 21051}#)))
- (#{k 21054}#
- (cons #{e1 21062}# #{e2 21063}#)
- (#{extend-env 2737}#
- #{labels 21153}#
- (let ((#{trans-r 21186}#
- (#{macros-only-env 2739}# #{r 21050}#)))
+ #{e _85hotwsCta0JfYIjI4OcZ}#)
+ (let ((#{labels _85hotwsCta0JfYIjI4OeB}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{id _85hotwsCta0JfYIjI4Ock}#)))
+ (let ((#{new-w _85hotwsCta0JfYIjI4OeC}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{id _85hotwsCta0JfYIjI4Ock}#
+ #{labels _85hotwsCta0JfYIjI4OeB}#
+ #{w _85hotwsCta0JfYIjI4Ocb}#)))
+ (#{k _85hotwsCta0JfYIjI4Oce}#
+ (cons #{e1 _85hotwsCta0JfYIjI4Ocm}#
+ #{e2 _85hotwsCta0JfYIjI4Ocn}#)
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ #{labels _85hotwsCta0JfYIjI4OeB}#
+ (let ((#{trans-r _85hotwsCta0JfYIjI4Oei}#
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ #{r _85hotwsCta0JfYIjI4Oca}#)))
(begin
- (if #{rec? 21048}# #{new-w 21154}# #{w 21051}#)
- (map (lambda (#{x 21187}#)
+ (if #{rec? _85hotwsCta0JfYIjI4OcY}#
+ #{new-w _85hotwsCta0JfYIjI4OeC}#
+ #{w _85hotwsCta0JfYIjI4Ocb}#)
+ (map (lambda (#{x _85hotwsCta0JfYIjI4Oej}#)
(cons 'macro
- (#{eval-local-transformer 2784}#
- (#{expand 2778}#
- #{x 21187}#
- #{trans-r 21186}#
+ (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4Oej}#
+ #{trans-r _85hotwsCta0JfYIjI4Oei}#
(values
- (if #{rec? 21048}#
- #{new-w 21154}#
- #{w 21051}#))
- #{mod 21053}#)
- #{mod 21053}#)))
- #{val 21061}#)))
- #{r 21050}#)
- #{new-w 21154}#
- #{s 21052}#
- #{mod 21053}#)))))
- #{tmp 21056}#)
+ (if #{rec? _85hotwsCta0JfYIjI4OcY}#
+ #{new-w _85hotwsCta0JfYIjI4OeC}#
+ #{w _85hotwsCta0JfYIjI4Ocb}#))
+ #{mod _85hotwsCta0JfYIjI4Ocd}#)
+ #{mod _85hotwsCta0JfYIjI4Ocd}#)))
+ #{val _85hotwsCta0JfYIjI4Ocl}#)))
+ #{r _85hotwsCta0JfYIjI4Oca}#)
+ #{new-w _85hotwsCta0JfYIjI4OeC}#
+ #{s _85hotwsCta0JfYIjI4Occ}#
+ #{mod _85hotwsCta0JfYIjI4Ocd}#)))))
+ #{tmp _85hotwsCta0JfYIjI4Ocg}#)
(syntax-violation
#f
"bad local syntax definition"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 21049}#) #{s 21052}# #f)
- (set-source-properties! #{e 21049}# #{s 21052}#))
- #{e 21049}#)
- #{w 21051}#
- #{mod 21053}#))))))
- (#{eval-local-transformer 2784}#
- (lambda (#{expanded 21463}# #{mod 21464}#)
- (let ((#{p 21465}# (primitive-eval #{expanded 21463}#)))
- (if (procedure? #{p 21465}#)
- #{p 21465}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4OcZ}#)
+ #{s _85hotwsCta0JfYIjI4Occ}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4OcZ}#
+ #{s _85hotwsCta0JfYIjI4Occ}#))
+ #{e _85hotwsCta0JfYIjI4OcZ}#)
+ #{w _85hotwsCta0JfYIjI4Ocb}#
+ #{mod _85hotwsCta0JfYIjI4Ocd}#))))))
+ (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
+ (lambda (#{expanded _85hotwsCta0JfYIjI4Oi3}#
+ #{mod _85hotwsCta0JfYIjI4Oi4}#)
+ (let ((#{p _85hotwsCta0JfYIjI4Oi5}#
+ (primitive-eval
+ #{expanded _85hotwsCta0JfYIjI4Oi3}#)))
+ (if (procedure? #{p _85hotwsCta0JfYIjI4Oi5}#)
+ #{p _85hotwsCta0JfYIjI4Oi5}#
(syntax-violation
#f
"nonprocedure transformer"
- #{p 21465}#)))))
- (#{ellipsis? 2786}#
- (lambda (#{x 3447}#)
- (if (if (if (vector? #{x 3447}#)
- (if (= (vector-length #{x 3447}#) 4)
- (eq? (vector-ref #{x 3447}# 0) 'syntax-object)
+ #{p _85hotwsCta0JfYIjI4Oi5}#)))))
+ (#{ellipsis? _85hotwsCta0JfYIjI4J4T}#
+ (lambda (#{x _85hotwsCta0JfYIjI4KCo}#)
+ (if (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 3447}# 1))
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1))
#f)
- (if (eq? (if (if (vector? #{x 3447}#)
- (if (= (vector-length #{x 3447}#) 4)
- (eq? (vector-ref #{x 3447}# 0) 'syntax-object)
+ (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{x 3447}# 1)
- #{x 3447}#)
+ (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1)
+ #{x _85hotwsCta0JfYIjI4KCo}#)
(if (if (= (vector-length
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("of"))
+ #(ribcage #(x) #((top)) #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -4835,6 +5316,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -5081,152 +5563,154 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile)))
4)
#t
@@ -5237,7 +5721,7 @@
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("of"))
+ #(ribcage #(x) #((top)) #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -5270,6 +5754,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -5516,161 +6001,165 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}# #{x 3447}# '(()))
- (#{id-var-name 2762}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{x _85hotwsCta0JfYIjI4KCo}#
+ '(()))
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
...
((top)
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("of"))
+ #(ribcage #(x) #((top)) #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -5703,6 +6192,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -5949,443 +6439,541 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
#f)))
- (#{lambda-formals 2787}#
- (lambda (#{orig-args 21470}#)
+ (#{lambda-formals _85hotwsCta0JfYIjI4J4U}#
+ (lambda (#{orig-args _85hotwsCta0JfYIjI4Oi$}#)
(letrec*
- ((#{req 21471}#
- (lambda (#{args 21475}# #{rreq 21476}#)
- (let ((#{tmp 21478}# ($sc-dispatch #{args 21475}# '())))
- (if #{tmp 21478}#
+ ((#{req _85hotwsCta0JfYIjI4Oi@}#
+ (lambda (#{args _85hotwsCta0JfYIjI4OjD}#
+ #{rreq _85hotwsCta0JfYIjI4OjE}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OjG}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4OjD}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4OjG}#
(@apply
(lambda ()
- (#{check 21472}# (reverse #{rreq 21476}#) #f))
- #{tmp 21478}#)
- (let ((#{tmp 21601}#
- ($sc-dispatch #{args 21475}# '(any . any))))
- (if (if #{tmp 21601}#
+ (#{check _85hotwsCta0JfYIjI4OjA}#
+ (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#)
+ #f))
+ #{tmp _85hotwsCta0JfYIjI4OjG}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OlB}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4OjD}#
+ '(any . any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4OlB}#
(@apply
- (lambda (#{a 21605}# #{b 21606}#)
- (if (symbol? #{a 21605}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OlF}#
+ #{b _85hotwsCta0JfYIjI4OlG}#)
+ (if (symbol? #{a _85hotwsCta0JfYIjI4OlF}#)
#t
- (if (if (vector? #{a 21605}#)
- (if (= (vector-length #{a 21605}#) 4)
- (eq? (vector-ref #{a 21605}# 0)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4OlF}#)
+ (if (= (vector-length
+ #{a _85hotwsCta0JfYIjI4OlF}#)
+ 4)
+ (eq? (vector-ref
+ #{a _85hotwsCta0JfYIjI4OlF}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 21605}# 1))
+ (symbol?
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4OlF}#
+ 1))
#f)))
- #{tmp 21601}#)
+ #{tmp _85hotwsCta0JfYIjI4OlB}#)
#f)
(@apply
- (lambda (#{a 21633}# #{b 21634}#)
- (#{req 21471}#
- #{b 21634}#
- (cons #{a 21633}# #{rreq 21476}#)))
- #{tmp 21601}#)
- (let ((#{tmp 21635}# (list #{args 21475}#)))
+ (lambda (#{a _85hotwsCta0JfYIjI4Olh}#
+ #{b _85hotwsCta0JfYIjI4Oli}#)
+ (#{req _85hotwsCta0JfYIjI4Oi@}#
+ #{b _85hotwsCta0JfYIjI4Oli}#
+ (cons #{a _85hotwsCta0JfYIjI4Olh}#
+ #{rreq _85hotwsCta0JfYIjI4OjE}#)))
+ #{tmp _85hotwsCta0JfYIjI4OlB}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Olj}#
+ (list #{args _85hotwsCta0JfYIjI4OjD}#)))
(if (@apply
- (lambda (#{r 21637}#)
- (if (symbol? #{r 21637}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4Oll}#)
+ (if (symbol? #{r _85hotwsCta0JfYIjI4Oll}#)
#t
- (if (if (vector? #{r 21637}#)
- (if (= (vector-length #{r 21637}#) 4)
- (eq? (vector-ref #{r 21637}# 0)
+ (if (if (vector?
+ #{r _85hotwsCta0JfYIjI4Oll}#)
+ (if (= (vector-length
+ #{r _85hotwsCta0JfYIjI4Oll}#)
+ 4)
+ (eq? (vector-ref
+ #{r _85hotwsCta0JfYIjI4Oll}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 21637}# 1))
+ (symbol?
+ (vector-ref
+ #{r _85hotwsCta0JfYIjI4Oll}#
+ 1))
#f)))
- #{tmp 21635}#)
+ #{tmp _85hotwsCta0JfYIjI4Olj}#)
(@apply
- (lambda (#{r 21667}#)
- (#{check 21472}#
- (reverse #{rreq 21476}#)
- #{r 21667}#))
- #{tmp 21635}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4OmD}#)
+ (#{check _85hotwsCta0JfYIjI4OjA}#
+ (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#)
+ #{r _85hotwsCta0JfYIjI4OmD}#))
+ #{tmp _85hotwsCta0JfYIjI4Olj}#)
(syntax-violation
'lambda
"invalid argument list"
- #{orig-args 21470}#
- #{args 21475}#)))))))))
- (#{check 21472}#
- (lambda (#{req 21798}# #{rest 21799}#)
- (if (#{distinct-bound-ids? 2769}#
- (if #{rest 21799}#
- (cons #{rest 21799}# #{req 21798}#)
- #{req 21798}#))
- (values #{req 21798}# #f #{rest 21799}# #f)
+ #{orig-args _85hotwsCta0JfYIjI4Oi$}#
+ #{args _85hotwsCta0JfYIjI4OjD}#)))))))))
+ (#{check _85hotwsCta0JfYIjI4OjA}#
+ (lambda (#{req _85hotwsCta0JfYIjI4OoG}#
+ #{rest _85hotwsCta0JfYIjI4OoH}#)
+ (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
+ (if #{rest _85hotwsCta0JfYIjI4OoH}#
+ (cons #{rest _85hotwsCta0JfYIjI4OoH}#
+ #{req _85hotwsCta0JfYIjI4OoG}#)
+ #{req _85hotwsCta0JfYIjI4OoG}#))
+ (values
+ #{req _85hotwsCta0JfYIjI4OoG}#
+ #f
+ #{rest _85hotwsCta0JfYIjI4OoH}#
+ #f)
(syntax-violation
'lambda
"duplicate identifier in argument list"
- #{orig-args 21470}#)))))
- (#{req 21471}# #{orig-args 21470}# '()))))
- (#{expand-simple-lambda 2788}#
- (lambda (#{e 21915}#
- #{r 21916}#
- #{w 21917}#
- #{s 21918}#
- #{mod 21919}#
- #{req 21920}#
- #{rest 21921}#
- #{meta 21922}#
- #{body 21923}#)
- (let ((#{ids 21924}#
- (if #{rest 21921}#
- (append #{req 21920}# (list #{rest 21921}#))
- #{req 21920}#)))
- (let ((#{vars 21925}#
- (map #{gen-var 2792}# #{ids 21924}#)))
- (let ((#{labels 21926}#
- (#{gen-labels 2746}# #{ids 21924}#)))
- (#{build-simple-lambda 2719}#
- #{s 21918}#
- (map syntax->datum #{req 21920}#)
- (if #{rest 21921}#
- (syntax->datum #{rest 21921}#)
+ #{orig-args _85hotwsCta0JfYIjI4Oi$}#)))))
+ (#{req _85hotwsCta0JfYIjI4Oi@}#
+ #{orig-args _85hotwsCta0JfYIjI4Oi$}#
+ '()))))
+ (#{expand-simple-lambda _85hotwsCta0JfYIjI4J4V}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Op7}#
+ #{r _85hotwsCta0JfYIjI4Op8}#
+ #{w _85hotwsCta0JfYIjI4Op9}#
+ #{s _85hotwsCta0JfYIjI4Op$}#
+ #{mod _85hotwsCta0JfYIjI4Op@}#
+ #{req _85hotwsCta0JfYIjI4OqA}#
+ #{rest _85hotwsCta0JfYIjI4OqB}#
+ #{meta _85hotwsCta0JfYIjI4OqC}#
+ #{body _85hotwsCta0JfYIjI4OqD}#)
+ (let ((#{ids _85hotwsCta0JfYIjI4OqE}#
+ (if #{rest _85hotwsCta0JfYIjI4OqB}#
+ (append
+ #{req _85hotwsCta0JfYIjI4OqA}#
+ (list #{rest _85hotwsCta0JfYIjI4OqB}#))
+ #{req _85hotwsCta0JfYIjI4OqA}#)))
+ (let ((#{vars _85hotwsCta0JfYIjI4OqF}#
+ (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ #{ids _85hotwsCta0JfYIjI4OqE}#)))
+ (let ((#{labels _85hotwsCta0JfYIjI4OqG}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{ids _85hotwsCta0JfYIjI4OqE}#)))
+ (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
+ #{s _85hotwsCta0JfYIjI4Op$}#
+ (map syntax->datum
+ #{req _85hotwsCta0JfYIjI4OqA}#)
+ (if #{rest _85hotwsCta0JfYIjI4OqB}#
+ (syntax->datum #{rest _85hotwsCta0JfYIjI4OqB}#)
#f)
- #{vars 21925}#
- #{meta 21922}#
- (#{expand-body 2782}#
- #{body 21923}#
- (#{wrap 2771}#
+ #{vars _85hotwsCta0JfYIjI4OqF}#
+ #{meta _85hotwsCta0JfYIjI4OqC}#
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ #{body _85hotwsCta0JfYIjI4OqD}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 21915}#) #{s 21918}# #f)
- (set-source-properties! #{e 21915}# #{s 21918}#))
- #{e 21915}#)
- #{w 21917}#
- #{mod 21919}#)
- (#{extend-var-env 2738}#
- #{labels 21926}#
- #{vars 21925}#
- #{r 21916}#)
- (#{make-binding-wrap 2757}#
- #{ids 21924}#
- #{labels 21926}#
- #{w 21917}#)
- #{mod 21919}#)))))))
- (#{lambda*-formals 2789}#
- (lambda (#{orig-args 22198}#)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4Op7}#)
+ #{s _85hotwsCta0JfYIjI4Op$}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4Op7}#
+ #{s _85hotwsCta0JfYIjI4Op$}#))
+ #{e _85hotwsCta0JfYIjI4Op7}#)
+ #{w _85hotwsCta0JfYIjI4Op9}#
+ #{mod _85hotwsCta0JfYIjI4Op@}#)
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{labels _85hotwsCta0JfYIjI4OqG}#
+ #{vars _85hotwsCta0JfYIjI4OqF}#
+ #{r _85hotwsCta0JfYIjI4Op8}#)
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{ids _85hotwsCta0JfYIjI4OqE}#
+ #{labels _85hotwsCta0JfYIjI4OqG}#
+ #{w _85hotwsCta0JfYIjI4Op9}#)
+ #{mod _85hotwsCta0JfYIjI4Op@}#)))))))
+ (#{lambda*-formals _85hotwsCta0JfYIjI4J4W}#
+ (lambda (#{orig-args _85hotwsCta0JfYIjI4OuW}#)
(letrec*
- ((#{req 22199}#
- (lambda (#{args 22206}# #{rreq 22207}#)
- (let ((#{tmp 22209}# ($sc-dispatch #{args 22206}# '())))
- (if #{tmp 22209}#
+ ((#{req _85hotwsCta0JfYIjI4OuX}#
+ (lambda (#{args _85hotwsCta0JfYIjI4Oue}#
+ #{rreq _85hotwsCta0JfYIjI4Ouf}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ouh}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Oue}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4Ouh}#
(@apply
(lambda ()
- (#{check 22203}#
- (reverse #{rreq 22207}#)
+ (#{check _85hotwsCta0JfYIjI4Oub}#
+ (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#)
'()
#f
'()))
- #{tmp 22209}#)
- (let ((#{tmp 22215}#
- ($sc-dispatch #{args 22206}# '(any . any))))
- (if (if #{tmp 22215}#
+ #{tmp _85hotwsCta0JfYIjI4Ouh}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Oun}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Oue}#
+ '(any . any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4Oun}#
(@apply
- (lambda (#{a 22219}# #{b 22220}#)
- (if (symbol? #{a 22219}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Our}#
+ #{b _85hotwsCta0JfYIjI4Ous}#)
+ (if (symbol? #{a _85hotwsCta0JfYIjI4Our}#)
#t
- (if (if (vector? #{a 22219}#)
- (if (= (vector-length #{a 22219}#) 4)
- (eq? (vector-ref #{a 22219}# 0)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4Our}#)
+ (if (= (vector-length
+ #{a _85hotwsCta0JfYIjI4Our}#)
+ 4)
+ (eq? (vector-ref
+ #{a _85hotwsCta0JfYIjI4Our}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22219}# 1))
+ (symbol?
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4Our}#
+ 1))
#f)))
- #{tmp 22215}#)
+ #{tmp _85hotwsCta0JfYIjI4Oun}#)
#f)
(@apply
- (lambda (#{a 22247}# #{b 22248}#)
- (#{req 22199}#
- #{b 22248}#
- (cons #{a 22247}# #{rreq 22207}#)))
- #{tmp 22215}#)
- (let ((#{tmp 22249}#
- ($sc-dispatch #{args 22206}# '(any . any))))
- (if (if #{tmp 22249}#
+ (lambda (#{a _85hotwsCta0JfYIjI4OvH}#
+ #{b _85hotwsCta0JfYIjI4OvI}#)
+ (#{req _85hotwsCta0JfYIjI4OuX}#
+ #{b _85hotwsCta0JfYIjI4OvI}#
+ (cons #{a _85hotwsCta0JfYIjI4OvH}#
+ #{rreq _85hotwsCta0JfYIjI4Ouf}#)))
+ #{tmp _85hotwsCta0JfYIjI4Oun}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OvJ}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Oue}#
+ '(any . any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4OvJ}#
(@apply
- (lambda (#{a 22253}# #{b 22254}#)
- (eq? (syntax->datum #{a 22253}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OvN}#
+ #{b _85hotwsCta0JfYIjI4OvO}#)
+ (eq? (syntax->datum
+ #{a _85hotwsCta0JfYIjI4OvN}#)
#:optional))
- #{tmp 22249}#)
+ #{tmp _85hotwsCta0JfYIjI4OvJ}#)
#f)
(@apply
- (lambda (#{a 22255}# #{b 22256}#)
- (#{opt 22200}#
- #{b 22256}#
- (reverse #{rreq 22207}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OvP}#
+ #{b _85hotwsCta0JfYIjI4OvQ}#)
+ (#{opt _85hotwsCta0JfYIjI4OuY}#
+ #{b _85hotwsCta0JfYIjI4OvQ}#
+ (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#)
'()))
- #{tmp 22249}#)
- (let ((#{tmp 22259}#
+ #{tmp _85hotwsCta0JfYIjI4OvJ}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OvT}#
($sc-dispatch
- #{args 22206}#
+ #{args _85hotwsCta0JfYIjI4Oue}#
'(any . any))))
- (if (if #{tmp 22259}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4OvT}#
(@apply
- (lambda (#{a 22263}# #{b 22264}#)
- (eq? (syntax->datum #{a 22263}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OvX}#
+ #{b _85hotwsCta0JfYIjI4OvY}#)
+ (eq? (syntax->datum
+ #{a _85hotwsCta0JfYIjI4OvX}#)
#:key))
- #{tmp 22259}#)
+ #{tmp _85hotwsCta0JfYIjI4OvT}#)
#f)
(@apply
- (lambda (#{a 22265}# #{b 22266}#)
- (#{key 22201}#
- #{b 22266}#
- (reverse #{rreq 22207}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OvZ}#
+ #{b _85hotwsCta0JfYIjI4Ova}#)
+ (#{key _85hotwsCta0JfYIjI4OuZ}#
+ #{b _85hotwsCta0JfYIjI4Ova}#
+ (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#)
'()
'()))
- #{tmp 22259}#)
- (let ((#{tmp 22269}#
+ #{tmp _85hotwsCta0JfYIjI4OvT}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ovd}#
($sc-dispatch
- #{args 22206}#
+ #{args _85hotwsCta0JfYIjI4Oue}#
'(any any))))
- (if (if #{tmp 22269}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Ovd}#
(@apply
- (lambda (#{a 22273}# #{b 22274}#)
- (eq? (syntax->datum #{a 22273}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Ovh}#
+ #{b _85hotwsCta0JfYIjI4Ovi}#)
+ (eq? (syntax->datum
+ #{a _85hotwsCta0JfYIjI4Ovh}#)
#:rest))
- #{tmp 22269}#)
+ #{tmp _85hotwsCta0JfYIjI4Ovd}#)
#f)
(@apply
- (lambda (#{a 22275}# #{b 22276}#)
- (#{rest 22202}#
- #{b 22276}#
- (reverse #{rreq 22207}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Ovj}#
+ #{b _85hotwsCta0JfYIjI4Ovk}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{b _85hotwsCta0JfYIjI4Ovk}#
+ (reverse
+ #{rreq _85hotwsCta0JfYIjI4Ouf}#)
'()
'()))
- #{tmp 22269}#)
- (let ((#{tmp 22279}#
- (list #{args 22206}#)))
+ #{tmp _85hotwsCta0JfYIjI4Ovd}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ovn}#
+ (list #{args _85hotwsCta0JfYIjI4Oue}#)))
(if (@apply
- (lambda (#{r 22281}#)
- (if (symbol? #{r 22281}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4Ovp}#)
+ (if (symbol?
+ #{r _85hotwsCta0JfYIjI4Ovp}#)
#t
- (if (if (vector? #{r 22281}#)
+ (if (if (vector?
+ #{r _85hotwsCta0JfYIjI4Ovp}#)
(if (= (vector-length
- #{r 22281}#)
+ #{r _85hotwsCta0JfYIjI4Ovp}#)
4)
(eq? (vector-ref
- #{r 22281}#
+ #{r _85hotwsCta0JfYIjI4Ovp}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 22281}# 1))
+ (vector-ref
+ #{r _85hotwsCta0JfYIjI4Ovp}#
+ 1))
#f)))
- #{tmp 22279}#)
+ #{tmp _85hotwsCta0JfYIjI4Ovn}#)
(@apply
- (lambda (#{r 22311}#)
- (#{rest 22202}#
- #{r 22311}#
- (reverse #{rreq 22207}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4OwH}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{r _85hotwsCta0JfYIjI4OwH}#
+ (reverse
+ #{rreq _85hotwsCta0JfYIjI4Ouf}#)
'()
'()))
- #{tmp 22279}#)
+ #{tmp _85hotwsCta0JfYIjI4Ovn}#)
(syntax-violation
'lambda*
"invalid argument list"
- #{orig-args 22198}#
- #{args 22206}#)))))))))))))))
- (#{opt 22200}#
- (lambda (#{args 22330}# #{req 22331}# #{ropt 22332}#)
- (let ((#{tmp 22334}# ($sc-dispatch #{args 22330}# '())))
- (if #{tmp 22334}#
+ #{orig-args _85hotwsCta0JfYIjI4OuW}#
+ #{args _85hotwsCta0JfYIjI4Oue}#)))))))))))))))
+ (#{opt _85hotwsCta0JfYIjI4OuY}#
+ (lambda (#{args _85hotwsCta0JfYIjI4Owa}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ #{ropt _85hotwsCta0JfYIjI4Owc}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Owe}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Owa}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4Owe}#
(@apply
(lambda ()
- (#{check 22203}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (#{check _85hotwsCta0JfYIjI4Oub}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#)
#f
'()))
- #{tmp 22334}#)
- (let ((#{tmp 22340}#
- ($sc-dispatch #{args 22330}# '(any . any))))
- (if (if #{tmp 22340}#
+ #{tmp _85hotwsCta0JfYIjI4Owe}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Owk}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Owa}#
+ '(any . any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4Owk}#
(@apply
- (lambda (#{a 22344}# #{b 22345}#)
- (if (symbol? #{a 22344}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Owo}#
+ #{b _85hotwsCta0JfYIjI4Owp}#)
+ (if (symbol? #{a _85hotwsCta0JfYIjI4Owo}#)
#t
- (if (if (vector? #{a 22344}#)
- (if (= (vector-length #{a 22344}#) 4)
- (eq? (vector-ref #{a 22344}# 0)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4Owo}#)
+ (if (= (vector-length
+ #{a _85hotwsCta0JfYIjI4Owo}#)
+ 4)
+ (eq? (vector-ref
+ #{a _85hotwsCta0JfYIjI4Owo}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22344}# 1))
+ (symbol?
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4Owo}#
+ 1))
#f)))
- #{tmp 22340}#)
+ #{tmp _85hotwsCta0JfYIjI4Owk}#)
#f)
(@apply
- (lambda (#{a 22372}# #{b 22373}#)
- (#{opt 22200}#
- #{b 22373}#
- #{req 22331}#
- (cons (cons #{a 22372}#
+ (lambda (#{a _85hotwsCta0JfYIjI4OxE}#
+ #{b _85hotwsCta0JfYIjI4OxF}#)
+ (#{opt _85hotwsCta0JfYIjI4OuY}#
+ #{b _85hotwsCta0JfYIjI4OxF}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ (cons (cons #{a _85hotwsCta0JfYIjI4OxE}#
'(#(syntax-object
#f
((top)
#(ribcage
#(a b)
#((top) (top))
- #("q2" "q3"))
+ #("2f1" "2f2"))
#(ribcage () () ())
#(ribcage
#(args req ropt)
#((top) (top) (top))
- #("px" "py" "pz"))
+ #("2ew" "2ex" "2ey"))
#(ribcage
(check rest key opt req)
((top)
@@ -6393,11 +6981,15 @@
(top)
(top)
(top))
- ("pb" "pa" "p9" "p8" "p7"))
+ ("2ea"
+ "2e9"
+ "2e8"
+ "2e7"
+ "2e6"))
#(ribcage
#(orig-args)
#((top))
- #("p6"))
+ #("2e5"))
#(ribcage
(lambda-var-list
gen-var
@@ -6430,6 +7022,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -6676,299 +7269,340 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))))
- #{ropt 22332}#)))
- #{tmp 22340}#)
- (let ((#{tmp 22374}#
+ #{ropt _85hotwsCta0JfYIjI4Owc}#)))
+ #{tmp _85hotwsCta0JfYIjI4Owk}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4OxG}#
($sc-dispatch
- #{args 22330}#
+ #{args _85hotwsCta0JfYIjI4Owa}#
'((any any) . any))))
- (if (if #{tmp 22374}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4OxG}#
(@apply
- (lambda (#{a 22378}#
- #{init 22379}#
- #{b 22380}#)
- (if (symbol? #{a 22378}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OxK}#
+ #{init _85hotwsCta0JfYIjI4OxL}#
+ #{b _85hotwsCta0JfYIjI4OxM}#)
+ (if (symbol? #{a _85hotwsCta0JfYIjI4OxK}#)
#t
- (if (if (vector? #{a 22378}#)
- (if (= (vector-length #{a 22378}#)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4OxK}#)
+ (if (= (vector-length
+ #{a _85hotwsCta0JfYIjI4OxK}#)
4)
- (eq? (vector-ref #{a 22378}# 0)
+ (eq? (vector-ref
+ #{a _85hotwsCta0JfYIjI4OxK}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22378}# 1))
+ (symbol?
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4OxK}#
+ 1))
#f)))
- #{tmp 22374}#)
+ #{tmp _85hotwsCta0JfYIjI4OxG}#)
#f)
(@apply
- (lambda (#{a 22407}# #{init 22408}# #{b 22409}#)
- (#{opt 22200}#
- #{b 22409}#
- #{req 22331}#
- (cons (list #{a 22407}# #{init 22408}#)
- #{ropt 22332}#)))
- #{tmp 22374}#)
- (let ((#{tmp 22410}#
+ (lambda (#{a _85hotwsCta0JfYIjI4Oxn}#
+ #{init _85hotwsCta0JfYIjI4Oxo}#
+ #{b _85hotwsCta0JfYIjI4Oxp}#)
+ (#{opt _85hotwsCta0JfYIjI4OuY}#
+ #{b _85hotwsCta0JfYIjI4Oxp}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ (cons (list #{a _85hotwsCta0JfYIjI4Oxn}#
+ #{init _85hotwsCta0JfYIjI4Oxo}#)
+ #{ropt _85hotwsCta0JfYIjI4Owc}#)))
+ #{tmp _85hotwsCta0JfYIjI4OxG}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Oxq}#
($sc-dispatch
- #{args 22330}#
+ #{args _85hotwsCta0JfYIjI4Owa}#
'(any . any))))
- (if (if #{tmp 22410}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Oxq}#
(@apply
- (lambda (#{a 22414}# #{b 22415}#)
- (eq? (syntax->datum #{a 22414}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Oxu}#
+ #{b _85hotwsCta0JfYIjI4Oxv}#)
+ (eq? (syntax->datum
+ #{a _85hotwsCta0JfYIjI4Oxu}#)
#:key))
- #{tmp 22410}#)
+ #{tmp _85hotwsCta0JfYIjI4Oxq}#)
#f)
(@apply
- (lambda (#{a 22416}# #{b 22417}#)
- (#{key 22201}#
- #{b 22417}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Oxw}#
+ #{b _85hotwsCta0JfYIjI4Oxx}#)
+ (#{key _85hotwsCta0JfYIjI4OuZ}#
+ #{b _85hotwsCta0JfYIjI4Oxx}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#)
'()))
- #{tmp 22410}#)
- (let ((#{tmp 22420}#
+ #{tmp _85hotwsCta0JfYIjI4Oxq}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ox0}#
($sc-dispatch
- #{args 22330}#
+ #{args _85hotwsCta0JfYIjI4Owa}#
'(any any))))
- (if (if #{tmp 22420}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Ox0}#
(@apply
- (lambda (#{a 22424}# #{b 22425}#)
- (eq? (syntax->datum #{a 22424}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Ox4}#
+ #{b _85hotwsCta0JfYIjI4Ox5}#)
+ (eq? (syntax->datum
+ #{a _85hotwsCta0JfYIjI4Ox4}#)
#:rest))
- #{tmp 22420}#)
+ #{tmp _85hotwsCta0JfYIjI4Ox0}#)
#f)
(@apply
- (lambda (#{a 22426}# #{b 22427}#)
- (#{rest 22202}#
- #{b 22427}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Ox6}#
+ #{b _85hotwsCta0JfYIjI4Ox7}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{b _85hotwsCta0JfYIjI4Ox7}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ (reverse
+ #{ropt _85hotwsCta0JfYIjI4Owc}#)
'()))
- #{tmp 22420}#)
- (let ((#{tmp 22430}#
- (list #{args 22330}#)))
+ #{tmp _85hotwsCta0JfYIjI4Ox0}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ox$}#
+ (list #{args _85hotwsCta0JfYIjI4Owa}#)))
(if (@apply
- (lambda (#{r 22432}#)
- (if (symbol? #{r 22432}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4OyA}#)
+ (if (symbol?
+ #{r _85hotwsCta0JfYIjI4OyA}#)
#t
- (if (if (vector? #{r 22432}#)
+ (if (if (vector?
+ #{r _85hotwsCta0JfYIjI4OyA}#)
(if (= (vector-length
- #{r 22432}#)
+ #{r _85hotwsCta0JfYIjI4OyA}#)
4)
(eq? (vector-ref
- #{r 22432}#
+ #{r _85hotwsCta0JfYIjI4OyA}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{r 22432}# 1))
+ (vector-ref
+ #{r _85hotwsCta0JfYIjI4OyA}#
+ 1))
#f)))
- #{tmp 22430}#)
+ #{tmp _85hotwsCta0JfYIjI4Ox$}#)
(@apply
- (lambda (#{r 22462}#)
- (#{rest 22202}#
- #{r 22462}#
- #{req 22331}#
- (reverse #{ropt 22332}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4Oye}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{r _85hotwsCta0JfYIjI4Oye}#
+ #{req _85hotwsCta0JfYIjI4Owb}#
+ (reverse
+ #{ropt _85hotwsCta0JfYIjI4Owc}#)
'()))
- #{tmp 22430}#)
+ #{tmp _85hotwsCta0JfYIjI4Ox$}#)
(syntax-violation
'lambda*
"invalid optional argument list"
- #{orig-args 22198}#
- #{args 22330}#)))))))))))))))
- (#{key 22201}#
- (lambda (#{args 22481}#
- #{req 22482}#
- #{opt 22483}#
- #{rkey 22484}#)
- (let ((#{tmp 22486}# ($sc-dispatch #{args 22481}# '())))
- (if #{tmp 22486}#
+ #{orig-args _85hotwsCta0JfYIjI4OuW}#
+ #{args _85hotwsCta0JfYIjI4Owa}#)))))))))))))))
+ (#{key _85hotwsCta0JfYIjI4OuZ}#
+ (lambda (#{args _85hotwsCta0JfYIjI4Oyx}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Oy2}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Oyx}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4Oy2}#
(@apply
(lambda ()
- (#{check 22203}#
- #{req 22482}#
- #{opt 22483}#
+ (#{check _85hotwsCta0JfYIjI4Oub}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
#f
- (cons #f (reverse #{rkey 22484}#))))
- #{tmp 22486}#)
- (let ((#{tmp 22492}#
- ($sc-dispatch #{args 22481}# '(any . any))))
- (if (if #{tmp 22492}#
+ (cons #f
+ (reverse #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4Oy2}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Oy8}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Oyx}#
+ '(any . any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4Oy8}#
(@apply
- (lambda (#{a 22496}# #{b 22497}#)
- (if (symbol? #{a 22496}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4OzA}#
+ #{b _85hotwsCta0JfYIjI4OzB}#)
+ (if (symbol? #{a _85hotwsCta0JfYIjI4OzA}#)
#t
- (if (if (vector? #{a 22496}#)
- (if (= (vector-length #{a 22496}#) 4)
- (eq? (vector-ref #{a 22496}# 0)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4OzA}#)
+ (if (= (vector-length
+ #{a _85hotwsCta0JfYIjI4OzA}#)
+ 4)
+ (eq? (vector-ref
+ #{a _85hotwsCta0JfYIjI4OzA}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22496}# 1))
+ (symbol?
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4OzA}#
+ 1))
#f)))
- #{tmp 22492}#)
+ #{tmp _85hotwsCta0JfYIjI4Oy8}#)
#f)
(@apply
- (lambda (#{a 22524}# #{b 22525}#)
- (let ((#{tmp 22526}#
+ (lambda (#{a _85hotwsCta0JfYIjI4Ozc}#
+ #{b _85hotwsCta0JfYIjI4Ozd}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Oze}#
(symbol->keyword
- (syntax->datum #{a 22524}#))))
- (#{key 22201}#
- #{b 22525}#
- #{req 22482}#
- #{opt 22483}#
- (cons (cons #{tmp 22526}#
- (cons #{a 22524}#
+ (syntax->datum
+ #{a _85hotwsCta0JfYIjI4Ozc}#))))
+ (#{key _85hotwsCta0JfYIjI4OuZ}#
+ #{b _85hotwsCta0JfYIjI4Ozd}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (cons (cons #{tmp _85hotwsCta0JfYIjI4Oze}#
+ (cons #{a _85hotwsCta0JfYIjI4Ozc}#
'(#(syntax-object
#f
((top)
@@ -6976,11 +7610,11 @@
#(ribcage
#(k)
#((top))
- #("qt"))
+ #("2fs"))
#(ribcage
#(a b)
#((top) (top))
- #("qr" "qs"))
+ #("2fq" "2fr"))
#(ribcage () () ())
#(ribcage
#(args req opt rkey)
@@ -6988,10 +7622,10 @@
(top)
(top)
(top))
- #("ql"
- "qm"
- "qn"
- "qo"))
+ #("2fk"
+ "2fl"
+ "2fm"
+ "2fn"))
#(ribcage
(check rest
key
@@ -7002,15 +7636,15 @@
(top)
(top)
(top))
- ("pb"
- "pa"
- "p9"
- "p8"
- "p7"))
+ ("2ea"
+ "2e9"
+ "2e8"
+ "2e7"
+ "2e6"))
#(ribcage
#(orig-args)
#((top))
- #("p6"))
+ #("2e5"))
#(ribcage
(lambda-var-list
gen-var
@@ -7043,6 +7677,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -7289,952 +7924,1065 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile)))))
- #{rkey 22484}#))))
- #{tmp 22492}#)
- (let ((#{tmp 22529}#
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4Oy8}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ozh}#
($sc-dispatch
- #{args 22481}#
+ #{args _85hotwsCta0JfYIjI4Oyx}#
'((any any) . any))))
- (if (if #{tmp 22529}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Ozh}#
(@apply
- (lambda (#{a 22533}#
- #{init 22534}#
- #{b 22535}#)
- (if (symbol? #{a 22533}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4Ozl}#
+ #{init _85hotwsCta0JfYIjI4Ozm}#
+ #{b _85hotwsCta0JfYIjI4Ozn}#)
+ (if (symbol? #{a _85hotwsCta0JfYIjI4Ozl}#)
#t
- (if (if (vector? #{a 22533}#)
- (if (= (vector-length #{a 22533}#)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4Ozl}#)
+ (if (= (vector-length
+ #{a _85hotwsCta0JfYIjI4Ozl}#)
4)
- (eq? (vector-ref #{a 22533}# 0)
+ (eq? (vector-ref
+ #{a _85hotwsCta0JfYIjI4Ozl}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{a 22533}# 1))
+ (symbol?
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4Ozl}#
+ 1))
#f)))
- #{tmp 22529}#)
+ #{tmp _85hotwsCta0JfYIjI4Ozh}#)
#f)
(@apply
- (lambda (#{a 22562}# #{init 22563}# #{b 22564}#)
- (let ((#{tmp 22565}#
+ (lambda (#{a _85hotwsCta0JfYIjI4O0C}#
+ #{init _85hotwsCta0JfYIjI4O0D}#
+ #{b _85hotwsCta0JfYIjI4O0E}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O0F}#
(symbol->keyword
- (syntax->datum #{a 22562}#))))
- (#{key 22201}#
- #{b 22564}#
- #{req 22482}#
- #{opt 22483}#
- (cons (list #{tmp 22565}#
- #{a 22562}#
- #{init 22563}#)
- #{rkey 22484}#))))
- #{tmp 22529}#)
- (let ((#{tmp 22568}#
+ (syntax->datum
+ #{a _85hotwsCta0JfYIjI4O0C}#))))
+ (#{key _85hotwsCta0JfYIjI4OuZ}#
+ #{b _85hotwsCta0JfYIjI4O0E}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (cons (list #{tmp _85hotwsCta0JfYIjI4O0F}#
+ #{a _85hotwsCta0JfYIjI4O0C}#
+ #{init _85hotwsCta0JfYIjI4O0D}#)
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4Ozh}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O0I}#
($sc-dispatch
- #{args 22481}#
+ #{args _85hotwsCta0JfYIjI4Oyx}#
'((any any any) . any))))
- (if (if #{tmp 22568}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4O0I}#
(@apply
- (lambda (#{a 22572}#
- #{init 22573}#
- #{k 22574}#
- #{b 22575}#)
- (if (if (symbol? #{a 22572}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4O0M}#
+ #{init _85hotwsCta0JfYIjI4O0N}#
+ #{k _85hotwsCta0JfYIjI4O0O}#
+ #{b _85hotwsCta0JfYIjI4O0P}#)
+ (if (if (symbol?
+ #{a _85hotwsCta0JfYIjI4O0M}#)
#t
- (if (if (vector? #{a 22572}#)
+ (if (if (vector?
+ #{a _85hotwsCta0JfYIjI4O0M}#)
(if (= (vector-length
- #{a 22572}#)
+ #{a _85hotwsCta0JfYIjI4O0M}#)
4)
(eq? (vector-ref
- #{a 22572}#
+ #{a _85hotwsCta0JfYIjI4O0M}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{a 22572}# 1))
+ (vector-ref
+ #{a _85hotwsCta0JfYIjI4O0M}#
+ 1))
#f))
(keyword?
- (syntax->datum #{k 22574}#))
+ (syntax->datum
+ #{k _85hotwsCta0JfYIjI4O0O}#))
#f))
- #{tmp 22568}#)
+ #{tmp _85hotwsCta0JfYIjI4O0I}#)
#f)
(@apply
- (lambda (#{a 22602}#
- #{init 22603}#
- #{k 22604}#
- #{b 22605}#)
- (#{key 22201}#
- #{b 22605}#
- #{req 22482}#
- #{opt 22483}#
- (cons (list #{k 22604}#
- #{a 22602}#
- #{init 22603}#)
- #{rkey 22484}#)))
- #{tmp 22568}#)
- (let ((#{tmp 22606}#
- ($sc-dispatch #{args 22481}# '(any))))
- (if (if #{tmp 22606}#
+ (lambda (#{a _85hotwsCta0JfYIjI4O0q}#
+ #{init _85hotwsCta0JfYIjI4O0r}#
+ #{k _85hotwsCta0JfYIjI4O0s}#
+ #{b _85hotwsCta0JfYIjI4O0t}#)
+ (#{key _85hotwsCta0JfYIjI4OuZ}#
+ #{b _85hotwsCta0JfYIjI4O0t}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
+ (cons (list #{k _85hotwsCta0JfYIjI4O0s}#
+ #{a _85hotwsCta0JfYIjI4O0q}#
+ #{init _85hotwsCta0JfYIjI4O0r}#)
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#)))
+ #{tmp _85hotwsCta0JfYIjI4O0I}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O0u}#
+ ($sc-dispatch
+ #{args _85hotwsCta0JfYIjI4Oyx}#
+ '(any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4O0u}#
(@apply
- (lambda (#{aok 22610}#)
- (eq? (syntax->datum #{aok 22610}#)
+ (lambda (#{aok _85hotwsCta0JfYIjI4O0y}#)
+ (eq? (syntax->datum
+ #{aok _85hotwsCta0JfYIjI4O0y}#)
#:allow-other-keys))
- #{tmp 22606}#)
+ #{tmp _85hotwsCta0JfYIjI4O0u}#)
#f)
(@apply
- (lambda (#{aok 22611}#)
- (#{check 22203}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{aok _85hotwsCta0JfYIjI4O0z}#)
+ (#{check _85hotwsCta0JfYIjI4Oub}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
#f
- (cons #t (reverse #{rkey 22484}#))))
- #{tmp 22606}#)
- (let ((#{tmp 22614}#
+ (cons #t
+ (reverse
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4O0u}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O02}#
($sc-dispatch
- #{args 22481}#
+ #{args _85hotwsCta0JfYIjI4Oyx}#
'(any any any))))
- (if (if #{tmp 22614}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4O02}#
(@apply
- (lambda (#{aok 22618}#
- #{a 22619}#
- #{b 22620}#)
+ (lambda (#{aok _85hotwsCta0JfYIjI4O06}#
+ #{a _85hotwsCta0JfYIjI4O07}#
+ #{b _85hotwsCta0JfYIjI4O08}#)
(if (eq? (syntax->datum
- #{aok 22618}#)
+ #{aok _85hotwsCta0JfYIjI4O06}#)
#:allow-other-keys)
(eq? (syntax->datum
- #{a 22619}#)
+ #{a _85hotwsCta0JfYIjI4O07}#)
#:rest)
#f))
- #{tmp 22614}#)
+ #{tmp _85hotwsCta0JfYIjI4O02}#)
#f)
(@apply
- (lambda (#{aok 22621}#
- #{a 22622}#
- #{b 22623}#)
- (#{rest 22202}#
- #{b 22623}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{aok _85hotwsCta0JfYIjI4O09}#
+ #{a _85hotwsCta0JfYIjI4O0$}#
+ #{b _85hotwsCta0JfYIjI4O0@}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{b _85hotwsCta0JfYIjI4O0@}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
(cons #t
- (reverse #{rkey 22484}#))))
- #{tmp 22614}#)
- (let ((#{tmp 22626}#
+ (reverse
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4O02}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O1C}#
($sc-dispatch
- #{args 22481}#
+ #{args _85hotwsCta0JfYIjI4Oyx}#
'(any . any))))
- (if (if #{tmp 22626}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4O1C}#
(@apply
- (lambda (#{aok 22630}#
- #{r 22631}#)
+ (lambda (#{aok _85hotwsCta0JfYIjI4O1G}#
+ #{r _85hotwsCta0JfYIjI4O1H}#)
(if (eq? (syntax->datum
- #{aok 22630}#)
+ #{aok _85hotwsCta0JfYIjI4O1G}#)
#:allow-other-keys)
- (if (symbol? #{r 22631}#)
+ (if (symbol?
+ #{r _85hotwsCta0JfYIjI4O1H}#)
#t
(if (if (vector?
- #{r 22631}#)
+ #{r _85hotwsCta0JfYIjI4O1H}#)
(if (= (vector-length
- #{r 22631}#)
+ #{r _85hotwsCta0JfYIjI4O1H}#)
4)
(eq? (vector-ref
- #{r 22631}#
+ #{r _85hotwsCta0JfYIjI4O1H}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 22631}#
+ #{r _85hotwsCta0JfYIjI4O1H}#
1))
#f))
#f))
- #{tmp 22626}#)
+ #{tmp _85hotwsCta0JfYIjI4O1C}#)
#f)
(@apply
- (lambda (#{aok 22658}#
- #{r 22659}#)
- (#{rest 22202}#
- #{r 22659}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{aok _85hotwsCta0JfYIjI4O1i}#
+ #{r _85hotwsCta0JfYIjI4O1j}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{r _85hotwsCta0JfYIjI4O1j}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
(cons #t
(reverse
- #{rkey 22484}#))))
- #{tmp 22626}#)
- (let ((#{tmp 22662}#
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4O1C}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O1m}#
($sc-dispatch
- #{args 22481}#
+ #{args _85hotwsCta0JfYIjI4Oyx}#
'(any any))))
- (if (if #{tmp 22662}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4O1m}#
(@apply
- (lambda (#{a 22666}#
- #{b 22667}#)
+ (lambda (#{a _85hotwsCta0JfYIjI4O1q}#
+ #{b _85hotwsCta0JfYIjI4O1r}#)
(eq? (syntax->datum
- #{a 22666}#)
+ #{a _85hotwsCta0JfYIjI4O1q}#)
#:rest))
- #{tmp 22662}#)
+ #{tmp _85hotwsCta0JfYIjI4O1m}#)
#f)
(@apply
- (lambda (#{a 22668}#
- #{b 22669}#)
- (#{rest 22202}#
- #{b 22669}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{a _85hotwsCta0JfYIjI4O1s}#
+ #{b _85hotwsCta0JfYIjI4O1t}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{b _85hotwsCta0JfYIjI4O1t}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
(cons #f
(reverse
- #{rkey 22484}#))))
- #{tmp 22662}#)
- (let ((#{tmp 22672}#
- (list #{args 22481}#)))
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4O1m}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O1w}#
+ (list #{args _85hotwsCta0JfYIjI4Oyx}#)))
(if (@apply
- (lambda (#{r 22674}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4O1y}#)
(if (symbol?
- #{r 22674}#)
+ #{r _85hotwsCta0JfYIjI4O1y}#)
#t
(if (if (vector?
- #{r 22674}#)
+ #{r _85hotwsCta0JfYIjI4O1y}#)
(if (= (vector-length
- #{r 22674}#)
+ #{r _85hotwsCta0JfYIjI4O1y}#)
4)
(eq? (vector-ref
- #{r 22674}#
+ #{r _85hotwsCta0JfYIjI4O1y}#
0)
'syntax-object)
#f)
#f)
(symbol?
(vector-ref
- #{r 22674}#
+ #{r _85hotwsCta0JfYIjI4O1y}#
1))
#f)))
- #{tmp 22672}#)
+ #{tmp _85hotwsCta0JfYIjI4O1w}#)
(@apply
- (lambda (#{r 22704}#)
- (#{rest 22202}#
- #{r 22704}#
- #{req 22482}#
- #{opt 22483}#
+ (lambda (#{r _85hotwsCta0JfYIjI4O2Q}#)
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ #{r _85hotwsCta0JfYIjI4O2Q}#
+ #{req _85hotwsCta0JfYIjI4Oyy}#
+ #{opt _85hotwsCta0JfYIjI4Oyz}#
(cons #f
(reverse
- #{rkey 22484}#))))
- #{tmp 22672}#)
+ #{rkey _85hotwsCta0JfYIjI4Oy0}#))))
+ #{tmp _85hotwsCta0JfYIjI4O1w}#)
(syntax-violation
'lambda*
"invalid keyword argument list"
- #{orig-args 22198}#
- #{args 22481}#)))))))))))))))))))))
- (#{rest 22202}#
- (lambda (#{args 22732}#
- #{req 22733}#
- #{opt 22734}#
- #{kw 22735}#)
- (let ((#{tmp 22737}# (list #{args 22732}#)))
+ #{orig-args _85hotwsCta0JfYIjI4OuW}#
+ #{args _85hotwsCta0JfYIjI4Oyx}#)))))))))))))))))))))
+ (#{rest _85hotwsCta0JfYIjI4Oua}#
+ (lambda (#{args _85hotwsCta0JfYIjI4O2s}#
+ #{req _85hotwsCta0JfYIjI4O2t}#
+ #{opt _85hotwsCta0JfYIjI4O2u}#
+ #{kw _85hotwsCta0JfYIjI4O2v}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O2x}#
+ (list #{args _85hotwsCta0JfYIjI4O2s}#)))
(if (@apply
- (lambda (#{r 22739}#)
- (if (symbol? #{r 22739}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4O2z}#)
+ (if (symbol? #{r _85hotwsCta0JfYIjI4O2z}#)
#t
- (if (if (vector? #{r 22739}#)
- (if (= (vector-length #{r 22739}#) 4)
- (eq? (vector-ref #{r 22739}# 0)
+ (if (if (vector? #{r _85hotwsCta0JfYIjI4O2z}#)
+ (if (= (vector-length
+ #{r _85hotwsCta0JfYIjI4O2z}#)
+ 4)
+ (eq? (vector-ref
+ #{r _85hotwsCta0JfYIjI4O2z}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{r 22739}# 1))
+ (symbol?
+ (vector-ref #{r _85hotwsCta0JfYIjI4O2z}# 1))
#f)))
- #{tmp 22737}#)
+ #{tmp _85hotwsCta0JfYIjI4O2x}#)
(@apply
- (lambda (#{r 22769}#)
- (#{check 22203}#
- #{req 22733}#
- #{opt 22734}#
- #{r 22769}#
- #{kw 22735}#))
- #{tmp 22737}#)
+ (lambda (#{r _85hotwsCta0JfYIjI4O3R}#)
+ (#{check _85hotwsCta0JfYIjI4Oub}#
+ #{req _85hotwsCta0JfYIjI4O2t}#
+ #{opt _85hotwsCta0JfYIjI4O2u}#
+ #{r _85hotwsCta0JfYIjI4O3R}#
+ #{kw _85hotwsCta0JfYIjI4O2v}#))
+ #{tmp _85hotwsCta0JfYIjI4O2x}#)
(syntax-violation
'lambda*
"invalid rest argument"
- #{orig-args 22198}#
- #{args 22732}#)))))
- (#{check 22203}#
- (lambda (#{req 22773}#
- #{opt 22774}#
- #{rest 22775}#
- #{kw 22776}#)
- (if (#{distinct-bound-ids? 2769}#
+ #{orig-args _85hotwsCta0JfYIjI4OuW}#
+ #{args _85hotwsCta0JfYIjI4O2s}#)))))
+ (#{check _85hotwsCta0JfYIjI4Oub}#
+ (lambda (#{req _85hotwsCta0JfYIjI4O3V}#
+ #{opt _85hotwsCta0JfYIjI4O3W}#
+ #{rest _85hotwsCta0JfYIjI4O3X}#
+ #{kw _85hotwsCta0JfYIjI4O3Y}#)
+ (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
(append
- #{req 22773}#
- (map car #{opt 22774}#)
- (if #{rest 22775}# (list #{rest 22775}#) '())
- (if (pair? #{kw 22776}#)
- (map cadr (cdr #{kw 22776}#))
+ #{req _85hotwsCta0JfYIjI4O3V}#
+ (map car #{opt _85hotwsCta0JfYIjI4O3W}#)
+ (if #{rest _85hotwsCta0JfYIjI4O3X}#
+ (list #{rest _85hotwsCta0JfYIjI4O3X}#)
+ '())
+ (if (pair? #{kw _85hotwsCta0JfYIjI4O3Y}#)
+ (map cadr (cdr #{kw _85hotwsCta0JfYIjI4O3Y}#))
'())))
(values
- #{req 22773}#
- #{opt 22774}#
- #{rest 22775}#
- #{kw 22776}#)
+ #{req _85hotwsCta0JfYIjI4O3V}#
+ #{opt _85hotwsCta0JfYIjI4O3W}#
+ #{rest _85hotwsCta0JfYIjI4O3X}#
+ #{kw _85hotwsCta0JfYIjI4O3Y}#)
(syntax-violation
'lambda*
"duplicate identifier in argument list"
- #{orig-args 22198}#)))))
- (#{req 22199}# #{orig-args 22198}# '()))))
- (#{expand-lambda-case 2790}#
- (lambda (#{e 22892}#
- #{r 22893}#
- #{w 22894}#
- #{s 22895}#
- #{mod 22896}#
- #{get-formals 22897}#
- #{clauses 22898}#)
+ #{orig-args _85hotwsCta0JfYIjI4OuW}#)))))
+ (#{req _85hotwsCta0JfYIjI4OuX}#
+ #{orig-args _85hotwsCta0JfYIjI4OuW}#
+ '()))))
+ (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
+ (lambda (#{e _85hotwsCta0JfYIjI4O5M}#
+ #{r _85hotwsCta0JfYIjI4O5N}#
+ #{w _85hotwsCta0JfYIjI4O5O}#
+ #{s _85hotwsCta0JfYIjI4O5P}#
+ #{mod _85hotwsCta0JfYIjI4O5Q}#
+ #{get-formals _85hotwsCta0JfYIjI4O5R}#
+ #{clauses _85hotwsCta0JfYIjI4O5S}#)
(letrec*
- ((#{parse-req 22899}#
- (lambda (#{req 23026}#
- #{opt 23027}#
- #{rest 23028}#
- #{kw 23029}#
- #{body 23030}#)
- (let ((#{vars 23031}#
- (map #{gen-var 2792}# #{req 23026}#))
- (#{labels 23032}#
- (#{gen-labels 2746}# #{req 23026}#)))
- (let ((#{r* 23033}#
- (#{extend-var-env 2738}#
- #{labels 23032}#
- #{vars 23031}#
- #{r 22893}#))
- (#{w* 23034}#
- (#{make-binding-wrap 2757}#
- #{req 23026}#
- #{labels 23032}#
- #{w 22894}#)))
- (#{parse-opt 22900}#
- (map syntax->datum #{req 23026}#)
- #{opt 23027}#
- #{rest 23028}#
- #{kw 23029}#
- #{body 23030}#
- (reverse #{vars 23031}#)
- #{r* 23033}#
- #{w* 23034}#
+ ((#{parse-req _85hotwsCta0JfYIjI4O5T}#
+ (lambda (#{req _85hotwsCta0JfYIjI4O7S}#
+ #{opt _85hotwsCta0JfYIjI4O7T}#
+ #{rest _85hotwsCta0JfYIjI4O7U}#
+ #{kw _85hotwsCta0JfYIjI4O7V}#
+ #{body _85hotwsCta0JfYIjI4O7W}#)
+ (let ((#{vars _85hotwsCta0JfYIjI4O7X}#
+ (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ #{req _85hotwsCta0JfYIjI4O7S}#))
+ (#{labels _85hotwsCta0JfYIjI4O7Y}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{req _85hotwsCta0JfYIjI4O7S}#)))
+ (let ((#{r* _85hotwsCta0JfYIjI4O7Z}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{labels _85hotwsCta0JfYIjI4O7Y}#
+ #{vars _85hotwsCta0JfYIjI4O7X}#
+ #{r _85hotwsCta0JfYIjI4O5N}#))
+ (#{w* _85hotwsCta0JfYIjI4O7a}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{req _85hotwsCta0JfYIjI4O7S}#
+ #{labels _85hotwsCta0JfYIjI4O7Y}#
+ #{w _85hotwsCta0JfYIjI4O5O}#)))
+ (#{parse-opt _85hotwsCta0JfYIjI4O5U}#
+ (map syntax->datum
+ #{req _85hotwsCta0JfYIjI4O7S}#)
+ #{opt _85hotwsCta0JfYIjI4O7T}#
+ #{rest _85hotwsCta0JfYIjI4O7U}#
+ #{kw _85hotwsCta0JfYIjI4O7V}#
+ #{body _85hotwsCta0JfYIjI4O7W}#
+ (reverse #{vars _85hotwsCta0JfYIjI4O7X}#)
+ #{r* _85hotwsCta0JfYIjI4O7Z}#
+ #{w* _85hotwsCta0JfYIjI4O7a}#
'()
'())))))
- (#{parse-opt 22900}#
- (lambda (#{req 23210}#
- #{opt 23211}#
- #{rest 23212}#
- #{kw 23213}#
- #{body 23214}#
- #{vars 23215}#
- #{r* 23216}#
- #{w* 23217}#
- #{out 23218}#
- #{inits 23219}#)
- (if (pair? #{opt 23211}#)
- (let ((#{tmp 23220}# (car #{opt 23211}#)))
- (let ((#{tmp 23221}#
- ($sc-dispatch #{tmp 23220}# '(any any))))
- (if #{tmp 23221}#
+ (#{parse-opt _85hotwsCta0JfYIjI4O5U}#
+ (lambda (#{req _85hotwsCta0JfYIjI4O$K}#
+ #{opt _85hotwsCta0JfYIjI4O$L}#
+ #{rest _85hotwsCta0JfYIjI4O$M}#
+ #{kw _85hotwsCta0JfYIjI4O$N}#
+ #{body _85hotwsCta0JfYIjI4O$O}#
+ #{vars _85hotwsCta0JfYIjI4O$P}#
+ #{r* _85hotwsCta0JfYIjI4O$Q}#
+ #{w* _85hotwsCta0JfYIjI4O$R}#
+ #{out _85hotwsCta0JfYIjI4O$S}#
+ #{inits _85hotwsCta0JfYIjI4O$T}#)
+ (if (pair? #{opt _85hotwsCta0JfYIjI4O$L}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O$U}#
+ (car #{opt _85hotwsCta0JfYIjI4O$L}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4O$V}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4O$U}#
+ '(any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4O$V}#
(@apply
- (lambda (#{id 23223}# #{i 23224}#)
- (let ((#{v 23225}#
- (let ((#{id 23233}#
- (if (if (vector? #{id 23223}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4O$X}#
+ #{i _85hotwsCta0JfYIjI4O$Y}#)
+ (let ((#{v _85hotwsCta0JfYIjI4O$Z}#
+ (let ((#{id _85hotwsCta0JfYIjI4O$h}#
+ (if (if (vector?
+ #{id _85hotwsCta0JfYIjI4O$X}#)
(if (= (vector-length
- #{id 23223}#)
+ #{id _85hotwsCta0JfYIjI4O$X}#)
4)
(eq? (vector-ref
- #{id 23223}#
+ #{id _85hotwsCta0JfYIjI4O$X}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 23223}# 1)
- #{id 23223}#)))
+ (vector-ref
+ #{id _85hotwsCta0JfYIjI4O$X}#
+ 1)
+ #{id _85hotwsCta0JfYIjI4O$X}#)))
(gensym
(string-append
- (symbol->string #{id 23233}#)
+ (symbol->string
+ #{id _85hotwsCta0JfYIjI4O$h}#)
" ")))))
- (let ((#{l 23226}#
- (#{gen-labels 2746}#
- (list #{v 23225}#))))
- (let ((#{r** 23227}#
- (#{extend-var-env 2738}#
- #{l 23226}#
- (list #{v 23225}#)
- #{r* 23216}#)))
- (let ((#{w** 23228}#
- (#{make-binding-wrap 2757}#
- (list #{id 23223}#)
- #{l 23226}#
- #{w* 23217}#)))
- (#{parse-opt 22900}#
- #{req 23210}#
- (cdr #{opt 23211}#)
- #{rest 23212}#
- #{kw 23213}#
- #{body 23214}#
- (cons #{v 23225}# #{vars 23215}#)
- #{r** 23227}#
- #{w** 23228}#
- (cons (syntax->datum #{id 23223}#)
- #{out 23218}#)
- (cons (#{expand 2778}#
- #{i 23224}#
- #{r* 23216}#
- #{w* 23217}#
- #{mod 22896}#)
- #{inits 23219}#)))))))
- #{tmp 23221}#)
+ (let ((#{l _85hotwsCta0JfYIjI4O$a}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ (list #{v _85hotwsCta0JfYIjI4O$Z}#))))
+ (let ((#{r** _85hotwsCta0JfYIjI4O$b}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{l _85hotwsCta0JfYIjI4O$a}#
+ (list #{v _85hotwsCta0JfYIjI4O$Z}#)
+ #{r* _85hotwsCta0JfYIjI4O$Q}#)))
+ (let ((#{w** _85hotwsCta0JfYIjI4O$c}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ (list #{id _85hotwsCta0JfYIjI4O$X}#)
+ #{l _85hotwsCta0JfYIjI4O$a}#
+ #{w* _85hotwsCta0JfYIjI4O$R}#)))
+ (#{parse-opt _85hotwsCta0JfYIjI4O5U}#
+ #{req _85hotwsCta0JfYIjI4O$K}#
+ (cdr #{opt _85hotwsCta0JfYIjI4O$L}#)
+ #{rest _85hotwsCta0JfYIjI4O$M}#
+ #{kw _85hotwsCta0JfYIjI4O$N}#
+ #{body _85hotwsCta0JfYIjI4O$O}#
+ (cons #{v _85hotwsCta0JfYIjI4O$Z}#
+ #{vars _85hotwsCta0JfYIjI4O$P}#)
+ #{r** _85hotwsCta0JfYIjI4O$b}#
+ #{w** _85hotwsCta0JfYIjI4O$c}#
+ (cons (syntax->datum
+ #{id _85hotwsCta0JfYIjI4O$X}#)
+ #{out _85hotwsCta0JfYIjI4O$S}#)
+ (cons (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{i _85hotwsCta0JfYIjI4O$Y}#
+ #{r* _85hotwsCta0JfYIjI4O$Q}#
+ #{w* _85hotwsCta0JfYIjI4O$R}#
+ #{mod _85hotwsCta0JfYIjI4O5Q}#)
+ #{inits _85hotwsCta0JfYIjI4O$T}#)))))))
+ #{tmp _85hotwsCta0JfYIjI4O$V}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 23220}#))))
- (if #{rest 23212}#
- (let ((#{v 23462}#
- (let ((#{id 23472}#
- (if (if (vector? #{rest 23212}#)
- (if (= (vector-length #{rest 23212}#)
+ #{tmp _85hotwsCta0JfYIjI4O$U}#))))
+ (if #{rest _85hotwsCta0JfYIjI4O$M}#
+ (let ((#{v _85hotwsCta0JfYIjI4PCG}#
+ (let ((#{id _85hotwsCta0JfYIjI4PCQ}#
+ (if (if (vector?
+ #{rest _85hotwsCta0JfYIjI4O$M}#)
+ (if (= (vector-length
+ #{rest _85hotwsCta0JfYIjI4O$M}#)
4)
- (eq? (vector-ref #{rest 23212}# 0)
+ (eq? (vector-ref
+ #{rest _85hotwsCta0JfYIjI4O$M}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{rest 23212}# 1)
- #{rest 23212}#)))
+ (vector-ref
+ #{rest _85hotwsCta0JfYIjI4O$M}#
+ 1)
+ #{rest _85hotwsCta0JfYIjI4O$M}#)))
(gensym
(string-append
- (symbol->string #{id 23472}#)
+ (symbol->string
+ #{id _85hotwsCta0JfYIjI4PCQ}#)
" ")))))
- (let ((#{l 23463}#
- (#{gen-labels 2746}# (list #{v 23462}#))))
- (let ((#{r* 23464}#
- (#{extend-var-env 2738}#
- #{l 23463}#
- (list #{v 23462}#)
- #{r* 23216}#)))
- (let ((#{w* 23465}#
- (#{make-binding-wrap 2757}#
- (list #{rest 23212}#)
- #{l 23463}#
- #{w* 23217}#)))
- (#{parse-kw 22901}#
- #{req 23210}#
- (if (pair? #{out 23218}#)
- (reverse #{out 23218}#)
+ (let ((#{l _85hotwsCta0JfYIjI4PCH}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ (list #{v _85hotwsCta0JfYIjI4PCG}#))))
+ (let ((#{r* _85hotwsCta0JfYIjI4PCI}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{l _85hotwsCta0JfYIjI4PCH}#
+ (list #{v _85hotwsCta0JfYIjI4PCG}#)
+ #{r* _85hotwsCta0JfYIjI4O$Q}#)))
+ (let ((#{w* _85hotwsCta0JfYIjI4PCJ}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ (list #{rest _85hotwsCta0JfYIjI4O$M}#)
+ #{l _85hotwsCta0JfYIjI4PCH}#
+ #{w* _85hotwsCta0JfYIjI4O$R}#)))
+ (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
+ #{req _85hotwsCta0JfYIjI4O$K}#
+ (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#)
+ (reverse #{out _85hotwsCta0JfYIjI4O$S}#)
+ #f)
+ (syntax->datum #{rest _85hotwsCta0JfYIjI4O$M}#)
+ (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
+ (cdr #{kw _85hotwsCta0JfYIjI4O$N}#)
+ #{kw _85hotwsCta0JfYIjI4O$N}#)
+ #{body _85hotwsCta0JfYIjI4O$O}#
+ (cons #{v _85hotwsCta0JfYIjI4PCG}#
+ #{vars _85hotwsCta0JfYIjI4O$P}#)
+ #{r* _85hotwsCta0JfYIjI4PCI}#
+ #{w* _85hotwsCta0JfYIjI4PCJ}#
+ (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
+ (car #{kw _85hotwsCta0JfYIjI4O$N}#)
#f)
- (syntax->datum #{rest 23212}#)
- (if (pair? #{kw 23213}#)
- (cdr #{kw 23213}#)
- #{kw 23213}#)
- #{body 23214}#
- (cons #{v 23462}# #{vars 23215}#)
- #{r* 23464}#
- #{w* 23465}#
- (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f)
'()
- #{inits 23219}#)))))
- (#{parse-kw 22901}#
- #{req 23210}#
- (if (pair? #{out 23218}#)
- (reverse #{out 23218}#)
+ #{inits _85hotwsCta0JfYIjI4O$T}#)))))
+ (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
+ #{req _85hotwsCta0JfYIjI4O$K}#
+ (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#)
+ (reverse #{out _85hotwsCta0JfYIjI4O$S}#)
#f)
#f
- (if (pair? #{kw 23213}#)
- (cdr #{kw 23213}#)
- #{kw 23213}#)
- #{body 23214}#
- #{vars 23215}#
- #{r* 23216}#
- #{w* 23217}#
- (if (pair? #{kw 23213}#) (car #{kw 23213}#) #f)
+ (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
+ (cdr #{kw _85hotwsCta0JfYIjI4O$N}#)
+ #{kw _85hotwsCta0JfYIjI4O$N}#)
+ #{body _85hotwsCta0JfYIjI4O$O}#
+ #{vars _85hotwsCta0JfYIjI4O$P}#
+ #{r* _85hotwsCta0JfYIjI4O$Q}#
+ #{w* _85hotwsCta0JfYIjI4O$R}#
+ (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#)
+ (car #{kw _85hotwsCta0JfYIjI4O$N}#)
+ #f)
'()
- #{inits 23219}#)))))
- (#{parse-kw 22901}#
- (lambda (#{req 23634}#
- #{opt 23635}#
- #{rest 23636}#
- #{kw 23637}#
- #{body 23638}#
- #{vars 23639}#
- #{r* 23640}#
- #{w* 23641}#
- #{aok 23642}#
- #{out 23643}#
- #{inits 23644}#)
- (if (pair? #{kw 23637}#)
- (let ((#{tmp 23645}# (car #{kw 23637}#)))
- (let ((#{tmp 23646}#
- ($sc-dispatch #{tmp 23645}# '(any any any))))
- (if #{tmp 23646}#
+ #{inits _85hotwsCta0JfYIjI4O$T}#)))))
+ (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
+ (lambda (#{req _85hotwsCta0JfYIjI4PEy}#
+ #{opt _85hotwsCta0JfYIjI4PEz}#
+ #{rest _85hotwsCta0JfYIjI4PE0}#
+ #{kw _85hotwsCta0JfYIjI4PE1}#
+ #{body _85hotwsCta0JfYIjI4PE2}#
+ #{vars _85hotwsCta0JfYIjI4PE3}#
+ #{r* _85hotwsCta0JfYIjI4PE4}#
+ #{w* _85hotwsCta0JfYIjI4PE5}#
+ #{aok _85hotwsCta0JfYIjI4PE6}#
+ #{out _85hotwsCta0JfYIjI4PE7}#
+ #{inits _85hotwsCta0JfYIjI4PE8}#)
+ (if (pair? #{kw _85hotwsCta0JfYIjI4PE1}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PE9}#
+ (car #{kw _85hotwsCta0JfYIjI4PE1}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4PE$}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4PE9}#
+ '(any any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PE$}#
(@apply
- (lambda (#{k 23648}# #{id 23649}# #{i 23650}#)
- (let ((#{v 23651}#
- (let ((#{id 23659}#
- (if (if (vector? #{id 23649}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4PFA}#
+ #{id _85hotwsCta0JfYIjI4PFB}#
+ #{i _85hotwsCta0JfYIjI4PFC}#)
+ (let ((#{v _85hotwsCta0JfYIjI4PFD}#
+ (let ((#{id _85hotwsCta0JfYIjI4PFL}#
+ (if (if (vector?
+ #{id _85hotwsCta0JfYIjI4PFB}#)
(if (= (vector-length
- #{id 23649}#)
+ #{id _85hotwsCta0JfYIjI4PFB}#)
4)
(eq? (vector-ref
- #{id 23649}#
+ #{id _85hotwsCta0JfYIjI4PFB}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 23649}# 1)
- #{id 23649}#)))
+ (vector-ref
+ #{id _85hotwsCta0JfYIjI4PFB}#
+ 1)
+ #{id _85hotwsCta0JfYIjI4PFB}#)))
(gensym
(string-append
- (symbol->string #{id 23659}#)
+ (symbol->string
+ #{id _85hotwsCta0JfYIjI4PFL}#)
" ")))))
- (let ((#{l 23652}#
- (#{gen-labels 2746}#
- (list #{v 23651}#))))
- (let ((#{r** 23653}#
- (#{extend-var-env 2738}#
- #{l 23652}#
- (list #{v 23651}#)
- #{r* 23640}#)))
- (let ((#{w** 23654}#
- (#{make-binding-wrap 2757}#
- (list #{id 23649}#)
- #{l 23652}#
- #{w* 23641}#)))
- (#{parse-kw 22901}#
- #{req 23634}#
- #{opt 23635}#
- #{rest 23636}#
- (cdr #{kw 23637}#)
- #{body 23638}#
- (cons #{v 23651}# #{vars 23639}#)
- #{r** 23653}#
- #{w** 23654}#
- #{aok 23642}#
- (cons (list (syntax->datum #{k 23648}#)
- (syntax->datum #{id 23649}#)
- #{v 23651}#)
- #{out 23643}#)
- (cons (#{expand 2778}#
- #{i 23650}#
- #{r* 23640}#
- #{w* 23641}#
- #{mod 22896}#)
- #{inits 23644}#)))))))
- #{tmp 23646}#)
+ (let ((#{l _85hotwsCta0JfYIjI4PFE}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ (list #{v _85hotwsCta0JfYIjI4PFD}#))))
+ (let ((#{r** _85hotwsCta0JfYIjI4PFF}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{l _85hotwsCta0JfYIjI4PFE}#
+ (list #{v _85hotwsCta0JfYIjI4PFD}#)
+ #{r* _85hotwsCta0JfYIjI4PE4}#)))
+ (let ((#{w** _85hotwsCta0JfYIjI4PFG}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ (list #{id _85hotwsCta0JfYIjI4PFB}#)
+ #{l _85hotwsCta0JfYIjI4PFE}#
+ #{w* _85hotwsCta0JfYIjI4PE5}#)))
+ (#{parse-kw _85hotwsCta0JfYIjI4O5V}#
+ #{req _85hotwsCta0JfYIjI4PEy}#
+ #{opt _85hotwsCta0JfYIjI4PEz}#
+ #{rest _85hotwsCta0JfYIjI4PE0}#
+ (cdr #{kw _85hotwsCta0JfYIjI4PE1}#)
+ #{body _85hotwsCta0JfYIjI4PE2}#
+ (cons #{v _85hotwsCta0JfYIjI4PFD}#
+ #{vars _85hotwsCta0JfYIjI4PE3}#)
+ #{r** _85hotwsCta0JfYIjI4PFF}#
+ #{w** _85hotwsCta0JfYIjI4PFG}#
+ #{aok _85hotwsCta0JfYIjI4PE6}#
+ (cons (list (syntax->datum
+ #{k _85hotwsCta0JfYIjI4PFA}#)
+ (syntax->datum
+ #{id _85hotwsCta0JfYIjI4PFB}#)
+ #{v _85hotwsCta0JfYIjI4PFD}#)
+ #{out _85hotwsCta0JfYIjI4PE7}#)
+ (cons (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{i _85hotwsCta0JfYIjI4PFC}#
+ #{r* _85hotwsCta0JfYIjI4PE4}#
+ #{w* _85hotwsCta0JfYIjI4PE5}#
+ #{mod _85hotwsCta0JfYIjI4O5Q}#)
+ #{inits _85hotwsCta0JfYIjI4PE8}#)))))))
+ #{tmp _85hotwsCta0JfYIjI4PE$}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 23645}#))))
- (#{parse-body 22902}#
- #{req 23634}#
- #{opt 23635}#
- #{rest 23636}#
- (if (if #{aok 23642}#
- #{aok 23642}#
- (pair? #{out 23643}#))
- (cons #{aok 23642}# (reverse #{out 23643}#))
+ #{tmp _85hotwsCta0JfYIjI4PE9}#))))
+ (#{parse-body _85hotwsCta0JfYIjI4O5W}#
+ #{req _85hotwsCta0JfYIjI4PEy}#
+ #{opt _85hotwsCta0JfYIjI4PEz}#
+ #{rest _85hotwsCta0JfYIjI4PE0}#
+ (if (if #{aok _85hotwsCta0JfYIjI4PE6}#
+ #{aok _85hotwsCta0JfYIjI4PE6}#
+ (pair? #{out _85hotwsCta0JfYIjI4PE7}#))
+ (cons #{aok _85hotwsCta0JfYIjI4PE6}#
+ (reverse #{out _85hotwsCta0JfYIjI4PE7}#))
#f)
- #{body 23638}#
- (reverse #{vars 23639}#)
- #{r* 23640}#
- #{w* 23641}#
- (reverse #{inits 23644}#)
+ #{body _85hotwsCta0JfYIjI4PE2}#
+ (reverse #{vars _85hotwsCta0JfYIjI4PE3}#)
+ #{r* _85hotwsCta0JfYIjI4PE4}#
+ #{w* _85hotwsCta0JfYIjI4PE5}#
+ (reverse #{inits _85hotwsCta0JfYIjI4PE8}#)
'()))))
- (#{parse-body 22902}#
- (lambda (#{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- #{body 23901}#
- #{vars 23902}#
- #{r* 23903}#
- #{w* 23904}#
- #{inits 23905}#
- #{meta 23906}#)
- (let ((#{tmp 23908}#
+ (#{parse-body _85hotwsCta0JfYIjI4O5W}#
+ (lambda (#{req _85hotwsCta0JfYIjI4PI5}#
+ #{opt _85hotwsCta0JfYIjI4PI6}#
+ #{rest _85hotwsCta0JfYIjI4PI7}#
+ #{kw _85hotwsCta0JfYIjI4PI8}#
+ #{body _85hotwsCta0JfYIjI4PI9}#
+ #{vars _85hotwsCta0JfYIjI4PI$}#
+ #{r* _85hotwsCta0JfYIjI4PI@}#
+ #{w* _85hotwsCta0JfYIjI4PJA}#
+ #{inits _85hotwsCta0JfYIjI4PJB}#
+ #{meta _85hotwsCta0JfYIjI4PJC}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PJE}#
($sc-dispatch
- #{body 23901}#
+ #{body _85hotwsCta0JfYIjI4PI9}#
'(any any . each-any))))
- (if (if #{tmp 23908}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4PJE}#
(@apply
- (lambda (#{docstring 23912}#
- #{e1 23913}#
- #{e2 23914}#)
- (string? (syntax->datum #{docstring 23912}#)))
- #{tmp 23908}#)
+ (lambda (#{docstring _85hotwsCta0JfYIjI4PJI}#
+ #{e1 _85hotwsCta0JfYIjI4PJJ}#
+ #{e2 _85hotwsCta0JfYIjI4PJK}#)
+ (string?
+ (syntax->datum
+ #{docstring _85hotwsCta0JfYIjI4PJI}#)))
+ #{tmp _85hotwsCta0JfYIjI4PJE}#)
#f)
(@apply
- (lambda (#{docstring 23915}# #{e1 23916}# #{e2 23917}#)
- (#{parse-body 22902}#
- #{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- (cons #{e1 23916}# #{e2 23917}#)
- #{vars 23902}#
- #{r* 23903}#
- #{w* 23904}#
- #{inits 23905}#
+ (lambda (#{docstring _85hotwsCta0JfYIjI4PJL}#
+ #{e1 _85hotwsCta0JfYIjI4PJM}#
+ #{e2 _85hotwsCta0JfYIjI4PJN}#)
+ (#{parse-body _85hotwsCta0JfYIjI4O5W}#
+ #{req _85hotwsCta0JfYIjI4PI5}#
+ #{opt _85hotwsCta0JfYIjI4PI6}#
+ #{rest _85hotwsCta0JfYIjI4PI7}#
+ #{kw _85hotwsCta0JfYIjI4PI8}#
+ (cons #{e1 _85hotwsCta0JfYIjI4PJM}#
+ #{e2 _85hotwsCta0JfYIjI4PJN}#)
+ #{vars _85hotwsCta0JfYIjI4PI$}#
+ #{r* _85hotwsCta0JfYIjI4PI@}#
+ #{w* _85hotwsCta0JfYIjI4PJA}#
+ #{inits _85hotwsCta0JfYIjI4PJB}#
(append
- #{meta 23906}#
+ #{meta _85hotwsCta0JfYIjI4PJC}#
(list (cons 'documentation
(syntax->datum
- #{docstring 23915}#))))))
- #{tmp 23908}#)
- (let ((#{tmp 23918}#
+ #{docstring _85hotwsCta0JfYIjI4PJL}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PJE}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PJO}#
($sc-dispatch
- #{body 23901}#
+ #{body _85hotwsCta0JfYIjI4PI9}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 23918}#
+ (if #{tmp _85hotwsCta0JfYIjI4PJO}#
(@apply
- (lambda (#{k 23922}#
- #{v 23923}#
- #{e1 23924}#
- #{e2 23925}#)
- (#{parse-body 22902}#
- #{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- (cons #{e1 23924}# #{e2 23925}#)
- #{vars 23902}#
- #{r* 23903}#
- #{w* 23904}#
- #{inits 23905}#
+ (lambda (#{k _85hotwsCta0JfYIjI4PJS}#
+ #{v _85hotwsCta0JfYIjI4PJT}#
+ #{e1 _85hotwsCta0JfYIjI4PJU}#
+ #{e2 _85hotwsCta0JfYIjI4PJV}#)
+ (#{parse-body _85hotwsCta0JfYIjI4O5W}#
+ #{req _85hotwsCta0JfYIjI4PI5}#
+ #{opt _85hotwsCta0JfYIjI4PI6}#
+ #{rest _85hotwsCta0JfYIjI4PI7}#
+ #{kw _85hotwsCta0JfYIjI4PI8}#
+ (cons #{e1 _85hotwsCta0JfYIjI4PJU}#
+ #{e2 _85hotwsCta0JfYIjI4PJV}#)
+ #{vars _85hotwsCta0JfYIjI4PI$}#
+ #{r* _85hotwsCta0JfYIjI4PI@}#
+ #{w* _85hotwsCta0JfYIjI4PJA}#
+ #{inits _85hotwsCta0JfYIjI4PJB}#
(append
- #{meta 23906}#
+ #{meta _85hotwsCta0JfYIjI4PJC}#
(syntax->datum
- (map cons #{k 23922}# #{v 23923}#)))))
- #{tmp 23918}#)
- (let ((#{tmp 23926}#
+ (map cons
+ #{k _85hotwsCta0JfYIjI4PJS}#
+ #{v _85hotwsCta0JfYIjI4PJT}#)))))
+ #{tmp _85hotwsCta0JfYIjI4PJO}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PJW}#
($sc-dispatch
- #{body 23901}#
+ #{body _85hotwsCta0JfYIjI4PI9}#
'(any . each-any))))
- (if #{tmp 23926}#
+ (if #{tmp _85hotwsCta0JfYIjI4PJW}#
(@apply
- (lambda (#{e1 23930}# #{e2 23931}#)
+ (lambda (#{e1 _85hotwsCta0JfYIjI4PJa}#
+ #{e2 _85hotwsCta0JfYIjI4PJb}#)
(values
- #{meta 23906}#
- #{req 23897}#
- #{opt 23898}#
- #{rest 23899}#
- #{kw 23900}#
- #{inits 23905}#
- #{vars 23902}#
- (#{expand-body 2782}#
- (cons #{e1 23930}# #{e2 23931}#)
- (#{wrap 2771}#
+ #{meta _85hotwsCta0JfYIjI4PJC}#
+ #{req _85hotwsCta0JfYIjI4PI5}#
+ #{opt _85hotwsCta0JfYIjI4PI6}#
+ #{rest _85hotwsCta0JfYIjI4PI7}#
+ #{kw _85hotwsCta0JfYIjI4PI8}#
+ #{inits _85hotwsCta0JfYIjI4PJB}#
+ #{vars _85hotwsCta0JfYIjI4PI$}#
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ (cons #{e1 _85hotwsCta0JfYIjI4PJa}#
+ #{e2 _85hotwsCta0JfYIjI4PJb}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 22892}#)
- #{s 22895}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4O5M}#)
+ #{s _85hotwsCta0JfYIjI4O5P}#
#f)
(set-source-properties!
- #{e 22892}#
- #{s 22895}#))
- #{e 22892}#)
- #{w 22894}#
- #{mod 22896}#)
- #{r* 23903}#
- #{w* 23904}#
- #{mod 22896}#)))
- #{tmp 23926}#)
+ #{e _85hotwsCta0JfYIjI4O5M}#
+ #{s _85hotwsCta0JfYIjI4O5P}#))
+ #{e _85hotwsCta0JfYIjI4O5M}#)
+ #{w _85hotwsCta0JfYIjI4O5O}#
+ #{mod _85hotwsCta0JfYIjI4O5Q}#)
+ #{r* _85hotwsCta0JfYIjI4PI@}#
+ #{w* _85hotwsCta0JfYIjI4PJA}#
+ #{mod _85hotwsCta0JfYIjI4O5Q}#)))
+ #{tmp _85hotwsCta0JfYIjI4PJW}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{body 23901}#))))))))))
- (let ((#{tmp 22904}#
- ($sc-dispatch #{clauses 22898}# '())))
- (if #{tmp 22904}#
+ #{body _85hotwsCta0JfYIjI4PI9}#))))))))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4O5Y}#
+ ($sc-dispatch
+ #{clauses _85hotwsCta0JfYIjI4O5S}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4O5Y}#
(@apply
(lambda () (values '() #f))
- #{tmp 22904}#)
- (let ((#{tmp 22908}#
+ #{tmp _85hotwsCta0JfYIjI4O5Y}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4O5c}#
($sc-dispatch
- #{clauses 22898}#
+ #{clauses _85hotwsCta0JfYIjI4O5S}#
'((any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 22908}#
+ (if #{tmp _85hotwsCta0JfYIjI4O5c}#
(@apply
- (lambda (#{args 22912}#
- #{e1 22913}#
- #{e2 22914}#
- #{args* 22915}#
- #{e1* 22916}#
- #{e2* 22917}#)
+ (lambda (#{args _85hotwsCta0JfYIjI4O5g}#
+ #{e1 _85hotwsCta0JfYIjI4O5h}#
+ #{e2 _85hotwsCta0JfYIjI4O5i}#
+ #{args* _85hotwsCta0JfYIjI4O5j}#
+ #{e1* _85hotwsCta0JfYIjI4O5k}#
+ #{e2* _85hotwsCta0JfYIjI4O5l}#)
(call-with-values
(lambda ()
- (#{get-formals 22897}# #{args 22912}#))
- (lambda (#{req 22918}#
- #{opt 22919}#
- #{rest 22920}#
- #{kw 22921}#)
+ (#{get-formals _85hotwsCta0JfYIjI4O5R}#
+ #{args _85hotwsCta0JfYIjI4O5g}#))
+ (lambda (#{req _85hotwsCta0JfYIjI4O5m}#
+ #{opt _85hotwsCta0JfYIjI4O5n}#
+ #{rest _85hotwsCta0JfYIjI4O5o}#
+ #{kw _85hotwsCta0JfYIjI4O5p}#)
(call-with-values
(lambda ()
- (#{parse-req 22899}#
- #{req 22918}#
- #{opt 22919}#
- #{rest 22920}#
- #{kw 22921}#
- (cons #{e1 22913}# #{e2 22914}#)))
- (lambda (#{meta 22982}#
- #{req 22983}#
- #{opt 22984}#
- #{rest 22985}#
- #{kw 22986}#
- #{inits 22987}#
- #{vars 22988}#
- #{body 22989}#)
+ (#{parse-req _85hotwsCta0JfYIjI4O5T}#
+ #{req _85hotwsCta0JfYIjI4O5m}#
+ #{opt _85hotwsCta0JfYIjI4O5n}#
+ #{rest _85hotwsCta0JfYIjI4O5o}#
+ #{kw _85hotwsCta0JfYIjI4O5p}#
+ (cons #{e1 _85hotwsCta0JfYIjI4O5h}#
+ #{e2 _85hotwsCta0JfYIjI4O5i}#)))
+ (lambda (#{meta _85hotwsCta0JfYIjI4O6m}#
+ #{req _85hotwsCta0JfYIjI4O6n}#
+ #{opt _85hotwsCta0JfYIjI4O6o}#
+ #{rest _85hotwsCta0JfYIjI4O6p}#
+ #{kw _85hotwsCta0JfYIjI4O6q}#
+ #{inits _85hotwsCta0JfYIjI4O6r}#
+ #{vars _85hotwsCta0JfYIjI4O6s}#
+ #{body _85hotwsCta0JfYIjI4O6t}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 22892}#
- #{r 22893}#
- #{w 22894}#
- #{s 22895}#
- #{mod 22896}#
- #{get-formals 22897}#
- (map (lambda (#{tmp 1727 22990}#
- #{tmp 1726 22991}#
- #{tmp 1725 22992}#)
- (cons #{tmp 1725 22992}#
- (cons #{tmp 1726 22991}#
- #{tmp 1727 22990}#)))
- #{e2* 22917}#
- #{e1* 22916}#
- #{args* 22915}#)))
- (lambda (#{meta* 22993}# #{else* 22994}#)
+ (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
+ #{e _85hotwsCta0JfYIjI4O5M}#
+ #{r _85hotwsCta0JfYIjI4O5N}#
+ #{w _85hotwsCta0JfYIjI4O5O}#
+ #{s _85hotwsCta0JfYIjI4O5P}#
+ #{mod _85hotwsCta0JfYIjI4O5Q}#
+ #{get-formals _85hotwsCta0JfYIjI4O5R}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4Jns _85hotwsCta0JfYIjI4O6u}#
+ #{tmp _85hotwsCta0JfYIjI4Jnr _85hotwsCta0JfYIjI4O6v}#
+ #{tmp _85hotwsCta0JfYIjI4Jnq _85hotwsCta0JfYIjI4O6w}#)
+ (cons #{tmp _85hotwsCta0JfYIjI4Jnq _85hotwsCta0JfYIjI4O6w}#
+ (cons #{tmp _85hotwsCta0JfYIjI4Jnr _85hotwsCta0JfYIjI4O6v}#
+ #{tmp _85hotwsCta0JfYIjI4Jns _85hotwsCta0JfYIjI4O6u}#)))
+ #{e2* _85hotwsCta0JfYIjI4O5l}#
+ #{e1* _85hotwsCta0JfYIjI4O5k}#
+ #{args* _85hotwsCta0JfYIjI4O5j}#)))
+ (lambda (#{meta* _85hotwsCta0JfYIjI4O6x}#
+ #{else* _85hotwsCta0JfYIjI4O6y}#)
(values
- (append #{meta 22982}# #{meta* 22993}#)
+ (append
+ #{meta _85hotwsCta0JfYIjI4O6m}#
+ #{meta* _85hotwsCta0JfYIjI4O6x}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
- #{s 22895}#
- #{req 22983}#
- #{opt 22984}#
- #{rest 22985}#
- #{kw 22986}#
- #{inits 22987}#
- #{vars 22988}#
- #{body 22989}#
- #{else* 22994}#)))))))))
- #{tmp 22908}#)
+ #{s _85hotwsCta0JfYIjI4O5P}#
+ #{req _85hotwsCta0JfYIjI4O6n}#
+ #{opt _85hotwsCta0JfYIjI4O6o}#
+ #{rest _85hotwsCta0JfYIjI4O6p}#
+ #{kw _85hotwsCta0JfYIjI4O6q}#
+ #{inits _85hotwsCta0JfYIjI4O6r}#
+ #{vars _85hotwsCta0JfYIjI4O6s}#
+ #{body _85hotwsCta0JfYIjI4O6t}#
+ #{else* _85hotwsCta0JfYIjI4O6y}#)))))))))
+ #{tmp _85hotwsCta0JfYIjI4O5c}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{clauses 22898}#))))))))
- (#{strip 2791}#
- (lambda (#{x 23968}# #{w 23969}#)
- (if (memq 'top (car #{w 23969}#))
- #{x 23968}#
+ #{clauses _85hotwsCta0JfYIjI4O5S}#))))))))
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PKA}#
+ #{w _85hotwsCta0JfYIjI4PKB}#)
+ (if (memq 'top (car #{w _85hotwsCta0JfYIjI4PKB}#))
+ #{x _85hotwsCta0JfYIjI4PKA}#
(letrec*
- ((#{f 23970}#
- (lambda (#{x 23973}#)
- (if (if (vector? #{x 23973}#)
- (if (= (vector-length #{x 23973}#) 4)
- (eq? (vector-ref #{x 23973}# 0) 'syntax-object)
+ ((#{f _85hotwsCta0JfYIjI4PKC}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PKF}#)
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4PKF}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 0)
+ 'syntax-object)
#f)
#f)
- (#{strip 2791}#
- (vector-ref #{x 23973}# 1)
- (vector-ref #{x 23973}# 2))
- (if (pair? #{x 23973}#)
- (let ((#{a 23992}# (#{f 23970}# (car #{x 23973}#)))
- (#{d 23993}# (#{f 23970}# (cdr #{x 23973}#))))
- (if (if (eq? #{a 23992}# (car #{x 23973}#))
- (eq? #{d 23993}# (cdr #{x 23973}#))
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 1)
+ (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 2))
+ (if (pair? #{x _85hotwsCta0JfYIjI4PKF}#)
+ (let ((#{a _85hotwsCta0JfYIjI4PKY}#
+ (#{f _85hotwsCta0JfYIjI4PKC}#
+ (car #{x _85hotwsCta0JfYIjI4PKF}#)))
+ (#{d _85hotwsCta0JfYIjI4PKZ}#
+ (#{f _85hotwsCta0JfYIjI4PKC}#
+ (cdr #{x _85hotwsCta0JfYIjI4PKF}#))))
+ (if (if (eq? #{a _85hotwsCta0JfYIjI4PKY}#
+ (car #{x _85hotwsCta0JfYIjI4PKF}#))
+ (eq? #{d _85hotwsCta0JfYIjI4PKZ}#
+ (cdr #{x _85hotwsCta0JfYIjI4PKF}#))
#f)
- #{x 23973}#
- (cons #{a 23992}# #{d 23993}#)))
- (if (vector? #{x 23973}#)
- (let ((#{old 23996}# (vector->list #{x 23973}#)))
- (let ((#{new 23997}#
- (map #{f 23970}# #{old 23996}#)))
+ #{x _85hotwsCta0JfYIjI4PKF}#
+ (cons #{a _85hotwsCta0JfYIjI4PKY}#
+ #{d _85hotwsCta0JfYIjI4PKZ}#)))
+ (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#)
+ (let ((#{old _85hotwsCta0JfYIjI4PKc}#
+ (vector->list #{x _85hotwsCta0JfYIjI4PKF}#)))
+ (let ((#{new _85hotwsCta0JfYIjI4PKd}#
+ (map #{f _85hotwsCta0JfYIjI4PKC}#
+ #{old _85hotwsCta0JfYIjI4PKc}#)))
(letrec*
- ((#{lp 23998}#
- (lambda (#{l1 24074}# #{l2 24075}#)
- (if (null? #{l1 24074}#)
- #{x 23973}#
- (if (eq? (car #{l1 24074}#)
- (car #{l2 24075}#))
- (#{lp 23998}#
- (cdr #{l1 24074}#)
- (cdr #{l2 24075}#))
- (list->vector #{new 23997}#))))))
- (#{lp 23998}# #{old 23996}# #{new 23997}#))))
- #{x 23973}#))))))
- (#{f 23970}# #{x 23968}#)))))
- (#{gen-var 2792}#
- (lambda (#{id 23038}#)
- (let ((#{id 23039}#
- (if (if (vector? #{id 23038}#)
- (if (= (vector-length #{id 23038}#) 4)
- (eq? (vector-ref #{id 23038}# 0) 'syntax-object)
+ ((#{lp _85hotwsCta0JfYIjI4PKe}#
+ (lambda (#{l1 _85hotwsCta0JfYIjI4PLq}#
+ #{l2 _85hotwsCta0JfYIjI4PLr}#)
+ (if (null? #{l1 _85hotwsCta0JfYIjI4PLq}#)
+ #{x _85hotwsCta0JfYIjI4PKF}#
+ (if (eq? (car #{l1 _85hotwsCta0JfYIjI4PLq}#)
+ (car #{l2 _85hotwsCta0JfYIjI4PLr}#))
+ (#{lp _85hotwsCta0JfYIjI4PKe}#
+ (cdr #{l1 _85hotwsCta0JfYIjI4PLq}#)
+ (cdr #{l2 _85hotwsCta0JfYIjI4PLr}#))
+ (list->vector
+ #{new _85hotwsCta0JfYIjI4PKd}#))))))
+ (#{lp _85hotwsCta0JfYIjI4PKe}#
+ #{old _85hotwsCta0JfYIjI4PKc}#
+ #{new _85hotwsCta0JfYIjI4PKd}#))))
+ #{x _85hotwsCta0JfYIjI4PKF}#))))))
+ (#{f _85hotwsCta0JfYIjI4PKC}#
+ #{x _85hotwsCta0JfYIjI4PKA}#)))))
+ (#{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ (lambda (#{id _85hotwsCta0JfYIjI4O7e}#)
+ (let ((#{id _85hotwsCta0JfYIjI4O7f}#
+ (if (if (vector? #{id _85hotwsCta0JfYIjI4O7e}#)
+ (if (= (vector-length #{id _85hotwsCta0JfYIjI4O7e}#)
+ 4)
+ (eq? (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{id 23038}# 1)
- #{id 23038}#)))
+ (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 1)
+ #{id _85hotwsCta0JfYIjI4O7e}#)))
(gensym
- (string-append (symbol->string #{id 23039}#) " "))))))
+ (string-append
+ (symbol->string #{id _85hotwsCta0JfYIjI4O7f}#)
+ " "))))))
(begin
- (set! #{gen-label 2745}#
- (let ((#{i 13949}# 0))
+ (set! #{gen-label _85hotwsCta0JfYIjI4J3p}#
+ (let ((#{i _85hotwsCta0JfYIjI4MoZ}# 0))
(lambda ()
- (let ((#{n 13950}# #{i 13949}#))
+ (let ((#{n _85hotwsCta0JfYIjI4Moa}#
+ #{i _85hotwsCta0JfYIjI4MoZ}#))
(begin
- (set! #{i 13949}# (#{1+}# #{n 13950}#))
- (number->string #{n 13950}# 36))))))
- (set! #{transformer-environment 2764}#
+ (set! #{i _85hotwsCta0JfYIjI4MoZ}#
+ (#{1+}# #{n _85hotwsCta0JfYIjI4Moa}#))
+ (number->string #{n _85hotwsCta0JfYIjI4Moa}# 36))))))
+ (set! #{transformer-environment _85hotwsCta0JfYIjI4J39}#
(make-fluid
- (lambda (#{k 12327}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4MNY}#)
(error "called outside the dynamic extent of a syntax transformer"))))
(module-define!
(current-module)
@@ -8250,1284 +8998,1500 @@
'let-syntax
'local-syntax
#f))
- (#{global-extend 2741}#
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'syntax-parameterize
- (lambda (#{e 2913}#
- #{r 2914}#
- #{w 2915}#
- #{s 2916}#
- #{mod 2917}#)
- (let ((#{tmp 2919}#
+ (lambda (#{e _85hotwsCta0JfYIjI4J6S}#
+ #{r _85hotwsCta0JfYIjI4J6T}#
+ #{w _85hotwsCta0JfYIjI4J6U}#
+ #{s _85hotwsCta0JfYIjI4J6V}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4J6Y}#
($sc-dispatch
- #{e 2913}#
+ #{e _85hotwsCta0JfYIjI4J6S}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 2919}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4J6Y}#
(@apply
- (lambda (#{var 2923}#
- #{val 2924}#
- #{e1 2925}#
- #{e2 2926}#)
- (#{valid-bound-ids? 2768}# #{var 2923}#))
- #{tmp 2919}#)
+ (lambda (#{var _85hotwsCta0JfYIjI4J6c}#
+ #{val _85hotwsCta0JfYIjI4J6d}#
+ #{e1 _85hotwsCta0JfYIjI4J6e}#
+ #{e2 _85hotwsCta0JfYIjI4J6f}#)
+ (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ #{var _85hotwsCta0JfYIjI4J6c}#))
+ #{tmp _85hotwsCta0JfYIjI4J6Y}#)
#f)
(@apply
- (lambda (#{var 3004}#
- #{val 3005}#
- #{e1 3006}#
- #{e2 3007}#)
- (let ((#{names 3008}#
- (map (lambda (#{x 3058}#)
- (#{id-var-name 2762}# #{x 3058}# #{w 2915}#))
- #{var 3004}#)))
+ (lambda (#{var _85hotwsCta0JfYIjI4J7t}#
+ #{val _85hotwsCta0JfYIjI4J7u}#
+ #{e1 _85hotwsCta0JfYIjI4J7v}#
+ #{e2 _85hotwsCta0JfYIjI4J7w}#)
+ (let ((#{names _85hotwsCta0JfYIjI4J7x}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4J8j}#)
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{x _85hotwsCta0JfYIjI4J8j}#
+ #{w _85hotwsCta0JfYIjI4J6U}#))
+ #{var _85hotwsCta0JfYIjI4J7t}#)))
(begin
(for-each
- (lambda (#{id 3009}# #{n 3010}#)
- (let ((#{atom-key 3011}#
- (car (let ((#{t 3018}#
- (assq #{n 3010}# #{r 2914}#)))
- (if #{t 3018}#
- (cdr #{t 3018}#)
- (if (symbol? #{n 3010}#)
- (let ((#{t 3023}#
- (#{get-global-definition-hook 2706}#
- #{n 3010}#
- #{mod 2917}#)))
- (if #{t 3023}#
- #{t 3023}#
+ (lambda (#{id _85hotwsCta0JfYIjI4J7y}#
+ #{n _85hotwsCta0JfYIjI4J7z}#)
+ (let ((#{atom-key _85hotwsCta0JfYIjI4J70}#
+ (car (let ((#{t _85hotwsCta0JfYIjI4J77}#
+ (assq #{n _85hotwsCta0JfYIjI4J7z}#
+ #{r _85hotwsCta0JfYIjI4J6T}#)))
+ (if #{t _85hotwsCta0JfYIjI4J77}#
+ (cdr #{t _85hotwsCta0JfYIjI4J77}#)
+ (if (symbol?
+ #{n _85hotwsCta0JfYIjI4J7z}#)
+ (let ((#{t _85hotwsCta0JfYIjI4J8A}#
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ #{n _85hotwsCta0JfYIjI4J7z}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#)))
+ (if #{t _85hotwsCta0JfYIjI4J8A}#
+ #{t _85hotwsCta0JfYIjI4J8A}#
'(global)))
'(displaced-lexical)))))))
- (if (eqv? #{atom-key 3011}# 'displaced-lexical)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4J70}#
+ 'displaced-lexical)
(syntax-violation
'syntax-parameterize
"identifier out of context"
- #{e 2913}#
- (#{wrap 2771}#
+ #{e _85hotwsCta0JfYIjI4J6S}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{id 3009}#) #{s 2916}# #f)
+ (if (if (pair? #{id _85hotwsCta0JfYIjI4J7y}#)
+ #{s _85hotwsCta0JfYIjI4J6V}#
+ #f)
(set-source-properties!
- #{id 3009}#
- #{s 2916}#))
- #{id 3009}#)
- #{w 2915}#
- #{mod 2917}#)))))
- #{var 3004}#
- #{names 3008}#)
- (#{expand-body 2782}#
- (cons #{e1 3006}# #{e2 3007}#)
- (#{wrap 2771}#
+ #{id _85hotwsCta0JfYIjI4J7y}#
+ #{s _85hotwsCta0JfYIjI4J6V}#))
+ #{id _85hotwsCta0JfYIjI4J7y}#)
+ #{w _85hotwsCta0JfYIjI4J6U}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#)))))
+ #{var _85hotwsCta0JfYIjI4J7t}#
+ #{names _85hotwsCta0JfYIjI4J7x}#)
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ (cons #{e1 _85hotwsCta0JfYIjI4J7v}#
+ #{e2 _85hotwsCta0JfYIjI4J7w}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 2913}#) #{s 2916}# #f)
- (set-source-properties! #{e 2913}# #{s 2916}#))
- #{e 2913}#)
- #{w 2915}#
- #{mod 2917}#)
- (#{extend-env 2737}#
- #{names 3008}#
- (let ((#{trans-r 3144}#
- (#{macros-only-env 2739}# #{r 2914}#)))
- (map (lambda (#{x 3145}#)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#)
+ #{s _85hotwsCta0JfYIjI4J6V}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4J6S}#
+ #{s _85hotwsCta0JfYIjI4J6V}#))
+ #{e _85hotwsCta0JfYIjI4J6S}#)
+ #{w _85hotwsCta0JfYIjI4J6U}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#)
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ #{names _85hotwsCta0JfYIjI4J7x}#
+ (let ((#{trans-r _85hotwsCta0JfYIjI4J95}#
+ (#{macros-only-env _85hotwsCta0JfYIjI4J3j}#
+ #{r _85hotwsCta0JfYIjI4J6T}#)))
+ (map (lambda (#{x _85hotwsCta0JfYIjI4J96}#)
(cons 'macro
- (#{eval-local-transformer 2784}#
- (#{expand 2778}#
- #{x 3145}#
- #{trans-r 3144}#
- #{w 2915}#
- #{mod 2917}#)
- #{mod 2917}#)))
- #{val 3005}#))
- #{r 2914}#)
- #{w 2915}#
- #{mod 2917}#))))
- #{tmp 2919}#)
+ (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4J96}#
+ #{trans-r _85hotwsCta0JfYIjI4J95}#
+ #{w _85hotwsCta0JfYIjI4J6U}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#)
+ #{mod _85hotwsCta0JfYIjI4J6W}#)))
+ #{val _85hotwsCta0JfYIjI4J7u}#))
+ #{r _85hotwsCta0JfYIjI4J6T}#)
+ #{w _85hotwsCta0JfYIjI4J6U}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#))))
+ #{tmp _85hotwsCta0JfYIjI4J6Y}#)
(syntax-violation
'syntax-parameterize
"bad syntax"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 2913}#) #{s 2916}# #f)
- (set-source-properties! #{e 2913}# #{s 2916}#))
- #{e 2913}#)
- #{w 2915}#
- #{mod 2917}#))))))
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#)
+ #{s _85hotwsCta0JfYIjI4J6V}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4J6S}#
+ #{s _85hotwsCta0JfYIjI4J6V}#))
+ #{e _85hotwsCta0JfYIjI4J6S}#)
+ #{w _85hotwsCta0JfYIjI4J6U}#
+ #{mod _85hotwsCta0JfYIjI4J6W}#))))))
(module-define!
(current-module)
'quote
(make-syntax-transformer
'quote
'core
- (lambda (#{e 3354}#
- #{r 3355}#
- #{w 3356}#
- #{s 3357}#
- #{mod 3358}#)
- (let ((#{tmp 3360}# ($sc-dispatch #{e 3354}# '(_ any))))
- (if #{tmp 3360}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KBL}#
+ #{r _85hotwsCta0JfYIjI4KBM}#
+ #{w _85hotwsCta0JfYIjI4KBN}#
+ #{s _85hotwsCta0JfYIjI4KBO}#
+ #{mod _85hotwsCta0JfYIjI4KBP}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KBR}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KBL}#
+ '(_ any))))
+ (if #{tmp _85hotwsCta0JfYIjI4KBR}#
(@apply
- (lambda (#{e 3363}#)
- (let ((#{exp 3367}#
- (#{strip 2791}# #{e 3363}# #{w 3356}#)))
+ (lambda (#{e _85hotwsCta0JfYIjI4KBU}#)
+ (let ((#{exp _85hotwsCta0JfYIjI4KBY}#
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{e _85hotwsCta0JfYIjI4KBU}#
+ #{w _85hotwsCta0JfYIjI4KBN}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
- #{s 3357}#
- #{exp 3367}#)))
- #{tmp 3360}#)
+ #{s _85hotwsCta0JfYIjI4KBO}#
+ #{exp _85hotwsCta0JfYIjI4KBY}#)))
+ #{tmp _85hotwsCta0JfYIjI4KBR}#)
(syntax-violation
'quote
"bad syntax"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 3354}#) #{s 3357}# #f)
- (set-source-properties! #{e 3354}# #{s 3357}#))
- #{e 3354}#)
- #{w 3356}#
- #{mod 3358}#)))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4KBL}#)
+ #{s _85hotwsCta0JfYIjI4KBO}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4KBL}#
+ #{s _85hotwsCta0JfYIjI4KBO}#))
+ #{e _85hotwsCta0JfYIjI4KBL}#)
+ #{w _85hotwsCta0JfYIjI4KBN}#
+ #{mod _85hotwsCta0JfYIjI4KBP}#)))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'syntax
(letrec*
- ((#{gen-syntax 3587}#
- (lambda (#{src 3689}#
- #{e 3690}#
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#)
- (if (if (symbol? #{e 3690}#)
+ ((#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ (lambda (#{src _85hotwsCta0JfYIjI4KGa}#
+ #{e _85hotwsCta0JfYIjI4KGb}#
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ #{maps _85hotwsCta0JfYIjI4KGd}#
+ #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#)
+ (if (if (symbol? #{e _85hotwsCta0JfYIjI4KGb}#)
#t
- (if (if (vector? #{e 3690}#)
- (if (= (vector-length #{e 3690}#) 4)
- (eq? (vector-ref #{e 3690}# 0) 'syntax-object)
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4KGb}#)
+ (if (= (vector-length #{e _85hotwsCta0JfYIjI4KGb}#)
+ 4)
+ (eq? (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 3690}# 1))
+ (symbol?
+ (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 1))
#f))
- (let ((#{label 3721}#
- (#{id-var-name 2762}# #{e 3690}# '(()))))
- (let ((#{b 3722}#
- (let ((#{t 3729}# (assq #{label 3721}# #{r 3691}#)))
- (if #{t 3729}#
- (cdr #{t 3729}#)
- (if (symbol? #{label 3721}#)
- (let ((#{t 3735}#
- (#{get-global-definition-hook 2706}#
- #{label 3721}#
- #{mod 3694}#)))
- (if #{t 3735}# #{t 3735}# '(global)))
+ (let ((#{label _85hotwsCta0JfYIjI4KG6}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{e _85hotwsCta0JfYIjI4KGb}#
+ '(()))))
+ (let ((#{b _85hotwsCta0JfYIjI4KG7}#
+ (let ((#{t _85hotwsCta0JfYIjI4KHC}#
+ (assq #{label _85hotwsCta0JfYIjI4KG6}#
+ #{r _85hotwsCta0JfYIjI4KGc}#)))
+ (if #{t _85hotwsCta0JfYIjI4KHC}#
+ (cdr #{t _85hotwsCta0JfYIjI4KHC}#)
+ (if (symbol? #{label _85hotwsCta0JfYIjI4KG6}#)
+ (let ((#{t _85hotwsCta0JfYIjI4KHI}#
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ #{label _85hotwsCta0JfYIjI4KG6}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#)))
+ (if #{t _85hotwsCta0JfYIjI4KHI}#
+ #{t _85hotwsCta0JfYIjI4KHI}#
+ '(global)))
'(displaced-lexical))))))
- (if (eq? (car #{b 3722}#) 'syntax)
+ (if (eq? (car #{b _85hotwsCta0JfYIjI4KG7}#) 'syntax)
(call-with-values
(lambda ()
- (let ((#{var.lev 3744}# (cdr #{b 3722}#)))
- (#{gen-ref 3588}#
- #{src 3689}#
- (car #{var.lev 3744}#)
- (cdr #{var.lev 3744}#)
- #{maps 3692}#)))
- (lambda (#{var 3748}# #{maps 3749}#)
- (values (list 'ref #{var 3748}#) #{maps 3749}#)))
- (if (#{ellipsis? 3693}# #{e 3690}#)
+ (let ((#{var.lev _85hotwsCta0JfYIjI4KHR}#
+ (cdr #{b _85hotwsCta0JfYIjI4KG7}#)))
+ (#{gen-ref _85hotwsCta0JfYIjI4KE1}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ (car #{var.lev _85hotwsCta0JfYIjI4KHR}#)
+ (cdr #{var.lev _85hotwsCta0JfYIjI4KHR}#)
+ #{maps _85hotwsCta0JfYIjI4KGd}#)))
+ (lambda (#{var _85hotwsCta0JfYIjI4KHV}#
+ #{maps _85hotwsCta0JfYIjI4KHW}#)
+ (values
+ (list 'ref #{var _85hotwsCta0JfYIjI4KHV}#)
+ #{maps _85hotwsCta0JfYIjI4KHW}#)))
+ (if (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{e _85hotwsCta0JfYIjI4KGb}#)
(syntax-violation
'syntax
"misplaced ellipsis"
- #{src 3689}#)
- (values (list 'quote #{e 3690}#) #{maps 3692}#)))))
- (let ((#{tmp 3751}#
- ($sc-dispatch #{e 3690}# '(any any))))
- (if (if #{tmp 3751}#
+ #{src _85hotwsCta0JfYIjI4KGa}#)
+ (values
+ (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#)
+ #{maps _85hotwsCta0JfYIjI4KGd}#)))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4KHY}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KGb}#
+ '(any any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4KHY}#
(@apply
- (lambda (#{dots 3755}# #{e 3756}#)
- (#{ellipsis? 3693}# #{dots 3755}#))
- #{tmp 3751}#)
+ (lambda (#{dots _85hotwsCta0JfYIjI4KHc}#
+ #{e _85hotwsCta0JfYIjI4KHd}#)
+ (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{dots _85hotwsCta0JfYIjI4KHc}#))
+ #{tmp _85hotwsCta0JfYIjI4KHY}#)
#f)
(@apply
- (lambda (#{dots 3757}# #{e 3758}#)
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{e 3758}#
- #{r 3691}#
- #{maps 3692}#
- (lambda (#{x 3759}#) #f)
- #{mod 3694}#))
- #{tmp 3751}#)
- (let ((#{tmp 3760}#
- ($sc-dispatch #{e 3690}# '(any any . any))))
- (if (if #{tmp 3760}#
+ (lambda (#{dots _85hotwsCta0JfYIjI4KHe}#
+ #{e _85hotwsCta0JfYIjI4KHf}#)
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ #{e _85hotwsCta0JfYIjI4KHf}#
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ #{maps _85hotwsCta0JfYIjI4KGd}#
+ (lambda (#{x _85hotwsCta0JfYIjI4KHg}#) #f)
+ #{mod _85hotwsCta0JfYIjI4KGf}#))
+ #{tmp _85hotwsCta0JfYIjI4KHY}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KHh}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KGb}#
+ '(any any . any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4KHh}#
(@apply
- (lambda (#{x 3764}# #{dots 3765}# #{y 3766}#)
- (#{ellipsis? 3693}# #{dots 3765}#))
- #{tmp 3760}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4KHl}#
+ #{dots _85hotwsCta0JfYIjI4KHm}#
+ #{y _85hotwsCta0JfYIjI4KHn}#)
+ (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{dots _85hotwsCta0JfYIjI4KHm}#))
+ #{tmp _85hotwsCta0JfYIjI4KHh}#)
#f)
(@apply
- (lambda (#{x 3767}# #{dots 3768}# #{y 3769}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4KHo}#
+ #{dots _85hotwsCta0JfYIjI4KHp}#
+ #{y _85hotwsCta0JfYIjI4KHq}#)
(letrec*
- ((#{f 3770}#
- (lambda (#{y 3778}# #{k 3779}#)
- (let ((#{tmp 3781}#
+ ((#{f _85hotwsCta0JfYIjI4KHr}#
+ (lambda (#{y _85hotwsCta0JfYIjI4KHz}#
+ #{k _85hotwsCta0JfYIjI4KH0}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KH2}#
($sc-dispatch
- #{y 3778}#
+ #{y _85hotwsCta0JfYIjI4KHz}#
'(any . any))))
- (if (if #{tmp 3781}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4KH2}#
(@apply
- (lambda (#{dots 3785}#
- #{y 3786}#)
- (#{ellipsis? 3693}#
- #{dots 3785}#))
- #{tmp 3781}#)
+ (lambda (#{dots _85hotwsCta0JfYIjI4KH6}#
+ #{y _85hotwsCta0JfYIjI4KH7}#)
+ (#{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{dots _85hotwsCta0JfYIjI4KH6}#))
+ #{tmp _85hotwsCta0JfYIjI4KH2}#)
#f)
(@apply
- (lambda (#{dots 3787}# #{y 3788}#)
- (#{f 3770}#
- #{y 3788}#
- (lambda (#{maps 3789}#)
+ (lambda (#{dots _85hotwsCta0JfYIjI4KH8}#
+ #{y _85hotwsCta0JfYIjI4KH9}#)
+ (#{f _85hotwsCta0JfYIjI4KHr}#
+ #{y _85hotwsCta0JfYIjI4KH9}#
+ (lambda (#{maps _85hotwsCta0JfYIjI4KH$}#)
(call-with-values
(lambda ()
- (#{k 3779}#
+ (#{k _85hotwsCta0JfYIjI4KH0}#
(cons '()
- #{maps 3789}#)))
- (lambda (#{x 3790}#
- #{maps 3791}#)
- (if (null? (car #{maps 3791}#))
+ #{maps _85hotwsCta0JfYIjI4KH$}#)))
+ (lambda (#{x _85hotwsCta0JfYIjI4KH@}#
+ #{maps _85hotwsCta0JfYIjI4KIA}#)
+ (if (null? (car #{maps _85hotwsCta0JfYIjI4KIA}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 3689}#)
+ #{src _85hotwsCta0JfYIjI4KGa}#)
(values
- (let ((#{map-env 3795}#
- (car #{maps 3791}#)))
+ (let ((#{map-env _85hotwsCta0JfYIjI4KIE}#
+ (car #{maps _85hotwsCta0JfYIjI4KIA}#)))
(list 'apply
'(primitive
append)
- (#{gen-map 3590}#
- #{x 3790}#
- #{map-env 3795}#)))
- (cdr #{maps 3791}#))))))))
- #{tmp 3781}#)
+ (#{gen-map _85hotwsCta0JfYIjI4KE3}#
+ #{x _85hotwsCta0JfYIjI4KH@}#
+ #{map-env _85hotwsCta0JfYIjI4KIE}#)))
+ (cdr #{maps _85hotwsCta0JfYIjI4KIA}#))))))))
+ #{tmp _85hotwsCta0JfYIjI4KH2}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{y 3778}#
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{y 3798}# #{maps 3799}#)
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ #{y _85hotwsCta0JfYIjI4KHz}#
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ #{maps _85hotwsCta0JfYIjI4KGd}#
+ #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#))
+ (lambda (#{y _85hotwsCta0JfYIjI4KIH}#
+ #{maps _85hotwsCta0JfYIjI4KII}#)
(call-with-values
(lambda ()
- (#{k 3779}# #{maps 3799}#))
- (lambda (#{x 3800}#
- #{maps 3801}#)
+ (#{k _85hotwsCta0JfYIjI4KH0}#
+ #{maps _85hotwsCta0JfYIjI4KII}#))
+ (lambda (#{x _85hotwsCta0JfYIjI4KIJ}#
+ #{maps _85hotwsCta0JfYIjI4KIK}#)
(values
- (if (equal? #{y 3798}# ''())
- #{x 3800}#
+ (if (equal?
+ #{y _85hotwsCta0JfYIjI4KIH}#
+ ''())
+ #{x _85hotwsCta0JfYIjI4KIJ}#
(list 'append
- #{x 3800}#
- #{y 3798}#))
- #{maps 3801}#))))))))))
- (#{f 3770}#
- #{y 3769}#
- (lambda (#{maps 3773}#)
+ #{x _85hotwsCta0JfYIjI4KIJ}#
+ #{y _85hotwsCta0JfYIjI4KIH}#))
+ #{maps _85hotwsCta0JfYIjI4KIK}#))))))))))
+ (#{f _85hotwsCta0JfYIjI4KHr}#
+ #{y _85hotwsCta0JfYIjI4KHq}#
+ (lambda (#{maps _85hotwsCta0JfYIjI4KHu}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{x 3767}#
- #{r 3691}#
- (cons '() #{maps 3773}#)
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{x 3774}# #{maps 3775}#)
- (if (null? (car #{maps 3775}#))
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ #{x _85hotwsCta0JfYIjI4KHo}#
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ (cons '()
+ #{maps _85hotwsCta0JfYIjI4KHu}#)
+ #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#))
+ (lambda (#{x _85hotwsCta0JfYIjI4KHv}#
+ #{maps _85hotwsCta0JfYIjI4KHw}#)
+ (if (null? (car #{maps _85hotwsCta0JfYIjI4KHw}#))
(syntax-violation
'syntax
"extra ellipsis"
- #{src 3689}#)
+ #{src _85hotwsCta0JfYIjI4KGa}#)
(values
- (#{gen-map 3590}#
- #{x 3774}#
- (car #{maps 3775}#))
- (cdr #{maps 3775}#)))))))))
- #{tmp 3760}#)
- (let ((#{tmp 3817}#
- ($sc-dispatch #{e 3690}# '(any . any))))
- (if #{tmp 3817}#
+ (#{gen-map _85hotwsCta0JfYIjI4KE3}#
+ #{x _85hotwsCta0JfYIjI4KHv}#
+ (car #{maps _85hotwsCta0JfYIjI4KHw}#))
+ (cdr #{maps _85hotwsCta0JfYIjI4KHw}#)))))))))
+ #{tmp _85hotwsCta0JfYIjI4KHh}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KIa}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KGb}#
+ '(any . any))))
+ (if #{tmp _85hotwsCta0JfYIjI4KIa}#
(@apply
- (lambda (#{x 3821}# #{y 3822}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4KIe}#
+ #{y _85hotwsCta0JfYIjI4KIf}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{x 3821}#
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{x 3823}# #{maps 3824}#)
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ #{x _85hotwsCta0JfYIjI4KIe}#
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ #{maps _85hotwsCta0JfYIjI4KGd}#
+ #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#))
+ (lambda (#{x _85hotwsCta0JfYIjI4KIg}#
+ #{maps _85hotwsCta0JfYIjI4KIh}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- #{y 3822}#
- #{r 3691}#
- #{maps 3824}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{y 3825}# #{maps 3826}#)
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ #{y _85hotwsCta0JfYIjI4KIf}#
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ #{maps _85hotwsCta0JfYIjI4KIh}#
+ #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#))
+ (lambda (#{y _85hotwsCta0JfYIjI4KIi}#
+ #{maps _85hotwsCta0JfYIjI4KIj}#)
(values
- (let ((#{atom-key 3831}#
- (car #{y 3825}#)))
- (if (eqv? #{atom-key 3831}#
+ (let ((#{atom-key _85hotwsCta0JfYIjI4KIo}#
+ (car #{y _85hotwsCta0JfYIjI4KIi}#)))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}#
'quote)
- (if (eq? (car #{x 3823}#)
+ (if (eq? (car #{x _85hotwsCta0JfYIjI4KIg}#)
'quote)
(list 'quote
- (cons (car (cdr #{x 3823}#))
- (car (cdr #{y 3825}#))))
- (if (eq? (car (cdr #{y 3825}#))
+ (cons (car (cdr #{x _85hotwsCta0JfYIjI4KIg}#))
+ (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#))))
+ (if (eq? (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#))
'())
- (list 'list #{x 3823}#)
+ (list 'list
+ #{x _85hotwsCta0JfYIjI4KIg}#)
(list 'cons
- #{x 3823}#
- #{y 3825}#)))
- (if (eqv? #{atom-key 3831}#
+ #{x _85hotwsCta0JfYIjI4KIg}#
+ #{y _85hotwsCta0JfYIjI4KIi}#)))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}#
'list)
(cons 'list
- (cons #{x 3823}#
- (cdr #{y 3825}#)))
+ (cons #{x _85hotwsCta0JfYIjI4KIg}#
+ (cdr #{y _85hotwsCta0JfYIjI4KIi}#)))
(list 'cons
- #{x 3823}#
- #{y 3825}#))))
- #{maps 3826}#))))))
- #{tmp 3817}#)
- (let ((#{tmp 3860}#
+ #{x _85hotwsCta0JfYIjI4KIg}#
+ #{y _85hotwsCta0JfYIjI4KIi}#))))
+ #{maps _85hotwsCta0JfYIjI4KIj}#))))))
+ #{tmp _85hotwsCta0JfYIjI4KIa}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KJF}#
($sc-dispatch
- #{e 3690}#
+ #{e _85hotwsCta0JfYIjI4KGb}#
'#(vector (any . each-any)))))
- (if #{tmp 3860}#
+ (if #{tmp _85hotwsCta0JfYIjI4KJF}#
(@apply
- (lambda (#{e1 3864}# #{e2 3865}#)
+ (lambda (#{e1 _85hotwsCta0JfYIjI4KJJ}#
+ #{e2 _85hotwsCta0JfYIjI4KJK}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{src 3689}#
- (cons #{e1 3864}# #{e2 3865}#)
- #{r 3691}#
- #{maps 3692}#
- #{ellipsis? 3693}#
- #{mod 3694}#))
- (lambda (#{e 3866}# #{maps 3867}#)
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{src _85hotwsCta0JfYIjI4KGa}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KJJ}#
+ #{e2 _85hotwsCta0JfYIjI4KJK}#)
+ #{r _85hotwsCta0JfYIjI4KGc}#
+ #{maps _85hotwsCta0JfYIjI4KGd}#
+ #{ellipsis? _85hotwsCta0JfYIjI4KGe}#
+ #{mod _85hotwsCta0JfYIjI4KGf}#))
+ (lambda (#{e _85hotwsCta0JfYIjI4KJL}#
+ #{maps _85hotwsCta0JfYIjI4KJM}#)
(values
- (if (eq? (car #{e 3866}#) 'list)
- (cons 'vector (cdr #{e 3866}#))
- (if (eq? (car #{e 3866}#) 'quote)
+ (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#)
+ 'list)
+ (cons 'vector
+ (cdr #{e _85hotwsCta0JfYIjI4KJL}#))
+ (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#)
+ 'quote)
(list 'quote
(list->vector
- (car (cdr #{e 3866}#))))
+ (car (cdr #{e _85hotwsCta0JfYIjI4KJL}#))))
(list 'list->vector
- #{e 3866}#)))
- #{maps 3867}#))))
- #{tmp 3860}#)
+ #{e _85hotwsCta0JfYIjI4KJL}#)))
+ #{maps _85hotwsCta0JfYIjI4KJM}#))))
+ #{tmp _85hotwsCta0JfYIjI4KJF}#)
(values
- (list 'quote #{e 3690}#)
- #{maps 3692}#))))))))))))
- (#{gen-ref 3588}#
- (lambda (#{src 3894}#
- #{var 3895}#
- #{level 3896}#
- #{maps 3897}#)
- (if (= #{level 3896}# 0)
- (values #{var 3895}# #{maps 3897}#)
- (if (null? #{maps 3897}#)
+ (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#)
+ #{maps _85hotwsCta0JfYIjI4KGd}#))))))))))))
+ (#{gen-ref _85hotwsCta0JfYIjI4KE1}#
+ (lambda (#{src _85hotwsCta0JfYIjI4KJn}#
+ #{var _85hotwsCta0JfYIjI4KJo}#
+ #{level _85hotwsCta0JfYIjI4KJp}#
+ #{maps _85hotwsCta0JfYIjI4KJq}#)
+ (if (= #{level _85hotwsCta0JfYIjI4KJp}# 0)
+ (values
+ #{var _85hotwsCta0JfYIjI4KJo}#
+ #{maps _85hotwsCta0JfYIjI4KJq}#)
+ (if (null? #{maps _85hotwsCta0JfYIjI4KJq}#)
(syntax-violation
'syntax
"missing ellipsis"
- #{src 3894}#)
+ #{src _85hotwsCta0JfYIjI4KJn}#)
(call-with-values
(lambda ()
- (#{gen-ref 3588}#
- #{src 3894}#
- #{var 3895}#
- (#{1-}# #{level 3896}#)
- (cdr #{maps 3897}#)))
- (lambda (#{outer-var 3898}# #{outer-maps 3899}#)
- (let ((#{b 3900}#
- (assq #{outer-var 3898}# (car #{maps 3897}#))))
- (if #{b 3900}#
- (values (cdr #{b 3900}#) #{maps 3897}#)
- (let ((#{inner-var 3902}#
+ (#{gen-ref _85hotwsCta0JfYIjI4KE1}#
+ #{src _85hotwsCta0JfYIjI4KJn}#
+ #{var _85hotwsCta0JfYIjI4KJo}#
+ (#{1-}# #{level _85hotwsCta0JfYIjI4KJp}#)
+ (cdr #{maps _85hotwsCta0JfYIjI4KJq}#)))
+ (lambda (#{outer-var _85hotwsCta0JfYIjI4KJr}#
+ #{outer-maps _85hotwsCta0JfYIjI4KJs}#)
+ (let ((#{b _85hotwsCta0JfYIjI4KJt}#
+ (assq #{outer-var _85hotwsCta0JfYIjI4KJr}#
+ (car #{maps _85hotwsCta0JfYIjI4KJq}#))))
+ (if #{b _85hotwsCta0JfYIjI4KJt}#
+ (values
+ (cdr #{b _85hotwsCta0JfYIjI4KJt}#)
+ #{maps _85hotwsCta0JfYIjI4KJq}#)
+ (let ((#{inner-var _85hotwsCta0JfYIjI4KJv}#
(gensym
(string-append
(symbol->string 'tmp)
" "))))
(values
- #{inner-var 3902}#
- (cons (cons (cons #{outer-var 3898}#
- #{inner-var 3902}#)
- (car #{maps 3897}#))
- #{outer-maps 3899}#)))))))))))
- (#{gen-map 3590}#
- (lambda (#{e 3916}# #{map-env 3917}#)
- (let ((#{formals 3918}# (map cdr #{map-env 3917}#))
- (#{actuals 3919}#
- (map (lambda (#{x 3921}#)
- (list 'ref (car #{x 3921}#)))
- #{map-env 3917}#)))
- (if (eq? (car #{e 3916}#) 'ref)
- (car #{actuals 3919}#)
+ #{inner-var _85hotwsCta0JfYIjI4KJv}#
+ (cons (cons (cons #{outer-var _85hotwsCta0JfYIjI4KJr}#
+ #{inner-var _85hotwsCta0JfYIjI4KJv}#)
+ (car #{maps _85hotwsCta0JfYIjI4KJq}#))
+ #{outer-maps _85hotwsCta0JfYIjI4KJs}#)))))))))))
+ (#{gen-map _85hotwsCta0JfYIjI4KE3}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KJ9}#
+ #{map-env _85hotwsCta0JfYIjI4KJ$}#)
+ (let ((#{formals _85hotwsCta0JfYIjI4KJ@}#
+ (map cdr #{map-env _85hotwsCta0JfYIjI4KJ$}#))
+ (#{actuals _85hotwsCta0JfYIjI4KKA}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4KKC}#)
+ (list 'ref (car #{x _85hotwsCta0JfYIjI4KKC}#)))
+ #{map-env _85hotwsCta0JfYIjI4KJ$}#)))
+ (if (eq? (car #{e _85hotwsCta0JfYIjI4KJ9}#) 'ref)
+ (car #{actuals _85hotwsCta0JfYIjI4KKA}#)
(if (and-map
- (lambda (#{x 3922}#)
- (if (eq? (car #{x 3922}#) 'ref)
- (memq (car (cdr #{x 3922}#)) #{formals 3918}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4KKD}#)
+ (if (eq? (car #{x _85hotwsCta0JfYIjI4KKD}#) 'ref)
+ (memq (car (cdr #{x _85hotwsCta0JfYIjI4KKD}#))
+ #{formals _85hotwsCta0JfYIjI4KJ@}#)
#f))
- (cdr #{e 3916}#))
+ (cdr #{e _85hotwsCta0JfYIjI4KJ9}#))
(cons 'map
- (cons (list 'primitive (car #{e 3916}#))
- (map (let ((#{r 3924}#
+ (cons (list 'primitive
+ (car #{e _85hotwsCta0JfYIjI4KJ9}#))
+ (map (let ((#{r _85hotwsCta0JfYIjI4KKF}#
(map cons
- #{formals 3918}#
- #{actuals 3919}#)))
- (lambda (#{x 3925}#)
- (cdr (assq (car (cdr #{x 3925}#))
- #{r 3924}#))))
- (cdr #{e 3916}#))))
+ #{formals _85hotwsCta0JfYIjI4KJ@}#
+ #{actuals _85hotwsCta0JfYIjI4KKA}#)))
+ (lambda (#{x _85hotwsCta0JfYIjI4KKG}#)
+ (cdr (assq (car (cdr #{x _85hotwsCta0JfYIjI4KKG}#))
+ #{r _85hotwsCta0JfYIjI4KKF}#))))
+ (cdr #{e _85hotwsCta0JfYIjI4KJ9}#))))
(cons 'map
- (cons (list 'lambda #{formals 3918}# #{e 3916}#)
- #{actuals 3919}#)))))))
- (#{regen 3594}#
- (lambda (#{x 3927}#)
- (let ((#{atom-key 3928}# (car #{x 3927}#)))
- (if (eqv? #{atom-key 3928}# 'ref)
- (let ((#{name 3938}# (car (cdr #{x 3927}#)))
- (#{var 3939}# (car (cdr #{x 3927}#))))
+ (cons (list 'lambda
+ #{formals _85hotwsCta0JfYIjI4KJ@}#
+ #{e _85hotwsCta0JfYIjI4KJ9}#)
+ #{actuals _85hotwsCta0JfYIjI4KKA}#)))))))
+ (#{regen _85hotwsCta0JfYIjI4KE7}#
+ (lambda (#{x _85hotwsCta0JfYIjI4KKI}#)
+ (let ((#{atom-key _85hotwsCta0JfYIjI4KKJ}#
+ (car #{x _85hotwsCta0JfYIjI4KKI}#)))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'ref)
+ (let ((#{name _85hotwsCta0JfYIjI4KKT}#
+ (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
+ (#{var _85hotwsCta0JfYIjI4KKU}#
+ (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
- #{name 3938}#
- #{var 3939}#))
- (if (eqv? #{atom-key 3928}# 'primitive)
- (let ((#{name 3951}# (car (cdr #{x 3927}#))))
+ #{name _85hotwsCta0JfYIjI4KKT}#
+ #{var _85hotwsCta0JfYIjI4KKU}#))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}#
+ 'primitive)
+ (let ((#{name _85hotwsCta0JfYIjI4KKg}#
+ (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 3951}#)
+ #{name _85hotwsCta0JfYIjI4KKg}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 3951}#
+ #{name _85hotwsCta0JfYIjI4KKg}#
#f)))
- (if (eqv? #{atom-key 3928}# 'quote)
- (let ((#{exp 3969}# (car (cdr #{x 3927}#))))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'quote)
+ (let ((#{exp _85hotwsCta0JfYIjI4KKy}#
+ (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
- #{exp 3969}#))
- (if (eqv? #{atom-key 3928}# 'lambda)
- (if (list? (car (cdr #{x 3927}#)))
- (let ((#{req 3980}# (car (cdr #{x 3927}#)))
- (#{vars 3982}# (car (cdr #{x 3927}#)))
- (#{exp 3984}#
- (#{regen 3594}#
- (car (cdr (cdr #{x 3927}#))))))
- (let ((#{body 3989}#
+ #{exp _85hotwsCta0JfYIjI4KKy}#))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}#
+ 'lambda)
+ (if (list? (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
+ (let ((#{req _85hotwsCta0JfYIjI4KK9}#
+ (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
+ (#{vars _85hotwsCta0JfYIjI4KK@}#
+ (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))
+ (#{exp _85hotwsCta0JfYIjI4KLB}#
+ (#{regen _85hotwsCta0JfYIjI4KE7}#
+ (car (cdr (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))))
+ (let ((#{body _85hotwsCta0JfYIjI4KLG}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 3980}#
+ #{req _85hotwsCta0JfYIjI4KK9}#
#f
#f
#f
'()
- #{vars 3982}#
- #{exp 3984}#
+ #{vars _85hotwsCta0JfYIjI4KK@}#
+ #{exp _85hotwsCta0JfYIjI4KLB}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 3989}#)))
- (error "how did we get here" #{x 3927}#))
- (let ((#{fun-exp 4005}#
- (let ((#{name 4014}# (car #{x 3927}#)))
+ #{body _85hotwsCta0JfYIjI4KLG}#)))
+ (error "how did we get here"
+ #{x _85hotwsCta0JfYIjI4KKI}#))
+ (let ((#{fun-exp _85hotwsCta0JfYIjI4KLW}#
+ (let ((#{name _85hotwsCta0JfYIjI4KLf}#
+ (car #{x _85hotwsCta0JfYIjI4KKI}#)))
(if (equal?
(module-name (current-module))
'(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
#f
- #{name 4014}#)
+ #{name _85hotwsCta0JfYIjI4KLf}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 5)
#f
'(guile)
- #{name 4014}#
+ #{name _85hotwsCta0JfYIjI4KLf}#
#f))))
- (#{arg-exps 4006}#
- (map #{regen 3594}# (cdr #{x 3927}#))))
+ (#{arg-exps _85hotwsCta0JfYIjI4KLX}#
+ (map #{regen _85hotwsCta0JfYIjI4KE7}#
+ (cdr #{x _85hotwsCta0JfYIjI4KKI}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 4005}#
- #{arg-exps 4006}#))))))))))
- (lambda (#{e 3595}#
- #{r 3596}#
- #{w 3597}#
- #{s 3598}#
- #{mod 3599}#)
- (let ((#{e 3600}#
- (#{wrap 2771}#
+ #{fun-exp _85hotwsCta0JfYIjI4KLW}#
+ #{arg-exps _85hotwsCta0JfYIjI4KLX}#))))))))))
+ (lambda (#{e _85hotwsCta0JfYIjI4KE8}#
+ #{r _85hotwsCta0JfYIjI4KE9}#
+ #{w _85hotwsCta0JfYIjI4KE$}#
+ #{s _85hotwsCta0JfYIjI4KE@}#
+ #{mod _85hotwsCta0JfYIjI4KFA}#)
+ (let ((#{e _85hotwsCta0JfYIjI4KFB}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 3595}#) #{s 3598}# #f)
- (set-source-properties! #{e 3595}# #{s 3598}#))
- #{e 3595}#)
- #{w 3597}#
- #{mod 3599}#)))
- (let ((#{tmp 3602}# ($sc-dispatch #{e 3600}# '(_ any))))
- (if #{tmp 3602}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4KE8}#)
+ #{s _85hotwsCta0JfYIjI4KE@}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4KE8}#
+ #{s _85hotwsCta0JfYIjI4KE@}#))
+ #{e _85hotwsCta0JfYIjI4KE8}#)
+ #{w _85hotwsCta0JfYIjI4KE$}#
+ #{mod _85hotwsCta0JfYIjI4KFA}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4KFD}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KFB}#
+ '(_ any))))
+ (if #{tmp _85hotwsCta0JfYIjI4KFD}#
(@apply
- (lambda (#{x 3627}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4KFc}#)
(call-with-values
(lambda ()
- (#{gen-syntax 3587}#
- #{e 3600}#
- #{x 3627}#
- #{r 3596}#
+ (#{gen-syntax _85hotwsCta0JfYIjI4KE0}#
+ #{e _85hotwsCta0JfYIjI4KFB}#
+ #{x _85hotwsCta0JfYIjI4KFc}#
+ #{r _85hotwsCta0JfYIjI4KE9}#
'()
- #{ellipsis? 2786}#
- #{mod 3599}#))
- (lambda (#{e 3681}# #{maps 3682}#)
- (#{regen 3594}# #{e 3681}#))))
- #{tmp 3602}#)
+ #{ellipsis? _85hotwsCta0JfYIjI4J4T}#
+ #{mod _85hotwsCta0JfYIjI4KFA}#))
+ (lambda (#{e _85hotwsCta0JfYIjI4KGS}#
+ #{maps _85hotwsCta0JfYIjI4KGT}#)
+ (#{regen _85hotwsCta0JfYIjI4KE7}#
+ #{e _85hotwsCta0JfYIjI4KGS}#))))
+ #{tmp _85hotwsCta0JfYIjI4KFD}#)
(syntax-violation
'syntax
"bad `syntax' form"
- #{e 3600}#)))))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4KFB}#)))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'lambda
- (lambda (#{e 4203}#
- #{r 4204}#
- #{w 4205}#
- #{s 4206}#
- #{mod 4207}#)
- (let ((#{tmp 4209}#
- ($sc-dispatch #{e 4203}# '(_ any any . each-any))))
- (if #{tmp 4209}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KOc}#
+ #{r _85hotwsCta0JfYIjI4KOd}#
+ #{w _85hotwsCta0JfYIjI4KOe}#
+ #{s _85hotwsCta0JfYIjI4KOf}#
+ #{mod _85hotwsCta0JfYIjI4KOg}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KOi}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KOc}#
+ '(_ any any . each-any))))
+ (if #{tmp _85hotwsCta0JfYIjI4KOi}#
(@apply
- (lambda (#{args 4213}# #{e1 4214}# #{e2 4215}#)
+ (lambda (#{args _85hotwsCta0JfYIjI4KOm}#
+ #{e1 _85hotwsCta0JfYIjI4KOn}#
+ #{e2 _85hotwsCta0JfYIjI4KOo}#)
(call-with-values
(lambda ()
- (#{lambda-formals 2787}# #{args 4213}#))
- (lambda (#{req 4218}#
- #{opt 4219}#
- #{rest 4220}#
- #{kw 4221}#)
+ (#{lambda-formals _85hotwsCta0JfYIjI4J4U}#
+ #{args _85hotwsCta0JfYIjI4KOm}#))
+ (lambda (#{req _85hotwsCta0JfYIjI4KOr}#
+ #{opt _85hotwsCta0JfYIjI4KOs}#
+ #{rest _85hotwsCta0JfYIjI4KOt}#
+ #{kw _85hotwsCta0JfYIjI4KOu}#)
(letrec*
- ((#{lp 4222}#
- (lambda (#{body 4225}# #{meta 4226}#)
- (let ((#{tmp 4228}#
+ ((#{lp _85hotwsCta0JfYIjI4KOv}#
+ (lambda (#{body _85hotwsCta0JfYIjI4KOy}#
+ #{meta _85hotwsCta0JfYIjI4KOz}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KO1}#
($sc-dispatch
- #{body 4225}#
+ #{body _85hotwsCta0JfYIjI4KOy}#
'(any any . each-any))))
- (if (if #{tmp 4228}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4KO1}#
(@apply
- (lambda (#{docstring 4232}#
- #{e1 4233}#
- #{e2 4234}#)
+ (lambda (#{docstring _85hotwsCta0JfYIjI4KO5}#
+ #{e1 _85hotwsCta0JfYIjI4KO6}#
+ #{e2 _85hotwsCta0JfYIjI4KO7}#)
(string?
- (syntax->datum #{docstring 4232}#)))
- #{tmp 4228}#)
+ (syntax->datum
+ #{docstring _85hotwsCta0JfYIjI4KO5}#)))
+ #{tmp _85hotwsCta0JfYIjI4KO1}#)
#f)
(@apply
- (lambda (#{docstring 4235}#
- #{e1 4236}#
- #{e2 4237}#)
- (#{lp 4222}#
- (cons #{e1 4236}# #{e2 4237}#)
+ (lambda (#{docstring _85hotwsCta0JfYIjI4KO8}#
+ #{e1 _85hotwsCta0JfYIjI4KO9}#
+ #{e2 _85hotwsCta0JfYIjI4KO$}#)
+ (#{lp _85hotwsCta0JfYIjI4KOv}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KO9}#
+ #{e2 _85hotwsCta0JfYIjI4KO$}#)
(append
- #{meta 4226}#
+ #{meta _85hotwsCta0JfYIjI4KOz}#
(list (cons 'documentation
(syntax->datum
- #{docstring 4235}#))))))
- #{tmp 4228}#)
- (let ((#{tmp 4238}#
+ #{docstring _85hotwsCta0JfYIjI4KO8}#))))))
+ #{tmp _85hotwsCta0JfYIjI4KO1}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KO@}#
($sc-dispatch
- #{body 4225}#
+ #{body _85hotwsCta0JfYIjI4KOy}#
'(#(vector #(each (any . any)))
any
.
each-any))))
- (if #{tmp 4238}#
+ (if #{tmp _85hotwsCta0JfYIjI4KO@}#
(@apply
- (lambda (#{k 4242}#
- #{v 4243}#
- #{e1 4244}#
- #{e2 4245}#)
- (#{lp 4222}#
- (cons #{e1 4244}# #{e2 4245}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4KPD}#
+ #{v _85hotwsCta0JfYIjI4KPE}#
+ #{e1 _85hotwsCta0JfYIjI4KPF}#
+ #{e2 _85hotwsCta0JfYIjI4KPG}#)
+ (#{lp _85hotwsCta0JfYIjI4KOv}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KPF}#
+ #{e2 _85hotwsCta0JfYIjI4KPG}#)
(append
- #{meta 4226}#
+ #{meta _85hotwsCta0JfYIjI4KOz}#
(syntax->datum
(map cons
- #{k 4242}#
- #{v 4243}#)))))
- #{tmp 4238}#)
- (#{expand-simple-lambda 2788}#
- #{e 4203}#
- #{r 4204}#
- #{w 4205}#
- #{s 4206}#
- #{mod 4207}#
- #{req 4218}#
- #{rest 4220}#
- #{meta 4226}#
- #{body 4225}#))))))))
- (#{lp 4222}# (cons #{e1 4214}# #{e2 4215}#) '())))))
- #{tmp 4209}#)
+ #{k _85hotwsCta0JfYIjI4KPD}#
+ #{v _85hotwsCta0JfYIjI4KPE}#)))))
+ #{tmp _85hotwsCta0JfYIjI4KO@}#)
+ (#{expand-simple-lambda _85hotwsCta0JfYIjI4J4V}#
+ #{e _85hotwsCta0JfYIjI4KOc}#
+ #{r _85hotwsCta0JfYIjI4KOd}#
+ #{w _85hotwsCta0JfYIjI4KOe}#
+ #{s _85hotwsCta0JfYIjI4KOf}#
+ #{mod _85hotwsCta0JfYIjI4KOg}#
+ #{req _85hotwsCta0JfYIjI4KOr}#
+ #{rest _85hotwsCta0JfYIjI4KOt}#
+ #{meta _85hotwsCta0JfYIjI4KOz}#
+ #{body _85hotwsCta0JfYIjI4KOy}#))))))))
+ (#{lp _85hotwsCta0JfYIjI4KOv}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KOn}#
+ #{e2 _85hotwsCta0JfYIjI4KOo}#)
+ '())))))
+ #{tmp _85hotwsCta0JfYIjI4KOi}#)
(syntax-violation
'lambda
"bad lambda"
- #{e 4203}#)))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4KOc}#)))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'lambda*
- (lambda (#{e 4530}#
- #{r 4531}#
- #{w 4532}#
- #{s 4533}#
- #{mod 4534}#)
- (let ((#{tmp 4536}#
- ($sc-dispatch #{e 4530}# '(_ any any . each-any))))
- (if #{tmp 4536}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KTj}#
+ #{r _85hotwsCta0JfYIjI4KTk}#
+ #{w _85hotwsCta0JfYIjI4KTl}#
+ #{s _85hotwsCta0JfYIjI4KTm}#
+ #{mod _85hotwsCta0JfYIjI4KTn}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KTp}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4KTj}#
+ '(_ any any . each-any))))
+ (if #{tmp _85hotwsCta0JfYIjI4KTp}#
(@apply
- (lambda (#{args 4540}# #{e1 4541}# #{e2 4542}#)
+ (lambda (#{args _85hotwsCta0JfYIjI4KTt}#
+ #{e1 _85hotwsCta0JfYIjI4KTu}#
+ #{e2 _85hotwsCta0JfYIjI4KTv}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 4530}#
- #{r 4531}#
- #{w 4532}#
- #{s 4533}#
- #{mod 4534}#
- #{lambda*-formals 2789}#
- (list (cons #{args 4540}#
- (cons #{e1 4541}# #{e2 4542}#)))))
- (lambda (#{meta 4545}# #{lcase 4546}#)
+ (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
+ #{e _85hotwsCta0JfYIjI4KTj}#
+ #{r _85hotwsCta0JfYIjI4KTk}#
+ #{w _85hotwsCta0JfYIjI4KTl}#
+ #{s _85hotwsCta0JfYIjI4KTm}#
+ #{mod _85hotwsCta0JfYIjI4KTn}#
+ #{lambda*-formals _85hotwsCta0JfYIjI4J4W}#
+ (list (cons #{args _85hotwsCta0JfYIjI4KTt}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KTu}#
+ #{e2 _85hotwsCta0JfYIjI4KTv}#)))))
+ (lambda (#{meta _85hotwsCta0JfYIjI4KTy}#
+ #{lcase _85hotwsCta0JfYIjI4KTz}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 4533}#
- #{meta 4545}#
- #{lcase 4546}#))))
- #{tmp 4536}#)
+ #{s _85hotwsCta0JfYIjI4KTm}#
+ #{meta _85hotwsCta0JfYIjI4KTy}#
+ #{lcase _85hotwsCta0JfYIjI4KTz}#))))
+ #{tmp _85hotwsCta0JfYIjI4KTp}#)
(syntax-violation
'lambda
"bad lambda*"
- #{e 4530}#)))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4KTj}#)))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'case-lambda
- (lambda (#{e 4716}#
- #{r 4717}#
- #{w 4718}#
- #{s 4719}#
- #{mod 4720}#)
- (let ((#{tmp 4722}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KWd}#
+ #{r _85hotwsCta0JfYIjI4KWe}#
+ #{w _85hotwsCta0JfYIjI4KWf}#
+ #{s _85hotwsCta0JfYIjI4KWg}#
+ #{mod _85hotwsCta0JfYIjI4KWh}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KWj}#
($sc-dispatch
- #{e 4716}#
+ #{e _85hotwsCta0JfYIjI4KWd}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 4722}#
+ (if #{tmp _85hotwsCta0JfYIjI4KWj}#
(@apply
- (lambda (#{args 4726}#
- #{e1 4727}#
- #{e2 4728}#
- #{args* 4729}#
- #{e1* 4730}#
- #{e2* 4731}#)
+ (lambda (#{args _85hotwsCta0JfYIjI4KWn}#
+ #{e1 _85hotwsCta0JfYIjI4KWo}#
+ #{e2 _85hotwsCta0JfYIjI4KWp}#
+ #{args* _85hotwsCta0JfYIjI4KWq}#
+ #{e1* _85hotwsCta0JfYIjI4KWr}#
+ #{e2* _85hotwsCta0JfYIjI4KWs}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 4716}#
- #{r 4717}#
- #{w 4718}#
- #{s 4719}#
- #{mod 4720}#
- #{lambda-formals 2787}#
- (cons (cons #{args 4726}#
- (cons #{e1 4727}# #{e2 4728}#))
- (map (lambda (#{tmp 2034 4734}#
- #{tmp 2033 4735}#
- #{tmp 2032 4736}#)
- (cons #{tmp 2032 4736}#
- (cons #{tmp 2033 4735}#
- #{tmp 2034 4734}#)))
- #{e2* 4731}#
- #{e1* 4730}#
- #{args* 4729}#))))
- (lambda (#{meta 4737}# #{lcase 4738}#)
+ (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
+ #{e _85hotwsCta0JfYIjI4KWd}#
+ #{r _85hotwsCta0JfYIjI4KWe}#
+ #{w _85hotwsCta0JfYIjI4KWf}#
+ #{s _85hotwsCta0JfYIjI4KWg}#
+ #{mod _85hotwsCta0JfYIjI4KWh}#
+ #{lambda-formals _85hotwsCta0JfYIjI4J4U}#
+ (cons (cons #{args _85hotwsCta0JfYIjI4KWn}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KWo}#
+ #{e2 _85hotwsCta0JfYIjI4KWp}#))
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4Jsf _85hotwsCta0JfYIjI4KWv}#
+ #{tmp _85hotwsCta0JfYIjI4Jse _85hotwsCta0JfYIjI4KWw}#
+ #{tmp _85hotwsCta0JfYIjI4Jsd _85hotwsCta0JfYIjI4KWx}#)
+ (cons #{tmp _85hotwsCta0JfYIjI4Jsd _85hotwsCta0JfYIjI4KWx}#
+ (cons #{tmp _85hotwsCta0JfYIjI4Jse _85hotwsCta0JfYIjI4KWw}#
+ #{tmp _85hotwsCta0JfYIjI4Jsf _85hotwsCta0JfYIjI4KWv}#)))
+ #{e2* _85hotwsCta0JfYIjI4KWs}#
+ #{e1* _85hotwsCta0JfYIjI4KWr}#
+ #{args* _85hotwsCta0JfYIjI4KWq}#))))
+ (lambda (#{meta _85hotwsCta0JfYIjI4KWy}#
+ #{lcase _85hotwsCta0JfYIjI4KWz}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 4719}#
- #{meta 4737}#
- #{lcase 4738}#))))
- #{tmp 4722}#)
+ #{s _85hotwsCta0JfYIjI4KWg}#
+ #{meta _85hotwsCta0JfYIjI4KWy}#
+ #{lcase _85hotwsCta0JfYIjI4KWz}#))))
+ #{tmp _85hotwsCta0JfYIjI4KWj}#)
(syntax-violation
'case-lambda
"bad case-lambda"
- #{e 4716}#)))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4KWd}#)))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'case-lambda*
- (lambda (#{e 4900}#
- #{r 4901}#
- #{w 4902}#
- #{s 4903}#
- #{mod 4904}#)
- (let ((#{tmp 4906}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KZV}#
+ #{r _85hotwsCta0JfYIjI4KZW}#
+ #{w _85hotwsCta0JfYIjI4KZX}#
+ #{s _85hotwsCta0JfYIjI4KZY}#
+ #{mod _85hotwsCta0JfYIjI4KZZ}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KZb}#
($sc-dispatch
- #{e 4900}#
+ #{e _85hotwsCta0JfYIjI4KZV}#
'(_ (any any . each-any)
.
#(each (any any . each-any))))))
- (if #{tmp 4906}#
+ (if #{tmp _85hotwsCta0JfYIjI4KZb}#
(@apply
- (lambda (#{args 4910}#
- #{e1 4911}#
- #{e2 4912}#
- #{args* 4913}#
- #{e1* 4914}#
- #{e2* 4915}#)
+ (lambda (#{args _85hotwsCta0JfYIjI4KZf}#
+ #{e1 _85hotwsCta0JfYIjI4KZg}#
+ #{e2 _85hotwsCta0JfYIjI4KZh}#
+ #{args* _85hotwsCta0JfYIjI4KZi}#
+ #{e1* _85hotwsCta0JfYIjI4KZj}#
+ #{e2* _85hotwsCta0JfYIjI4KZk}#)
(call-with-values
(lambda ()
- (#{expand-lambda-case 2790}#
- #{e 4900}#
- #{r 4901}#
- #{w 4902}#
- #{s 4903}#
- #{mod 4904}#
- #{lambda*-formals 2789}#
- (cons (cons #{args 4910}#
- (cons #{e1 4911}# #{e2 4912}#))
- (map (lambda (#{tmp 2055 4918}#
- #{tmp 2054 4919}#
- #{tmp 2053 4920}#)
- (cons #{tmp 2053 4920}#
- (cons #{tmp 2054 4919}#
- #{tmp 2055 4918}#)))
- #{e2* 4915}#
- #{e1* 4914}#
- #{args* 4913}#))))
- (lambda (#{meta 4921}# #{lcase 4922}#)
+ (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}#
+ #{e _85hotwsCta0JfYIjI4KZV}#
+ #{r _85hotwsCta0JfYIjI4KZW}#
+ #{w _85hotwsCta0JfYIjI4KZX}#
+ #{s _85hotwsCta0JfYIjI4KZY}#
+ #{mod _85hotwsCta0JfYIjI4KZZ}#
+ #{lambda*-formals _85hotwsCta0JfYIjI4J4W}#
+ (cons (cons #{args _85hotwsCta0JfYIjI4KZf}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KZg}#
+ #{e2 _85hotwsCta0JfYIjI4KZh}#))
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4Js0 _85hotwsCta0JfYIjI4KZn}#
+ #{tmp _85hotwsCta0JfYIjI4Jsz _85hotwsCta0JfYIjI4KZo}#
+ #{tmp _85hotwsCta0JfYIjI4Jsy _85hotwsCta0JfYIjI4KZp}#)
+ (cons #{tmp _85hotwsCta0JfYIjI4Jsy _85hotwsCta0JfYIjI4KZp}#
+ (cons #{tmp _85hotwsCta0JfYIjI4Jsz _85hotwsCta0JfYIjI4KZo}#
+ #{tmp _85hotwsCta0JfYIjI4Js0 _85hotwsCta0JfYIjI4KZn}#)))
+ #{e2* _85hotwsCta0JfYIjI4KZk}#
+ #{e1* _85hotwsCta0JfYIjI4KZj}#
+ #{args* _85hotwsCta0JfYIjI4KZi}#))))
+ (lambda (#{meta _85hotwsCta0JfYIjI4KZq}#
+ #{lcase _85hotwsCta0JfYIjI4KZr}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
- #{s 4903}#
- #{meta 4921}#
- #{lcase 4922}#))))
- #{tmp 4906}#)
+ #{s _85hotwsCta0JfYIjI4KZY}#
+ #{meta _85hotwsCta0JfYIjI4KZq}#
+ #{lcase _85hotwsCta0JfYIjI4KZr}#))))
+ #{tmp _85hotwsCta0JfYIjI4KZb}#)
(syntax-violation
'case-lambda
"bad case-lambda*"
- #{e 4900}#)))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4KZV}#)))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'let
(letrec*
- ((#{expand-let 5113}#
- (lambda (#{e 5262}#
- #{r 5263}#
- #{w 5264}#
- #{s 5265}#
- #{mod 5266}#
- #{constructor 5267}#
- #{ids 5268}#
- #{vals 5269}#
- #{exps 5270}#)
- (if (not (#{valid-bound-ids? 2768}# #{ids 5268}#))
+ ((#{expand-let _85hotwsCta0JfYIjI4Kcq}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Ke@}#
+ #{r _85hotwsCta0JfYIjI4KfA}#
+ #{w _85hotwsCta0JfYIjI4KfB}#
+ #{s _85hotwsCta0JfYIjI4KfC}#
+ #{mod _85hotwsCta0JfYIjI4KfD}#
+ #{constructor _85hotwsCta0JfYIjI4KfE}#
+ #{ids _85hotwsCta0JfYIjI4KfF}#
+ #{vals _85hotwsCta0JfYIjI4KfG}#
+ #{exps _85hotwsCta0JfYIjI4KfH}#)
+ (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ #{ids _85hotwsCta0JfYIjI4KfF}#))
(syntax-violation
'let
"duplicate bound variable"
- #{e 5262}#)
- (let ((#{labels 5348}#
- (#{gen-labels 2746}# #{ids 5268}#))
- (#{new-vars 5349}#
- (map #{gen-var 2792}# #{ids 5268}#)))
- (let ((#{nw 5350}#
- (#{make-binding-wrap 2757}#
- #{ids 5268}#
- #{labels 5348}#
- #{w 5264}#))
- (#{nr 5351}#
- (#{extend-var-env 2738}#
- #{labels 5348}#
- #{new-vars 5349}#
- #{r 5263}#)))
- (#{constructor 5267}#
- #{s 5265}#
- (map syntax->datum #{ids 5268}#)
- #{new-vars 5349}#
- (map (lambda (#{x 5368}#)
- (#{expand 2778}#
- #{x 5368}#
- #{r 5263}#
- #{w 5264}#
- #{mod 5266}#))
- #{vals 5269}#)
- (#{expand-body 2782}#
- #{exps 5270}#
- (#{source-wrap 2772}#
- #{e 5262}#
- #{nw 5350}#
- #{s 5265}#
- #{mod 5266}#)
- #{nr 5351}#
- #{nw 5350}#
- #{mod 5266}#))))))))
- (lambda (#{e 5114}#
- #{r 5115}#
- #{w 5116}#
- #{s 5117}#
- #{mod 5118}#)
- (let ((#{tmp 5120}#
+ #{e _85hotwsCta0JfYIjI4Ke@}#)
+ (let ((#{labels _85hotwsCta0JfYIjI4KgV}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{ids _85hotwsCta0JfYIjI4KfF}#))
+ (#{new-vars _85hotwsCta0JfYIjI4KgW}#
+ (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ #{ids _85hotwsCta0JfYIjI4KfF}#)))
+ (let ((#{nw _85hotwsCta0JfYIjI4KgX}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{ids _85hotwsCta0JfYIjI4KfF}#
+ #{labels _85hotwsCta0JfYIjI4KgV}#
+ #{w _85hotwsCta0JfYIjI4KfB}#))
+ (#{nr _85hotwsCta0JfYIjI4KgY}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{labels _85hotwsCta0JfYIjI4KgV}#
+ #{new-vars _85hotwsCta0JfYIjI4KgW}#
+ #{r _85hotwsCta0JfYIjI4KfA}#)))
+ (#{constructor _85hotwsCta0JfYIjI4KfE}#
+ #{s _85hotwsCta0JfYIjI4KfC}#
+ (map syntax->datum
+ #{ids _85hotwsCta0JfYIjI4KfF}#)
+ #{new-vars _85hotwsCta0JfYIjI4KgW}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4Kgp}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4Kgp}#
+ #{r _85hotwsCta0JfYIjI4KfA}#
+ #{w _85hotwsCta0JfYIjI4KfB}#
+ #{mod _85hotwsCta0JfYIjI4KfD}#))
+ #{vals _85hotwsCta0JfYIjI4KfG}#)
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ #{exps _85hotwsCta0JfYIjI4KfH}#
+ (#{source-wrap _85hotwsCta0JfYIjI4J4F}#
+ #{e _85hotwsCta0JfYIjI4Ke@}#
+ #{nw _85hotwsCta0JfYIjI4KgX}#
+ #{s _85hotwsCta0JfYIjI4KfC}#
+ #{mod _85hotwsCta0JfYIjI4KfD}#)
+ #{nr _85hotwsCta0JfYIjI4KgY}#
+ #{nw _85hotwsCta0JfYIjI4KgX}#
+ #{mod _85hotwsCta0JfYIjI4KfD}#))))))))
+ (lambda (#{e _85hotwsCta0JfYIjI4Kcr}#
+ #{r _85hotwsCta0JfYIjI4Kcs}#
+ #{w _85hotwsCta0JfYIjI4Kct}#
+ #{s _85hotwsCta0JfYIjI4Kcu}#
+ #{mod _85hotwsCta0JfYIjI4Kcv}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Kcx}#
($sc-dispatch
- #{e 5114}#
+ #{e _85hotwsCta0JfYIjI4Kcr}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 5120}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Kcx}#
(@apply
- (lambda (#{id 5124}#
- #{val 5125}#
- #{e1 5126}#
- #{e2 5127}#)
- (and-map #{id? 2743}# #{id 5124}#))
- #{tmp 5120}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4Kc1}#
+ #{val _85hotwsCta0JfYIjI4Kc2}#
+ #{e1 _85hotwsCta0JfYIjI4Kc3}#
+ #{e2 _85hotwsCta0JfYIjI4Kc4}#)
+ (and-map
+ #{id? _85hotwsCta0JfYIjI4J3n}#
+ #{id _85hotwsCta0JfYIjI4Kc1}#))
+ #{tmp _85hotwsCta0JfYIjI4Kcx}#)
#f)
(@apply
- (lambda (#{id 5143}#
- #{val 5144}#
- #{e1 5145}#
- #{e2 5146}#)
- (#{expand-let 5113}#
- #{e 5114}#
- #{r 5115}#
- #{w 5116}#
- #{s 5117}#
- #{mod 5118}#
- #{build-let 2725}#
- #{id 5143}#
- #{val 5144}#
- (cons #{e1 5145}# #{e2 5146}#)))
- #{tmp 5120}#)
- (let ((#{tmp 5176}#
+ (lambda (#{id _85hotwsCta0JfYIjI4KdI}#
+ #{val _85hotwsCta0JfYIjI4KdJ}#
+ #{e1 _85hotwsCta0JfYIjI4KdK}#
+ #{e2 _85hotwsCta0JfYIjI4KdL}#)
+ (#{expand-let _85hotwsCta0JfYIjI4Kcq}#
+ #{e _85hotwsCta0JfYIjI4Kcr}#
+ #{r _85hotwsCta0JfYIjI4Kcs}#
+ #{w _85hotwsCta0JfYIjI4Kct}#
+ #{s _85hotwsCta0JfYIjI4Kcu}#
+ #{mod _85hotwsCta0JfYIjI4Kcv}#
+ #{build-let _85hotwsCta0JfYIjI4J3V}#
+ #{id _85hotwsCta0JfYIjI4KdI}#
+ #{val _85hotwsCta0JfYIjI4KdJ}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KdK}#
+ #{e2 _85hotwsCta0JfYIjI4KdL}#)))
+ #{tmp _85hotwsCta0JfYIjI4Kcx}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Kdp}#
($sc-dispatch
- #{e 5114}#
+ #{e _85hotwsCta0JfYIjI4Kcr}#
'(_ any #(each (any any)) any . each-any))))
- (if (if #{tmp 5176}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Kdp}#
(@apply
- (lambda (#{f 5180}#
- #{id 5181}#
- #{val 5182}#
- #{e1 5183}#
- #{e2 5184}#)
- (if (if (symbol? #{f 5180}#)
+ (lambda (#{f _85hotwsCta0JfYIjI4Kdt}#
+ #{id _85hotwsCta0JfYIjI4Kdu}#
+ #{val _85hotwsCta0JfYIjI4Kdv}#
+ #{e1 _85hotwsCta0JfYIjI4Kdw}#
+ #{e2 _85hotwsCta0JfYIjI4Kdx}#)
+ (if (if (symbol? #{f _85hotwsCta0JfYIjI4Kdt}#)
#t
- (if (if (vector? #{f 5180}#)
- (if (= (vector-length #{f 5180}#) 4)
- (eq? (vector-ref #{f 5180}# 0)
+ (if (if (vector?
+ #{f _85hotwsCta0JfYIjI4Kdt}#)
+ (if (= (vector-length
+ #{f _85hotwsCta0JfYIjI4Kdt}#)
+ 4)
+ (eq? (vector-ref
+ #{f _85hotwsCta0JfYIjI4Kdt}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{f 5180}# 1))
+ (symbol?
+ (vector-ref
+ #{f _85hotwsCta0JfYIjI4Kdt}#
+ 1))
#f))
- (and-map #{id? 2743}# #{id 5181}#)
+ (and-map
+ #{id? _85hotwsCta0JfYIjI4J3n}#
+ #{id _85hotwsCta0JfYIjI4Kdu}#)
#f))
- #{tmp 5176}#)
+ #{tmp _85hotwsCta0JfYIjI4Kdp}#)
#f)
(@apply
- (lambda (#{f 5226}#
- #{id 5227}#
- #{val 5228}#
- #{e1 5229}#
- #{e2 5230}#)
- (#{expand-let 5113}#
- #{e 5114}#
- #{r 5115}#
- #{w 5116}#
- #{s 5117}#
- #{mod 5118}#
- #{build-named-let 2726}#
- (cons #{f 5226}# #{id 5227}#)
- #{val 5228}#
- (cons #{e1 5229}# #{e2 5230}#)))
- #{tmp 5176}#)
+ (lambda (#{f _85hotwsCta0JfYIjI4Keb}#
+ #{id _85hotwsCta0JfYIjI4Kec}#
+ #{val _85hotwsCta0JfYIjI4Ked}#
+ #{e1 _85hotwsCta0JfYIjI4Kee}#
+ #{e2 _85hotwsCta0JfYIjI4Kef}#)
+ (#{expand-let _85hotwsCta0JfYIjI4Kcq}#
+ #{e _85hotwsCta0JfYIjI4Kcr}#
+ #{r _85hotwsCta0JfYIjI4Kcs}#
+ #{w _85hotwsCta0JfYIjI4Kct}#
+ #{s _85hotwsCta0JfYIjI4Kcu}#
+ #{mod _85hotwsCta0JfYIjI4Kcv}#
+ #{build-named-let _85hotwsCta0JfYIjI4J3W}#
+ (cons #{f _85hotwsCta0JfYIjI4Keb}#
+ #{id _85hotwsCta0JfYIjI4Kec}#)
+ #{val _85hotwsCta0JfYIjI4Ked}#
+ (cons #{e1 _85hotwsCta0JfYIjI4Kee}#
+ #{e2 _85hotwsCta0JfYIjI4Kef}#)))
+ #{tmp _85hotwsCta0JfYIjI4Kdp}#)
(syntax-violation
'let
"bad let"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 5114}#) #{s 5117}# #f)
- (set-source-properties! #{e 5114}# #{s 5117}#))
- #{e 5114}#)
- #{w 5116}#
- #{mod 5118}#)))))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4Kcr}#)
+ #{s _85hotwsCta0JfYIjI4Kcu}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4Kcr}#
+ #{s _85hotwsCta0JfYIjI4Kcu}#))
+ #{e _85hotwsCta0JfYIjI4Kcr}#)
+ #{w _85hotwsCta0JfYIjI4Kct}#
+ #{mod _85hotwsCta0JfYIjI4Kcv}#)))))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'letrec
- (lambda (#{e 5766}#
- #{r 5767}#
- #{w 5768}#
- #{s 5769}#
- #{mod 5770}#)
- (let ((#{tmp 5772}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Km3}#
+ #{r _85hotwsCta0JfYIjI4Km4}#
+ #{w _85hotwsCta0JfYIjI4Km5}#
+ #{s _85hotwsCta0JfYIjI4Km6}#
+ #{mod _85hotwsCta0JfYIjI4Km7}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Km9}#
($sc-dispatch
- #{e 5766}#
+ #{e _85hotwsCta0JfYIjI4Km3}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 5772}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Km9}#
(@apply
- (lambda (#{id 5776}#
- #{val 5777}#
- #{e1 5778}#
- #{e2 5779}#)
- (and-map #{id? 2743}# #{id 5776}#))
- #{tmp 5772}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4KnB}#
+ #{val _85hotwsCta0JfYIjI4KnC}#
+ #{e1 _85hotwsCta0JfYIjI4KnD}#
+ #{e2 _85hotwsCta0JfYIjI4KnE}#)
+ (and-map
+ #{id? _85hotwsCta0JfYIjI4J3n}#
+ #{id _85hotwsCta0JfYIjI4KnB}#))
+ #{tmp _85hotwsCta0JfYIjI4Km9}#)
#f)
(@apply
- (lambda (#{id 5795}#
- #{val 5796}#
- #{e1 5797}#
- #{e2 5798}#)
- (if (not (#{valid-bound-ids? 2768}# #{id 5795}#))
+ (lambda (#{id _85hotwsCta0JfYIjI4KnU}#
+ #{val _85hotwsCta0JfYIjI4KnV}#
+ #{e1 _85hotwsCta0JfYIjI4KnW}#
+ #{e2 _85hotwsCta0JfYIjI4KnX}#)
+ (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ #{id _85hotwsCta0JfYIjI4KnU}#))
(syntax-violation
'letrec
"duplicate bound variable"
- #{e 5766}#)
- (let ((#{labels 5888}#
- (#{gen-labels 2746}# #{id 5795}#))
- (#{new-vars 5889}#
- (map #{gen-var 2792}# #{id 5795}#)))
- (let ((#{w 5890}#
- (#{make-binding-wrap 2757}#
- #{id 5795}#
- #{labels 5888}#
- #{w 5768}#))
- (#{r 5891}#
- (#{extend-var-env 2738}#
- #{labels 5888}#
- #{new-vars 5889}#
- #{r 5767}#)))
- (#{build-letrec 2727}#
- #{s 5769}#
+ #{e _85hotwsCta0JfYIjI4Km3}#)
+ (let ((#{labels _85hotwsCta0JfYIjI4Kox}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{id _85hotwsCta0JfYIjI4KnU}#))
+ (#{new-vars _85hotwsCta0JfYIjI4Koy}#
+ (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ #{id _85hotwsCta0JfYIjI4KnU}#)))
+ (let ((#{w _85hotwsCta0JfYIjI4Koz}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{id _85hotwsCta0JfYIjI4KnU}#
+ #{labels _85hotwsCta0JfYIjI4Kox}#
+ #{w _85hotwsCta0JfYIjI4Km5}#))
+ (#{r _85hotwsCta0JfYIjI4Ko0}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{labels _85hotwsCta0JfYIjI4Kox}#
+ #{new-vars _85hotwsCta0JfYIjI4Koy}#
+ #{r _85hotwsCta0JfYIjI4Km4}#)))
+ (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
+ #{s _85hotwsCta0JfYIjI4Km6}#
#f
- (map syntax->datum #{id 5795}#)
- #{new-vars 5889}#
- (map (lambda (#{x 5972}#)
- (#{expand 2778}#
- #{x 5972}#
- #{r 5891}#
- #{w 5890}#
- #{mod 5770}#))
- #{val 5796}#)
- (#{expand-body 2782}#
- (cons #{e1 5797}# #{e2 5798}#)
- (#{wrap 2771}#
+ (map syntax->datum #{id _85hotwsCta0JfYIjI4KnU}#)
+ #{new-vars _85hotwsCta0JfYIjI4Koy}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4KqF}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4KqF}#
+ #{r _85hotwsCta0JfYIjI4Ko0}#
+ #{w _85hotwsCta0JfYIjI4Koz}#
+ #{mod _85hotwsCta0JfYIjI4Km7}#))
+ #{val _85hotwsCta0JfYIjI4KnV}#)
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ (cons #{e1 _85hotwsCta0JfYIjI4KnW}#
+ #{e2 _85hotwsCta0JfYIjI4KnX}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 5766}#) #{s 5769}# #f)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#)
+ #{s _85hotwsCta0JfYIjI4Km6}#
+ #f)
(set-source-properties!
- #{e 5766}#
- #{s 5769}#))
- #{e 5766}#)
- #{w 5890}#
- #{mod 5770}#)
- #{r 5891}#
- #{w 5890}#
- #{mod 5770}#))))))
- #{tmp 5772}#)
+ #{e _85hotwsCta0JfYIjI4Km3}#
+ #{s _85hotwsCta0JfYIjI4Km6}#))
+ #{e _85hotwsCta0JfYIjI4Km3}#)
+ #{w _85hotwsCta0JfYIjI4Koz}#
+ #{mod _85hotwsCta0JfYIjI4Km7}#)
+ #{r _85hotwsCta0JfYIjI4Ko0}#
+ #{w _85hotwsCta0JfYIjI4Koz}#
+ #{mod _85hotwsCta0JfYIjI4Km7}#))))))
+ #{tmp _85hotwsCta0JfYIjI4Km9}#)
(syntax-violation
'letrec
"bad letrec"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 5766}#) #{s 5769}# #f)
- (set-source-properties! #{e 5766}# #{s 5769}#))
- #{e 5766}#)
- #{w 5768}#
- #{mod 5770}#))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#)
+ #{s _85hotwsCta0JfYIjI4Km6}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4Km3}#
+ #{s _85hotwsCta0JfYIjI4Km6}#))
+ #{e _85hotwsCta0JfYIjI4Km3}#)
+ #{w _85hotwsCta0JfYIjI4Km5}#
+ #{mod _85hotwsCta0JfYIjI4Km7}#))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'letrec*
- (lambda (#{e 6359}#
- #{r 6360}#
- #{w 6361}#
- #{s 6362}#
- #{mod 6363}#)
- (let ((#{tmp 6365}#
+ (lambda (#{e _85hotwsCta0JfYIjI4KwI}#
+ #{r _85hotwsCta0JfYIjI4KwJ}#
+ #{w _85hotwsCta0JfYIjI4KwK}#
+ #{s _85hotwsCta0JfYIjI4KwL}#
+ #{mod _85hotwsCta0JfYIjI4KwM}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4KwO}#
($sc-dispatch
- #{e 6359}#
+ #{e _85hotwsCta0JfYIjI4KwI}#
'(_ #(each (any any)) any . each-any))))
- (if (if #{tmp 6365}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4KwO}#
(@apply
- (lambda (#{id 6369}#
- #{val 6370}#
- #{e1 6371}#
- #{e2 6372}#)
- (and-map #{id? 2743}# #{id 6369}#))
- #{tmp 6365}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4KwS}#
+ #{val _85hotwsCta0JfYIjI4KwT}#
+ #{e1 _85hotwsCta0JfYIjI4KwU}#
+ #{e2 _85hotwsCta0JfYIjI4KwV}#)
+ (and-map
+ #{id? _85hotwsCta0JfYIjI4J3n}#
+ #{id _85hotwsCta0JfYIjI4KwS}#))
+ #{tmp _85hotwsCta0JfYIjI4KwO}#)
#f)
(@apply
- (lambda (#{id 6388}#
- #{val 6389}#
- #{e1 6390}#
- #{e2 6391}#)
- (if (not (#{valid-bound-ids? 2768}# #{id 6388}#))
+ (lambda (#{id _85hotwsCta0JfYIjI4Kwl}#
+ #{val _85hotwsCta0JfYIjI4Kwm}#
+ #{e1 _85hotwsCta0JfYIjI4Kwn}#
+ #{e2 _85hotwsCta0JfYIjI4Kwo}#)
+ (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}#
+ #{id _85hotwsCta0JfYIjI4Kwl}#))
(syntax-violation
'letrec*
"duplicate bound variable"
- #{e 6359}#)
- (let ((#{labels 6481}#
- (#{gen-labels 2746}# #{id 6388}#))
- (#{new-vars 6482}#
- (map #{gen-var 2792}# #{id 6388}#)))
- (let ((#{w 6483}#
- (#{make-binding-wrap 2757}#
- #{id 6388}#
- #{labels 6481}#
- #{w 6361}#))
- (#{r 6484}#
- (#{extend-var-env 2738}#
- #{labels 6481}#
- #{new-vars 6482}#
- #{r 6360}#)))
- (#{build-letrec 2727}#
- #{s 6362}#
+ #{e _85hotwsCta0JfYIjI4KwI}#)
+ (let ((#{labels _85hotwsCta0JfYIjI4KyC}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{id _85hotwsCta0JfYIjI4Kwl}#))
+ (#{new-vars _85hotwsCta0JfYIjI4KyD}#
+ (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ #{id _85hotwsCta0JfYIjI4Kwl}#)))
+ (let ((#{w _85hotwsCta0JfYIjI4KyE}#
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{id _85hotwsCta0JfYIjI4Kwl}#
+ #{labels _85hotwsCta0JfYIjI4KyC}#
+ #{w _85hotwsCta0JfYIjI4KwK}#))
+ (#{r _85hotwsCta0JfYIjI4KyF}#
+ (#{extend-var-env _85hotwsCta0JfYIjI4J3i}#
+ #{labels _85hotwsCta0JfYIjI4KyC}#
+ #{new-vars _85hotwsCta0JfYIjI4KyD}#
+ #{r _85hotwsCta0JfYIjI4KwJ}#)))
+ (#{build-letrec _85hotwsCta0JfYIjI4J3X}#
+ #{s _85hotwsCta0JfYIjI4KwL}#
#t
- (map syntax->datum #{id 6388}#)
- #{new-vars 6482}#
- (map (lambda (#{x 6565}#)
- (#{expand 2778}#
- #{x 6565}#
- #{r 6484}#
- #{w 6483}#
- #{mod 6363}#))
- #{val 6389}#)
- (#{expand-body 2782}#
- (cons #{e1 6390}# #{e2 6391}#)
- (#{wrap 2771}#
+ (map syntax->datum #{id _85hotwsCta0JfYIjI4Kwl}#)
+ #{new-vars _85hotwsCta0JfYIjI4KyD}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4KzW}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4KzW}#
+ #{r _85hotwsCta0JfYIjI4KyF}#
+ #{w _85hotwsCta0JfYIjI4KyE}#
+ #{mod _85hotwsCta0JfYIjI4KwM}#))
+ #{val _85hotwsCta0JfYIjI4Kwm}#)
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ (cons #{e1 _85hotwsCta0JfYIjI4Kwn}#
+ #{e2 _85hotwsCta0JfYIjI4Kwo}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 6359}#) #{s 6362}# #f)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#)
+ #{s _85hotwsCta0JfYIjI4KwL}#
+ #f)
(set-source-properties!
- #{e 6359}#
- #{s 6362}#))
- #{e 6359}#)
- #{w 6483}#
- #{mod 6363}#)
- #{r 6484}#
- #{w 6483}#
- #{mod 6363}#))))))
- #{tmp 6365}#)
+ #{e _85hotwsCta0JfYIjI4KwI}#
+ #{s _85hotwsCta0JfYIjI4KwL}#))
+ #{e _85hotwsCta0JfYIjI4KwI}#)
+ #{w _85hotwsCta0JfYIjI4KyE}#
+ #{mod _85hotwsCta0JfYIjI4KwM}#)
+ #{r _85hotwsCta0JfYIjI4KyF}#
+ #{w _85hotwsCta0JfYIjI4KyE}#
+ #{mod _85hotwsCta0JfYIjI4KwM}#))))))
+ #{tmp _85hotwsCta0JfYIjI4KwO}#)
(syntax-violation
'letrec*
"bad letrec*"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 6359}#) #{s 6362}# #f)
- (set-source-properties! #{e 6359}# #{s 6362}#))
- #{e 6359}#)
- #{w 6361}#
- #{mod 6363}#))))))
- (#{global-extend 2741}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#)
+ #{s _85hotwsCta0JfYIjI4KwL}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4KwI}#
+ #{s _85hotwsCta0JfYIjI4KwL}#))
+ #{e _85hotwsCta0JfYIjI4KwI}#)
+ #{w _85hotwsCta0JfYIjI4KwK}#
+ #{mod _85hotwsCta0JfYIjI4KwM}#))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'set!
- (lambda (#{e 6991}#
- #{r 6992}#
- #{w 6993}#
- #{s 6994}#
- #{mod 6995}#)
- (let ((#{tmp 6997}#
- ($sc-dispatch #{e 6991}# '(_ any any))))
- (if (if #{tmp 6997}#
+ (lambda (#{e _85hotwsCta0JfYIjI4K6A}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4K6G}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4K6A}#
+ '(_ any any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4K6G}#
(@apply
- (lambda (#{id 7001}# #{val 7002}#)
- (if (symbol? #{id 7001}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4K6K}#
+ #{val _85hotwsCta0JfYIjI4K6L}#)
+ (if (symbol? #{id _85hotwsCta0JfYIjI4K6K}#)
#t
- (if (if (vector? #{id 7001}#)
- (if (= (vector-length #{id 7001}#) 4)
- (eq? (vector-ref #{id 7001}# 0) 'syntax-object)
+ (if (if (vector? #{id _85hotwsCta0JfYIjI4K6K}#)
+ (if (= (vector-length
+ #{id _85hotwsCta0JfYIjI4K6K}#)
+ 4)
+ (eq? (vector-ref
+ #{id _85hotwsCta0JfYIjI4K6K}#
+ 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 7001}# 1))
+ (symbol?
+ (vector-ref #{id _85hotwsCta0JfYIjI4K6K}# 1))
#f)))
- #{tmp 6997}#)
+ #{tmp _85hotwsCta0JfYIjI4K6G}#)
#f)
(@apply
- (lambda (#{id 7029}# #{val 7030}#)
- (let ((#{n 7031}#
- (#{id-var-name 2762}# #{id 7029}# #{w 6993}#))
- (#{id-mod 7032}#
- (if (if (vector? #{id 7029}#)
- (if (= (vector-length #{id 7029}#) 4)
- (eq? (vector-ref #{id 7029}# 0)
+ (lambda (#{id _85hotwsCta0JfYIjI4K6m}#
+ #{val _85hotwsCta0JfYIjI4K6n}#)
+ (let ((#{n _85hotwsCta0JfYIjI4K6o}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{id _85hotwsCta0JfYIjI4K6m}#
+ #{w _85hotwsCta0JfYIjI4K6C}#))
+ (#{id-mod _85hotwsCta0JfYIjI4K6p}#
+ (if (if (vector? #{id _85hotwsCta0JfYIjI4K6m}#)
+ (if (= (vector-length
+ #{id _85hotwsCta0JfYIjI4K6m}#)
+ 4)
+ (eq? (vector-ref
+ #{id _85hotwsCta0JfYIjI4K6m}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 7029}# 3)
- #{mod 6995}#)))
- (let ((#{b 7033}#
- (let ((#{t 7074}# (assq #{n 7031}# #{r 6992}#)))
- (if #{t 7074}#
- (cdr #{t 7074}#)
- (if (symbol? #{n 7031}#)
- (let ((#{t 7079}#
- (#{get-global-definition-hook 2706}#
- #{n 7031}#
- #{id-mod 7032}#)))
- (if #{t 7079}# #{t 7079}# '(global)))
+ (vector-ref #{id _85hotwsCta0JfYIjI4K6m}# 3)
+ #{mod _85hotwsCta0JfYIjI4K6E}#)))
+ (let ((#{b _85hotwsCta0JfYIjI4K6q}#
+ (let ((#{t _85hotwsCta0JfYIjI4K7T}#
+ (assq #{n _85hotwsCta0JfYIjI4K6o}#
+ #{r _85hotwsCta0JfYIjI4K6B}#)))
+ (if #{t _85hotwsCta0JfYIjI4K7T}#
+ (cdr #{t _85hotwsCta0JfYIjI4K7T}#)
+ (if (symbol? #{n _85hotwsCta0JfYIjI4K6o}#)
+ (let ((#{t _85hotwsCta0JfYIjI4K7Y}#
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ #{n _85hotwsCta0JfYIjI4K6o}#
+ #{id-mod _85hotwsCta0JfYIjI4K6p}#)))
+ (if #{t _85hotwsCta0JfYIjI4K7Y}#
+ #{t _85hotwsCta0JfYIjI4K7Y}#
+ '(global)))
'(displaced-lexical))))))
- (let ((#{atom-key 7034}# (car #{b 7033}#)))
- (if (eqv? #{atom-key 7034}# 'lexical)
- (#{build-lexical-assignment 2714}#
- #{s 6994}#
- (syntax->datum #{id 7029}#)
- (cdr #{b 7033}#)
- (#{expand 2778}#
- #{val 7030}#
- #{r 6992}#
- #{w 6993}#
- #{mod 6995}#))
- (if (eqv? #{atom-key 7034}# 'global)
- (#{build-global-assignment 2717}#
- #{s 6994}#
- #{n 7031}#
- (#{expand 2778}#
- #{val 7030}#
- #{r 6992}#
- #{w 6993}#
- #{mod 6995}#)
- #{id-mod 7032}#)
- (if (eqv? #{atom-key 7034}# 'macro)
- (let ((#{p 7393}# (cdr #{b 7033}#)))
+ (let ((#{atom-key _85hotwsCta0JfYIjI4K6r}#
+ (car #{b _85hotwsCta0JfYIjI4K6q}#)))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ 'lexical)
+ (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}#
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ (syntax->datum #{id _85hotwsCta0JfYIjI4K6m}#)
+ (cdr #{b _85hotwsCta0JfYIjI4K6q}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{val _85hotwsCta0JfYIjI4K6n}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ 'global)
+ (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}#
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ #{n _85hotwsCta0JfYIjI4K6o}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{val _85hotwsCta0JfYIjI4K6n}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#)
+ #{id-mod _85hotwsCta0JfYIjI4K6p}#)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ 'macro)
+ (let ((#{p _85hotwsCta0JfYIjI4LAS}#
+ (cdr #{b _85hotwsCta0JfYIjI4K6q}#)))
(if (procedure-property
- #{p 7393}#
+ #{p _85hotwsCta0JfYIjI4LAS}#
'variable-transformer)
- (#{expand 2778}#
- (#{expand-macro 2781}#
- #{p 7393}#
- #{e 6991}#
- #{r 6992}#
- #{w 6993}#
- #{s 6994}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ (#{expand-macro _85hotwsCta0JfYIjI4J4O}#
+ #{p _85hotwsCta0JfYIjI4LAS}#
+ #{e _85hotwsCta0JfYIjI4K6A}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{s _85hotwsCta0JfYIjI4K6D}#
#f
- #{mod 6995}#)
- #{r 6992}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#)
+ #{r _85hotwsCta0JfYIjI4K6B}#
'(())
- #{mod 6995}#)
+ #{mod _85hotwsCta0JfYIjI4K6E}#)
(syntax-violation
'set!
"not a variable transformer"
- (#{wrap 2771}#
- #{e 6991}#
- #{w 6993}#
- #{mod 6995}#)
- (#{wrap 2771}#
- #{id 7029}#
- #{w 6993}#
- #{id-mod 7032}#))))
- (if (eqv? #{atom-key 7034}# 'displaced-lexical)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{e _85hotwsCta0JfYIjI4K6A}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{id _85hotwsCta0JfYIjI4K6m}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{id-mod _85hotwsCta0JfYIjI4K6p}#))))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}#
+ 'displaced-lexical)
(syntax-violation
'set!
"identifier out of context"
- (#{wrap 2771}#
- #{id 7029}#
- #{w 6993}#
- #{mod 6995}#))
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{id _85hotwsCta0JfYIjI4K6m}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#))
(syntax-violation
'set!
"bad set!"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 6991}#) #{s 6994}# #f)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#)
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ #f)
(set-source-properties!
- #{e 6991}#
- #{s 6994}#))
- #{e 6991}#)
- #{w 6993}#
- #{mod 6995}#))))))))))
- #{tmp 6997}#)
- (let ((#{tmp 7488}#
+ #{e _85hotwsCta0JfYIjI4K6A}#
+ #{s _85hotwsCta0JfYIjI4K6D}#))
+ #{e _85hotwsCta0JfYIjI4K6A}#)
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#))))))))))
+ #{tmp _85hotwsCta0JfYIjI4K6G}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LBx}#
($sc-dispatch
- #{e 6991}#
+ #{e _85hotwsCta0JfYIjI4K6A}#
'(_ (any . each-any) any))))
- (if #{tmp 7488}#
+ (if #{tmp _85hotwsCta0JfYIjI4LBx}#
(@apply
- (lambda (#{head 7492}# #{tail 7493}# #{val 7494}#)
+ (lambda (#{head _85hotwsCta0JfYIjI4LB1}#
+ #{tail _85hotwsCta0JfYIjI4LB2}#
+ #{val _85hotwsCta0JfYIjI4LB3}#)
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{head 7492}#
- #{r 6992}#
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{head _85hotwsCta0JfYIjI4LB1}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
'(())
#f
#f
- #{mod 6995}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#
#t))
- (lambda (#{type 7497}#
- #{value 7498}#
- #{ee 7499}#
- #{ww 7500}#
- #{ss 7501}#
- #{modmod 7502}#)
- (if (eqv? #{type 7497}# 'module-ref)
- (let ((#{val 7506}#
- (#{expand 2778}#
- #{val 7494}#
- #{r 6992}#
- #{w 6993}#
- #{mod 6995}#)))
+ (lambda (#{type _85hotwsCta0JfYIjI4LB6}#
+ #{value _85hotwsCta0JfYIjI4LB7}#
+ #{ee _85hotwsCta0JfYIjI4LB8}#
+ #{ww _85hotwsCta0JfYIjI4LB9}#
+ #{ss _85hotwsCta0JfYIjI4LB$}#
+ #{modmod _85hotwsCta0JfYIjI4LB@}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4LB6}#
+ 'module-ref)
+ (let ((#{val _85hotwsCta0JfYIjI4LCD}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{val _85hotwsCta0JfYIjI4LB3}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#)))
(call-with-values
(lambda ()
- (#{value 7498}#
- (cons #{head 7492}# #{tail 7493}#)
- #{r 6992}#
- #{w 6993}#))
- (lambda (#{e 7507}#
- #{r 7508}#
- #{w 7509}#
- #{s* 7510}#
- #{mod 7511}#)
- (let ((#{tmp 7513}# (list #{e 7507}#)))
+ (#{value _85hotwsCta0JfYIjI4LB7}#
+ (cons #{head _85hotwsCta0JfYIjI4LB1}#
+ #{tail _85hotwsCta0JfYIjI4LB2}#)
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#))
+ (lambda (#{e _85hotwsCta0JfYIjI4LCE}#
+ #{r _85hotwsCta0JfYIjI4LCF}#
+ #{w _85hotwsCta0JfYIjI4LCG}#
+ #{s* _85hotwsCta0JfYIjI4LCH}#
+ #{mod _85hotwsCta0JfYIjI4LCI}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LCK}#
+ (list #{e _85hotwsCta0JfYIjI4LCE}#)))
(if (@apply
- (lambda (#{e 7515}#)
- (if (symbol? #{e 7515}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4LCM}#)
+ (if (symbol?
+ #{e _85hotwsCta0JfYIjI4LCM}#)
#t
- (if (if (vector? #{e 7515}#)
+ (if (if (vector?
+ #{e _85hotwsCta0JfYIjI4LCM}#)
(if (= (vector-length
- #{e 7515}#)
+ #{e _85hotwsCta0JfYIjI4LCM}#)
4)
(eq? (vector-ref
- #{e 7515}#
+ #{e _85hotwsCta0JfYIjI4LCM}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{e 7515}# 1))
+ (vector-ref
+ #{e _85hotwsCta0JfYIjI4LCM}#
+ 1))
#f)))
- #{tmp 7513}#)
+ #{tmp _85hotwsCta0JfYIjI4LCK}#)
(@apply
- (lambda (#{e 7545}#)
- (#{build-global-assignment 2717}#
- #{s 6994}#
- (syntax->datum #{e 7545}#)
- #{val 7506}#
- #{mod 7511}#))
- #{tmp 7513}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4LCq}#)
+ (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}#
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ (syntax->datum
+ #{e _85hotwsCta0JfYIjI4LCq}#)
+ #{val _85hotwsCta0JfYIjI4LCD}#
+ #{mod _85hotwsCta0JfYIjI4LCI}#))
+ #{tmp _85hotwsCta0JfYIjI4LCK}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 7507}#))))))
- (#{build-application 2710}#
- #{s 6994}#
- (let ((#{e 7770}#
+ #{e _85hotwsCta0JfYIjI4LCE}#))))))
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ (let ((#{e _85hotwsCta0JfYIjI4LGL}#
(list '#(syntax-object
setter
((top)
@@ -9541,16 +10505,16 @@
(top)
(top)
(top))
- #("13b"
- "13c"
- "13d"
- "13e"
- "13f"
- "13g"))
+ #("2sa"
+ "2sb"
+ "2sc"
+ "2sd"
+ "2se"
+ "2sf"))
#(ribcage
#(head tail val)
#((top) (top) (top))
- #("138" "139" "13a"))
+ #("2s7" "2s8" "2s9"))
#(ribcage () () ())
#(ribcage
#(e r w s mod)
@@ -9559,11 +10523,11 @@
(top)
(top)
(top))
- #("12u"
- "12v"
- "12w"
- "12x"
- "12y"))
+ #("2rt"
+ "2ru"
+ "2rv"
+ "2rw"
+ "2rx"))
#(ribcage
(lambda-var-list
gen-var
@@ -9596,6 +10560,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -9842,250 +10807,270 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
- #{head 7492}#)))
+ #{head _85hotwsCta0JfYIjI4LB1}#)))
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 7770}#
- #{r 6992}#
- #{w 6993}#
- (#{source-annotation 2736}# #{e 7770}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4LGL}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4LGL}#)
#f
- #{mod 6995}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#
#f))
- (lambda (#{type 7777}#
- #{value 7778}#
- #{e 7779}#
- #{w 7780}#
- #{s 7781}#
- #{mod 7782}#)
- (#{expand-expr 2779}#
- #{type 7777}#
- #{value 7778}#
- #{e 7779}#
- #{r 6992}#
- #{w 7780}#
- #{s 7781}#
- #{mod 7782}#))))
- (map (lambda (#{e 7786}#)
+ (lambda (#{type _85hotwsCta0JfYIjI4LGS}#
+ #{value _85hotwsCta0JfYIjI4LGT}#
+ #{e _85hotwsCta0JfYIjI4LGU}#
+ #{w _85hotwsCta0JfYIjI4LGV}#
+ #{s _85hotwsCta0JfYIjI4LGW}#
+ #{mod _85hotwsCta0JfYIjI4LGX}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4LGS}#
+ #{value _85hotwsCta0JfYIjI4LGT}#
+ #{e _85hotwsCta0JfYIjI4LGU}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4LGV}#
+ #{s _85hotwsCta0JfYIjI4LGW}#
+ #{mod _85hotwsCta0JfYIjI4LGX}#))))
+ (map (lambda (#{e _85hotwsCta0JfYIjI4LGb}#)
(call-with-values
(lambda ()
- (#{syntax-type 2777}#
- #{e 7786}#
- #{r 6992}#
- #{w 6993}#
- (#{source-annotation 2736}#
- #{e 7786}#)
+ (#{syntax-type _85hotwsCta0JfYIjI4J4K}#
+ #{e _85hotwsCta0JfYIjI4LGb}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{e _85hotwsCta0JfYIjI4LGb}#)
#f
- #{mod 6995}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#
#f))
- (lambda (#{type 7801}#
- #{value 7802}#
- #{e 7803}#
- #{w 7804}#
- #{s 7805}#
- #{mod 7806}#)
- (#{expand-expr 2779}#
- #{type 7801}#
- #{value 7802}#
- #{e 7803}#
- #{r 6992}#
- #{w 7804}#
- #{s 7805}#
- #{mod 7806}#))))
+ (lambda (#{type _85hotwsCta0JfYIjI4LGq}#
+ #{value _85hotwsCta0JfYIjI4LGr}#
+ #{e _85hotwsCta0JfYIjI4LGs}#
+ #{w _85hotwsCta0JfYIjI4LGt}#
+ #{s _85hotwsCta0JfYIjI4LGu}#
+ #{mod _85hotwsCta0JfYIjI4LGv}#)
+ (#{expand-expr _85hotwsCta0JfYIjI4J4M}#
+ #{type _85hotwsCta0JfYIjI4LGq}#
+ #{value _85hotwsCta0JfYIjI4LGr}#
+ #{e _85hotwsCta0JfYIjI4LGs}#
+ #{r _85hotwsCta0JfYIjI4K6B}#
+ #{w _85hotwsCta0JfYIjI4LGt}#
+ #{s _85hotwsCta0JfYIjI4LGu}#
+ #{mod _85hotwsCta0JfYIjI4LGv}#))))
(append
- #{tail 7493}#
- (list #{val 7494}#))))))))
- #{tmp 7488}#)
+ #{tail _85hotwsCta0JfYIjI4LB2}#
+ (list #{val _85hotwsCta0JfYIjI4LB3}#))))))))
+ #{tmp _85hotwsCta0JfYIjI4LBx}#)
(syntax-violation
'set!
"bad set!"
- (#{wrap 2771}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 6991}#) #{s 6994}# #f)
- (set-source-properties! #{e 6991}# #{s 6994}#))
- #{e 6991}#)
- #{w 6993}#
- #{mod 6995}#))))))))
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#)
+ #{s _85hotwsCta0JfYIjI4K6D}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4K6A}#
+ #{s _85hotwsCta0JfYIjI4K6D}#))
+ #{e _85hotwsCta0JfYIjI4K6A}#)
+ #{w _85hotwsCta0JfYIjI4K6C}#
+ #{mod _85hotwsCta0JfYIjI4K6E}#))))))))
(module-define!
(current-module)
'@
(make-syntax-transformer
'@
'module-ref
- (lambda (#{e 7849}# #{r 7850}# #{w 7851}#)
- (let ((#{tmp 7853}#
- ($sc-dispatch #{e 7849}# '(_ each-any any))))
- (if (if #{tmp 7853}#
+ (lambda (#{e _85hotwsCta0JfYIjI4LHa}#
+ #{r _85hotwsCta0JfYIjI4LHb}#
+ #{w _85hotwsCta0JfYIjI4LHc}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LHe}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4LHa}#
+ '(_ each-any any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4LHe}#
(@apply
- (lambda (#{mod 7856}# #{id 7857}#)
- (if (and-map #{id? 2743}# #{mod 7856}#)
- (if (symbol? #{id 7857}#)
+ (lambda (#{mod _85hotwsCta0JfYIjI4LHh}#
+ #{id _85hotwsCta0JfYIjI4LHi}#)
+ (if (and-map
+ #{id? _85hotwsCta0JfYIjI4J3n}#
+ #{mod _85hotwsCta0JfYIjI4LHh}#)
+ (if (symbol? #{id _85hotwsCta0JfYIjI4LHi}#)
#t
- (if (if (vector? #{id 7857}#)
- (if (= (vector-length #{id 7857}#) 4)
- (eq? (vector-ref #{id 7857}# 0)
+ (if (if (vector? #{id _85hotwsCta0JfYIjI4LHi}#)
+ (if (= (vector-length
+ #{id _85hotwsCta0JfYIjI4LHi}#)
+ 4)
+ (eq? (vector-ref
+ #{id _85hotwsCta0JfYIjI4LHi}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 7857}# 1))
+ (symbol?
+ (vector-ref #{id _85hotwsCta0JfYIjI4LHi}# 1))
#f))
#f))
- #{tmp 7853}#)
+ #{tmp _85hotwsCta0JfYIjI4LHe}#)
#f)
(@apply
- (lambda (#{mod 7897}# #{id 7898}#)
+ (lambda (#{mod _85hotwsCta0JfYIjI4LIK}#
+ #{id _85hotwsCta0JfYIjI4LIL}#)
(values
- (syntax->datum #{id 7898}#)
- #{r 7850}#
- #{w 7851}#
+ (syntax->datum #{id _85hotwsCta0JfYIjI4LIL}#)
+ #{r _85hotwsCta0JfYIjI4LHb}#
+ #{w _85hotwsCta0JfYIjI4LHc}#
#f
(syntax->datum
(cons '#(syntax-object
@@ -10094,12 +11079,12 @@
#(ribcage
#(mod id)
#((top) (top))
- #("13w" "13x"))
+ #("2sv" "2sw"))
#(ribcage () () ())
#(ribcage
#(e r w)
#((top) (top) (top))
- #("13r" "13s" "13t"))
+ #("2sq" "2sr" "2ss"))
#(ribcage
(lambda-var-list
gen-var
@@ -10132,6 +11117,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -10378,217 +11364,237 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
- #{mod 7897}#))))
- #{tmp 7853}#)
+ #{mod _85hotwsCta0JfYIjI4LIK}#))))
+ #{tmp _85hotwsCta0JfYIjI4LHe}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 7849}#))))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4LHa}#))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'module-ref
'@@
- (lambda (#{e 7990}# #{r 7991}# #{w 7992}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4LJn}#
+ #{r _85hotwsCta0JfYIjI4LJo}#
+ #{w _85hotwsCta0JfYIjI4LJp}#)
(letrec*
- ((#{remodulate 7993}#
- (lambda (#{x 8028}# #{mod 8029}#)
- (if (pair? #{x 8028}#)
- (cons (#{remodulate 7993}#
- (car #{x 8028}#)
- #{mod 8029}#)
- (#{remodulate 7993}#
- (cdr #{x 8028}#)
- #{mod 8029}#))
- (if (if (vector? #{x 8028}#)
- (if (= (vector-length #{x 8028}#) 4)
- (eq? (vector-ref #{x 8028}# 0) 'syntax-object)
+ ((#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ (lambda (#{x _85hotwsCta0JfYIjI4LKN}#
+ #{mod _85hotwsCta0JfYIjI4LKO}#)
+ (if (pair? #{x _85hotwsCta0JfYIjI4LKN}#)
+ (cons (#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ (car #{x _85hotwsCta0JfYIjI4LKN}#)
+ #{mod _85hotwsCta0JfYIjI4LKO}#)
+ (#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ (cdr #{x _85hotwsCta0JfYIjI4LKN}#)
+ #{mod _85hotwsCta0JfYIjI4LKO}#))
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4LKN}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 0)
+ 'syntax-object)
#f)
#f)
- (let ((#{expression 8043}#
- (#{remodulate 7993}#
- (vector-ref #{x 8028}# 1)
- #{mod 8029}#))
- (#{wrap 8044}# (vector-ref #{x 8028}# 2)))
+ (let ((#{expression _85hotwsCta0JfYIjI4LKc}#
+ (#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 1)
+ #{mod _85hotwsCta0JfYIjI4LKO}#))
+ (#{wrap _85hotwsCta0JfYIjI4LKd}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 2)))
(vector
'syntax-object
- #{expression 8043}#
- #{wrap 8044}#
- #{mod 8029}#))
- (if (vector? #{x 8028}#)
- (let ((#{n 8052}# (vector-length #{x 8028}#)))
- (let ((#{v 8053}# (make-vector #{n 8052}#)))
+ #{expression _85hotwsCta0JfYIjI4LKc}#
+ #{wrap _85hotwsCta0JfYIjI4LKd}#
+ #{mod _85hotwsCta0JfYIjI4LKO}#))
+ (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#)
+ (let ((#{n _85hotwsCta0JfYIjI4LKl}#
+ (vector-length #{x _85hotwsCta0JfYIjI4LKN}#)))
+ (let ((#{v _85hotwsCta0JfYIjI4LKm}#
+ (make-vector #{n _85hotwsCta0JfYIjI4LKl}#)))
(letrec*
- ((#{loop 8054}#
- (lambda (#{i 8101}#)
- (if (= #{i 8101}# #{n 8052}#)
- #{v 8053}#
+ ((#{loop _85hotwsCta0JfYIjI4LKn}#
+ (lambda (#{i _85hotwsCta0JfYIjI4LLW}#)
+ (if (= #{i _85hotwsCta0JfYIjI4LLW}#
+ #{n _85hotwsCta0JfYIjI4LKl}#)
+ #{v _85hotwsCta0JfYIjI4LKm}#
(begin
(vector-set!
- #{v 8053}#
- #{i 8101}#
- (#{remodulate 7993}#
- (vector-ref #{x 8028}# #{i 8101}#)
- #{mod 8029}#))
- (#{loop 8054}# (#{1+}# #{i 8101}#)))))))
- (#{loop 8054}# 0))))
- #{x 8028}#))))))
- (let ((#{tmp 7995}#
- ($sc-dispatch #{e 7990}# '(_ each-any any))))
- (if (if #{tmp 7995}#
+ #{v _85hotwsCta0JfYIjI4LKm}#
+ #{i _85hotwsCta0JfYIjI4LLW}#
+ (#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4LKN}#
+ #{i _85hotwsCta0JfYIjI4LLW}#)
+ #{mod _85hotwsCta0JfYIjI4LKO}#))
+ (#{loop _85hotwsCta0JfYIjI4LKn}#
+ (#{1+}# #{i _85hotwsCta0JfYIjI4LLW}#)))))))
+ (#{loop _85hotwsCta0JfYIjI4LKn}# 0))))
+ #{x _85hotwsCta0JfYIjI4LKN}#))))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4LJs}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4LJn}#
+ '(_ each-any any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4LJs}#
(@apply
- (lambda (#{mod 7999}# #{exp 8000}#)
- (and-map #{id? 2743}# #{mod 7999}#))
- #{tmp 7995}#)
+ (lambda (#{mod _85hotwsCta0JfYIjI4LJw}#
+ #{exp _85hotwsCta0JfYIjI4LJx}#)
+ (and-map
+ #{id? _85hotwsCta0JfYIjI4J3n}#
+ #{mod _85hotwsCta0JfYIjI4LJw}#))
+ #{tmp _85hotwsCta0JfYIjI4LJs}#)
#f)
(@apply
- (lambda (#{mod 8016}# #{exp 8017}#)
- (let ((#{mod 8018}#
+ (lambda (#{mod _85hotwsCta0JfYIjI4LKB}#
+ #{exp _85hotwsCta0JfYIjI4LKC}#)
+ (let ((#{mod _85hotwsCta0JfYIjI4LKD}#
(syntax->datum
(cons '#(syntax-object
private
@@ -10596,12 +11602,12 @@
#(ribcage
#(mod exp)
#((top) (top))
- #("14a" "14b"))
- #(ribcage (remodulate) ((top)) ("141"))
+ #("2t9" "2ta"))
+ #(ribcage (remodulate) ((top)) ("2t0"))
#(ribcage
#(e r w)
#((top) (top) (top))
- #("13y" "13z" "140"))
+ #("2sx" "2sy" "2sz"))
#(ribcage
(lambda-var-list
gen-var
@@ -10634,6 +11640,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -10880,272 +11887,289 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
- #{mod 8016}#))))
+ #{mod _85hotwsCta0JfYIjI4LKB}#))))
(values
- (#{remodulate 7993}# #{exp 8017}# #{mod 8018}#)
- #{r 7991}#
- #{w 7992}#
- (#{source-annotation 2736}# #{exp 8017}#)
- #{mod 8018}#)))
- #{tmp 7995}#)
+ (#{remodulate _85hotwsCta0JfYIjI4LJq}#
+ #{exp _85hotwsCta0JfYIjI4LKC}#
+ #{mod _85hotwsCta0JfYIjI4LKD}#)
+ #{r _85hotwsCta0JfYIjI4LJo}#
+ #{w _85hotwsCta0JfYIjI4LJp}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{exp _85hotwsCta0JfYIjI4LKC}#)
+ #{mod _85hotwsCta0JfYIjI4LKD}#)))
+ #{tmp _85hotwsCta0JfYIjI4LJs}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 7990}#))))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4LJn}#))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'if
- (lambda (#{e 8202}#
- #{r 8203}#
- #{w 8204}#
- #{s 8205}#
- #{mod 8206}#)
- (let ((#{tmp 8208}#
- ($sc-dispatch #{e 8202}# '(_ any any))))
- (if #{tmp 8208}#
+ (lambda (#{e _85hotwsCta0JfYIjI4LM7}#
+ #{r _85hotwsCta0JfYIjI4LM8}#
+ #{w _85hotwsCta0JfYIjI4LM9}#
+ #{s _85hotwsCta0JfYIjI4LM$}#
+ #{mod _85hotwsCta0JfYIjI4LM@}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LNB}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4LM7}#
+ '(_ any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4LNB}#
(@apply
- (lambda (#{test 8212}# #{then 8213}#)
- (#{build-conditional 2711}#
- #{s 8205}#
- (#{expand 2778}#
- #{test 8212}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
- (#{expand 2778}#
- #{then 8213}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
+ (lambda (#{test _85hotwsCta0JfYIjI4LNF}#
+ #{then _85hotwsCta0JfYIjI4LNG}#)
+ (#{build-conditional _85hotwsCta0JfYIjI4J3H}#
+ #{s _85hotwsCta0JfYIjI4LM$}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{test _85hotwsCta0JfYIjI4LNF}#
+ #{r _85hotwsCta0JfYIjI4LM8}#
+ #{w _85hotwsCta0JfYIjI4LM9}#
+ #{mod _85hotwsCta0JfYIjI4LM@}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{then _85hotwsCta0JfYIjI4LNG}#
+ #{r _85hotwsCta0JfYIjI4LM8}#
+ #{w _85hotwsCta0JfYIjI4LM9}#
+ #{mod _85hotwsCta0JfYIjI4LM@}#)
(make-struct/no-tail
(vector-ref %expanded-vtables 0)
#f)))
- #{tmp 8208}#)
- (let ((#{tmp 8438}#
- ($sc-dispatch #{e 8202}# '(_ any any any))))
- (if #{tmp 8438}#
+ #{tmp _85hotwsCta0JfYIjI4LNB}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LQn}#
+ ($sc-dispatch
+ #{e _85hotwsCta0JfYIjI4LM7}#
+ '(_ any any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4LQn}#
(@apply
- (lambda (#{test 8442}# #{then 8443}# #{else 8444}#)
- (#{build-conditional 2711}#
- #{s 8205}#
- (#{expand 2778}#
- #{test 8442}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
- (#{expand 2778}#
- #{then 8443}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)
- (#{expand 2778}#
- #{else 8444}#
- #{r 8203}#
- #{w 8204}#
- #{mod 8206}#)))
- #{tmp 8438}#)
+ (lambda (#{test _85hotwsCta0JfYIjI4LQr}#
+ #{then _85hotwsCta0JfYIjI4LQs}#
+ #{else _85hotwsCta0JfYIjI4LQt}#)
+ (#{build-conditional _85hotwsCta0JfYIjI4J3H}#
+ #{s _85hotwsCta0JfYIjI4LM$}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{test _85hotwsCta0JfYIjI4LQr}#
+ #{r _85hotwsCta0JfYIjI4LM8}#
+ #{w _85hotwsCta0JfYIjI4LM9}#
+ #{mod _85hotwsCta0JfYIjI4LM@}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{then _85hotwsCta0JfYIjI4LQs}#
+ #{r _85hotwsCta0JfYIjI4LM8}#
+ #{w _85hotwsCta0JfYIjI4LM9}#
+ #{mod _85hotwsCta0JfYIjI4LM@}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{else _85hotwsCta0JfYIjI4LQt}#
+ #{r _85hotwsCta0JfYIjI4LM8}#
+ #{w _85hotwsCta0JfYIjI4LM9}#
+ #{mod _85hotwsCta0JfYIjI4LM@}#)))
+ #{tmp _85hotwsCta0JfYIjI4LQn}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 8202}#)))))))
- (#{global-extend 2741}#
+ #{e _85hotwsCta0JfYIjI4LM7}#)))))))
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'with-fluids
- (lambda (#{e 8843}#
- #{r 8844}#
- #{w 8845}#
- #{s 8846}#
- #{mod 8847}#)
- (let ((#{tmp 8849}#
+ (lambda (#{e _85hotwsCta0JfYIjI4LW8}#
+ #{r _85hotwsCta0JfYIjI4LW9}#
+ #{w _85hotwsCta0JfYIjI4LW$}#
+ #{s _85hotwsCta0JfYIjI4LW@}#
+ #{mod _85hotwsCta0JfYIjI4LXA}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LXC}#
($sc-dispatch
- #{e 8843}#
+ #{e _85hotwsCta0JfYIjI4LW8}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 8849}#
+ (if #{tmp _85hotwsCta0JfYIjI4LXC}#
(@apply
- (lambda (#{fluid 8853}#
- #{val 8854}#
- #{b 8855}#
- #{b* 8856}#)
- (#{build-dynlet 2712}#
- #{s 8846}#
- (map (lambda (#{x 8937}#)
- (#{expand 2778}#
- #{x 8937}#
- #{r 8844}#
- #{w 8845}#
- #{mod 8847}#))
- #{fluid 8853}#)
- (map (lambda (#{x 9007}#)
- (#{expand 2778}#
- #{x 9007}#
- #{r 8844}#
- #{w 8845}#
- #{mod 8847}#))
- #{val 8854}#)
- (#{expand-body 2782}#
- (cons #{b 8855}# #{b* 8856}#)
- (#{wrap 2771}#
+ (lambda (#{fluid _85hotwsCta0JfYIjI4LXG}#
+ #{val _85hotwsCta0JfYIjI4LXH}#
+ #{b _85hotwsCta0JfYIjI4LXI}#
+ #{b* _85hotwsCta0JfYIjI4LXJ}#)
+ (#{build-dynlet _85hotwsCta0JfYIjI4J3I}#
+ #{s _85hotwsCta0JfYIjI4LW@}#
+ (map (lambda (#{x _85hotwsCta0JfYIjI4LYa}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4LYa}#
+ #{r _85hotwsCta0JfYIjI4LW9}#
+ #{w _85hotwsCta0JfYIjI4LW$}#
+ #{mod _85hotwsCta0JfYIjI4LXA}#))
+ #{fluid _85hotwsCta0JfYIjI4LXG}#)
+ (map (lambda (#{x _85hotwsCta0JfYIjI4LZg}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{x _85hotwsCta0JfYIjI4LZg}#
+ #{r _85hotwsCta0JfYIjI4LW9}#
+ #{w _85hotwsCta0JfYIjI4LW$}#
+ #{mod _85hotwsCta0JfYIjI4LXA}#))
+ #{val _85hotwsCta0JfYIjI4LXH}#)
+ (#{expand-body _85hotwsCta0JfYIjI4J4P}#
+ (cons #{b _85hotwsCta0JfYIjI4LXI}#
+ #{b* _85hotwsCta0JfYIjI4LXJ}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 8843}#) #{s 8846}# #f)
- (set-source-properties! #{e 8843}# #{s 8846}#))
- #{e 8843}#)
- #{w 8845}#
- #{mod 8847}#)
- #{r 8844}#
- #{w 8845}#
- #{mod 8847}#)))
- #{tmp 8849}#)
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4LW8}#)
+ #{s _85hotwsCta0JfYIjI4LW@}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4LW8}#
+ #{s _85hotwsCta0JfYIjI4LW@}#))
+ #{e _85hotwsCta0JfYIjI4LW8}#)
+ #{w _85hotwsCta0JfYIjI4LW$}#
+ #{mod _85hotwsCta0JfYIjI4LXA}#)
+ #{r _85hotwsCta0JfYIjI4LW9}#
+ #{w _85hotwsCta0JfYIjI4LW$}#
+ #{mod _85hotwsCta0JfYIjI4LXA}#)))
+ #{tmp _85hotwsCta0JfYIjI4LXC}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 8843}#)))))
+ #{e _85hotwsCta0JfYIjI4LW8}#)))))
(module-define!
(current-module)
'begin
@@ -11175,75 +12199,100 @@
'eval-when
'eval-when
'()))
- (#{global-extend 2741}#
+ (#{global-extend _85hotwsCta0JfYIjI4J3l}#
'core
'syntax-case
(letrec*
- ((#{convert-pattern 9375}#
- (lambda (#{pattern 10970}# #{keys 10971}#)
+ ((#{convert-pattern _85hotwsCta0JfYIjI4LfQ}#
+ (lambda (#{pattern _85hotwsCta0JfYIjI4L4L}#
+ #{keys _85hotwsCta0JfYIjI4L4M}#)
(letrec*
- ((#{cvt* 10972}#
- (lambda (#{p* 11596}# #{n 11597}# #{ids 11598}#)
- (if (not (pair? #{p* 11596}#))
- (#{cvt 10974}#
- #{p* 11596}#
- #{n 11597}#
- #{ids 11598}#)
+ ((#{cvt* _85hotwsCta0JfYIjI4L4N}#
+ (lambda (#{p* _85hotwsCta0JfYIjI4MB9}#
+ #{n _85hotwsCta0JfYIjI4MB$}#
+ #{ids _85hotwsCta0JfYIjI4MB@}#)
+ (if (not (pair? #{p* _85hotwsCta0JfYIjI4MB9}#))
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{p* _85hotwsCta0JfYIjI4MB9}#
+ #{n _85hotwsCta0JfYIjI4MB$}#
+ #{ids _85hotwsCta0JfYIjI4MB@}#)
(call-with-values
(lambda ()
- (#{cvt* 10972}#
- (cdr #{p* 11596}#)
- #{n 11597}#
- #{ids 11598}#))
- (lambda (#{y 11601}# #{ids 11602}#)
+ (#{cvt* _85hotwsCta0JfYIjI4L4N}#
+ (cdr #{p* _85hotwsCta0JfYIjI4MB9}#)
+ #{n _85hotwsCta0JfYIjI4MB$}#
+ #{ids _85hotwsCta0JfYIjI4MB@}#))
+ (lambda (#{y _85hotwsCta0JfYIjI4MCC}#
+ #{ids _85hotwsCta0JfYIjI4MCD}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- (car #{p* 11596}#)
- #{n 11597}#
- #{ids 11602}#))
- (lambda (#{x 11605}# #{ids 11606}#)
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ (car #{p* _85hotwsCta0JfYIjI4MB9}#)
+ #{n _85hotwsCta0JfYIjI4MB$}#
+ #{ids _85hotwsCta0JfYIjI4MCD}#))
+ (lambda (#{x _85hotwsCta0JfYIjI4MCG}#
+ #{ids _85hotwsCta0JfYIjI4MCH}#)
(values
- (cons #{x 11605}# #{y 11601}#)
- #{ids 11606}#))))))))
- (#{v-reverse 10973}#
- (lambda (#{x 11607}#)
+ (cons #{x _85hotwsCta0JfYIjI4MCG}#
+ #{y _85hotwsCta0JfYIjI4MCC}#)
+ #{ids _85hotwsCta0JfYIjI4MCH}#))))))))
+ (#{v-reverse _85hotwsCta0JfYIjI4L4O}#
+ (lambda (#{x _85hotwsCta0JfYIjI4MCI}#)
(letrec*
- ((#{loop 11608}#
- (lambda (#{r 11688}# #{x 11689}#)
- (if (not (pair? #{x 11689}#))
- (values #{r 11688}# #{x 11689}#)
- (#{loop 11608}#
- (cons (car #{x 11689}#) #{r 11688}#)
- (cdr #{x 11689}#))))))
- (#{loop 11608}# '() #{x 11607}#))))
- (#{cvt 10974}#
- (lambda (#{p 10977}# #{n 10978}# #{ids 10979}#)
- (if (if (symbol? #{p 10977}#)
+ ((#{loop _85hotwsCta0JfYIjI4MCJ}#
+ (lambda (#{r _85hotwsCta0JfYIjI4MDZ}#
+ #{x _85hotwsCta0JfYIjI4MDa}#)
+ (if (not (pair? #{x _85hotwsCta0JfYIjI4MDa}#))
+ (values
+ #{r _85hotwsCta0JfYIjI4MDZ}#
+ #{x _85hotwsCta0JfYIjI4MDa}#)
+ (#{loop _85hotwsCta0JfYIjI4MCJ}#
+ (cons (car #{x _85hotwsCta0JfYIjI4MDa}#)
+ #{r _85hotwsCta0JfYIjI4MDZ}#)
+ (cdr #{x _85hotwsCta0JfYIjI4MDa}#))))))
+ (#{loop _85hotwsCta0JfYIjI4MCJ}#
+ '()
+ #{x _85hotwsCta0JfYIjI4MCI}#))))
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ (lambda (#{p _85hotwsCta0JfYIjI4L4S}#
+ #{n _85hotwsCta0JfYIjI4L4T}#
+ #{ids _85hotwsCta0JfYIjI4L4U}#)
+ (if (if (symbol? #{p _85hotwsCta0JfYIjI4L4S}#)
#t
- (if (if (vector? #{p 10977}#)
- (if (= (vector-length #{p 10977}#) 4)
- (eq? (vector-ref #{p 10977}# 0)
+ (if (if (vector? #{p _85hotwsCta0JfYIjI4L4S}#)
+ (if (= (vector-length
+ #{p _85hotwsCta0JfYIjI4L4S}#)
+ 4)
+ (eq? (vector-ref
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{p 10977}# 1))
+ (symbol?
+ (vector-ref #{p _85hotwsCta0JfYIjI4L4S}# 1))
#f))
- (if (#{bound-id-member? 2770}#
- #{p 10977}#
- #{keys 10971}#)
+ (if (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}#
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ #{keys _85hotwsCta0JfYIjI4L4M}#)
(values
- (vector 'free-id #{p 10977}#)
- #{ids 10979}#)
- (if (if (eq? (if (if (vector? #{p 10977}#)
- (if (= (vector-length #{p 10977}#)
+ (vector 'free-id #{p _85hotwsCta0JfYIjI4L4S}#)
+ #{ids _85hotwsCta0JfYIjI4L4U}#)
+ (if (if (eq? (if (if (vector?
+ #{p _85hotwsCta0JfYIjI4L4S}#)
+ (if (= (vector-length
+ #{p _85hotwsCta0JfYIjI4L4S}#)
4)
- (eq? (vector-ref #{p 10977}# 0)
+ (eq? (vector-ref
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{p 10977}# 1)
- #{p 10977}#)
+ (vector-ref
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ 1)
+ #{p _85hotwsCta0JfYIjI4L4S}#)
(if (if (= (vector-length
'#(syntax-object
_
@@ -11252,15 +12301,15 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("15i" "15j" "15k"))
+ #("2uh" "2ui" "2uj"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("156" "155" "154"))
+ ("2u5" "2u4" "2u3"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("152" "153"))
+ #("2u1" "2u2"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -11270,10 +12319,10 @@
(top)
(top)
(top))
- ("151"
- "150"
- "14z"
- "14y"))
+ ("2u0"
+ "2tz"
+ "2ty"
+ "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -11306,6 +12355,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -11552,152 +12602,154 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile)))
4)
#t
@@ -11710,22 +12762,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("15i" "15j" "15k"))
+ #("2uh" "2ui" "2uj"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("156" "155" "154"))
+ ("2u5" "2u4" "2u3"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("152" "153"))
+ #("2u1" "2u2"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -11758,6 +12810,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -12004,155 +13057,159 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}# #{p 10977}# '(()))
- (#{id-var-name 2762}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ '(()))
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
_
((top)
@@ -12160,22 +13217,22 @@
#(ribcage
#(p n ids)
#((top) (top) (top))
- #("15i" "15j" "15k"))
+ #("2uh" "2ui" "2uj"))
#(ribcage
(cvt v-reverse cvt*)
((top) (top) (top))
- ("156" "155" "154"))
+ ("2u5" "2u4" "2u3"))
#(ribcage
#(pattern keys)
#((top) (top))
- #("152" "153"))
+ #("2u1" "2u2"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -12208,6 +13265,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -12454,190 +13512,202 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
- (values '_ #{ids 10979}#)
+ (values '_ #{ids _85hotwsCta0JfYIjI4L4U}#)
(values
'any
- (cons (cons #{p 10977}# #{n 10978}#)
- #{ids 10979}#))))
- (let ((#{tmp 11299}#
- ($sc-dispatch #{p 10977}# '(any any))))
- (if (if #{tmp 11299}#
+ (cons (cons #{p _85hotwsCta0JfYIjI4L4S}#
+ #{n _85hotwsCta0JfYIjI4L4T}#)
+ #{ids _85hotwsCta0JfYIjI4L4U}#))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4L9U}#
+ ($sc-dispatch
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ '(any any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4L9U}#
(@apply
- (lambda (#{x 11303}# #{dots 11304}#)
- (if (if (if (vector? #{dots 11304}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4L9Y}#
+ #{dots _85hotwsCta0JfYIjI4L9Z}#)
+ (if (if (if (vector?
+ #{dots _85hotwsCta0JfYIjI4L9Z}#)
(if (= (vector-length
- #{dots 11304}#)
+ #{dots _85hotwsCta0JfYIjI4L9Z}#)
4)
(eq? (vector-ref
- #{dots 11304}#
+ #{dots _85hotwsCta0JfYIjI4L9Z}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 11304}# 1))
+ (vector-ref
+ #{dots _85hotwsCta0JfYIjI4L9Z}#
+ 1))
#f)
- (if (eq? (if (if (vector? #{dots 11304}#)
+ (if (eq? (if (if (vector?
+ #{dots _85hotwsCta0JfYIjI4L9Z}#)
(if (= (vector-length
- #{dots 11304}#)
+ #{dots _85hotwsCta0JfYIjI4L9Z}#)
4)
(eq? (vector-ref
- #{dots 11304}#
+ #{dots _85hotwsCta0JfYIjI4L9Z}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{dots 11304}# 1)
- #{dots 11304}#)
+ (vector-ref
+ #{dots _85hotwsCta0JfYIjI4L9Z}#
+ 1)
+ #{dots _85hotwsCta0JfYIjI4L9Z}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -12653,7 +13723,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -12686,6 +13756,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -12932,146 +14003,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -13079,9 +14152,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene
guile)))
4)
@@ -13096,7 +14169,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -13129,6 +14202,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -13375,157 +14449,159 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{dots 11304}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{dots _85hotwsCta0JfYIjI4L9Z}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
...
((top)
@@ -13534,7 +14610,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -13567,6 +14643,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -13813,210 +14890,220 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp 11299}#)
+ #{tmp _85hotwsCta0JfYIjI4L9U}#)
#f)
(@apply
- (lambda (#{x 11404}# #{dots 11405}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4L$9}#
+ #{dots _85hotwsCta0JfYIjI4L$$}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11404}#
- (#{1+}# #{n 10978}#)
- #{ids 10979}#))
- (lambda (#{p 11406}# #{ids 11407}#)
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{x _85hotwsCta0JfYIjI4L$9}#
+ (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#)
+ #{ids _85hotwsCta0JfYIjI4L4U}#))
+ (lambda (#{p _85hotwsCta0JfYIjI4L$@}#
+ #{ids _85hotwsCta0JfYIjI4L@A}#)
(values
- (if (eq? #{p 11406}# 'any)
+ (if (eq? #{p _85hotwsCta0JfYIjI4L$@}#
+ 'any)
'each-any
- (vector 'each #{p 11406}#))
- #{ids 11407}#))))
- #{tmp 11299}#)
- (let ((#{tmp 11408}#
+ (vector
+ 'each
+ #{p _85hotwsCta0JfYIjI4L$@}#))
+ #{ids _85hotwsCta0JfYIjI4L@A}#))))
+ #{tmp _85hotwsCta0JfYIjI4L9U}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4L@B}#
($sc-dispatch
- #{p 10977}#
+ #{p _85hotwsCta0JfYIjI4L4S}#
'(any any . any))))
- (if (if #{tmp 11408}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4L@B}#
(@apply
- (lambda (#{x 11412}#
- #{dots 11413}#
- #{ys 11414}#)
- (if (if (if (vector? #{dots 11413}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4L@F}#
+ #{dots _85hotwsCta0JfYIjI4L@G}#
+ #{ys _85hotwsCta0JfYIjI4L@H}#)
+ (if (if (if (vector?
+ #{dots _85hotwsCta0JfYIjI4L@G}#)
(if (= (vector-length
- #{dots 11413}#)
+ #{dots _85hotwsCta0JfYIjI4L@G}#)
4)
(eq? (vector-ref
- #{dots 11413}#
+ #{dots _85hotwsCta0JfYIjI4L@G}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{dots 11413}# 1))
+ (vector-ref
+ #{dots _85hotwsCta0JfYIjI4L@G}#
+ 1))
#f)
(if (eq? (if (if (vector?
- #{dots 11413}#)
+ #{dots _85hotwsCta0JfYIjI4L@G}#)
(if (= (vector-length
- #{dots 11413}#)
+ #{dots _85hotwsCta0JfYIjI4L@G}#)
4)
(eq? (vector-ref
- #{dots 11413}#
+ #{dots _85hotwsCta0JfYIjI4L@G}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{dots 11413}#
+ #{dots _85hotwsCta0JfYIjI4L@G}#
1)
- #{dots 11413}#)
+ #{dots _85hotwsCta0JfYIjI4L@G}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -14032,7 +15119,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -14065,6 +15152,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -14311,146 +15399,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -14458,9 +15548,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene
guile)))
4)
@@ -14475,7 +15565,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -14508,6 +15598,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -14754,157 +15845,161 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{dots 11413}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{dots _85hotwsCta0JfYIjI4L@G}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
...
((top)
@@ -14913,7 +16008,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -14946,6 +16041,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -15192,267 +16288,283 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
#f))
- #{tmp 11408}#)
+ #{tmp _85hotwsCta0JfYIjI4L@B}#)
#f)
(@apply
- (lambda (#{x 11514}#
- #{dots 11515}#
- #{ys 11516}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4MAr}#
+ #{dots _85hotwsCta0JfYIjI4MAs}#
+ #{ys _85hotwsCta0JfYIjI4MAt}#)
(call-with-values
(lambda ()
- (#{cvt* 10972}#
- #{ys 11516}#
- #{n 10978}#
- #{ids 10979}#))
- (lambda (#{ys 11519}# #{ids 11520}#)
+ (#{cvt* _85hotwsCta0JfYIjI4L4N}#
+ #{ys _85hotwsCta0JfYIjI4MAt}#
+ #{n _85hotwsCta0JfYIjI4L4T}#
+ #{ids _85hotwsCta0JfYIjI4L4U}#))
+ (lambda (#{ys _85hotwsCta0JfYIjI4MAw}#
+ #{ids _85hotwsCta0JfYIjI4MAx}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11514}#
- (#{1+}# #{n 10978}#)
- #{ids 11520}#))
- (lambda (#{x 11521}# #{ids 11522}#)
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{x _85hotwsCta0JfYIjI4MAr}#
+ (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#)
+ #{ids _85hotwsCta0JfYIjI4MAx}#))
+ (lambda (#{x _85hotwsCta0JfYIjI4MAy}#
+ #{ids _85hotwsCta0JfYIjI4MAz}#)
(call-with-values
(lambda ()
- (#{v-reverse 10973}#
- #{ys 11519}#))
- (lambda (#{ys 11555}#
- #{e 11556}#)
+ (#{v-reverse _85hotwsCta0JfYIjI4L4O}#
+ #{ys _85hotwsCta0JfYIjI4MAw}#))
+ (lambda (#{ys _85hotwsCta0JfYIjI4MBU}#
+ #{e _85hotwsCta0JfYIjI4MBV}#)
(values
(vector
'each+
- #{x 11521}#
- #{ys 11555}#
- #{e 11556}#)
- #{ids 11522}#))))))))
- #{tmp 11408}#)
- (let ((#{tmp 11557}#
+ #{x _85hotwsCta0JfYIjI4MAy}#
+ #{ys _85hotwsCta0JfYIjI4MBU}#
+ #{e _85hotwsCta0JfYIjI4MBV}#)
+ #{ids _85hotwsCta0JfYIjI4MAz}#))))))))
+ #{tmp _85hotwsCta0JfYIjI4L@B}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4MBW}#
($sc-dispatch
- #{p 10977}#
+ #{p _85hotwsCta0JfYIjI4L4S}#
'(any . any))))
- (if #{tmp 11557}#
+ (if #{tmp _85hotwsCta0JfYIjI4MBW}#
(@apply
- (lambda (#{x 11561}# #{y 11562}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4MBa}#
+ #{y _85hotwsCta0JfYIjI4MBb}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{y 11562}#
- #{n 10978}#
- #{ids 10979}#))
- (lambda (#{y 11563}# #{ids 11564}#)
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{y _85hotwsCta0JfYIjI4MBb}#
+ #{n _85hotwsCta0JfYIjI4L4T}#
+ #{ids _85hotwsCta0JfYIjI4L4U}#))
+ (lambda (#{y _85hotwsCta0JfYIjI4MBc}#
+ #{ids _85hotwsCta0JfYIjI4MBd}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11561}#
- #{n 10978}#
- #{ids 11564}#))
- (lambda (#{x 11565}#
- #{ids 11566}#)
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{x _85hotwsCta0JfYIjI4MBa}#
+ #{n _85hotwsCta0JfYIjI4L4T}#
+ #{ids _85hotwsCta0JfYIjI4MBd}#))
+ (lambda (#{x _85hotwsCta0JfYIjI4MBe}#
+ #{ids _85hotwsCta0JfYIjI4MBf}#)
(values
- (cons #{x 11565}#
- #{y 11563}#)
- #{ids 11566}#))))))
- #{tmp 11557}#)
- (let ((#{tmp 11567}#
- ($sc-dispatch #{p 10977}# '())))
- (if #{tmp 11567}#
+ (cons #{x _85hotwsCta0JfYIjI4MBe}#
+ #{y _85hotwsCta0JfYIjI4MBc}#)
+ #{ids _85hotwsCta0JfYIjI4MBf}#))))))
+ #{tmp _85hotwsCta0JfYIjI4MBW}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4MBg}#
+ ($sc-dispatch
+ #{p _85hotwsCta0JfYIjI4L4S}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4MBg}#
(@apply
(lambda ()
- (values '() #{ids 10979}#))
- #{tmp 11567}#)
- (let ((#{tmp 11571}#
+ (values
+ '()
+ #{ids _85hotwsCta0JfYIjI4L4U}#))
+ #{tmp _85hotwsCta0JfYIjI4MBg}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4MBk}#
($sc-dispatch
- #{p 10977}#
+ #{p _85hotwsCta0JfYIjI4L4S}#
'#(vector each-any))))
- (if #{tmp 11571}#
+ (if #{tmp _85hotwsCta0JfYIjI4MBk}#
(@apply
- (lambda (#{x 11575}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4MBo}#)
(call-with-values
(lambda ()
- (#{cvt 10974}#
- #{x 11575}#
- #{n 10978}#
- #{ids 10979}#))
- (lambda (#{p 11576}#
- #{ids 11577}#)
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{x _85hotwsCta0JfYIjI4MBo}#
+ #{n _85hotwsCta0JfYIjI4L4T}#
+ #{ids _85hotwsCta0JfYIjI4L4U}#))
+ (lambda (#{p _85hotwsCta0JfYIjI4MBp}#
+ #{ids _85hotwsCta0JfYIjI4MBq}#)
(values
(vector
'vector
- #{p 11576}#)
- #{ids 11577}#))))
- #{tmp 11571}#)
+ #{p _85hotwsCta0JfYIjI4MBp}#)
+ #{ids _85hotwsCta0JfYIjI4MBq}#))))
+ #{tmp _85hotwsCta0JfYIjI4MBk}#)
(values
(vector
'atom
- (#{strip 2791}#
- #{p 10977}#
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{p _85hotwsCta0JfYIjI4L4S}#
'(())))
- #{ids 10979}#)))))))))))))))
- (#{cvt 10974}# #{pattern 10970}# 0 '()))))
- (#{build-dispatch-call 9376}#
- (lambda (#{pvars 11690}#
- #{exp 11691}#
- #{y 11692}#
- #{r 11693}#
- #{mod 11694}#)
- (let ((#{ids 11695}# (map car #{pvars 11690}#)))
+ #{ids _85hotwsCta0JfYIjI4L4U}#)))))))))))))))
+ (#{cvt _85hotwsCta0JfYIjI4L4P}#
+ #{pattern _85hotwsCta0JfYIjI4L4L}#
+ 0
+ '()))))
+ (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}#
+ (lambda (#{pvars _85hotwsCta0JfYIjI4MDb}#
+ #{exp _85hotwsCta0JfYIjI4MDc}#
+ #{y _85hotwsCta0JfYIjI4MDd}#
+ #{r _85hotwsCta0JfYIjI4MDe}#
+ #{mod _85hotwsCta0JfYIjI4MDf}#)
+ (let ((#{ids _85hotwsCta0JfYIjI4MDg}#
+ (map car #{pvars _85hotwsCta0JfYIjI4MDb}#)))
(begin
- (map cdr #{pvars 11690}#)
- (let ((#{labels 11697}#
- (#{gen-labels 2746}# #{ids 11695}#))
- (#{new-vars 11698}#
- (map #{gen-var 2792}# #{ids 11695}#)))
- (#{build-application 2710}#
+ (map cdr #{pvars _85hotwsCta0JfYIjI4MDb}#)
+ (let ((#{labels _85hotwsCta0JfYIjI4MDi}#
+ (#{gen-labels _85hotwsCta0JfYIjI4J3q}#
+ #{ids _85hotwsCta0JfYIjI4MDg}#))
+ (#{new-vars _85hotwsCta0JfYIjI4MDj}#
+ (map #{gen-var _85hotwsCta0JfYIjI4J4Z}#
+ #{ids _85hotwsCta0JfYIjI4MDg}#)))
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
#f
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
@@ -15465,81 +16577,89 @@
'(guile)
'apply
#f))
- (list (#{build-simple-lambda 2719}#
+ (list (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
#f
- (map syntax->datum #{ids 11695}#)
+ (map syntax->datum
+ #{ids _85hotwsCta0JfYIjI4MDg}#)
#f
- #{new-vars 11698}#
+ #{new-vars _85hotwsCta0JfYIjI4MDj}#
'()
- (#{expand 2778}#
- #{exp 11691}#
- (#{extend-env 2737}#
- #{labels 11697}#
- (map (lambda (#{var 12017}# #{level 12018}#)
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{exp _85hotwsCta0JfYIjI4MDc}#
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ #{labels _85hotwsCta0JfYIjI4MDi}#
+ (map (lambda (#{var _85hotwsCta0JfYIjI4MIi}#
+ #{level _85hotwsCta0JfYIjI4MIj}#)
(cons 'syntax
- (cons #{var 12017}#
- #{level 12018}#)))
- #{new-vars 11698}#
- (map cdr #{pvars 11690}#))
- #{r 11693}#)
- (#{make-binding-wrap 2757}#
- #{ids 11695}#
- #{labels 11697}#
+ (cons #{var _85hotwsCta0JfYIjI4MIi}#
+ #{level _85hotwsCta0JfYIjI4MIj}#)))
+ #{new-vars _85hotwsCta0JfYIjI4MDj}#
+ (map cdr
+ #{pvars _85hotwsCta0JfYIjI4MDb}#))
+ #{r _85hotwsCta0JfYIjI4MDe}#)
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ #{ids _85hotwsCta0JfYIjI4MDg}#
+ #{labels _85hotwsCta0JfYIjI4MDi}#
'(()))
- #{mod 11694}#))
- #{y 11692}#)))))))
- (#{gen-clause 9377}#
- (lambda (#{x 10342}#
- #{keys 10343}#
- #{clauses 10344}#
- #{r 10345}#
- #{pat 10346}#
- #{fender 10347}#
- #{exp 10348}#
- #{mod 10349}#)
+ #{mod _85hotwsCta0JfYIjI4MDf}#))
+ #{y _85hotwsCta0JfYIjI4MDd}#)))))))
+ (#{gen-clause _85hotwsCta0JfYIjI4LfS}#
+ (lambda (#{x _85hotwsCta0JfYIjI4LuX}#
+ #{keys _85hotwsCta0JfYIjI4LuY}#
+ #{clauses _85hotwsCta0JfYIjI4LuZ}#
+ #{r _85hotwsCta0JfYIjI4Lua}#
+ #{pat _85hotwsCta0JfYIjI4Lub}#
+ #{fender _85hotwsCta0JfYIjI4Luc}#
+ #{exp _85hotwsCta0JfYIjI4Lud}#
+ #{mod _85hotwsCta0JfYIjI4Lue}#)
(call-with-values
(lambda ()
- (#{convert-pattern 9375}#
- #{pat 10346}#
- #{keys 10343}#))
- (lambda (#{p 10504}# #{pvars 10505}#)
- (if (not (#{distinct-bound-ids? 2769}#
- (map car #{pvars 10505}#)))
+ (#{convert-pattern _85hotwsCta0JfYIjI4LfQ}#
+ #{pat _85hotwsCta0JfYIjI4Lub}#
+ #{keys _85hotwsCta0JfYIjI4LuY}#))
+ (lambda (#{p _85hotwsCta0JfYIjI4Lw5}#
+ #{pvars _85hotwsCta0JfYIjI4Lw6}#)
+ (if (not (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}#
+ (map car #{pvars _85hotwsCta0JfYIjI4Lw6}#)))
(syntax-violation
'syntax-case
"duplicate pattern variable"
- #{pat 10346}#)
+ #{pat _85hotwsCta0JfYIjI4Lub}#)
(if (not (and-map
- (lambda (#{x 10621}#)
- (not (let ((#{x 10625}# (car #{x 10621}#)))
- (if (if (if (vector? #{x 10625}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Lyu}#)
+ (not (let ((#{x _85hotwsCta0JfYIjI4Lyy}#
+ (car #{x _85hotwsCta0JfYIjI4Lyu}#)))
+ (if (if (if (vector?
+ #{x _85hotwsCta0JfYIjI4Lyy}#)
(if (= (vector-length
- #{x 10625}#)
+ #{x _85hotwsCta0JfYIjI4Lyy}#)
4)
(eq? (vector-ref
- #{x 10625}#
+ #{x _85hotwsCta0JfYIjI4Lyy}#
0)
'syntax-object)
#f)
#f)
(symbol?
- (vector-ref #{x 10625}# 1))
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lyy}#
+ 1))
#f)
(if (eq? (if (if (vector?
- #{x 10625}#)
+ #{x _85hotwsCta0JfYIjI4Lyy}#)
(if (= (vector-length
- #{x 10625}#)
+ #{x _85hotwsCta0JfYIjI4Lyy}#)
4)
(eq? (vector-ref
- #{x 10625}#
+ #{x _85hotwsCta0JfYIjI4Lyy}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{x 10625}#
+ #{x _85hotwsCta0JfYIjI4Lyy}#
1)
- #{x 10625}#)
+ #{x _85hotwsCta0JfYIjI4Lyy}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -15555,7 +16675,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -15588,6 +16708,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -15834,146 +16955,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -15981,9 +17104,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene
guile)))
4)
@@ -15998,7 +17121,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -16031,6 +17154,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -16277,157 +17401,161 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{x 10625}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{x _85hotwsCta0JfYIjI4Lyy}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
...
((top)
@@ -16436,7 +17564,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -16469,6 +17597,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -16715,192 +17844,196 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
#f))))
- #{pvars 10505}#))
+ #{pvars _85hotwsCta0JfYIjI4Lw6}#))
(syntax-violation
'syntax-case
"misplaced ellipsis"
- #{pat 10346}#)
- (let ((#{y 10701}#
+ #{pat _85hotwsCta0JfYIjI4Lub}#)
+ (let ((#{y _85hotwsCta0JfYIjI4Lz$}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 2710}#
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
#f
- (let ((#{req 10844}# (list 'tmp))
- (#{vars 10846}# (list #{y 10701}#))
- (#{exp 10848}#
- (let ((#{y 10865}#
+ (let ((#{req _85hotwsCta0JfYIjI4L2N}# (list 'tmp))
+ (#{vars _85hotwsCta0JfYIjI4L2P}#
+ (list #{y _85hotwsCta0JfYIjI4Lz$}#))
+ (#{exp _85hotwsCta0JfYIjI4L2R}#
+ (let ((#{y _85hotwsCta0JfYIjI4L2i}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{y 10701}#)))
- (let ((#{test-exp 10869}#
- (let ((#{tmp 10878}#
+ #{y _85hotwsCta0JfYIjI4Lz$}#)))
+ (let ((#{test-exp _85hotwsCta0JfYIjI4L2m}#
+ (let ((#{tmp _85hotwsCta0JfYIjI4L2v}#
($sc-dispatch
- #{fender 10347}#
+ #{fender _85hotwsCta0JfYIjI4Luc}#
'#(atom #t))))
- (if #{tmp 10878}#
+ (if #{tmp _85hotwsCta0JfYIjI4L2v}#
(@apply
- (lambda () #{y 10865}#)
- #{tmp 10878}#)
- (let ((#{then-exp 10896}#
- (#{build-dispatch-call 9376}#
- #{pvars 10505}#
- #{fender 10347}#
- #{y 10865}#
- #{r 10345}#
- #{mod 10349}#))
- (#{else-exp 10897}#
+ (lambda ()
+ #{y _85hotwsCta0JfYIjI4L2i}#)
+ #{tmp _85hotwsCta0JfYIjI4L2v}#)
+ (let ((#{then-exp _85hotwsCta0JfYIjI4L3B}#
+ (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}#
+ #{pvars _85hotwsCta0JfYIjI4Lw6}#
+ #{fender _85hotwsCta0JfYIjI4Luc}#
+ #{y _85hotwsCta0JfYIjI4L2i}#
+ #{r _85hotwsCta0JfYIjI4Lua}#
+ #{mod _85hotwsCta0JfYIjI4Lue}#))
+ (#{else-exp _85hotwsCta0JfYIjI4L3C}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
@@ -16912,48 +18045,48 @@
%expanded-vtables
10)
#f
- #{y 10865}#
- #{then-exp 10896}#
- #{else-exp 10897}#)))))
- (#{then-exp 10870}#
- (#{build-dispatch-call 9376}#
- #{pvars 10505}#
- #{exp 10348}#
- #{y 10865}#
- #{r 10345}#
- #{mod 10349}#))
- (#{else-exp 10871}#
- (#{gen-syntax-case 9378}#
- #{x 10342}#
- #{keys 10343}#
- #{clauses 10344}#
- #{r 10345}#
- #{mod 10349}#)))
+ #{y _85hotwsCta0JfYIjI4L2i}#
+ #{then-exp _85hotwsCta0JfYIjI4L3B}#
+ #{else-exp _85hotwsCta0JfYIjI4L3C}#)))))
+ (#{then-exp _85hotwsCta0JfYIjI4L2n}#
+ (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}#
+ #{pvars _85hotwsCta0JfYIjI4Lw6}#
+ #{exp _85hotwsCta0JfYIjI4Lud}#
+ #{y _85hotwsCta0JfYIjI4L2i}#
+ #{r _85hotwsCta0JfYIjI4Lua}#
+ #{mod _85hotwsCta0JfYIjI4Lue}#))
+ (#{else-exp _85hotwsCta0JfYIjI4L2o}#
+ (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}#
+ #{x _85hotwsCta0JfYIjI4LuX}#
+ #{keys _85hotwsCta0JfYIjI4LuY}#
+ #{clauses _85hotwsCta0JfYIjI4LuZ}#
+ #{r _85hotwsCta0JfYIjI4Lua}#
+ #{mod _85hotwsCta0JfYIjI4Lue}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 10)
#f
- #{test-exp 10869}#
- #{then-exp 10870}#
- #{else-exp 10871}#)))))
- (let ((#{body 10853}#
+ #{test-exp _85hotwsCta0JfYIjI4L2m}#
+ #{then-exp _85hotwsCta0JfYIjI4L2n}#
+ #{else-exp _85hotwsCta0JfYIjI4L2o}#)))))
+ (let ((#{body _85hotwsCta0JfYIjI4L2W}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 10844}#
+ #{req _85hotwsCta0JfYIjI4L2N}#
#f
#f
#f
'()
- #{vars 10846}#
- #{exp 10848}#
+ #{vars _85hotwsCta0JfYIjI4L2P}#
+ #{exp _85hotwsCta0JfYIjI4L2R}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 10853}#)))
- (list (if (eq? #{p 10504}# 'any)
- (let ((#{fun-exp 10919}#
+ #{body _85hotwsCta0JfYIjI4L2W}#)))
+ (list (if (eq? #{p _85hotwsCta0JfYIjI4Lw5}# 'any)
+ (let ((#{fun-exp _85hotwsCta0JfYIjI4L3Y}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16967,14 +18100,14 @@
'(guile)
'list
#f)))
- (#{arg-exps 10920}#
- (list #{x 10342}#)))
+ (#{arg-exps _85hotwsCta0JfYIjI4L3Z}#
+ (list #{x _85hotwsCta0JfYIjI4LuX}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 10919}#
- #{arg-exps 10920}#))
- (let ((#{fun-exp 10943}#
+ #{fun-exp _85hotwsCta0JfYIjI4L3Y}#
+ #{arg-exps _85hotwsCta0JfYIjI4L3Z}#))
+ (let ((#{fun-exp _85hotwsCta0JfYIjI4L3w}#
(if (equal?
(module-name (current-module))
'(guile))
@@ -16988,27 +18121,27 @@
'(guile)
'$sc-dispatch
#f)))
- (#{arg-exps 10944}#
- (list #{x 10342}#
+ (#{arg-exps _85hotwsCta0JfYIjI4L3x}#
+ (list #{x _85hotwsCta0JfYIjI4LuX}#
(make-struct/no-tail
(vector-ref
%expanded-vtables
1)
#f
- #{p 10504}#))))
+ #{p _85hotwsCta0JfYIjI4Lw5}#))))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 10943}#
- #{arg-exps 10944}#))))))))))))
- (#{gen-syntax-case 9378}#
- (lambda (#{x 9777}#
- #{keys 9778}#
- #{clauses 9779}#
- #{r 9780}#
- #{mod 9781}#)
- (if (null? #{clauses 9779}#)
- (let ((#{fun-exp 9786}#
+ #{fun-exp _85hotwsCta0JfYIjI4L3w}#
+ #{arg-exps _85hotwsCta0JfYIjI4L3x}#))))))))))))
+ (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Lli}#
+ #{keys _85hotwsCta0JfYIjI4Llj}#
+ #{clauses _85hotwsCta0JfYIjI4Llk}#
+ #{r _85hotwsCta0JfYIjI4Lll}#
+ #{mod _85hotwsCta0JfYIjI4Llm}#)
+ (if (null? #{clauses _85hotwsCta0JfYIjI4Llk}#)
+ (let ((#{fun-exp _85hotwsCta0JfYIjI4Llr}#
(if (equal? (module-name (current-module)) '(guile))
(make-struct/no-tail
(vector-ref %expanded-vtables 7)
@@ -17020,7 +18153,7 @@
'(guile)
'syntax-violation
#f)))
- (#{arg-exps 9787}#
+ (#{arg-exps _85hotwsCta0JfYIjI4Lls}#
(list (make-struct/no-tail
(vector-ref %expanded-vtables 1)
#f
@@ -17029,63 +18162,77 @@
(vector-ref %expanded-vtables 1)
#f
"source expression failed to match any pattern")
- #{x 9777}#)))
+ #{x _85hotwsCta0JfYIjI4Lli}#)))
(make-struct/no-tail
(vector-ref %expanded-vtables 11)
#f
- #{fun-exp 9786}#
- #{arg-exps 9787}#))
- (let ((#{tmp 9820}# (car #{clauses 9779}#)))
- (let ((#{tmp 9821}#
- ($sc-dispatch #{tmp 9820}# '(any any))))
- (if #{tmp 9821}#
+ #{fun-exp _85hotwsCta0JfYIjI4Llr}#
+ #{arg-exps _85hotwsCta0JfYIjI4Lls}#))
+ (let ((#{tmp _85hotwsCta0JfYIjI4LmN}#
+ (car #{clauses _85hotwsCta0JfYIjI4Llk}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4LmO}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4LmN}#
+ '(any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4LmO}#
(@apply
- (lambda (#{pat 9823}# #{exp 9824}#)
- (if (if (if (symbol? #{pat 9823}#)
+ (lambda (#{pat _85hotwsCta0JfYIjI4LmQ}#
+ #{exp _85hotwsCta0JfYIjI4LmR}#)
+ (if (if (if (symbol? #{pat _85hotwsCta0JfYIjI4LmQ}#)
#t
- (if (if (vector? #{pat 9823}#)
- (if (= (vector-length #{pat 9823}#)
+ (if (if (vector?
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ (if (= (vector-length
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
4)
- (eq? (vector-ref #{pat 9823}# 0)
+ (eq? (vector-ref
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{pat 9823}# 1))
+ (symbol?
+ (vector-ref
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
+ 1))
#f))
(and-map
- (lambda (#{x 9851}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Lms}#)
(not (if (eq? (if (if (vector?
- #{pat 9823}#)
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
(if (= (vector-length
- #{pat 9823}#)
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
4)
(eq? (vector-ref
- #{pat 9823}#
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
0)
'syntax-object)
#f)
#f)
(vector-ref
- #{pat 9823}#
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
1)
- #{pat 9823}#)
- (if (if (vector? #{x 9851}#)
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ (if (if (vector?
+ #{x _85hotwsCta0JfYIjI4Lms}#)
(if (= (vector-length
- #{x 9851}#)
+ #{x _85hotwsCta0JfYIjI4Lms}#)
4)
(eq? (vector-ref
- #{x 9851}#
+ #{x _85hotwsCta0JfYIjI4Lms}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 9851}# 1)
- #{x 9851}#))
- (eq? (#{id-var-name 2762}#
- #{pat 9823}#
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lms}#
+ 1)
+ #{x _85hotwsCta0JfYIjI4Lms}#))
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
'(()))
- (#{id-var-name 2762}#
- #{x 9851}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{x _85hotwsCta0JfYIjI4Lms}#
'(())))
#f)))
(cons '#(syntax-object
@@ -17094,23 +18241,23 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
#((top) (top) (top) (top) (top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -17143,6 +18290,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -17389,154 +18537,156 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
- #{keys 9778}#))
+ #{keys _85hotwsCta0JfYIjI4Llj}#))
#f)
(if (if (eq? (if (if (= (vector-length
'#(syntax-object
@@ -17545,7 +18695,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x
@@ -17558,11 +18708,11 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -17572,10 +18722,10 @@
(top)
(top)
(top))
- ("151"
- "150"
- "14z"
- "14y"))
+ ("2u0"
+ "2tz"
+ "2ty"
+ "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -17608,6 +18758,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -17854,146 +19005,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -18001,7 +19154,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile)))
4)
#t
@@ -18013,7 +19168,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18022,18 +19177,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -18066,6 +19221,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -18312,152 +19468,154 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile)))
(if (if (= (vector-length
'#(syntax-object
@@ -18466,7 +19624,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x
@@ -18479,11 +19637,11 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
@@ -18493,10 +19651,10 @@
(top)
(top)
(top))
- ("151"
- "150"
- "14z"
- "14y"))
+ ("2u0"
+ "2tz"
+ "2ty"
+ "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -18529,6 +19687,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -18775,146 +19934,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -18922,7 +20083,9 @@
((top)
(top)
(top))
- ("8" "7" "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene guile)))
4)
#t
@@ -18934,7 +20097,7 @@
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -18943,18 +20106,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -18987,6 +20150,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -19233,161 +20397,163 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
pad
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19396,18 +20562,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -19440,6 +20606,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -19686,162 +20853,164 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
_
((top)
#(ribcage
#(pat exp)
#((top) (top))
- #("177" "178"))
+ #("2w6" "2w7"))
#(ribcage () () ())
#(ribcage
#(x keys clauses r mod)
@@ -19850,18 +21019,18 @@
(top)
(top)
(top))
- #("172"
- "173"
- "174"
- "175"
- "176"))
+ #("2w1"
+ "2w2"
+ "2w3"
+ "2w4"
+ "2w5"))
#(ribcage
(gen-syntax-case
gen-clause
build-dispatch-call
convert-pattern)
((top) (top) (top) (top))
- ("151" "150" "14z" "14y"))
+ ("2u0" "2tz" "2ty" "2tx"))
#(ribcage
(lambda-var-list
gen-var
@@ -19894,6 +21063,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -20140,286 +21310,319 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
- (#{expand 2778}#
- #{exp 9824}#
- #{r 9780}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{exp _85hotwsCta0JfYIjI4LmR}#
+ #{r _85hotwsCta0JfYIjI4Lll}#
'(())
- #{mod 9781}#)
- (let ((#{labels 10027}#
- (list (#{gen-label 2745}#)))
- (#{var 10028}#
- (let ((#{id 10066}#
- (if (if (vector? #{pat 9823}#)
+ #{mod _85hotwsCta0JfYIjI4Llm}#)
+ (let ((#{labels _85hotwsCta0JfYIjI4Lpc}#
+ (list (#{gen-label _85hotwsCta0JfYIjI4J3p}#)))
+ (#{var _85hotwsCta0JfYIjI4Lpd}#
+ (let ((#{id _85hotwsCta0JfYIjI4LqD}#
+ (if (if (vector?
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
(if (= (vector-length
- #{pat 9823}#)
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)
4)
(eq? (vector-ref
- #{pat 9823}#
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{pat 9823}# 1)
- #{pat 9823}#)))
+ (vector-ref
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
+ 1)
+ #{pat _85hotwsCta0JfYIjI4LmQ}#)))
(gensym
(string-append
- (symbol->string #{id 10066}#)
+ (symbol->string
+ #{id _85hotwsCta0JfYIjI4LqD}#)
" ")))))
- (#{build-application 2710}#
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
#f
- (#{build-simple-lambda 2719}#
+ (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}#
#f
- (list (syntax->datum #{pat 9823}#))
+ (list (syntax->datum
+ #{pat _85hotwsCta0JfYIjI4LmQ}#))
#f
- (list #{var 10028}#)
+ (list #{var _85hotwsCta0JfYIjI4Lpd}#)
'()
- (#{expand 2778}#
- #{exp 9824}#
- (#{extend-env 2737}#
- #{labels 10027}#
+ (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{exp _85hotwsCta0JfYIjI4LmR}#
+ (#{extend-env _85hotwsCta0JfYIjI4J3h}#
+ #{labels _85hotwsCta0JfYIjI4Lpc}#
(list (cons 'syntax
- (cons #{var 10028}# 0)))
- #{r 9780}#)
- (#{make-binding-wrap 2757}#
- (list #{pat 9823}#)
- #{labels 10027}#
+ (cons #{var _85hotwsCta0JfYIjI4Lpd}#
+ 0)))
+ #{r _85hotwsCta0JfYIjI4Lll}#)
+ (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}#
+ (list #{pat _85hotwsCta0JfYIjI4LmQ}#)
+ #{labels _85hotwsCta0JfYIjI4Lpc}#
'(()))
- #{mod 9781}#))
- (list #{x 9777}#))))
- (#{gen-clause 9377}#
- #{x 9777}#
- #{keys 9778}#
- (cdr #{clauses 9779}#)
- #{r 9780}#
- #{pat 9823}#
+ #{mod _85hotwsCta0JfYIjI4Llm}#))
+ (list #{x _85hotwsCta0JfYIjI4Lli}#))))
+ (#{gen-clause _85hotwsCta0JfYIjI4LfS}#
+ #{x _85hotwsCta0JfYIjI4Lli}#
+ #{keys _85hotwsCta0JfYIjI4Llj}#
+ (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#)
+ #{r _85hotwsCta0JfYIjI4Lll}#
+ #{pat _85hotwsCta0JfYIjI4LmQ}#
#t
- #{exp 9824}#
- #{mod 9781}#)))
- #{tmp 9821}#)
- (let ((#{tmp 10334}#
- ($sc-dispatch #{tmp 9820}# '(any any any))))
- (if #{tmp 10334}#
+ #{exp _85hotwsCta0JfYIjI4LmR}#
+ #{mod _85hotwsCta0JfYIjI4Llm}#)))
+ #{tmp _85hotwsCta0JfYIjI4LmO}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4LuP}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4LmN}#
+ '(any any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4LuP}#
(@apply
- (lambda (#{pat 10336}#
- #{fender 10337}#
- #{exp 10338}#)
- (#{gen-clause 9377}#
- #{x 9777}#
- #{keys 9778}#
- (cdr #{clauses 9779}#)
- #{r 9780}#
- #{pat 10336}#
- #{fender 10337}#
- #{exp 10338}#
- #{mod 9781}#))
- #{tmp 10334}#)
+ (lambda (#{pat _85hotwsCta0JfYIjI4LuR}#
+ #{fender _85hotwsCta0JfYIjI4LuS}#
+ #{exp _85hotwsCta0JfYIjI4LuT}#)
+ (#{gen-clause _85hotwsCta0JfYIjI4LfS}#
+ #{x _85hotwsCta0JfYIjI4Lli}#
+ #{keys _85hotwsCta0JfYIjI4Llj}#
+ (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#)
+ #{r _85hotwsCta0JfYIjI4Lll}#
+ #{pat _85hotwsCta0JfYIjI4LuR}#
+ #{fender _85hotwsCta0JfYIjI4LuS}#
+ #{exp _85hotwsCta0JfYIjI4LuT}#
+ #{mod _85hotwsCta0JfYIjI4Llm}#))
+ #{tmp _85hotwsCta0JfYIjI4LuP}#)
(syntax-violation
'syntax-case
"invalid clause"
- (car #{clauses 9779}#)))))))))))
- (lambda (#{e 9379}#
- #{r 9380}#
- #{w 9381}#
- #{s 9382}#
- #{mod 9383}#)
- (let ((#{e 9384}#
- (#{wrap 2771}#
+ (car #{clauses _85hotwsCta0JfYIjI4Llk}#)))))))))))
+ (lambda (#{e _85hotwsCta0JfYIjI4LfU}#
+ #{r _85hotwsCta0JfYIjI4LfV}#
+ #{w _85hotwsCta0JfYIjI4LfW}#
+ #{s _85hotwsCta0JfYIjI4LfX}#
+ #{mod _85hotwsCta0JfYIjI4LfY}#)
+ (let ((#{e _85hotwsCta0JfYIjI4LfZ}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
(begin
- (if (if (pair? #{e 9379}#) #{s 9382}# #f)
- (set-source-properties! #{e 9379}# #{s 9382}#))
- #{e 9379}#)
- #{w 9381}#
- #{mod 9383}#)))
- (let ((#{tmp 9386}#
+ (if (if (pair? #{e _85hotwsCta0JfYIjI4LfU}#)
+ #{s _85hotwsCta0JfYIjI4LfX}#
+ #f)
+ (set-source-properties!
+ #{e _85hotwsCta0JfYIjI4LfU}#
+ #{s _85hotwsCta0JfYIjI4LfX}#))
+ #{e _85hotwsCta0JfYIjI4LfU}#)
+ #{w _85hotwsCta0JfYIjI4LfW}#
+ #{mod _85hotwsCta0JfYIjI4LfY}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Lfb}#
($sc-dispatch
- #{e 9384}#
+ #{e _85hotwsCta0JfYIjI4LfZ}#
'(_ any each-any . each-any))))
- (if #{tmp 9386}#
+ (if #{tmp _85hotwsCta0JfYIjI4Lfb}#
(@apply
- (lambda (#{val 9411}# #{key 9412}# #{m 9413}#)
+ (lambda (#{val _85hotwsCta0JfYIjI4Lf0}#
+ #{key _85hotwsCta0JfYIjI4Lf1}#
+ #{m _85hotwsCta0JfYIjI4Lf2}#)
(if (and-map
- (lambda (#{x 9414}#)
- (if (if (symbol? #{x 9414}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Lf3}#)
+ (if (if (symbol? #{x _85hotwsCta0JfYIjI4Lf3}#)
#t
- (if (if (vector? #{x 9414}#)
- (if (= (vector-length #{x 9414}#) 4)
- (eq? (vector-ref #{x 9414}# 0)
+ (if (if (vector?
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
+ (if (= (vector-length
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
+ 4)
+ (eq? (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lf3}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 9414}# 1))
+ (symbol?
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lf3}#
+ 1))
#f))
- (not (if (if (if (vector? #{x 9414}#)
+ (not (if (if (if (vector?
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
(if (= (vector-length
- #{x 9414}#)
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
4)
- (eq? (vector-ref #{x 9414}# 0)
+ (eq? (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lf3}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 9414}# 1))
+ (symbol?
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lf3}#
+ 1))
#f)
- (if (eq? (if (if (vector? #{x 9414}#)
+ (if (eq? (if (if (vector?
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
(if (= (vector-length
- #{x 9414}#)
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
4)
(eq? (vector-ref
- #{x 9414}#
+ #{x _85hotwsCta0JfYIjI4Lf3}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{x 9414}# 1)
- #{x 9414}#)
+ (vector-ref
+ #{x _85hotwsCta0JfYIjI4Lf3}#
+ 1)
+ #{x _85hotwsCta0JfYIjI4Lf3}#)
(if (if (= (vector-length
'#(syntax-object
...
@@ -20435,7 +21638,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -20468,6 +21671,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -20714,146 +21918,148 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
@@ -20861,9 +22067,9 @@
((top)
(top)
(top))
- ("8"
- "7"
- "6")))
+ ("1og"
+ "1of"
+ "1oe")))
(hygiene
guile)))
4)
@@ -20878,7 +22084,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -20911,6 +22117,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -21157,157 +22364,159 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))))
- (eq? (#{id-var-name 2762}#
- #{x 9414}#
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{x _85hotwsCta0JfYIjI4Lf3}#
'(()))
- (#{id-var-name 2762}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
'#(syntax-object
...
((top)
@@ -21316,7 +22525,7 @@
#(ribcage
#(x)
#((top))
- #("of"))
+ #("2de"))
#(ribcage
(lambda-var-list
gen-var
@@ -21349,6 +22558,7 @@
with-transformer-environment
transformer-environment
resolve-identifier
+ locally-bound-identifiers
id-var-name
same-marks?
join-marks
@@ -21595,851 +22805,1026 @@
(top)
(top)
(top)
+ (top)
(top))
- ("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"))
+ ("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"))
#(ribcage
(define-structure
define-expansion-accessors
define-expansion-constructors)
((top) (top) (top))
- ("8" "7" "6")))
+ ("1og" "1of" "1oe")))
(hygiene guile))
'(())))
#f)
#f))
#f))
- #{key 9412}#)
- (let ((#{x 9540}#
+ #{key _85hotwsCta0JfYIjI4Lf1}#)
+ (let ((#{x _85hotwsCta0JfYIjI4Lh1}#
(gensym
(string-append (symbol->string 'tmp) " "))))
- (#{build-application 2710}#
- #{s 9382}#
- (let ((#{req 9670}# (list 'tmp))
- (#{vars 9672}# (list #{x 9540}#))
- (#{exp 9674}#
- (#{gen-syntax-case 9378}#
+ (#{build-application _85hotwsCta0JfYIjI4J3G}#
+ #{s _85hotwsCta0JfYIjI4LfX}#
+ (let ((#{req _85hotwsCta0JfYIjI4Lj3}# (list 'tmp))
+ (#{vars _85hotwsCta0JfYIjI4Lj5}#
+ (list #{x _85hotwsCta0JfYIjI4Lh1}#))
+ (#{exp _85hotwsCta0JfYIjI4Lj7}#
+ (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}#
(make-struct/no-tail
(vector-ref %expanded-vtables 3)
#f
'tmp
- #{x 9540}#)
- #{key 9412}#
- #{m 9413}#
- #{r 9380}#
- #{mod 9383}#)))
- (let ((#{body 9679}#
+ #{x _85hotwsCta0JfYIjI4Lh1}#)
+ #{key _85hotwsCta0JfYIjI4Lf1}#
+ #{m _85hotwsCta0JfYIjI4Lf2}#
+ #{r _85hotwsCta0JfYIjI4LfV}#
+ #{mod _85hotwsCta0JfYIjI4LfY}#)))
+ (let ((#{body _85hotwsCta0JfYIjI4LkA}#
(make-struct/no-tail
(vector-ref %expanded-vtables 14)
#f
- #{req 9670}#
+ #{req _85hotwsCta0JfYIjI4Lj3}#
#f
#f
#f
'()
- #{vars 9672}#
- #{exp 9674}#
+ #{vars _85hotwsCta0JfYIjI4Lj5}#
+ #{exp _85hotwsCta0JfYIjI4Lj7}#
#f)))
(make-struct/no-tail
(vector-ref %expanded-vtables 13)
#f
'()
- #{body 9679}#)))
- (list (#{expand 2778}#
- #{val 9411}#
- #{r 9380}#
+ #{body _85hotwsCta0JfYIjI4LkA}#)))
+ (list (#{expand _85hotwsCta0JfYIjI4J4L}#
+ #{val _85hotwsCta0JfYIjI4Lf0}#
+ #{r _85hotwsCta0JfYIjI4LfV}#
'(())
- #{mod 9383}#))))
+ #{mod _85hotwsCta0JfYIjI4LfY}#))))
(syntax-violation
'syntax-case
"invalid literals list"
- #{e 9384}#)))
- #{tmp 9386}#)
+ #{e _85hotwsCta0JfYIjI4LfZ}#)))
+ #{tmp _85hotwsCta0JfYIjI4Lfb}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e 9384}#)))))))
+ #{e _85hotwsCta0JfYIjI4LfZ}#)))))))
(set! macroexpand
(lambda*
- (#{x 12087}#
+ (#{x _85hotwsCta0JfYIjI4MJo}#
#:optional
- (#{m 12088}# 'e)
- (#{esew 12089}# '(eval)))
- (#{expand-top-sequence 2774}#
- (list #{x 12087}#)
+ (#{m _85hotwsCta0JfYIjI4MJp}# 'e)
+ (#{esew _85hotwsCta0JfYIjI4MJq}# '(eval)))
+ (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}#
+ (list #{x _85hotwsCta0JfYIjI4MJo}#)
'()
'((top))
#f
- #{m 12088}#
- #{esew 12089}#
+ #{m _85hotwsCta0JfYIjI4MJp}#
+ #{esew _85hotwsCta0JfYIjI4MJq}#
(cons 'hygiene (module-name (current-module))))))
(set! identifier?
- (lambda (#{x 12092}#)
- (if (if (vector? #{x 12092}#)
- (if (= (vector-length #{x 12092}#) 4)
- (eq? (vector-ref #{x 12092}# 0) 'syntax-object)
+ (lambda (#{x _85hotwsCta0JfYIjI4MJt}#)
+ (if (if (vector? #{x _85hotwsCta0JfYIjI4MJt}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4MJt}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12092}# 1))
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 1))
#f)))
(set! datum->syntax
- (lambda (#{id 12117}# #{datum 12118}#)
- (let ((#{wrap 12123}# (vector-ref #{id 12117}# 2))
- (#{module 12124}# (vector-ref #{id 12117}# 3)))
+ (lambda (#{id _85hotwsCta0JfYIjI4MKG}#
+ #{datum _85hotwsCta0JfYIjI4MKH}#)
+ (let ((#{wrap _85hotwsCta0JfYIjI4MKM}#
+ (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 2))
+ (#{module _85hotwsCta0JfYIjI4MKN}#
+ (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 3)))
(vector
'syntax-object
- #{datum 12118}#
- #{wrap 12123}#
- #{module 12124}#))))
+ #{datum _85hotwsCta0JfYIjI4MKH}#
+ #{wrap _85hotwsCta0JfYIjI4MKM}#
+ #{module _85hotwsCta0JfYIjI4MKN}#))))
(set! syntax->datum
- (lambda (#{x 12131}#)
- (#{strip 2791}# #{x 12131}# '(()))))
+ (lambda (#{x _85hotwsCta0JfYIjI4MKU}#)
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{x _85hotwsCta0JfYIjI4MKU}#
+ '(()))))
(set! syntax-source
- (lambda (#{x 12134}#)
- (#{source-annotation 2736}# #{x 12134}#)))
+ (lambda (#{x _85hotwsCta0JfYIjI4MKX}#)
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ #{x _85hotwsCta0JfYIjI4MKX}#)))
(set! syntax-local-binding
- (lambda (#{id 12287}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4MMw}#)
(begin
- (if (not (if (if (vector? #{id 12287}#)
- (if (= (vector-length #{id 12287}#) 4)
- (eq? (vector-ref #{id 12287}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{id _85hotwsCta0JfYIjI4MMw}#)
+ (if (= (vector-length #{id _85hotwsCta0JfYIjI4MMw}#)
+ 4)
+ (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{id 12287}# 1))
+ (symbol?
+ (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1))
#f))
(syntax-violation
- 'syntax-local-value
+ 'syntax-local-binding
"invalid argument"
- #{id 12287}#))
- ((fluid-ref #{transformer-environment 2764}#)
- (lambda (#{e 12328}#
- #{r 12329}#
- #{w 12330}#
- #{s 12331}#
- #{rib 12332}#
- #{mod 12333}#)
+ #{id _85hotwsCta0JfYIjI4MMw}#))
+ ((fluid-ref
+ #{transformer-environment _85hotwsCta0JfYIjI4J39}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4MNZ}#
+ #{r _85hotwsCta0JfYIjI4MNa}#
+ #{w _85hotwsCta0JfYIjI4MNb}#
+ #{s _85hotwsCta0JfYIjI4MNc}#
+ #{rib _85hotwsCta0JfYIjI4MNd}#
+ #{mod _85hotwsCta0JfYIjI4MNe}#)
(call-with-values
(lambda ()
- (let ((#{id 12336}# (vector-ref #{id 12287}# 1))
- (#{w 12337}#
- (let ((#{w 12348}# (vector-ref #{id 12287}# 2)))
- (let ((#{ms 12349}# (car #{w 12348}#))
- (#{s 12350}# (cdr #{w 12348}#)))
- (if (if (pair? #{ms 12349}#)
- (eq? (car #{ms 12349}#) #f)
+ (let ((#{id _85hotwsCta0JfYIjI4MNh}#
+ (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1))
+ (#{w _85hotwsCta0JfYIjI4MNi}#
+ (let ((#{w _85hotwsCta0JfYIjI4MNt}#
+ (vector-ref
+ #{id _85hotwsCta0JfYIjI4MMw}#
+ 2)))
+ (let ((#{ms _85hotwsCta0JfYIjI4MNu}#
+ (car #{w _85hotwsCta0JfYIjI4MNt}#))
+ (#{s _85hotwsCta0JfYIjI4MNv}#
+ (cdr #{w _85hotwsCta0JfYIjI4MNt}#)))
+ (if (if (pair? #{ms _85hotwsCta0JfYIjI4MNu}#)
+ (eq? (car #{ms _85hotwsCta0JfYIjI4MNu}#)
+ #f)
#f)
- (cons (cdr #{ms 12349}#)
- (if #{rib 12332}#
- (cons #{rib 12332}# (cdr #{s 12350}#))
- (cdr #{s 12350}#)))
- (cons #{ms 12349}#
- (if #{rib 12332}#
- (cons #{rib 12332}# #{s 12350}#)
- #{s 12350}#))))))
- (#{mod 12339}# (vector-ref #{id 12287}# 3)))
- (let ((#{n 12342}#
- (#{id-var-name 2762}# #{id 12336}# #{w 12337}#)))
- (if (symbol? #{n 12342}#)
- (let ((#{mod 12356}#
- (if (if (vector? #{id 12336}#)
- (if (= (vector-length #{id 12336}#) 4)
- (eq? (vector-ref #{id 12336}# 0)
+ (cons (cdr #{ms _85hotwsCta0JfYIjI4MNu}#)
+ (if #{rib _85hotwsCta0JfYIjI4MNd}#
+ (cons #{rib _85hotwsCta0JfYIjI4MNd}#
+ (cdr #{s _85hotwsCta0JfYIjI4MNv}#))
+ (cdr #{s _85hotwsCta0JfYIjI4MNv}#)))
+ (cons #{ms _85hotwsCta0JfYIjI4MNu}#
+ (if #{rib _85hotwsCta0JfYIjI4MNd}#
+ (cons #{rib _85hotwsCta0JfYIjI4MNd}#
+ #{s _85hotwsCta0JfYIjI4MNv}#)
+ #{s _85hotwsCta0JfYIjI4MNv}#))))))
+ (#{mod _85hotwsCta0JfYIjI4MNk}#
+ (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 3)))
+ (let ((#{n _85hotwsCta0JfYIjI4MNn}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{id _85hotwsCta0JfYIjI4MNh}#
+ #{w _85hotwsCta0JfYIjI4MNi}#)))
+ (if (symbol? #{n _85hotwsCta0JfYIjI4MNn}#)
+ (let ((#{mod _85hotwsCta0JfYIjI4MN1}#
+ (if (if (vector?
+ #{id _85hotwsCta0JfYIjI4MNh}#)
+ (if (= (vector-length
+ #{id _85hotwsCta0JfYIjI4MNh}#)
+ 4)
+ (eq? (vector-ref
+ #{id _85hotwsCta0JfYIjI4MNh}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 12336}# 3)
- #{mod 12339}#)))
- (let ((#{b 12357}#
- (let ((#{t 12358}#
- (#{get-global-definition-hook 2706}#
- #{n 12342}#
- #{mod 12356}#)))
- (if #{t 12358}# #{t 12358}# '(global)))))
- (if (eq? (car #{b 12357}#) 'global)
- (values 'global #{n 12342}# #{mod 12356}#)
+ (vector-ref #{id _85hotwsCta0JfYIjI4MNh}# 3)
+ #{mod _85hotwsCta0JfYIjI4MNk}#)))
+ (let ((#{b _85hotwsCta0JfYIjI4MN2}#
+ (let ((#{t _85hotwsCta0JfYIjI4MN3}#
+ (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}#
+ #{n _85hotwsCta0JfYIjI4MNn}#
+ #{mod _85hotwsCta0JfYIjI4MN1}#)))
+ (if #{t _85hotwsCta0JfYIjI4MN3}#
+ #{t _85hotwsCta0JfYIjI4MN3}#
+ '(global)))))
+ (if (eq? (car #{b _85hotwsCta0JfYIjI4MN2}#)
+ 'global)
+ (values
+ 'global
+ #{n _85hotwsCta0JfYIjI4MNn}#
+ #{mod _85hotwsCta0JfYIjI4MN1}#)
(values
- (car #{b 12357}#)
- (cdr #{b 12357}#)
- #{mod 12356}#))))
- (if (string? #{n 12342}#)
- (let ((#{mod 12384}#
- (if (if (vector? #{id 12336}#)
- (if (= (vector-length #{id 12336}#) 4)
- (eq? (vector-ref #{id 12336}# 0)
+ (car #{b _85hotwsCta0JfYIjI4MN2}#)
+ (cdr #{b _85hotwsCta0JfYIjI4MN2}#)
+ #{mod _85hotwsCta0JfYIjI4MN1}#))))
+ (if (string? #{n _85hotwsCta0JfYIjI4MNn}#)
+ (let ((#{mod _85hotwsCta0JfYIjI4MOR}#
+ (if (if (vector?
+ #{id _85hotwsCta0JfYIjI4MNh}#)
+ (if (= (vector-length
+ #{id _85hotwsCta0JfYIjI4MNh}#)
+ 4)
+ (eq? (vector-ref
+ #{id _85hotwsCta0JfYIjI4MNh}#
+ 0)
'syntax-object)
#f)
#f)
- (vector-ref #{id 12336}# 3)
- #{mod 12339}#)))
- (let ((#{b 12385}#
- (let ((#{t 12386}#
+ (vector-ref
+ #{id _85hotwsCta0JfYIjI4MNh}#
+ 3)
+ #{mod _85hotwsCta0JfYIjI4MNk}#)))
+ (let ((#{b _85hotwsCta0JfYIjI4MOS}#
+ (let ((#{t _85hotwsCta0JfYIjI4MOT}#
(assq-ref
- #{r 12329}#
- #{n 12342}#)))
- (if #{t 12386}#
- #{t 12386}#
+ #{r _85hotwsCta0JfYIjI4MNa}#
+ #{n _85hotwsCta0JfYIjI4MNn}#)))
+ (if #{t _85hotwsCta0JfYIjI4MOT}#
+ #{t _85hotwsCta0JfYIjI4MOT}#
'(displaced-lexical)))))
(values
- (car #{b 12385}#)
- (cdr #{b 12385}#)
- #{mod 12384}#)))
+ (car #{b _85hotwsCta0JfYIjI4MOS}#)
+ (cdr #{b _85hotwsCta0JfYIjI4MOS}#)
+ #{mod _85hotwsCta0JfYIjI4MOR}#)))
(error "unexpected id-var-name"
- #{id 12336}#
- #{w 12337}#
- #{n 12342}#))))))
- (lambda (#{type 12399}# #{value 12400}# #{mod 12401}#)
- (if (eqv? #{type 12399}# 'lexical)
- (values 'lexical #{value 12400}#)
- (if (eqv? #{type 12399}# 'macro)
- (values 'macro #{value 12400}#)
- (if (eqv? #{type 12399}# 'syntax)
- (values 'pattern-variable #{value 12400}#)
- (if (eqv? #{type 12399}# 'displaced-lexical)
+ #{id _85hotwsCta0JfYIjI4MNh}#
+ #{w _85hotwsCta0JfYIjI4MNi}#
+ #{n _85hotwsCta0JfYIjI4MNn}#))))))
+ (lambda (#{type _85hotwsCta0JfYIjI4MOg}#
+ #{value _85hotwsCta0JfYIjI4MOh}#
+ #{mod _85hotwsCta0JfYIjI4MOi}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'lexical)
+ (values
+ 'lexical
+ #{value _85hotwsCta0JfYIjI4MOh}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'macro)
+ (values 'macro #{value _85hotwsCta0JfYIjI4MOh}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'syntax)
+ (values
+ 'pattern-variable
+ #{value _85hotwsCta0JfYIjI4MOh}#)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}#
+ 'displaced-lexical)
(values 'displaced-lexical #f)
- (if (eqv? #{type 12399}# 'global)
+ (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'global)
(values
'global
- (cons #{value 12400}# #{mod 12401}#))
+ (cons #{value _85hotwsCta0JfYIjI4MOh}#
+ (cdr #{mod _85hotwsCta0JfYIjI4MOi}#)))
(values 'other #f)))))))))))))
+ (set! syntax-locally-bound-identifiers
+ (lambda (#{x _85hotwsCta0JfYIjI4MOt}#)
+ (begin
+ (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MOt}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4MOt}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 0)
+ 'syntax-object)
+ #f)
+ #f)
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 1))
+ #f))
+ (syntax-violation
+ 'syntax-locally-bound-identifiers
+ "invalid argument"
+ #{x _85hotwsCta0JfYIjI4MOt}#))
+ (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}#
+ (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 2)
+ (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 3)))))
(set! generate-temporaries
- (lambda (#{ls 12412}#)
+ (lambda (#{ls _85hotwsCta0JfYIjI4MQY}#)
(begin
- (if (not (list? #{ls 12412}#))
+ (if (not (list? #{ls _85hotwsCta0JfYIjI4MQY}#))
(syntax-violation
'generate-temporaries
"invalid argument"
- #{ls 12412}#))
- (let ((#{mod 12420}#
+ #{ls _85hotwsCta0JfYIjI4MQY}#))
+ (let ((#{mod _85hotwsCta0JfYIjI4MQg}#
(cons 'hygiene (module-name (current-module)))))
- (map (lambda (#{x 12421}#)
- (#{wrap 2771}# (gensym) '((top)) #{mod 12420}#))
- #{ls 12412}#)))))
+ (map (lambda (#{x _85hotwsCta0JfYIjI4MQh}#)
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (gensym)
+ '((top))
+ #{mod _85hotwsCta0JfYIjI4MQg}#))
+ #{ls _85hotwsCta0JfYIjI4MQY}#)))))
(set! free-identifier=?
- (lambda (#{x 12425}# #{y 12426}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4MQl}#
+ #{y _85hotwsCta0JfYIjI4MQm}#)
(begin
- (if (not (if (if (vector? #{x 12425}#)
- (if (= (vector-length #{x 12425}#) 4)
- (eq? (vector-ref #{x 12425}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12425}# 1))
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{x 12425}#))
- (if (not (if (if (vector? #{y 12426}#)
- (if (= (vector-length #{y 12426}#) 4)
- (eq? (vector-ref #{y 12426}# 0) 'syntax-object)
+ #{x _85hotwsCta0JfYIjI4MQl}#))
+ (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#)
+ (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#)
+ 4)
+ (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 12426}# 1))
+ (symbol?
+ (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1))
#f))
(syntax-violation
'free-identifier=?
"invalid argument"
- #{y 12426}#))
- (if (eq? (if (if (vector? #{x 12425}#)
- (if (= (vector-length #{x 12425}#) 4)
- (eq? (vector-ref #{x 12425}# 0) 'syntax-object)
+ #{y _85hotwsCta0JfYIjI4MQm}#))
+ (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{x 12425}# 1)
- #{x 12425}#)
- (if (if (vector? #{y 12426}#)
- (if (= (vector-length #{y 12426}#) 4)
- (eq? (vector-ref #{y 12426}# 0) 'syntax-object)
+ (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1)
+ #{x _85hotwsCta0JfYIjI4MQl}#)
+ (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#)
+ (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#)
+ 4)
+ (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0)
+ 'syntax-object)
#f)
#f)
- (vector-ref #{y 12426}# 1)
- #{y 12426}#))
- (eq? (#{id-var-name 2762}# #{x 12425}# '(()))
- (#{id-var-name 2762}# #{y 12426}# '(())))
+ (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1)
+ #{y _85hotwsCta0JfYIjI4MQm}#))
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{x _85hotwsCta0JfYIjI4MQl}#
+ '(()))
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{y _85hotwsCta0JfYIjI4MQm}#
+ '(())))
#f))))
(set! bound-identifier=?
- (lambda (#{x 12576}# #{y 12577}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4MS8}#
+ #{y _85hotwsCta0JfYIjI4MS9}#)
(begin
- (if (not (if (if (vector? #{x 12576}#)
- (if (= (vector-length #{x 12576}#) 4)
- (eq? (vector-ref #{x 12576}# 0) 'syntax-object)
+ (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{x 12576}# 1))
+ (symbol?
+ (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{x 12576}#))
- (if (not (if (if (vector? #{y 12577}#)
- (if (= (vector-length #{y 12577}#) 4)
- (eq? (vector-ref #{y 12577}# 0) 'syntax-object)
+ #{x _85hotwsCta0JfYIjI4MS8}#))
+ (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#)
+ (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#)
+ 4)
+ (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0)
+ 'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{y 12577}# 1))
+ (symbol?
+ (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1))
#f))
(syntax-violation
'bound-identifier=?
"invalid argument"
- #{y 12577}#))
- (if (if (if (vector? #{x 12576}#)
- (if (= (vector-length #{x 12576}#) 4)
- (eq? (vector-ref #{x 12576}# 0) 'syntax-object)
+ #{y _85hotwsCta0JfYIjI4MS9}#))
+ (if (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#)
+ (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#)
+ 4)
+ (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0)
+ 'syntax-object)
#f)
#f)
- (if (vector? #{y 12577}#)
- (if (= (vector-length #{y 12577}#) 4)
- (eq? (vector-ref #{y 12577}# 0) 'syntax-object)
+ (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#)
+ (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#)
+ 4)
+ (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0)
+ 'syntax-object)
#f)
#f)
#f)
- (if (eq? (vector-ref #{x 12576}# 1)
- (vector-ref #{y 12577}# 1))
- (#{same-marks? 2761}#
- (car (vector-ref #{x 12576}# 2))
- (car (vector-ref #{y 12577}# 2)))
+ (if (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1)
+ (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1))
+ (#{same-marks? _85hotwsCta0JfYIjI4J35}#
+ (car (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 2))
+ (car (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 2)))
#f)
- (eq? #{x 12576}# #{y 12577}#)))))
+ (eq? #{x _85hotwsCta0JfYIjI4MS8}#
+ #{y _85hotwsCta0JfYIjI4MS9}#)))))
(set! syntax-violation
(lambda*
- (#{who 12710}#
- #{message 12711}#
- #{form 12712}#
+ (#{who _85hotwsCta0JfYIjI4MVC}#
+ #{message _85hotwsCta0JfYIjI4MVD}#
+ #{form _85hotwsCta0JfYIjI4MVE}#
#:optional
- (#{subform 12713}# #f))
+ (#{subform _85hotwsCta0JfYIjI4MVF}# #f))
(begin
- (if (not (if (not #{who 12710}#)
- (not #{who 12710}#)
- (let ((#{t 12731}# (string? #{who 12710}#)))
- (if #{t 12731}#
- #{t 12731}#
- (symbol? #{who 12710}#)))))
+ (if (not (if (not #{who _85hotwsCta0JfYIjI4MVC}#)
+ (not #{who _85hotwsCta0JfYIjI4MVC}#)
+ (let ((#{t _85hotwsCta0JfYIjI4MVX}#
+ (string? #{who _85hotwsCta0JfYIjI4MVC}#)))
+ (if #{t _85hotwsCta0JfYIjI4MVX}#
+ #{t _85hotwsCta0JfYIjI4MVX}#
+ (symbol? #{who _85hotwsCta0JfYIjI4MVC}#)))))
(syntax-violation
'syntax-violation
"invalid argument"
- #{who 12710}#))
- (if (not (string? #{message 12711}#))
+ #{who _85hotwsCta0JfYIjI4MVC}#))
+ (if (not (string? #{message _85hotwsCta0JfYIjI4MVD}#))
(syntax-violation
'syntax-violation
"invalid argument"
- #{message 12711}#))
+ #{message _85hotwsCta0JfYIjI4MVD}#))
(throw 'syntax-error
- #{who 12710}#
- #{message 12711}#
- (#{source-annotation 2736}#
- (if #{form 12712}#
- #{form 12712}#
- #{subform 12713}#))
- (#{strip 2791}# #{form 12712}# '(()))
- (if #{subform 12713}#
- (#{strip 2791}# #{subform 12713}# '(()))
+ #{who _85hotwsCta0JfYIjI4MVC}#
+ #{message _85hotwsCta0JfYIjI4MVD}#
+ (#{source-annotation _85hotwsCta0JfYIjI4J3g}#
+ (if #{form _85hotwsCta0JfYIjI4MVE}#
+ #{form _85hotwsCta0JfYIjI4MVE}#
+ #{subform _85hotwsCta0JfYIjI4MVF}#))
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{form _85hotwsCta0JfYIjI4MVE}#
+ '(()))
+ (if #{subform _85hotwsCta0JfYIjI4MVF}#
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{subform _85hotwsCta0JfYIjI4MVF}#
+ '(()))
#f)))))
(letrec*
- ((#{match-each 12934}#
- (lambda (#{e 13521}#
- #{p 13522}#
- #{w 13523}#
- #{mod 13524}#)
- (if (pair? #{e 13521}#)
- (let ((#{first 13525}#
- (#{match 12940}#
- (car #{e 13521}#)
- #{p 13522}#
- #{w 13523}#
+ ((#{match-each _85hotwsCta0JfYIjI4MYi}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Mht}#
+ #{p _85hotwsCta0JfYIjI4Mhu}#
+ #{w _85hotwsCta0JfYIjI4Mhv}#
+ #{mod _85hotwsCta0JfYIjI4Mhw}#)
+ (if (pair? #{e _85hotwsCta0JfYIjI4Mht}#)
+ (let ((#{first _85hotwsCta0JfYIjI4Mhx}#
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (car #{e _85hotwsCta0JfYIjI4Mht}#)
+ #{p _85hotwsCta0JfYIjI4Mhu}#
+ #{w _85hotwsCta0JfYIjI4Mhv}#
'()
- #{mod 13524}#)))
- (if #{first 13525}#
- (let ((#{rest 13528}#
- (#{match-each 12934}#
- (cdr #{e 13521}#)
- #{p 13522}#
- #{w 13523}#
- #{mod 13524}#)))
- (if #{rest 13528}#
- (cons #{first 13525}# #{rest 13528}#)
+ #{mod _85hotwsCta0JfYIjI4Mhw}#)))
+ (if #{first _85hotwsCta0JfYIjI4Mhx}#
+ (let ((#{rest _85hotwsCta0JfYIjI4Mh0}#
+ (#{match-each _85hotwsCta0JfYIjI4MYi}#
+ (cdr #{e _85hotwsCta0JfYIjI4Mht}#)
+ #{p _85hotwsCta0JfYIjI4Mhu}#
+ #{w _85hotwsCta0JfYIjI4Mhv}#
+ #{mod _85hotwsCta0JfYIjI4Mhw}#)))
+ (if #{rest _85hotwsCta0JfYIjI4Mh0}#
+ (cons #{first _85hotwsCta0JfYIjI4Mhx}#
+ #{rest _85hotwsCta0JfYIjI4Mh0}#)
#f))
#f))
- (if (null? #{e 13521}#)
+ (if (null? #{e _85hotwsCta0JfYIjI4Mht}#)
'()
- (if (if (vector? #{e 13521}#)
- (if (= (vector-length #{e 13521}#) 4)
- (eq? (vector-ref #{e 13521}# 0) 'syntax-object)
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4Mht}#)
+ (if (= (vector-length #{e _85hotwsCta0JfYIjI4Mht}#)
+ 4)
+ (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match-each 12934}#
- (vector-ref #{e 13521}# 1)
- #{p 13522}#
- (#{join-wraps 2759}#
- #{w 13523}#
- (vector-ref #{e 13521}# 2))
- (vector-ref #{e 13521}# 3))
+ (#{match-each _85hotwsCta0JfYIjI4MYi}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 1)
+ #{p _85hotwsCta0JfYIjI4Mhu}#
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4Mhv}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 2))
+ (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 3))
#f)))))
- (#{match-each-any 12936}#
- (lambda (#{e 13556}# #{w 13557}# #{mod 13558}#)
- (if (pair? #{e 13556}#)
- (let ((#{l 13559}#
- (#{match-each-any 12936}#
- (cdr #{e 13556}#)
- #{w 13557}#
- #{mod 13558}#)))
- (if #{l 13559}#
- (cons (#{wrap 2771}#
- (car #{e 13556}#)
- #{w 13557}#
- #{mod 13558}#)
- #{l 13559}#)
+ (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
+ (lambda (#{e _85hotwsCta0JfYIjI4MiQ}#
+ #{w _85hotwsCta0JfYIjI4MiR}#
+ #{mod _85hotwsCta0JfYIjI4MiS}#)
+ (if (pair? #{e _85hotwsCta0JfYIjI4MiQ}#)
+ (let ((#{l _85hotwsCta0JfYIjI4MiT}#
+ (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
+ (cdr #{e _85hotwsCta0JfYIjI4MiQ}#)
+ #{w _85hotwsCta0JfYIjI4MiR}#
+ #{mod _85hotwsCta0JfYIjI4MiS}#)))
+ (if #{l _85hotwsCta0JfYIjI4MiT}#
+ (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ (car #{e _85hotwsCta0JfYIjI4MiQ}#)
+ #{w _85hotwsCta0JfYIjI4MiR}#
+ #{mod _85hotwsCta0JfYIjI4MiS}#)
+ #{l _85hotwsCta0JfYIjI4MiT}#)
#f))
- (if (null? #{e 13556}#)
+ (if (null? #{e _85hotwsCta0JfYIjI4MiQ}#)
'()
- (if (if (vector? #{e 13556}#)
- (if (= (vector-length #{e 13556}#) 4)
- (eq? (vector-ref #{e 13556}# 0) 'syntax-object)
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4MiQ}#)
+ (if (= (vector-length #{e _85hotwsCta0JfYIjI4MiQ}#)
+ 4)
+ (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match-each-any 12936}#
- (vector-ref #{e 13556}# 1)
- (#{join-wraps 2759}#
- #{w 13557}#
- (vector-ref #{e 13556}# 2))
- #{mod 13558}#)
+ (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 1)
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4MiR}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 2))
+ #{mod _85hotwsCta0JfYIjI4MiS}#)
#f)))))
- (#{match-empty 12937}#
- (lambda (#{p 13583}# #{r 13584}#)
- (if (null? #{p 13583}#)
- #{r 13584}#
- (if (eq? #{p 13583}# '_)
- #{r 13584}#
- (if (eq? #{p 13583}# 'any)
- (cons '() #{r 13584}#)
- (if (pair? #{p 13583}#)
- (#{match-empty 12937}#
- (car #{p 13583}#)
- (#{match-empty 12937}#
- (cdr #{p 13583}#)
- #{r 13584}#))
- (if (eq? #{p 13583}# 'each-any)
- (cons '() #{r 13584}#)
- (let ((#{atom-key 13585}# (vector-ref #{p 13583}# 0)))
- (if (eqv? #{atom-key 13585}# 'each)
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 1)
- #{r 13584}#)
- (if (eqv? #{atom-key 13585}# 'each+)
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 1)
- (#{match-empty 12937}#
- (reverse (vector-ref #{p 13583}# 2))
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 3)
- #{r 13584}#)))
- (if (if (eqv? #{atom-key 13585}# 'free-id)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (lambda (#{p _85hotwsCta0JfYIjI4Mir}#
+ #{r _85hotwsCta0JfYIjI4Mis}#)
+ (if (null? #{p _85hotwsCta0JfYIjI4Mir}#)
+ #{r _85hotwsCta0JfYIjI4Mis}#
+ (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# '_)
+ #{r _85hotwsCta0JfYIjI4Mis}#
+ (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# 'any)
+ (cons '() #{r _85hotwsCta0JfYIjI4Mis}#)
+ (if (pair? #{p _85hotwsCta0JfYIjI4Mir}#)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (car #{p _85hotwsCta0JfYIjI4Mir}#)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (cdr #{p _85hotwsCta0JfYIjI4Mir}#)
+ #{r _85hotwsCta0JfYIjI4Mis}#))
+ (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# 'each-any)
+ (cons '() #{r _85hotwsCta0JfYIjI4Mis}#)
+ (let ((#{atom-key _85hotwsCta0JfYIjI4Mit}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 0)))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# 'each)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1)
+ #{r _85hotwsCta0JfYIjI4Mis}#)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ 'each+)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (reverse
+ (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 2))
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 3)
+ #{r _85hotwsCta0JfYIjI4Mis}#)))
+ (if (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ 'free-id)
#t
- (eqv? #{atom-key 13585}# 'atom))
- #{r 13584}#
- (if (eqv? #{atom-key 13585}# 'vector)
- (#{match-empty 12937}#
- (vector-ref #{p 13583}# 1)
- #{r 13584}#)))))))))))))
- (#{combine 12938}#
- (lambda (#{r* 13604}# #{r 13605}#)
- (if (null? (car #{r* 13604}#))
- #{r 13605}#
- (cons (map car #{r* 13604}#)
- (#{combine 12938}#
- (map cdr #{r* 13604}#)
- #{r 13605}#)))))
- (#{match* 12939}#
- (lambda (#{e 12969}#
- #{p 12970}#
- #{w 12971}#
- #{r 12972}#
- #{mod 12973}#)
- (if (null? #{p 12970}#)
- (if (null? #{e 12969}#) #{r 12972}# #f)
- (if (pair? #{p 12970}#)
- (if (pair? #{e 12969}#)
- (#{match 12940}#
- (car #{e 12969}#)
- (car #{p 12970}#)
- #{w 12971}#
- (#{match 12940}#
- (cdr #{e 12969}#)
- (cdr #{p 12970}#)
- #{w 12971}#
- #{r 12972}#
- #{mod 12973}#)
- #{mod 12973}#)
+ (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ 'atom))
+ #{r _85hotwsCta0JfYIjI4Mis}#
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}#
+ 'vector)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1)
+ #{r _85hotwsCta0JfYIjI4Mis}#)))))))))))))
+ (#{combine _85hotwsCta0JfYIjI4MYm}#
+ (lambda (#{r* _85hotwsCta0JfYIjI4MjA}#
+ #{r _85hotwsCta0JfYIjI4MjB}#)
+ (if (null? (car #{r* _85hotwsCta0JfYIjI4MjA}#))
+ #{r _85hotwsCta0JfYIjI4MjB}#
+ (cons (map car #{r* _85hotwsCta0JfYIjI4MjA}#)
+ (#{combine _85hotwsCta0JfYIjI4MYm}#
+ (map cdr #{r* _85hotwsCta0JfYIjI4MjA}#)
+ #{r _85hotwsCta0JfYIjI4MjB}#)))))
+ (#{match* _85hotwsCta0JfYIjI4MYn}#
+ (lambda (#{e _85hotwsCta0JfYIjI4MZF}#
+ #{p _85hotwsCta0JfYIjI4MZG}#
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ #{r _85hotwsCta0JfYIjI4MZI}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)
+ (if (null? #{p _85hotwsCta0JfYIjI4MZG}#)
+ (if (null? #{e _85hotwsCta0JfYIjI4MZF}#)
+ #{r _85hotwsCta0JfYIjI4MZI}#
+ #f)
+ (if (pair? #{p _85hotwsCta0JfYIjI4MZG}#)
+ (if (pair? #{e _85hotwsCta0JfYIjI4MZF}#)
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (car #{e _85hotwsCta0JfYIjI4MZF}#)
+ (car #{p _85hotwsCta0JfYIjI4MZG}#)
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (cdr #{e _85hotwsCta0JfYIjI4MZF}#)
+ (cdr #{p _85hotwsCta0JfYIjI4MZG}#)
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ #{r _85hotwsCta0JfYIjI4MZI}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)
#f)
- (if (eq? #{p 12970}# 'each-any)
- (let ((#{l 12978}#
- (#{match-each-any 12936}#
- #{e 12969}#
- #{w 12971}#
- #{mod 12973}#)))
- (if #{l 12978}#
- (cons #{l 12978}# #{r 12972}#)
+ (if (eq? #{p _85hotwsCta0JfYIjI4MZG}# 'each-any)
+ (let ((#{l _85hotwsCta0JfYIjI4MZO}#
+ (#{match-each-any _85hotwsCta0JfYIjI4MYk}#
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)))
+ (if #{l _85hotwsCta0JfYIjI4MZO}#
+ (cons #{l _85hotwsCta0JfYIjI4MZO}#
+ #{r _85hotwsCta0JfYIjI4MZI}#)
#f))
- (let ((#{atom-key 12983}# (vector-ref #{p 12970}# 0)))
- (if (eqv? #{atom-key 12983}# 'each)
- (if (null? #{e 12969}#)
- (#{match-empty 12937}#
- (vector-ref #{p 12970}# 1)
- #{r 12972}#)
- (let ((#{l 12990}#
- (#{match-each 12934}#
- #{e 12969}#
- (vector-ref #{p 12970}# 1)
- #{w 12971}#
- #{mod 12973}#)))
- (if #{l 12990}#
+ (let ((#{atom-key _85hotwsCta0JfYIjI4MZT}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 0)))
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each)
+ (if (null? #{e _85hotwsCta0JfYIjI4MZF}#)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
+ #{r _85hotwsCta0JfYIjI4MZI}#)
+ (let ((#{l _85hotwsCta0JfYIjI4MZa}#
+ (#{match-each _85hotwsCta0JfYIjI4MYi}#
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)))
+ (if #{l _85hotwsCta0JfYIjI4MZa}#
(letrec*
- ((#{collect 12993}#
- (lambda (#{l 13044}#)
- (if (null? (car #{l 13044}#))
- #{r 12972}#
- (cons (map car #{l 13044}#)
- (#{collect 12993}#
- (map cdr #{l 13044}#)))))))
- (#{collect 12993}# #{l 12990}#))
+ ((#{collect _85hotwsCta0JfYIjI4MZd}#
+ (lambda (#{l _85hotwsCta0JfYIjI4MaQ}#)
+ (if (null? (car #{l _85hotwsCta0JfYIjI4MaQ}#))
+ #{r _85hotwsCta0JfYIjI4MZI}#
+ (cons (map car
+ #{l _85hotwsCta0JfYIjI4MaQ}#)
+ (#{collect _85hotwsCta0JfYIjI4MZd}#
+ (map cdr
+ #{l _85hotwsCta0JfYIjI4MaQ}#)))))))
+ (#{collect _85hotwsCta0JfYIjI4MZd}#
+ #{l _85hotwsCta0JfYIjI4MZa}#))
#f)))
- (if (eqv? #{atom-key 12983}# 'each+)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each+)
(call-with-values
(lambda ()
- (let ((#{x-pat 13053}# (vector-ref #{p 12970}# 1))
- (#{y-pat 13054}# (vector-ref #{p 12970}# 2))
- (#{z-pat 13055}#
- (vector-ref #{p 12970}# 3)))
+ (let ((#{x-pat _85hotwsCta0JfYIjI4MaZ}#
+ (vector-ref
+ #{p _85hotwsCta0JfYIjI4MZG}#
+ 1))
+ (#{y-pat _85hotwsCta0JfYIjI4Maa}#
+ (vector-ref
+ #{p _85hotwsCta0JfYIjI4MZG}#
+ 2))
+ (#{z-pat _85hotwsCta0JfYIjI4Mab}#
+ (vector-ref
+ #{p _85hotwsCta0JfYIjI4MZG}#
+ 3)))
(letrec*
- ((#{f 13059}#
- (lambda (#{e 13061}# #{w 13062}#)
- (if (pair? #{e 13061}#)
+ ((#{f _85hotwsCta0JfYIjI4Maf}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Mah}#
+ #{w _85hotwsCta0JfYIjI4Mai}#)
+ (if (pair? #{e _85hotwsCta0JfYIjI4Mah}#)
(call-with-values
(lambda ()
- (#{f 13059}#
- (cdr #{e 13061}#)
- #{w 13062}#))
- (lambda (#{xr* 13063}#
- #{y-pat 13064}#
- #{r 13065}#)
- (if #{r 13065}#
- (if (null? #{y-pat 13064}#)
- (let ((#{xr 13066}#
- (#{match 12940}#
- (car #{e 13061}#)
- #{x-pat 13053}#
- #{w 13062}#
+ (#{f _85hotwsCta0JfYIjI4Maf}#
+ (cdr #{e _85hotwsCta0JfYIjI4Mah}#)
+ #{w _85hotwsCta0JfYIjI4Mai}#))
+ (lambda (#{xr* _85hotwsCta0JfYIjI4Maj}#
+ #{y-pat _85hotwsCta0JfYIjI4Mak}#
+ #{r _85hotwsCta0JfYIjI4Mal}#)
+ (if #{r _85hotwsCta0JfYIjI4Mal}#
+ (if (null? #{y-pat _85hotwsCta0JfYIjI4Mak}#)
+ (let ((#{xr _85hotwsCta0JfYIjI4Mam}#
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (car #{e _85hotwsCta0JfYIjI4Mah}#)
+ #{x-pat _85hotwsCta0JfYIjI4MaZ}#
+ #{w _85hotwsCta0JfYIjI4Mai}#
'()
- #{mod 12973}#)))
- (if #{xr 13066}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)))
+ (if #{xr _85hotwsCta0JfYIjI4Mam}#
(values
- (cons #{xr 13066}#
- #{xr* 13063}#)
- #{y-pat 13064}#
- #{r 13065}#)
+ (cons #{xr _85hotwsCta0JfYIjI4Mam}#
+ #{xr* _85hotwsCta0JfYIjI4Maj}#)
+ #{y-pat _85hotwsCta0JfYIjI4Mak}#
+ #{r _85hotwsCta0JfYIjI4Mal}#)
(values #f #f #f)))
(values
'()
- (cdr #{y-pat 13064}#)
- (#{match 12940}#
- (car #{e 13061}#)
- (car #{y-pat 13064}#)
- #{w 13062}#
- #{r 13065}#
- #{mod 12973}#)))
+ (cdr #{y-pat _85hotwsCta0JfYIjI4Mak}#)
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (car #{e _85hotwsCta0JfYIjI4Mah}#)
+ (car #{y-pat _85hotwsCta0JfYIjI4Mak}#)
+ #{w _85hotwsCta0JfYIjI4Mai}#
+ #{r _85hotwsCta0JfYIjI4Mal}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)))
(values #f #f #f))))
- (if (if (vector? #{e 13061}#)
+ (if (if (vector?
+ #{e _85hotwsCta0JfYIjI4Mah}#)
(if (= (vector-length
- #{e 13061}#)
+ #{e _85hotwsCta0JfYIjI4Mah}#)
4)
- (eq? (vector-ref #{e 13061}# 0)
+ (eq? (vector-ref
+ #{e _85hotwsCta0JfYIjI4Mah}#
+ 0)
'syntax-object)
#f)
#f)
- (#{f 13059}#
- (vector-ref #{e 13061}# 1)
- (#{join-wraps 2759}#
- #{w 13062}#
- #{e 13061}#))
+ (#{f _85hotwsCta0JfYIjI4Maf}#
+ (vector-ref
+ #{e _85hotwsCta0JfYIjI4Mah}#
+ 1)
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4Mai}#
+ #{e _85hotwsCta0JfYIjI4Mah}#))
(values
'()
- #{y-pat 13054}#
- (#{match 12940}#
- #{e 13061}#
- #{z-pat 13055}#
- #{w 13062}#
- #{r 12972}#
- #{mod 12973}#)))))))
- (#{f 13059}# #{e 12969}# #{w 12971}#))))
- (lambda (#{xr* 13092}# #{y-pat 13093}# #{r 13094}#)
- (if #{r 13094}#
- (if (null? #{y-pat 13093}#)
- (if (null? #{xr* 13092}#)
- (#{match-empty 12937}#
- (vector-ref #{p 12970}# 1)
- #{r 13094}#)
- (#{combine 12938}#
- #{xr* 13092}#
- #{r 13094}#))
+ #{y-pat _85hotwsCta0JfYIjI4Maa}#
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ #{e _85hotwsCta0JfYIjI4Mah}#
+ #{z-pat _85hotwsCta0JfYIjI4Mab}#
+ #{w _85hotwsCta0JfYIjI4Mai}#
+ #{r _85hotwsCta0JfYIjI4MZI}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)))))))
+ (#{f _85hotwsCta0JfYIjI4Maf}#
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ #{w _85hotwsCta0JfYIjI4MZH}#))))
+ (lambda (#{xr* _85hotwsCta0JfYIjI4MbA}#
+ #{y-pat _85hotwsCta0JfYIjI4MbB}#
+ #{r _85hotwsCta0JfYIjI4MbC}#)
+ (if #{r _85hotwsCta0JfYIjI4MbC}#
+ (if (null? #{y-pat _85hotwsCta0JfYIjI4MbB}#)
+ (if (null? #{xr* _85hotwsCta0JfYIjI4MbA}#)
+ (#{match-empty _85hotwsCta0JfYIjI4MYl}#
+ (vector-ref
+ #{p _85hotwsCta0JfYIjI4MZG}#
+ 1)
+ #{r _85hotwsCta0JfYIjI4MbC}#)
+ (#{combine _85hotwsCta0JfYIjI4MYm}#
+ #{xr* _85hotwsCta0JfYIjI4MbA}#
+ #{r _85hotwsCta0JfYIjI4MbC}#))
#f)
#f)))
- (if (eqv? #{atom-key 12983}# 'free-id)
- (if (if (symbol? #{e 12969}#)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}#
+ 'free-id)
+ (if (if (symbol? #{e _85hotwsCta0JfYIjI4MZF}#)
#t
- (if (if (vector? #{e 12969}#)
- (if (= (vector-length #{e 12969}#) 4)
- (eq? (vector-ref #{e 12969}# 0)
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#)
+ (if (= (vector-length
+ #{e _85hotwsCta0JfYIjI4MZF}#)
+ 4)
+ (eq? (vector-ref
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ 0)
'syntax-object)
#f)
#f)
- (symbol? (vector-ref #{e 12969}# 1))
+ (symbol?
+ (vector-ref
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ 1))
#f))
- (if (let ((#{i 13425}#
- (#{wrap 2771}#
- #{e 12969}#
- #{w 12971}#
- #{mod 12973}#))
- (#{j 13426}#
- (vector-ref #{p 12970}# 1)))
- (if (eq? (if (if (vector? #{i 13425}#)
+ (if (let ((#{i _85hotwsCta0JfYIjI4MgN}#
+ (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#))
+ (#{j _85hotwsCta0JfYIjI4MgO}#
+ (vector-ref
+ #{p _85hotwsCta0JfYIjI4MZG}#
+ 1)))
+ (if (eq? (if (if (vector?
+ #{i _85hotwsCta0JfYIjI4MgN}#)
(if (= (vector-length
- #{i 13425}#)
+ #{i _85hotwsCta0JfYIjI4MgN}#)
4)
(eq? (vector-ref
- #{i 13425}#
+ #{i _85hotwsCta0JfYIjI4MgN}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{i 13425}# 1)
- #{i 13425}#)
- (if (if (vector? #{j 13426}#)
+ (vector-ref
+ #{i _85hotwsCta0JfYIjI4MgN}#
+ 1)
+ #{i _85hotwsCta0JfYIjI4MgN}#)
+ (if (if (vector?
+ #{j _85hotwsCta0JfYIjI4MgO}#)
(if (= (vector-length
- #{j 13426}#)
+ #{j _85hotwsCta0JfYIjI4MgO}#)
4)
(eq? (vector-ref
- #{j 13426}#
+ #{j _85hotwsCta0JfYIjI4MgO}#
0)
'syntax-object)
#f)
#f)
- (vector-ref #{j 13426}# 1)
- #{j 13426}#))
- (eq? (#{id-var-name 2762}#
- #{i 13425}#
+ (vector-ref
+ #{j _85hotwsCta0JfYIjI4MgO}#
+ 1)
+ #{j _85hotwsCta0JfYIjI4MgO}#))
+ (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{i _85hotwsCta0JfYIjI4MgN}#
'(()))
- (#{id-var-name 2762}#
- #{j 13426}#
+ (#{id-var-name _85hotwsCta0JfYIjI4J36}#
+ #{j _85hotwsCta0JfYIjI4MgO}#
'(())))
#f))
- #{r 12972}#
+ #{r _85hotwsCta0JfYIjI4MZI}#
#f)
#f)
- (if (eqv? #{atom-key 12983}# 'atom)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'atom)
(if (equal?
- (vector-ref #{p 12970}# 1)
- (#{strip 2791}# #{e 12969}# #{w 12971}#))
- #{r 12972}#
+ (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
+ (#{strip _85hotwsCta0JfYIjI4J4Y}#
+ #{e _85hotwsCta0JfYIjI4MZF}#
+ #{w _85hotwsCta0JfYIjI4MZH}#))
+ #{r _85hotwsCta0JfYIjI4MZI}#
#f)
- (if (eqv? #{atom-key 12983}# 'vector)
- (if (vector? #{e 12969}#)
- (#{match 12940}#
- (vector->list #{e 12969}#)
- (vector-ref #{p 12970}# 1)
- #{w 12971}#
- #{r 12972}#
- #{mod 12973}#)
+ (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}#
+ 'vector)
+ (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#)
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (vector->list #{e _85hotwsCta0JfYIjI4MZF}#)
+ (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1)
+ #{w _85hotwsCta0JfYIjI4MZH}#
+ #{r _85hotwsCta0JfYIjI4MZI}#
+ #{mod _85hotwsCta0JfYIjI4MZJ}#)
#f))))))))))))
- (#{match 12940}#
- (lambda (#{e 13486}#
- #{p 13487}#
- #{w 13488}#
- #{r 13489}#
- #{mod 13490}#)
- (if (not #{r 13489}#)
+ (#{match _85hotwsCta0JfYIjI4MYo}#
+ (lambda (#{e _85hotwsCta0JfYIjI4MhK}#
+ #{p _85hotwsCta0JfYIjI4MhL}#
+ #{w _85hotwsCta0JfYIjI4MhM}#
+ #{r _85hotwsCta0JfYIjI4MhN}#
+ #{mod _85hotwsCta0JfYIjI4MhO}#)
+ (if (not #{r _85hotwsCta0JfYIjI4MhN}#)
#f
- (if (eq? #{p 13487}# '_)
- #{r 13489}#
- (if (eq? #{p 13487}# 'any)
- (cons (#{wrap 2771}#
- #{e 13486}#
- #{w 13488}#
- #{mod 13490}#)
- #{r 13489}#)
- (if (if (vector? #{e 13486}#)
- (if (= (vector-length #{e 13486}#) 4)
- (eq? (vector-ref #{e 13486}# 0) 'syntax-object)
+ (if (eq? #{p _85hotwsCta0JfYIjI4MhL}# '_)
+ #{r _85hotwsCta0JfYIjI4MhN}#
+ (if (eq? #{p _85hotwsCta0JfYIjI4MhL}# 'any)
+ (cons (#{wrap _85hotwsCta0JfYIjI4J4E}#
+ #{e _85hotwsCta0JfYIjI4MhK}#
+ #{w _85hotwsCta0JfYIjI4MhM}#
+ #{mod _85hotwsCta0JfYIjI4MhO}#)
+ #{r _85hotwsCta0JfYIjI4MhN}#)
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4MhK}#)
+ (if (= (vector-length #{e _85hotwsCta0JfYIjI4MhK}#)
+ 4)
+ (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match* 12939}#
- (vector-ref #{e 13486}# 1)
- #{p 13487}#
- (#{join-wraps 2759}#
- #{w 13488}#
- (vector-ref #{e 13486}# 2))
- #{r 13489}#
- (vector-ref #{e 13486}# 3))
- (#{match* 12939}#
- #{e 13486}#
- #{p 13487}#
- #{w 13488}#
- #{r 13489}#
- #{mod 13490}#))))))))
+ (#{match* _85hotwsCta0JfYIjI4MYn}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 1)
+ #{p _85hotwsCta0JfYIjI4MhL}#
+ (#{join-wraps _85hotwsCta0JfYIjI4J33}#
+ #{w _85hotwsCta0JfYIjI4MhM}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 2))
+ #{r _85hotwsCta0JfYIjI4MhN}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 3))
+ (#{match* _85hotwsCta0JfYIjI4MYn}#
+ #{e _85hotwsCta0JfYIjI4MhK}#
+ #{p _85hotwsCta0JfYIjI4MhL}#
+ #{w _85hotwsCta0JfYIjI4MhM}#
+ #{r _85hotwsCta0JfYIjI4MhN}#
+ #{mod _85hotwsCta0JfYIjI4MhO}#))))))))
(set! $sc-dispatch
- (lambda (#{e 12941}# #{p 12942}#)
- (if (eq? #{p 12942}# 'any)
- (list #{e 12941}#)
- (if (eq? #{p 12942}# '_)
+ (lambda (#{e _85hotwsCta0JfYIjI4MYp}#
+ #{p _85hotwsCta0JfYIjI4MYq}#)
+ (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# 'any)
+ (list #{e _85hotwsCta0JfYIjI4MYp}#)
+ (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# '_)
'()
- (if (if (vector? #{e 12941}#)
- (if (= (vector-length #{e 12941}#) 4)
- (eq? (vector-ref #{e 12941}# 0) 'syntax-object)
+ (if (if (vector? #{e _85hotwsCta0JfYIjI4MYp}#)
+ (if (= (vector-length #{e _85hotwsCta0JfYIjI4MYp}#)
+ 4)
+ (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 0)
+ 'syntax-object)
#f)
#f)
- (#{match* 12939}#
- (vector-ref #{e 12941}# 1)
- #{p 12942}#
- (vector-ref #{e 12941}# 2)
+ (#{match* _85hotwsCta0JfYIjI4MYn}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 1)
+ #{p _85hotwsCta0JfYIjI4MYq}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 2)
'()
- (vector-ref #{e 12941}# 3))
- (#{match* 12939}#
- #{e 12941}#
- #{p 12942}#
+ (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 3))
+ (#{match* _85hotwsCta0JfYIjI4MYn}#
+ #{e _85hotwsCta0JfYIjI4MYp}#
+ #{p _85hotwsCta0JfYIjI4MYq}#
'(())
'()
#f))))))))))
@@ -22448,76 +23833,82 @@
(make-syntax-transformer
'with-syntax
'macro
- (lambda (#{x 24645}#)
- (let ((#{tmp 24647}#
- ($sc-dispatch #{x 24645}# '(_ () any . each-any))))
- (if #{tmp 24647}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PUl}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PUn}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4PUl}#
+ '(_ () any . each-any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PUn}#
(@apply
- (lambda (#{e1 24651}# #{e2 24652}#)
+ (lambda (#{e1 _85hotwsCta0JfYIjI4PUr}#
+ #{e2 _85hotwsCta0JfYIjI4PUs}#)
(cons '#(syntax-object
let
((top)
- #(ribcage #(e1 e2) #((top) (top)) #("1al" "1am"))
+ #(ribcage #(e1 e2) #((top) (top)) #("2zm" "2zn"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("2zl")))
(hygiene guile))
- (cons '() (cons #{e1 24651}# #{e2 24652}#))))
- #{tmp 24647}#)
- (let ((#{tmp 24653}#
+ (cons '()
+ (cons #{e1 _85hotwsCta0JfYIjI4PUr}#
+ #{e2 _85hotwsCta0JfYIjI4PUs}#))))
+ #{tmp _85hotwsCta0JfYIjI4PUn}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PUt}#
($sc-dispatch
- #{x 24645}#
+ #{x _85hotwsCta0JfYIjI4PUl}#
'(_ ((any any)) any . each-any))))
- (if #{tmp 24653}#
+ (if #{tmp _85hotwsCta0JfYIjI4PUt}#
(@apply
- (lambda (#{out 24657}#
- #{in 24658}#
- #{e1 24659}#
- #{e2 24660}#)
+ (lambda (#{out _85hotwsCta0JfYIjI4PUx}#
+ #{in _85hotwsCta0JfYIjI4PUy}#
+ #{e1 _85hotwsCta0JfYIjI4PUz}#
+ #{e2 _85hotwsCta0JfYIjI4PU0}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1an" "1ao" "1ap" "1aq"))
+ #("2zo" "2zp" "2zq" "2zr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("2zl")))
(hygiene guile))
- #{in 24658}#
+ #{in _85hotwsCta0JfYIjI4PUy}#
'()
- (list #{out 24657}#
+ (list #{out _85hotwsCta0JfYIjI4PUx}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1an" "1ao" "1ap" "1aq"))
+ #("2zo" "2zp" "2zq" "2zr"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("2zl")))
(hygiene guile))
(cons '()
- (cons #{e1 24659}# #{e2 24660}#))))))
- #{tmp 24653}#)
- (let ((#{tmp 24661}#
+ (cons #{e1 _85hotwsCta0JfYIjI4PUz}#
+ #{e2 _85hotwsCta0JfYIjI4PU0}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PUt}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PU1}#
($sc-dispatch
- #{x 24645}#
+ #{x _85hotwsCta0JfYIjI4PUl}#
'(_ #(each (any any)) any . each-any))))
- (if #{tmp 24661}#
+ (if #{tmp _85hotwsCta0JfYIjI4PU1}#
(@apply
- (lambda (#{out 24665}#
- #{in 24666}#
- #{e1 24667}#
- #{e2 24668}#)
+ (lambda (#{out _85hotwsCta0JfYIjI4PU5}#
+ #{in _85hotwsCta0JfYIjI4PU6}#
+ #{e1 _85hotwsCta0JfYIjI4PU7}#
+ #{e2 _85hotwsCta0JfYIjI4PU8}#)
(list '#(syntax-object
syntax-case
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1ar" "1as" "1at" "1au"))
+ #("2zs" "2zt" "2zu" "2zv"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("2zl")))
(hygiene guile))
(cons '#(syntax-object
list
@@ -22525,56 +23916,56 @@
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1ar" "1as" "1at" "1au"))
+ #("2zs" "2zt" "2zu" "2zv"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("2zl")))
(hygiene guile))
- #{in 24666}#)
+ #{in _85hotwsCta0JfYIjI4PU6}#)
'()
- (list #{out 24665}#
+ (list #{out _85hotwsCta0JfYIjI4PU5}#
(cons '#(syntax-object
let
((top)
#(ribcage
#(out in e1 e2)
#((top) (top) (top) (top))
- #("1ar" "1as" "1at" "1au"))
+ #("2zs" "2zt" "2zu" "2zv"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ak")))
+ #(ribcage #(x) #((top)) #("2zl")))
(hygiene guile))
(cons '()
- (cons #{e1 24667}#
- #{e2 24668}#))))))
- #{tmp 24661}#)
+ (cons #{e1 _85hotwsCta0JfYIjI4PU7}#
+ #{e2 _85hotwsCta0JfYIjI4PU8}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PU1}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24645}#))))))))))
+ #{x _85hotwsCta0JfYIjI4PUl}#))))))))))
(define syntax-rules
(make-syntax-transformer
'syntax-rules
'macro
- (lambda (#{x 24707}#)
- (let ((#{tmp 24709}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PVj}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PVl}#
($sc-dispatch
- #{x 24707}#
+ #{x _85hotwsCta0JfYIjI4PVj}#
'(_ each-any . #(each ((any . any) any))))))
- (if #{tmp 24709}#
+ (if #{tmp _85hotwsCta0JfYIjI4PVl}#
(@apply
- (lambda (#{k 24713}#
- #{keyword 24714}#
- #{pattern 24715}#
- #{template 24716}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4PVp}#
+ #{keyword _85hotwsCta0JfYIjI4PVq}#
+ #{pattern _85hotwsCta0JfYIjI4PVr}#
+ #{template _85hotwsCta0JfYIjI4PVs}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
'(#(syntax-object
x
@@ -22582,9 +23973,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile)))
(vector
'(#(syntax-object
@@ -22593,9 +23984,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
.
#(syntax-object
@@ -22604,9 +23995,9 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22614,20 +24005,20 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
- #{pattern 24715}#))
+ #{pattern _85hotwsCta0JfYIjI4PVr}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22635,13 +24026,13 @@
#(ribcage
#(k keyword pattern template)
#((top) (top) (top) (top))
- #("1aw" "1ax" "1ay" "1az"))
+ #("2zx" "2zy" "2zz" "300"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
- (cons #{k 24713}#
- (map (lambda (#{tmp 24691 24717}#
- #{tmp 24690 24718}#)
+ (cons #{k _85hotwsCta0JfYIjI4PVp}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}#
+ #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22654,10 +24045,10 @@
(top)
(top)
(top))
- #("1aw"
- "1ax"
- "1ay"
- "1az"))
+ #("2zx"
+ "2zy"
+ "2zz"
+ "300"))
#(ribcage
()
()
@@ -22665,9 +24056,9 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("2zw")))
(hygiene guile))
- #{tmp 24690 24718}#)
+ #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#)
(list '#(syntax-object
syntax
((top)
@@ -22680,10 +24071,10 @@
(top)
(top)
(top))
- #("1aw"
- "1ax"
- "1ay"
- "1az"))
+ #("2zx"
+ "2zy"
+ "2zz"
+ "300"))
#(ribcage
()
()
@@ -22691,41 +24082,43 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("2zw")))
(hygiene guile))
- #{tmp 24691 24717}#)))
- #{template 24716}#
- #{pattern 24715}#))))))
- #{tmp 24709}#)
- (let ((#{tmp 24719}#
+ #{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}#)))
+ #{template _85hotwsCta0JfYIjI4PVs}#
+ #{pattern _85hotwsCta0JfYIjI4PVr}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PVl}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PVv}#
($sc-dispatch
- #{x 24707}#
+ #{x _85hotwsCta0JfYIjI4PVj}#
'(_ each-any any . #(each ((any . any) any))))))
- (if (if #{tmp 24719}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4PVv}#
(@apply
- (lambda (#{k 24723}#
- #{docstring 24724}#
- #{keyword 24725}#
- #{pattern 24726}#
- #{template 24727}#)
- (string? (syntax->datum #{docstring 24724}#)))
- #{tmp 24719}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4PVz}#
+ #{docstring _85hotwsCta0JfYIjI4PV0}#
+ #{keyword _85hotwsCta0JfYIjI4PV1}#
+ #{pattern _85hotwsCta0JfYIjI4PV2}#
+ #{template _85hotwsCta0JfYIjI4PV3}#)
+ (string?
+ (syntax->datum
+ #{docstring _85hotwsCta0JfYIjI4PV0}#)))
+ #{tmp _85hotwsCta0JfYIjI4PVv}#)
#f)
(@apply
- (lambda (#{k 24728}#
- #{docstring 24729}#
- #{keyword 24730}#
- #{pattern 24731}#
- #{template 24732}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4PV4}#
+ #{docstring _85hotwsCta0JfYIjI4PV5}#
+ #{keyword _85hotwsCta0JfYIjI4PV6}#
+ #{pattern _85hotwsCta0JfYIjI4PV7}#
+ #{template _85hotwsCta0JfYIjI4PV8}#)
(list '#(syntax-object
lambda
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
'(#(syntax-object
x
@@ -22733,11 +24126,11 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile)))
- #{docstring 24729}#
+ #{docstring _85hotwsCta0JfYIjI4PV5}#
(vector
'(#(syntax-object
macro-type
@@ -22745,9 +24138,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
.
#(syntax-object
@@ -22756,9 +24149,9 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile)))
(cons '#(syntax-object
patterns
@@ -22766,20 +24159,20 @@
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
- #{pattern 24731}#))
+ #{pattern _85hotwsCta0JfYIjI4PV7}#))
(cons '#(syntax-object
syntax-case
((top)
#(ribcage
#(k docstring keyword pattern template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
(cons '#(syntax-object
x
@@ -22791,13 +24184,13 @@
pattern
template)
#((top) (top) (top) (top) (top))
- #("1b5" "1b6" "1b7" "1b8" "1b9"))
+ #("306" "307" "308" "309" "30a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1av")))
+ #(ribcage #(x) #((top)) #("2zw")))
(hygiene guile))
- (cons #{k 24728}#
- (map (lambda (#{tmp 24706 24733}#
- #{tmp 24705 24734}#)
+ (cons #{k _85hotwsCta0JfYIjI4PV4}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}#
+ #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#)
(list (cons '#(syntax-object
dummy
((top)
@@ -22812,11 +24205,11 @@
(top)
(top)
(top))
- #("1b5"
- "1b6"
- "1b7"
- "1b8"
- "1b9"))
+ #("306"
+ "307"
+ "308"
+ "309"
+ "30a"))
#(ribcage
()
()
@@ -22824,10 +24217,10 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("2zw")))
(hygiene
guile))
- #{tmp 24705 24734}#)
+ #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#)
(list '#(syntax-object
syntax
((top)
@@ -22842,11 +24235,11 @@
(top)
(top)
(top))
- #("1b5"
- "1b6"
- "1b7"
- "1b8"
- "1b9"))
+ #("306"
+ "307"
+ "308"
+ "309"
+ "30a"))
#(ribcage
()
()
@@ -22854,50 +24247,52 @@
#(ribcage
#(x)
#((top))
- #("1av")))
+ #("2zw")))
(hygiene
guile))
- #{tmp 24706 24733}#)))
- #{template 24732}#
- #{pattern 24731}#))))))
- #{tmp 24719}#)
+ #{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}#)))
+ #{template _85hotwsCta0JfYIjI4PV8}#
+ #{pattern _85hotwsCta0JfYIjI4PV7}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PVv}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24707}#))))))))
+ #{x _85hotwsCta0JfYIjI4PVj}#))))))))
(define define-syntax-rule
(make-syntax-transformer
'define-syntax-rule
'macro
- (lambda (#{x 24759}#)
- (let ((#{tmp 24761}#
- ($sc-dispatch #{x 24759}# '(_ (any . any) any))))
- (if #{tmp 24761}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PWX}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PWZ}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4PWX}#
+ '(_ (any . any) any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PWZ}#
(@apply
- (lambda (#{name 24765}#
- #{pattern 24766}#
- #{template 24767}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4PWd}#
+ #{pattern _85hotwsCta0JfYIjI4PWe}#
+ #{template _85hotwsCta0JfYIjI4PWf}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1bb" "1bc" "1bd"))
+ #("30c" "30d" "30e"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("30b")))
(hygiene guile))
- #{name 24765}#
+ #{name _85hotwsCta0JfYIjI4PWd}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1bb" "1bc" "1bd"))
+ #("30c" "30d" "30e"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("30b")))
(hygiene guile))
'()
(list (cons '#(syntax-object
@@ -22906,54 +24301,56 @@
#(ribcage
#(name pattern template)
#((top) (top) (top))
- #("1bb" "1bc" "1bd"))
+ #("30c" "30d" "30e"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("30b")))
(hygiene guile))
- #{pattern 24766}#)
- #{template 24767}#))))
- #{tmp 24761}#)
- (let ((#{tmp 24768}#
+ #{pattern _85hotwsCta0JfYIjI4PWe}#)
+ #{template _85hotwsCta0JfYIjI4PWf}#))))
+ #{tmp _85hotwsCta0JfYIjI4PWZ}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PWg}#
($sc-dispatch
- #{x 24759}#
+ #{x _85hotwsCta0JfYIjI4PWX}#
'(_ (any . any) any any))))
- (if (if #{tmp 24768}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4PWg}#
(@apply
- (lambda (#{name 24772}#
- #{pattern 24773}#
- #{docstring 24774}#
- #{template 24775}#)
- (string? (syntax->datum #{docstring 24774}#)))
- #{tmp 24768}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4PWk}#
+ #{pattern _85hotwsCta0JfYIjI4PWl}#
+ #{docstring _85hotwsCta0JfYIjI4PWm}#
+ #{template _85hotwsCta0JfYIjI4PWn}#)
+ (string?
+ (syntax->datum
+ #{docstring _85hotwsCta0JfYIjI4PWm}#)))
+ #{tmp _85hotwsCta0JfYIjI4PWg}#)
#f)
(@apply
- (lambda (#{name 24776}#
- #{pattern 24777}#
- #{docstring 24778}#
- #{template 24779}#)
+ (lambda (#{name _85hotwsCta0JfYIjI4PWo}#
+ #{pattern _85hotwsCta0JfYIjI4PWp}#
+ #{docstring _85hotwsCta0JfYIjI4PWq}#
+ #{template _85hotwsCta0JfYIjI4PWr}#)
(list '#(syntax-object
define-syntax
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1bi" "1bj" "1bk" "1bl"))
+ #("30j" "30k" "30l" "30m"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("30b")))
(hygiene guile))
- #{name 24776}#
+ #{name _85hotwsCta0JfYIjI4PWo}#
(list '#(syntax-object
syntax-rules
((top)
#(ribcage
#(name pattern docstring template)
#((top) (top) (top) (top))
- #("1bi" "1bj" "1bk" "1bl"))
+ #("30j" "30k" "30l" "30m"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ba")))
+ #(ribcage #(x) #((top)) #("30b")))
(hygiene guile))
'()
- #{docstring 24778}#
+ #{docstring _85hotwsCta0JfYIjI4PWq}#
(list (cons '#(syntax-object
_
((top)
@@ -22963,50 +24360,52 @@
docstring
template)
#((top) (top) (top) (top))
- #("1bi" "1bj" "1bk" "1bl"))
+ #("30j" "30k" "30l" "30m"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1ba")))
+ #("30b")))
(hygiene guile))
- #{pattern 24777}#)
- #{template 24779}#))))
- #{tmp 24768}#)
+ #{pattern _85hotwsCta0JfYIjI4PWp}#)
+ #{template _85hotwsCta0JfYIjI4PWr}#))))
+ #{tmp _85hotwsCta0JfYIjI4PWg}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24759}#))))))))
+ #{x _85hotwsCta0JfYIjI4PWX}#))))))))
(define let*
(make-syntax-transformer
'let*
'macro
- (lambda (#{x 24813}#)
- (let ((#{tmp 24815}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PXN}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PXP}#
($sc-dispatch
- #{x 24813}#
+ #{x _85hotwsCta0JfYIjI4PXN}#
'(any #(each (any any)) any . each-any))))
- (if (if #{tmp 24815}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4PXP}#
(@apply
- (lambda (#{let* 24819}#
- #{x 24820}#
- #{v 24821}#
- #{e1 24822}#
- #{e2 24823}#)
- (and-map identifier? #{x 24820}#))
- #{tmp 24815}#)
+ (lambda (#{let* _85hotwsCta0JfYIjI4PXT}#
+ #{x _85hotwsCta0JfYIjI4PXU}#
+ #{v _85hotwsCta0JfYIjI4PXV}#
+ #{e1 _85hotwsCta0JfYIjI4PXW}#
+ #{e2 _85hotwsCta0JfYIjI4PXX}#)
+ (and-map
+ identifier?
+ #{x _85hotwsCta0JfYIjI4PXU}#))
+ #{tmp _85hotwsCta0JfYIjI4PXP}#)
#f)
(@apply
- (lambda (#{let* 24824}#
- #{x 24825}#
- #{v 24826}#
- #{e1 24827}#
- #{e2 24828}#)
+ (lambda (#{let* _85hotwsCta0JfYIjI4PXY}#
+ #{x _85hotwsCta0JfYIjI4PXZ}#
+ #{v _85hotwsCta0JfYIjI4PXa}#
+ #{e1 _85hotwsCta0JfYIjI4PXb}#
+ #{e2 _85hotwsCta0JfYIjI4PXc}#)
(letrec*
- ((#{f 24829}#
- (lambda (#{bindings 24832}#)
- (if (null? #{bindings 24832}#)
+ ((#{f _85hotwsCta0JfYIjI4PXd}#
+ (lambda (#{bindings _85hotwsCta0JfYIjI4PXg}#)
+ (if (null? #{bindings _85hotwsCta0JfYIjI4PXg}#)
(cons '#(syntax-object
let
((top)
@@ -23014,23 +24413,29 @@
#(ribcage
#(f bindings)
#((top) (top))
- #("1bx" "1by"))
+ #("30y" "30z"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1bs" "1bt" "1bu" "1bv" "1bw"))
+ #("30t" "30u" "30v" "30w" "30x"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bm")))
+ #(ribcage #(x) #((top)) #("30n")))
(hygiene guile))
- (cons '() (cons #{e1 24827}# #{e2 24828}#)))
- (let ((#{tmp 24833}#
- (list (#{f 24829}# (cdr #{bindings 24832}#))
- (car #{bindings 24832}#))))
- (let ((#{tmp 24834}#
- ($sc-dispatch #{tmp 24833}# '(any any))))
- (if #{tmp 24834}#
+ (cons '()
+ (cons #{e1 _85hotwsCta0JfYIjI4PXb}#
+ #{e2 _85hotwsCta0JfYIjI4PXc}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4PXh}#
+ (list (#{f _85hotwsCta0JfYIjI4PXd}#
+ (cdr #{bindings _85hotwsCta0JfYIjI4PXg}#))
+ (car #{bindings _85hotwsCta0JfYIjI4PXg}#))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4PXi}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4PXh}#
+ '(any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PXi}#
(@apply
- (lambda (#{body 24836}# #{binding 24837}#)
+ (lambda (#{body _85hotwsCta0JfYIjI4PXk}#
+ #{binding _85hotwsCta0JfYIjI4PXl}#)
(list '#(syntax-object
let
((top)
@@ -23038,86 +24443,102 @@
#(ribcage
#(body binding)
#((top) (top))
- #("1bz" "1c0"))
+ #("310" "311"))
#(ribcage () () ())
#(ribcage
#(f bindings)
#((top) (top))
- #("1bx" "1by"))
+ #("30y" "30z"))
#(ribcage
#(let* x v e1 e2)
#((top) (top) (top) (top) (top))
- #("1bs" "1bt" "1bu" "1bv" "1bw"))
+ #("30t" "30u" "30v" "30w" "30x"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1bm")))
+ #(ribcage #(x) #((top)) #("30n")))
(hygiene guile))
- (list #{binding 24837}#)
- #{body 24836}#))
- #{tmp 24834}#)
+ (list #{binding _85hotwsCta0JfYIjI4PXl}#)
+ #{body _85hotwsCta0JfYIjI4PXk}#))
+ #{tmp _85hotwsCta0JfYIjI4PXi}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 24833}#))))))))
- (#{f 24829}# (map list #{x 24825}# #{v 24826}#))))
- #{tmp 24815}#)
+ #{tmp _85hotwsCta0JfYIjI4PXh}#))))))))
+ (#{f _85hotwsCta0JfYIjI4PXd}#
+ (map list
+ #{x _85hotwsCta0JfYIjI4PXZ}#
+ #{v _85hotwsCta0JfYIjI4PXa}#))))
+ #{tmp _85hotwsCta0JfYIjI4PXP}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 24813}#))))))
+ #{x _85hotwsCta0JfYIjI4PXN}#))))))
(define do
(make-syntax-transformer
'do
'macro
- (lambda (#{orig-x 24881}#)
- (let ((#{tmp 24883}#
+ (lambda (#{orig-x _85hotwsCta0JfYIjI4PYR}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PYT}#
($sc-dispatch
- #{orig-x 24881}#
+ #{orig-x _85hotwsCta0JfYIjI4PYR}#
'(_ #(each (any any . any))
(any . each-any)
.
each-any))))
- (if #{tmp 24883}#
+ (if #{tmp _85hotwsCta0JfYIjI4PYT}#
(@apply
- (lambda (#{var 24887}#
- #{init 24888}#
- #{step 24889}#
- #{e0 24890}#
- #{e1 24891}#
- #{c 24892}#)
- (let ((#{tmp 24893}#
- (map (lambda (#{v 24896}# #{s 24897}#)
- (let ((#{tmp 24899}#
- ($sc-dispatch #{s 24897}# '())))
- (if #{tmp 24899}#
- (@apply (lambda () #{v 24896}#) #{tmp 24899}#)
- (let ((#{tmp 24902}#
- ($sc-dispatch #{s 24897}# '(any))))
- (if #{tmp 24902}#
+ (lambda (#{var _85hotwsCta0JfYIjI4PYX}#
+ #{init _85hotwsCta0JfYIjI4PYY}#
+ #{step _85hotwsCta0JfYIjI4PYZ}#
+ #{e0 _85hotwsCta0JfYIjI4PYa}#
+ #{e1 _85hotwsCta0JfYIjI4PYb}#
+ #{c _85hotwsCta0JfYIjI4PYc}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PYd}#
+ (map (lambda (#{v _85hotwsCta0JfYIjI4PYg}#
+ #{s _85hotwsCta0JfYIjI4PYh}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PYj}#
+ ($sc-dispatch
+ #{s _85hotwsCta0JfYIjI4PYh}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4PYj}#
+ (@apply
+ (lambda () #{v _85hotwsCta0JfYIjI4PYg}#)
+ #{tmp _85hotwsCta0JfYIjI4PYj}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PYm}#
+ ($sc-dispatch
+ #{s _85hotwsCta0JfYIjI4PYh}#
+ '(any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PYm}#
(@apply
- (lambda (#{e 24905}#) #{e 24905}#)
- #{tmp 24902}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4PYp}#)
+ #{e _85hotwsCta0JfYIjI4PYp}#)
+ #{tmp _85hotwsCta0JfYIjI4PYm}#)
(syntax-violation
'do
"bad step expression"
- #{orig-x 24881}#
- #{s 24897}#))))))
- #{var 24887}#
- #{step 24889}#)))
- (let ((#{tmp 24894}#
- ($sc-dispatch #{tmp 24893}# 'each-any)))
- (if #{tmp 24894}#
+ #{orig-x _85hotwsCta0JfYIjI4PYR}#
+ #{s _85hotwsCta0JfYIjI4PYh}#))))))
+ #{var _85hotwsCta0JfYIjI4PYX}#
+ #{step _85hotwsCta0JfYIjI4PYZ}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4PYe}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4PYd}#
+ 'each-any)))
+ (if #{tmp _85hotwsCta0JfYIjI4PYe}#
(@apply
- (lambda (#{step 24911}#)
- (let ((#{tmp 24913}# ($sc-dispatch #{e1 24891}# '())))
- (if #{tmp 24913}#
+ (lambda (#{step _85hotwsCta0JfYIjI4PYv}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PYx}#
+ ($sc-dispatch
+ #{e1 _85hotwsCta0JfYIjI4PYb}#
+ '())))
+ (if #{tmp _85hotwsCta0JfYIjI4PYx}#
(@apply
(lambda ()
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1c8"))
+ #(ribcage #(step) #((top)) #("319"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23126,23 +24547,23 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
'#(syntax-object
doloop
((top)
#(ribcage () () ())
- #(ribcage #(step) #((top)) #("1c8"))
+ #(ribcage #(step) #((top)) #("319"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23151,19 +24572,21 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
- (map list #{var 24887}# #{init 24888}#)
+ (map list
+ #{var _85hotwsCta0JfYIjI4PYX}#
+ #{init _85hotwsCta0JfYIjI4PYY}#)
(list '#(syntax-object
if
((top)
@@ -23171,7 +24594,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23180,17 +24603,17 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
(list '#(syntax-object
not
@@ -23199,7 +24622,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var
init
@@ -23213,19 +24636,19 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
- #{e0 24890}#)
+ #{e0 _85hotwsCta0JfYIjI4PYa}#)
(cons '#(syntax-object
begin
((top)
@@ -23233,7 +24656,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var
init
@@ -23247,20 +24670,20 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
(append
- #{c 24892}#
+ #{c _85hotwsCta0JfYIjI4PYc}#
(list (cons '#(syntax-object
doloop
((top)
@@ -23271,7 +24694,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var
init
@@ -23285,12 +24708,12 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage
()
()
@@ -23298,30 +24721,31 @@
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene
guile))
- #{step 24911}#)))))))
- #{tmp 24913}#)
- (let ((#{tmp 24917}#
+ #{step _85hotwsCta0JfYIjI4PYv}#)))))))
+ #{tmp _85hotwsCta0JfYIjI4PYx}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PY1}#
($sc-dispatch
- #{e1 24891}#
+ #{e1 _85hotwsCta0JfYIjI4PYb}#
'(any . each-any))))
- (if #{tmp 24917}#
+ (if #{tmp _85hotwsCta0JfYIjI4PY1}#
(@apply
- (lambda (#{e1 24921}# #{e2 24922}#)
+ (lambda (#{e1 _85hotwsCta0JfYIjI4PY5}#
+ #{e2 _85hotwsCta0JfYIjI4PY6}#)
(list '#(syntax-object
let
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("31a" "31b"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23330,17 +24754,17 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
'#(syntax-object
doloop
@@ -23348,12 +24772,12 @@
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("31a" "31b"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23362,33 +24786,33 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
(map list
- #{var 24887}#
- #{init 24888}#)
+ #{var _85hotwsCta0JfYIjI4PYX}#
+ #{init _85hotwsCta0JfYIjI4PYY}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("31a" "31b"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var init step e0 e1 c)
#((top)
@@ -23397,31 +24821,31 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
- #{e0 24890}#
+ #{e0 _85hotwsCta0JfYIjI4PYa}#
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("31a" "31b"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var
init
@@ -23435,32 +24859,32 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
- (cons #{e1 24921}#
- #{e2 24922}#))
+ (cons #{e1 _85hotwsCta0JfYIjI4PY5}#
+ #{e2 _85hotwsCta0JfYIjI4PY6}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1c9" "1ca"))
+ #("31a" "31b"))
#(ribcage () () ())
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var
init
@@ -23474,20 +24898,20 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage () () ())
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene guile))
(append
- #{c 24892}#
+ #{c _85hotwsCta0JfYIjI4PYc}#
(list (cons '#(syntax-object
doloop
((top)
@@ -23496,8 +24920,8 @@
e2)
#((top)
(top))
- #("1c9"
- "1ca"))
+ #("31a"
+ "31b"))
#(ribcage
()
()
@@ -23505,7 +24929,7 @@
#(ribcage
#(step)
#((top))
- #("1c8"))
+ #("319"))
#(ribcage
#(var
init
@@ -23519,12 +24943,12 @@
(top)
(top)
(top))
- #("1c2"
- "1c3"
- "1c4"
- "1c5"
- "1c6"
- "1c7"))
+ #("313"
+ "314"
+ "315"
+ "316"
+ "317"
+ "318"))
#(ribcage
()
()
@@ -23532,42 +24956,43 @@
#(ribcage
#(orig-x)
#((top))
- #("1c1")))
+ #("312")))
(hygiene
guile))
- #{step 24911}#)))))))
- #{tmp 24917}#)
+ #{step _85hotwsCta0JfYIjI4PYv}#)))))))
+ #{tmp _85hotwsCta0JfYIjI4PY1}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{e1 24891}#))))))
- #{tmp 24894}#)
+ #{e1 _85hotwsCta0JfYIjI4PYb}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PYe}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 24893}#)))))
- #{tmp 24883}#)
+ #{tmp _85hotwsCta0JfYIjI4PYd}#)))))
+ #{tmp _85hotwsCta0JfYIjI4PYT}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{orig-x 24881}#))))))
+ #{orig-x _85hotwsCta0JfYIjI4PYR}#))))))
(define quasiquote
(make-syntax-transformer
'quasiquote
'macro
(letrec*
- ((#{quasi 25129}#
- (lambda (#{p 25153}# #{lev 25154}#)
- (let ((#{tmp 25156}#
+ ((#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ (lambda (#{p _85hotwsCta0JfYIjI4Pch}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pck}#
($sc-dispatch
- #{p 25153}#
+ #{p _85hotwsCta0JfYIjI4Pch}#
'(#(free-id
#(syntax-object
unquote
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23576,22 +25001,22 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile)))
any))))
- (if #{tmp 25156}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pck}#
(@apply
- (lambda (#{p 25160}#)
- (if (= #{lev 25154}# 0)
+ (lambda (#{p _85hotwsCta0JfYIjI4Pco}#)
+ (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0)
(list '#(syntax-object
"value"
((top)
- #(ribcage #(p) #((top)) #("1co"))
+ #(ribcage #(p) #((top)) #("31p"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23600,16 +25025,16 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile))
- #{p 25160}#)
- (#{quasicons 25131}#
+ #{p _85hotwsCta0JfYIjI4Pco}#)
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1co"))
+ #(ribcage #(p) #((top)) #("31p"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23618,14 +25043,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1co"))
+ #(ribcage #(p) #((top)) #("31p"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23634,15 +25059,15 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile)))
- (#{quasi 25129}#
- (list #{p 25160}#)
- (#{1-}# #{lev 25154}#)))))
- #{tmp 25156}#)
- (let ((#{tmp 25163}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ (list #{p _85hotwsCta0JfYIjI4Pco}#)
+ (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#)))))
+ #{tmp _85hotwsCta0JfYIjI4Pck}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pcr}#
($sc-dispatch
- #{p 25153}#
+ #{p _85hotwsCta0JfYIjI4Pch}#
'(#(free-id
#(syntax-object
quasiquote
@@ -23651,7 +25076,7 @@
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23660,19 +25085,19 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile)))
any))))
- (if #{tmp 25163}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pcr}#
(@apply
- (lambda (#{p 25167}#)
- (#{quasicons 25131}#
+ (lambda (#{p _85hotwsCta0JfYIjI4Pcv}#)
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1cp"))
+ #(ribcage #(p) #((top)) #("31q"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23681,14 +25106,14 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile))
#(syntax-object
quasiquote
((top)
- #(ribcage #(p) #((top)) #("1cp"))
+ #(ribcage #(p) #((top)) #("31q"))
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cm" "1cn"))
+ #(ribcage #(p lev) #((top) (top)) #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23697,20 +25122,23 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile)))
- (#{quasi 25129}#
- (list #{p 25167}#)
- (#{1+}# #{lev 25154}#))))
- #{tmp 25163}#)
- (let ((#{tmp 25170}#
- ($sc-dispatch #{p 25153}# '(any . any))))
- (if #{tmp 25170}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ (list #{p _85hotwsCta0JfYIjI4Pcv}#)
+ (#{1+}# #{lev _85hotwsCta0JfYIjI4Pci}#))))
+ #{tmp _85hotwsCta0JfYIjI4Pcr}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pcy}#
+ ($sc-dispatch
+ #{p _85hotwsCta0JfYIjI4Pch}#
+ '(any . any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Pcy}#
(@apply
- (lambda (#{p 25174}# #{q 25175}#)
- (let ((#{tmp 25177}#
+ (lambda (#{p _85hotwsCta0JfYIjI4Pc2}#
+ #{q _85hotwsCta0JfYIjI4Pc3}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pc5}#
($sc-dispatch
- #{p 25174}#
+ #{p _85hotwsCta0JfYIjI4Pc2}#
'(#(free-id
#(syntax-object
unquote
@@ -23718,12 +25146,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23738,38 +25166,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25177}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pc5}#
(@apply
- (lambda (#{p 25181}#)
- (if (= #{lev 25154}# 0)
- (#{quasilist* 25133}#
- (map (lambda (#{tmp 24958 25217}#)
+ (lambda (#{p _85hotwsCta0JfYIjI4Pc9}#)
+ (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0)
+ (#{quasilist* _85hotwsCta0JfYIjI4PcN}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1cs"))
+ #("31t"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23784,34 +25212,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{tmp 24958 25217}#))
- #{p 25181}#)
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#))
+ #{p _85hotwsCta0JfYIjI4Pc9}#)
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{q _85hotwsCta0JfYIjI4Pc3}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#))
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1cs"))
+ #(ribcage #(p) #((top)) #("31t"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23826,27 +25254,27 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1cs"))
+ #(ribcage #(p) #((top)) #("31t"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23861,24 +25289,24 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25181}#
- (#{1-}# #{lev 25154}#)))
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))))
- #{tmp 25177}#)
- (let ((#{tmp 25222}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{p _85hotwsCta0JfYIjI4Pc9}#
+ (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#)))
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{q _85hotwsCta0JfYIjI4Pc3}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#))))
+ #{tmp _85hotwsCta0JfYIjI4Pc5}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pdm}#
($sc-dispatch
- #{p 25174}#
+ #{p _85hotwsCta0JfYIjI4Pc2}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -23886,12 +25314,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23906,38 +25334,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25222}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pdm}#
(@apply
- (lambda (#{p 25226}#)
- (if (= #{lev 25154}# 0)
- (#{quasiappend 25132}#
- (map (lambda (#{tmp 24962 25229}#)
+ (lambda (#{p _85hotwsCta0JfYIjI4Pdq}#)
+ (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0)
+ (#{quasiappend _85hotwsCta0JfYIjI4PcM}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1ct"))
+ #("31u"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23952,37 +25380,37 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{tmp 24962 25229}#))
- #{p 25226}#)
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#))
+ #{p _85hotwsCta0JfYIjI4Pdq}#)
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{q _85hotwsCta0JfYIjI4Pc3}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#))
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
'(#(syntax-object
"quote"
((top)
#(ribcage
#(p)
#((top))
- #("1ct"))
+ #("31u"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -23997,13 +25425,13 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
#(syntax-object
unquote-splicing
@@ -24011,16 +25439,16 @@
#(ribcage
#(p)
#((top))
- #("1ct"))
+ #("31u"))
#(ribcage
#(p q)
#((top) (top))
- #("1cq" "1cr"))
+ #("31r" "31s"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -24035,57 +25463,59 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25226}#
- (#{1-}# #{lev 25154}#)))
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#))))
- #{tmp 25222}#)
- (#{quasicons 25131}#
- (#{quasi 25129}#
- #{p 25174}#
- #{lev 25154}#)
- (#{quasi 25129}#
- #{q 25175}#
- #{lev 25154}#)))))))
- #{tmp 25170}#)
- (let ((#{tmp 25243}#
- ($sc-dispatch #{p 25153}# '#(vector each-any))))
- (if #{tmp 25243}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{p _85hotwsCta0JfYIjI4Pdq}#
+ (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#)))
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{q _85hotwsCta0JfYIjI4Pc3}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#))))
+ #{tmp _85hotwsCta0JfYIjI4Pdm}#)
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{p _85hotwsCta0JfYIjI4Pc2}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#)
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{q _85hotwsCta0JfYIjI4Pc3}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#)))))))
+ #{tmp _85hotwsCta0JfYIjI4Pcy}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pd7}#
+ ($sc-dispatch
+ #{p _85hotwsCta0JfYIjI4Pch}#
+ '#(vector each-any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Pd7}#
(@apply
- (lambda (#{x 25247}#)
- (let ((#{x 25250}#
- (#{vquasi 25130}#
- #{x 25247}#
- #{lev 25154}#)))
- (let ((#{tmp 25252}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pd@}#)
+ (let ((#{x _85hotwsCta0JfYIjI4PeC}#
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ #{x _85hotwsCta0JfYIjI4Pd@}#
+ #{lev _85hotwsCta0JfYIjI4Pci}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4PeE}#
($sc-dispatch
- #{x 25250}#
+ #{x _85hotwsCta0JfYIjI4PeC}#
'(#(atom "quote") each-any))))
- (if #{tmp 25252}#
+ (if #{tmp _85hotwsCta0JfYIjI4PeE}#
(@apply
- (lambda (#{x 25256}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4PeI}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(x)
#((top))
- #("1dp"))
+ #("32q"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("32p"))
#(ribcage
(emit quasivector
quasilist*
@@ -24100,36 +25530,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- (list->vector #{x 25256}#)))
- #{tmp 25252}#)
+ (list->vector
+ #{x _85hotwsCta0JfYIjI4PeI}#)))
+ #{tmp _85hotwsCta0JfYIjI4PeE}#)
(letrec*
- ((#{f 25258}#
- (lambda (#{y 25270}# #{k 25271}#)
- (let ((#{tmp 25273}#
+ ((#{f _85hotwsCta0JfYIjI4PeK}#
+ (lambda (#{y _85hotwsCta0JfYIjI4PeW}#
+ #{k _85hotwsCta0JfYIjI4PeX}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PeZ}#
($sc-dispatch
- #{y 25270}#
+ #{y _85hotwsCta0JfYIjI4PeW}#
'(#(atom "quote")
each-any))))
- (if #{tmp 25273}#
+ (if #{tmp _85hotwsCta0JfYIjI4PeZ}#
(@apply
- (lambda (#{y 25276}#)
- (#{k 25271}#
- (map (lambda (#{tmp 25053 25277}#)
+ (lambda (#{y _85hotwsCta0JfYIjI4Pec}#)
+ (#{k _85hotwsCta0JfYIjI4PeX}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(y)
#((top))
- #("1dw"))
+ #("32x"))
#(ribcage
()
()
@@ -24141,13 +25573,13 @@
#((top)
(top)
(top))
- #("1dr"
- "1ds"
- "1dt"))
+ #("32s"
+ "32t"
+ "32u"))
#(ribcage
#(_)
#((top))
- #("1dq"))
+ #("32r"))
#(ribcage
()
()
@@ -24155,7 +25587,7 @@
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("32p"))
#(ribcage
(emit quasivector
quasilist*
@@ -24170,51 +25602,51 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene
guile))
- #{tmp 25053 25277}#))
- #{y 25276}#)))
- #{tmp 25273}#)
- (let ((#{tmp 25278}#
+ #{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#))
+ #{y _85hotwsCta0JfYIjI4Pec}#)))
+ #{tmp _85hotwsCta0JfYIjI4PeZ}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pee}#
($sc-dispatch
- #{y 25270}#
+ #{y _85hotwsCta0JfYIjI4PeW}#
'(#(atom "list")
.
each-any))))
- (if #{tmp 25278}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pee}#
(@apply
- (lambda (#{y 25281}#)
- (#{k 25271}#
- #{y 25281}#))
- #{tmp 25278}#)
- (let ((#{tmp 25282}#
+ (lambda (#{y _85hotwsCta0JfYIjI4Peh}#)
+ (#{k _85hotwsCta0JfYIjI4PeX}#
+ #{y _85hotwsCta0JfYIjI4Peh}#))
+ #{tmp _85hotwsCta0JfYIjI4Pee}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pei}#
($sc-dispatch
- #{y 25270}#
+ #{y _85hotwsCta0JfYIjI4PeW}#
'(#(atom "list*")
.
#(each+
any
(any)
())))))
- (if #{tmp 25282}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pei}#
(@apply
- (lambda (#{y 25285}#
- #{z 25286}#)
- (#{f 25258}#
- #{z 25286}#
- (lambda (#{ls 25287}#)
- (#{k 25271}#
+ (lambda (#{y _85hotwsCta0JfYIjI4Pel}#
+ #{z _85hotwsCta0JfYIjI4Pem}#)
+ (#{f _85hotwsCta0JfYIjI4PeK}#
+ #{z _85hotwsCta0JfYIjI4Pem}#
+ (lambda (#{ls _85hotwsCta0JfYIjI4Pen}#)
+ (#{k _85hotwsCta0JfYIjI4PeX}#
(append
- #{y 25285}#
- #{ls 25287}#)))))
- #{tmp 25282}#)
+ #{y _85hotwsCta0JfYIjI4Pel}#
+ #{ls _85hotwsCta0JfYIjI4Pen}#)))))
+ #{tmp _85hotwsCta0JfYIjI4Pei}#)
(list '#(syntax-object
"list->vector"
((top)
@@ -24223,14 +25655,14 @@
()
())
#(ribcage
- #(#{ g25063}#)
- #((m25064
+ #(#{ g_85hotwsCta0JfYIjI4PbH}#)
+ #((m_85hotwsCta0JfYIjI4PbI
top))
- #("1e2"))
+ #("333"))
#(ribcage
#(else)
#((top))
- #("1e1"))
+ #("332"))
#(ribcage
()
()
@@ -24240,13 +25672,13 @@
#((top)
(top)
(top))
- #("1dr"
- "1ds"
- "1dt"))
+ #("32s"
+ "32t"
+ "32u"))
#(ribcage
#(_)
#((top))
- #("1dq"))
+ #("32r"))
#(ribcage
()
()
@@ -24254,7 +25686,7 @@
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("32p"))
#(ribcage
(emit quasivector
quasilist*
@@ -24269,26 +25701,26 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene
guile))
- #{x 25250}#))))))))))
- (#{f 25258}#
- #{x 25250}#
- (lambda (#{ls 25260}#)
- (let ((#{tmp 25262}#
+ #{x _85hotwsCta0JfYIjI4PeC}#))))))))))
+ (#{f _85hotwsCta0JfYIjI4PeK}#
+ #{x _85hotwsCta0JfYIjI4PeC}#
+ (lambda (#{ls _85hotwsCta0JfYIjI4PeM}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PeO}#
($sc-dispatch
- #{ls 25260}#
+ #{ls _85hotwsCta0JfYIjI4PeM}#
'each-any)))
- (if #{tmp 25262}#
+ (if #{tmp _85hotwsCta0JfYIjI4PeO}#
(@apply
- (lambda (#{ g25043 25265}#)
+ (lambda (#{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#)
(cons '#(syntax-object
"vector"
((top)
@@ -24297,9 +25729,10 @@
()
())
#(ribcage
- #(#{ g25043}#)
- #((m25044 top))
- #("1dv"))
+ #(#{ g_85hotwsCta0JfYIjI4Paz}#)
+ #((m_85hotwsCta0JfYIjI4Pa0
+ top))
+ #("32w"))
#(ribcage
()
()
@@ -24315,11 +25748,11 @@
#(ribcage
#(ls)
#((top))
- #("1du"))
+ #("32v"))
#(ribcage
#(_)
#((top))
- #("1dq"))
+ #("32r"))
#(ribcage
()
()
@@ -24327,7 +25760,7 @@
#(ribcage
#(x)
#((top))
- #("1do"))
+ #("32p"))
#(ribcage
(emit quasivector
quasilist*
@@ -24342,30 +25775,30 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{ g25043 25265}#))
- #{tmp 25262}#)
+ #{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#))
+ #{tmp _85hotwsCta0JfYIjI4PeO}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{ls 25260}#))))))))))
- #{tmp 25243}#)
+ #{ls _85hotwsCta0JfYIjI4PeM}#))))))))))
+ #{tmp _85hotwsCta0JfYIjI4Pd7}#)
(list '#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1cw"))
+ #(ribcage #(p) #((top)) #("31x"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cm" "1cn"))
+ #("31n" "31o"))
#(ribcage
(emit quasivector
quasilist*
@@ -24380,25 +25813,29 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{p 25153}#)))))))))))
- (#{vquasi 25130}#
- (lambda (#{p 25315}# #{lev 25316}#)
- (let ((#{tmp 25318}#
- ($sc-dispatch #{p 25315}# '(any . any))))
- (if #{tmp 25318}#
+ #{p _85hotwsCta0JfYIjI4Pch}#)))))))))))
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ (lambda (#{p _85hotwsCta0JfYIjI4PfD}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PfG}#
+ ($sc-dispatch
+ #{p _85hotwsCta0JfYIjI4PfD}#
+ '(any . any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PfG}#
(@apply
- (lambda (#{p 25322}# #{q 25323}#)
- (let ((#{tmp 25325}#
+ (lambda (#{p _85hotwsCta0JfYIjI4PfK}#
+ #{q _85hotwsCta0JfYIjI4PfL}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PfN}#
($sc-dispatch
- #{p 25322}#
+ #{p _85hotwsCta0JfYIjI4PfK}#
'(#(free-id
#(syntax-object
unquote
@@ -24406,12 +25843,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24426,38 +25863,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25325}#
+ (if #{tmp _85hotwsCta0JfYIjI4PfN}#
(@apply
- (lambda (#{p 25329}#)
- (if (= #{lev 25316}# 0)
- (#{quasilist* 25133}#
- (map (lambda (#{tmp 24978 25365}#)
+ (lambda (#{p _85hotwsCta0JfYIjI4PfR}#)
+ (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0)
+ (#{quasilist* _85hotwsCta0JfYIjI4PcN}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1d1"))
+ #("322"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24472,32 +25909,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{tmp 24978 25365}#))
- #{p 25329}#)
- (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#))
+ #{p _85hotwsCta0JfYIjI4PfR}#)
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ #{q _85hotwsCta0JfYIjI4PfL}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#))
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1d1"))
+ #(ribcage #(p) #((top)) #("322"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24512,27 +25951,27 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
#(syntax-object
unquote
((top)
- #(ribcage #(p) #((top)) #("1d1"))
+ #(ribcage #(p) #((top)) #("322"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24547,22 +25986,24 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25329}#
- (#{1-}# #{lev 25316}#)))
- (#{vquasi 25130}# #{q 25323}# #{lev 25316}#))))
- #{tmp 25325}#)
- (let ((#{tmp 25372}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{p _85hotwsCta0JfYIjI4PfR}#
+ (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#)))
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ #{q _85hotwsCta0JfYIjI4PfL}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#))))
+ #{tmp _85hotwsCta0JfYIjI4PfN}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pf8}#
($sc-dispatch
- #{p 25322}#
+ #{p _85hotwsCta0JfYIjI4PfK}#
'(#(free-id
#(syntax-object
unquote-splicing
@@ -24570,12 +26011,12 @@
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24590,38 +26031,38 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
.
each-any))))
- (if #{tmp 25372}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pf8}#
(@apply
- (lambda (#{p 25376}#)
- (if (= #{lev 25316}# 0)
- (#{quasiappend 25132}#
- (map (lambda (#{tmp 24982 25379}#)
+ (lambda (#{p _85hotwsCta0JfYIjI4PgA}#)
+ (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0)
+ (#{quasiappend _85hotwsCta0JfYIjI4PcM}#
+ (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#)
(list '#(syntax-object
"value"
((top)
#(ribcage
#(p)
#((top))
- #("1d2"))
+ #("323"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24636,34 +26077,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{tmp 24982 25379}#))
- #{p 25376}#)
- (#{vquasi 25130}#
- #{q 25323}#
- #{lev 25316}#))
- (#{quasicons 25131}#
- (#{quasicons 25131}#
+ #{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#))
+ #{p _85hotwsCta0JfYIjI4PgA}#)
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ #{q _85hotwsCta0JfYIjI4PfL}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#))
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
'(#(syntax-object
"quote"
((top)
- #(ribcage #(p) #((top)) #("1d2"))
+ #(ribcage #(p) #((top)) #("323"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24678,27 +26119,27 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
#(syntax-object
unquote-splicing
((top)
- #(ribcage #(p) #((top)) #("1d2"))
+ #(ribcage #(p) #((top)) #("323"))
#(ribcage
#(p q)
#((top) (top))
- #("1cz" "1d0"))
+ #("320" "321"))
#(ribcage () () ())
#(ribcage
#(p lev)
#((top) (top))
- #("1cx" "1cy"))
+ #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24713,34 +26154,39 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile)))
- (#{quasi 25129}#
- #{p 25376}#
- (#{1-}# #{lev 25316}#)))
- (#{vquasi 25130}#
- #{q 25323}#
- #{lev 25316}#))))
- #{tmp 25372}#)
- (#{quasicons 25131}#
- (#{quasi 25129}# #{p 25322}# #{lev 25316}#)
- (#{vquasi 25130}# #{q 25323}# #{lev 25316}#)))))))
- #{tmp 25318}#)
- (let ((#{tmp 25397}# ($sc-dispatch #{p 25315}# '())))
- (if #{tmp 25397}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{p _85hotwsCta0JfYIjI4PgA}#
+ (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#)))
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ #{q _85hotwsCta0JfYIjI4PfL}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#))))
+ #{tmp _85hotwsCta0JfYIjI4Pf8}#)
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{p _85hotwsCta0JfYIjI4PfK}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#)
+ (#{vquasi _85hotwsCta0JfYIjI4PcK}#
+ #{q _85hotwsCta0JfYIjI4PfL}#
+ #{lev _85hotwsCta0JfYIjI4PfE}#)))))))
+ #{tmp _85hotwsCta0JfYIjI4PfG}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PgV}#
+ ($sc-dispatch #{p _85hotwsCta0JfYIjI4PfD}# '())))
+ (if #{tmp _85hotwsCta0JfYIjI4PgV}#
(@apply
(lambda ()
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(p lev) #((top) (top)) #("1cx" "1cy"))
+ #(ribcage #(p lev) #((top) (top)) #("31y" "31z"))
#(ribcage
(emit quasivector
quasilist*
@@ -24749,58 +26195,64 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile))
()))
- #{tmp 25397}#)
+ #{tmp _85hotwsCta0JfYIjI4PgV}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{p 25315}#)))))))
- (#{quasicons 25131}#
- (lambda (#{x 25410}# #{y 25411}#)
- (let ((#{tmp 25412}# (list #{x 25410}# #{y 25411}#)))
- (let ((#{tmp 25413}#
- ($sc-dispatch #{tmp 25412}# '(any any))))
- (if #{tmp 25413}#
+ #{p _85hotwsCta0JfYIjI4PfD}#)))))))
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pgi}#
+ #{y _85hotwsCta0JfYIjI4Pgj}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pgk}#
+ (list #{x _85hotwsCta0JfYIjI4Pgi}#
+ #{y _85hotwsCta0JfYIjI4Pgj}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pgl}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4Pgk}#
+ '(any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Pgl}#
(@apply
- (lambda (#{x 25415}# #{y 25416}#)
- (let ((#{tmp 25418}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pgn}#
+ #{y _85hotwsCta0JfYIjI4Pgo}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pgq}#
($sc-dispatch
- #{y 25416}#
+ #{y _85hotwsCta0JfYIjI4Pgo}#
'(#(atom "quote") any))))
- (if #{tmp 25418}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pgq}#
(@apply
- (lambda (#{dy 25422}#)
- (let ((#{tmp 25424}#
+ (lambda (#{dy _85hotwsCta0JfYIjI4Pgu}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pgw}#
($sc-dispatch
- #{x 25415}#
+ #{x _85hotwsCta0JfYIjI4Pgn}#
'(#(atom "quote") any))))
- (if #{tmp 25424}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pgw}#
(@apply
- (lambda (#{dx 25428}#)
+ (lambda (#{dx _85hotwsCta0JfYIjI4Pg0}#)
(list '#(syntax-object
"quote"
((top)
#(ribcage
#(dx)
#((top))
- #("1d9"))
+ #("32a"))
#(ribcage
#(dy)
#((top))
- #("1d8"))
+ #("329"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("327" "328"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("325" "326"))
#(ribcage
(emit quasivector
quasilist*
@@ -24815,33 +26267,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- (cons #{dx 25428}# #{dy 25422}#)))
- #{tmp 25424}#)
- (if (null? #{dy 25422}#)
+ (cons #{dx _85hotwsCta0JfYIjI4Pg0}#
+ #{dy _85hotwsCta0JfYIjI4Pgu}#)))
+ #{tmp _85hotwsCta0JfYIjI4Pgw}#)
+ (if (null? #{dy _85hotwsCta0JfYIjI4Pgu}#)
(list '#(syntax-object
"list"
((top)
- #(ribcage #(_) #((top)) #("1da"))
- #(ribcage #(dy) #((top)) #("1d8"))
+ #(ribcage #(_) #((top)) #("32b"))
+ #(ribcage #(dy) #((top)) #("329"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("327" "328"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("325" "326"))
#(ribcage
(emit quasivector
quasilist*
@@ -24856,31 +26309,31 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{x 25415}#)
+ #{x _85hotwsCta0JfYIjI4Pgn}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1da"))
- #(ribcage #(dy) #((top)) #("1d8"))
+ #(ribcage #(_) #((top)) #("32b"))
+ #(ribcage #(dy) #((top)) #("329"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("327" "328"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("325" "326"))
#(ribcage
(emit quasivector
quasilist*
@@ -24895,42 +26348,42 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{x 25415}#
- #{y 25416}#)))))
- #{tmp 25418}#)
- (let ((#{tmp 25433}#
+ #{x _85hotwsCta0JfYIjI4Pgn}#
+ #{y _85hotwsCta0JfYIjI4Pgo}#)))))
+ #{tmp _85hotwsCta0JfYIjI4Pgq}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pg5}#
($sc-dispatch
- #{y 25416}#
+ #{y _85hotwsCta0JfYIjI4Pgo}#
'(#(atom "list") . any))))
- (if #{tmp 25433}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pg5}#
(@apply
- (lambda (#{stuff 25437}#)
+ (lambda (#{stuff _85hotwsCta0JfYIjI4Pg9}#)
(cons '#(syntax-object
"list"
((top)
#(ribcage
#(stuff)
#((top))
- #("1db"))
+ #("32c"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("327" "328"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("325" "326"))
#(ribcage
(emit quasivector
quasilist*
@@ -24945,41 +26398,42 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- (cons #{x 25415}# #{stuff 25437}#)))
- #{tmp 25433}#)
- (let ((#{tmp 25438}#
+ (cons #{x _85hotwsCta0JfYIjI4Pgn}#
+ #{stuff _85hotwsCta0JfYIjI4Pg9}#)))
+ #{tmp _85hotwsCta0JfYIjI4Pg5}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pg$}#
($sc-dispatch
- #{y 25416}#
+ #{y _85hotwsCta0JfYIjI4Pgo}#
'(#(atom "list*") . any))))
- (if #{tmp 25438}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pg$}#
(@apply
- (lambda (#{stuff 25442}#)
+ (lambda (#{stuff _85hotwsCta0JfYIjI4PhC}#)
(cons '#(syntax-object
"list*"
((top)
#(ribcage
#(stuff)
#((top))
- #("1dc"))
+ #("32d"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("327" "328"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("325" "326"))
#(ribcage
(emit quasivector
quasilist*
@@ -24994,31 +26448,32 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- (cons #{x 25415}# #{stuff 25442}#)))
- #{tmp 25438}#)
+ (cons #{x _85hotwsCta0JfYIjI4Pgn}#
+ #{stuff _85hotwsCta0JfYIjI4PhC}#)))
+ #{tmp _85hotwsCta0JfYIjI4Pg$}#)
(list '#(syntax-object
"list*"
((top)
- #(ribcage #(_) #((top)) #("1dd"))
+ #(ribcage #(_) #((top)) #("32e"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d6" "1d7"))
+ #("327" "328"))
#(ribcage () () ())
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1d4" "1d5"))
+ #("325" "326"))
#(ribcage
(emit quasivector
quasilist*
@@ -25033,34 +26488,37 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{x 25415}#
- #{y 25416}#))))))))
- #{tmp 25413}#)
+ #{x _85hotwsCta0JfYIjI4Pgn}#
+ #{y _85hotwsCta0JfYIjI4Pgo}#))))))))
+ #{tmp _85hotwsCta0JfYIjI4Pgl}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25412}#))))))
- (#{quasiappend 25132}#
- (lambda (#{x 25453}# #{y 25454}#)
- (let ((#{tmp 25456}#
- ($sc-dispatch #{y 25454}# '(#(atom "quote") ()))))
- (if #{tmp 25456}#
+ #{tmp _85hotwsCta0JfYIjI4Pgk}#))))))
+ (#{quasiappend _85hotwsCta0JfYIjI4PcM}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PhN}#
+ #{y _85hotwsCta0JfYIjI4PhO}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PhQ}#
+ ($sc-dispatch
+ #{y _85hotwsCta0JfYIjI4PhO}#
+ '(#(atom "quote") ()))))
+ (if #{tmp _85hotwsCta0JfYIjI4PhQ}#
(@apply
(lambda ()
- (if (null? #{x 25453}#)
+ (if (null? #{x _85hotwsCta0JfYIjI4PhN}#)
'(#(syntax-object
"quote"
((top)
#(ribcage () () ())
- #(ribcage #(x y) #((top) (top)) #("1de" "1df"))
+ #(ribcage #(x y) #((top) (top)) #("32f" "32g"))
#(ribcage
(emit quasivector
quasilist*
@@ -25069,26 +26527,28 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile))
())
- (if (null? (cdr #{x 25453}#))
- (car #{x 25453}#)
- (let ((#{tmp 25461}#
- ($sc-dispatch #{x 25453}# 'each-any)))
- (if #{tmp 25461}#
+ (if (null? (cdr #{x _85hotwsCta0JfYIjI4PhN}#))
+ (car #{x _85hotwsCta0JfYIjI4PhN}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PhV}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4PhN}#
+ 'each-any)))
+ (if #{tmp _85hotwsCta0JfYIjI4PhV}#
(@apply
- (lambda (#{p 25465}#)
+ (lambda (#{p _85hotwsCta0JfYIjI4PhZ}#)
(cons '#(syntax-object
"append"
((top)
#(ribcage () () ())
- #(ribcage #(p) #((top)) #("1dg"))
+ #(ribcage #(p) #((top)) #("32h"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1de" "1df"))
+ #("32f" "32g"))
#(ribcage
(emit quasivector
quasilist*
@@ -25103,29 +26563,34 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{p 25465}#))
- #{tmp 25461}#)
+ #{p _85hotwsCta0JfYIjI4PhZ}#))
+ #{tmp _85hotwsCta0JfYIjI4PhV}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25453}#))))))
- #{tmp 25456}#)
- (if (null? #{x 25453}#)
- #{y 25454}#
- (let ((#{tmp 25473}# (list #{x 25453}# #{y 25454}#)))
- (let ((#{tmp 25474}#
- ($sc-dispatch #{tmp 25473}# '(each-any any))))
- (if #{tmp 25474}#
+ #{x _85hotwsCta0JfYIjI4PhN}#))))))
+ #{tmp _85hotwsCta0JfYIjI4PhQ}#)
+ (if (null? #{x _85hotwsCta0JfYIjI4PhN}#)
+ #{y _85hotwsCta0JfYIjI4PhO}#
+ (let ((#{tmp _85hotwsCta0JfYIjI4Phh}#
+ (list #{x _85hotwsCta0JfYIjI4PhN}#
+ #{y _85hotwsCta0JfYIjI4PhO}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Phi}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4Phh}#
+ '(each-any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Phi}#
(@apply
- (lambda (#{p 25476}# #{y 25477}#)
+ (lambda (#{p _85hotwsCta0JfYIjI4Phk}#
+ #{y _85hotwsCta0JfYIjI4Phl}#)
(cons '#(syntax-object
"append"
((top)
@@ -25133,13 +26598,13 @@
#(ribcage
#(p y)
#((top) (top))
- #("1di" "1dj"))
- #(ribcage #(_) #((top)) #("1dh"))
+ #("32j" "32k"))
+ #(ribcage #(_) #((top)) #("32i"))
#(ribcage () () ())
#(ribcage
#(x y)
#((top) (top))
- #("1de" "1df"))
+ #("32f" "32g"))
#(ribcage
(emit quasivector
quasilist*
@@ -25154,44 +26619,51 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- (append #{p 25476}# (list #{y 25477}#))))
- #{tmp 25474}#)
+ (append
+ #{p _85hotwsCta0JfYIjI4Phk}#
+ (list #{y _85hotwsCta0JfYIjI4Phl}#))))
+ #{tmp _85hotwsCta0JfYIjI4Phi}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25473}#)))))))))
- (#{quasilist* 25133}#
- (lambda (#{x 25481}# #{y 25482}#)
+ #{tmp _85hotwsCta0JfYIjI4Phh}#)))))))))
+ (#{quasilist* _85hotwsCta0JfYIjI4PcN}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Php}#
+ #{y _85hotwsCta0JfYIjI4Phq}#)
(letrec*
- ((#{f 25483}#
- (lambda (#{x 25572}#)
- (if (null? #{x 25572}#)
- #{y 25482}#
- (#{quasicons 25131}#
- (car #{x 25572}#)
- (#{f 25483}# (cdr #{x 25572}#)))))))
- (#{f 25483}# #{x 25481}#))))
- (#{emit 25135}#
- (lambda (#{x 25575}#)
- (let ((#{tmp 25577}#
- ($sc-dispatch #{x 25575}# '(#(atom "quote") any))))
- (if #{tmp 25577}#
+ ((#{f _85hotwsCta0JfYIjI4Phr}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PjE}#)
+ (if (null? #{x _85hotwsCta0JfYIjI4PjE}#)
+ #{y _85hotwsCta0JfYIjI4Phq}#
+ (#{quasicons _85hotwsCta0JfYIjI4PcL}#
+ (car #{x _85hotwsCta0JfYIjI4PjE}#)
+ (#{f _85hotwsCta0JfYIjI4Phr}#
+ (cdr #{x _85hotwsCta0JfYIjI4PjE}#)))))))
+ (#{f _85hotwsCta0JfYIjI4Phr}#
+ #{x _85hotwsCta0JfYIjI4Php}#))))
+ (#{emit _85hotwsCta0JfYIjI4PcP}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PjH}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PjJ}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4PjH}#
+ '(#(atom "quote") any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PjJ}#
(@apply
- (lambda (#{x 25581}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4PjN}#)
(list '#(syntax-object
quote
((top)
- #(ribcage #(x) #((top)) #("1e4"))
+ #(ribcage #(x) #((top)) #("335"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1e3"))
+ #(ribcage #(x) #((top)) #("334"))
#(ribcage
(emit quasivector
quasilist*
@@ -25200,34 +26672,38 @@
vquasi
quasi)
((top) (top) (top) (top) (top) (top) (top))
- ("1cl" "1ck" "1cj" "1ci" "1ch" "1cg" "1cf")))
+ ("31m" "31l" "31k" "31j" "31i" "31h" "31g")))
(hygiene guile))
- #{x 25581}#))
- #{tmp 25577}#)
- (let ((#{tmp 25582}#
+ #{x _85hotwsCta0JfYIjI4PjN}#))
+ #{tmp _85hotwsCta0JfYIjI4PjJ}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PjO}#
($sc-dispatch
- #{x 25575}#
+ #{x _85hotwsCta0JfYIjI4PjH}#
'(#(atom "list") . each-any))))
- (if #{tmp 25582}#
+ (if #{tmp _85hotwsCta0JfYIjI4PjO}#
(@apply
- (lambda (#{x 25586}#)
- (let ((#{tmp 25587}# (map #{emit 25135}# #{x 25586}#)))
- (let ((#{tmp 25588}#
- ($sc-dispatch #{tmp 25587}# 'each-any)))
- (if #{tmp 25588}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PjS}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PjT}#
+ (map #{emit _85hotwsCta0JfYIjI4PcP}#
+ #{x _85hotwsCta0JfYIjI4PjS}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4PjU}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4PjT}#
+ 'each-any)))
+ (if #{tmp _85hotwsCta0JfYIjI4PjU}#
(@apply
- (lambda (#{ g25074 25590}#)
+ (lambda (#{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#)
(cons '#(syntax-object
list
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25074}#)
- #((m25075 top))
- #("1e6"))
- #(ribcage #(x) #((top)) #("1e5"))
+ #(#{ g_85hotwsCta0JfYIjI4PbS}#)
+ #((m_85hotwsCta0JfYIjI4PbT top))
+ #("337"))
+ #(ribcage #(x) #((top)) #("336"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1e3"))
+ #(ribcage #(x) #((top)) #("334"))
#(ribcage
(emit quasivector
quasilist*
@@ -25242,70 +26718,74 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{ g25074 25590}#))
- #{tmp 25588}#)
+ #{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#))
+ #{tmp _85hotwsCta0JfYIjI4PjU}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25587}#)))))
- #{tmp 25582}#)
- (let ((#{tmp 25591}#
+ #{tmp _85hotwsCta0JfYIjI4PjT}#)))))
+ #{tmp _85hotwsCta0JfYIjI4PjO}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PjX}#
($sc-dispatch
- #{x 25575}#
+ #{x _85hotwsCta0JfYIjI4PjH}#
'(#(atom "list*") . #(each+ any (any) ())))))
- (if #{tmp 25591}#
+ (if #{tmp _85hotwsCta0JfYIjI4PjX}#
(@apply
- (lambda (#{x 25595}# #{y 25596}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Pjb}#
+ #{y _85hotwsCta0JfYIjI4Pjc}#)
(letrec*
- ((#{f 25597}#
- (lambda (#{x* 25600}#)
- (if (null? #{x* 25600}#)
- (#{emit 25135}# #{y 25596}#)
- (let ((#{tmp 25601}#
- (list (#{emit 25135}#
- (car #{x* 25600}#))
- (#{f 25597}#
- (cdr #{x* 25600}#)))))
- (let ((#{tmp 25602}#
+ ((#{f _85hotwsCta0JfYIjI4Pjd}#
+ (lambda (#{x* _85hotwsCta0JfYIjI4Pjg}#)
+ (if (null? #{x* _85hotwsCta0JfYIjI4Pjg}#)
+ (#{emit _85hotwsCta0JfYIjI4PcP}#
+ #{y _85hotwsCta0JfYIjI4Pjc}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pjh}#
+ (list (#{emit _85hotwsCta0JfYIjI4PcP}#
+ (car #{x* _85hotwsCta0JfYIjI4Pjg}#))
+ (#{f _85hotwsCta0JfYIjI4Pjd}#
+ (cdr #{x* _85hotwsCta0JfYIjI4Pjg}#)))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pji}#
($sc-dispatch
- #{tmp 25601}#
+ #{tmp _85hotwsCta0JfYIjI4Pjh}#
'(any any))))
- (if #{tmp 25602}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pji}#
(@apply
- (lambda (#{ g25089 25604}#
- #{ g25088 25605}#)
+ (lambda (#{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}#
+ #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#)
(list '#(syntax-object
cons
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25089}#
- #{ g25088}#)
- #((m25090 top)
- (m25090 top))
- #("1eb" "1ec"))
+ #(#{ g_85hotwsCta0JfYIjI4Pbh}#
+ #{ g_85hotwsCta0JfYIjI4Pbg}#)
+ #((m_85hotwsCta0JfYIjI4Pbi
+ top)
+ (m_85hotwsCta0JfYIjI4Pbi
+ top))
+ #("33c" "33d"))
#(ribcage () () ())
#(ribcage
#(f x*)
#((top) (top))
- #("1e9" "1ea"))
+ #("33a" "33b"))
#(ribcage
#(x y)
#((top) (top))
- #("1e7" "1e8"))
+ #("338" "339"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("334"))
#(ribcage
(emit quasivector
quasilist*
@@ -25320,56 +26800,59 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{ g25089 25604}#
- #{ g25088 25605}#))
- #{tmp 25602}#)
+ #{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}#
+ #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#))
+ #{tmp _85hotwsCta0JfYIjI4Pji}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25601}#))))))))
- (#{f 25597}# #{x 25595}#)))
- #{tmp 25591}#)
- (let ((#{tmp 25606}#
+ #{tmp _85hotwsCta0JfYIjI4Pjh}#))))))))
+ (#{f _85hotwsCta0JfYIjI4Pjd}#
+ #{x _85hotwsCta0JfYIjI4Pjb}#)))
+ #{tmp _85hotwsCta0JfYIjI4PjX}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pjm}#
($sc-dispatch
- #{x 25575}#
+ #{x _85hotwsCta0JfYIjI4PjH}#
'(#(atom "append") . each-any))))
- (if #{tmp 25606}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pjm}#
(@apply
- (lambda (#{x 25610}#)
- (let ((#{tmp 25611}#
- (map #{emit 25135}# #{x 25610}#)))
- (let ((#{tmp 25612}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pjq}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pjr}#
+ (map #{emit _85hotwsCta0JfYIjI4PcP}#
+ #{x _85hotwsCta0JfYIjI4Pjq}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pjs}#
($sc-dispatch
- #{tmp 25611}#
+ #{tmp _85hotwsCta0JfYIjI4Pjr}#
'each-any)))
- (if #{tmp 25612}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pjs}#
(@apply
- (lambda (#{ g25098 25614}#)
+ (lambda (#{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#)
(cons '#(syntax-object
append
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25098}#)
- #((m25099 top))
- #("1ee"))
+ #(#{ g_85hotwsCta0JfYIjI4Pbq}#)
+ #((m_85hotwsCta0JfYIjI4Pbr
+ top))
+ #("33f"))
#(ribcage
#(x)
#((top))
- #("1ed"))
+ #("33e"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("334"))
#(ribcage
(emit quasivector
quasilist*
@@ -25384,54 +26867,56 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{ g25098 25614}#))
- #{tmp 25612}#)
+ #{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#))
+ #{tmp _85hotwsCta0JfYIjI4Pjs}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25611}#)))))
- #{tmp 25606}#)
- (let ((#{tmp 25615}#
+ #{tmp _85hotwsCta0JfYIjI4Pjr}#)))))
+ #{tmp _85hotwsCta0JfYIjI4Pjm}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pjv}#
($sc-dispatch
- #{x 25575}#
+ #{x _85hotwsCta0JfYIjI4PjH}#
'(#(atom "vector") . each-any))))
- (if #{tmp 25615}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pjv}#
(@apply
- (lambda (#{x 25619}#)
- (let ((#{tmp 25620}#
- (map #{emit 25135}# #{x 25619}#)))
- (let ((#{tmp 25621}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pjz}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pj0}#
+ (map #{emit _85hotwsCta0JfYIjI4PcP}#
+ #{x _85hotwsCta0JfYIjI4Pjz}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pj1}#
($sc-dispatch
- #{tmp 25620}#
+ #{tmp _85hotwsCta0JfYIjI4Pj0}#
'each-any)))
- (if #{tmp 25621}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pj1}#
(@apply
- (lambda (#{ g25108 25623}#)
+ (lambda (#{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#)
(cons '#(syntax-object
vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25108}#)
- #((m25109 top))
- #("1eg"))
+ #(#{ g_85hotwsCta0JfYIjI4Pb0}#)
+ #((m_85hotwsCta0JfYIjI4Pb1
+ top))
+ #("33h"))
#(ribcage
#(x)
#((top))
- #("1ef"))
+ #("33g"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("334"))
#(ribcage
(emit quasivector
quasilist*
@@ -25446,47 +26931,49 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{ g25108 25623}#))
- #{tmp 25621}#)
+ #{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#))
+ #{tmp _85hotwsCta0JfYIjI4Pj1}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25620}#)))))
- #{tmp 25615}#)
- (let ((#{tmp 25624}#
+ #{tmp _85hotwsCta0JfYIjI4Pj0}#)))))
+ #{tmp _85hotwsCta0JfYIjI4Pjv}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pj4}#
($sc-dispatch
- #{x 25575}#
+ #{x _85hotwsCta0JfYIjI4PjH}#
'(#(atom "list->vector") any))))
- (if #{tmp 25624}#
+ (if #{tmp _85hotwsCta0JfYIjI4Pj4}#
(@apply
- (lambda (#{x 25628}#)
- (let ((#{tmp 25629}#
- (#{emit 25135}# #{x 25628}#)))
+ (lambda (#{x _85hotwsCta0JfYIjI4Pj8}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pj9}#
+ (#{emit _85hotwsCta0JfYIjI4PcP}#
+ #{x _85hotwsCta0JfYIjI4Pj8}#)))
(list '#(syntax-object
list->vector
((top)
#(ribcage () () ())
#(ribcage
- #(#{ g25118}#)
- #((m25119 top))
- #("1ei"))
+ #(#{ g_85hotwsCta0JfYIjI4Pb$}#)
+ #((m_85hotwsCta0JfYIjI4Pb@
+ top))
+ #("33j"))
#(ribcage
#(x)
#((top))
- #("1eh"))
+ #("33i"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1e3"))
+ #("334"))
#(ribcage
(emit quasivector
quasilist*
@@ -25501,188 +26988,218 @@
(top)
(top)
(top))
- ("1cl"
- "1ck"
- "1cj"
- "1ci"
- "1ch"
- "1cg"
- "1cf")))
+ ("31m"
+ "31l"
+ "31k"
+ "31j"
+ "31i"
+ "31h"
+ "31g")))
(hygiene guile))
- #{tmp 25629}#)))
- #{tmp 25624}#)
- (let ((#{tmp 25632}#
+ #{tmp _85hotwsCta0JfYIjI4Pj9}#)))
+ #{tmp _85hotwsCta0JfYIjI4Pj4}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PkA}#
($sc-dispatch
- #{x 25575}#
+ #{x _85hotwsCta0JfYIjI4PjH}#
'(#(atom "value") any))))
- (if #{tmp 25632}#
+ (if #{tmp _85hotwsCta0JfYIjI4PkA}#
(@apply
- (lambda (#{x 25636}#) #{x 25636}#)
- #{tmp 25632}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4PkE}#)
+ #{x _85hotwsCta0JfYIjI4PkE}#)
+ #{tmp _85hotwsCta0JfYIjI4PkA}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25575}#))))))))))))))))))
- (lambda (#{x 25136}#)
- (let ((#{tmp 25138}#
- ($sc-dispatch #{x 25136}# '(_ any))))
- (if #{tmp 25138}#
+ #{x _85hotwsCta0JfYIjI4PjH}#))))))))))))))))))
+ (lambda (#{x _85hotwsCta0JfYIjI4PcQ}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PcS}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4PcQ}#
+ '(_ any))))
+ (if #{tmp _85hotwsCta0JfYIjI4PcS}#
(@apply
- (lambda (#{e 25142}#)
- (#{emit 25135}# (#{quasi 25129}# #{e 25142}# 0)))
- #{tmp 25138}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4PcW}#)
+ (#{emit _85hotwsCta0JfYIjI4PcP}#
+ (#{quasi _85hotwsCta0JfYIjI4PcJ}#
+ #{e _85hotwsCta0JfYIjI4PcW}#
+ 0)))
+ #{tmp _85hotwsCta0JfYIjI4PcS}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25136}#)))))))
+ #{x _85hotwsCta0JfYIjI4PcQ}#)))))))
(define include
(make-syntax-transformer
'include
'macro
- (lambda (#{x 25679}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Pkv}#)
(letrec*
- ((#{read-file 25680}#
- (lambda (#{fn 25789}# #{k 25790}#)
- (let ((#{p 25791}# (open-input-file #{fn 25789}#)))
+ ((#{read-file _85hotwsCta0JfYIjI4Pkw}#
+ (lambda (#{fn _85hotwsCta0JfYIjI4Pmd}#
+ #{k _85hotwsCta0JfYIjI4Pme}#)
+ (let ((#{p _85hotwsCta0JfYIjI4Pmf}#
+ (open-input-file #{fn _85hotwsCta0JfYIjI4Pmd}#)))
(letrec*
- ((#{f 25792}#
- (lambda (#{x 25846}# #{result 25847}#)
- (if (eof-object? #{x 25846}#)
+ ((#{f _85hotwsCta0JfYIjI4Pmg}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PnW}#
+ #{result _85hotwsCta0JfYIjI4PnX}#)
+ (if (eof-object? #{x _85hotwsCta0JfYIjI4PnW}#)
(begin
- (close-input-port #{p 25791}#)
- (reverse #{result 25847}#))
- (#{f 25792}#
- (read #{p 25791}#)
- (cons (datum->syntax #{k 25790}# #{x 25846}#)
- #{result 25847}#))))))
- (#{f 25792}# (read #{p 25791}#) '()))))))
- (let ((#{tmp 25682}#
- ($sc-dispatch #{x 25679}# '(any any))))
- (if #{tmp 25682}#
+ (close-input-port #{p _85hotwsCta0JfYIjI4Pmf}#)
+ (reverse #{result _85hotwsCta0JfYIjI4PnX}#))
+ (#{f _85hotwsCta0JfYIjI4Pmg}#
+ (read #{p _85hotwsCta0JfYIjI4Pmf}#)
+ (cons (datum->syntax
+ #{k _85hotwsCta0JfYIjI4Pme}#
+ #{x _85hotwsCta0JfYIjI4PnW}#)
+ #{result _85hotwsCta0JfYIjI4PnX}#))))))
+ (#{f _85hotwsCta0JfYIjI4Pmg}#
+ (read #{p _85hotwsCta0JfYIjI4Pmf}#)
+ '()))))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pky}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4Pkv}#
+ '(any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Pky}#
(@apply
- (lambda (#{k 25686}# #{filename 25687}#)
- (let ((#{fn 25688}# (syntax->datum #{filename 25687}#)))
- (let ((#{tmp 25689}#
- (#{read-file 25680}#
- #{fn 25688}#
- #{filename 25687}#)))
- (let ((#{tmp 25690}#
- ($sc-dispatch #{tmp 25689}# 'each-any)))
- (if #{tmp 25690}#
+ (lambda (#{k _85hotwsCta0JfYIjI4Pk2}#
+ #{filename _85hotwsCta0JfYIjI4Pk3}#)
+ (let ((#{fn _85hotwsCta0JfYIjI4Pk4}#
+ (syntax->datum
+ #{filename _85hotwsCta0JfYIjI4Pk3}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pk5}#
+ (#{read-file _85hotwsCta0JfYIjI4Pkw}#
+ #{fn _85hotwsCta0JfYIjI4Pk4}#
+ #{filename _85hotwsCta0JfYIjI4Pk3}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pk6}#
+ ($sc-dispatch
+ #{tmp _85hotwsCta0JfYIjI4Pk5}#
+ 'each-any)))
+ (if #{tmp _85hotwsCta0JfYIjI4Pk6}#
(@apply
- (lambda (#{exp 25708}#)
+ (lambda (#{exp _85hotwsCta0JfYIjI4PlM}#)
(cons '#(syntax-object
begin
((top)
#(ribcage () () ())
- #(ribcage #(exp) #((top)) #("1ex"))
+ #(ribcage #(exp) #((top)) #("33y"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1ew"))
+ #(ribcage #(fn) #((top)) #("33x"))
#(ribcage
#(k filename)
#((top) (top))
- #("1eu" "1ev"))
- #(ribcage (read-file) ((top)) ("1en"))
- #(ribcage #(x) #((top)) #("1em")))
+ #("33v" "33w"))
+ #(ribcage (read-file) ((top)) ("33o"))
+ #(ribcage #(x) #((top)) #("33n")))
(hygiene guile))
- #{exp 25708}#))
- #{tmp 25690}#)
+ #{exp _85hotwsCta0JfYIjI4PlM}#))
+ #{tmp _85hotwsCta0JfYIjI4Pk6}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{tmp 25689}#))))))
- #{tmp 25682}#)
+ #{tmp _85hotwsCta0JfYIjI4Pk5}#))))))
+ #{tmp _85hotwsCta0JfYIjI4Pky}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25679}#)))))))
+ #{x _85hotwsCta0JfYIjI4Pkv}#)))))))
(define include-from-path
(make-syntax-transformer
'include-from-path
'macro
- (lambda (#{x 25860}#)
- (let ((#{tmp 25862}#
- ($sc-dispatch #{x 25860}# '(any any))))
- (if #{tmp 25862}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pnk}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pnm}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4Pnk}#
+ '(any any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Pnm}#
(@apply
- (lambda (#{k 25866}# #{filename 25867}#)
- (let ((#{fn 25868}# (syntax->datum #{filename 25867}#)))
- (let ((#{tmp 25869}#
+ (lambda (#{k _85hotwsCta0JfYIjI4Pnq}#
+ #{filename _85hotwsCta0JfYIjI4Pnr}#)
+ (let ((#{fn _85hotwsCta0JfYIjI4Pns}#
+ (syntax->datum
+ #{filename _85hotwsCta0JfYIjI4Pnr}#)))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pnt}#
(datum->syntax
- #{filename 25867}#
- (let ((#{t 25872}# (%search-load-path #{fn 25868}#)))
- (if #{t 25872}#
- #{t 25872}#
+ #{filename _85hotwsCta0JfYIjI4Pnr}#
+ (let ((#{t _85hotwsCta0JfYIjI4Pnw}#
+ (%search-load-path
+ #{fn _85hotwsCta0JfYIjI4Pns}#)))
+ (if #{t _85hotwsCta0JfYIjI4Pnw}#
+ #{t _85hotwsCta0JfYIjI4Pnw}#
(syntax-violation
'include-from-path
"file not found in path"
- #{x 25860}#
- #{filename 25867}#))))))
+ #{x _85hotwsCta0JfYIjI4Pnk}#
+ #{filename _85hotwsCta0JfYIjI4Pnr}#))))))
(list '#(syntax-object
include
((top)
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1f2"))
+ #(ribcage #(fn) #((top)) #("343"))
#(ribcage () () ())
#(ribcage () () ())
- #(ribcage #(fn) #((top)) #("1f1"))
+ #(ribcage #(fn) #((top)) #("342"))
#(ribcage
#(k filename)
#((top) (top))
- #("1ez" "1f0"))
+ #("340" "341"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1ey")))
+ #(ribcage #(x) #((top)) #("33z")))
(hygiene guile))
- #{tmp 25869}#))))
- #{tmp 25862}#)
+ #{tmp _85hotwsCta0JfYIjI4Pnt}#))))
+ #{tmp _85hotwsCta0JfYIjI4Pnm}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25860}#))))))
+ #{x _85hotwsCta0JfYIjI4Pnk}#))))))
(define unquote
(make-syntax-transformer
'unquote
'macro
- (lambda (#{x 25880}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Pn4}#)
(syntax-violation
'unquote
"expression not valid outside of quasiquote"
- #{x 25880}#))))
+ #{x _85hotwsCta0JfYIjI4Pn4}#))))
(define unquote-splicing
(make-syntax-transformer
'unquote-splicing
'macro
- (lambda (#{x 25882}#)
+ (lambda (#{x _85hotwsCta0JfYIjI4Pn6}#)
(syntax-violation
'unquote-splicing
"expression not valid outside of quasiquote"
- #{x 25882}#))))
+ #{x _85hotwsCta0JfYIjI4Pn6}#))))
(define case
(make-syntax-transformer
'case
'macro
- (lambda (#{x 25919}#)
- (let ((#{tmp 25921}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pof}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Poh}#
($sc-dispatch
- #{x 25919}#
+ #{x _85hotwsCta0JfYIjI4Pof}#
'(_ any any . each-any))))
- (if #{tmp 25921}#
+ (if #{tmp _85hotwsCta0JfYIjI4Poh}#
(@apply
- (lambda (#{e 25925}# #{m1 25926}# #{m2 25927}#)
- (let ((#{tmp 25928}#
+ (lambda (#{e _85hotwsCta0JfYIjI4Pol}#
+ #{m1 _85hotwsCta0JfYIjI4Pom}#
+ #{m2 _85hotwsCta0JfYIjI4Pon}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Poo}#
(letrec*
- ((#{f 25970}#
- (lambda (#{clause 25973}# #{clauses 25974}#)
- (if (null? #{clauses 25974}#)
- (let ((#{tmp 25976}#
+ ((#{f _85hotwsCta0JfYIjI4PpS}#
+ (lambda (#{clause _85hotwsCta0JfYIjI4PpV}#
+ #{clauses _85hotwsCta0JfYIjI4PpW}#)
+ (if (null? #{clauses _85hotwsCta0JfYIjI4PpW}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PpY}#
($sc-dispatch
- #{clause 25973}#
+ #{clause _85hotwsCta0JfYIjI4PpV}#
'(#(free-id
#(syntax-object
else
@@ -25691,77 +27208,79 @@
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("34c" "34d" "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("348" "349" "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile)))
any
.
each-any))))
- (if #{tmp 25976}#
+ (if #{tmp _85hotwsCta0JfYIjI4PpY}#
(@apply
- (lambda (#{e1 25980}# #{e2 25981}#)
+ (lambda (#{e1 _85hotwsCta0JfYIjI4Ppc}#
+ #{e2 _85hotwsCta0JfYIjI4Ppd}#)
(cons '#(syntax-object
begin
((top)
#(ribcage
#(e1 e2)
#((top) (top))
- #("1fe" "1ff"))
+ #("34f" "34g"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("34c" "34d" "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("348" "349" "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
- (cons #{e1 25980}# #{e2 25981}#)))
- #{tmp 25976}#)
- (let ((#{tmp 25982}#
+ (cons #{e1 _85hotwsCta0JfYIjI4Ppc}#
+ #{e2 _85hotwsCta0JfYIjI4Ppd}#)))
+ #{tmp _85hotwsCta0JfYIjI4PpY}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ppe}#
($sc-dispatch
- #{clause 25973}#
+ #{clause _85hotwsCta0JfYIjI4PpV}#
'(each-any any . each-any))))
- (if #{tmp 25982}#
+ (if #{tmp _85hotwsCta0JfYIjI4Ppe}#
(@apply
- (lambda (#{k 25986}#
- #{e1 25987}#
- #{e2 25988}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4Ppi}#
+ #{e1 _85hotwsCta0JfYIjI4Ppj}#
+ #{e2 _85hotwsCta0JfYIjI4Ppk}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fg" "1fh" "1fi"))
+ #("34h" "34i" "34j"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("34c" "34d" "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("348" "349" "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25771,9 +27290,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("34h"
+ "34i"
+ "34j"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25782,22 +27301,22 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
'#(syntax-object
t
@@ -25807,9 +27326,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("34h"
+ "34i"
+ "34j"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25818,22 +27337,22 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -25843,9 +27362,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("34h"
+ "34i"
+ "34j"))
#(ribcage
()
()
@@ -25857,17 +27376,17 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage
()
()
@@ -25875,10 +27394,10 @@
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene
guile))
- #{k 25986}#))
+ #{k _85hotwsCta0JfYIjI4Ppi}#))
(cons '#(syntax-object
begin
((top)
@@ -25887,9 +27406,9 @@
#((top)
(top)
(top))
- #("1fg"
- "1fh"
- "1fi"))
+ #("34h"
+ "34i"
+ "34j"))
#(ribcage () () ())
#(ribcage
#(f
@@ -25898,70 +27417,70 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
- (cons #{e1 25987}#
- #{e2 25988}#))))
- #{tmp 25982}#)
+ (cons #{e1 _85hotwsCta0JfYIjI4Ppj}#
+ #{e2 _85hotwsCta0JfYIjI4Ppk}#))))
+ #{tmp _85hotwsCta0JfYIjI4Ppe}#)
(syntax-violation
'case
"bad clause"
- #{x 25919}#
- #{clause 25973}#)))))
- (let ((#{tmp 25996}#
- (#{f 25970}#
- (car #{clauses 25974}#)
- (cdr #{clauses 25974}#))))
- (let ((#{tmp 25999}#
+ #{x _85hotwsCta0JfYIjI4Pof}#
+ #{clause _85hotwsCta0JfYIjI4PpV}#)))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pps}#
+ (#{f _85hotwsCta0JfYIjI4PpS}#
+ (car #{clauses _85hotwsCta0JfYIjI4PpW}#)
+ (cdr #{clauses _85hotwsCta0JfYIjI4PpW}#))))
+ (let ((#{tmp _85hotwsCta0JfYIjI4Ppv}#
($sc-dispatch
- #{clause 25973}#
+ #{clause _85hotwsCta0JfYIjI4PpV}#
'(each-any any . each-any))))
- (if #{tmp 25999}#
+ (if #{tmp _85hotwsCta0JfYIjI4Ppv}#
(@apply
- (lambda (#{k 26003}#
- #{e1 26004}#
- #{e2 26005}#)
+ (lambda (#{k _85hotwsCta0JfYIjI4Ppz}#
+ #{e1 _85hotwsCta0JfYIjI4Pp0}#
+ #{e2 _85hotwsCta0JfYIjI4Pp1}#)
(list '#(syntax-object
if
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl" "1fm" "1fn"))
+ #("34m" "34n" "34o"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("34l"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb" "1fc" "1fd"))
+ #("34c" "34d" "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("348" "349" "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
(list '#(syntax-object
memv
@@ -25969,32 +27488,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("34m"
+ "34n"
+ "34o"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("34l"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
'#(syntax-object
t
@@ -26002,32 +27521,32 @@
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("34m"
+ "34n"
+ "34o"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("34l"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
(list '#(syntax-object
quote
@@ -26037,9 +27556,9 @@
#((top)
(top)
(top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("34m"
+ "34n"
+ "34o"))
#(ribcage
()
()
@@ -26047,7 +27566,7 @@
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("34l"))
#(ribcage
()
()
@@ -26059,17 +27578,17 @@
#((top)
(top)
(top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top)
(top)
(top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage
()
()
@@ -26077,232 +27596,238 @@
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
- #{k 26003}#))
+ #{k _85hotwsCta0JfYIjI4Ppz}#))
(cons '#(syntax-object
begin
((top)
#(ribcage
#(k e1 e2)
#((top) (top) (top))
- #("1fl"
- "1fm"
- "1fn"))
+ #("34m"
+ "34n"
+ "34o"))
#(ribcage () () ())
#(ribcage
#(rest)
#((top))
- #("1fk"))
+ #("34l"))
#(ribcage () () ())
#(ribcage
#(f clause clauses)
#((top) (top) (top))
- #("1fb"
- "1fc"
- "1fd"))
+ #("34c"
+ "34d"
+ "34e"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7"
- "1f8"
- "1f9"))
+ #("348"
+ "349"
+ "34a"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1f6")))
+ #("347")))
(hygiene guile))
- (cons #{e1 26004}#
- #{e2 26005}#))
- #{tmp 25996}#))
- #{tmp 25999}#)
+ (cons #{e1 _85hotwsCta0JfYIjI4Pp0}#
+ #{e2 _85hotwsCta0JfYIjI4Pp1}#))
+ #{tmp _85hotwsCta0JfYIjI4Pps}#))
+ #{tmp _85hotwsCta0JfYIjI4Ppv}#)
(syntax-violation
'case
"bad clause"
- #{x 25919}#
- #{clause 25973}#))))))))
- (#{f 25970}# #{m1 25926}# #{m2 25927}#))))
- (let ((#{body 25929}# #{tmp 25928}#))
+ #{x _85hotwsCta0JfYIjI4Pof}#
+ #{clause _85hotwsCta0JfYIjI4PpV}#))))))))
+ (#{f _85hotwsCta0JfYIjI4PpS}#
+ #{m1 _85hotwsCta0JfYIjI4Pom}#
+ #{m2 _85hotwsCta0JfYIjI4Pon}#))))
+ (let ((#{body _85hotwsCta0JfYIjI4Pop}#
+ #{tmp _85hotwsCta0JfYIjI4Poo}#))
(list '#(syntax-object
let
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1fa"))
+ #(ribcage #(body) #((top)) #("34b"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("348" "349" "34a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f6")))
+ #(ribcage #(x) #((top)) #("347")))
(hygiene guile))
(list (list '#(syntax-object
t
((top)
#(ribcage () () ())
- #(ribcage #(body) #((top)) #("1fa"))
+ #(ribcage #(body) #((top)) #("34b"))
#(ribcage
#(e m1 m2)
#((top) (top) (top))
- #("1f7" "1f8" "1f9"))
+ #("348" "349" "34a"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1f6")))
+ #(ribcage #(x) #((top)) #("347")))
(hygiene guile))
- #{e 25925}#))
- #{body 25929}#))))
- #{tmp 25921}#)
+ #{e _85hotwsCta0JfYIjI4Pol}#))
+ #{body _85hotwsCta0JfYIjI4Pop}#))))
+ #{tmp _85hotwsCta0JfYIjI4Poh}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 25919}#))))))
+ #{x _85hotwsCta0JfYIjI4Pof}#))))))
(define make-variable-transformer
- (lambda (#{proc 26020}#)
- (if (procedure? #{proc 26020}#)
+ (lambda (#{proc _85hotwsCta0JfYIjI4PqE}#)
+ (if (procedure? #{proc _85hotwsCta0JfYIjI4PqE}#)
(letrec*
- ((#{trans 26021}#
- (lambda (#{x 26027}#)
- (#{proc 26020}# #{x 26027}#))))
+ ((#{trans _85hotwsCta0JfYIjI4PqF}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PqL}#)
+ (#{proc _85hotwsCta0JfYIjI4PqE}#
+ #{x _85hotwsCta0JfYIjI4PqL}#))))
(begin
(set-procedure-property!
- #{trans 26021}#
+ #{trans _85hotwsCta0JfYIjI4PqF}#
'variable-transformer
#t)
- #{trans 26021}#))
+ #{trans _85hotwsCta0JfYIjI4PqF}#))
(error "variable transformer not a procedure"
- #{proc 26020}#))))
+ #{proc _85hotwsCta0JfYIjI4PqE}#))))
(define identifier-syntax
(make-syntax-transformer
'identifier-syntax
'macro
- (lambda (#{x 26047}#)
- (let ((#{tmp 26049}#
- ($sc-dispatch #{x 26047}# '(_ any))))
- (if #{tmp 26049}#
+ (lambda (#{x _85hotwsCta0JfYIjI4Pqf}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pqh}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4Pqf}#
+ '(_ any))))
+ (if #{tmp _85hotwsCta0JfYIjI4Pqh}#
(@apply
- (lambda (#{e 26053}#)
+ (lambda (#{e _85hotwsCta0JfYIjI4Pql}#)
(list '#(syntax-object
lambda
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'(#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile)))
'#((#(syntax-object
macro-type
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
.
#(syntax-object
identifier-syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'()
(list '#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'(#(syntax-object
identifier?
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
(#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
#(syntax-object
id
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
- #{e 26053}#))
+ #{e _85hotwsCta0JfYIjI4Pql}#))
(list '(#(syntax-object
_
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
#(syntax-object
x
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
#(syntax-object
...
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile)))
(list '#(syntax-object
syntax
((top)
- #(ribcage #(e) #((top)) #("1ft"))
+ #(ribcage #(e) #((top)) #("34u"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
- (cons #{e 26053}#
+ (cons #{e _85hotwsCta0JfYIjI4Pql}#
'(#(syntax-object
x
((top)
#(ribcage
#(e)
#((top))
- #("1ft"))
+ #("34u"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
#(syntax-object
...
@@ -26310,55 +27835,55 @@
#(ribcage
#(e)
#((top))
- #("1ft"))
+ #("34u"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile)))))))))
- #{tmp 26049}#)
- (let ((#{tmp 26054}#
+ #{tmp _85hotwsCta0JfYIjI4Pqh}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4Pqm}#
($sc-dispatch
- #{x 26047}#
+ #{x _85hotwsCta0JfYIjI4Pqf}#
'(_ (any any)
((#(free-id
#(syntax-object
set!
((top)
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile)))
any
any)
any)))))
- (if (if #{tmp 26054}#
+ (if (if #{tmp _85hotwsCta0JfYIjI4Pqm}#
(@apply
- (lambda (#{id 26058}#
- #{exp1 26059}#
- #{var 26060}#
- #{val 26061}#
- #{exp2 26062}#)
- (if (identifier? #{id 26058}#)
- (identifier? #{var 26060}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4Pqq}#
+ #{exp1 _85hotwsCta0JfYIjI4Pqr}#
+ #{var _85hotwsCta0JfYIjI4Pqs}#
+ #{val _85hotwsCta0JfYIjI4Pqt}#
+ #{exp2 _85hotwsCta0JfYIjI4Pqu}#)
+ (if (identifier? #{id _85hotwsCta0JfYIjI4Pqq}#)
+ (identifier? #{var _85hotwsCta0JfYIjI4Pqs}#)
#f))
- #{tmp 26054}#)
+ #{tmp _85hotwsCta0JfYIjI4Pqm}#)
#f)
(@apply
- (lambda (#{id 26063}#
- #{exp1 26064}#
- #{var 26065}#
- #{val 26066}#
- #{exp2 26067}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4Pqv}#
+ #{exp1 _85hotwsCta0JfYIjI4Pqw}#
+ #{var _85hotwsCta0JfYIjI4Pqx}#
+ #{val _85hotwsCta0JfYIjI4Pqy}#
+ #{exp2 _85hotwsCta0JfYIjI4Pqz}#)
(list '#(syntax-object
make-variable-transformer
((top)
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
(list '#(syntax-object
lambda
@@ -26366,9 +27891,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'(#(syntax-object
x
@@ -26376,9 +27901,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile)))
'#((#(syntax-object
macro-type
@@ -26386,9 +27911,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
.
#(syntax-object
@@ -26397,9 +27922,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))))
(list '#(syntax-object
syntax-case
@@ -26407,9 +27932,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'#(syntax-object
x
@@ -26417,9 +27942,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile))
'(#(syntax-object
set!
@@ -26427,9 +27952,9 @@
#(ribcage
#(id exp1 var val exp2)
#((top) (top) (top) (top) (top))
- #("1fz" "1g0" "1g1" "1g2" "1g3"))
+ #("350" "351" "352" "353" "354"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1fs")))
+ #(ribcage #(x) #((top)) #("34t")))
(hygiene guile)))
(list (list '#(syntax-object
set!
@@ -26441,19 +27966,19 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
- #{var 26065}#
- #{val 26066}#)
+ #{var _85hotwsCta0JfYIjI4Pqx}#
+ #{val _85hotwsCta0JfYIjI4Pqy}#)
(list '#(syntax-object
syntax
((top)
@@ -26464,19 +27989,19 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
- #{exp2 26067}#))
- (list (cons #{id 26063}#
+ #{exp2 _85hotwsCta0JfYIjI4Pqz}#))
+ (list (cons #{id _85hotwsCta0JfYIjI4Pqv}#
'(#(syntax-object
x
((top)
@@ -26487,16 +28012,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
#(syntax-object
...
@@ -26508,16 +28033,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))))
(list '#(syntax-object
syntax
@@ -26529,18 +28054,18 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
- (cons #{exp1 26064}#
+ (cons #{exp1 _85hotwsCta0JfYIjI4Pqw}#
'(#(syntax-object
x
((top)
@@ -26555,16 +28080,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
#(syntax-object
...
@@ -26580,18 +28105,18 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))))))
- (list #{id 26063}#
+ (list #{id _85hotwsCta0JfYIjI4Pqv}#
(list '#(syntax-object
identifier?
((top)
@@ -26602,16 +28127,16 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
(list '#(syntax-object
syntax
@@ -26627,18 +28152,18 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
- #{id 26063}#))
+ #{id _85hotwsCta0JfYIjI4Pqv}#))
(list '#(syntax-object
syntax
((top)
@@ -26649,68 +28174,72 @@
(top)
(top)
(top))
- #("1fz"
- "1g0"
- "1g1"
- "1g2"
- "1g3"))
+ #("350"
+ "351"
+ "352"
+ "353"
+ "354"))
#(ribcage () () ())
#(ribcage
#(x)
#((top))
- #("1fs")))
+ #("34t")))
(hygiene guile))
- #{exp1 26064}#))))))
- #{tmp 26054}#)
+ #{exp1 _85hotwsCta0JfYIjI4Pqw}#))))))
+ #{tmp _85hotwsCta0JfYIjI4Pqm}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 26047}#))))))))
+ #{x _85hotwsCta0JfYIjI4Pqf}#))))))))
(define define*
(make-syntax-transformer
'define*
'macro
- (lambda (#{x 26090}#)
- (let ((#{tmp 26092}#
+ (lambda (#{x _85hotwsCta0JfYIjI4PrK}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PrM}#
($sc-dispatch
- #{x 26090}#
+ #{x _85hotwsCta0JfYIjI4PrK}#
'(_ (any . any) any . each-any))))
- (if #{tmp 26092}#
+ (if #{tmp _85hotwsCta0JfYIjI4PrM}#
(@apply
- (lambda (#{id 26096}#
- #{args 26097}#
- #{b0 26098}#
- #{b1 26099}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4PrQ}#
+ #{args _85hotwsCta0JfYIjI4PrR}#
+ #{b0 _85hotwsCta0JfYIjI4PrS}#
+ #{b1 _85hotwsCta0JfYIjI4PrT}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1g5" "1g6" "1g7" "1g8"))
+ #("356" "357" "358" "359"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("355")))
(hygiene guile))
- #{id 26096}#
+ #{id _85hotwsCta0JfYIjI4PrQ}#
(cons '#(syntax-object
lambda*
((top)
#(ribcage
#(id args b0 b1)
#((top) (top) (top) (top))
- #("1g5" "1g6" "1g7" "1g8"))
+ #("356" "357" "358" "359"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("355")))
(hygiene guile))
- (cons #{args 26097}#
- (cons #{b0 26098}# #{b1 26099}#)))))
- #{tmp 26092}#)
- (let ((#{tmp 26100}#
- ($sc-dispatch #{x 26090}# '(_ any any))))
- (if (if #{tmp 26100}#
+ (cons #{args _85hotwsCta0JfYIjI4PrR}#
+ (cons #{b0 _85hotwsCta0JfYIjI4PrS}#
+ #{b1 _85hotwsCta0JfYIjI4PrT}#)))))
+ #{tmp _85hotwsCta0JfYIjI4PrM}#)
+ (let ((#{tmp _85hotwsCta0JfYIjI4PrU}#
+ ($sc-dispatch
+ #{x _85hotwsCta0JfYIjI4PrK}#
+ '(_ any any))))
+ (if (if #{tmp _85hotwsCta0JfYIjI4PrU}#
(@apply
- (lambda (#{id 26104}# #{val 26105}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4PrY}#
+ #{val _85hotwsCta0JfYIjI4PrZ}#)
(identifier?
'#(syntax-object
x
@@ -26718,29 +28247,30 @@
#(ribcage
#(id val)
#((top) (top))
- #("1g9" "1ga"))
+ #("35a" "35b"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("355")))
(hygiene guile))))
- #{tmp 26100}#)
+ #{tmp _85hotwsCta0JfYIjI4PrU}#)
#f)
(@apply
- (lambda (#{id 26106}# #{val 26107}#)
+ (lambda (#{id _85hotwsCta0JfYIjI4Pra}#
+ #{val _85hotwsCta0JfYIjI4Prb}#)
(list '#(syntax-object
define
((top)
#(ribcage
#(id val)
#((top) (top))
- #("1gb" "1gc"))
+ #("35c" "35d"))
#(ribcage () () ())
- #(ribcage #(x) #((top)) #("1g4")))
+ #(ribcage #(x) #((top)) #("355")))
(hygiene guile))
- #{id 26106}#
- #{val 26107}#))
- #{tmp 26100}#)
+ #{id _85hotwsCta0JfYIjI4Pra}#
+ #{val _85hotwsCta0JfYIjI4Prb}#))
+ #{tmp _85hotwsCta0JfYIjI4PrU}#)
(syntax-violation
#f
"source expression failed to match any pattern"
- #{x 26090}#))))))))
+ #{x _85hotwsCta0JfYIjI4PrK}#))))))))
diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm
index fd33e9825..024bb8535 100644
--- a/module/ice-9/psyntax.scm
+++ b/module/ice-9/psyntax.scm
@@ -791,6 +791,55 @@
id))))))
(else (syntax-violation 'id-var-name "invalid id" id)))))
+ ;; A helper procedure for syntax-locally-bound-identifiers, which
+ ;; itself is a helper for transformer procedures.
+ ;; `locally-bound-identifiers' returns a list of all bindings
+ ;; visible to a syntax object with the given wrap. They are in
+ ;; order from outer to inner.
+ ;;
+ ;; The purpose of this procedure is to give a transformer procedure
+ ;; references on bound identifiers, that the transformer can then
+ ;; introduce some of them in its output. As such, the identifiers
+ ;; are anti-marked, so that rebuild-macro-output doesn't apply new
+ ;; marks to them.
+ ;;
+ (define locally-bound-identifiers
+ (lambda (w mod)
+ (define scan
+ (lambda (subst results)
+ (if (null? subst)
+ results
+ (let ((fst (car subst)))
+ (if (eq? fst 'shift)
+ (scan (cdr subst) results)
+ (let ((symnames (ribcage-symnames fst))
+ (marks (ribcage-marks fst)))
+ (if (vector? symnames)
+ (scan-vector-rib subst symnames marks results)
+ (scan-list-rib subst symnames marks results))))))))
+ (define scan-list-rib
+ (lambda (subst symnames marks results)
+ (let f ((symnames symnames) (marks marks) (results results))
+ (if (null? symnames)
+ (scan (cdr subst) results)
+ (f (cdr symnames) (cdr marks)
+ (cons (wrap (car symnames)
+ (anti-mark (make-wrap (car marks) subst))
+ mod)
+ results))))))
+ (define scan-vector-rib
+ (lambda (subst symnames marks results)
+ (let ((n (vector-length symnames)))
+ (let f ((i 0) (results results))
+ (if (fx= i n)
+ (scan (cdr subst) results)
+ (f (fx+ i 1)
+ (cons (wrap (vector-ref symnames i)
+ (anti-mark (make-wrap (vector-ref marks i) subst))
+ mod)
+ results)))))))
+ (scan (wrap-subst w) '())))
+
;; Returns three values: binding type, binding value, the module (for
;; resolving toplevel vars).
(define (resolve-identifier id w r mod)
@@ -2478,7 +2527,7 @@
(set! syntax-local-binding
(lambda (id)
- (arg-check nonsymbol-id? id 'syntax-local-value)
+ (arg-check nonsymbol-id? id 'syntax-local-binding)
(with-transformer-environment
(lambda (e r w s rib mod)
(define (strip-anti-mark w)
@@ -2500,9 +2549,15 @@
((macro) (values 'macro value))
((syntax) (values 'pattern-variable value))
((displaced-lexical) (values 'displaced-lexical #f))
- ((global) (values 'global (cons value mod)))
+ ((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)