From 3d51e57cfb0404db568a6adfde2a346d3fd9907e Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 15 Jan 2012 18:39:44 +0100 Subject: [PATCH] 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. --- doc/ref/api-macros.texi | 37 +- module/ice-9/boot-9.scm | 1 + module/ice-9/psyntax-pp.scm | 24438 ++++++++++++++++++---------------- module/ice-9/psyntax.scm | 59 +- 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) -- 2.20.1