From 1ace4fbf3dcacee77540aaaa49e032bad9ed9e27 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 23 Jan 2012 12:31:33 +0100 Subject: [PATCH] add syntax-module * module/ice-9/psyntax.scm (syntax-module): New accessor for syntax objects. * module/ice-9/psyntax-pp.scm: Regenerate. * module/ice-9/boot-9.scm: Declare syntax-module. * doc/ref/api-macros.texi: Document it. --- doc/ref/api-macros.texi | 5 + module/ice-9/boot-9.scm | 1 + module/ice-9/psyntax-pp.scm | 14124 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 5 + 4 files changed, 7082 insertions(+), 7053 deletions(-) diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi index 02b5d5c8a..2b6f15a54 100644 --- a/doc/ref/api-macros.texi +++ b/doc/ref/api-macros.texi @@ -706,6 +706,11 @@ Return the source properties that correspond to the syntax object @var{x}. @xref{Source Properties}, for more information. @end deffn +@deffn {Scheme Procedure} syntax-module id +Return the name of the module whose source contains the identifier +@var{id}. +@end deffn + @deffn {Scheme Procedure} syntax-local-binding id Resolve the identifer @var{id}, a syntax object, within the current lexical environment, and return two values, the binding type and a diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index cd5520373..3914ff35f 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -385,6 +385,7 @@ If there is no handler at all, Guile prints an error and then exits." (define datum->syntax #f) (define syntax->datum #f) (define syntax-source #f) +(define syntax-module #f) (define identifier? #f) (define generate-temporaries #f) (define bound-identifier=? #f) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index f87379f41..daded1ab6 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1553 +1,1553 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{gen-label _85hotwsCta0JfYIjI4J3p}# (if #f #f)) - (#{transformer-environment _85hotwsCta0JfYIjI4J39}# +(let ((#{gen-label _hoQGWMnyQPAh3k2jhWHTD}# (if #f #f)) + (#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# (if #f #f))) (letrec* - ((#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - (lambda (#{x _85hotwsCta0JfYIjI4PLs}# - #{mod _85hotwsCta0JfYIjI4PLt}#) - (primitive-eval #{x _85hotwsCta0JfYIjI4PLs}#))) - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - (lambda (#{symbol _85hotwsCta0JfYIjI4MjC}# - #{module _85hotwsCta0JfYIjI4MjD}#) + ((#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMnv}# + #{mod _hoQGWMnyQPAh3k2jhWMnw}#) + (primitive-eval #{x _hoQGWMnyQPAh3k2jhWMnv}#))) + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + (lambda (#{symbol _hoQGWMnyQPAh3k2jhWJ@F}# + #{module _hoQGWMnyQPAh3k2jhWJ@G}#) (begin - (if (if (not #{module _85hotwsCta0JfYIjI4MjD}#) + (if (if (not #{module _hoQGWMnyQPAh3k2jhWJ@G}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol _85hotwsCta0JfYIjI4MjC}#)) - (let ((#{v _85hotwsCta0JfYIjI4MjE}# + #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWJ@H}# (module-variable - (if #{module _85hotwsCta0JfYIjI4MjD}# + (if #{module _hoQGWMnyQPAh3k2jhWJ@G}# (resolve-module - (cdr #{module _85hotwsCta0JfYIjI4MjD}#)) + (cdr #{module _hoQGWMnyQPAh3k2jhWJ@G}#)) (current-module)) - #{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}#)) + #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#))) + (if #{v _hoQGWMnyQPAh3k2jhWJ@H}# + (if (variable-bound? #{v _hoQGWMnyQPAh3k2jhWJ@H}#) + (let ((#{val _hoQGWMnyQPAh3k2jhWJ@J}# + (variable-ref #{v _hoQGWMnyQPAh3k2jhWJ@H}#))) + (if (macro? #{val _hoQGWMnyQPAh3k2jhWJ@J}#) + (if (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) + (cons (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) + (macro-binding #{val _hoQGWMnyQPAh3k2jhWJ@J}#)) #f) #f)) #f) #f))))) - (#{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - (lambda (#{name _85hotwsCta0JfYIjI4Mnb}# - #{val _85hotwsCta0JfYIjI4Mnc}#) - (if (if (struct? #{val _85hotwsCta0JfYIjI4Mnc}#) - (eq? (struct-vtable #{val _85hotwsCta0JfYIjI4Mnc}#) + (#{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + (lambda (#{name _hoQGWMnyQPAh3k2jhWKDe}# + #{val _hoQGWMnyQPAh3k2jhWKDf}#) + (if (if (struct? #{val _hoQGWMnyQPAh3k2jhWKDf}#) + (eq? (struct-vtable #{val _hoQGWMnyQPAh3k2jhWKDf}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mnj}# - (struct-ref #{val _85hotwsCta0JfYIjI4Mnc}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mnj}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mno}# - (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mnb}#) - #{meta _85hotwsCta0JfYIjI4Mnj}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWKDm}# + (struct-ref #{val _hoQGWMnyQPAh3k2jhWKDf}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKDm}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKDr}# + (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWKDe}#) + #{meta _hoQGWMnyQPAh3k2jhWKDm}#))) (struct-set! - #{val _85hotwsCta0JfYIjI4Mnc}# + #{val _hoQGWMnyQPAh3k2jhWKDf}# 1 - #{v _85hotwsCta0JfYIjI4Mno}#))))))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - (lambda (#{source _85hotwsCta0JfYIjI4MjI}# - #{fun-exp _85hotwsCta0JfYIjI4MjJ}# - #{arg-exps _85hotwsCta0JfYIjI4MjK}#) + #{v _hoQGWMnyQPAh3k2jhWKDr}#))))))) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@L}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source _85hotwsCta0JfYIjI4MjI}# - #{fun-exp _85hotwsCta0JfYIjI4MjJ}# - #{arg-exps _85hotwsCta0JfYIjI4MjK}#))) - (#{build-conditional _85hotwsCta0JfYIjI4J3H}# - (lambda (#{source _85hotwsCta0JfYIjI4MjQ}# - #{test-exp _85hotwsCta0JfYIjI4MjR}# - #{then-exp _85hotwsCta0JfYIjI4MjS}# - #{else-exp _85hotwsCta0JfYIjI4MjT}#) + #{source _hoQGWMnyQPAh3k2jhWJ@L}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#))) + (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@T}# + #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# + #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# + #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source _85hotwsCta0JfYIjI4MjQ}# - #{test-exp _85hotwsCta0JfYIjI4MjR}# - #{then-exp _85hotwsCta0JfYIjI4MjS}# - #{else-exp _85hotwsCta0JfYIjI4MjT}#))) - (#{build-dynlet _85hotwsCta0JfYIjI4J3I}# - (lambda (#{source _85hotwsCta0JfYIjI4Mja}# - #{fluids _85hotwsCta0JfYIjI4Mjb}# - #{vals _85hotwsCta0JfYIjI4Mjc}# - #{body _85hotwsCta0JfYIjI4Mjd}#) + #{source _hoQGWMnyQPAh3k2jhWJ@T}# + #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# + #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# + #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#))) + (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@d}# + #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# + #{vals _hoQGWMnyQPAh3k2jhWJ@f}# + #{body _hoQGWMnyQPAh3k2jhWJ@g}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source _85hotwsCta0JfYIjI4Mja}# - #{fluids _85hotwsCta0JfYIjI4Mjb}# - #{vals _85hotwsCta0JfYIjI4Mjc}# - #{body _85hotwsCta0JfYIjI4Mjd}#))) - (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}# - (lambda (#{type _85hotwsCta0JfYIjI4PLu}# - #{source _85hotwsCta0JfYIjI4PLv}# - #{name _85hotwsCta0JfYIjI4PLw}# - #{var _85hotwsCta0JfYIjI4PLx}#) + #{source _hoQGWMnyQPAh3k2jhWJ@d}# + #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# + #{vals _hoQGWMnyQPAh3k2jhWJ@f}# + #{body _hoQGWMnyQPAh3k2jhWJ@g}#))) + (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWMnx}# + #{source _hoQGWMnyQPAh3k2jhWMny}# + #{name _hoQGWMnyQPAh3k2jhWMnz}# + #{var _hoQGWMnyQPAh3k2jhWMn0}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source _85hotwsCta0JfYIjI4PLv}# - #{name _85hotwsCta0JfYIjI4PLw}# - #{var _85hotwsCta0JfYIjI4PLx}#))) - (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}# - (lambda (#{source _85hotwsCta0JfYIjI4Mjk}# - #{name _85hotwsCta0JfYIjI4Mjl}# - #{var _85hotwsCta0JfYIjI4Mjm}# - #{exp _85hotwsCta0JfYIjI4Mjn}#) + #{source _hoQGWMnyQPAh3k2jhWMny}# + #{name _hoQGWMnyQPAh3k2jhWMnz}# + #{var _hoQGWMnyQPAh3k2jhWMn0}#))) + (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@n}# + #{name _hoQGWMnyQPAh3k2jhWJ@o}# + #{var _hoQGWMnyQPAh3k2jhWJ@p}# + #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4Mjn}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Mjn}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mj3}# - (struct-ref #{exp _85hotwsCta0JfYIjI4Mjn}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mj3}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mj$}# - (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mjl}#) - #{meta _85hotwsCta0JfYIjI4Mj3}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWJ@6}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWJ@6}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKAB}# + (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWJ@o}#) + #{meta _hoQGWMnyQPAh3k2jhWJ@6}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4Mjn}# + #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1 - #{v _85hotwsCta0JfYIjI4Mj$}#))))) + #{v _hoQGWMnyQPAh3k2jhWKAB}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{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}# + #{source _hoQGWMnyQPAh3k2jhWJ@n}# + #{name _hoQGWMnyQPAh3k2jhWJ@o}# + #{var _hoQGWMnyQPAh3k2jhWJ@p}# + #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)))) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWMn6}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# + #{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#) + (if (not #{mod _hoQGWMnyQPAh3k2jhWMn6}#) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#) + (let ((#{kind _hoQGWMnyQPAh3k2jhWMn$}# + (car #{mod _hoQGWMnyQPAh3k2jhWMn6}#)) + (#{mod _hoQGWMnyQPAh3k2jhWMn@}# + (cdr #{mod _hoQGWMnyQPAh3k2jhWMn6}#))) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'public) + (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# #t) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'private) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'private) (if (not (equal? - #{mod _85hotwsCta0JfYIjI4PL8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# (module-name (current-module)))) - (#{modref-cont _85hotwsCta0JfYIjI4PL5}# - #{mod _85hotwsCta0JfYIjI4PL8}# - #{var _85hotwsCta0JfYIjI4PL4}# + (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# #f) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#)) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'bare) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'hygiene) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#)) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'bare) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'hygiene) (if (if (not (equal? - #{mod _85hotwsCta0JfYIjI4PL8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# (module-name (current-module)))) (module-variable - (resolve-module #{mod _85hotwsCta0JfYIjI4PL8}#) - #{var _85hotwsCta0JfYIjI4PL4}#) + (resolve-module #{mod _hoQGWMnyQPAh3k2jhWMn@}#) + #{var _hoQGWMnyQPAh3k2jhWMn7}#) #f) - (#{modref-cont _85hotwsCta0JfYIjI4PL5}# - #{mod _85hotwsCta0JfYIjI4PL8}# - #{var _85hotwsCta0JfYIjI4PL4}# + (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# #f) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#)) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#)) (syntax-violation #f "bad module kind" - #{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}#) + #{var _hoQGWMnyQPAh3k2jhWMn7}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}#))))))))) + (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWMoO}# + #{var _hoQGWMnyQPAh3k2jhWMoP}# + #{mod _hoQGWMnyQPAh3k2jhWMoQ}#) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + #{mod _hoQGWMnyQPAh3k2jhWMoQ}# + #{var _hoQGWMnyQPAh3k2jhWMoP}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWMoT}# + #{var _hoQGWMnyQPAh3k2jhWMoU}# + #{public? _hoQGWMnyQPAh3k2jhWMoV}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source _85hotwsCta0JfYIjI4PML}# - #{mod _85hotwsCta0JfYIjI4PMQ}# - #{var _85hotwsCta0JfYIjI4PMR}# - #{public? _85hotwsCta0JfYIjI4PMS}#)) - (lambda (#{var _85hotwsCta0JfYIjI4PMa}#) + #{source _hoQGWMnyQPAh3k2jhWMoO}# + #{mod _hoQGWMnyQPAh3k2jhWMoT}# + #{var _hoQGWMnyQPAh3k2jhWMoU}# + #{public? _hoQGWMnyQPAh3k2jhWMoV}#)) + (lambda (#{var _hoQGWMnyQPAh3k2jhWMod}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source _85hotwsCta0JfYIjI4PML}# - #{var _85hotwsCta0JfYIjI4PMa}#))))) - (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}# - (lambda (#{source _85hotwsCta0JfYIjI4MkH}# - #{var _85hotwsCta0JfYIjI4MkI}# - #{exp _85hotwsCta0JfYIjI4MkJ}# - #{mod _85hotwsCta0JfYIjI4MkK}#) + #{source _hoQGWMnyQPAh3k2jhWMoO}# + #{var _hoQGWMnyQPAh3k2jhWMod}#))))) + (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWKAK}# + #{var _hoQGWMnyQPAh3k2jhWKAL}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}# + #{mod _hoQGWMnyQPAh3k2jhWKAN}#) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4MkJ}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4MkJ}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWKAM}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWKAM}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mka}# - (struct-ref #{exp _85hotwsCta0JfYIjI4MkJ}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mka}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mkh}# - (cons (cons 'name #{var _85hotwsCta0JfYIjI4MkI}#) - #{meta _85hotwsCta0JfYIjI4Mka}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWKAd}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKAd}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKAk}# + (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWKAL}#) + #{meta _hoQGWMnyQPAh3k2jhWKAd}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4MkJ}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1 - #{v _85hotwsCta0JfYIjI4Mkh}#))))) - (#{analyze-variable _85hotwsCta0JfYIjI4J3L}# - #{mod _85hotwsCta0JfYIjI4MkK}# - #{var _85hotwsCta0JfYIjI4MkI}# - (lambda (#{mod _85hotwsCta0JfYIjI4Mkm}# - #{var _85hotwsCta0JfYIjI4Mkn}# - #{public? _85hotwsCta0JfYIjI4Mko}#) + #{v _hoQGWMnyQPAh3k2jhWKAk}#))))) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + #{mod _hoQGWMnyQPAh3k2jhWKAN}# + #{var _hoQGWMnyQPAh3k2jhWKAL}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWKAp}# + #{var _hoQGWMnyQPAh3k2jhWKAq}# + #{public? _hoQGWMnyQPAh3k2jhWKAr}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source _85hotwsCta0JfYIjI4MkH}# - #{mod _85hotwsCta0JfYIjI4Mkm}# - #{var _85hotwsCta0JfYIjI4Mkn}# - #{public? _85hotwsCta0JfYIjI4Mko}# - #{exp _85hotwsCta0JfYIjI4MkJ}#)) - (lambda (#{var _85hotwsCta0JfYIjI4Mkw}#) + #{source _hoQGWMnyQPAh3k2jhWKAK}# + #{mod _hoQGWMnyQPAh3k2jhWKAp}# + #{var _hoQGWMnyQPAh3k2jhWKAq}# + #{public? _hoQGWMnyQPAh3k2jhWKAr}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}#)) + (lambda (#{var _hoQGWMnyQPAh3k2jhWKAz}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source _85hotwsCta0JfYIjI4MkH}# - #{var _85hotwsCta0JfYIjI4Mkw}# - #{exp _85hotwsCta0JfYIjI4MkJ}#)))))) - (#{build-global-definition _85hotwsCta0JfYIjI4J3O}# - (lambda (#{source _85hotwsCta0JfYIjI4PMg}# - #{var _85hotwsCta0JfYIjI4PMh}# - #{exp _85hotwsCta0JfYIjI4PMi}#) + #{source _hoQGWMnyQPAh3k2jhWKAK}# + #{var _hoQGWMnyQPAh3k2jhWKAz}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}#)))))) + (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWMoj}# + #{var _hoQGWMnyQPAh3k2jhWMok}# + #{exp _hoQGWMnyQPAh3k2jhWMol}#) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4PMi}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4PMi}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWMol}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWMol}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4PMy}# - (struct-ref #{exp _85hotwsCta0JfYIjI4PMi}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4PMy}#)) - (let ((#{v _85hotwsCta0JfYIjI4PM5}# - (cons (cons 'name #{var _85hotwsCta0JfYIjI4PMh}#) - #{meta _85hotwsCta0JfYIjI4PMy}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWMo1}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWMol}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWMo1}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWMo8}# + (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWMok}#) + #{meta _hoQGWMnyQPAh3k2jhWMo1}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4PMi}# + #{exp _hoQGWMnyQPAh3k2jhWMol}# 1 - #{v _85hotwsCta0JfYIjI4PM5}#))))) + #{v _hoQGWMnyQPAh3k2jhWMo8}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{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}# + #{source _hoQGWMnyQPAh3k2jhWMoj}# + #{var _hoQGWMnyQPAh3k2jhWMok}# + #{exp _hoQGWMnyQPAh3k2jhWMol}#)))) + (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKA5}# + #{req _hoQGWMnyQPAh3k2jhWKA6}# + #{rest _hoQGWMnyQPAh3k2jhWKA7}# + #{vars _hoQGWMnyQPAh3k2jhWKA8}# + #{meta _hoQGWMnyQPAh3k2jhWKA9}# + #{exp _hoQGWMnyQPAh3k2jhWKA$}#) + (let ((#{body _hoQGWMnyQPAh3k2jhWKBE}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _85hotwsCta0JfYIjI4Mk2}# - #{req _85hotwsCta0JfYIjI4Mk3}# + #{src _hoQGWMnyQPAh3k2jhWKA5}# + #{req _hoQGWMnyQPAh3k2jhWKA6}# #f - #{rest _85hotwsCta0JfYIjI4Mk4}# + #{rest _hoQGWMnyQPAh3k2jhWKA7}# #f '() - #{vars _85hotwsCta0JfYIjI4Mk5}# - #{exp _85hotwsCta0JfYIjI4Mk7}# + #{vars _hoQGWMnyQPAh3k2jhWKA8}# + #{exp _hoQGWMnyQPAh3k2jhWKA$}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _85hotwsCta0JfYIjI4Mk2}# - #{meta _85hotwsCta0JfYIjI4Mk6}# - #{body _85hotwsCta0JfYIjI4MlB}#)))) - (#{build-sequence _85hotwsCta0JfYIjI4J3U}# - (lambda (#{src _85hotwsCta0JfYIjI4PNB}# - #{exps _85hotwsCta0JfYIjI4PNC}#) - (if (null? (cdr #{exps _85hotwsCta0JfYIjI4PNC}#)) - (car #{exps _85hotwsCta0JfYIjI4PNC}#) + #{src _hoQGWMnyQPAh3k2jhWKA5}# + #{meta _hoQGWMnyQPAh3k2jhWKA9}# + #{body _hoQGWMnyQPAh3k2jhWKBE}#)))) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWMpE}# + #{exps _hoQGWMnyQPAh3k2jhWMpF}#) + (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWMpF}#)) + (car #{exps _hoQGWMnyQPAh3k2jhWMpF}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src _85hotwsCta0JfYIjI4PNB}# - #{exps _85hotwsCta0JfYIjI4PNC}#)))) - (#{build-let _85hotwsCta0JfYIjI4J3V}# - (lambda (#{src _85hotwsCta0JfYIjI4MlN}# - #{ids _85hotwsCta0JfYIjI4MlO}# - #{vars _85hotwsCta0JfYIjI4MlP}# - #{val-exps _85hotwsCta0JfYIjI4MlQ}# - #{body-exp _85hotwsCta0JfYIjI4MlR}#) + #{src _hoQGWMnyQPAh3k2jhWMpE}# + #{exps _hoQGWMnyQPAh3k2jhWMpF}#)))) + (#{build-let _hoQGWMnyQPAh3k2jhWHSv}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKBQ}# + #{ids _hoQGWMnyQPAh3k2jhWKBR}# + #{vars _hoQGWMnyQPAh3k2jhWKBS}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#) (begin (for-each - #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - #{ids _85hotwsCta0JfYIjI4MlO}# - #{val-exps _85hotwsCta0JfYIjI4MlQ}#) - (if (null? #{vars _85hotwsCta0JfYIjI4MlP}#) - #{body-exp _85hotwsCta0JfYIjI4MlR}# + #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + #{ids _hoQGWMnyQPAh3k2jhWKBR}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#) + (if (null? #{vars _hoQGWMnyQPAh3k2jhWKBS}#) + #{body-exp _hoQGWMnyQPAh3k2jhWKBU}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{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}# + #{src _hoQGWMnyQPAh3k2jhWKBQ}# + #{ids _hoQGWMnyQPAh3k2jhWKBR}# + #{vars _hoQGWMnyQPAh3k2jhWKBS}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#))))) + (#{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKBs}# + #{ids _hoQGWMnyQPAh3k2jhWKBt}# + #{vars _hoQGWMnyQPAh3k2jhWKBu}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBv}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#) + (let ((#{f _hoQGWMnyQPAh3k2jhWKBx}# + (car #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) + (#{f-name _hoQGWMnyQPAh3k2jhWKBy}# + (car #{ids _hoQGWMnyQPAh3k2jhWKBt}#)) + (#{vars _hoQGWMnyQPAh3k2jhWKBz}# + (cdr #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) + (#{ids _hoQGWMnyQPAh3k2jhWKB0}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKBt}#))) + (let ((#{proc _hoQGWMnyQPAh3k2jhWKB1}# + (let ((#{body _hoQGWMnyQPAh3k2jhWKCJ}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _85hotwsCta0JfYIjI4Mlp}# - #{ids _85hotwsCta0JfYIjI4Mlx}# + #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{ids _hoQGWMnyQPAh3k2jhWKB0}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4Mlw}# - #{body-exp _85hotwsCta0JfYIjI4Mlt}# + #{vars _hoQGWMnyQPAh3k2jhWKBz}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBw}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _85hotwsCta0JfYIjI4Mlp}# + #{src _hoQGWMnyQPAh3k2jhWKBs}# '() - #{body _85hotwsCta0JfYIjI4MmG}#)))) + #{body _hoQGWMnyQPAh3k2jhWKCJ}#)))) (begin - (if (if (struct? #{proc _85hotwsCta0JfYIjI4Mly}#) - (eq? (struct-vtable #{proc _85hotwsCta0JfYIjI4Mly}#) + (if (if (struct? #{proc _hoQGWMnyQPAh3k2jhWKB1}#) + (eq? (struct-vtable #{proc _hoQGWMnyQPAh3k2jhWKB1}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mme}# - (struct-ref #{proc _85hotwsCta0JfYIjI4Mly}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mme}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mml}# + (let ((#{meta _hoQGWMnyQPAh3k2jhWKCh}# + (struct-ref #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKCh}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKCo}# (cons (cons 'name - #{f-name _85hotwsCta0JfYIjI4Mlv}#) - #{meta _85hotwsCta0JfYIjI4Mme}#))) + #{f-name _hoQGWMnyQPAh3k2jhWKBy}#) + #{meta _hoQGWMnyQPAh3k2jhWKCh}#))) (struct-set! - #{proc _85hotwsCta0JfYIjI4Mly}# + #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1 - #{v _85hotwsCta0JfYIjI4Mml}#))))) + #{v _hoQGWMnyQPAh3k2jhWKCo}#))))) (for-each - #{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}# + #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + #{ids _hoQGWMnyQPAh3k2jhWKB0}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#) + (let ((#{names _hoQGWMnyQPAh3k2jhWKDA}# + (list #{f-name _hoQGWMnyQPAh3k2jhWKBy}#)) + (#{gensyms _hoQGWMnyQPAh3k2jhWKDB}# + (list #{f _hoQGWMnyQPAh3k2jhWKBx}#)) + (#{vals _hoQGWMnyQPAh3k2jhWKDC}# + (list #{proc _hoQGWMnyQPAh3k2jhWKB1}#)) + (#{body _hoQGWMnyQPAh3k2jhWKDD}# + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src _85hotwsCta0JfYIjI4Mlp}# - #{f-name _85hotwsCta0JfYIjI4Mlv}# - #{f _85hotwsCta0JfYIjI4Mlu}#))) + #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{f-name _hoQGWMnyQPAh3k2jhWKBy}# + #{f _hoQGWMnyQPAh3k2jhWKBx}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src _85hotwsCta0JfYIjI4Mlp}# - #{fun-exp _85hotwsCta0JfYIjI4MnE}# - #{val-exps _85hotwsCta0JfYIjI4Mls}#)))) + #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _85hotwsCta0JfYIjI4Mlp}# + #{src _hoQGWMnyQPAh3k2jhWKBs}# #f - #{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}# + #{names _hoQGWMnyQPAh3k2jhWKDA}# + #{gensyms _hoQGWMnyQPAh3k2jhWKDB}# + #{vals _hoQGWMnyQPAh3k2jhWKDC}# + #{body _hoQGWMnyQPAh3k2jhWKDD}#))))))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKDX}# + #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# + #{ids _hoQGWMnyQPAh3k2jhWKDZ}# + #{vars _hoQGWMnyQPAh3k2jhWKDa}# + #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# + #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#) + (if (null? #{vars _hoQGWMnyQPAh3k2jhWKDa}#) + #{body-exp _hoQGWMnyQPAh3k2jhWKDc}# (begin (for-each - #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - #{ids _85hotwsCta0JfYIjI4MnW}# - #{val-exps _85hotwsCta0JfYIjI4MnY}#) + #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + #{ids _hoQGWMnyQPAh3k2jhWKDZ}# + #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{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}#) + #{src _hoQGWMnyQPAh3k2jhWKDX}# + #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# + #{ids _hoQGWMnyQPAh3k2jhWKDZ}# + #{vars _hoQGWMnyQPAh3k2jhWKDa}# + #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# + #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#))))) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKD2}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKD2}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKD2}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 0) 'syntax-object) #f) #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}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 1)) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWKD2}#) + (let ((#{props _hoQGWMnyQPAh3k2jhWKEF}# + (source-properties #{x _hoQGWMnyQPAh3k2jhWKD2}#))) + (if (pair? #{props _hoQGWMnyQPAh3k2jhWKEF}#) + #{props _hoQGWMnyQPAh3k2jhWKEF}# #f)) #f)))) - (#{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}#) + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEH}# + #{bindings _hoQGWMnyQPAh3k2jhWKEI}# + #{r _hoQGWMnyQPAh3k2jhWKEJ}#) + (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEH}#) + #{r _hoQGWMnyQPAh3k2jhWKEJ}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + (cdr #{labels _hoQGWMnyQPAh3k2jhWKEH}#) + (cdr #{bindings _hoQGWMnyQPAh3k2jhWKEI}#) + (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEH}#) + (car #{bindings _hoQGWMnyQPAh3k2jhWKEI}#)) + #{r _hoQGWMnyQPAh3k2jhWKEJ}#))))) + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEK}# + #{vars _hoQGWMnyQPAh3k2jhWKEL}# + #{r _hoQGWMnyQPAh3k2jhWKEM}#) + (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEK}#) + #{r _hoQGWMnyQPAh3k2jhWKEM}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + (cdr #{labels _hoQGWMnyQPAh3k2jhWKEK}#) + (cdr #{vars _hoQGWMnyQPAh3k2jhWKEL}#) + (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEK}#) (cons 'lexical - (car #{vars _85hotwsCta0JfYIjI4MoI}#))) - #{r _85hotwsCta0JfYIjI4MoJ}#))))) - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - (lambda (#{r _85hotwsCta0JfYIjI4MoK}#) - (if (null? #{r _85hotwsCta0JfYIjI4MoK}#) + (car #{vars _hoQGWMnyQPAh3k2jhWKEL}#))) + #{r _hoQGWMnyQPAh3k2jhWKEM}#))))) + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWKEN}#) + (if (null? #{r _hoQGWMnyQPAh3k2jhWKEN}#) '() - (let ((#{a _85hotwsCta0JfYIjI4MoL}# - (car #{r _85hotwsCta0JfYIjI4MoK}#))) - (if (eq? (car (cdr #{a _85hotwsCta0JfYIjI4MoL}#)) + (let ((#{a _hoQGWMnyQPAh3k2jhWKEO}# + (car #{r _hoQGWMnyQPAh3k2jhWKEN}#))) + (if (eq? (car (cdr #{a _hoQGWMnyQPAh3k2jhWKEO}#)) '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}#) + (cons #{a _hoQGWMnyQPAh3k2jhWKEO}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))) + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWKEQ}# + #{sym _hoQGWMnyQPAh3k2jhWKER}# + #{val _hoQGWMnyQPAh3k2jhWKES}#) (module-define! (current-module) - #{sym _85hotwsCta0JfYIjI4MoO}# + #{sym _hoQGWMnyQPAh3k2jhWKER}# (make-syntax-transformer - #{sym _85hotwsCta0JfYIjI4MoO}# - #{type _85hotwsCta0JfYIjI4MoN}# - #{val _85hotwsCta0JfYIjI4MoP}#)))) - (#{id? _85hotwsCta0JfYIjI4J3n}# - (lambda (#{x _85hotwsCta0JfYIjI4LJz}#) - (if (symbol? #{x _85hotwsCta0JfYIjI4LJz}#) + #{sym _hoQGWMnyQPAh3k2jhWKER}# + #{type _hoQGWMnyQPAh3k2jhWKEQ}# + #{val _hoQGWMnyQPAh3k2jhWKES}#)))) + (#{id? _hoQGWMnyQPAh3k2jhWHTB}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWIlN}#) + (if (symbol? #{x _hoQGWMnyQPAh3k2jhWIlN}#) #t - (if (if (vector? #{x _85hotwsCta0JfYIjI4LJz}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4LJz}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIlN}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIlN}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 1)) #f)))) - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - (lambda (#{ls _85hotwsCta0JfYIjI4Moc}#) - (if (null? #{ls _85hotwsCta0JfYIjI4Moc}#) + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (lambda (#{ls _hoQGWMnyQPAh3k2jhWKEf}#) + (if (null? #{ls _hoQGWMnyQPAh3k2jhWKEf}#) '() - (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}# + (cons (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#) + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (cdr #{ls _hoQGWMnyQPAh3k2jhWKEf}#)))))) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEg}# + #{labels _hoQGWMnyQPAh3k2jhWKEh}# + #{w _hoQGWMnyQPAh3k2jhWKEi}#) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWKEg}#) + #{w _hoQGWMnyQPAh3k2jhWKEi}# + (cons (car #{w _hoQGWMnyQPAh3k2jhWKEi}#) + (cons (let ((#{labelvec _hoQGWMnyQPAh3k2jhWKEj}# (list->vector - #{labels _85hotwsCta0JfYIjI4Moe}#))) - (let ((#{n _85hotwsCta0JfYIjI4Moh}# + #{labels _hoQGWMnyQPAh3k2jhWKEh}#))) + (let ((#{n _hoQGWMnyQPAh3k2jhWKEk}# (vector-length - #{labelvec _85hotwsCta0JfYIjI4Mog}#))) - (let ((#{symnamevec _85hotwsCta0JfYIjI4Moi}# - (make-vector #{n _85hotwsCta0JfYIjI4Moh}#)) - (#{marksvec _85hotwsCta0JfYIjI4Moj}# - (make-vector #{n _85hotwsCta0JfYIjI4Moh}#))) + #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))) + (let ((#{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# + (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#)) + (#{marksvec _hoQGWMnyQPAh3k2jhWKEm}# + (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#))) (begin (letrec* - ((#{f _85hotwsCta0JfYIjI4Mok}# - (lambda (#{ids _85hotwsCta0JfYIjI4Mon}# - #{i _85hotwsCta0JfYIjI4Moo}#) - (if (not (null? #{ids _85hotwsCta0JfYIjI4Mon}#)) + ((#{f _hoQGWMnyQPAh3k2jhWKEn}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEq}# + #{i _hoQGWMnyQPAh3k2jhWKEr}#) + (if (not (null? #{ids _hoQGWMnyQPAh3k2jhWKEq}#)) (call-with-values (lambda () - (let ((#{x _85hotwsCta0JfYIjI4Mor}# - (car #{ids _85hotwsCta0JfYIjI4Mon}#))) + (let ((#{x _hoQGWMnyQPAh3k2jhWKEu}# + (car #{ids _hoQGWMnyQPAh3k2jhWKEq}#))) (if (if (vector? - #{x _85hotwsCta0JfYIjI4Mor}#) + #{x _hoQGWMnyQPAh3k2jhWKEu}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Mor}#) + #{x _hoQGWMnyQPAh3k2jhWKEu}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Mor}# + #{x _hoQGWMnyQPAh3k2jhWKEu}# 0) 'syntax-object) #f) #f) (values (vector-ref - #{x _85hotwsCta0JfYIjI4Mor}# + #{x _hoQGWMnyQPAh3k2jhWKEu}# 1) - (let ((#{m1 _85hotwsCta0JfYIjI4Mo7}# - (car #{w _85hotwsCta0JfYIjI4Mof}#)) - (#{m2 _85hotwsCta0JfYIjI4Mo8}# + (let ((#{m1 _hoQGWMnyQPAh3k2jhWKE$}# + (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)) + (#{m2 _hoQGWMnyQPAh3k2jhWKE@}# (car (vector-ref - #{x _85hotwsCta0JfYIjI4Mor}# + #{x _hoQGWMnyQPAh3k2jhWKEu}# 2)))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mo8}#) - #{m1 _85hotwsCta0JfYIjI4Mo7}# + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKE@}#) + #{m1 _hoQGWMnyQPAh3k2jhWKE$}# (append - #{m1 _85hotwsCta0JfYIjI4Mo7}# - #{m2 _85hotwsCta0JfYIjI4Mo8}#)))) + #{m1 _hoQGWMnyQPAh3k2jhWKE$}# + #{m2 _hoQGWMnyQPAh3k2jhWKE@}#)))) (values - #{x _85hotwsCta0JfYIjI4Mor}# - (car #{w _85hotwsCta0JfYIjI4Mof}#))))) - (lambda (#{symname _85hotwsCta0JfYIjI4MpQ}# - #{marks _85hotwsCta0JfYIjI4MpR}#) + #{x _hoQGWMnyQPAh3k2jhWKEu}# + (car #{w _hoQGWMnyQPAh3k2jhWKEi}#))))) + (lambda (#{symname _hoQGWMnyQPAh3k2jhWKFT}# + #{marks _hoQGWMnyQPAh3k2jhWKFU}#) (begin (vector-set! - #{symnamevec _85hotwsCta0JfYIjI4Moi}# - #{i _85hotwsCta0JfYIjI4Moo}# - #{symname _85hotwsCta0JfYIjI4MpQ}#) + #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# + #{i _hoQGWMnyQPAh3k2jhWKEr}# + #{symname _hoQGWMnyQPAh3k2jhWKFT}#) (vector-set! - #{marksvec _85hotwsCta0JfYIjI4Moj}# - #{i _85hotwsCta0JfYIjI4Moo}# - #{marks _85hotwsCta0JfYIjI4MpR}#) - (#{f _85hotwsCta0JfYIjI4Mok}# - (cdr #{ids _85hotwsCta0JfYIjI4Mon}#) - (#{1+}# #{i _85hotwsCta0JfYIjI4Moo}#))))))))) - (#{f _85hotwsCta0JfYIjI4Mok}# - #{ids _85hotwsCta0JfYIjI4Mod}# + #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# + #{i _hoQGWMnyQPAh3k2jhWKEr}# + #{marks _hoQGWMnyQPAh3k2jhWKFU}#) + (#{f _hoQGWMnyQPAh3k2jhWKEn}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKEq}#) + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKEr}#))))))))) + (#{f _hoQGWMnyQPAh3k2jhWKEn}# + #{ids _hoQGWMnyQPAh3k2jhWKEg}# 0)) (vector 'ribcage - #{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}# + #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# + #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# + #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))))) + (cdr #{w _hoQGWMnyQPAh3k2jhWKEi}#)))))) + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + (lambda (#{w1 _hoQGWMnyQPAh3k2jhWKFd}# + #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) + (let ((#{m1 _hoQGWMnyQPAh3k2jhWKFf}# + (car #{w1 _hoQGWMnyQPAh3k2jhWKFd}#)) + (#{s1 _hoQGWMnyQPAh3k2jhWKFg}# + (cdr #{w1 _hoQGWMnyQPAh3k2jhWKFd}#))) + (if (null? #{m1 _hoQGWMnyQPAh3k2jhWKFf}#) + (if (null? #{s1 _hoQGWMnyQPAh3k2jhWKFg}#) + #{w2 _hoQGWMnyQPAh3k2jhWKFe}# + (cons (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) + (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFn}# + (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFn}#) + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# (append - #{s1 _85hotwsCta0JfYIjI4Mpd}# - #{m2 _85hotwsCta0JfYIjI4Mpk}#))))) - (cons (let ((#{m2 _85hotwsCta0JfYIjI4Mpt}# - (car #{w2 _85hotwsCta0JfYIjI4Mpb}#))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mpt}#) - #{m1 _85hotwsCta0JfYIjI4Mpc}# + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{m2 _hoQGWMnyQPAh3k2jhWKFn}#))))) + (cons (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFw}# + (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFw}#) + #{m1 _hoQGWMnyQPAh3k2jhWKFf}# (append - #{m1 _85hotwsCta0JfYIjI4Mpc}# - #{m2 _85hotwsCta0JfYIjI4Mpt}#))) - (let ((#{m2 _85hotwsCta0JfYIjI4Mp2}# - (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mp2}#) - #{s1 _85hotwsCta0JfYIjI4Mpd}# + #{m1 _hoQGWMnyQPAh3k2jhWKFf}# + #{m2 _hoQGWMnyQPAh3k2jhWKFw}#))) + (let ((#{m2 _hoQGWMnyQPAh3k2jhWKF5}# + (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKF5}#) + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# (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}#)) + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{m2 _hoQGWMnyQPAh3k2jhWKF5}#)))))))) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKF$}# + #{y _hoQGWMnyQPAh3k2jhWKF@}#) + (if (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# + #{y _hoQGWMnyQPAh3k2jhWKF@}#) + (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# + #{y _hoQGWMnyQPAh3k2jhWKF@}#) + (if (not (null? #{x _hoQGWMnyQPAh3k2jhWKF$}#)) + (if (not (null? #{y _hoQGWMnyQPAh3k2jhWKF@}#)) + (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWKF$}#) + (car #{y _hoQGWMnyQPAh3k2jhWKF@}#)) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (cdr #{x _hoQGWMnyQPAh3k2jhWKF$}#) + (cdr #{y _hoQGWMnyQPAh3k2jhWKF@}#)) #f) #f) #f)))) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - (lambda (#{id _85hotwsCta0JfYIjI4MqE}# - #{w _85hotwsCta0JfYIjI4MqF}#) + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWKGH}# + #{w _hoQGWMnyQPAh3k2jhWKGI}#) (letrec* - ((#{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}# + ((#{search _hoQGWMnyQPAh3k2jhWKGJ}# + (lambda (#{sym _hoQGWMnyQPAh3k2jhWKHG}# + #{subst _hoQGWMnyQPAh3k2jhWKHH}# + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (if (null? #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + (values #f #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (let ((#{fst _hoQGWMnyQPAh3k2jhWKHJ}# + (car #{subst _hoQGWMnyQPAh3k2jhWKHH}#))) + (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 'shift) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{sym _hoQGWMnyQPAh3k2jhWKHG}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + (cdr #{marks _hoQGWMnyQPAh3k2jhWKHI}#)) + (let ((#{symnames _hoQGWMnyQPAh3k2jhWKHL}# + (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 1))) + (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKHL}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWKHX}# (vector-length - #{symnames _85hotwsCta0JfYIjI4MrI}#))) + #{symnames _hoQGWMnyQPAh3k2jhWKHL}#))) (letrec* - ((#{f _85hotwsCta0JfYIjI4MrV}# - (lambda (#{i _85hotwsCta0JfYIjI4MrX}#) - (if (= #{i _85hotwsCta0JfYIjI4MrX}# - #{n _85hotwsCta0JfYIjI4MrU}#) - (#{search _85hotwsCta0JfYIjI4MqG}# - #{sym _85hotwsCta0JfYIjI4MrD}# - (cdr #{subst _85hotwsCta0JfYIjI4MrE}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) + ((#{f _hoQGWMnyQPAh3k2jhWKHY}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWKHa}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWKHa}# + #{n _hoQGWMnyQPAh3k2jhWKHX}#) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{sym _hoQGWMnyQPAh3k2jhWKHG}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) (if (if (eq? (vector-ref - #{symnames _85hotwsCta0JfYIjI4MrI}# - #{i _85hotwsCta0JfYIjI4MrX}#) - #{sym _85hotwsCta0JfYIjI4MrD}#) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - #{marks _85hotwsCta0JfYIjI4MrF}# + #{symnames _hoQGWMnyQPAh3k2jhWKHL}# + #{i _hoQGWMnyQPAh3k2jhWKHa}#) + #{sym _hoQGWMnyQPAh3k2jhWKHG}#) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + #{marks _hoQGWMnyQPAh3k2jhWKHI}# (vector-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 2) - #{i _85hotwsCta0JfYIjI4MrX}#)) + #{i _hoQGWMnyQPAh3k2jhWKHa}#)) #f) (values (vector-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 3) - #{i _85hotwsCta0JfYIjI4MrX}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) - (#{f _85hotwsCta0JfYIjI4MrV}# - (#{1+}# #{i _85hotwsCta0JfYIjI4MrX}#))))))) - (#{f _85hotwsCta0JfYIjI4MrV}# 0))) + #{i _hoQGWMnyQPAh3k2jhWKHa}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (#{f _hoQGWMnyQPAh3k2jhWKHY}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKHa}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWKHY}# 0))) (letrec* - ((#{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}# + ((#{f _hoQGWMnyQPAh3k2jhWKH7}# + (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKH9}# + #{i _hoQGWMnyQPAh3k2jhWKH$}#) + (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{sym _hoQGWMnyQPAh3k2jhWKHG}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (if (if (eq? (car #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) + #{sym _hoQGWMnyQPAh3k2jhWKHG}#) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + #{marks _hoQGWMnyQPAh3k2jhWKHI}# (list-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 2) - #{i _85hotwsCta0JfYIjI4Mr7}#)) + #{i _hoQGWMnyQPAh3k2jhWKH$}#)) #f) (values (list-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 3) - #{i _85hotwsCta0JfYIjI4Mr7}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) - (#{f _85hotwsCta0JfYIjI4Mr4}# - (cdr #{symnames _85hotwsCta0JfYIjI4Mr6}#) - (#{1+}# #{i _85hotwsCta0JfYIjI4Mr7}#))))))) - (#{f _85hotwsCta0JfYIjI4Mr4}# - #{symnames _85hotwsCta0JfYIjI4MrI}# + #{i _hoQGWMnyQPAh3k2jhWKH$}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (#{f _hoQGWMnyQPAh3k2jhWKH7}# + (cdr #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKH$}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWKH7}# + #{symnames _hoQGWMnyQPAh3k2jhWKHL}# 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}#) + (if (symbol? #{id _hoQGWMnyQPAh3k2jhWKGH}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWKGM}# + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{id _hoQGWMnyQPAh3k2jhWKGH}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) + (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)))) + (if #{t _hoQGWMnyQPAh3k2jhWKGM}# + #{t _hoQGWMnyQPAh3k2jhWKGM}# + #{id _hoQGWMnyQPAh3k2jhWKGH}#)) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWKGH}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWKGH}#) 4) - (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 0) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 0) 'syntax-object) #f) #f) - (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}# + (let ((#{id _hoQGWMnyQPAh3k2jhWKGb}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 1)) + (#{w1 _hoQGWMnyQPAh3k2jhWKGc}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 2))) + (let ((#{marks _hoQGWMnyQPAh3k2jhWKGd}# + (let ((#{m1 _hoQGWMnyQPAh3k2jhWKGn}# + (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)) + (#{m2 _hoQGWMnyQPAh3k2jhWKGo}# + (car #{w1 _hoQGWMnyQPAh3k2jhWKGc}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKGo}#) + #{m1 _hoQGWMnyQPAh3k2jhWKGn}# (append - #{m1 _85hotwsCta0JfYIjI4Mqk}# - #{m2 _85hotwsCta0JfYIjI4Mql}#))))) + #{m1 _hoQGWMnyQPAh3k2jhWKGn}# + #{m2 _hoQGWMnyQPAh3k2jhWKGo}#))))) (call-with-values (lambda () - (#{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}#))))))) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{id _hoQGWMnyQPAh3k2jhWKGb}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) + #{marks _hoQGWMnyQPAh3k2jhWKGd}#)) + (lambda (#{new-id _hoQGWMnyQPAh3k2jhWKG4}# + #{marks _hoQGWMnyQPAh3k2jhWKG5}#) + (if #{new-id _hoQGWMnyQPAh3k2jhWKG4}# + #{new-id _hoQGWMnyQPAh3k2jhWKG4}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKHB}# + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{id _hoQGWMnyQPAh3k2jhWKGb}# + (cdr #{w1 _hoQGWMnyQPAh3k2jhWKGc}#) + #{marks _hoQGWMnyQPAh3k2jhWKG5}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKHB}# + #{t _hoQGWMnyQPAh3k2jhWKHB}# + #{id _hoQGWMnyQPAh3k2jhWKGb}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id _85hotwsCta0JfYIjI4MqE}#)))))) - (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}# - (lambda (#{w _85hotwsCta0JfYIjI4MsR}# - #{mod _85hotwsCta0JfYIjI4MsS}#) + #{id _hoQGWMnyQPAh3k2jhWKGH}#)))))) + (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# + (lambda (#{w _hoQGWMnyQPAh3k2jhWKIU}# + #{mod _hoQGWMnyQPAh3k2jhWKIV}#) (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}#) + ((#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (lambda (#{subst _hoQGWMnyQPAh3k2jhWKIb}# + #{results _hoQGWMnyQPAh3k2jhWKIc}#) + (if (null? #{subst _hoQGWMnyQPAh3k2jhWKIb}#) + #{results _hoQGWMnyQPAh3k2jhWKIc}# + (let ((#{fst _hoQGWMnyQPAh3k2jhWKId}# + (car #{subst _hoQGWMnyQPAh3k2jhWKIb}#))) + (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKId}# 'shift) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKIb}#) + #{results _hoQGWMnyQPAh3k2jhWKIc}#) + (let ((#{symnames _hoQGWMnyQPAh3k2jhWKIf}# + (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 1)) + (#{marks _hoQGWMnyQPAh3k2jhWKIg}# + (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 2))) + (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKIf}#) + (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# + #{subst _hoQGWMnyQPAh3k2jhWKIb}# + #{symnames _hoQGWMnyQPAh3k2jhWKIf}# + #{marks _hoQGWMnyQPAh3k2jhWKIg}# + #{results _hoQGWMnyQPAh3k2jhWKIc}#) + (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# + #{subst _hoQGWMnyQPAh3k2jhWKIb}# + #{symnames _hoQGWMnyQPAh3k2jhWKIf}# + #{marks _hoQGWMnyQPAh3k2jhWKIg}# + #{results _hoQGWMnyQPAh3k2jhWKIc}#)))))))) + (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# + (lambda (#{subst _hoQGWMnyQPAh3k2jhWKKC}# + #{symnames _hoQGWMnyQPAh3k2jhWKKD}# + #{marks _hoQGWMnyQPAh3k2jhWKKE}# + #{results _hoQGWMnyQPAh3k2jhWKKF}#) (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@}#))) + ((#{f _hoQGWMnyQPAh3k2jhWKKG}# + (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKLq}# + #{marks _hoQGWMnyQPAh3k2jhWKLr}# + #{results _hoQGWMnyQPAh3k2jhWKLs}#) + (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKKC}#) + #{results _hoQGWMnyQPAh3k2jhWKLs}#) + (#{f _hoQGWMnyQPAh3k2jhWKKG}# + (cdr #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) + (cdr #{marks _hoQGWMnyQPAh3k2jhWKLr}#) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) + (let ((#{w _hoQGWMnyQPAh3k2jhWKL0}# + (cons (car #{marks _hoQGWMnyQPAh3k2jhWKLr}#) + #{subst _hoQGWMnyQPAh3k2jhWKKC}#))) (cons (cons #f - (car #{w _85hotwsCta0JfYIjI4Mvx}#)) + (car #{w _hoQGWMnyQPAh3k2jhWKL0}#)) (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}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKL0}#)))) + #{mod _hoQGWMnyQPAh3k2jhWKIV}#) + #{results _hoQGWMnyQPAh3k2jhWKLs}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWKKG}# + #{symnames _hoQGWMnyQPAh3k2jhWKKD}# + #{marks _hoQGWMnyQPAh3k2jhWKKE}# + #{results _hoQGWMnyQPAh3k2jhWKKF}#)))) + (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# + (lambda (#{subst _hoQGWMnyQPAh3k2jhWKL1}# + #{symnames _hoQGWMnyQPAh3k2jhWKL2}# + #{marks _hoQGWMnyQPAh3k2jhWKL3}# + #{results _hoQGWMnyQPAh3k2jhWKL4}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWKL5}# (vector-length - #{symnames _85hotwsCta0JfYIjI4Mvz}#))) + #{symnames _hoQGWMnyQPAh3k2jhWKL2}#))) (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}# + ((#{f _hoQGWMnyQPAh3k2jhWKL6}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWKNN}# + #{results _hoQGWMnyQPAh3k2jhWKNO}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWKNN}# + #{n _hoQGWMnyQPAh3k2jhWKL5}#) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKL1}#) + #{results _hoQGWMnyQPAh3k2jhWKNO}#) + (#{f _hoQGWMnyQPAh3k2jhWKL6}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKNN}#) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (vector-ref - #{symnames _85hotwsCta0JfYIjI4Mvz}# - #{i _85hotwsCta0JfYIjI4MxK}#) - (let ((#{w _85hotwsCta0JfYIjI4MxT}# + #{symnames _hoQGWMnyQPAh3k2jhWKL2}# + #{i _hoQGWMnyQPAh3k2jhWKNN}#) + (let ((#{w _hoQGWMnyQPAh3k2jhWKNW}# (cons (vector-ref - #{marks _85hotwsCta0JfYIjI4Mv0}# - #{i _85hotwsCta0JfYIjI4MxK}#) - #{subst _85hotwsCta0JfYIjI4Mvy}#))) + #{marks _hoQGWMnyQPAh3k2jhWKL3}# + #{i _hoQGWMnyQPAh3k2jhWKNN}#) + #{subst _hoQGWMnyQPAh3k2jhWKL1}#))) (cons (cons #f - (car #{w _85hotwsCta0JfYIjI4MxT}#)) + (car #{w _hoQGWMnyQPAh3k2jhWKNW}#)) (cons 'shift - (cdr #{w _85hotwsCta0JfYIjI4MxT}#)))) - #{mod _85hotwsCta0JfYIjI4MsS}#) - #{results _85hotwsCta0JfYIjI4MxL}#)))))) - (#{f _85hotwsCta0JfYIjI4Mv3}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKNW}#)))) + #{mod _hoQGWMnyQPAh3k2jhWKIV}#) + #{results _hoQGWMnyQPAh3k2jhWKNO}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWKL6}# 0 - #{results _85hotwsCta0JfYIjI4Mv1}#)))))) - (#{scan _85hotwsCta0JfYIjI4MsT}# - (cdr #{w _85hotwsCta0JfYIjI4MsR}#) + #{results _hoQGWMnyQPAh3k2jhWKL4}#)))))) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKIU}#) '())))) - (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - (lambda (#{ids _85hotwsCta0JfYIjI4MxU}#) + (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKNX}#) (if (letrec* - ((#{all-ids? _85hotwsCta0JfYIjI4MxV}# - (lambda (#{ids _85hotwsCta0JfYIjI4Mz3}#) - (if (null? #{ids _85hotwsCta0JfYIjI4Mz3}#) - (null? #{ids _85hotwsCta0JfYIjI4Mz3}#) - (if (let ((#{x _85hotwsCta0JfYIjI4M0C}# - (car #{ids _85hotwsCta0JfYIjI4Mz3}#))) - (if (symbol? #{x _85hotwsCta0JfYIjI4M0C}#) + ((#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKP6}#) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) + (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) + (if (let ((#{x _hoQGWMnyQPAh3k2jhWKQF}# + (car #{ids _hoQGWMnyQPAh3k2jhWKP6}#))) + (if (symbol? #{x _hoQGWMnyQPAh3k2jhWKQF}#) #t - (if (if (vector? #{x _85hotwsCta0JfYIjI4M0C}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKQF}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4M0C}#) + #{x _hoQGWMnyQPAh3k2jhWKQF}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4M0C}# + #{x _hoQGWMnyQPAh3k2jhWKQF}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4M0C}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKQF}# 1)) #f))) - (#{all-ids? _85hotwsCta0JfYIjI4MxV}# - (cdr #{ids _85hotwsCta0JfYIjI4Mz3}#)) + (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKP6}#)) #f))))) - (#{all-ids? _85hotwsCta0JfYIjI4MxV}# - #{ids _85hotwsCta0JfYIjI4MxU}#)) - (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - #{ids _85hotwsCta0JfYIjI4MxU}#) + (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# + #{ids _hoQGWMnyQPAh3k2jhWKNX}#)) + (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + #{ids _hoQGWMnyQPAh3k2jhWKNX}#) #f))) - (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - (lambda (#{ids _85hotwsCta0JfYIjI4M2C}#) + (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKSF}#) (letrec* - ((#{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}#)) + ((#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (if (not (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + (car #{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#))) + (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#)) #f))))) - (#{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}#) + (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# + #{ids _hoQGWMnyQPAh3k2jhWKSF}#)))) + (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKXI}# + #{list _hoQGWMnyQPAh3k2jhWKXJ}#) + (if (not (null? #{list _hoQGWMnyQPAh3k2jhWKXJ}#)) + (let ((#{t _hoQGWMnyQPAh3k2jhWKXK}# + (let ((#{j _hoQGWMnyQPAh3k2jhWKYb}# + (car #{list _hoQGWMnyQPAh3k2jhWKXJ}#))) + (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKXI}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4M7F}#) + #{x _hoQGWMnyQPAh3k2jhWKXI}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4M7F}# + #{x _hoQGWMnyQPAh3k2jhWKXI}# 0) 'syntax-object) #f) #f) - (if (vector? #{j _85hotwsCta0JfYIjI4M8Y}#) + (if (vector? #{j _hoQGWMnyQPAh3k2jhWKYb}#) (if (= (vector-length - #{j _85hotwsCta0JfYIjI4M8Y}#) + #{j _hoQGWMnyQPAh3k2jhWKYb}#) 4) - (eq? (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 0) + (eq? (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 0) 'syntax-object) #f) #f) #f) - (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))) + (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 1) + (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 1)) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 2)) + (car (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 2))) #f) - (eq? #{x _85hotwsCta0JfYIjI4M7F}# - #{j _85hotwsCta0JfYIjI4M8Y}#))))) - (if #{t _85hotwsCta0JfYIjI4M7H}# - #{t _85hotwsCta0JfYIjI4M7H}# - (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}# - #{x _85hotwsCta0JfYIjI4M7F}# - (cdr #{list _85hotwsCta0JfYIjI4M7G}#)))) + (eq? #{x _hoQGWMnyQPAh3k2jhWKXI}# + #{j _hoQGWMnyQPAh3k2jhWKYb}#))))) + (if #{t _hoQGWMnyQPAh3k2jhWKXK}# + #{t _hoQGWMnyQPAh3k2jhWKXK}# + (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + #{x _hoQGWMnyQPAh3k2jhWKXI}# + (cdr #{list _hoQGWMnyQPAh3k2jhWKXJ}#)))) #f))) - (#{wrap _85hotwsCta0JfYIjI4J4E}# - (lambda (#{x _85hotwsCta0JfYIjI4M9E}# - #{w _85hotwsCta0JfYIjI4M9F}# - #{defmod _85hotwsCta0JfYIjI4M9G}#) - (if (if (null? (car #{w _85hotwsCta0JfYIjI4M9F}#)) - (null? (cdr #{w _85hotwsCta0JfYIjI4M9F}#)) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKZH}# + #{w _hoQGWMnyQPAh3k2jhWKZI}# + #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#) + (if (if (null? (car #{w _hoQGWMnyQPAh3k2jhWKZI}#)) + (null? (cdr #{w _hoQGWMnyQPAh3k2jhWKZI}#)) #f) - #{x _85hotwsCta0JfYIjI4M9E}# - (if (if (vector? #{x _85hotwsCta0JfYIjI4M9E}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4M9E}#) + #{x _hoQGWMnyQPAh3k2jhWKZH}# + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKZH}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKZH}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 0) 'syntax-object) #f) #f) - (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))) + (let ((#{expression _hoQGWMnyQPAh3k2jhWKZX}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 1)) + (#{wrap _hoQGWMnyQPAh3k2jhWKZY}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWKZI}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 2))) + (#{module _hoQGWMnyQPAh3k2jhWKZZ}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 3))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4M9U}# - #{wrap _85hotwsCta0JfYIjI4M9V}# - #{module _85hotwsCta0JfYIjI4M9W}#)) - (if (null? #{x _85hotwsCta0JfYIjI4M9E}#) - #{x _85hotwsCta0JfYIjI4M9E}# + #{expression _hoQGWMnyQPAh3k2jhWKZX}# + #{wrap _hoQGWMnyQPAh3k2jhWKZY}# + #{module _hoQGWMnyQPAh3k2jhWKZZ}#)) + (if (null? #{x _hoQGWMnyQPAh3k2jhWKZH}#) + #{x _hoQGWMnyQPAh3k2jhWKZH}# (vector 'syntax-object - #{x _85hotwsCta0JfYIjI4M9E}# - #{w _85hotwsCta0JfYIjI4M9F}# - #{defmod _85hotwsCta0JfYIjI4M9G}#)))))) - (#{source-wrap _85hotwsCta0JfYIjI4J4F}# - (lambda (#{x _85hotwsCta0JfYIjI4M9n}# - #{w _85hotwsCta0JfYIjI4M9o}# - #{s _85hotwsCta0JfYIjI4M9p}# - #{defmod _85hotwsCta0JfYIjI4M9q}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{x _hoQGWMnyQPAh3k2jhWKZH}# + #{w _hoQGWMnyQPAh3k2jhWKZI}# + #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#)))))) + (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKZq}# + #{w _hoQGWMnyQPAh3k2jhWKZr}# + #{s _hoQGWMnyQPAh3k2jhWKZs}# + #{defmod _hoQGWMnyQPAh3k2jhWKZt}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{x _85hotwsCta0JfYIjI4M9n}#) - #{s _85hotwsCta0JfYIjI4M9p}# + (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWKZq}#) + #{s _hoQGWMnyQPAh3k2jhWKZs}# #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}# + #{x _hoQGWMnyQPAh3k2jhWKZq}# + #{s _hoQGWMnyQPAh3k2jhWKZs}#)) + #{x _hoQGWMnyQPAh3k2jhWKZq}#) + #{w _hoQGWMnyQPAh3k2jhWKZr}# + #{defmod _hoQGWMnyQPAh3k2jhWKZt}#))) + (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWMpK}# + #{r _hoQGWMnyQPAh3k2jhWMpL}# + #{w _hoQGWMnyQPAh3k2jhWMpM}# + #{s _hoQGWMnyQPAh3k2jhWMpN}# + #{mod _hoQGWMnyQPAh3k2jhWMpO}#) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + #{s _hoQGWMnyQPAh3k2jhWMpN}# (letrec* - ((#{dobody _85hotwsCta0JfYIjI4POb}# - (lambda (#{body _85hotwsCta0JfYIjI4PT5}# - #{r _85hotwsCta0JfYIjI4PT6}# - #{w _85hotwsCta0JfYIjI4PT7}# - #{mod _85hotwsCta0JfYIjI4PT8}#) - (if (null? #{body _85hotwsCta0JfYIjI4PT5}#) + ((#{dobody _hoQGWMnyQPAh3k2jhWMqe}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWMv8}# + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMv$}# + #{mod _hoQGWMnyQPAh3k2jhWMv@}#) + (if (null? #{body _hoQGWMnyQPAh3k2jhWMv8}#) '() - (let ((#{first _85hotwsCta0JfYIjI4PT9}# - (let ((#{e _85hotwsCta0JfYIjI4PUB}# - (car #{body _85hotwsCta0JfYIjI4PT5}#))) + (let ((#{first _hoQGWMnyQPAh3k2jhWMwA}# + (let ((#{e _hoQGWMnyQPAh3k2jhWMwE}# + (car #{body _hoQGWMnyQPAh3k2jhWMv8}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4PUB}# - #{r _85hotwsCta0JfYIjI4PT6}# - #{w _85hotwsCta0JfYIjI4PT7}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4PUB}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWMwE}# + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMv$}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWMwE}#) #f - #{mod _85hotwsCta0JfYIjI4PT8}# + #{mod _hoQGWMnyQPAh3k2jhWMv@}# #f)) - (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}#) + (lambda (#{type _hoQGWMnyQPAh3k2jhWMwL}# + #{value _hoQGWMnyQPAh3k2jhWMwM}# + #{e _hoQGWMnyQPAh3k2jhWMwN}# + #{w _hoQGWMnyQPAh3k2jhWMwO}# + #{s _hoQGWMnyQPAh3k2jhWMwP}# + #{mod _hoQGWMnyQPAh3k2jhWMwQ}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWMwL}# + #{value _hoQGWMnyQPAh3k2jhWMwM}# + #{e _hoQGWMnyQPAh3k2jhWMwN}# + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMwO}# + #{s _hoQGWMnyQPAh3k2jhWMwP}# + #{mod _hoQGWMnyQPAh3k2jhWMwQ}#)))))) + (cons #{first _hoQGWMnyQPAh3k2jhWMwA}# + (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# + (cdr #{body _hoQGWMnyQPAh3k2jhWMv8}#) + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMv$}# + #{mod _hoQGWMnyQPAh3k2jhWMv@}#))))))) + (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# + #{body _hoQGWMnyQPAh3k2jhWMpK}# + #{r _hoQGWMnyQPAh3k2jhWMpL}# + #{w _hoQGWMnyQPAh3k2jhWMpM}# + #{mod _hoQGWMnyQPAh3k2jhWMpO}#))))) + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWKZ@}# + #{r _hoQGWMnyQPAh3k2jhWKaA}# + #{w _hoQGWMnyQPAh3k2jhWKaB}# + #{s _hoQGWMnyQPAh3k2jhWKaC}# + #{m _hoQGWMnyQPAh3k2jhWKaD}# + #{esew _hoQGWMnyQPAh3k2jhWKaE}# + #{mod _hoQGWMnyQPAh3k2jhWKaF}#) (letrec* - ((#{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}# + ((#{scan _hoQGWMnyQPAh3k2jhWKaG}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWKcJ}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKcL}# + #{s _hoQGWMnyQPAh3k2jhWKcM}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKcP}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + (if (null? #{body _hoQGWMnyQPAh3k2jhWKcJ}#) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}# (call-with-values (lambda () (call-with-values (lambda () - (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}#)) + (let ((#{e _hoQGWMnyQPAh3k2jhWKcR}# + (car #{body _hoQGWMnyQPAh3k2jhWKcJ}#))) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWKcR}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKcL}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKcV}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWKcR}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKcV}# + #{t _hoQGWMnyQPAh3k2jhWKcV}# + #{s _hoQGWMnyQPAh3k2jhWKcM}#)) #f - #{mod _85hotwsCta0JfYIjI4NAM}# + #{mod _hoQGWMnyQPAh3k2jhWKcP}# #f))) - (lambda (#{type _85hotwsCta0JfYIjI4ND9}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{mod _85hotwsCta0JfYIjI4NEC}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWKgA}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'begin-form) - (let ((#{tmp _85hotwsCta0JfYIjI4NEH}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgK}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4ND@}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# '(_)))) - (if #{tmp _85hotwsCta0JfYIjI4NEH}# + (if #{tmp _hoQGWMnyQPAh3k2jhWKgK}# (@apply - (lambda () #{exps _85hotwsCta0JfYIjI4NAN}#) - #{tmp _85hotwsCta0JfYIjI4NEH}#) - (let ((#{tmp _85hotwsCta0JfYIjI4NEL}# + (lambda () #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + #{tmp _hoQGWMnyQPAh3k2jhWKgK}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgO}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4ND@}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# '(_ any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4NEL}# + (if #{tmp _hoQGWMnyQPAh3k2jhWKgO}# (@apply - (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}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWKgS}# + #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWKgS}# + #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) + #{tmp _hoQGWMnyQPAh3k2jhWKgO}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4ND@}#))))) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + #{e _hoQGWMnyQPAh3k2jhWKgC}#))))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# '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}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWKgi}# + #{r _hoQGWMnyQPAh3k2jhWKgj}# + #{w _hoQGWMnyQPAh3k2jhWKgk}# + #{s _hoQGWMnyQPAh3k2jhWKgl}# + #{mod _hoQGWMnyQPAh3k2jhWKgm}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgi}# + #{r _hoQGWMnyQPAh3k2jhWKgj}# + #{w _hoQGWMnyQPAh3k2jhWKgk}# + #{s _hoQGWMnyQPAh3k2jhWKgl}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKgm}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'eval-when-form) - (let ((#{tmp _85hotwsCta0JfYIjI4NEo}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgr}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4ND@}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# '(_ each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4NEo}# + (if #{tmp _hoQGWMnyQPAh3k2jhWKgr}# (@apply - (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}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKgv}# + #{e1 _hoQGWMnyQPAh3k2jhWKgw}# + #{e2 _hoQGWMnyQPAh3k2jhWKgx}#) + (let ((#{when-list _hoQGWMnyQPAh3k2jhWKgy}# + (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{x _hoQGWMnyQPAh3k2jhWKgv}#)) + (#{body _hoQGWMnyQPAh3k2jhWKgz}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWKgw}# + #{e2 _hoQGWMnyQPAh3k2jhWKgx}#))) + (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'e) (if (memq 'eval - #{when-list _85hotwsCta0JfYIjI4NEv}#) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# (if (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#) + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) 'c&e 'e) '(eval) - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#) + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) (begin (if (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#) - (let ((#{x _85hotwsCta0JfYIjI4NF9}# - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + (let ((#{x _hoQGWMnyQPAh3k2jhWKiA}# + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'e '(eval) - #{mod _85hotwsCta0JfYIjI4NEC}#))) + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) (primitive-eval - #{x _85hotwsCta0JfYIjI4NF9}#))) + #{x _hoQGWMnyQPAh3k2jhWKiA}#))) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) (if (memq 'load - #{when-list _85hotwsCta0JfYIjI4NEv}#) - (if (let ((#{t _85hotwsCta0JfYIjI4NGX}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + (if (let ((#{t _hoQGWMnyQPAh3k2jhWKia}# (memq 'compile - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NGX}# - #{t _85hotwsCta0JfYIjI4NGX}# - (let ((#{t _85hotwsCta0JfYIjI4NHI}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKia}# + #{t _hoQGWMnyQPAh3k2jhWKia}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKjL}# (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NHI}# - #{t _85hotwsCta0JfYIjI4NHI}# - (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKjL}# + #{t _hoQGWMnyQPAh3k2jhWKjL}# + (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) (memq 'eval - #{when-list _85hotwsCta0JfYIjI4NEv}#) + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) #f))))) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'c&e '(compile load) - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#) - (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) #t - (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e)) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'c '(load) - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#) + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (let ((#{t _85hotwsCta0JfYIjI4NJJ}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (let ((#{t _hoQGWMnyQPAh3k2jhWKlM}# (memq 'compile - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NJJ}# - #{t _85hotwsCta0JfYIjI4NJJ}# - (let ((#{t _85hotwsCta0JfYIjI4NJ6}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKlM}# + #{t _hoQGWMnyQPAh3k2jhWKlM}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKl9}# (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NJ6}# - #{t _85hotwsCta0JfYIjI4NJ6}# - (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKl9}# + #{t _hoQGWMnyQPAh3k2jhWKl9}# + (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) (memq 'eval - #{when-list _85hotwsCta0JfYIjI4NEv}#) + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) #f))))) (begin - (let ((#{x _85hotwsCta0JfYIjI4NL2}# - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + (let ((#{x _hoQGWMnyQPAh3k2jhWKn5}# + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'e '(eval) - #{mod _85hotwsCta0JfYIjI4NEC}#))) + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) (primitive-eval - #{x _85hotwsCta0JfYIjI4NL2}#)) + #{x _hoQGWMnyQPAh3k2jhWKn5}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#)) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#)))))) - #{tmp _85hotwsCta0JfYIjI4NEo}#) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWKgr}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4ND@}#))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + #{e _hoQGWMnyQPAh3k2jhWKgC}#))) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'define-syntax-form) #t - (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'define-syntax-parameter-form)) - (let ((#{n _85hotwsCta0JfYIjI4NMk}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}#)) - (#{r _85hotwsCta0JfYIjI4NMl}# - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - #{r _85hotwsCta0JfYIjI4NAH}#))) - (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}# 'c) + (let ((#{n _hoQGWMnyQPAh3k2jhWKon}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}#)) + (#{r _hoQGWMnyQPAh3k2jhWKoo}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{r _hoQGWMnyQPAh3k2jhWKcK}#))) + (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# '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}#)))) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWKos}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) (begin - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - #{e _85hotwsCta0JfYIjI4NMp}# - #{mod _85hotwsCta0JfYIjI4NEC}#) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + #{e _hoQGWMnyQPAh3k2jhWKos}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) (if (memq 'load - #{esew _85hotwsCta0JfYIjI4NAL}#) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) (values - (cons #{e _85hotwsCta0JfYIjI4NMp}# - #{exps _85hotwsCta0JfYIjI4NAN}#)) + (cons #{e _hoQGWMnyQPAh3k2jhWKos}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#)))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) (if (memq 'load - #{esew _85hotwsCta0JfYIjI4NAL}#) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) (values - (cons (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - #{n _85hotwsCta0JfYIjI4NMk}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NMl}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)) - #{exps _85hotwsCta0JfYIjI4NAN}#)) + (cons (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) - (let ((#{e _85hotwsCta0JfYIjI4NTo}# - (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - #{n _85hotwsCta0JfYIjI4NMk}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NMl}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) + (let ((#{e _hoQGWMnyQPAh3k2jhWKvr}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) (begin - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - #{e _85hotwsCta0JfYIjI4NTo}# - #{mod _85hotwsCta0JfYIjI4NEC}#) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + #{e _hoQGWMnyQPAh3k2jhWKvr}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) (values - (cons #{e _85hotwsCta0JfYIjI4NTo}# - #{exps _85hotwsCta0JfYIjI4NAN}#)))) + (cons #{e _hoQGWMnyQPAh3k2jhWKvr}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) (begin (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}#)) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))))) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# '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}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWK5m}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}#))) + (let ((#{type _hoQGWMnyQPAh3k2jhWK5n}# + (car (let ((#{t _hoQGWMnyQPAh3k2jhWK5u}# + (assq #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{r _hoQGWMnyQPAh3k2jhWKcK}#))) + (if #{t _hoQGWMnyQPAh3k2jhWK5u}# + (cdr #{t _hoQGWMnyQPAh3k2jhWK5u}#) (if (symbol? - #{n _85hotwsCta0JfYIjI4Ndj}#) - (let ((#{t _85hotwsCta0JfYIjI4Ndx}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4Ndj}# - #{mod _85hotwsCta0JfYIjI4NEC}#))) - (if #{t _85hotwsCta0JfYIjI4Ndx}# - #{t _85hotwsCta0JfYIjI4Ndx}# + #{n _hoQGWMnyQPAh3k2jhWK5m}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWK50}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + (if #{t _hoQGWMnyQPAh3k2jhWK50}# + #{t _hoQGWMnyQPAh3k2jhWK50}# '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'global) #t - (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'core) #t - (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'macro) #t - (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'module-ref)))) (begin - (if (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (if (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) #t - (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e)) (if (not (module-local-variable (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}#)) + #{n _hoQGWMnyQPAh3k2jhWK5m}#)) (current-module) #f) #f) - (let ((#{old _85hotwsCta0JfYIjI4NeQ}# + (let ((#{old _hoQGWMnyQPAh3k2jhWK6T}# (module-variable (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}#))) + #{n _hoQGWMnyQPAh3k2jhWK5m}#))) (if (if (variable? - #{old _85hotwsCta0JfYIjI4NeQ}#) + #{old _hoQGWMnyQPAh3k2jhWK6T}#) (variable-bound? - #{old _85hotwsCta0JfYIjI4NeQ}#) + #{old _hoQGWMnyQPAh3k2jhWK6T}#) #f) (module-define! (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# (variable-ref - #{old _85hotwsCta0JfYIjI4NeQ}#)) + #{old _hoQGWMnyQPAh3k2jhWK6T}#)) (module-add! (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# (make-undefined-variable))))) (values - (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) - (let ((#{x _85hotwsCta0JfYIjI4NeS}# - (#{build-global-definition _85hotwsCta0JfYIjI4J3O}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{n _85hotwsCta0JfYIjI4Ndj}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) + (let ((#{x _hoQGWMnyQPAh3k2jhWK6V}# + (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) (begin - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - #{x _85hotwsCta0JfYIjI4NeS}# - #{mod _85hotwsCta0JfYIjI4NEC}#) - #{x _85hotwsCta0JfYIjI4NeS}#)) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + #{x _hoQGWMnyQPAh3k2jhWK6V}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) + #{x _hoQGWMnyQPAh3k2jhWK6V}#)) (lambda () - (#{build-global-definition _85hotwsCta0JfYIjI4J3O}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{n _85hotwsCta0JfYIjI4Ndj}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e _85hotwsCta0JfYIjI4ND@}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)) + #{e _hoQGWMnyQPAh3k2jhWKgC}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) (syntax-violation #f "cannot define keyword at top level" - #{e _85hotwsCta0JfYIjI4ND@}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))))) + #{e _hoQGWMnyQPAh3k2jhWKgC}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))))) (values - (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) - (let ((#{x _85hotwsCta0JfYIjI4NlQ}# - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4ND9}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{mod _85hotwsCta0JfYIjI4NEC}#))) + (let ((#{x _hoQGWMnyQPAh3k2jhWLBT}# + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) (begin (primitive-eval - #{x _85hotwsCta0JfYIjI4NlQ}#) - #{x _85hotwsCta0JfYIjI4NlQ}#)) + #{x _hoQGWMnyQPAh3k2jhWLBT}#) + #{x _hoQGWMnyQPAh3k2jhWLBT}#)) (lambda () - (#{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}#))))))) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))))))) + (lambda (#{exps _hoQGWMnyQPAh3k2jhWLBc}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + (cdr #{body _hoQGWMnyQPAh3k2jhWKcJ}#) + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKcL}# + #{s _hoQGWMnyQPAh3k2jhWKcM}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKcP}# + #{exps _hoQGWMnyQPAh3k2jhWLBc}#))))))) (call-with-values (lambda () - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4M98}# - #{r _85hotwsCta0JfYIjI4M99}# - #{w _85hotwsCta0JfYIjI4M9$}# - #{s _85hotwsCta0JfYIjI4M9@}# - #{m _85hotwsCta0JfYIjI4M$A}# - #{esew _85hotwsCta0JfYIjI4M$B}# - #{mod _85hotwsCta0JfYIjI4M$C}# + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKZ@}# + #{r _hoQGWMnyQPAh3k2jhWKaA}# + #{w _hoQGWMnyQPAh3k2jhWKaB}# + #{s _hoQGWMnyQPAh3k2jhWKaC}# + #{m _hoQGWMnyQPAh3k2jhWKaD}# + #{esew _hoQGWMnyQPAh3k2jhWKaE}# + #{mod _hoQGWMnyQPAh3k2jhWKaF}# '())) - (lambda (#{exps _85hotwsCta0JfYIjI4M$G}#) - (if (null? #{exps _85hotwsCta0JfYIjI4M$G}#) + (lambda (#{exps _hoQGWMnyQPAh3k2jhWKaJ}#) + (if (null? #{exps _hoQGWMnyQPAh3k2jhWKaJ}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s _85hotwsCta0JfYIjI4M9@}#) - (#{build-sequence _85hotwsCta0JfYIjI4J3U}# - #{s _85hotwsCta0JfYIjI4M9@}# + #{s _hoQGWMnyQPAh3k2jhWKaC}#) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + #{s _hoQGWMnyQPAh3k2jhWKaC}# (letrec* - ((#{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}#) + ((#{lp _hoQGWMnyQPAh3k2jhWKax}# + (lambda (#{in _hoQGWMnyQPAh3k2jhWKcF}# + #{out _hoQGWMnyQPAh3k2jhWKcG}#) + (if (null? #{in _hoQGWMnyQPAh3k2jhWKcF}#) + #{out _hoQGWMnyQPAh3k2jhWKcG}# + (let ((#{e _hoQGWMnyQPAh3k2jhWKcH}# + (car #{in _hoQGWMnyQPAh3k2jhWKcF}#))) + (#{lp _hoQGWMnyQPAh3k2jhWKax}# + (cdr #{in _hoQGWMnyQPAh3k2jhWKcF}#) (cons (if (procedure? - #{e _85hotwsCta0JfYIjI4NAE}#) - (#{e _85hotwsCta0JfYIjI4NAE}#) - #{e _85hotwsCta0JfYIjI4NAE}#) - #{out _85hotwsCta0JfYIjI4NAD}#))))))) - (#{lp _85hotwsCta0JfYIjI4M$u}# - #{exps _85hotwsCta0JfYIjI4M$G}# + #{e _hoQGWMnyQPAh3k2jhWKcH}#) + (#{e _hoQGWMnyQPAh3k2jhWKcH}#) + #{e _hoQGWMnyQPAh3k2jhWKcH}#) + #{out _hoQGWMnyQPAh3k2jhWKcG}#))))))) + (#{lp _hoQGWMnyQPAh3k2jhWKax}# + #{exps _hoQGWMnyQPAh3k2jhWKaJ}# '()))))))))) - (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - (lambda (#{name _85hotwsCta0JfYIjI4Nla}# - #{e _85hotwsCta0JfYIjI4Nlb}#) - (let ((#{exp _85hotwsCta0JfYIjI4Nlh}# - (let ((#{fun-exp _85hotwsCta0JfYIjI4Nlr}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + (lambda (#{name _hoQGWMnyQPAh3k2jhWLBd}# + #{e _hoQGWMnyQPAh3k2jhWLBe}#) + (let ((#{exp _hoQGWMnyQPAh3k2jhWLBk}# + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1559,416 +1559,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps _85hotwsCta0JfYIjI4Nls}# + (#{arg-exps _hoQGWMnyQPAh3k2jhWLBv}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name _85hotwsCta0JfYIjI4Nla}#) + #{name _hoQGWMnyQPAh3k2jhWLBd}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e _85hotwsCta0JfYIjI4Nlb}#))) + #{e _hoQGWMnyQPAh3k2jhWLBe}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4Nlr}# - #{arg-exps _85hotwsCta0JfYIjI4Nls}#)))) + #{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# + #{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#)))) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4Nlh}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Nlh}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWLBk}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWLBk}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4NmV}# - (struct-ref #{exp _85hotwsCta0JfYIjI4Nlh}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4NmV}#)) - (let ((#{v _85hotwsCta0JfYIjI4Nmc}# - (cons (cons 'name #{name _85hotwsCta0JfYIjI4Nla}#) - #{meta _85hotwsCta0JfYIjI4NmV}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWLCY}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWLCY}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWLCf}# + (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWLBd}#) + #{meta _hoQGWMnyQPAh3k2jhWLCY}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4Nlh}# + #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1 - #{v _85hotwsCta0JfYIjI4Nmc}#))))) + #{v _hoQGWMnyQPAh3k2jhWLCf}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name _85hotwsCta0JfYIjI4Nla}# - #{exp _85hotwsCta0JfYIjI4Nlh}#))))) - (#{parse-when-list _85hotwsCta0JfYIjI4J4J}# - (lambda (#{e _85hotwsCta0JfYIjI4Nmn}# - #{when-list _85hotwsCta0JfYIjI4Nmo}#) - (let ((#{result _85hotwsCta0JfYIjI4Nmp}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{when-list _85hotwsCta0JfYIjI4Nmo}# + #{name _hoQGWMnyQPAh3k2jhWLBd}# + #{exp _hoQGWMnyQPAh3k2jhWLBk}#))))) + (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWLCq}# + #{when-list _hoQGWMnyQPAh3k2jhWLCr}#) + (let ((#{result _hoQGWMnyQPAh3k2jhWLCs}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{when-list _hoQGWMnyQPAh3k2jhWLCr}# '(())))) (letrec* - ((#{lp _85hotwsCta0JfYIjI4Nmq}# - (lambda (#{l _85hotwsCta0JfYIjI4Nng}#) - (if (null? #{l _85hotwsCta0JfYIjI4Nng}#) - #{result _85hotwsCta0JfYIjI4Nmp}# - (if (let ((#{t _85hotwsCta0JfYIjI4Nni}# - (car #{l _85hotwsCta0JfYIjI4Nng}#))) - (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'compile) + ((#{lp _hoQGWMnyQPAh3k2jhWLCt}# + (lambda (#{l _hoQGWMnyQPAh3k2jhWLDj}#) + (if (null? #{l _hoQGWMnyQPAh3k2jhWLDj}#) + #{result _hoQGWMnyQPAh3k2jhWLCs}# + (if (let ((#{t _hoQGWMnyQPAh3k2jhWLDl}# + (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))) + (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'compile) #t - (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'load) + (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'load) #t - (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'eval) + (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'eval) #t - (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'expand))))) - (#{lp _85hotwsCta0JfYIjI4Nmq}# - (cdr #{l _85hotwsCta0JfYIjI4Nng}#)) + (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'expand))))) + (#{lp _hoQGWMnyQPAh3k2jhWLCt}# + (cdr #{l _hoQGWMnyQPAh3k2jhWLDj}#)) (syntax-violation 'eval-when "invalid situation" - #{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}# + #{e _hoQGWMnyQPAh3k2jhWLCq}# + (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))))))) + (#{lp _hoQGWMnyQPAh3k2jhWLCt}# + #{result _hoQGWMnyQPAh3k2jhWLCs}#))))) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) + (if (symbol? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWLDu}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWLDv}# + (let ((#{t _hoQGWMnyQPAh3k2jhWLD3}# + (assq #{n _hoQGWMnyQPAh3k2jhWLDu}# + #{r _hoQGWMnyQPAh3k2jhWLDo}#))) + (if #{t _hoQGWMnyQPAh3k2jhWLD3}# + (cdr #{t _hoQGWMnyQPAh3k2jhWLD3}#) + (if (symbol? #{n _hoQGWMnyQPAh3k2jhWLDu}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWLD9}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWLDu}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))) + (if #{t _hoQGWMnyQPAh3k2jhWLD9}# + #{t _hoQGWMnyQPAh3k2jhWLD9}# '(global))) '(displaced-lexical)))))) - (let ((#{type _85hotwsCta0JfYIjI4Nnt}# - (car #{b _85hotwsCta0JfYIjI4Nns}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'lexical) + (let ((#{type _hoQGWMnyQPAh3k2jhWLDw}# + (car #{b _hoQGWMnyQPAh3k2jhWLDv}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'lexical) (values - #{type _85hotwsCta0JfYIjI4Nnt}# - (cdr #{b _85hotwsCta0JfYIjI4Nns}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'global) + #{type _hoQGWMnyQPAh3k2jhWLDw}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'global) (values - #{type _85hotwsCta0JfYIjI4Nnt}# - #{n _85hotwsCta0JfYIjI4Nnr}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'macro) - (if #{for-car? _85hotwsCta0JfYIjI4Nnq}# + #{type _hoQGWMnyQPAh3k2jhWLDw}# + #{n _hoQGWMnyQPAh3k2jhWLDu}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'macro) + (if #{for-car? _hoQGWMnyQPAh3k2jhWLDt}# (values - #{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}# + #{type _hoQGWMnyQPAh3k2jhWLDw}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + #{r _hoQGWMnyQPAh3k2jhWLDo}# '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# #f)) (values - #{type _85hotwsCta0JfYIjI4Nnt}# - (cdr #{b _85hotwsCta0JfYIjI4Nns}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))))))) - (if (pair? #{e _85hotwsCta0JfYIjI4Nnk}#) - (let ((#{first _85hotwsCta0JfYIjI4NoO}# - (car #{e _85hotwsCta0JfYIjI4Nnk}#))) + #{type _hoQGWMnyQPAh3k2jhWLDw}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (let ((#{first _hoQGWMnyQPAh3k2jhWLER}# + (car #{e _hoQGWMnyQPAh3k2jhWLDn}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{first _85hotwsCta0JfYIjI4NoO}# - #{r _85hotwsCta0JfYIjI4Nnl}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{first _hoQGWMnyQPAh3k2jhWLER}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# #t)) - (lambda (#{ftype _85hotwsCta0JfYIjI4NoQ}# - #{fval _85hotwsCta0JfYIjI4NoR}# - #{fe _85hotwsCta0JfYIjI4NoS}# - #{fw _85hotwsCta0JfYIjI4NoT}# - #{fs _85hotwsCta0JfYIjI4NoU}# - #{fmod _85hotwsCta0JfYIjI4NoV}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'lexical) + (lambda (#{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{fe _hoQGWMnyQPAh3k2jhWLEV}# + #{fw _hoQGWMnyQPAh3k2jhWLEW}# + #{fs _hoQGWMnyQPAh3k2jhWLEX}# + #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'lexical) (values 'lexical-call - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'global) + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'global) (values 'global-call (vector 'syntax-object - #{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}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'macro) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + #{r _hoQGWMnyQPAh3k2jhWLDo}# '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# - #{for-car? _85hotwsCta0JfYIjI4Nnq}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'module-ref) (call-with-values (lambda () - (#{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) + (#{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWLEt}# + #{r _hoQGWMnyQPAh3k2jhWLEu}# + #{w _hoQGWMnyQPAh3k2jhWLEv}# + #{s _hoQGWMnyQPAh3k2jhWLEw}# + #{mod _hoQGWMnyQPAh3k2jhWLEx}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLEt}# + #{r _hoQGWMnyQPAh3k2jhWLEu}# + #{w _hoQGWMnyQPAh3k2jhWLEv}# + #{s _hoQGWMnyQPAh3k2jhWLEw}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLEx}# + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#))) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'core) (values 'core-form - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'local-syntax) (values 'local-syntax-form - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'begin) (values 'begin-form #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'eval-when) (values 'eval-when-form #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'define) - (let ((#{tmp _85hotwsCta0JfYIjI4No@}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFC}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4No@}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFC}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4NpD}# - #{val _85hotwsCta0JfYIjI4NpE}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLFG}# + #{val _hoQGWMnyQPAh3k2jhWLFH}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4NpD}#) + #{name _hoQGWMnyQPAh3k2jhWLFG}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4NpD}#) + #{name _hoQGWMnyQPAh3k2jhWLFG}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4NpD}#) + #{name _hoQGWMnyQPAh3k2jhWLFG}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4NpD}# + #{name _hoQGWMnyQPAh3k2jhWLFG}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4NpD}# + #{name _hoQGWMnyQPAh3k2jhWLFG}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4No@}#) + #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Npf}# - #{val _85hotwsCta0JfYIjI4Npg}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLFi}# + #{val _hoQGWMnyQPAh3k2jhWLFj}#) (values 'define-form - #{name _85hotwsCta0JfYIjI4Npf}# - #{val _85hotwsCta0JfYIjI4Npg}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4No@}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Nph}# + #{name _hoQGWMnyQPAh3k2jhWLFi}# + #{val _hoQGWMnyQPAh3k2jhWLFj}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFk}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ (any . any) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Nph}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFk}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Npl}# - #{args _85hotwsCta0JfYIjI4Npm}# - #{e1 _85hotwsCta0JfYIjI4Npn}# - #{e2 _85hotwsCta0JfYIjI4Npo}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLFo}# + #{args _hoQGWMnyQPAh3k2jhWLFp}# + #{e1 _hoQGWMnyQPAh3k2jhWLFq}# + #{e2 _hoQGWMnyQPAh3k2jhWLFr}#) (if (if (symbol? - #{name _85hotwsCta0JfYIjI4Npl}#) + #{name _hoQGWMnyQPAh3k2jhWLFo}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4Npl}#) + #{name _hoQGWMnyQPAh3k2jhWLFo}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4Npl}#) + #{name _hoQGWMnyQPAh3k2jhWLFo}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4Npl}# + #{name _hoQGWMnyQPAh3k2jhWLFo}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4Npl}# + #{name _hoQGWMnyQPAh3k2jhWLFo}# 1)) #f)) - (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# + (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# (letrec* - ((#{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}# + ((#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + (lambda (#{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{ls _hoQGWMnyQPAh3k2jhWLID}# + #{w _hoQGWMnyQPAh3k2jhWLIE}#) + (if (pair? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + (cdr #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{w _hoQGWMnyQPAh3k2jhWLIE}# #f) - #{ls _85hotwsCta0JfYIjI4NsA}#) - #{w _85hotwsCta0JfYIjI4NsB}#) + #{ls _hoQGWMnyQPAh3k2jhWLID}#) + #{w _hoQGWMnyQPAh3k2jhWLIE}#) (if (if (symbol? - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) #t (if (if (vector? - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) (if (= (vector-length - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) 4) (eq? (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 1)) #f)) - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{vars _85hotwsCta0JfYIjI4Nr@}# - #{w _85hotwsCta0JfYIjI4NsB}# + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{w _hoQGWMnyQPAh3k2jhWLIE}# #f) - #{ls _85hotwsCta0JfYIjI4NsA}#) - (if (null? #{vars _85hotwsCta0JfYIjI4Nr@}#) - #{ls _85hotwsCta0JfYIjI4NsA}# + #{ls _hoQGWMnyQPAh3k2jhWLID}#) + (if (null? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{ls _hoQGWMnyQPAh3k2jhWLID}# (if (if (vector? - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) (if (= (vector-length - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) 4) (eq? (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 0) 'syntax-object) #f) #f) - (#{lvl _85hotwsCta0JfYIjI4Nr9}# + (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 1) - #{ls _85hotwsCta0JfYIjI4NsA}# - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4NsB}# + #{ls _hoQGWMnyQPAh3k2jhWLID}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWLIE}# (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 2))) - (cons #{vars _85hotwsCta0JfYIjI4Nr@}# - #{ls _85hotwsCta0JfYIjI4NsA}#)))))))) - (#{lvl _85hotwsCta0JfYIjI4Nr9}# - #{args _85hotwsCta0JfYIjI4Npm}# + (cons #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{ls _hoQGWMnyQPAh3k2jhWLID}#)))))))) + (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + #{args _hoQGWMnyQPAh3k2jhWLFp}# '() '(())))) #f)) - #{tmp _85hotwsCta0JfYIjI4Nph}#) + #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Nst}# - #{args _85hotwsCta0JfYIjI4Nsu}# - #{e1 _85hotwsCta0JfYIjI4Nsv}# - #{e2 _85hotwsCta0JfYIjI4Nsw}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLIw}# + #{args _hoQGWMnyQPAh3k2jhWLIx}# + #{e1 _hoQGWMnyQPAh3k2jhWLIy}# + #{e2 _hoQGWMnyQPAh3k2jhWLIz}#) (values 'define-form - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{name _85hotwsCta0JfYIjI4Nst}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (let ((#{e _85hotwsCta0JfYIjI4Ns2}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{name _hoQGWMnyQPAh3k2jhWLIw}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLI5}# (cons '#(syntax-object lambda ((top) @@ -2487,60 +2487,60 @@ "1oe"))) (hygiene guile)) - (#{wrap _85hotwsCta0JfYIjI4J4E}# - (cons #{args _85hotwsCta0JfYIjI4Nsu}# - (cons #{e1 _85hotwsCta0JfYIjI4Nsv}# - #{e2 _85hotwsCta0JfYIjI4Nsw}#)) - #{w _85hotwsCta0JfYIjI4Nnm}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)))) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (cons #{args _hoQGWMnyQPAh3k2jhWLIx}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWLIy}# + #{e2 _hoQGWMnyQPAh3k2jhWLIz}#)) + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Ns2}#) - #{s _85hotwsCta0JfYIjI4Nnn}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLI5}#) + #{s _hoQGWMnyQPAh3k2jhWLDq}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Ns2}# - #{s _85hotwsCta0JfYIjI4Nnn}#)) - #{e _85hotwsCta0JfYIjI4Ns2}#)) + #{e _hoQGWMnyQPAh3k2jhWLI5}# + #{s _hoQGWMnyQPAh3k2jhWLDq}#)) + #{e _hoQGWMnyQPAh3k2jhWLI5}#)) '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Nph}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ns9}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJA}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ns9}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJA}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4NtB}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLJE}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4NtB}#) + #{name _hoQGWMnyQPAh3k2jhWLJE}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4NtB}#) + #{name _hoQGWMnyQPAh3k2jhWLJE}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4NtB}#) + #{name _hoQGWMnyQPAh3k2jhWLJE}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4NtB}# + #{name _hoQGWMnyQPAh3k2jhWLJE}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4NtB}# + #{name _hoQGWMnyQPAh3k2jhWLJE}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ns9}#) + #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Ntc}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLJf}#) (values 'define-form - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{name _85hotwsCta0JfYIjI4Ntc}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{name _hoQGWMnyQPAh3k2jhWLJf}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) '(#(syntax-object if ((top) @@ -4012,358 +4012,358 @@ "1oe"))) (hygiene guile))) '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Ns9}#) + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4Nnk}#))))))) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}#))))))) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'define-syntax) - (let ((#{tmp _85hotwsCta0JfYIjI4Ntv}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJy}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ntv}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJy}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Ntz}# - #{val _85hotwsCta0JfYIjI4Nt0}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLJ2}# + #{val _hoQGWMnyQPAh3k2jhWLJ3}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4Ntz}#) + #{name _hoQGWMnyQPAh3k2jhWLJ2}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4Ntz}#) + #{name _hoQGWMnyQPAh3k2jhWLJ2}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4Ntz}#) + #{name _hoQGWMnyQPAh3k2jhWLJ2}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4Ntz}# + #{name _hoQGWMnyQPAh3k2jhWLJ2}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4Ntz}# + #{name _hoQGWMnyQPAh3k2jhWLJ2}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ntv}#) + #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4NuP}# - #{val _85hotwsCta0JfYIjI4NuQ}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLKS}# + #{val _hoQGWMnyQPAh3k2jhWLKT}#) (values 'define-syntax-form - #{name _85hotwsCta0JfYIjI4NuP}# - #{val _85hotwsCta0JfYIjI4NuQ}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Ntv}#) + #{name _hoQGWMnyQPAh3k2jhWLKS}# + #{val _hoQGWMnyQPAh3k2jhWLKT}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4Nnk}#))) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'define-syntax-parameter) - (let ((#{tmp _85hotwsCta0JfYIjI4Nub}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLKe}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Nub}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLKe}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Nuf}# - #{val _85hotwsCta0JfYIjI4Nug}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLKi}# + #{val _hoQGWMnyQPAh3k2jhWLKj}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4Nuf}#) + #{name _hoQGWMnyQPAh3k2jhWLKi}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4Nuf}#) + #{name _hoQGWMnyQPAh3k2jhWLKi}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4Nuf}#) + #{name _hoQGWMnyQPAh3k2jhWLKi}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4Nuf}# + #{name _hoQGWMnyQPAh3k2jhWLKi}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4Nuf}# + #{name _hoQGWMnyQPAh3k2jhWLKi}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Nub}#) + #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Nu7}# - #{val _85hotwsCta0JfYIjI4Nu8}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLK$}# + #{val _hoQGWMnyQPAh3k2jhWLK@}#) (values 'define-syntax-parameter-form - #{name _85hotwsCta0JfYIjI4Nu7}# - #{val _85hotwsCta0JfYIjI4Nu8}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Nub}#) + #{name _hoQGWMnyQPAh3k2jhWLK$}# + #{val _hoQGWMnyQPAh3k2jhWLK@}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4Nnk}#))) + #{e _hoQGWMnyQPAh3k2jhWLDn}#))) (values 'call #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))))))))))))))) - (if (if (vector? #{e _85hotwsCta0JfYIjI4Nnk}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4Nnk}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))))))))))) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWLDn}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 0) 'syntax-object) #f) #f) - (#{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}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 1) + #{r _hoQGWMnyQPAh3k2jhWLDo}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 2)) + (let ((#{t _hoQGWMnyQPAh3k2jhWLLa}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + (if #{t _hoQGWMnyQPAh3k2jhWLLa}# + #{t _hoQGWMnyQPAh3k2jhWLLa}# + #{s _hoQGWMnyQPAh3k2jhWLDq}#)) + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + (let ((#{t _hoQGWMnyQPAh3k2jhWLPF}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 3))) + (if #{t _hoQGWMnyQPAh3k2jhWLPF}# + #{t _hoQGWMnyQPAh3k2jhWLPF}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) + (if (self-evaluating? #{e _hoQGWMnyQPAh3k2jhWLDn}#) (values 'constant #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) (values 'other #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))))))) - (#{expand _85hotwsCta0JfYIjI4J4L}# - (lambda (#{e _85hotwsCta0JfYIjI4NzL}# - #{r _85hotwsCta0JfYIjI4NzM}# - #{w _85hotwsCta0JfYIjI4NzN}# - #{mod _85hotwsCta0JfYIjI4NzO}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWLPO}# + #{r _hoQGWMnyQPAh3k2jhWLPP}# + #{w _hoQGWMnyQPAh3k2jhWLPQ}# + #{mod _hoQGWMnyQPAh3k2jhWLPR}#) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4NzL}# - #{r _85hotwsCta0JfYIjI4NzM}# - #{w _85hotwsCta0JfYIjI4NzN}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4NzL}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLPO}# + #{r _hoQGWMnyQPAh3k2jhWLPP}# + #{w _hoQGWMnyQPAh3k2jhWLPQ}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWLPO}#) #f - #{mod _85hotwsCta0JfYIjI4NzO}# + #{mod _hoQGWMnyQPAh3k2jhWLPR}# #f)) - (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) + (lambda (#{type _hoQGWMnyQPAh3k2jhWLRs}# + #{value _hoQGWMnyQPAh3k2jhWLRt}# + #{e _hoQGWMnyQPAh3k2jhWLRu}# + #{w _hoQGWMnyQPAh3k2jhWLRv}# + #{s _hoQGWMnyQPAh3k2jhWLRw}# + #{mod _hoQGWMnyQPAh3k2jhWLRx}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWLRs}# + #{value _hoQGWMnyQPAh3k2jhWLRt}# + #{e _hoQGWMnyQPAh3k2jhWLRu}# + #{r _hoQGWMnyQPAh3k2jhWLPP}# + #{w _hoQGWMnyQPAh3k2jhWLRv}# + #{s _hoQGWMnyQPAh3k2jhWLRw}# + #{mod _hoQGWMnyQPAh3k2jhWLRx}#))))) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWLR0}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s _85hotwsCta0JfYIjI4N12}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{value _85hotwsCta0JfYIjI4N1y}#) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core) + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core) #t - (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core-form)) - (#{value _85hotwsCta0JfYIjI4N1y}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core-form)) + (#{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'module-ref) (call-with-values (lambda () - (#{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}# + (#{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWLSU}# + #{r _hoQGWMnyQPAh3k2jhWLSV}# + #{w _hoQGWMnyQPAh3k2jhWLSW}# + #{s _hoQGWMnyQPAh3k2jhWLSX}# + #{mod _hoQGWMnyQPAh3k2jhWLSY}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWLSU}# + #{r _hoQGWMnyQPAh3k2jhWLSV}# + #{w _hoQGWMnyQPAh3k2jhWLSW}# + #{mod _hoQGWMnyQPAh3k2jhWLSY}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical-call) - (#{expand-application _85hotwsCta0JfYIjI4J4N}# - (let ((#{id _85hotwsCta0JfYIjI4N3g}# - (car #{e _85hotwsCta0JfYIjI4N1z}#))) - (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}# + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (let ((#{id _hoQGWMnyQPAh3k2jhWLTj}# + (car #{e _hoQGWMnyQPAh3k2jhWLR2}#))) + (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# 'fun - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{id _85hotwsCta0JfYIjI4N3g}#) - (if (if (vector? #{id _85hotwsCta0JfYIjI4N3g}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{id _hoQGWMnyQPAh3k2jhWLTj}#) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWLTj}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4N3g}#) + #{id _hoQGWMnyQPAh3k2jhWLTj}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4N3g}# + #{id _hoQGWMnyQPAh3k2jhWLTj}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id _85hotwsCta0JfYIjI4N3g}#) - #{id _85hotwsCta0JfYIjI4N3g}#) - #{value _85hotwsCta0JfYIjI4N1y}#)) - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (syntax->datum #{id _hoQGWMnyQPAh3k2jhWLTj}#) + #{id _hoQGWMnyQPAh3k2jhWLTj}#) + #{value _hoQGWMnyQPAh3k2jhWLR1}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global-call) - (#{expand-application _85hotwsCta0JfYIjI4J4N}# - (#{build-global-reference _85hotwsCta0JfYIjI4J3M}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - (car #{e _85hotwsCta0JfYIjI4N1z}#)) - (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#) + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)) + (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) (if (= (vector-length - #{value _85hotwsCta0JfYIjI4N1y}#) + #{value _hoQGWMnyQPAh3k2jhWLR1}#) 4) (eq? (vector-ref - #{value _85hotwsCta0JfYIjI4N1y}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 1) - #{value _85hotwsCta0JfYIjI4N1y}#) - (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#) + (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 1) + #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) (if (= (vector-length - #{value _85hotwsCta0JfYIjI4N1y}#) + #{value _hoQGWMnyQPAh3k2jhWLR1}#) 4) (eq? (vector-ref - #{value _85hotwsCta0JfYIjI4N1y}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# 0) 'syntax-object) #f) #f) - (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}# + (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 3) + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'constant) + (let ((#{exp _hoQGWMnyQPAh3k2jhWLY0}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _85hotwsCta0JfYIjI4N12}# - #{exp _85hotwsCta0JfYIjI4N8x}#)) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'global) - (#{analyze-variable _85hotwsCta0JfYIjI4J3L}# - #{mod _85hotwsCta0JfYIjI4N13}# - #{value _85hotwsCta0JfYIjI4N1y}# - (lambda (#{mod _85hotwsCta0JfYIjI4N9V}# - #{var _85hotwsCta0JfYIjI4N9W}# - #{public? _85hotwsCta0JfYIjI4N9X}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{exp _hoQGWMnyQPAh3k2jhWLY0}#)) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWLZY}# + #{var _hoQGWMnyQPAh3k2jhWLZZ}# + #{public? _hoQGWMnyQPAh3k2jhWLZa}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N9V}# - #{var _85hotwsCta0JfYIjI4N9W}# - #{public? _85hotwsCta0JfYIjI4N9X}#)) - (lambda (#{var _85hotwsCta0JfYIjI4N9g}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLZY}# + #{var _hoQGWMnyQPAh3k2jhWLZZ}# + #{public? _hoQGWMnyQPAh3k2jhWLZa}#)) + (lambda (#{var _hoQGWMnyQPAh3k2jhWLZj}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{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}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{var _hoQGWMnyQPAh3k2jhWLZj}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'call) + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (car #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'begin-form) - (let ((#{tmp _85hotwsCta0JfYIjI4N$r}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLau}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4N1z}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# '(_ any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4N$r}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLau}# (@apply - (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}# + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLay}# + #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) + (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWLay}# + #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLau}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLcK}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4N1z}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# '(_)))) - (if #{tmp _85hotwsCta0JfYIjI4OAH}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLcK}# (@apply (lambda () (if (include-deprecated-features) @@ -4376,907 +4376,907 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)))) - #{tmp _85hotwsCta0JfYIjI4OAH}#) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWLcK}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4N1z}#))))) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}#))))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# '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}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}# + #{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'eval-when-form) - (let ((#{tmp _85hotwsCta0JfYIjI4OB2}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLd5}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4N1z}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# '(_ each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4OB2}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLd5}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4OB6}# - #{e1 _85hotwsCta0JfYIjI4OB7}# - #{e2 _85hotwsCta0JfYIjI4OB8}#) - (let ((#{when-list _85hotwsCta0JfYIjI4OB9}# - (#{parse-when-list _85hotwsCta0JfYIjI4J4J}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{x _85hotwsCta0JfYIjI4OB6}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWLd9}# + #{e1 _hoQGWMnyQPAh3k2jhWLd$}# + #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) + (let ((#{when-list _hoQGWMnyQPAh3k2jhWLeA}# + (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{x _hoQGWMnyQPAh3k2jhWLd9}#))) (if (memq 'eval - #{when-list _85hotwsCta0JfYIjI4OB9}#) - (#{expand-sequence _85hotwsCta0JfYIjI4J4G}# - (cons #{e1 _85hotwsCta0JfYIjI4OB7}# - #{e2 _85hotwsCta0JfYIjI4OB8}#) - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) + #{when-list _hoQGWMnyQPAh3k2jhWLeA}#) + (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWLd$}# + #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp _85hotwsCta0JfYIjI4OB2}#) + #{tmp _hoQGWMnyQPAh3k2jhWLd5}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4N1z}#))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}#))) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'define-form) #t - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'define-syntax-form) #t - (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e _85hotwsCta0JfYIjI4N1z}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4N1y}# - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) (syntax-violation #f "unexpected syntax" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{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}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))))))))))))))))) + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWLhw}# + #{e _hoQGWMnyQPAh3k2jhWLhx}# + #{r _hoQGWMnyQPAh3k2jhWLhy}# + #{w _hoQGWMnyQPAh3k2jhWLhz}# + #{s _hoQGWMnyQPAh3k2jhWLh0}# + #{mod _hoQGWMnyQPAh3k2jhWLh1}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLh3}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4OFu}# + #{e _hoQGWMnyQPAh3k2jhWLhx}# '(any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4OF0}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLh3}# (@apply - (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}#) + (lambda (#{e0 _hoQGWMnyQPAh3k2jhWLh7}# + #{e1 _hoQGWMnyQPAh3k2jhWLh8}#) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + #{s _hoQGWMnyQPAh3k2jhWLh0}# + #{x _hoQGWMnyQPAh3k2jhWLhw}# + (map (lambda (#{e _hoQGWMnyQPAh3k2jhWLjM}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWLjM}# + #{r _hoQGWMnyQPAh3k2jhWLhy}# + #{w _hoQGWMnyQPAh3k2jhWLhz}# + #{mod _hoQGWMnyQPAh3k2jhWLh1}#)) + #{e1 _hoQGWMnyQPAh3k2jhWLh8}#))) + #{tmp _hoQGWMnyQPAh3k2jhWLh3}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4OFu}#))))) - (#{expand-macro _85hotwsCta0JfYIjI4J4O}# - (lambda (#{p _85hotwsCta0JfYIjI4OIV}# - #{e _85hotwsCta0JfYIjI4OIW}# - #{r _85hotwsCta0JfYIjI4OIX}# - #{w _85hotwsCta0JfYIjI4OIY}# - #{s _85hotwsCta0JfYIjI4OIZ}# - #{rib _85hotwsCta0JfYIjI4OIa}# - #{mod _85hotwsCta0JfYIjI4OIb}#) + #{e _hoQGWMnyQPAh3k2jhWLhx}#))))) + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWLkY}# + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{r _hoQGWMnyQPAh3k2jhWLka}# + #{w _hoQGWMnyQPAh3k2jhWLkb}# + #{s _hoQGWMnyQPAh3k2jhWLkc}# + #{rib _hoQGWMnyQPAh3k2jhWLkd}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#) (letrec* - ((#{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$}#)))) + ((#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWLlA}# + #{m _hoQGWMnyQPAh3k2jhWLlB}#) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLlF}# + (cons (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (car #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{m _hoQGWMnyQPAh3k2jhWLlB}#) + (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (cdr #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{m _hoQGWMnyQPAh3k2jhWLlB}#)))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OJC}#) - #{s _85hotwsCta0JfYIjI4OIZ}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlF}#) + #{s _hoQGWMnyQPAh3k2jhWLkc}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OJC}# - #{s _85hotwsCta0JfYIjI4OIZ}#)) - #{e _85hotwsCta0JfYIjI4OJC}#)) - (if (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4OI9}#) + #{e _hoQGWMnyQPAh3k2jhWLlF}# + #{s _hoQGWMnyQPAh3k2jhWLkc}#)) + #{e _hoQGWMnyQPAh3k2jhWLlF}#)) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 0) 'syntax-object) #f) #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) + (let ((#{w _hoQGWMnyQPAh3k2jhWLlV}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 2))) + (let ((#{ms _hoQGWMnyQPAh3k2jhWLlW}# + (car #{w _hoQGWMnyQPAh3k2jhWLlV}#)) + (#{s _hoQGWMnyQPAh3k2jhWLlX}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLlV}#))) + (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWLlW}#) + (eq? (car #{ms _hoQGWMnyQPAh3k2jhWLlW}#) #f) #f) - (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))) + (let ((#{expression _hoQGWMnyQPAh3k2jhWLlf}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 1)) + (#{wrap _hoQGWMnyQPAh3k2jhWLlg}# + (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWLlW}#) + (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# + (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# + (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)) + (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) + (#{module _hoQGWMnyQPAh3k2jhWLlh}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4OJc}# - #{wrap _85hotwsCta0JfYIjI4OJd}# - #{module _85hotwsCta0JfYIjI4OJe}#)) - (let ((#{expression _85hotwsCta0JfYIjI4OJo}# - (let ((#{e _85hotwsCta0JfYIjI4OJt}# + #{expression _hoQGWMnyQPAh3k2jhWLlf}# + #{wrap _hoQGWMnyQPAh3k2jhWLlg}# + #{module _hoQGWMnyQPAh3k2jhWLlh}#)) + (let ((#{expression _hoQGWMnyQPAh3k2jhWLlr}# + (let ((#{e _hoQGWMnyQPAh3k2jhWLlw}# (vector-ref - #{x _85hotwsCta0JfYIjI4OI9}# + #{x _hoQGWMnyQPAh3k2jhWLlA}# 1))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OJt}#) - #{s _85hotwsCta0JfYIjI4OJU}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlw}#) + #{s _hoQGWMnyQPAh3k2jhWLlX}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OJt}# - #{s _85hotwsCta0JfYIjI4OJU}#)) - #{e _85hotwsCta0JfYIjI4OJt}#))) - (#{wrap _85hotwsCta0JfYIjI4OJp}# - (cons (cons #{m _85hotwsCta0JfYIjI4OI$}# - #{ms _85hotwsCta0JfYIjI4OJT}#) - (if #{rib _85hotwsCta0JfYIjI4OIa}# - (cons #{rib _85hotwsCta0JfYIjI4OIa}# + #{e _hoQGWMnyQPAh3k2jhWLlw}# + #{s _hoQGWMnyQPAh3k2jhWLlX}#)) + #{e _hoQGWMnyQPAh3k2jhWLlw}#))) + (#{wrap _hoQGWMnyQPAh3k2jhWLls}# + (cons (cons #{m _hoQGWMnyQPAh3k2jhWLlB}# + #{ms _hoQGWMnyQPAh3k2jhWLlW}#) + (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# + (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# (cons 'shift - #{s _85hotwsCta0JfYIjI4OJU}#)) + #{s _hoQGWMnyQPAh3k2jhWLlX}#)) (cons 'shift - #{s _85hotwsCta0JfYIjI4OJU}#)))) - (#{module _85hotwsCta0JfYIjI4OJq}# - (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3))) + #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) + (#{module _hoQGWMnyQPAh3k2jhWLlt}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4OJo}# - #{wrap _85hotwsCta0JfYIjI4OJp}# - #{module _85hotwsCta0JfYIjI4OJq}#))))) - (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#) - (let ((#{n _85hotwsCta0JfYIjI4OJ5}# - (vector-length #{x _85hotwsCta0JfYIjI4OI9}#))) - (let ((#{v _85hotwsCta0JfYIjI4OJ6}# - (let ((#{e _85hotwsCta0JfYIjI4OKC}# + #{expression _hoQGWMnyQPAh3k2jhWLlr}# + #{wrap _hoQGWMnyQPAh3k2jhWLls}# + #{module _hoQGWMnyQPAh3k2jhWLlt}#))))) + (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWLl8}# + (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#))) + (let ((#{v _hoQGWMnyQPAh3k2jhWLl9}# + (let ((#{e _hoQGWMnyQPAh3k2jhWLmF}# (make-vector - #{n _85hotwsCta0JfYIjI4OJ5}#))) + #{n _hoQGWMnyQPAh3k2jhWLl8}#))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OKC}#) - #{x _85hotwsCta0JfYIjI4OI9}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLmF}#) + #{x _hoQGWMnyQPAh3k2jhWLlA}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OKC}# - #{x _85hotwsCta0JfYIjI4OI9}#)) - #{e _85hotwsCta0JfYIjI4OKC}#)))) + #{e _hoQGWMnyQPAh3k2jhWLmF}# + #{x _hoQGWMnyQPAh3k2jhWLlA}#)) + #{e _hoQGWMnyQPAh3k2jhWLmF}#)))) (letrec* - ((#{loop _85hotwsCta0JfYIjI4OJ7}# - (lambda (#{i _85hotwsCta0JfYIjI4OKv}#) - (if (= #{i _85hotwsCta0JfYIjI4OKv}# - #{n _85hotwsCta0JfYIjI4OJ5}#) - #{v _85hotwsCta0JfYIjI4OJ6}# + ((#{loop _hoQGWMnyQPAh3k2jhWLl$}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWLmy}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWLmy}# + #{n _hoQGWMnyQPAh3k2jhWLl8}#) + #{v _hoQGWMnyQPAh3k2jhWLl9}# (begin (vector-set! - #{v _85hotwsCta0JfYIjI4OJ6}# - #{i _85hotwsCta0JfYIjI4OKv}# - (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}# + #{v _hoQGWMnyQPAh3k2jhWLl9}# + #{i _hoQGWMnyQPAh3k2jhWLmy}# + (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# (vector-ref - #{x _85hotwsCta0JfYIjI4OI9}# - #{i _85hotwsCta0JfYIjI4OKv}#) - #{m _85hotwsCta0JfYIjI4OI$}#)) - (#{loop _85hotwsCta0JfYIjI4OJ7}# - (#{1+}# #{i _85hotwsCta0JfYIjI4OKv}#))))))) - (#{loop _85hotwsCta0JfYIjI4OJ7}# 0)))) - (if (symbol? #{x _85hotwsCta0JfYIjI4OI9}#) + #{x _hoQGWMnyQPAh3k2jhWLlA}# + #{i _hoQGWMnyQPAh3k2jhWLmy}#) + #{m _hoQGWMnyQPAh3k2jhWLlB}#)) + (#{loop _hoQGWMnyQPAh3k2jhWLl$}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWLmy}#))))))) + (#{loop _hoQGWMnyQPAh3k2jhWLl$}# 0)))) + (if (symbol? #{x _hoQGWMnyQPAh3k2jhWLlA}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s _85hotwsCta0JfYIjI4OK1}# - (cdr #{w _85hotwsCta0JfYIjI4OIY}#))) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (let ((#{s _hoQGWMnyQPAh3k2jhWLm4}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#) - #{s _85hotwsCta0JfYIjI4OK1}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{s _hoQGWMnyQPAh3k2jhWLm4}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OIW}# - #{s _85hotwsCta0JfYIjI4OK1}#)) - #{e _85hotwsCta0JfYIjI4OIW}#) - #{w _85hotwsCta0JfYIjI4OIY}# - #{mod _85hotwsCta0JfYIjI4OIb}#)) - #{x _85hotwsCta0JfYIjI4OI9}#) + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{s _hoQGWMnyQPAh3k2jhWLm4}#)) + #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{w _hoQGWMnyQPAh3k2jhWLkb}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#)) + #{x _hoQGWMnyQPAh3k2jhWLlA}#) (begin - (if (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#) - #{s _85hotwsCta0JfYIjI4OIZ}# + (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{s _hoQGWMnyQPAh3k2jhWLkc}# #f) (set-source-properties! - #{x _85hotwsCta0JfYIjI4OI9}# - #{s _85hotwsCta0JfYIjI4OIZ}#)) - #{x _85hotwsCta0JfYIjI4OI9}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWLlA}# + #{s _hoQGWMnyQPAh3k2jhWLkc}#)) + #{x _hoQGWMnyQPAh3k2jhWLlA}#)))))))) (with-fluids - ((#{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}#)) + ((#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWLkg}#) + (#{k _hoQGWMnyQPAh3k2jhWLkg}# + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{r _hoQGWMnyQPAh3k2jhWLka}# + #{w _hoQGWMnyQPAh3k2jhWLkb}# + #{s _hoQGWMnyQPAh3k2jhWLkc}# + #{rib _hoQGWMnyQPAh3k2jhWLkd}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#)))) + (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (#{p _hoQGWMnyQPAh3k2jhWLkY}# + (let ((#{w _hoQGWMnyQPAh3k2jhWLkn}# + (cons (cons #f (car #{w _hoQGWMnyQPAh3k2jhWLkb}#)) (cons 'shift - (cdr #{w _85hotwsCta0JfYIjI4OIY}#))))) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))))) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#) - #{s _85hotwsCta0JfYIjI4OIZ}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{s _hoQGWMnyQPAh3k2jhWLkc}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OIW}# - #{s _85hotwsCta0JfYIjI4OIZ}#)) - #{e _85hotwsCta0JfYIjI4OIW}#) - #{w _85hotwsCta0JfYIjI4OIk}# - #{mod _85hotwsCta0JfYIjI4OIb}#))) + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{s _hoQGWMnyQPAh3k2jhWLkc}#)) + #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{w _hoQGWMnyQPAh3k2jhWLkn}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#))) (gensym "m")))))) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (lambda (#{body _85hotwsCta0JfYIjI4OLV}# - #{outer-form _85hotwsCta0JfYIjI4OLW}# - #{r _85hotwsCta0JfYIjI4OLX}# - #{w _85hotwsCta0JfYIjI4OLY}# - #{mod _85hotwsCta0JfYIjI4OLZ}#) - (let ((#{r _85hotwsCta0JfYIjI4OLa}# + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWLnY}# + #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}# + #{r _hoQGWMnyQPAh3k2jhWLna}# + #{w _hoQGWMnyQPAh3k2jhWLnb}# + #{mod _hoQGWMnyQPAh3k2jhWLnc}#) + (let ((#{r _hoQGWMnyQPAh3k2jhWLnd}# (cons '("placeholder" placeholder) - #{r _85hotwsCta0JfYIjI4OLX}#))) - (let ((#{ribcage _85hotwsCta0JfYIjI4OLb}# + #{r _hoQGWMnyQPAh3k2jhWLna}#))) + (let ((#{ribcage _hoQGWMnyQPAh3k2jhWLne}# (vector 'ribcage '() '() '()))) - (let ((#{w _85hotwsCta0JfYIjI4OLc}# - (cons (car #{w _85hotwsCta0JfYIjI4OLY}#) - (cons #{ribcage _85hotwsCta0JfYIjI4OLb}# - (cdr #{w _85hotwsCta0JfYIjI4OLY}#))))) + (let ((#{w _hoQGWMnyQPAh3k2jhWLnf}# + (cons (car #{w _hoQGWMnyQPAh3k2jhWLnb}#) + (cons #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLnb}#))))) (letrec* - ((#{parse _85hotwsCta0JfYIjI4OLd}# - (lambda (#{body _85hotwsCta0JfYIjI4OLq}# - #{ids _85hotwsCta0JfYIjI4OLr}# - #{labels _85hotwsCta0JfYIjI4OLs}# - #{var-ids _85hotwsCta0JfYIjI4OLt}# - #{vars _85hotwsCta0JfYIjI4OLu}# - #{vals _85hotwsCta0JfYIjI4OLv}# - #{bindings _85hotwsCta0JfYIjI4OLw}#) - (if (null? #{body _85hotwsCta0JfYIjI4OLq}#) + ((#{parse _hoQGWMnyQPAh3k2jhWLng}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWLnt}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#) + (if (null? #{body _hoQGWMnyQPAh3k2jhWLnt}#) (syntax-violation #f "no expressions in body" - #{outer-form _85hotwsCta0JfYIjI4OLW}#) - (let ((#{e _85hotwsCta0JfYIjI4OLx}# - (cdr (car #{body _85hotwsCta0JfYIjI4OLq}#))) - (#{er _85hotwsCta0JfYIjI4OLy}# - (car (car #{body _85hotwsCta0JfYIjI4OLq}#)))) + #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLn0}# + (cdr (car #{body _hoQGWMnyQPAh3k2jhWLnt}#))) + (#{er _hoQGWMnyQPAh3k2jhWLn1}# + (car (car #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4OLx}# - #{er _85hotwsCta0JfYIjI4OLy}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLn0}# + #{er _hoQGWMnyQPAh3k2jhWLn1}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{er _85hotwsCta0JfYIjI4OLy}#) - #{ribcage _85hotwsCta0JfYIjI4OLb}# - #{mod _85hotwsCta0JfYIjI4OLZ}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{er _hoQGWMnyQPAh3k2jhWLn1}#) + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{mod _hoQGWMnyQPAh3k2jhWLnc}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4OOP}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{e _85hotwsCta0JfYIjI4OOR}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{s _85hotwsCta0JfYIjI4OOT}# - #{mod _85hotwsCta0JfYIjI4OOU}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWLqS}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{s _hoQGWMnyQPAh3k2jhWLqW}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'define-form) - (let ((#{id _85hotwsCta0JfYIjI4OOY}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (#{label _85hotwsCta0JfYIjI4OOZ}# - (#{gen-label _85hotwsCta0JfYIjI4J3p}#))) - (let ((#{var _85hotwsCta0JfYIjI4OOa}# - (let ((#{id _85hotwsCta0JfYIjI4OPU}# + (let ((#{id _hoQGWMnyQPAh3k2jhWLqb}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{label _hoQGWMnyQPAh3k2jhWLqc}# + (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) + (let ((#{var _hoQGWMnyQPAh3k2jhWLqd}# + (let ((#{id _hoQGWMnyQPAh3k2jhWLrX}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4OOY}#) + #{id _hoQGWMnyQPAh3k2jhWLqb}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4OOY}#) + #{id _hoQGWMnyQPAh3k2jhWLqb}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 1) - #{id _85hotwsCta0JfYIjI4OOY}#))) + #{id _hoQGWMnyQPAh3k2jhWLqb}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4OPU}#) + #{id _hoQGWMnyQPAh3k2jhWLrX}#) " "))))) (begin - (let ((#{update _85hotwsCta0JfYIjI4OPK}# + (let ((#{update _hoQGWMnyQPAh3k2jhWLrN}# (cons (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 1) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1 - #{update _85hotwsCta0JfYIjI4OPK}#)) - (let ((#{update _85hotwsCta0JfYIjI4OPM}# + #{update _hoQGWMnyQPAh3k2jhWLrN}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLrP}# (cons (car (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 2)) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2 - #{update _85hotwsCta0JfYIjI4OPM}#)) - (let ((#{update _85hotwsCta0JfYIjI4OPO}# - (cons #{label _85hotwsCta0JfYIjI4OOZ}# + #{update _hoQGWMnyQPAh3k2jhWLrP}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLrR}# + (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3 - #{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}#) + #{update _hoQGWMnyQPAh3k2jhWLrR}#)) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}#) + (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}#) + (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#) + (cons #{var _hoQGWMnyQPAh3k2jhWLqd}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}#) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + #{vals _hoQGWMnyQPAh3k2jhWLny}#) (cons (cons 'lexical - #{var _85hotwsCta0JfYIjI4OOa}#) - #{bindings _85hotwsCta0JfYIjI4OLw}#))))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + #{var _hoQGWMnyQPAh3k2jhWLqd}#) + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))))) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'define-syntax-form) #t - (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'define-syntax-parameter-form)) - (let ((#{id _85hotwsCta0JfYIjI4OP1}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (#{label _85hotwsCta0JfYIjI4OP2}# - (#{gen-label _85hotwsCta0JfYIjI4J3p}#))) + (let ((#{id _hoQGWMnyQPAh3k2jhWLr4}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{label _hoQGWMnyQPAh3k2jhWLr5}# + (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) (begin - (let ((#{update _85hotwsCta0JfYIjI4OQm}# + (let ((#{update _hoQGWMnyQPAh3k2jhWLsp}# (cons (vector-ref - #{id _85hotwsCta0JfYIjI4OP1}# + #{id _hoQGWMnyQPAh3k2jhWLr4}# 1) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1 - #{update _85hotwsCta0JfYIjI4OQm}#)) - (let ((#{update _85hotwsCta0JfYIjI4OQo}# + #{update _hoQGWMnyQPAh3k2jhWLsp}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLsr}# (cons (car (vector-ref - #{id _85hotwsCta0JfYIjI4OP1}# + #{id _hoQGWMnyQPAh3k2jhWLr4}# 2)) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2 - #{update _85hotwsCta0JfYIjI4OQo}#)) - (let ((#{update _85hotwsCta0JfYIjI4OQq}# - (cons #{label _85hotwsCta0JfYIjI4OP2}# + #{update _hoQGWMnyQPAh3k2jhWLsr}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLst}# + (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3 - #{update _85hotwsCta0JfYIjI4OQq}#)) - (#{parse _85hotwsCta0JfYIjI4OLd}# - (cdr #{body _85hotwsCta0JfYIjI4OLq}#) - (cons #{id _85hotwsCta0JfYIjI4OP1}# - #{ids _85hotwsCta0JfYIjI4OLr}#) - (cons #{label _85hotwsCta0JfYIjI4OP2}# - #{labels _85hotwsCta0JfYIjI4OLs}#) - #{var-ids _85hotwsCta0JfYIjI4OLt}# - #{vars _85hotwsCta0JfYIjI4OLu}# - #{vals _85hotwsCta0JfYIjI4OLv}# + #{update _hoQGWMnyQPAh3k2jhWLst}#)) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons #{id _hoQGWMnyQPAh3k2jhWLr4}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}#) + (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}#) + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# (cons (cons 'macro - (cons #{er _85hotwsCta0JfYIjI4OLy}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4OOR}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#))) - #{bindings _85hotwsCta0JfYIjI4OLw}#)))) - (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#))) + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'begin-form) - (let ((#{tmp _85hotwsCta0JfYIjI4OQy}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLs1}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4OOR}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# '(_ . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4OQy}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLs1}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4OQ2}#) - (#{parse _85hotwsCta0JfYIjI4OLd}# + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLs5}#) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# (letrec* - ((#{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}#) + ((#{f _hoQGWMnyQPAh3k2jhWLs6}# + (lambda (#{forms _hoQGWMnyQPAh3k2jhWLt5}#) + (if (null? #{forms _hoQGWMnyQPAh3k2jhWLt5}#) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{forms _hoQGWMnyQPAh3k2jhWLt5}#) + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{f _hoQGWMnyQPAh3k2jhWLs6}# + (cdr #{forms _hoQGWMnyQPAh3k2jhWLt5}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWLs6}# + #{e1 _hoQGWMnyQPAh3k2jhWLs5}#)) + #{ids _hoQGWMnyQPAh3k2jhWLnu}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLs1}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4OOR}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + #{e _hoQGWMnyQPAh3k2jhWLqU}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'local-syntax-form) - (#{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}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{er _hoQGWMnyQPAh3k2jhWLn1}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{s _hoQGWMnyQPAh3k2jhWLqW}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# + (lambda (#{forms _hoQGWMnyQPAh3k2jhWLuH}# + #{er _hoQGWMnyQPAh3k2jhWLuI}# + #{w _hoQGWMnyQPAh3k2jhWLuJ}# + #{s _hoQGWMnyQPAh3k2jhWLuK}# + #{mod _hoQGWMnyQPAh3k2jhWLuL}#) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# (letrec* - ((#{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 _hoQGWMnyQPAh3k2jhWLuM}# + (lambda (#{forms _hoQGWMnyQPAh3k2jhWLvL}#) + (if (null? #{forms _hoQGWMnyQPAh3k2jhWLvL}#) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLuI}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{forms _hoQGWMnyQPAh3k2jhWLvL}#) + #{w _hoQGWMnyQPAh3k2jhWLuJ}# + #{mod _hoQGWMnyQPAh3k2jhWLuL}#)) + (#{f _hoQGWMnyQPAh3k2jhWLuM}# + (cdr #{forms _hoQGWMnyQPAh3k2jhWLvL}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWLuM}# + #{forms _hoQGWMnyQPAh3k2jhWLuH}#)) + #{ids _hoQGWMnyQPAh3k2jhWLnu}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWLnu}#) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# #f - (map (lambda (#{x _85hotwsCta0JfYIjI4OUJ}#) - (let ((#{e _85hotwsCta0JfYIjI4OUN}# - (cdr #{x _85hotwsCta0JfYIjI4OUJ}#)) - (#{r _85hotwsCta0JfYIjI4OUO}# - (car #{x _85hotwsCta0JfYIjI4OUJ}#))) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLwM}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLwQ}# + (cdr #{x _hoQGWMnyQPAh3k2jhWLwM}#)) + (#{r _hoQGWMnyQPAh3k2jhWLwR}# + (car #{x _hoQGWMnyQPAh3k2jhWLwM}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4OUN}# - #{r _85hotwsCta0JfYIjI4OUO}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLwQ}# + #{r _hoQGWMnyQPAh3k2jhWLwR}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4OUN}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWLwQ}#) #f - #{mod _85hotwsCta0JfYIjI4OOU}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# #f)) - (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}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWLwV}# + #{value _hoQGWMnyQPAh3k2jhWLwW}# + #{e _hoQGWMnyQPAh3k2jhWLwX}# + #{w _hoQGWMnyQPAh3k2jhWLwY}# + #{s _hoQGWMnyQPAh3k2jhWLwZ}# + #{mod _hoQGWMnyQPAh3k2jhWLwa}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWLwV}# + #{value _hoQGWMnyQPAh3k2jhWLwW}# + #{e _hoQGWMnyQPAh3k2jhWLwX}# + #{r _hoQGWMnyQPAh3k2jhWLwR}# + #{w _hoQGWMnyQPAh3k2jhWLwY}# + #{s _hoQGWMnyQPAh3k2jhWLwZ}# + #{mod _hoQGWMnyQPAh3k2jhWLwa}#))))) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#) - #{s _85hotwsCta0JfYIjI4OOT}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{s _hoQGWMnyQPAh3k2jhWLqW}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OOR}# - #{s _85hotwsCta0JfYIjI4OOT}#)) - #{e _85hotwsCta0JfYIjI4OOR}#) - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (cdr #{body _85hotwsCta0JfYIjI4OLq}#)))) + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{s _hoQGWMnyQPAh3k2jhWLqW}#)) + #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) (begin - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{ids _85hotwsCta0JfYIjI4OLr}#)) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form _85hotwsCta0JfYIjI4OLW}#)) + #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#)) (letrec* - ((#{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}#) + ((#{loop _hoQGWMnyQPAh3k2jhWLx@}# + (lambda (#{bs _hoQGWMnyQPAh3k2jhWLyC}# + #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# + #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#) + (if (not (null? #{bs _hoQGWMnyQPAh3k2jhWLyC}#)) + (let ((#{b _hoQGWMnyQPAh3k2jhWLyF}# + (car #{bs _hoQGWMnyQPAh3k2jhWLyC}#))) + (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWLyF}#) 'macro) - (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}#)))) + (let ((#{er _hoQGWMnyQPAh3k2jhWLyH}# + (car (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)))) + (let ((#{r-cache _hoQGWMnyQPAh3k2jhWLyI}# + (if (eq? #{er _hoQGWMnyQPAh3k2jhWLyH}# + #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#) + #{r-cache _hoQGWMnyQPAh3k2jhWLyE}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{er _hoQGWMnyQPAh3k2jhWLyH}#)))) (begin (set-cdr! - #{b _85hotwsCta0JfYIjI4OWC}# - (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - (cdr (cdr #{b _85hotwsCta0JfYIjI4OWC}#)) - #{r-cache _85hotwsCta0JfYIjI4OWF}# + #{b _hoQGWMnyQPAh3k2jhWLyF}# + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (cdr (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)) + #{r-cache _hoQGWMnyQPAh3k2jhWLyI}# '(()) - #{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}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#) + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{loop _hoQGWMnyQPAh3k2jhWLx@}# + (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) + #{er _hoQGWMnyQPAh3k2jhWLyH}# + #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#)))) + (#{loop _hoQGWMnyQPAh3k2jhWLx@}# + (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) + #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# + #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#))))))) + (#{loop _hoQGWMnyQPAh3k2jhWLx@}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}# #f #f)) (set-cdr! - #{r _85hotwsCta0JfYIjI4OLa}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4OLs}# - #{bindings _85hotwsCta0JfYIjI4OLw}# - (cdr #{r _85hotwsCta0JfYIjI4OLa}#))) - (#{build-letrec _85hotwsCta0JfYIjI4J3X}# + #{r _hoQGWMnyQPAh3k2jhWLnd}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}# + (cdr #{r _hoQGWMnyQPAh3k2jhWLnd}#))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# #f #t (reverse (map syntax->datum - #{var-ids _85hotwsCta0JfYIjI4OLt}#)) + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#)) (reverse - #{vars _85hotwsCta0JfYIjI4OLu}#) - (map (lambda (#{x _85hotwsCta0JfYIjI4Obc}#) - (let ((#{e _85hotwsCta0JfYIjI4Obg}# - (cdr #{x _85hotwsCta0JfYIjI4Obc}#)) - (#{r _85hotwsCta0JfYIjI4Obh}# - (car #{x _85hotwsCta0JfYIjI4Obc}#))) + #{vars _hoQGWMnyQPAh3k2jhWLnx}#) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL3f}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWL3j}# + (cdr #{x _hoQGWMnyQPAh3k2jhWL3f}#)) + (#{r _hoQGWMnyQPAh3k2jhWL3k}# + (car #{x _hoQGWMnyQPAh3k2jhWL3f}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4Obg}# - #{r _85hotwsCta0JfYIjI4Obh}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWL3j}# + #{r _hoQGWMnyQPAh3k2jhWL3k}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4Obg}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWL3j}#) #f - #{mod _85hotwsCta0JfYIjI4OOU}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# #f)) - (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}#))))) + (lambda (#{type _hoQGWMnyQPAh3k2jhWL3o}# + #{value _hoQGWMnyQPAh3k2jhWL3p}# + #{e _hoQGWMnyQPAh3k2jhWL3q}# + #{w _hoQGWMnyQPAh3k2jhWL3r}# + #{s _hoQGWMnyQPAh3k2jhWL3s}# + #{mod _hoQGWMnyQPAh3k2jhWL3t}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWL3o}# + #{value _hoQGWMnyQPAh3k2jhWL3p}# + #{e _hoQGWMnyQPAh3k2jhWL3q}# + #{r _hoQGWMnyQPAh3k2jhWL3k}# + #{w _hoQGWMnyQPAh3k2jhWL3r}# + #{s _hoQGWMnyQPAh3k2jhWL3s}# + #{mod _hoQGWMnyQPAh3k2jhWL3t}#))))) (reverse - #{vals _85hotwsCta0JfYIjI4OLv}#)) - (let ((#{exps _85hotwsCta0JfYIjI4Obw}# - (map (lambda (#{x _85hotwsCta0JfYIjI4Obx}#) - (let ((#{e _85hotwsCta0JfYIjI4Ob0}# - (cdr #{x _85hotwsCta0JfYIjI4Obx}#)) - (#{r _85hotwsCta0JfYIjI4Ob1}# - (car #{x _85hotwsCta0JfYIjI4Obx}#))) + #{vals _hoQGWMnyQPAh3k2jhWLny}#)) + (let ((#{exps _hoQGWMnyQPAh3k2jhWL3z}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL30}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWL33}# + (cdr #{x _hoQGWMnyQPAh3k2jhWL30}#)) + (#{r _hoQGWMnyQPAh3k2jhWL34}# + (car #{x _hoQGWMnyQPAh3k2jhWL30}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4Ob0}# - #{r _85hotwsCta0JfYIjI4Ob1}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWL33}# + #{r _hoQGWMnyQPAh3k2jhWL34}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4Ob0}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWL33}#) #f - #{mod _85hotwsCta0JfYIjI4OOU}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# #f)) - (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}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWL38}# + #{value _hoQGWMnyQPAh3k2jhWL39}# + #{e _hoQGWMnyQPAh3k2jhWL3$}# + #{w _hoQGWMnyQPAh3k2jhWL3@}# + #{s _hoQGWMnyQPAh3k2jhWL4A}# + #{mod _hoQGWMnyQPAh3k2jhWL4B}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWL38}# + #{value _hoQGWMnyQPAh3k2jhWL39}# + #{e _hoQGWMnyQPAh3k2jhWL3$}# + #{r _hoQGWMnyQPAh3k2jhWL34}# + #{w _hoQGWMnyQPAh3k2jhWL3@}# + #{s _hoQGWMnyQPAh3k2jhWL4A}# + #{mod _hoQGWMnyQPAh3k2jhWL4B}#))))) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#) - #{s _85hotwsCta0JfYIjI4OOT}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{s _hoQGWMnyQPAh3k2jhWLqW}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OOR}# - #{s _85hotwsCta0JfYIjI4OOT}#)) - #{e _85hotwsCta0JfYIjI4OOR}#) - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (cdr #{body _85hotwsCta0JfYIjI4OLq}#))))) - (if (null? (cdr #{exps _85hotwsCta0JfYIjI4Obw}#)) - (car #{exps _85hotwsCta0JfYIjI4Obw}#) + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{s _hoQGWMnyQPAh3k2jhWLqW}#)) + #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#))))) + (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWL3z}#)) + (car #{exps _hoQGWMnyQPAh3k2jhWL3z}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps _85hotwsCta0JfYIjI4Obw}#))))))))))))))))) - (#{parse _85hotwsCta0JfYIjI4OLd}# - (map (lambda (#{x _85hotwsCta0JfYIjI4OLg}#) - (cons #{r _85hotwsCta0JfYIjI4OLa}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{x _85hotwsCta0JfYIjI4OLg}# - #{w _85hotwsCta0JfYIjI4OLc}# - #{mod _85hotwsCta0JfYIjI4OLZ}#))) - #{body _85hotwsCta0JfYIjI4OLV}#) + #{exps _hoQGWMnyQPAh3k2jhWL3z}#))))))))))))))))) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLnj}#) + (cons #{r _hoQGWMnyQPAh3k2jhWLnd}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{x _hoQGWMnyQPAh3k2jhWLnj}# + #{w _hoQGWMnyQPAh3k2jhWLnf}# + #{mod _hoQGWMnyQPAh3k2jhWLnc}#))) + #{body _hoQGWMnyQPAh3k2jhWLnY}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}# - (lambda (#{rec? _85hotwsCta0JfYIjI4OcY}# - #{e _85hotwsCta0JfYIjI4OcZ}# - #{r _85hotwsCta0JfYIjI4Oca}# - #{w _85hotwsCta0JfYIjI4Ocb}# - #{s _85hotwsCta0JfYIjI4Occ}# - #{mod _85hotwsCta0JfYIjI4Ocd}# - #{k _85hotwsCta0JfYIjI4Oce}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ocg}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + (lambda (#{rec? _hoQGWMnyQPAh3k2jhWL4b}# + #{e _hoQGWMnyQPAh3k2jhWL4c}# + #{r _hoQGWMnyQPAh3k2jhWL4d}# + #{w _hoQGWMnyQPAh3k2jhWL4e}# + #{s _hoQGWMnyQPAh3k2jhWL4f}# + #{mod _hoQGWMnyQPAh3k2jhWL4g}# + #{k _hoQGWMnyQPAh3k2jhWL4h}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWL4j}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4OcZ}# + #{e _hoQGWMnyQPAh3k2jhWL4c}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Ocg}# + (if #{tmp _hoQGWMnyQPAh3k2jhWL4j}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Ock}# - #{val _85hotwsCta0JfYIjI4Ocl}# - #{e1 _85hotwsCta0JfYIjI4Ocm}# - #{e2 _85hotwsCta0JfYIjI4Ocn}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{id _85hotwsCta0JfYIjI4Ock}#)) + (lambda (#{id _hoQGWMnyQPAh3k2jhWL4n}# + #{val _hoQGWMnyQPAh3k2jhWL4o}# + #{e1 _hoQGWMnyQPAh3k2jhWL4p}# + #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{id _hoQGWMnyQPAh3k2jhWL4n}#)) (syntax-violation #f "duplicate bound keyword" - #{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}#))) + #{e _hoQGWMnyQPAh3k2jhWL4c}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWL6E}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{id _hoQGWMnyQPAh3k2jhWL4n}#))) + (let ((#{new-w _hoQGWMnyQPAh3k2jhWL6F}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{id _hoQGWMnyQPAh3k2jhWL4n}# + #{labels _hoQGWMnyQPAh3k2jhWL6E}# + #{w _hoQGWMnyQPAh3k2jhWL4e}#))) + (#{k _hoQGWMnyQPAh3k2jhWL4h}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWL4p}# + #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWL6E}# + (let ((#{trans-r _hoQGWMnyQPAh3k2jhWL6l}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{r _hoQGWMnyQPAh3k2jhWL4d}#))) (begin - (if #{rec? _85hotwsCta0JfYIjI4OcY}# - #{new-w _85hotwsCta0JfYIjI4OeC}# - #{w _85hotwsCta0JfYIjI4Ocb}#) - (map (lambda (#{x _85hotwsCta0JfYIjI4Oej}#) + (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# + #{new-w _hoQGWMnyQPAh3k2jhWL6F}# + #{w _hoQGWMnyQPAh3k2jhWL4e}#) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL6m}#) (cons 'macro - (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4Oej}# - #{trans-r _85hotwsCta0JfYIjI4Oei}# + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWL6m}# + #{trans-r _hoQGWMnyQPAh3k2jhWL6l}# (values - (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}#) + (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# + #{new-w _hoQGWMnyQPAh3k2jhWL6F}# + #{w _hoQGWMnyQPAh3k2jhWL4e}#)) + #{mod _hoQGWMnyQPAh3k2jhWL4g}#) + #{mod _hoQGWMnyQPAh3k2jhWL4g}#))) + #{val _hoQGWMnyQPAh3k2jhWL4o}#))) + #{r _hoQGWMnyQPAh3k2jhWL4d}#) + #{new-w _hoQGWMnyQPAh3k2jhWL6F}# + #{s _hoQGWMnyQPAh3k2jhWL4f}# + #{mod _hoQGWMnyQPAh3k2jhWL4g}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWL4j}#) (syntax-violation #f "bad local syntax definition" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OcZ}#) - #{s _85hotwsCta0JfYIjI4Occ}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWL4c}#) + #{s _hoQGWMnyQPAh3k2jhWL4f}# #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}# + #{e _hoQGWMnyQPAh3k2jhWL4c}# + #{s _hoQGWMnyQPAh3k2jhWL4f}#)) + #{e _hoQGWMnyQPAh3k2jhWL4c}#) + #{w _hoQGWMnyQPAh3k2jhWL4e}# + #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))))) + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (lambda (#{expanded _hoQGWMnyQPAh3k2jhWL$6}# + #{mod _hoQGWMnyQPAh3k2jhWL$7}#) + (let ((#{p _hoQGWMnyQPAh3k2jhWL$8}# (primitive-eval - #{expanded _85hotwsCta0JfYIjI4Oi3}#))) - (if (procedure? #{p _85hotwsCta0JfYIjI4Oi5}#) - #{p _85hotwsCta0JfYIjI4Oi5}# + #{expanded _hoQGWMnyQPAh3k2jhWL$6}#))) + (if (procedure? #{p _hoQGWMnyQPAh3k2jhWL$8}#) + #{p _hoQGWMnyQPAh3k2jhWL$8}# (syntax-violation #f "nonprocedure transformer" - #{p _85hotwsCta0JfYIjI4Oi5}#))))) - (#{ellipsis? _85hotwsCta0JfYIjI4J4T}# - (lambda (#{x _85hotwsCta0JfYIjI4KCo}#) - (if (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#) + #{p _hoQGWMnyQPAh3k2jhWL$8}#))))) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1)) #f) - (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#) + (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1) - #{x _85hotwsCta0JfYIjI4KCo}#) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1) + #{x _hoQGWMnyQPAh3k2jhWHeC}#) (if (if (= (vector-length '#(syntax-object ... @@ -6150,10 +6150,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4KCo}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWHeC}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -6591,377 +6591,377 @@ '(()))) #f) #f))) - (#{lambda-formals _85hotwsCta0JfYIjI4J4U}# - (lambda (#{orig-args _85hotwsCta0JfYIjI4Oi$}#) + (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# + (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWL@B}#) (letrec* - ((#{req _85hotwsCta0JfYIjI4Oi@}# - (lambda (#{args _85hotwsCta0JfYIjI4OjD}# - #{rreq _85hotwsCta0JfYIjI4OjE}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OjG}# + ((#{req _hoQGWMnyQPAh3k2jhWL@C}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWL@G}# + #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWL@J}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4OjD}# + #{args _hoQGWMnyQPAh3k2jhWL@G}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4OjG}# + (if #{tmp _hoQGWMnyQPAh3k2jhWL@J}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4OjA}# - (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#) + (#{check _hoQGWMnyQPAh3k2jhWL@D}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) #f)) - #{tmp _85hotwsCta0JfYIjI4OjG}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OlB}# + #{tmp _hoQGWMnyQPAh3k2jhWL@J}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBE}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4OjD}# + #{args _hoQGWMnyQPAh3k2jhWL@G}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OlB}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMBE}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OlF}# - #{b _85hotwsCta0JfYIjI4OlG}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4OlF}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMBI}# + #{b _hoQGWMnyQPAh3k2jhWMBJ}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMBI}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4OlF}#) + #{a _hoQGWMnyQPAh3k2jhWMBI}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4OlF}#) + #{a _hoQGWMnyQPAh3k2jhWMBI}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4OlF}# + #{a _hoQGWMnyQPAh3k2jhWMBI}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4OlF}# + #{a _hoQGWMnyQPAh3k2jhWMBI}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4OlB}#) + #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Olh}# - #{b _85hotwsCta0JfYIjI4Oli}#) - (#{req _85hotwsCta0JfYIjI4Oi@}# - #{b _85hotwsCta0JfYIjI4Oli}# - (cons #{a _85hotwsCta0JfYIjI4Olh}# - #{rreq _85hotwsCta0JfYIjI4OjE}#))) - #{tmp _85hotwsCta0JfYIjI4OlB}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Olj}# - (list #{args _85hotwsCta0JfYIjI4OjD}#))) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMBk}# + #{b _hoQGWMnyQPAh3k2jhWMBl}#) + (#{req _hoQGWMnyQPAh3k2jhWL@C}# + #{b _hoQGWMnyQPAh3k2jhWMBl}# + (cons #{a _hoQGWMnyQPAh3k2jhWMBk}# + #{rreq _hoQGWMnyQPAh3k2jhWL@H}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBm}# + (list #{args _hoQGWMnyQPAh3k2jhWL@G}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4Oll}#) - (if (symbol? #{r _85hotwsCta0JfYIjI4Oll}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMBo}#) + (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMBo}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4Oll}#) + #{r _hoQGWMnyQPAh3k2jhWMBo}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4Oll}#) + #{r _hoQGWMnyQPAh3k2jhWMBo}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4Oll}# + #{r _hoQGWMnyQPAh3k2jhWMBo}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4Oll}# + #{r _hoQGWMnyQPAh3k2jhWMBo}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Olj}#) + #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4OmD}#) - (#{check _85hotwsCta0JfYIjI4OjA}# - (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#) - #{r _85hotwsCta0JfYIjI4OmD}#)) - #{tmp _85hotwsCta0JfYIjI4Olj}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMCG}#) + (#{check _hoQGWMnyQPAh3k2jhWL@D}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) + #{r _hoQGWMnyQPAh3k2jhWMCG}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) (syntax-violation 'lambda "invalid argument list" - #{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}#)) + #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# + #{args _hoQGWMnyQPAh3k2jhWL@G}#))))))))) + (#{check _hoQGWMnyQPAh3k2jhWL@D}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMEJ}# + #{rest _hoQGWMnyQPAh3k2jhWMEK}#) + (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + (if #{rest _hoQGWMnyQPAh3k2jhWMEK}# + (cons #{rest _hoQGWMnyQPAh3k2jhWMEK}# + #{req _hoQGWMnyQPAh3k2jhWMEJ}#) + #{req _hoQGWMnyQPAh3k2jhWMEJ}#)) (values - #{req _85hotwsCta0JfYIjI4OoG}# + #{req _hoQGWMnyQPAh3k2jhWMEJ}# #f - #{rest _85hotwsCta0JfYIjI4OoH}# + #{rest _hoQGWMnyQPAh3k2jhWMEK}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args _85hotwsCta0JfYIjI4Oi$}#))))) - (#{req _85hotwsCta0JfYIjI4Oi@}# - #{orig-args _85hotwsCta0JfYIjI4Oi$}# + #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#))))) + (#{req _hoQGWMnyQPAh3k2jhWL@C}# + #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# '())))) - (#{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}# + (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWMF$}# + #{r _hoQGWMnyQPAh3k2jhWMF@}# + #{w _hoQGWMnyQPAh3k2jhWMGA}# + #{s _hoQGWMnyQPAh3k2jhWMGB}# + #{mod _hoQGWMnyQPAh3k2jhWMGC}# + #{req _hoQGWMnyQPAh3k2jhWMGD}# + #{rest _hoQGWMnyQPAh3k2jhWMGE}# + #{meta _hoQGWMnyQPAh3k2jhWMGF}# + #{body _hoQGWMnyQPAh3k2jhWMGG}#) + (let ((#{ids _hoQGWMnyQPAh3k2jhWMGH}# + (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# (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$}# + #{req _hoQGWMnyQPAh3k2jhWMGD}# + (list #{rest _hoQGWMnyQPAh3k2jhWMGE}#)) + #{req _hoQGWMnyQPAh3k2jhWMGD}#))) + (let ((#{vars _hoQGWMnyQPAh3k2jhWMGI}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) + (let ((#{labels _hoQGWMnyQPAh3k2jhWMGJ}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) + (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + #{s _hoQGWMnyQPAh3k2jhWMGB}# (map syntax->datum - #{req _85hotwsCta0JfYIjI4OqA}#) - (if #{rest _85hotwsCta0JfYIjI4OqB}# - (syntax->datum #{rest _85hotwsCta0JfYIjI4OqB}#) + #{req _hoQGWMnyQPAh3k2jhWMGD}#) + (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# + (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMGE}#) #f) - #{vars _85hotwsCta0JfYIjI4OqF}# - #{meta _85hotwsCta0JfYIjI4OqC}# - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - #{body _85hotwsCta0JfYIjI4OqD}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{vars _hoQGWMnyQPAh3k2jhWMGI}# + #{meta _hoQGWMnyQPAh3k2jhWMGF}# + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + #{body _hoQGWMnyQPAh3k2jhWMGG}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Op7}#) - #{s _85hotwsCta0JfYIjI4Op$}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMF$}#) + #{s _hoQGWMnyQPAh3k2jhWMGB}# #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}#) + #{e _hoQGWMnyQPAh3k2jhWMF$}# + #{s _hoQGWMnyQPAh3k2jhWMGB}#)) + #{e _hoQGWMnyQPAh3k2jhWMF$}#) + #{w _hoQGWMnyQPAh3k2jhWMGA}# + #{mod _hoQGWMnyQPAh3k2jhWMGC}#) + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWMGJ}# + #{vars _hoQGWMnyQPAh3k2jhWMGI}# + #{r _hoQGWMnyQPAh3k2jhWMF@}#) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{ids _hoQGWMnyQPAh3k2jhWMGH}# + #{labels _hoQGWMnyQPAh3k2jhWMGJ}# + #{w _hoQGWMnyQPAh3k2jhWMGA}#) + #{mod _hoQGWMnyQPAh3k2jhWMGC}#))))))) + (#{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# + (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#) (letrec* - ((#{req _85hotwsCta0JfYIjI4OuX}# - (lambda (#{args _85hotwsCta0JfYIjI4Oue}# - #{rreq _85hotwsCta0JfYIjI4Ouf}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ouh}# + ((#{req _hoQGWMnyQPAh3k2jhWMKa}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMKh}# + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKk}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4Ouh}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMKk}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4Oub}# - (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() #f '())) - #{tmp _85hotwsCta0JfYIjI4Ouh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oun}# + #{tmp _hoQGWMnyQPAh3k2jhWMKk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKq}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Oun}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMKq}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Our}# - #{b _85hotwsCta0JfYIjI4Ous}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4Our}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMKu}# + #{b _hoQGWMnyQPAh3k2jhWMKv}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMKu}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4Our}#) + #{a _hoQGWMnyQPAh3k2jhWMKu}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4Our}#) + #{a _hoQGWMnyQPAh3k2jhWMKu}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4Our}# + #{a _hoQGWMnyQPAh3k2jhWMKu}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4Our}# + #{a _hoQGWMnyQPAh3k2jhWMKu}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Oun}#) + #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvH}# - #{b _85hotwsCta0JfYIjI4OvI}#) - (#{req _85hotwsCta0JfYIjI4OuX}# - #{b _85hotwsCta0JfYIjI4OvI}# - (cons #{a _85hotwsCta0JfYIjI4OvH}# - #{rreq _85hotwsCta0JfYIjI4Ouf}#))) - #{tmp _85hotwsCta0JfYIjI4Oun}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OvJ}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLK}# + #{b _hoQGWMnyQPAh3k2jhWMLL}#) + (#{req _hoQGWMnyQPAh3k2jhWMKa}# + #{b _hoQGWMnyQPAh3k2jhWMLL}# + (cons #{a _hoQGWMnyQPAh3k2jhWMLK}# + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLM}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OvJ}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLM}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvN}# - #{b _85hotwsCta0JfYIjI4OvO}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLQ}# + #{b _hoQGWMnyQPAh3k2jhWMLR}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4OvN}#) + #{a _hoQGWMnyQPAh3k2jhWMLQ}#) #:optional)) - #{tmp _85hotwsCta0JfYIjI4OvJ}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvP}# - #{b _85hotwsCta0JfYIjI4OvQ}#) - (#{opt _85hotwsCta0JfYIjI4OuY}# - #{b _85hotwsCta0JfYIjI4OvQ}# - (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLS}# + #{b _hoQGWMnyQPAh3k2jhWMLT}#) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + #{b _hoQGWMnyQPAh3k2jhWMLT}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '())) - #{tmp _85hotwsCta0JfYIjI4OvJ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OvT}# + #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLW}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OvT}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLW}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvX}# - #{b _85hotwsCta0JfYIjI4OvY}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLa}# + #{b _hoQGWMnyQPAh3k2jhWMLb}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4OvX}#) + #{a _hoQGWMnyQPAh3k2jhWMLa}#) #:key)) - #{tmp _85hotwsCta0JfYIjI4OvT}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvZ}# - #{b _85hotwsCta0JfYIjI4Ova}#) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4Ova}# - (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLc}# + #{b _hoQGWMnyQPAh3k2jhWMLd}#) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMLd}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() '())) - #{tmp _85hotwsCta0JfYIjI4OvT}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ovd}# + #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLg}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ovd}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLg}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ovh}# - #{b _85hotwsCta0JfYIjI4Ovi}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLk}# + #{b _hoQGWMnyQPAh3k2jhWMLl}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4Ovh}#) + #{a _hoQGWMnyQPAh3k2jhWMLk}#) #:rest)) - #{tmp _85hotwsCta0JfYIjI4Ovd}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ovj}# - #{b _85hotwsCta0JfYIjI4Ovk}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4Ovk}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLm}# + #{b _hoQGWMnyQPAh3k2jhWMLn}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMLn}# (reverse - #{rreq _85hotwsCta0JfYIjI4Ouf}#) + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() '())) - #{tmp _85hotwsCta0JfYIjI4Ovd}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ovn}# - (list #{args _85hotwsCta0JfYIjI4Oue}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLq}# + (list #{args _hoQGWMnyQPAh3k2jhWMKh}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4Ovp}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMLs}#) (if (symbol? - #{r _85hotwsCta0JfYIjI4Ovp}#) + #{r _hoQGWMnyQPAh3k2jhWMLs}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4Ovp}#) + #{r _hoQGWMnyQPAh3k2jhWMLs}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4Ovp}#) + #{r _hoQGWMnyQPAh3k2jhWMLs}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4Ovp}# + #{r _hoQGWMnyQPAh3k2jhWMLs}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4Ovp}# + #{r _hoQGWMnyQPAh3k2jhWMLs}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ovn}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4OwH}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4OwH}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWMMK}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMMK}# (reverse - #{rreq _85hotwsCta0JfYIjI4Ouf}#) + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() '())) - #{tmp _85hotwsCta0JfYIjI4Ovn}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4Oue}#))))))))))))))) - (#{opt _85hotwsCta0JfYIjI4OuY}# - (lambda (#{args _85hotwsCta0JfYIjI4Owa}# - #{req _85hotwsCta0JfYIjI4Owb}# - #{ropt _85hotwsCta0JfYIjI4Owc}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Owe}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMKh}#))))))))))))))) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMMd}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMh}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4Owe}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMMh}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4Owb}# - (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) #f '())) - #{tmp _85hotwsCta0JfYIjI4Owe}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Owk}# + #{tmp _hoQGWMnyQPAh3k2jhWMMh}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMn}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Owk}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMMn}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Owo}# - #{b _85hotwsCta0JfYIjI4Owp}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4Owo}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMMr}# + #{b _hoQGWMnyQPAh3k2jhWMMs}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMMr}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4Owo}#) + #{a _hoQGWMnyQPAh3k2jhWMMr}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4Owo}#) + #{a _hoQGWMnyQPAh3k2jhWMMr}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4Owo}# + #{a _hoQGWMnyQPAh3k2jhWMMr}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4Owo}# + #{a _hoQGWMnyQPAh3k2jhWMMr}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Owk}#) + #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OxE}# - #{b _85hotwsCta0JfYIjI4OxF}#) - (#{opt _85hotwsCta0JfYIjI4OuY}# - #{b _85hotwsCta0JfYIjI4OxF}# - #{req _85hotwsCta0JfYIjI4Owb}# - (cons (cons #{a _85hotwsCta0JfYIjI4OxE}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNH}# + #{b _hoQGWMnyQPAh3k2jhWMNI}#) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + #{b _hoQGWMnyQPAh3k2jhWMNI}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (cons (cons #{a _hoQGWMnyQPAh3k2jhWMNH}# '(#(syntax-object #f ((top) @@ -7418,191 +7418,191 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - #{ropt _85hotwsCta0JfYIjI4Owc}#))) - #{tmp _85hotwsCta0JfYIjI4Owk}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OxG}# + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNJ}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '((any any) . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OxG}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNJ}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OxK}# - #{init _85hotwsCta0JfYIjI4OxL}# - #{b _85hotwsCta0JfYIjI4OxM}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4OxK}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNN}# + #{init _hoQGWMnyQPAh3k2jhWMNO}# + #{b _hoQGWMnyQPAh3k2jhWMNP}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMNN}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4OxK}#) + #{a _hoQGWMnyQPAh3k2jhWMNN}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4OxK}#) + #{a _hoQGWMnyQPAh3k2jhWMNN}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4OxK}# + #{a _hoQGWMnyQPAh3k2jhWMNN}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4OxK}# + #{a _hoQGWMnyQPAh3k2jhWMNN}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4OxG}#) + #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) #f) (@apply - (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}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNq}# + #{init _hoQGWMnyQPAh3k2jhWMNr}# + #{b _hoQGWMnyQPAh3k2jhWMNs}#) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + #{b _hoQGWMnyQPAh3k2jhWMNs}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (cons (list #{a _hoQGWMnyQPAh3k2jhWMNq}# + #{init _hoQGWMnyQPAh3k2jhWMNr}#) + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNt}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Oxq}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNt}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Oxu}# - #{b _85hotwsCta0JfYIjI4Oxv}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNx}# + #{b _hoQGWMnyQPAh3k2jhWMNy}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4Oxu}#) + #{a _hoQGWMnyQPAh3k2jhWMNx}#) #:key)) - #{tmp _85hotwsCta0JfYIjI4Oxq}#) + #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Oxw}# - #{b _85hotwsCta0JfYIjI4Oxx}#) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4Oxx}# - #{req _85hotwsCta0JfYIjI4Owb}# - (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNz}# + #{b _hoQGWMnyQPAh3k2jhWMN0}#) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMN0}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) '())) - #{tmp _85hotwsCta0JfYIjI4Oxq}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ox0}# + #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMN3}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ox0}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMN3}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ox4}# - #{b _85hotwsCta0JfYIjI4Ox5}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMN7}# + #{b _hoQGWMnyQPAh3k2jhWMN8}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4Ox4}#) + #{a _hoQGWMnyQPAh3k2jhWMN7}#) #:rest)) - #{tmp _85hotwsCta0JfYIjI4Ox0}#) + #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ox6}# - #{b _85hotwsCta0JfYIjI4Ox7}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4Ox7}# - #{req _85hotwsCta0JfYIjI4Owb}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMN9}# + #{b _hoQGWMnyQPAh3k2jhWMN$}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMN$}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# (reverse - #{ropt _85hotwsCta0JfYIjI4Owc}#) + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) '())) - #{tmp _85hotwsCta0JfYIjI4Ox0}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ox$}# - (list #{args _85hotwsCta0JfYIjI4Owa}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMOB}# + (list #{args _hoQGWMnyQPAh3k2jhWMMd}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4OyA}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMOD}#) (if (symbol? - #{r _85hotwsCta0JfYIjI4OyA}#) + #{r _hoQGWMnyQPAh3k2jhWMOD}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4OyA}#) + #{r _hoQGWMnyQPAh3k2jhWMOD}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4OyA}#) + #{r _hoQGWMnyQPAh3k2jhWMOD}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4OyA}# + #{r _hoQGWMnyQPAh3k2jhWMOD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4OyA}# + #{r _hoQGWMnyQPAh3k2jhWMOD}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ox$}#) + #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4Oye}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4Oye}# - #{req _85hotwsCta0JfYIjI4Owb}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWMOh}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMOh}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# (reverse - #{ropt _85hotwsCta0JfYIjI4Owc}#) + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) '())) - #{tmp _85hotwsCta0JfYIjI4Ox$}#) + #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4Owa}#))))))))))))))) - (#{key _85hotwsCta0JfYIjI4OuZ}# - (lambda (#{args _85hotwsCta0JfYIjI4Oyx}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# - #{rkey _85hotwsCta0JfYIjI4Oy0}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oy2}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMMd}#))))))))))))))) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMO0}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO5}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4Oy2}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMO5}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# #f (cons #f - (reverse #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4Oy2}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oy8}# + (reverse #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMO5}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO@}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Oy8}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMO@}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OzA}# - #{b _85hotwsCta0JfYIjI4OzB}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4OzA}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMPD}# + #{b _hoQGWMnyQPAh3k2jhWMPE}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPD}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4OzA}#) + #{a _hoQGWMnyQPAh3k2jhWMPD}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4OzA}#) + #{a _hoQGWMnyQPAh3k2jhWMPD}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4OzA}# + #{a _hoQGWMnyQPAh3k2jhWMPD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4OzA}# + #{a _hoQGWMnyQPAh3k2jhWMPD}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Oy8}#) + #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ozc}# - #{b _85hotwsCta0JfYIjI4Ozd}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oze}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMPf}# + #{b _hoQGWMnyQPAh3k2jhWMPg}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPh}# (symbol->keyword (syntax->datum - #{a _85hotwsCta0JfYIjI4Ozc}#)))) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4Ozd}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# - (cons (cons #{tmp _85hotwsCta0JfYIjI4Oze}# - (cons #{a _85hotwsCta0JfYIjI4Ozc}# + #{a _hoQGWMnyQPAh3k2jhWMPf}#)))) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMPg}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (cons (cons #{tmp _hoQGWMnyQPAh3k2jhWMPh}# + (cons #{a _hoQGWMnyQPAh3k2jhWMPf}# '(#(syntax-object #f ((top) @@ -8073,916 +8073,916 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile))))) - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4Oy8}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ozh}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPk}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '((any any) . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ozh}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMPk}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ozl}# - #{init _85hotwsCta0JfYIjI4Ozm}# - #{b _85hotwsCta0JfYIjI4Ozn}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4Ozl}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMPo}# + #{init _hoQGWMnyQPAh3k2jhWMPp}# + #{b _hoQGWMnyQPAh3k2jhWMPq}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPo}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4Ozl}#) + #{a _hoQGWMnyQPAh3k2jhWMPo}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4Ozl}#) + #{a _hoQGWMnyQPAh3k2jhWMPo}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4Ozl}# + #{a _hoQGWMnyQPAh3k2jhWMPo}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4Ozl}# + #{a _hoQGWMnyQPAh3k2jhWMPo}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ozh}#) + #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O0C}# - #{init _85hotwsCta0JfYIjI4O0D}# - #{b _85hotwsCta0JfYIjI4O0E}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O0F}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMQF}# + #{init _hoQGWMnyQPAh3k2jhWMQG}# + #{b _hoQGWMnyQPAh3k2jhWMQH}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQI}# (symbol->keyword (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}# + #{a _hoQGWMnyQPAh3k2jhWMQF}#)))) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMQH}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (cons (list #{tmp _hoQGWMnyQPAh3k2jhWMQI}# + #{a _hoQGWMnyQPAh3k2jhWMQF}# + #{init _hoQGWMnyQPAh3k2jhWMQG}#) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQL}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '((any any any) . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O0I}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQL}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O0M}# - #{init _85hotwsCta0JfYIjI4O0N}# - #{k _85hotwsCta0JfYIjI4O0O}# - #{b _85hotwsCta0JfYIjI4O0P}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMQP}# + #{init _hoQGWMnyQPAh3k2jhWMQQ}# + #{k _hoQGWMnyQPAh3k2jhWMQR}# + #{b _hoQGWMnyQPAh3k2jhWMQS}#) (if (if (symbol? - #{a _85hotwsCta0JfYIjI4O0M}#) + #{a _hoQGWMnyQPAh3k2jhWMQP}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4O0M}#) + #{a _hoQGWMnyQPAh3k2jhWMQP}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4O0M}#) + #{a _hoQGWMnyQPAh3k2jhWMQP}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4O0M}# + #{a _hoQGWMnyQPAh3k2jhWMQP}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4O0M}# + #{a _hoQGWMnyQPAh3k2jhWMQP}# 1)) #f)) (keyword? (syntax->datum - #{k _85hotwsCta0JfYIjI4O0O}#)) + #{k _hoQGWMnyQPAh3k2jhWMQR}#)) #f)) - #{tmp _85hotwsCta0JfYIjI4O0I}#) + #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) #f) (@apply - (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}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMQt}# + #{init _hoQGWMnyQPAh3k2jhWMQu}# + #{k _hoQGWMnyQPAh3k2jhWMQv}# + #{b _hoQGWMnyQPAh3k2jhWMQw}#) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMQw}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (cons (list #{k _hoQGWMnyQPAh3k2jhWMQv}# + #{a _hoQGWMnyQPAh3k2jhWMQt}# + #{init _hoQGWMnyQPAh3k2jhWMQu}#) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQx}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O0u}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQx}# (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O0y}#) + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ1}#) (eq? (syntax->datum - #{aok _85hotwsCta0JfYIjI4O0y}#) + #{aok _hoQGWMnyQPAh3k2jhWMQ1}#) #:allow-other-keys)) - #{tmp _85hotwsCta0JfYIjI4O0u}#) + #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) #f) (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O0z}#) - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ2}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# #f (cons #t (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O0u}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O02}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQ5}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O02}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQ5}# (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O06}# - #{a _85hotwsCta0JfYIjI4O07}# - #{b _85hotwsCta0JfYIjI4O08}#) + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ9}# + #{a _hoQGWMnyQPAh3k2jhWMQ$}# + #{b _hoQGWMnyQPAh3k2jhWMQ@}#) (if (eq? (syntax->datum - #{aok _85hotwsCta0JfYIjI4O06}#) + #{aok _hoQGWMnyQPAh3k2jhWMQ9}#) #:allow-other-keys) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4O07}#) + #{a _hoQGWMnyQPAh3k2jhWMQ$}#) #:rest) #f)) - #{tmp _85hotwsCta0JfYIjI4O02}#) + #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) #f) (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O09}# - #{a _85hotwsCta0JfYIjI4O0$}# - #{b _85hotwsCta0JfYIjI4O0@}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4O0@}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRA}# + #{a _hoQGWMnyQPAh3k2jhWMRB}# + #{b _hoQGWMnyQPAh3k2jhWMRC}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMRC}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #t (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O02}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O1C}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRF}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O1C}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRF}# (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O1G}# - #{r _85hotwsCta0JfYIjI4O1H}#) + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRJ}# + #{r _hoQGWMnyQPAh3k2jhWMRK}#) (if (eq? (syntax->datum - #{aok _85hotwsCta0JfYIjI4O1G}#) + #{aok _hoQGWMnyQPAh3k2jhWMRJ}#) #:allow-other-keys) (if (symbol? - #{r _85hotwsCta0JfYIjI4O1H}#) + #{r _hoQGWMnyQPAh3k2jhWMRK}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4O1H}#) + #{r _hoQGWMnyQPAh3k2jhWMRK}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4O1H}#) + #{r _hoQGWMnyQPAh3k2jhWMRK}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4O1H}# + #{r _hoQGWMnyQPAh3k2jhWMRK}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4O1H}# + #{r _hoQGWMnyQPAh3k2jhWMRK}# 1)) #f)) #f)) - #{tmp _85hotwsCta0JfYIjI4O1C}#) + #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) #f) (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O1i}# - #{r _85hotwsCta0JfYIjI4O1j}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4O1j}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRl}# + #{r _hoQGWMnyQPAh3k2jhWMRm}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMRm}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #t (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O1C}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O1m}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRp}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O1m}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRp}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O1q}# - #{b _85hotwsCta0JfYIjI4O1r}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMRt}# + #{b _hoQGWMnyQPAh3k2jhWMRu}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4O1q}#) + #{a _hoQGWMnyQPAh3k2jhWMRt}#) #:rest)) - #{tmp _85hotwsCta0JfYIjI4O1m}#) + #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O1s}# - #{b _85hotwsCta0JfYIjI4O1t}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4O1t}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMRv}# + #{b _hoQGWMnyQPAh3k2jhWMRw}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMRw}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #f (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O1m}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O1w}# - (list #{args _85hotwsCta0JfYIjI4Oyx}#))) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRz}# + (list #{args _hoQGWMnyQPAh3k2jhWMO0}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O1y}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMR1}#) (if (symbol? - #{r _85hotwsCta0JfYIjI4O1y}#) + #{r _hoQGWMnyQPAh3k2jhWMR1}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4O1y}#) + #{r _hoQGWMnyQPAh3k2jhWMR1}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4O1y}#) + #{r _hoQGWMnyQPAh3k2jhWMR1}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4O1y}# + #{r _hoQGWMnyQPAh3k2jhWMR1}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4O1y}# + #{r _hoQGWMnyQPAh3k2jhWMR1}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4O1w}#) + #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O2Q}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4O2Q}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWMST}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMST}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #f (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O1w}#) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4Oyx}#))))))))))))))))))))) - (#{rest _85hotwsCta0JfYIjI4Oua}# - (lambda (#{args _85hotwsCta0JfYIjI4O2s}# - #{req _85hotwsCta0JfYIjI4O2t}# - #{opt _85hotwsCta0JfYIjI4O2u}# - #{kw _85hotwsCta0JfYIjI4O2v}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O2x}# - (list #{args _85hotwsCta0JfYIjI4O2s}#))) + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMO0}#))))))))))))))))))))) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMSv}# + #{req _hoQGWMnyQPAh3k2jhWMSw}# + #{opt _hoQGWMnyQPAh3k2jhWMSx}# + #{kw _hoQGWMnyQPAh3k2jhWMSy}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMS0}# + (list #{args _hoQGWMnyQPAh3k2jhWMSv}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O2z}#) - (if (symbol? #{r _85hotwsCta0JfYIjI4O2z}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMS2}#) + (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMS2}#) #t - (if (if (vector? #{r _85hotwsCta0JfYIjI4O2z}#) + (if (if (vector? #{r _hoQGWMnyQPAh3k2jhWMS2}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4O2z}#) + #{r _hoQGWMnyQPAh3k2jhWMS2}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4O2z}# + #{r _hoQGWMnyQPAh3k2jhWMS2}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r _85hotwsCta0JfYIjI4O2z}# 1)) + (vector-ref #{r _hoQGWMnyQPAh3k2jhWMS2}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4O2x}#) + #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O3R}#) - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4O2t}# - #{opt _85hotwsCta0JfYIjI4O2u}# - #{r _85hotwsCta0JfYIjI4O3R}# - #{kw _85hotwsCta0JfYIjI4O2v}#)) - #{tmp _85hotwsCta0JfYIjI4O2x}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMTU}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMSw}# + #{opt _hoQGWMnyQPAh3k2jhWMSx}# + #{r _hoQGWMnyQPAh3k2jhWMTU}# + #{kw _hoQGWMnyQPAh3k2jhWMSy}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4O2s}#))))) - (#{check _85hotwsCta0JfYIjI4Oub}# - (lambda (#{req _85hotwsCta0JfYIjI4O3V}# - #{opt _85hotwsCta0JfYIjI4O3W}# - #{rest _85hotwsCta0JfYIjI4O3X}# - #{kw _85hotwsCta0JfYIjI4O3Y}#) - (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMSv}#))))) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMTY}# + #{opt _hoQGWMnyQPAh3k2jhWMTZ}# + #{rest _hoQGWMnyQPAh3k2jhWMTa}# + #{kw _hoQGWMnyQPAh3k2jhWMTb}#) + (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# (append - #{req _85hotwsCta0JfYIjI4O3V}# - (map car #{opt _85hotwsCta0JfYIjI4O3W}#) - (if #{rest _85hotwsCta0JfYIjI4O3X}# - (list #{rest _85hotwsCta0JfYIjI4O3X}#) + #{req _hoQGWMnyQPAh3k2jhWMTY}# + (map car #{opt _hoQGWMnyQPAh3k2jhWMTZ}#) + (if #{rest _hoQGWMnyQPAh3k2jhWMTa}# + (list #{rest _hoQGWMnyQPAh3k2jhWMTa}#) '()) - (if (pair? #{kw _85hotwsCta0JfYIjI4O3Y}#) - (map cadr (cdr #{kw _85hotwsCta0JfYIjI4O3Y}#)) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMTb}#) + (map cadr (cdr #{kw _hoQGWMnyQPAh3k2jhWMTb}#)) '()))) (values - #{req _85hotwsCta0JfYIjI4O3V}# - #{opt _85hotwsCta0JfYIjI4O3W}# - #{rest _85hotwsCta0JfYIjI4O3X}# - #{kw _85hotwsCta0JfYIjI4O3Y}#) + #{req _hoQGWMnyQPAh3k2jhWMTY}# + #{opt _hoQGWMnyQPAh3k2jhWMTZ}# + #{rest _hoQGWMnyQPAh3k2jhWMTa}# + #{kw _hoQGWMnyQPAh3k2jhWMTb}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}#))))) - (#{req _85hotwsCta0JfYIjI4OuX}# - #{orig-args _85hotwsCta0JfYIjI4OuW}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#))))) + (#{req _hoQGWMnyQPAh3k2jhWMKa}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# '())))) - (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}# - (lambda (#{e _85hotwsCta0JfYIjI4O5M}# - #{r _85hotwsCta0JfYIjI4O5N}# - #{w _85hotwsCta0JfYIjI4O5O}# - #{s _85hotwsCta0JfYIjI4O5P}# - #{mod _85hotwsCta0JfYIjI4O5Q}# - #{get-formals _85hotwsCta0JfYIjI4O5R}# - #{clauses _85hotwsCta0JfYIjI4O5S}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWMVP}# + #{r _hoQGWMnyQPAh3k2jhWMVQ}# + #{w _hoQGWMnyQPAh3k2jhWMVR}# + #{s _hoQGWMnyQPAh3k2jhWMVS}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}# + #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}#) (letrec* - ((#{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}# + ((#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMXV}# + #{opt _hoQGWMnyQPAh3k2jhWMXW}# + #{rest _hoQGWMnyQPAh3k2jhWMXX}# + #{kw _hoQGWMnyQPAh3k2jhWMXY}# + #{body _hoQGWMnyQPAh3k2jhWMXZ}#) + (let ((#{vars _hoQGWMnyQPAh3k2jhWMXa}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{req _hoQGWMnyQPAh3k2jhWMXV}#)) + (#{labels _hoQGWMnyQPAh3k2jhWMXb}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{req _hoQGWMnyQPAh3k2jhWMXV}#))) + (let ((#{r* _hoQGWMnyQPAh3k2jhWMXc}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWMXb}# + #{vars _hoQGWMnyQPAh3k2jhWMXa}# + #{r _hoQGWMnyQPAh3k2jhWMVQ}#)) + (#{w* _hoQGWMnyQPAh3k2jhWMXd}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{req _hoQGWMnyQPAh3k2jhWMXV}# + #{labels _hoQGWMnyQPAh3k2jhWMXb}# + #{w _hoQGWMnyQPAh3k2jhWMVR}#))) + (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# (map syntax->datum - #{req _85hotwsCta0JfYIjI4O7S}#) - #{opt _85hotwsCta0JfYIjI4O7T}# - #{rest _85hotwsCta0JfYIjI4O7U}# - #{kw _85hotwsCta0JfYIjI4O7V}# - #{body _85hotwsCta0JfYIjI4O7W}# - (reverse #{vars _85hotwsCta0JfYIjI4O7X}#) - #{r* _85hotwsCta0JfYIjI4O7Z}# - #{w* _85hotwsCta0JfYIjI4O7a}# + #{req _hoQGWMnyQPAh3k2jhWMXV}#) + #{opt _hoQGWMnyQPAh3k2jhWMXW}# + #{rest _hoQGWMnyQPAh3k2jhWMXX}# + #{kw _hoQGWMnyQPAh3k2jhWMXY}# + #{body _hoQGWMnyQPAh3k2jhWMXZ}# + (reverse #{vars _hoQGWMnyQPAh3k2jhWMXa}#) + #{r* _hoQGWMnyQPAh3k2jhWMXc}# + #{w* _hoQGWMnyQPAh3k2jhWMXd}# '() '()))))) - (#{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}# + (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMaN}# + #{opt _hoQGWMnyQPAh3k2jhWMaO}# + #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{kw _hoQGWMnyQPAh3k2jhWMaQ}# + #{body _hoQGWMnyQPAh3k2jhWMaR}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}# + #{r* _hoQGWMnyQPAh3k2jhWMaT}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}# + #{out _hoQGWMnyQPAh3k2jhWMaV}# + #{inits _hoQGWMnyQPAh3k2jhWMaW}#) + (if (pair? #{opt _hoQGWMnyQPAh3k2jhWMaO}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaX}# + (car #{opt _hoQGWMnyQPAh3k2jhWMaO}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaY}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4O$U}# + #{tmp _hoQGWMnyQPAh3k2jhWMaX}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4O$V}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMaY}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4O$X}# - #{i _85hotwsCta0JfYIjI4O$Y}#) - (let ((#{v _85hotwsCta0JfYIjI4O$Z}# - (let ((#{id _85hotwsCta0JfYIjI4O$h}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWMaa}# + #{i _hoQGWMnyQPAh3k2jhWMab}#) + (let ((#{v _hoQGWMnyQPAh3k2jhWMac}# + (let ((#{id _hoQGWMnyQPAh3k2jhWMak}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4O$X}#) + #{id _hoQGWMnyQPAh3k2jhWMaa}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4O$X}#) + #{id _hoQGWMnyQPAh3k2jhWMaa}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4O$X}# + #{id _hoQGWMnyQPAh3k2jhWMaa}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4O$X}# + #{id _hoQGWMnyQPAh3k2jhWMaa}# 1) - #{id _85hotwsCta0JfYIjI4O$X}#))) + #{id _hoQGWMnyQPAh3k2jhWMaa}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4O$h}#) + #{id _hoQGWMnyQPAh3k2jhWMak}#) " "))))) - (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}# + (let ((#{l _hoQGWMnyQPAh3k2jhWMad}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (list #{v _hoQGWMnyQPAh3k2jhWMac}#)))) + (let ((#{r** _hoQGWMnyQPAh3k2jhWMae}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{l _hoQGWMnyQPAh3k2jhWMad}# + (list #{v _hoQGWMnyQPAh3k2jhWMac}#) + #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) + (let ((#{w** _hoQGWMnyQPAh3k2jhWMaf}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{l _hoQGWMnyQPAh3k2jhWMad}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) + (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# + #{req _hoQGWMnyQPAh3k2jhWMaN}# + (cdr #{opt _hoQGWMnyQPAh3k2jhWMaO}#) + #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{kw _hoQGWMnyQPAh3k2jhWMaQ}# + #{body _hoQGWMnyQPAh3k2jhWMaR}# + (cons #{v _hoQGWMnyQPAh3k2jhWMac}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}#) + #{r** _hoQGWMnyQPAh3k2jhWMae}# + #{w** _hoQGWMnyQPAh3k2jhWMaf}# (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}#) + #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{i _hoQGWMnyQPAh3k2jhWMab}# + #{r* _hoQGWMnyQPAh3k2jhWMaT}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#) + #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWMaY}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4O$U}#)))) - (if #{rest _85hotwsCta0JfYIjI4O$M}# - (let ((#{v _85hotwsCta0JfYIjI4PCG}# - (let ((#{id _85hotwsCta0JfYIjI4PCQ}# + #{tmp _hoQGWMnyQPAh3k2jhWMaX}#)))) + (if #{rest _hoQGWMnyQPAh3k2jhWMaP}# + (let ((#{v _hoQGWMnyQPAh3k2jhWMeJ}# + (let ((#{id _hoQGWMnyQPAh3k2jhWMeT}# (if (if (vector? - #{rest _85hotwsCta0JfYIjI4O$M}#) + #{rest _hoQGWMnyQPAh3k2jhWMaP}#) (if (= (vector-length - #{rest _85hotwsCta0JfYIjI4O$M}#) + #{rest _hoQGWMnyQPAh3k2jhWMaP}#) 4) (eq? (vector-ref - #{rest _85hotwsCta0JfYIjI4O$M}# + #{rest _hoQGWMnyQPAh3k2jhWMaP}# 0) 'syntax-object) #f) #f) (vector-ref - #{rest _85hotwsCta0JfYIjI4O$M}# + #{rest _hoQGWMnyQPAh3k2jhWMaP}# 1) - #{rest _85hotwsCta0JfYIjI4O$M}#))) + #{rest _hoQGWMnyQPAh3k2jhWMaP}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4PCQ}#) + #{id _hoQGWMnyQPAh3k2jhWMeT}#) " "))))) - (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}#) + (let ((#{l _hoQGWMnyQPAh3k2jhWMeK}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#)))) + (let ((#{r* _hoQGWMnyQPAh3k2jhWMeL}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{l _hoQGWMnyQPAh3k2jhWMeK}# + (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#) + #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) + (let ((#{w* _hoQGWMnyQPAh3k2jhWMeM}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + #{l _hoQGWMnyQPAh3k2jhWMeK}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + #{req _hoQGWMnyQPAh3k2jhWMaN}# + (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) #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}#) + (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{body _hoQGWMnyQPAh3k2jhWMaR}# + (cons #{v _hoQGWMnyQPAh3k2jhWMeJ}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}#) + #{r* _hoQGWMnyQPAh3k2jhWMeL}# + #{w* _hoQGWMnyQPAh3k2jhWMeM}# + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) #f) '() - #{inits _85hotwsCta0JfYIjI4O$T}#))))) - (#{parse-kw _85hotwsCta0JfYIjI4O5V}# - #{req _85hotwsCta0JfYIjI4O$K}# - (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#) - (reverse #{out _85hotwsCta0JfYIjI4O$S}#) + #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + #{req _hoQGWMnyQPAh3k2jhWMaN}# + (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) #f) #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}#) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{body _hoQGWMnyQPAh3k2jhWMaR}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}# + #{r* _hoQGWMnyQPAh3k2jhWMaT}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}# + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) #f) '() - #{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$}# + #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMg1}# + #{opt _hoQGWMnyQPAh3k2jhWMg2}# + #{rest _hoQGWMnyQPAh3k2jhWMg3}# + #{kw _hoQGWMnyQPAh3k2jhWMg4}# + #{body _hoQGWMnyQPAh3k2jhWMg5}# + #{vars _hoQGWMnyQPAh3k2jhWMg6}# + #{r* _hoQGWMnyQPAh3k2jhWMg7}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}# + #{aok _hoQGWMnyQPAh3k2jhWMg9}# + #{out _hoQGWMnyQPAh3k2jhWMg$}# + #{inits _hoQGWMnyQPAh3k2jhWMg@}#) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMg4}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhA}# + (car #{kw _hoQGWMnyQPAh3k2jhWMg4}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhB}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PE9}# + #{tmp _hoQGWMnyQPAh3k2jhWMhA}# '(any any any)))) - (if #{tmp _85hotwsCta0JfYIjI4PE$}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMhB}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PFA}# - #{id _85hotwsCta0JfYIjI4PFB}# - #{i _85hotwsCta0JfYIjI4PFC}#) - (let ((#{v _85hotwsCta0JfYIjI4PFD}# - (let ((#{id _85hotwsCta0JfYIjI4PFL}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWMhD}# + #{id _hoQGWMnyQPAh3k2jhWMhE}# + #{i _hoQGWMnyQPAh3k2jhWMhF}#) + (let ((#{v _hoQGWMnyQPAh3k2jhWMhG}# + (let ((#{id _hoQGWMnyQPAh3k2jhWMhO}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4PFB}#) + #{id _hoQGWMnyQPAh3k2jhWMhE}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4PFB}#) + #{id _hoQGWMnyQPAh3k2jhWMhE}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4PFB}# + #{id _hoQGWMnyQPAh3k2jhWMhE}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4PFB}# + #{id _hoQGWMnyQPAh3k2jhWMhE}# 1) - #{id _85hotwsCta0JfYIjI4PFB}#))) + #{id _hoQGWMnyQPAh3k2jhWMhE}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4PFL}#) + #{id _hoQGWMnyQPAh3k2jhWMhO}#) " "))))) - (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}# + (let ((#{l _hoQGWMnyQPAh3k2jhWMhH}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (list #{v _hoQGWMnyQPAh3k2jhWMhG}#)))) + (let ((#{r** _hoQGWMnyQPAh3k2jhWMhI}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{l _hoQGWMnyQPAh3k2jhWMhH}# + (list #{v _hoQGWMnyQPAh3k2jhWMhG}#) + #{r* _hoQGWMnyQPAh3k2jhWMg7}#))) + (let ((#{w** _hoQGWMnyQPAh3k2jhWMhJ}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{l _hoQGWMnyQPAh3k2jhWMhH}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}#))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + #{req _hoQGWMnyQPAh3k2jhWMg1}# + #{opt _hoQGWMnyQPAh3k2jhWMg2}# + #{rest _hoQGWMnyQPAh3k2jhWMg3}# + (cdr #{kw _hoQGWMnyQPAh3k2jhWMg4}#) + #{body _hoQGWMnyQPAh3k2jhWMg5}# + (cons #{v _hoQGWMnyQPAh3k2jhWMhG}# + #{vars _hoQGWMnyQPAh3k2jhWMg6}#) + #{r** _hoQGWMnyQPAh3k2jhWMhI}# + #{w** _hoQGWMnyQPAh3k2jhWMhJ}# + #{aok _hoQGWMnyQPAh3k2jhWMg9}# (cons (list (syntax->datum - #{k _85hotwsCta0JfYIjI4PFA}#) + #{k _hoQGWMnyQPAh3k2jhWMhD}#) (syntax->datum - #{id _85hotwsCta0JfYIjI4PFB}#) - #{v _85hotwsCta0JfYIjI4PFD}#) - #{out _85hotwsCta0JfYIjI4PE7}#) - (cons (#{expand _85hotwsCta0JfYIjI4J4L}# - #{i _85hotwsCta0JfYIjI4PFC}# - #{r* _85hotwsCta0JfYIjI4PE4}# - #{w* _85hotwsCta0JfYIjI4PE5}# - #{mod _85hotwsCta0JfYIjI4O5Q}#) - #{inits _85hotwsCta0JfYIjI4PE8}#))))))) - #{tmp _85hotwsCta0JfYIjI4PE$}#) + #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{v _hoQGWMnyQPAh3k2jhWMhG}#) + #{out _hoQGWMnyQPAh3k2jhWMg$}#) + (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{i _hoQGWMnyQPAh3k2jhWMhF}# + #{r* _hoQGWMnyQPAh3k2jhWMg7}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#) + #{inits _hoQGWMnyQPAh3k2jhWMg@}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWMhB}#) (syntax-violation #f "source expression failed to match any pattern" - #{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}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMhA}#)))) + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + #{req _hoQGWMnyQPAh3k2jhWMg1}# + #{opt _hoQGWMnyQPAh3k2jhWMg2}# + #{rest _hoQGWMnyQPAh3k2jhWMg3}# + (if (if #{aok _hoQGWMnyQPAh3k2jhWMg9}# + #{aok _hoQGWMnyQPAh3k2jhWMg9}# + (pair? #{out _hoQGWMnyQPAh3k2jhWMg$}#)) + (cons #{aok _hoQGWMnyQPAh3k2jhWMg9}# + (reverse #{out _hoQGWMnyQPAh3k2jhWMg$}#)) #f) - #{body _85hotwsCta0JfYIjI4PE2}# - (reverse #{vars _85hotwsCta0JfYIjI4PE3}#) - #{r* _85hotwsCta0JfYIjI4PE4}# - #{w* _85hotwsCta0JfYIjI4PE5}# - (reverse #{inits _85hotwsCta0JfYIjI4PE8}#) + #{body _hoQGWMnyQPAh3k2jhWMg5}# + (reverse #{vars _hoQGWMnyQPAh3k2jhWMg6}#) + #{r* _hoQGWMnyQPAh3k2jhWMg7}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}# + (reverse #{inits _hoQGWMnyQPAh3k2jhWMg@}#) '())))) - (#{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}# + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlH}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4PI9}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# '(any any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PJE}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMlH}# (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4PJI}# - #{e1 _85hotwsCta0JfYIjI4PJJ}# - #{e2 _85hotwsCta0JfYIjI4PJK}#) + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlL}# + #{e1 _hoQGWMnyQPAh3k2jhWMlM}# + #{e2 _hoQGWMnyQPAh3k2jhWMlN}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PJI}#))) - #{tmp _85hotwsCta0JfYIjI4PJE}#) + #{docstring _hoQGWMnyQPAh3k2jhWMlL}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) #f) (@apply - (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}# + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlO}# + #{e1 _hoQGWMnyQPAh3k2jhWMlP}# + #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + #{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMlP}# + #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# (append - #{meta _85hotwsCta0JfYIjI4PJC}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}# (list (cons 'documentation (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PJL}#)))))) - #{tmp _85hotwsCta0JfYIjI4PJE}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PJO}# + #{docstring _hoQGWMnyQPAh3k2jhWMlO}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlR}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4PI9}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PJO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMlR}# (@apply - (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}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWMlV}# + #{v _hoQGWMnyQPAh3k2jhWMlW}# + #{e1 _hoQGWMnyQPAh3k2jhWMlX}# + #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + #{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMlX}# + #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# (append - #{meta _85hotwsCta0JfYIjI4PJC}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}# (syntax->datum (map cons - #{k _85hotwsCta0JfYIjI4PJS}# - #{v _85hotwsCta0JfYIjI4PJT}#))))) - #{tmp _85hotwsCta0JfYIjI4PJO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PJW}# + #{k _hoQGWMnyQPAh3k2jhWMlV}# + #{v _hoQGWMnyQPAh3k2jhWMlW}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWMlR}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlZ}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4PI9}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# '(any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PJW}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMlZ}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4PJa}# - #{e2 _85hotwsCta0JfYIjI4PJb}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMld}# + #{e2 _hoQGWMnyQPAh3k2jhWMle}#) (values - #{meta _85hotwsCta0JfYIjI4PJC}# - #{req _85hotwsCta0JfYIjI4PI5}# - #{opt _85hotwsCta0JfYIjI4PI6}# - #{rest _85hotwsCta0JfYIjI4PI7}# - #{kw _85hotwsCta0JfYIjI4PI8}# - #{inits _85hotwsCta0JfYIjI4PJB}# - #{vars _85hotwsCta0JfYIjI4PI$}# - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{e1 _85hotwsCta0JfYIjI4PJa}# - #{e2 _85hotwsCta0JfYIjI4PJb}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}# + #{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMld}# + #{e2 _hoQGWMnyQPAh3k2jhWMle}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4O5M}#) - #{s _85hotwsCta0JfYIjI4O5P}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMVP}#) + #{s _hoQGWMnyQPAh3k2jhWMVS}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4O5M}# - #{s _85hotwsCta0JfYIjI4O5P}#)) - #{e _85hotwsCta0JfYIjI4O5M}#) - #{w _85hotwsCta0JfYIjI4O5O}# - #{mod _85hotwsCta0JfYIjI4O5Q}#) - #{r* _85hotwsCta0JfYIjI4PI@}# - #{w* _85hotwsCta0JfYIjI4PJA}# - #{mod _85hotwsCta0JfYIjI4O5Q}#))) - #{tmp _85hotwsCta0JfYIjI4PJW}#) + #{e _hoQGWMnyQPAh3k2jhWMVP}# + #{s _hoQGWMnyQPAh3k2jhWMVS}#)) + #{e _hoQGWMnyQPAh3k2jhWMVP}#) + #{w _hoQGWMnyQPAh3k2jhWMVR}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#) + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#) (syntax-violation #f "source expression failed to match any pattern" - #{body _85hotwsCta0JfYIjI4PI9}#)))))))))) - (let ((#{tmp _85hotwsCta0JfYIjI4O5Y}# + #{body _hoQGWMnyQPAh3k2jhWMlA}#)))))))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVb}# ($sc-dispatch - #{clauses _85hotwsCta0JfYIjI4O5S}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4O5Y}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMVb}# (@apply (lambda () (values '() #f)) - #{tmp _85hotwsCta0JfYIjI4O5Y}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O5c}# + #{tmp _hoQGWMnyQPAh3k2jhWMVb}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVf}# ($sc-dispatch - #{clauses _85hotwsCta0JfYIjI4O5S}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _85hotwsCta0JfYIjI4O5c}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMVf}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4O5g}# - #{e1 _85hotwsCta0JfYIjI4O5h}# - #{e2 _85hotwsCta0JfYIjI4O5i}# - #{args* _85hotwsCta0JfYIjI4O5j}# - #{e1* _85hotwsCta0JfYIjI4O5k}# - #{e2* _85hotwsCta0JfYIjI4O5l}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWMVj}# + #{e1 _hoQGWMnyQPAh3k2jhWMVk}# + #{e2 _hoQGWMnyQPAh3k2jhWMVl}# + #{args* _hoQGWMnyQPAh3k2jhWMVm}# + #{e1* _hoQGWMnyQPAh3k2jhWMVn}# + #{e2* _hoQGWMnyQPAh3k2jhWMVo}#) (call-with-values (lambda () - (#{get-formals _85hotwsCta0JfYIjI4O5R}# - #{args _85hotwsCta0JfYIjI4O5g}#)) - (lambda (#{req _85hotwsCta0JfYIjI4O5m}# - #{opt _85hotwsCta0JfYIjI4O5n}# - #{rest _85hotwsCta0JfYIjI4O5o}# - #{kw _85hotwsCta0JfYIjI4O5p}#) + (#{get-formals _hoQGWMnyQPAh3k2jhWMVU}# + #{args _hoQGWMnyQPAh3k2jhWMVj}#)) + (lambda (#{req _hoQGWMnyQPAh3k2jhWMVp}# + #{opt _hoQGWMnyQPAh3k2jhWMVq}# + #{rest _hoQGWMnyQPAh3k2jhWMVr}# + #{kw _hoQGWMnyQPAh3k2jhWMVs}#) (call-with-values (lambda () - (#{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}#) + (#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# + #{req _hoQGWMnyQPAh3k2jhWMVp}# + #{opt _hoQGWMnyQPAh3k2jhWMVq}# + #{rest _hoQGWMnyQPAh3k2jhWMVr}# + #{kw _hoQGWMnyQPAh3k2jhWMVs}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMVk}# + #{e2 _hoQGWMnyQPAh3k2jhWMVl}#))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWMWp}# + #{req _hoQGWMnyQPAh3k2jhWMWq}# + #{opt _hoQGWMnyQPAh3k2jhWMWr}# + #{rest _hoQGWMnyQPAh3k2jhWMWs}# + #{kw _hoQGWMnyQPAh3k2jhWMWt}# + #{inits _hoQGWMnyQPAh3k2jhWMWu}# + #{vars _hoQGWMnyQPAh3k2jhWMWv}# + #{body _hoQGWMnyQPAh3k2jhWMWw}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWMVP}# + #{r _hoQGWMnyQPAh3k2jhWMVQ}# + #{w _hoQGWMnyQPAh3k2jhWMVR}# + #{s _hoQGWMnyQPAh3k2jhWMVS}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}# + #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}# + #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# + #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#) + (cons #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}# + (cons #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# + #{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#))) + #{e2* _hoQGWMnyQPAh3k2jhWMVo}# + #{e1* _hoQGWMnyQPAh3k2jhWMVn}# + #{args* _hoQGWMnyQPAh3k2jhWMVm}#))) + (lambda (#{meta* _hoQGWMnyQPAh3k2jhWMW0}# + #{else* _hoQGWMnyQPAh3k2jhWMW1}#) (values (append - #{meta _85hotwsCta0JfYIjI4O6m}# - #{meta* _85hotwsCta0JfYIjI4O6x}#) + #{meta _hoQGWMnyQPAh3k2jhWMWp}# + #{meta* _hoQGWMnyQPAh3k2jhWMW0}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s _85hotwsCta0JfYIjI4O5P}# - #{req _85hotwsCta0JfYIjI4O6n}# - #{opt _85hotwsCta0JfYIjI4O6o}# - #{rest _85hotwsCta0JfYIjI4O6p}# - #{kw _85hotwsCta0JfYIjI4O6q}# - #{inits _85hotwsCta0JfYIjI4O6r}# - #{vars _85hotwsCta0JfYIjI4O6s}# - #{body _85hotwsCta0JfYIjI4O6t}# - #{else* _85hotwsCta0JfYIjI4O6y}#))))))))) - #{tmp _85hotwsCta0JfYIjI4O5c}#) + #{s _hoQGWMnyQPAh3k2jhWMVS}# + #{req _hoQGWMnyQPAh3k2jhWMWq}# + #{opt _hoQGWMnyQPAh3k2jhWMWr}# + #{rest _hoQGWMnyQPAh3k2jhWMWs}# + #{kw _hoQGWMnyQPAh3k2jhWMWt}# + #{inits _hoQGWMnyQPAh3k2jhWMWu}# + #{vars _hoQGWMnyQPAh3k2jhWMWv}# + #{body _hoQGWMnyQPAh3k2jhWMWw}# + #{else* _hoQGWMnyQPAh3k2jhWMW1}#))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWMVf}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses _85hotwsCta0JfYIjI4O5S}#)))))))) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - (lambda (#{x _85hotwsCta0JfYIjI4PKA}# - #{w _85hotwsCta0JfYIjI4PKB}#) - (if (memq 'top (car #{w _85hotwsCta0JfYIjI4PKB}#)) - #{x _85hotwsCta0JfYIjI4PKA}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}#)))))))) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMmD}# + #{w _hoQGWMnyQPAh3k2jhWMmE}#) + (if (memq 'top (car #{w _hoQGWMnyQPAh3k2jhWMmE}#)) + #{x _hoQGWMnyQPAh3k2jhWMmD}# (letrec* - ((#{f _85hotwsCta0JfYIjI4PKC}# - (lambda (#{x _85hotwsCta0JfYIjI4PKF}#) - (if (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4PKF}#) + ((#{f _hoQGWMnyQPAh3k2jhWMmF}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMmI}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWMmI}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 0) 'syntax-object) #f) #f) - (#{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}#)) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 1) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 2)) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWMmI}#) + (let ((#{a _hoQGWMnyQPAh3k2jhWMmb}# + (#{f _hoQGWMnyQPAh3k2jhWMmF}# + (car #{x _hoQGWMnyQPAh3k2jhWMmI}#))) + (#{d _hoQGWMnyQPAh3k2jhWMmc}# + (#{f _hoQGWMnyQPAh3k2jhWMmF}# + (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)))) + (if (if (eq? #{a _hoQGWMnyQPAh3k2jhWMmb}# + (car #{x _hoQGWMnyQPAh3k2jhWMmI}#)) + (eq? #{d _hoQGWMnyQPAh3k2jhWMmc}# + (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)) #f) - #{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}#))) + #{x _hoQGWMnyQPAh3k2jhWMmI}# + (cons #{a _hoQGWMnyQPAh3k2jhWMmb}# + #{d _hoQGWMnyQPAh3k2jhWMmc}#))) + (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) + (let ((#{old _hoQGWMnyQPAh3k2jhWMmf}# + (vector->list #{x _hoQGWMnyQPAh3k2jhWMmI}#))) + (let ((#{new _hoQGWMnyQPAh3k2jhWMmg}# + (map #{f _hoQGWMnyQPAh3k2jhWMmF}# + #{old _hoQGWMnyQPAh3k2jhWMmf}#))) (letrec* - ((#{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}#)) + ((#{lp _hoQGWMnyQPAh3k2jhWMmh}# + (lambda (#{l1 _hoQGWMnyQPAh3k2jhWMnt}# + #{l2 _hoQGWMnyQPAh3k2jhWMnu}#) + (if (null? #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) + #{x _hoQGWMnyQPAh3k2jhWMmI}# + (if (eq? (car #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) + (car #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) + (#{lp _hoQGWMnyQPAh3k2jhWMmh}# + (cdr #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) + (cdr #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) (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}#) + #{new _hoQGWMnyQPAh3k2jhWMmg}#)))))) + (#{lp _hoQGWMnyQPAh3k2jhWMmh}# + #{old _hoQGWMnyQPAh3k2jhWMmf}# + #{new _hoQGWMnyQPAh3k2jhWMmg}#)))) + #{x _hoQGWMnyQPAh3k2jhWMmI}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWMmF}# + #{x _hoQGWMnyQPAh3k2jhWMmD}#))))) + (#{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWMXh}#) + (let ((#{id _hoQGWMnyQPAh3k2jhWMXi}# + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWMXh}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWMXh}#) 4) - (eq? (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 0) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 1) - #{id _85hotwsCta0JfYIjI4O7e}#))) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 1) + #{id _hoQGWMnyQPAh3k2jhWMXh}#))) (gensym (string-append - (symbol->string #{id _85hotwsCta0JfYIjI4O7f}#) + (symbol->string #{id _hoQGWMnyQPAh3k2jhWMXi}#) " ")))))) (begin - (set! #{gen-label _85hotwsCta0JfYIjI4J3p}# - (let ((#{i _85hotwsCta0JfYIjI4MoZ}# 0)) + (set! #{gen-label _hoQGWMnyQPAh3k2jhWHTD}# + (let ((#{i _hoQGWMnyQPAh3k2jhWKEc}# 0)) (lambda () - (let ((#{n _85hotwsCta0JfYIjI4Moa}# - #{i _85hotwsCta0JfYIjI4MoZ}#)) + (let ((#{n _hoQGWMnyQPAh3k2jhWKEd}# + #{i _hoQGWMnyQPAh3k2jhWKEc}#)) (begin - (set! #{i _85hotwsCta0JfYIjI4MoZ}# - (#{1+}# #{n _85hotwsCta0JfYIjI4Moa}#)) - (number->string #{n _85hotwsCta0JfYIjI4Moa}# 36)))))) - (set! #{transformer-environment _85hotwsCta0JfYIjI4J39}# + (set! #{i _hoQGWMnyQPAh3k2jhWKEc}# + (#{1+}# #{n _hoQGWMnyQPAh3k2jhWKEd}#)) + (number->string #{n _hoQGWMnyQPAh3k2jhWKEd}# 36)))))) + (set! #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# (make-fluid - (lambda (#{k _85hotwsCta0JfYIjI4MNY}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWJpb}#) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8998,1500 +8998,1500 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'syntax-parameterize - (lambda (#{e _85hotwsCta0JfYIjI4J6S}# - #{r _85hotwsCta0JfYIjI4J6T}# - #{w _85hotwsCta0JfYIjI4J6U}# - #{s _85hotwsCta0JfYIjI4J6V}# - #{mod _85hotwsCta0JfYIjI4J6W}#) - (let ((#{tmp _85hotwsCta0JfYIjI4J6Y}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHVs}# + #{r _hoQGWMnyQPAh3k2jhWHVt}# + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{s _hoQGWMnyQPAh3k2jhWHVv}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHVy}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4J6S}# + #{e _hoQGWMnyQPAh3k2jhWHVs}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4J6Y}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHVy}# (@apply - (lambda (#{var _85hotwsCta0JfYIjI4J6c}# - #{val _85hotwsCta0JfYIjI4J6d}# - #{e1 _85hotwsCta0JfYIjI4J6e}# - #{e2 _85hotwsCta0JfYIjI4J6f}#) - (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{var _85hotwsCta0JfYIjI4J6c}#)) - #{tmp _85hotwsCta0JfYIjI4J6Y}#) + (lambda (#{var _hoQGWMnyQPAh3k2jhWHV2}# + #{val _hoQGWMnyQPAh3k2jhWHV3}# + #{e1 _hoQGWMnyQPAh3k2jhWHV4}# + #{e2 _hoQGWMnyQPAh3k2jhWHV5}#) + (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{var _hoQGWMnyQPAh3k2jhWHV2}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) #f) (@apply - (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}#))) + (lambda (#{var _hoQGWMnyQPAh3k2jhWHXH}# + #{val _hoQGWMnyQPAh3k2jhWHXI}# + #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# + #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) + (let ((#{names _hoQGWMnyQPAh3k2jhWHXL}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHX9}#) + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWHX9}# + #{w _hoQGWMnyQPAh3k2jhWHVu}#)) + #{var _hoQGWMnyQPAh3k2jhWHXH}#))) (begin (for-each - (lambda (#{id _85hotwsCta0JfYIjI4J7y}# - #{n _85hotwsCta0JfYIjI4J7z}#) - (let ((#{atom-key _85hotwsCta0JfYIjI4J70}# - (car (let ((#{t _85hotwsCta0JfYIjI4J77}# - (assq #{n _85hotwsCta0JfYIjI4J7z}# - #{r _85hotwsCta0JfYIjI4J6T}#))) - (if #{t _85hotwsCta0JfYIjI4J77}# - (cdr #{t _85hotwsCta0JfYIjI4J77}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWHXM}# + #{n _hoQGWMnyQPAh3k2jhWHXN}#) + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHXO}# + (car (let ((#{t _hoQGWMnyQPAh3k2jhWHXV}# + (assq #{n _hoQGWMnyQPAh3k2jhWHXN}# + #{r _hoQGWMnyQPAh3k2jhWHVt}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHXV}# + (cdr #{t _hoQGWMnyQPAh3k2jhWHXV}#) (if (symbol? - #{n _85hotwsCta0JfYIjI4J7z}#) - (let ((#{t _85hotwsCta0JfYIjI4J8A}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4J7z}# - #{mod _85hotwsCta0JfYIjI4J6W}#))) - (if #{t _85hotwsCta0JfYIjI4J8A}# - #{t _85hotwsCta0JfYIjI4J8A}# + #{n _hoQGWMnyQPAh3k2jhWHXN}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWHXa}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWHXN}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHXa}# + #{t _hoQGWMnyQPAh3k2jhWHXa}# '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4J70}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHXO}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e _85hotwsCta0JfYIjI4J6S}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{e _hoQGWMnyQPAh3k2jhWHVs}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{id _85hotwsCta0JfYIjI4J7y}#) - #{s _85hotwsCta0JfYIjI4J6V}# + (if (if (pair? #{id _hoQGWMnyQPAh3k2jhWHXM}#) + #{s _hoQGWMnyQPAh3k2jhWHVv}# #f) (set-source-properties! - #{id _85hotwsCta0JfYIjI4J7y}# - #{s _85hotwsCta0JfYIjI4J6V}#)) - #{id _85hotwsCta0JfYIjI4J7y}#) - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#))))) - #{var _85hotwsCta0JfYIjI4J7t}# - #{names _85hotwsCta0JfYIjI4J7x}#) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{e1 _85hotwsCta0JfYIjI4J7v}# - #{e2 _85hotwsCta0JfYIjI4J7w}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{id _hoQGWMnyQPAh3k2jhWHXM}# + #{s _hoQGWMnyQPAh3k2jhWHVv}#)) + #{id _hoQGWMnyQPAh3k2jhWHXM}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))) + #{var _hoQGWMnyQPAh3k2jhWHXH}# + #{names _hoQGWMnyQPAh3k2jhWHXL}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# + #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#) - #{s _85hotwsCta0JfYIjI4J6V}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{s _hoQGWMnyQPAh3k2jhWHVv}# #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}#) + #{e _hoQGWMnyQPAh3k2jhWHVs}# + #{s _hoQGWMnyQPAh3k2jhWHVv}#)) + #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#) + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{names _hoQGWMnyQPAh3k2jhWHXL}# + (let ((#{trans-r _hoQGWMnyQPAh3k2jhWHZT}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{r _hoQGWMnyQPAh3k2jhWHVt}#))) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHZU}#) (cons 'macro - (#{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}#) + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWHZU}# + #{trans-r _hoQGWMnyQPAh3k2jhWHZT}# + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#) + #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) + #{val _hoQGWMnyQPAh3k2jhWHXI}#)) + #{r _hoQGWMnyQPAh3k2jhWHVt}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#) - #{s _85hotwsCta0JfYIjI4J6V}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{s _hoQGWMnyQPAh3k2jhWHVv}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4J6S}# - #{s _85hotwsCta0JfYIjI4J6V}#)) - #{e _85hotwsCta0JfYIjI4J6S}#) - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#)))))) + #{e _hoQGWMnyQPAh3k2jhWHVs}# + #{s _hoQGWMnyQPAh3k2jhWHVv}#)) + #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e _85hotwsCta0JfYIjI4KBL}# - #{r _85hotwsCta0JfYIjI4KBM}# - #{w _85hotwsCta0JfYIjI4KBN}# - #{s _85hotwsCta0JfYIjI4KBO}# - #{mod _85hotwsCta0JfYIjI4KBP}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KBR}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHcl}# + #{r _hoQGWMnyQPAh3k2jhWHcm}# + #{w _hoQGWMnyQPAh3k2jhWHcn}# + #{s _hoQGWMnyQPAh3k2jhWHco}# + #{mod _hoQGWMnyQPAh3k2jhWHcp}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHcr}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KBL}# + #{e _hoQGWMnyQPAh3k2jhWHcl}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4KBR}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHcr}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4KBU}#) - (let ((#{exp _85hotwsCta0JfYIjI4KBY}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{e _85hotwsCta0JfYIjI4KBU}# - #{w _85hotwsCta0JfYIjI4KBN}#))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHcu}#) + (let ((#{exp _hoQGWMnyQPAh3k2jhWHcy}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{e _hoQGWMnyQPAh3k2jhWHcu}# + #{w _hoQGWMnyQPAh3k2jhWHcn}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _85hotwsCta0JfYIjI4KBO}# - #{exp _85hotwsCta0JfYIjI4KBY}#))) - #{tmp _85hotwsCta0JfYIjI4KBR}#) + #{s _hoQGWMnyQPAh3k2jhWHco}# + #{exp _hoQGWMnyQPAh3k2jhWHcy}#))) + #{tmp _hoQGWMnyQPAh3k2jhWHcr}#) (syntax-violation 'quote "bad syntax" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KBL}#) - #{s _85hotwsCta0JfYIjI4KBO}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHcl}#) + #{s _hoQGWMnyQPAh3k2jhWHco}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KBL}# - #{s _85hotwsCta0JfYIjI4KBO}#)) - #{e _85hotwsCta0JfYIjI4KBL}#) - #{w _85hotwsCta0JfYIjI4KBN}# - #{mod _85hotwsCta0JfYIjI4KBP}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHcl}# + #{s _hoQGWMnyQPAh3k2jhWHco}#)) + #{e _hoQGWMnyQPAh3k2jhWHcl}#) + #{w _hoQGWMnyQPAh3k2jhWHcn}# + #{mod _hoQGWMnyQPAh3k2jhWHcp}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'syntax (letrec* - ((#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - (lambda (#{src _85hotwsCta0JfYIjI4KGa}# - #{e _85hotwsCta0JfYIjI4KGb}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#) - (if (if (symbol? #{e _85hotwsCta0JfYIjI4KGb}#) + ((#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWHh0}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#) + (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWHh1}#) #t - (if (if (vector? #{e _85hotwsCta0JfYIjI4KGb}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4KGb}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWHh1}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWHh1}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 1)) + (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 1)) #f)) - (let ((#{label _85hotwsCta0JfYIjI4KG6}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{e _85hotwsCta0JfYIjI4KGb}# + (let ((#{label _hoQGWMnyQPAh3k2jhWHiU}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(())))) - (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}# + (let ((#{b _hoQGWMnyQPAh3k2jhWHiV}# + (let ((#{t _hoQGWMnyQPAh3k2jhWHic}# + (assq #{label _hoQGWMnyQPAh3k2jhWHiU}# + #{r _hoQGWMnyQPAh3k2jhWHh2}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHic}# + (cdr #{t _hoQGWMnyQPAh3k2jhWHic}#) + (if (symbol? #{label _hoQGWMnyQPAh3k2jhWHiU}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWHii}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{label _hoQGWMnyQPAh3k2jhWHiU}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHii}# + #{t _hoQGWMnyQPAh3k2jhWHii}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b _85hotwsCta0JfYIjI4KG7}#) 'syntax) + (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWHiV}#) 'syntax) (call-with-values (lambda () - (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}#) + (let ((#{var.lev _hoQGWMnyQPAh3k2jhWHir}# + (cdr #{b _hoQGWMnyQPAh3k2jhWHiV}#))) + (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + (car #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) + (cdr #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) + #{maps _hoQGWMnyQPAh3k2jhWHh3}#))) + (lambda (#{var _hoQGWMnyQPAh3k2jhWHiv}# + #{maps _hoQGWMnyQPAh3k2jhWHiw}#) (values - (list 'ref #{var _85hotwsCta0JfYIjI4KHV}#) - #{maps _85hotwsCta0JfYIjI4KHW}#))) - (if (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{e _85hotwsCta0JfYIjI4KGb}#) + (list 'ref #{var _hoQGWMnyQPAh3k2jhWHiv}#) + #{maps _hoQGWMnyQPAh3k2jhWHiw}#))) + (if (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{e _hoQGWMnyQPAh3k2jhWHh1}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src _85hotwsCta0JfYIjI4KGa}#) + #{src _hoQGWMnyQPAh3k2jhWHh0}#) (values - (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#) - #{maps _85hotwsCta0JfYIjI4KGd}#))))) - (let ((#{tmp _85hotwsCta0JfYIjI4KHY}# + (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) + #{maps _hoQGWMnyQPAh3k2jhWHh3}#))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHiy}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KHY}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHiy}# (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KHc}# - #{e _85hotwsCta0JfYIjI4KHd}#) - (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{dots _85hotwsCta0JfYIjI4KHc}#)) - #{tmp _85hotwsCta0JfYIjI4KHY}#) + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi2}# + #{e _hoQGWMnyQPAh3k2jhWHi3}#) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{dots _hoQGWMnyQPAh3k2jhWHi2}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) #f) (@apply - (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}# + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi4}# + #{e _hoQGWMnyQPAh3k2jhWHi5}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{e _hoQGWMnyQPAh3k2jhWHi5}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWHi6}#) #f) + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHi7}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(any any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KHh}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHi7}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KHl}# - #{dots _85hotwsCta0JfYIjI4KHm}# - #{y _85hotwsCta0JfYIjI4KHn}#) - (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{dots _85hotwsCta0JfYIjI4KHm}#)) - #{tmp _85hotwsCta0JfYIjI4KHh}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHi@}# + #{dots _hoQGWMnyQPAh3k2jhWHjA}# + #{y _hoQGWMnyQPAh3k2jhWHjB}#) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{dots _hoQGWMnyQPAh3k2jhWHjA}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) #f) (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KHo}# - #{dots _85hotwsCta0JfYIjI4KHp}# - #{y _85hotwsCta0JfYIjI4KHq}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjC}# + #{dots _hoQGWMnyQPAh3k2jhWHjD}# + #{y _hoQGWMnyQPAh3k2jhWHjE}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4KHr}# - (lambda (#{y _85hotwsCta0JfYIjI4KHz}# - #{k _85hotwsCta0JfYIjI4KH0}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KH2}# + ((#{f _hoQGWMnyQPAh3k2jhWHjF}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWHjN}# + #{k _hoQGWMnyQPAh3k2jhWHjO}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHjQ}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4KHz}# + #{y _hoQGWMnyQPAh3k2jhWHjN}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KH2}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHjQ}# (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KH6}# - #{y _85hotwsCta0JfYIjI4KH7}#) - (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{dots _85hotwsCta0JfYIjI4KH6}#)) - #{tmp _85hotwsCta0JfYIjI4KH2}#) + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjU}# + #{y _hoQGWMnyQPAh3k2jhWHjV}#) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{dots _hoQGWMnyQPAh3k2jhWHjU}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) #f) (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KH8}# - #{y _85hotwsCta0JfYIjI4KH9}#) - (#{f _85hotwsCta0JfYIjI4KHr}# - #{y _85hotwsCta0JfYIjI4KH9}# - (lambda (#{maps _85hotwsCta0JfYIjI4KH$}#) + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjW}# + #{y _hoQGWMnyQPAh3k2jhWHjX}#) + (#{f _hoQGWMnyQPAh3k2jhWHjF}# + #{y _hoQGWMnyQPAh3k2jhWHjX}# + (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjY}#) (call-with-values (lambda () - (#{k _85hotwsCta0JfYIjI4KH0}# + (#{k _hoQGWMnyQPAh3k2jhWHjO}# (cons '() - #{maps _85hotwsCta0JfYIjI4KH$}#))) - (lambda (#{x _85hotwsCta0JfYIjI4KH@}# - #{maps _85hotwsCta0JfYIjI4KIA}#) - (if (null? (car #{maps _85hotwsCta0JfYIjI4KIA}#)) + #{maps _hoQGWMnyQPAh3k2jhWHjY}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjZ}# + #{maps _hoQGWMnyQPAh3k2jhWHja}#) + (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHja}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _85hotwsCta0JfYIjI4KGa}#) + #{src _hoQGWMnyQPAh3k2jhWHh0}#) (values - (let ((#{map-env _85hotwsCta0JfYIjI4KIE}# - (car #{maps _85hotwsCta0JfYIjI4KIA}#))) + (let ((#{map-env _hoQGWMnyQPAh3k2jhWHje}# + (car #{maps _hoQGWMnyQPAh3k2jhWHja}#))) (list 'apply '(primitive append) - (#{gen-map _85hotwsCta0JfYIjI4KE3}# - #{x _85hotwsCta0JfYIjI4KH@}# - #{map-env _85hotwsCta0JfYIjI4KIE}#))) - (cdr #{maps _85hotwsCta0JfYIjI4KIA}#)))))))) - #{tmp _85hotwsCta0JfYIjI4KH2}#) + (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# + #{x _hoQGWMnyQPAh3k2jhWHjZ}# + #{map-env _hoQGWMnyQPAh3k2jhWHje}#))) + (cdr #{maps _hoQGWMnyQPAh3k2jhWHja}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{y _85hotwsCta0JfYIjI4KHz}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{y _85hotwsCta0JfYIjI4KIH}# - #{maps _85hotwsCta0JfYIjI4KII}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{y _hoQGWMnyQPAh3k2jhWHjN}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWHjh}# + #{maps _hoQGWMnyQPAh3k2jhWHji}#) (call-with-values (lambda () - (#{k _85hotwsCta0JfYIjI4KH0}# - #{maps _85hotwsCta0JfYIjI4KII}#)) - (lambda (#{x _85hotwsCta0JfYIjI4KIJ}# - #{maps _85hotwsCta0JfYIjI4KIK}#) + (#{k _hoQGWMnyQPAh3k2jhWHjO}# + #{maps _hoQGWMnyQPAh3k2jhWHji}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjj}# + #{maps _hoQGWMnyQPAh3k2jhWHjk}#) (values (if (equal? - #{y _85hotwsCta0JfYIjI4KIH}# + #{y _hoQGWMnyQPAh3k2jhWHjh}# ''()) - #{x _85hotwsCta0JfYIjI4KIJ}# + #{x _hoQGWMnyQPAh3k2jhWHjj}# (list 'append - #{x _85hotwsCta0JfYIjI4KIJ}# - #{y _85hotwsCta0JfYIjI4KIH}#)) - #{maps _85hotwsCta0JfYIjI4KIK}#)))))))))) - (#{f _85hotwsCta0JfYIjI4KHr}# - #{y _85hotwsCta0JfYIjI4KHq}# - (lambda (#{maps _85hotwsCta0JfYIjI4KHu}#) + #{x _hoQGWMnyQPAh3k2jhWHjj}# + #{y _hoQGWMnyQPAh3k2jhWHjh}#)) + #{maps _hoQGWMnyQPAh3k2jhWHjk}#)))))))))) + (#{f _hoQGWMnyQPAh3k2jhWHjF}# + #{y _hoQGWMnyQPAh3k2jhWHjE}# + (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjI}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{x _85hotwsCta0JfYIjI4KHo}# - #{r _85hotwsCta0JfYIjI4KGc}# + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{x _hoQGWMnyQPAh3k2jhWHjC}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# (cons '() - #{maps _85hotwsCta0JfYIjI4KHu}#) - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{x _85hotwsCta0JfYIjI4KHv}# - #{maps _85hotwsCta0JfYIjI4KHw}#) - (if (null? (car #{maps _85hotwsCta0JfYIjI4KHw}#)) + #{maps _hoQGWMnyQPAh3k2jhWHjI}#) + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjJ}# + #{maps _hoQGWMnyQPAh3k2jhWHjK}#) + (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _85hotwsCta0JfYIjI4KGa}#) + #{src _hoQGWMnyQPAh3k2jhWHh0}#) (values - (#{gen-map _85hotwsCta0JfYIjI4KE3}# - #{x _85hotwsCta0JfYIjI4KHv}# - (car #{maps _85hotwsCta0JfYIjI4KHw}#)) - (cdr #{maps _85hotwsCta0JfYIjI4KHw}#))))))))) - #{tmp _85hotwsCta0JfYIjI4KHh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KIa}# + (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# + #{x _hoQGWMnyQPAh3k2jhWHjJ}# + (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) + (cdr #{maps _hoQGWMnyQPAh3k2jhWHjK}#))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHj0}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4KIa}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHj0}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KIe}# - #{y _85hotwsCta0JfYIjI4KIf}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHj4}# + #{y _hoQGWMnyQPAh3k2jhWHj5}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{x _85hotwsCta0JfYIjI4KIe}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{x _85hotwsCta0JfYIjI4KIg}# - #{maps _85hotwsCta0JfYIjI4KIh}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{x _hoQGWMnyQPAh3k2jhWHj4}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHj6}# + #{maps _hoQGWMnyQPAh3k2jhWHj7}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{y _85hotwsCta0JfYIjI4KIf}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KIh}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{y _85hotwsCta0JfYIjI4KIi}# - #{maps _85hotwsCta0JfYIjI4KIj}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{y _hoQGWMnyQPAh3k2jhWHj5}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHj7}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWHj8}# + #{maps _hoQGWMnyQPAh3k2jhWHj9}#) (values - (let ((#{atom-key _85hotwsCta0JfYIjI4KIo}# - (car #{y _85hotwsCta0JfYIjI4KIi}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}# + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHkC}# + (car #{y _hoQGWMnyQPAh3k2jhWHj8}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# 'quote) - (if (eq? (car #{x _85hotwsCta0JfYIjI4KIg}#) + (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHj6}#) 'quote) (list 'quote - (cons (car (cdr #{x _85hotwsCta0JfYIjI4KIg}#)) - (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#)))) - (if (eq? (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#)) + (cons (car (cdr #{x _hoQGWMnyQPAh3k2jhWHj6}#)) + (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) + (if (eq? (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)) '()) (list 'list - #{x _85hotwsCta0JfYIjI4KIg}#) + #{x _hoQGWMnyQPAh3k2jhWHj6}#) (list 'cons - #{x _85hotwsCta0JfYIjI4KIg}# - #{y _85hotwsCta0JfYIjI4KIi}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}# + #{x _hoQGWMnyQPAh3k2jhWHj6}# + #{y _hoQGWMnyQPAh3k2jhWHj8}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# 'list) (cons 'list - (cons #{x _85hotwsCta0JfYIjI4KIg}# - (cdr #{y _85hotwsCta0JfYIjI4KIi}#))) + (cons #{x _hoQGWMnyQPAh3k2jhWHj6}# + (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))) (list 'cons - #{x _85hotwsCta0JfYIjI4KIg}# - #{y _85hotwsCta0JfYIjI4KIi}#)))) - #{maps _85hotwsCta0JfYIjI4KIj}#)))))) - #{tmp _85hotwsCta0JfYIjI4KIa}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KJF}# + #{x _hoQGWMnyQPAh3k2jhWHj6}# + #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) + #{maps _hoQGWMnyQPAh3k2jhWHj9}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWHj0}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHkf}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '#(vector (any . each-any))))) - (if #{tmp _85hotwsCta0JfYIjI4KJF}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHkf}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4KJJ}# - #{e2 _85hotwsCta0JfYIjI4KJK}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWHkj}# + #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - (cons #{e1 _85hotwsCta0JfYIjI4KJJ}# - #{e2 _85hotwsCta0JfYIjI4KJK}#) - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{e _85hotwsCta0JfYIjI4KJL}# - #{maps _85hotwsCta0JfYIjI4KJM}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHkj}# + #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHkl}# + #{maps _hoQGWMnyQPAh3k2jhWHkm}#) (values - (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#) + (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) 'list) (cons 'vector - (cdr #{e _85hotwsCta0JfYIjI4KJL}#)) - (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#) + (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)) + (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) 'quote) (list 'quote (list->vector - (car (cdr #{e _85hotwsCta0JfYIjI4KJL}#)))) + (car (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)))) (list 'list->vector - #{e _85hotwsCta0JfYIjI4KJL}#))) - #{maps _85hotwsCta0JfYIjI4KJM}#)))) - #{tmp _85hotwsCta0JfYIjI4KJF}#) + #{e _hoQGWMnyQPAh3k2jhWHkl}#))) + #{maps _hoQGWMnyQPAh3k2jhWHkm}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHkf}#) (values - (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#) - #{maps _85hotwsCta0JfYIjI4KGd}#)))))))))))) - (#{gen-ref _85hotwsCta0JfYIjI4KE1}# - (lambda (#{src _85hotwsCta0JfYIjI4KJn}# - #{var _85hotwsCta0JfYIjI4KJo}# - #{level _85hotwsCta0JfYIjI4KJp}# - #{maps _85hotwsCta0JfYIjI4KJq}#) - (if (= #{level _85hotwsCta0JfYIjI4KJp}# 0) + (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) + #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))))))))))) + (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWHlB}# + #{var _hoQGWMnyQPAh3k2jhWHlC}# + #{level _hoQGWMnyQPAh3k2jhWHlD}# + #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + (if (= #{level _hoQGWMnyQPAh3k2jhWHlD}# 0) (values - #{var _85hotwsCta0JfYIjI4KJo}# - #{maps _85hotwsCta0JfYIjI4KJq}#) - (if (null? #{maps _85hotwsCta0JfYIjI4KJq}#) + #{var _hoQGWMnyQPAh3k2jhWHlC}# + #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + (if (null? #{maps _hoQGWMnyQPAh3k2jhWHlE}#) (syntax-violation 'syntax "missing ellipsis" - #{src _85hotwsCta0JfYIjI4KJn}#) + #{src _hoQGWMnyQPAh3k2jhWHlB}#) (call-with-values (lambda () - (#{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}# + (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# + #{src _hoQGWMnyQPAh3k2jhWHlB}# + #{var _hoQGWMnyQPAh3k2jhWHlC}# + (#{1-}# #{level _hoQGWMnyQPAh3k2jhWHlD}#) + (cdr #{maps _hoQGWMnyQPAh3k2jhWHlE}#))) + (lambda (#{outer-var _hoQGWMnyQPAh3k2jhWHlF}# + #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#) + (let ((#{b _hoQGWMnyQPAh3k2jhWHlH}# + (assq #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# + (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)))) + (if #{b _hoQGWMnyQPAh3k2jhWHlH}# (values - (cdr #{b _85hotwsCta0JfYIjI4KJt}#) - #{maps _85hotwsCta0JfYIjI4KJq}#) - (let ((#{inner-var _85hotwsCta0JfYIjI4KJv}# + (cdr #{b _hoQGWMnyQPAh3k2jhWHlH}#) + #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + (let ((#{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{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}#) + #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# + (cons (cons (cons #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# + #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#) + (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)) + #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#))))))))))) + (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHlX}# + #{map-env _hoQGWMnyQPAh3k2jhWHlY}#) + (let ((#{formals _hoQGWMnyQPAh3k2jhWHlZ}# + (map cdr #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)) + (#{actuals _hoQGWMnyQPAh3k2jhWHla}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHlc}#) + (list 'ref (car #{x _hoQGWMnyQPAh3k2jhWHlc}#))) + #{map-env _hoQGWMnyQPAh3k2jhWHlY}#))) + (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHlX}#) 'ref) + (car #{actuals _hoQGWMnyQPAh3k2jhWHla}#) (if (and-map - (lambda (#{x _85hotwsCta0JfYIjI4KKD}#) - (if (eq? (car #{x _85hotwsCta0JfYIjI4KKD}#) 'ref) - (memq (car (cdr #{x _85hotwsCta0JfYIjI4KKD}#)) - #{formals _85hotwsCta0JfYIjI4KJ@}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHld}#) + (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHld}#) 'ref) + (memq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHld}#)) + #{formals _hoQGWMnyQPAh3k2jhWHlZ}#) #f)) - (cdr #{e _85hotwsCta0JfYIjI4KJ9}#)) + (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)) (cons 'map (cons (list 'primitive - (car #{e _85hotwsCta0JfYIjI4KJ9}#)) - (map (let ((#{r _85hotwsCta0JfYIjI4KKF}# + (car #{e _hoQGWMnyQPAh3k2jhWHlX}#)) + (map (let ((#{r _hoQGWMnyQPAh3k2jhWHlf}# (map cons - #{formals _85hotwsCta0JfYIjI4KJ@}# - #{actuals _85hotwsCta0JfYIjI4KKA}#))) - (lambda (#{x _85hotwsCta0JfYIjI4KKG}#) - (cdr (assq (car (cdr #{x _85hotwsCta0JfYIjI4KKG}#)) - #{r _85hotwsCta0JfYIjI4KKF}#)))) - (cdr #{e _85hotwsCta0JfYIjI4KJ9}#)))) + #{formals _hoQGWMnyQPAh3k2jhWHlZ}# + #{actuals _hoQGWMnyQPAh3k2jhWHla}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHlg}#) + (cdr (assq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHlg}#)) + #{r _hoQGWMnyQPAh3k2jhWHlf}#)))) + (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)))) (cons 'map (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}#)))) + #{formals _hoQGWMnyQPAh3k2jhWHlZ}# + #{e _hoQGWMnyQPAh3k2jhWHlX}#) + #{actuals _hoQGWMnyQPAh3k2jhWHla}#))))))) + (#{regen _hoQGWMnyQPAh3k2jhWHgV}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWHli}#) + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHlj}# + (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'ref) + (let ((#{name _hoQGWMnyQPAh3k2jhWHlt}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (#{var _hoQGWMnyQPAh3k2jhWHlu}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name _85hotwsCta0JfYIjI4KKT}# - #{var _85hotwsCta0JfYIjI4KKU}#)) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# + #{name _hoQGWMnyQPAh3k2jhWHlt}# + #{var _hoQGWMnyQPAh3k2jhWHlu}#)) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'primitive) - (let ((#{name _85hotwsCta0JfYIjI4KKg}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + (let ((#{name _hoQGWMnyQPAh3k2jhWHl6}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _85hotwsCta0JfYIjI4KKg}#) + #{name _hoQGWMnyQPAh3k2jhWHl6}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _85hotwsCta0JfYIjI4KKg}# + #{name _hoQGWMnyQPAh3k2jhWHl6}# #f))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'quote) - (let ((#{exp _85hotwsCta0JfYIjI4KKy}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'quote) + (let ((#{exp _hoQGWMnyQPAh3k2jhWHmM}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp _85hotwsCta0JfYIjI4KKy}#)) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# + #{exp _hoQGWMnyQPAh3k2jhWHmM}#)) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# '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}# + (if (list? (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (let ((#{req _hoQGWMnyQPAh3k2jhWHmX}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (#{vars _hoQGWMnyQPAh3k2jhWHmZ}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (#{exp _hoQGWMnyQPAh3k2jhWHmb}# + (#{regen _hoQGWMnyQPAh3k2jhWHgV}# + (car (cdr (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))))) + (let ((#{body _hoQGWMnyQPAh3k2jhWHmg}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _85hotwsCta0JfYIjI4KK9}# + #{req _hoQGWMnyQPAh3k2jhWHmX}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4KK@}# - #{exp _85hotwsCta0JfYIjI4KLB}# + #{vars _hoQGWMnyQPAh3k2jhWHmZ}# + #{exp _hoQGWMnyQPAh3k2jhWHmb}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _85hotwsCta0JfYIjI4KLG}#))) + #{body _hoQGWMnyQPAh3k2jhWHmg}#))) (error "how did we get here" - #{x _85hotwsCta0JfYIjI4KKI}#)) - (let ((#{fun-exp _85hotwsCta0JfYIjI4KLW}# - (let ((#{name _85hotwsCta0JfYIjI4KLf}# - (car #{x _85hotwsCta0JfYIjI4KKI}#))) + #{x _hoQGWMnyQPAh3k2jhWHli}#)) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# + (let ((#{name _hoQGWMnyQPAh3k2jhWHm5}# + (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _85hotwsCta0JfYIjI4KLf}#) + #{name _hoQGWMnyQPAh3k2jhWHm5}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _85hotwsCta0JfYIjI4KLf}# + #{name _hoQGWMnyQPAh3k2jhWHm5}# #f)))) - (#{arg-exps _85hotwsCta0JfYIjI4KLX}# - (map #{regen _85hotwsCta0JfYIjI4KE7}# - (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + (#{arg-exps _hoQGWMnyQPAh3k2jhWHmx}# + (map #{regen _hoQGWMnyQPAh3k2jhWHgV}# + (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4KLW}# - #{arg-exps _85hotwsCta0JfYIjI4KLX}#)))))))))) - (lambda (#{e _85hotwsCta0JfYIjI4KE8}# - #{r _85hotwsCta0JfYIjI4KE9}# - #{w _85hotwsCta0JfYIjI4KE$}# - #{s _85hotwsCta0JfYIjI4KE@}# - #{mod _85hotwsCta0JfYIjI4KFA}#) - (let ((#{e _85hotwsCta0JfYIjI4KFB}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# + #{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#)))))))))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHgW}# + #{r _hoQGWMnyQPAh3k2jhWHgX}# + #{w _hoQGWMnyQPAh3k2jhWHgY}# + #{s _hoQGWMnyQPAh3k2jhWHgZ}# + #{mod _hoQGWMnyQPAh3k2jhWHga}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWHgb}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KE8}#) - #{s _85hotwsCta0JfYIjI4KE@}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHgW}#) + #{s _hoQGWMnyQPAh3k2jhWHgZ}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KE8}# - #{s _85hotwsCta0JfYIjI4KE@}#)) - #{e _85hotwsCta0JfYIjI4KE8}#) - #{w _85hotwsCta0JfYIjI4KE$}# - #{mod _85hotwsCta0JfYIjI4KFA}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4KFD}# + #{e _hoQGWMnyQPAh3k2jhWHgW}# + #{s _hoQGWMnyQPAh3k2jhWHgZ}#)) + #{e _hoQGWMnyQPAh3k2jhWHgW}#) + #{w _hoQGWMnyQPAh3k2jhWHgY}# + #{mod _hoQGWMnyQPAh3k2jhWHga}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHgd}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KFB}# + #{e _hoQGWMnyQPAh3k2jhWHgb}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4KFD}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHgd}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KFc}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHg2}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{e _85hotwsCta0JfYIjI4KFB}# - #{x _85hotwsCta0JfYIjI4KFc}# - #{r _85hotwsCta0JfYIjI4KE9}# + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{e _hoQGWMnyQPAh3k2jhWHgb}# + #{x _hoQGWMnyQPAh3k2jhWHg2}# + #{r _hoQGWMnyQPAh3k2jhWHgX}# '() - #{ellipsis? _85hotwsCta0JfYIjI4J4T}# - #{mod _85hotwsCta0JfYIjI4KFA}#)) - (lambda (#{e _85hotwsCta0JfYIjI4KGS}# - #{maps _85hotwsCta0JfYIjI4KGT}#) - (#{regen _85hotwsCta0JfYIjI4KE7}# - #{e _85hotwsCta0JfYIjI4KGS}#)))) - #{tmp _85hotwsCta0JfYIjI4KFD}#) + #{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# + #{mod _hoQGWMnyQPAh3k2jhWHga}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHhs}# + #{maps _hoQGWMnyQPAh3k2jhWHht}#) + (#{regen _hoQGWMnyQPAh3k2jhWHgV}# + #{e _hoQGWMnyQPAh3k2jhWHhs}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHgd}#) (syntax-violation 'syntax "bad `syntax' form" - #{e _85hotwsCta0JfYIjI4KFB}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHgb}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'lambda - (lambda (#{e _85hotwsCta0JfYIjI4KOc}# - #{r _85hotwsCta0JfYIjI4KOd}# - #{w _85hotwsCta0JfYIjI4KOe}# - #{s _85hotwsCta0JfYIjI4KOf}# - #{mod _85hotwsCta0JfYIjI4KOg}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KOi}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHp2}# + #{r _hoQGWMnyQPAh3k2jhWHp3}# + #{w _hoQGWMnyQPAh3k2jhWHp4}# + #{s _hoQGWMnyQPAh3k2jhWHp5}# + #{mod _hoQGWMnyQPAh3k2jhWHp6}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHp8}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KOc}# + #{e _hoQGWMnyQPAh3k2jhWHp2}# '(_ any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4KOi}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHp8}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KOm}# - #{e1 _85hotwsCta0JfYIjI4KOn}# - #{e2 _85hotwsCta0JfYIjI4KOo}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWHqA}# + #{e1 _hoQGWMnyQPAh3k2jhWHqB}# + #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) (call-with-values (lambda () - (#{lambda-formals _85hotwsCta0JfYIjI4J4U}# - #{args _85hotwsCta0JfYIjI4KOm}#)) - (lambda (#{req _85hotwsCta0JfYIjI4KOr}# - #{opt _85hotwsCta0JfYIjI4KOs}# - #{rest _85hotwsCta0JfYIjI4KOt}# - #{kw _85hotwsCta0JfYIjI4KOu}#) + (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# + #{args _hoQGWMnyQPAh3k2jhWHqA}#)) + (lambda (#{req _hoQGWMnyQPAh3k2jhWHqF}# + #{opt _hoQGWMnyQPAh3k2jhWHqG}# + #{rest _hoQGWMnyQPAh3k2jhWHqH}# + #{kw _hoQGWMnyQPAh3k2jhWHqI}#) (letrec* - ((#{lp _85hotwsCta0JfYIjI4KOv}# - (lambda (#{body _85hotwsCta0JfYIjI4KOy}# - #{meta _85hotwsCta0JfYIjI4KOz}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KO1}# + ((#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWHqM}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqP}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4KOy}# + #{body _hoQGWMnyQPAh3k2jhWHqM}# '(any any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KO1}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHqP}# (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4KO5}# - #{e1 _85hotwsCta0JfYIjI4KO6}# - #{e2 _85hotwsCta0JfYIjI4KO7}#) + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqT}# + #{e1 _hoQGWMnyQPAh3k2jhWHqU}# + #{e2 _hoQGWMnyQPAh3k2jhWHqV}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4KO5}#))) - #{tmp _85hotwsCta0JfYIjI4KO1}#) + #{docstring _hoQGWMnyQPAh3k2jhWHqT}#))) + #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) #f) (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4KO8}# - #{e1 _85hotwsCta0JfYIjI4KO9}# - #{e2 _85hotwsCta0JfYIjI4KO$}#) - (#{lp _85hotwsCta0JfYIjI4KOv}# - (cons #{e1 _85hotwsCta0JfYIjI4KO9}# - #{e2 _85hotwsCta0JfYIjI4KO$}#) + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqW}# + #{e1 _hoQGWMnyQPAh3k2jhWHqX}# + #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) + (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHqX}# + #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) (append - #{meta _85hotwsCta0JfYIjI4KOz}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}# (list (cons 'documentation (syntax->datum - #{docstring _85hotwsCta0JfYIjI4KO8}#)))))) - #{tmp _85hotwsCta0JfYIjI4KO1}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KO@}# + #{docstring _hoQGWMnyQPAh3k2jhWHqW}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqZ}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4KOy}# + #{body _hoQGWMnyQPAh3k2jhWHqM}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4KO@}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHqZ}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4KPD}# - #{v _85hotwsCta0JfYIjI4KPE}# - #{e1 _85hotwsCta0JfYIjI4KPF}# - #{e2 _85hotwsCta0JfYIjI4KPG}#) - (#{lp _85hotwsCta0JfYIjI4KOv}# - (cons #{e1 _85hotwsCta0JfYIjI4KPF}# - #{e2 _85hotwsCta0JfYIjI4KPG}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWHqd}# + #{v _hoQGWMnyQPAh3k2jhWHqe}# + #{e1 _hoQGWMnyQPAh3k2jhWHqf}# + #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) + (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHqf}# + #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) (append - #{meta _85hotwsCta0JfYIjI4KOz}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}# (syntax->datum (map cons - #{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}#) + #{k _hoQGWMnyQPAh3k2jhWHqd}# + #{v _hoQGWMnyQPAh3k2jhWHqe}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#) + (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# + #{e _hoQGWMnyQPAh3k2jhWHp2}# + #{r _hoQGWMnyQPAh3k2jhWHp3}# + #{w _hoQGWMnyQPAh3k2jhWHp4}# + #{s _hoQGWMnyQPAh3k2jhWHp5}# + #{mod _hoQGWMnyQPAh3k2jhWHp6}# + #{req _hoQGWMnyQPAh3k2jhWHqF}# + #{rest _hoQGWMnyQPAh3k2jhWHqH}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}# + #{body _hoQGWMnyQPAh3k2jhWHqM}#)))))))) + (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHqB}# + #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) '()))))) - #{tmp _85hotwsCta0JfYIjI4KOi}#) + #{tmp _hoQGWMnyQPAh3k2jhWHp8}#) (syntax-violation 'lambda "bad lambda" - #{e _85hotwsCta0JfYIjI4KOc}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHp2}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'lambda* - (lambda (#{e _85hotwsCta0JfYIjI4KTj}# - #{r _85hotwsCta0JfYIjI4KTk}# - #{w _85hotwsCta0JfYIjI4KTl}# - #{s _85hotwsCta0JfYIjI4KTm}# - #{mod _85hotwsCta0JfYIjI4KTn}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KTp}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHu9}# + #{r _hoQGWMnyQPAh3k2jhWHu$}# + #{w _hoQGWMnyQPAh3k2jhWHu@}# + #{s _hoQGWMnyQPAh3k2jhWHvA}# + #{mod _hoQGWMnyQPAh3k2jhWHvB}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHvD}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KTj}# + #{e _hoQGWMnyQPAh3k2jhWHu9}# '(_ any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4KTp}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHvD}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KTt}# - #{e1 _85hotwsCta0JfYIjI4KTu}# - #{e2 _85hotwsCta0JfYIjI4KTv}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWHvH}# + #{e1 _hoQGWMnyQPAh3k2jhWHvI}# + #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWHu9}# + #{r _hoQGWMnyQPAh3k2jhWHu$}# + #{w _hoQGWMnyQPAh3k2jhWHu@}# + #{s _hoQGWMnyQPAh3k2jhWHvA}# + #{mod _hoQGWMnyQPAh3k2jhWHvB}# + #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# + (list (cons #{args _hoQGWMnyQPAh3k2jhWHvH}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHvI}# + #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#))))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWHvM}# + #{lcase _hoQGWMnyQPAh3k2jhWHvN}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _85hotwsCta0JfYIjI4KTm}# - #{meta _85hotwsCta0JfYIjI4KTy}# - #{lcase _85hotwsCta0JfYIjI4KTz}#)))) - #{tmp _85hotwsCta0JfYIjI4KTp}#) + #{s _hoQGWMnyQPAh3k2jhWHvA}# + #{meta _hoQGWMnyQPAh3k2jhWHvM}# + #{lcase _hoQGWMnyQPAh3k2jhWHvN}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHvD}#) (syntax-violation 'lambda "bad lambda*" - #{e _85hotwsCta0JfYIjI4KTj}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHu9}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'case-lambda - (lambda (#{e _85hotwsCta0JfYIjI4KWd}# - #{r _85hotwsCta0JfYIjI4KWe}# - #{w _85hotwsCta0JfYIjI4KWf}# - #{s _85hotwsCta0JfYIjI4KWg}# - #{mod _85hotwsCta0JfYIjI4KWh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KWj}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHx3}# + #{r _hoQGWMnyQPAh3k2jhWHx4}# + #{w _hoQGWMnyQPAh3k2jhWHx5}# + #{s _hoQGWMnyQPAh3k2jhWHx6}# + #{mod _hoQGWMnyQPAh3k2jhWHx7}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHx9}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KWd}# + #{e _hoQGWMnyQPAh3k2jhWHx3}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _85hotwsCta0JfYIjI4KWj}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHx9}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KWn}# - #{e1 _85hotwsCta0JfYIjI4KWo}# - #{e2 _85hotwsCta0JfYIjI4KWp}# - #{args* _85hotwsCta0JfYIjI4KWq}# - #{e1* _85hotwsCta0JfYIjI4KWr}# - #{e2* _85hotwsCta0JfYIjI4KWs}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWHyB}# + #{e1 _hoQGWMnyQPAh3k2jhWHyC}# + #{e2 _hoQGWMnyQPAh3k2jhWHyD}# + #{args* _hoQGWMnyQPAh3k2jhWHyE}# + #{e1* _hoQGWMnyQPAh3k2jhWHyF}# + #{e2* _hoQGWMnyQPAh3k2jhWHyG}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWHx3}# + #{r _hoQGWMnyQPAh3k2jhWHx4}# + #{w _hoQGWMnyQPAh3k2jhWHx5}# + #{s _hoQGWMnyQPAh3k2jhWHx6}# + #{mod _hoQGWMnyQPAh3k2jhWHx7}# + #{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# + (cons (cons #{args _hoQGWMnyQPAh3k2jhWHyB}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHyC}# + #{e2 _hoQGWMnyQPAh3k2jhWHyD}#)) + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}# + #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# + #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#) + (cons #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}# + (cons #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# + #{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#))) + #{e2* _hoQGWMnyQPAh3k2jhWHyG}# + #{e1* _hoQGWMnyQPAh3k2jhWHyF}# + #{args* _hoQGWMnyQPAh3k2jhWHyE}#)))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWHyM}# + #{lcase _hoQGWMnyQPAh3k2jhWHyN}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _85hotwsCta0JfYIjI4KWg}# - #{meta _85hotwsCta0JfYIjI4KWy}# - #{lcase _85hotwsCta0JfYIjI4KWz}#)))) - #{tmp _85hotwsCta0JfYIjI4KWj}#) + #{s _hoQGWMnyQPAh3k2jhWHx6}# + #{meta _hoQGWMnyQPAh3k2jhWHyM}# + #{lcase _hoQGWMnyQPAh3k2jhWHyN}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHx9}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e _85hotwsCta0JfYIjI4KWd}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHx3}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'case-lambda* - (lambda (#{e _85hotwsCta0JfYIjI4KZV}# - #{r _85hotwsCta0JfYIjI4KZW}# - #{w _85hotwsCta0JfYIjI4KZX}# - #{s _85hotwsCta0JfYIjI4KZY}# - #{mod _85hotwsCta0JfYIjI4KZZ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KZb}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWH0v}# + #{r _hoQGWMnyQPAh3k2jhWH0w}# + #{w _hoQGWMnyQPAh3k2jhWH0x}# + #{s _hoQGWMnyQPAh3k2jhWH0y}# + #{mod _hoQGWMnyQPAh3k2jhWH0z}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWH01}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KZV}# + #{e _hoQGWMnyQPAh3k2jhWH0v}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _85hotwsCta0JfYIjI4KZb}# + (if #{tmp _hoQGWMnyQPAh3k2jhWH01}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KZf}# - #{e1 _85hotwsCta0JfYIjI4KZg}# - #{e2 _85hotwsCta0JfYIjI4KZh}# - #{args* _85hotwsCta0JfYIjI4KZi}# - #{e1* _85hotwsCta0JfYIjI4KZj}# - #{e2* _85hotwsCta0JfYIjI4KZk}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWH05}# + #{e1 _hoQGWMnyQPAh3k2jhWH06}# + #{e2 _hoQGWMnyQPAh3k2jhWH07}# + #{args* _hoQGWMnyQPAh3k2jhWH08}# + #{e1* _hoQGWMnyQPAh3k2jhWH09}# + #{e2* _hoQGWMnyQPAh3k2jhWH0$}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWH0v}# + #{r _hoQGWMnyQPAh3k2jhWH0w}# + #{w _hoQGWMnyQPAh3k2jhWH0x}# + #{s _hoQGWMnyQPAh3k2jhWH0y}# + #{mod _hoQGWMnyQPAh3k2jhWH0z}# + #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# + (cons (cons #{args _hoQGWMnyQPAh3k2jhWH05}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWH06}# + #{e2 _hoQGWMnyQPAh3k2jhWH07}#)) + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}# + #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# + #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#) + (cons #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}# + (cons #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# + #{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#))) + #{e2* _hoQGWMnyQPAh3k2jhWH0$}# + #{e1* _hoQGWMnyQPAh3k2jhWH09}# + #{args* _hoQGWMnyQPAh3k2jhWH08}#)))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWH1E}# + #{lcase _hoQGWMnyQPAh3k2jhWH1F}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _85hotwsCta0JfYIjI4KZY}# - #{meta _85hotwsCta0JfYIjI4KZq}# - #{lcase _85hotwsCta0JfYIjI4KZr}#)))) - #{tmp _85hotwsCta0JfYIjI4KZb}#) + #{s _hoQGWMnyQPAh3k2jhWH0y}# + #{meta _hoQGWMnyQPAh3k2jhWH1E}# + #{lcase _hoQGWMnyQPAh3k2jhWH1F}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWH01}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e _85hotwsCta0JfYIjI4KZV}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWH0v}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'let (letrec* - ((#{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}#)) + ((#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWH6Z}# + #{r _hoQGWMnyQPAh3k2jhWH6a}# + #{w _hoQGWMnyQPAh3k2jhWH6b}# + #{s _hoQGWMnyQPAh3k2jhWH6c}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}# + #{constructor _hoQGWMnyQPAh3k2jhWH6e}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}# + #{vals _hoQGWMnyQPAh3k2jhWH6g}# + #{exps _hoQGWMnyQPAh3k2jhWH6h}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) (syntax-violation 'let "duplicate bound variable" - #{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}# + #{e _hoQGWMnyQPAh3k2jhWH6Z}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWH7v}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWH7w}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#))) + (let ((#{nw _hoQGWMnyQPAh3k2jhWH7x}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}# + #{labels _hoQGWMnyQPAh3k2jhWH7v}# + #{w _hoQGWMnyQPAh3k2jhWH6b}#)) + (#{nr _hoQGWMnyQPAh3k2jhWH7y}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWH7v}# + #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# + #{r _hoQGWMnyQPAh3k2jhWH6a}#))) + (#{constructor _hoQGWMnyQPAh3k2jhWH6e}# + #{s _hoQGWMnyQPAh3k2jhWH6c}# (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}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#) + #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWH8D}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWH8D}# + #{r _hoQGWMnyQPAh3k2jhWH6a}# + #{w _hoQGWMnyQPAh3k2jhWH6b}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}#)) + #{vals _hoQGWMnyQPAh3k2jhWH6g}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + #{exps _hoQGWMnyQPAh3k2jhWH6h}# + (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# + #{e _hoQGWMnyQPAh3k2jhWH6Z}# + #{nw _hoQGWMnyQPAh3k2jhWH7x}# + #{s _hoQGWMnyQPAh3k2jhWH6c}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}#) + #{nr _hoQGWMnyQPAh3k2jhWH7y}# + #{nw _hoQGWMnyQPAh3k2jhWH7x}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}#)))))))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWH4F}# + #{r _hoQGWMnyQPAh3k2jhWH4G}# + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{s _hoQGWMnyQPAh3k2jhWH4I}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWH4L}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Kcr}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Kcx}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWH4L}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Kc1}# - #{val _85hotwsCta0JfYIjI4Kc2}# - #{e1 _85hotwsCta0JfYIjI4Kc3}# - #{e2 _85hotwsCta0JfYIjI4Kc4}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWH4P}# + #{val _hoQGWMnyQPAh3k2jhWH4Q}# + #{e1 _hoQGWMnyQPAh3k2jhWH4R}# + #{e2 _hoQGWMnyQPAh3k2jhWH4S}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4Kc1}#)) - #{tmp _85hotwsCta0JfYIjI4Kcx}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWH4P}#)) + #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) #f) (@apply - (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}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWH4i}# + #{val _hoQGWMnyQPAh3k2jhWH4j}# + #{e1 _hoQGWMnyQPAh3k2jhWH4k}# + #{e2 _hoQGWMnyQPAh3k2jhWH4l}#) + (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{r _hoQGWMnyQPAh3k2jhWH4G}# + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{s _hoQGWMnyQPAh3k2jhWH4I}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}# + #{build-let _hoQGWMnyQPAh3k2jhWHSv}# + #{id _hoQGWMnyQPAh3k2jhWH4i}# + #{val _hoQGWMnyQPAh3k2jhWH4j}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWH4k}# + #{e2 _hoQGWMnyQPAh3k2jhWH4l}#))) + #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWH5D}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Kcr}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Kdp}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWH5D}# (@apply - (lambda (#{f _85hotwsCta0JfYIjI4Kdt}# - #{id _85hotwsCta0JfYIjI4Kdu}# - #{val _85hotwsCta0JfYIjI4Kdv}# - #{e1 _85hotwsCta0JfYIjI4Kdw}# - #{e2 _85hotwsCta0JfYIjI4Kdx}#) - (if (if (symbol? #{f _85hotwsCta0JfYIjI4Kdt}#) + (lambda (#{f _hoQGWMnyQPAh3k2jhWH5H}# + #{id _hoQGWMnyQPAh3k2jhWH5I}# + #{val _hoQGWMnyQPAh3k2jhWH5J}# + #{e1 _hoQGWMnyQPAh3k2jhWH5K}# + #{e2 _hoQGWMnyQPAh3k2jhWH5L}#) + (if (if (symbol? #{f _hoQGWMnyQPAh3k2jhWH5H}#) #t (if (if (vector? - #{f _85hotwsCta0JfYIjI4Kdt}#) + #{f _hoQGWMnyQPAh3k2jhWH5H}#) (if (= (vector-length - #{f _85hotwsCta0JfYIjI4Kdt}#) + #{f _hoQGWMnyQPAh3k2jhWH5H}#) 4) (eq? (vector-ref - #{f _85hotwsCta0JfYIjI4Kdt}# + #{f _hoQGWMnyQPAh3k2jhWH5H}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{f _85hotwsCta0JfYIjI4Kdt}# + #{f _hoQGWMnyQPAh3k2jhWH5H}# 1)) #f)) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4Kdu}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWH5I}#) #f)) - #{tmp _85hotwsCta0JfYIjI4Kdp}#) + #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) #f) (@apply - (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}#) + (lambda (#{f _hoQGWMnyQPAh3k2jhWH51}# + #{id _hoQGWMnyQPAh3k2jhWH52}# + #{val _hoQGWMnyQPAh3k2jhWH53}# + #{e1 _hoQGWMnyQPAh3k2jhWH54}# + #{e2 _hoQGWMnyQPAh3k2jhWH55}#) + (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{r _hoQGWMnyQPAh3k2jhWH4G}# + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{s _hoQGWMnyQPAh3k2jhWH4I}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}# + #{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# + (cons #{f _hoQGWMnyQPAh3k2jhWH51}# + #{id _hoQGWMnyQPAh3k2jhWH52}#) + #{val _hoQGWMnyQPAh3k2jhWH53}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWH54}# + #{e2 _hoQGWMnyQPAh3k2jhWH55}#))) + #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) (syntax-violation 'let "bad let" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Kcr}#) - #{s _85hotwsCta0JfYIjI4Kcu}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWH4F}#) + #{s _hoQGWMnyQPAh3k2jhWH4I}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Kcr}# - #{s _85hotwsCta0JfYIjI4Kcu}#)) - #{e _85hotwsCta0JfYIjI4Kcr}#) - #{w _85hotwsCta0JfYIjI4Kct}# - #{mod _85hotwsCta0JfYIjI4Kcv}#))))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{s _hoQGWMnyQPAh3k2jhWH4I}#)) + #{e _hoQGWMnyQPAh3k2jhWH4F}#) + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}#))))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'letrec - (lambda (#{e _85hotwsCta0JfYIjI4Km3}# - #{r _85hotwsCta0JfYIjI4Km4}# - #{w _85hotwsCta0JfYIjI4Km5}# - #{s _85hotwsCta0JfYIjI4Km6}# - #{mod _85hotwsCta0JfYIjI4Km7}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Km9}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWICR}# + #{r _hoQGWMnyQPAh3k2jhWICS}# + #{w _hoQGWMnyQPAh3k2jhWICT}# + #{s _hoQGWMnyQPAh3k2jhWICU}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWICX}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Km3}# + #{e _hoQGWMnyQPAh3k2jhWICR}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Km9}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWICX}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KnB}# - #{val _85hotwsCta0JfYIjI4KnC}# - #{e1 _85hotwsCta0JfYIjI4KnD}# - #{e2 _85hotwsCta0JfYIjI4KnE}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWICb}# + #{val _hoQGWMnyQPAh3k2jhWICc}# + #{e1 _hoQGWMnyQPAh3k2jhWICd}# + #{e2 _hoQGWMnyQPAh3k2jhWICe}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4KnB}#)) - #{tmp _85hotwsCta0JfYIjI4Km9}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWICb}#)) + #{tmp _hoQGWMnyQPAh3k2jhWICX}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KnU}# - #{val _85hotwsCta0JfYIjI4KnV}# - #{e1 _85hotwsCta0JfYIjI4KnW}# - #{e2 _85hotwsCta0JfYIjI4KnX}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{id _85hotwsCta0JfYIjI4KnU}#)) + (lambda (#{id _hoQGWMnyQPAh3k2jhWICu}# + #{val _hoQGWMnyQPAh3k2jhWICv}# + #{e1 _hoQGWMnyQPAh3k2jhWICw}# + #{e2 _hoQGWMnyQPAh3k2jhWICx}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{id _hoQGWMnyQPAh3k2jhWICu}#)) (syntax-violation 'letrec "duplicate bound variable" - #{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}# + #{e _hoQGWMnyQPAh3k2jhWICR}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWIEL}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{id _hoQGWMnyQPAh3k2jhWICu}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWIEM}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{id _hoQGWMnyQPAh3k2jhWICu}#))) + (let ((#{w _hoQGWMnyQPAh3k2jhWIEN}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{id _hoQGWMnyQPAh3k2jhWICu}# + #{labels _hoQGWMnyQPAh3k2jhWIEL}# + #{w _hoQGWMnyQPAh3k2jhWICT}#)) + (#{r _hoQGWMnyQPAh3k2jhWIEO}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWIEL}# + #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# + #{r _hoQGWMnyQPAh3k2jhWICS}#))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + #{s _hoQGWMnyQPAh3k2jhWICU}# #f - (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}# + (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWICu}#) + #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIFf}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWIFf}# + #{r _hoQGWMnyQPAh3k2jhWIEO}# + #{w _hoQGWMnyQPAh3k2jhWIEN}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#)) + #{val _hoQGWMnyQPAh3k2jhWICv}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWICw}# + #{e2 _hoQGWMnyQPAh3k2jhWICx}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#) - #{s _85hotwsCta0JfYIjI4Km6}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{s _hoQGWMnyQPAh3k2jhWICU}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Km3}# - #{s _85hotwsCta0JfYIjI4Km6}#)) - #{e _85hotwsCta0JfYIjI4Km3}#) - #{w _85hotwsCta0JfYIjI4Koz}# - #{mod _85hotwsCta0JfYIjI4Km7}#) - #{r _85hotwsCta0JfYIjI4Ko0}# - #{w _85hotwsCta0JfYIjI4Koz}# - #{mod _85hotwsCta0JfYIjI4Km7}#)))))) - #{tmp _85hotwsCta0JfYIjI4Km9}#) + #{e _hoQGWMnyQPAh3k2jhWICR}# + #{s _hoQGWMnyQPAh3k2jhWICU}#)) + #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{w _hoQGWMnyQPAh3k2jhWIEN}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#) + #{r _hoQGWMnyQPAh3k2jhWIEO}# + #{w _hoQGWMnyQPAh3k2jhWIEN}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWICX}#) (syntax-violation 'letrec "bad letrec" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#) - #{s _85hotwsCta0JfYIjI4Km6}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{s _hoQGWMnyQPAh3k2jhWICU}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Km3}# - #{s _85hotwsCta0JfYIjI4Km6}#)) - #{e _85hotwsCta0JfYIjI4Km3}#) - #{w _85hotwsCta0JfYIjI4Km5}# - #{mod _85hotwsCta0JfYIjI4Km7}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWICR}# + #{s _hoQGWMnyQPAh3k2jhWICU}#)) + #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{w _hoQGWMnyQPAh3k2jhWICT}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'letrec* - (lambda (#{e _85hotwsCta0JfYIjI4KwI}# - #{r _85hotwsCta0JfYIjI4KwJ}# - #{w _85hotwsCta0JfYIjI4KwK}# - #{s _85hotwsCta0JfYIjI4KwL}# - #{mod _85hotwsCta0JfYIjI4KwM}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KwO}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWILi}# + #{r _hoQGWMnyQPAh3k2jhWILj}# + #{w _hoQGWMnyQPAh3k2jhWILk}# + #{s _hoQGWMnyQPAh3k2jhWILl}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWILo}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KwI}# + #{e _hoQGWMnyQPAh3k2jhWILi}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KwO}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWILo}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KwS}# - #{val _85hotwsCta0JfYIjI4KwT}# - #{e1 _85hotwsCta0JfYIjI4KwU}# - #{e2 _85hotwsCta0JfYIjI4KwV}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWILs}# + #{val _hoQGWMnyQPAh3k2jhWILt}# + #{e1 _hoQGWMnyQPAh3k2jhWILu}# + #{e2 _hoQGWMnyQPAh3k2jhWILv}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4KwS}#)) - #{tmp _85hotwsCta0JfYIjI4KwO}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWILs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWILo}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Kwl}# - #{val _85hotwsCta0JfYIjI4Kwm}# - #{e1 _85hotwsCta0JfYIjI4Kwn}# - #{e2 _85hotwsCta0JfYIjI4Kwo}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{id _85hotwsCta0JfYIjI4Kwl}#)) + (lambda (#{id _hoQGWMnyQPAh3k2jhWIL@}# + #{val _hoQGWMnyQPAh3k2jhWIMA}# + #{e1 _hoQGWMnyQPAh3k2jhWIMB}# + #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{id _hoQGWMnyQPAh3k2jhWIL@}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{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}# + #{e _hoQGWMnyQPAh3k2jhWILi}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWINc}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{id _hoQGWMnyQPAh3k2jhWIL@}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWINd}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{id _hoQGWMnyQPAh3k2jhWIL@}#))) + (let ((#{w _hoQGWMnyQPAh3k2jhWINe}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{id _hoQGWMnyQPAh3k2jhWIL@}# + #{labels _hoQGWMnyQPAh3k2jhWINc}# + #{w _hoQGWMnyQPAh3k2jhWILk}#)) + (#{r _hoQGWMnyQPAh3k2jhWINf}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWINc}# + #{new-vars _hoQGWMnyQPAh3k2jhWINd}# + #{r _hoQGWMnyQPAh3k2jhWILj}#))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + #{s _hoQGWMnyQPAh3k2jhWILl}# #t - (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}# + (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWIL@}#) + #{new-vars _hoQGWMnyQPAh3k2jhWINd}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIOw}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWIOw}# + #{r _hoQGWMnyQPAh3k2jhWINf}# + #{w _hoQGWMnyQPAh3k2jhWINe}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#)) + #{val _hoQGWMnyQPAh3k2jhWIMA}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWIMB}# + #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#) - #{s _85hotwsCta0JfYIjI4KwL}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{s _hoQGWMnyQPAh3k2jhWILl}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KwI}# - #{s _85hotwsCta0JfYIjI4KwL}#)) - #{e _85hotwsCta0JfYIjI4KwI}#) - #{w _85hotwsCta0JfYIjI4KyE}# - #{mod _85hotwsCta0JfYIjI4KwM}#) - #{r _85hotwsCta0JfYIjI4KyF}# - #{w _85hotwsCta0JfYIjI4KyE}# - #{mod _85hotwsCta0JfYIjI4KwM}#)))))) - #{tmp _85hotwsCta0JfYIjI4KwO}#) + #{e _hoQGWMnyQPAh3k2jhWILi}# + #{s _hoQGWMnyQPAh3k2jhWILl}#)) + #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{w _hoQGWMnyQPAh3k2jhWINe}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#) + #{r _hoQGWMnyQPAh3k2jhWINf}# + #{w _hoQGWMnyQPAh3k2jhWINe}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWILo}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#) - #{s _85hotwsCta0JfYIjI4KwL}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{s _hoQGWMnyQPAh3k2jhWILl}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KwI}# - #{s _85hotwsCta0JfYIjI4KwL}#)) - #{e _85hotwsCta0JfYIjI4KwI}#) - #{w _85hotwsCta0JfYIjI4KwK}# - #{mod _85hotwsCta0JfYIjI4KwM}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWILi}# + #{s _hoQGWMnyQPAh3k2jhWILl}#)) + #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{w _hoQGWMnyQPAh3k2jhWILk}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'set! - (lambda (#{e _85hotwsCta0JfYIjI4K6A}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{s _85hotwsCta0JfYIjI4K6D}# - #{mod _85hotwsCta0JfYIjI4K6E}#) - (let ((#{tmp _85hotwsCta0JfYIjI4K6G}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIVa}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIVg}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4K6A}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4K6G}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWIVg}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4K6K}# - #{val _85hotwsCta0JfYIjI4K6L}#) - (if (symbol? #{id _85hotwsCta0JfYIjI4K6K}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWIVk}# + #{val _hoQGWMnyQPAh3k2jhWIVl}#) + (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIVk}#) #t - (if (if (vector? #{id _85hotwsCta0JfYIjI4K6K}#) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIVk}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4K6K}#) + #{id _hoQGWMnyQPAh3k2jhWIVk}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4K6K}# + #{id _hoQGWMnyQPAh3k2jhWIVk}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _85hotwsCta0JfYIjI4K6K}# 1)) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWIVk}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4K6G}#) + #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4K6m}# - #{val _85hotwsCta0JfYIjI4K6n}#) - (let ((#{n _85hotwsCta0JfYIjI4K6o}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{id _85hotwsCta0JfYIjI4K6m}# - #{w _85hotwsCta0JfYIjI4K6C}#)) - (#{id-mod _85hotwsCta0JfYIjI4K6p}# - (if (if (vector? #{id _85hotwsCta0JfYIjI4K6m}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWIWA}# + #{val _hoQGWMnyQPAh3k2jhWIWB}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWIWC}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{w _hoQGWMnyQPAh3k2jhWIVc}#)) + (#{id-mod _hoQGWMnyQPAh3k2jhWIWD}# + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIWA}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4K6m}#) + #{id _hoQGWMnyQPAh3k2jhWIWA}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4K6m}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# 0) 'syntax-object) #f) #f) - (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}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWIWA}# 3) + #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWIWE}# + (let ((#{t _hoQGWMnyQPAh3k2jhWIWt}# + (assq #{n _hoQGWMnyQPAh3k2jhWIWC}# + #{r _hoQGWMnyQPAh3k2jhWIVb}#))) + (if #{t _hoQGWMnyQPAh3k2jhWIWt}# + (cdr #{t _hoQGWMnyQPAh3k2jhWIWt}#) + (if (symbol? #{n _hoQGWMnyQPAh3k2jhWIWC}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWIWy}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWIWC}# + #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#))) + (if #{t _hoQGWMnyQPAh3k2jhWIWy}# + #{t _hoQGWMnyQPAh3k2jhWIWy}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key _85hotwsCta0JfYIjI4K6r}# - (car #{b _85hotwsCta0JfYIjI4K6q}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}# + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (car #{b _hoQGWMnyQPAh3k2jhWIWE}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# '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}# + (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIWA}#) + (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWIWB}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# '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}# + (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + #{n _hoQGWMnyQPAh3k2jhWIWC}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWIWB}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# 'macro) - (let ((#{p _85hotwsCta0JfYIjI4LAS}# - (cdr #{b _85hotwsCta0JfYIjI4K6q}#))) + (let ((#{p _hoQGWMnyQPAh3k2jhWIbs}# + (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#))) (if (procedure-property - #{p _85hotwsCta0JfYIjI4LAS}# + #{p _hoQGWMnyQPAh3k2jhWIbs}# 'variable-transformer) - (#{expand _85hotwsCta0JfYIjI4J4L}# - (#{expand-macro _85hotwsCta0JfYIjI4J4O}# - #{p _85hotwsCta0JfYIjI4LAS}# - #{e _85hotwsCta0JfYIjI4K6A}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{s _85hotwsCta0JfYIjI4K6D}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + #{p _hoQGWMnyQPAh3k2jhWIbs}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# #f - #{mod _85hotwsCta0JfYIjI4K6E}#) - #{r _85hotwsCta0JfYIjI4K6B}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + #{r _hoQGWMnyQPAh3k2jhWIVb}# '(()) - #{mod _85hotwsCta0JfYIjI4K6E}#) + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4K6A}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{id _85hotwsCta0JfYIjI4K6m}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{id-mod _85hotwsCta0JfYIjI4K6p}#)))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{id _85hotwsCta0JfYIjI4K6m}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) (syntax-violation 'set! "bad set!" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#) - #{s _85hotwsCta0JfYIjI4K6D}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{s _hoQGWMnyQPAh3k2jhWIVd}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4K6A}# - #{s _85hotwsCta0JfYIjI4K6D}#)) - #{e _85hotwsCta0JfYIjI4K6A}#) - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)))))))))) - #{tmp _85hotwsCta0JfYIjI4K6G}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LBx}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{s _hoQGWMnyQPAh3k2jhWIVd}#)) + #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdL}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4K6A}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# '(_ (any . each-any) any)))) - (if #{tmp _85hotwsCta0JfYIjI4LBx}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIdL}# (@apply - (lambda (#{head _85hotwsCta0JfYIjI4LB1}# - #{tail _85hotwsCta0JfYIjI4LB2}# - #{val _85hotwsCta0JfYIjI4LB3}#) + (lambda (#{head _hoQGWMnyQPAh3k2jhWIdP}# + #{tail _hoQGWMnyQPAh3k2jhWIdQ}# + #{val _hoQGWMnyQPAh3k2jhWIdR}#) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{head _85hotwsCta0JfYIjI4LB1}# - #{r _85hotwsCta0JfYIjI4K6B}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{head _hoQGWMnyQPAh3k2jhWIdP}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# '(()) #f #f - #{mod _85hotwsCta0JfYIjI4K6E}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}# #t)) - (lambda (#{type _85hotwsCta0JfYIjI4LB6}# - #{value _85hotwsCta0JfYIjI4LB7}# - #{ee _85hotwsCta0JfYIjI4LB8}# - #{ww _85hotwsCta0JfYIjI4LB9}# - #{ss _85hotwsCta0JfYIjI4LB$}# - #{modmod _85hotwsCta0JfYIjI4LB@}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4LB6}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWIdU}# + #{value _hoQGWMnyQPAh3k2jhWIdV}# + #{ee _hoQGWMnyQPAh3k2jhWIdW}# + #{ww _hoQGWMnyQPAh3k2jhWIdX}# + #{ss _hoQGWMnyQPAh3k2jhWIdY}# + #{modmod _hoQGWMnyQPAh3k2jhWIdZ}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWIdU}# 'module-ref) - (let ((#{val _85hotwsCta0JfYIjI4LCD}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{val _85hotwsCta0JfYIjI4LB3}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#))) + (let ((#{val _hoQGWMnyQPAh3k2jhWIdd}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWIdR}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) (call-with-values (lambda () - (#{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}#))) + (#{value _hoQGWMnyQPAh3k2jhWIdV}# + (cons #{head _hoQGWMnyQPAh3k2jhWIdP}# + #{tail _hoQGWMnyQPAh3k2jhWIdQ}#) + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWIde}# + #{r _hoQGWMnyQPAh3k2jhWIdf}# + #{w _hoQGWMnyQPAh3k2jhWIdg}# + #{s* _hoQGWMnyQPAh3k2jhWIdh}# + #{mod _hoQGWMnyQPAh3k2jhWIdi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdk}# + (list #{e _hoQGWMnyQPAh3k2jhWIde}#))) (if (@apply - (lambda (#{e _85hotwsCta0JfYIjI4LCM}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWIdm}#) (if (symbol? - #{e _85hotwsCta0JfYIjI4LCM}#) + #{e _hoQGWMnyQPAh3k2jhWIdm}#) #t (if (if (vector? - #{e _85hotwsCta0JfYIjI4LCM}#) + #{e _hoQGWMnyQPAh3k2jhWIdm}#) (if (= (vector-length - #{e _85hotwsCta0JfYIjI4LCM}#) + #{e _hoQGWMnyQPAh3k2jhWIdm}#) 4) (eq? (vector-ref - #{e _85hotwsCta0JfYIjI4LCM}# + #{e _hoQGWMnyQPAh3k2jhWIdm}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _85hotwsCta0JfYIjI4LCM}# + #{e _hoQGWMnyQPAh3k2jhWIdm}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4LCK}#) + #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) (@apply - (lambda (#{e _85hotwsCta0JfYIjI4LCq}#) - (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}# - #{s _85hotwsCta0JfYIjI4K6D}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIeE}#) + (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# (syntax->datum - #{e _85hotwsCta0JfYIjI4LCq}#) - #{val _85hotwsCta0JfYIjI4LCD}# - #{mod _85hotwsCta0JfYIjI4LCI}#)) - #{tmp _85hotwsCta0JfYIjI4LCK}#) + #{e _hoQGWMnyQPAh3k2jhWIeE}#) + #{val _hoQGWMnyQPAh3k2jhWIdd}# + #{mod _hoQGWMnyQPAh3k2jhWIdi}#)) + #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LCE}#)))))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - #{s _85hotwsCta0JfYIjI4K6D}# - (let ((#{e _85hotwsCta0JfYIjI4LGL}# + #{e _hoQGWMnyQPAh3k2jhWIde}#)))))) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + (let ((#{e _hoQGWMnyQPAh3k2jhWIhl}# (list '#(syntax-object setter ((top) @@ -10956,121 +10956,121 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{head _85hotwsCta0JfYIjI4LB1}#))) + #{head _hoQGWMnyQPAh3k2jhWIdP}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4LGL}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4LGL}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWIhl}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWIhl}#) #f - #{mod _85hotwsCta0JfYIjI4K6E}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}# #f)) - (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}#) + (lambda (#{type _hoQGWMnyQPAh3k2jhWIhs}# + #{value _hoQGWMnyQPAh3k2jhWIht}# + #{e _hoQGWMnyQPAh3k2jhWIhu}# + #{w _hoQGWMnyQPAh3k2jhWIhv}# + #{s _hoQGWMnyQPAh3k2jhWIhw}# + #{mod _hoQGWMnyQPAh3k2jhWIhx}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWIhs}# + #{value _hoQGWMnyQPAh3k2jhWIht}# + #{e _hoQGWMnyQPAh3k2jhWIhu}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIhv}# + #{s _hoQGWMnyQPAh3k2jhWIhw}# + #{mod _hoQGWMnyQPAh3k2jhWIhx}#)))) + (map (lambda (#{e _hoQGWMnyQPAh3k2jhWIh1}#) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4LGb}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4LGb}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWIh1}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWIh1}#) #f - #{mod _85hotwsCta0JfYIjI4K6E}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}# #f)) - (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}#)))) + (lambda (#{type _hoQGWMnyQPAh3k2jhWIiE}# + #{value _hoQGWMnyQPAh3k2jhWIiF}# + #{e _hoQGWMnyQPAh3k2jhWIiG}# + #{w _hoQGWMnyQPAh3k2jhWIiH}# + #{s _hoQGWMnyQPAh3k2jhWIiI}# + #{mod _hoQGWMnyQPAh3k2jhWIiJ}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWIiE}# + #{value _hoQGWMnyQPAh3k2jhWIiF}# + #{e _hoQGWMnyQPAh3k2jhWIiG}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIiH}# + #{s _hoQGWMnyQPAh3k2jhWIiI}# + #{mod _hoQGWMnyQPAh3k2jhWIiJ}#)))) (append - #{tail _85hotwsCta0JfYIjI4LB2}# - (list #{val _85hotwsCta0JfYIjI4LB3}#)))))))) - #{tmp _85hotwsCta0JfYIjI4LBx}#) + #{tail _hoQGWMnyQPAh3k2jhWIdQ}# + (list #{val _hoQGWMnyQPAh3k2jhWIdR}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWIdL}#) (syntax-violation 'set! "bad set!" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#) - #{s _85hotwsCta0JfYIjI4K6D}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{s _hoQGWMnyQPAh3k2jhWIVd}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4K6A}# - #{s _85hotwsCta0JfYIjI4K6D}#)) - #{e _85hotwsCta0JfYIjI4K6A}#) - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)))))))) + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{s _hoQGWMnyQPAh3k2jhWIVd}#)) + #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e _85hotwsCta0JfYIjI4LHa}# - #{r _85hotwsCta0JfYIjI4LHb}# - #{w _85hotwsCta0JfYIjI4LHc}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LHe}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIi0}# + #{r _hoQGWMnyQPAh3k2jhWIi1}# + #{w _hoQGWMnyQPAh3k2jhWIi2}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIi4}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LHa}# + #{e _hoQGWMnyQPAh3k2jhWIi0}# '(_ each-any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4LHe}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWIi4}# (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LHh}# - #{id _85hotwsCta0JfYIjI4LHi}#) + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIi7}# + #{id _hoQGWMnyQPAh3k2jhWIi8}#) (if (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{mod _85hotwsCta0JfYIjI4LHh}#) - (if (symbol? #{id _85hotwsCta0JfYIjI4LHi}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{mod _hoQGWMnyQPAh3k2jhWIi7}#) + (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIi8}#) #t - (if (if (vector? #{id _85hotwsCta0JfYIjI4LHi}#) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIi8}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4LHi}#) + #{id _hoQGWMnyQPAh3k2jhWIi8}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4LHi}# + #{id _hoQGWMnyQPAh3k2jhWIi8}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _85hotwsCta0JfYIjI4LHi}# 1)) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWIi8}# 1)) #f)) #f)) - #{tmp _85hotwsCta0JfYIjI4LHe}#) + #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) #f) (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LIK}# - #{id _85hotwsCta0JfYIjI4LIL}#) + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIjk}# + #{id _hoQGWMnyQPAh3k2jhWIjl}#) (values - (syntax->datum #{id _85hotwsCta0JfYIjI4LIL}#) - #{r _85hotwsCta0JfYIjI4LHb}# - #{w _85hotwsCta0JfYIjI4LHc}# + (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIjl}#) + #{r _hoQGWMnyQPAh3k2jhWIi1}# + #{w _hoQGWMnyQPAh3k2jhWIi2}# #f (syntax->datum (cons '#(syntax-object @@ -11513,88 +11513,88 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{mod _85hotwsCta0JfYIjI4LIK}#)))) - #{tmp _85hotwsCta0JfYIjI4LHe}#) + #{mod _hoQGWMnyQPAh3k2jhWIjk}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LHa}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWIi0}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'module-ref '@@ - (lambda (#{e _85hotwsCta0JfYIjI4LJn}# - #{r _85hotwsCta0JfYIjI4LJo}# - #{w _85hotwsCta0JfYIjI4LJp}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWIlB}# + #{r _hoQGWMnyQPAh3k2jhWIlC}# + #{w _hoQGWMnyQPAh3k2jhWIlD}#) (letrec* - ((#{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}#) + ((#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWIln}# + #{mod _hoQGWMnyQPAh3k2jhWIlo}#) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWIln}#) + (cons (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (car #{x _hoQGWMnyQPAh3k2jhWIln}#) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#) + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (cdr #{x _hoQGWMnyQPAh3k2jhWIln}#) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 0) 'syntax-object) #f) #f) - (let ((#{expression _85hotwsCta0JfYIjI4LKc}# - (#{remodulate _85hotwsCta0JfYIjI4LJq}# - (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 1) - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (#{wrap _85hotwsCta0JfYIjI4LKd}# - (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 2))) + (let ((#{expression _hoQGWMnyQPAh3k2jhWIl2}# + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 1) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (#{wrap _hoQGWMnyQPAh3k2jhWIl3}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 2))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4LKc}# - #{wrap _85hotwsCta0JfYIjI4LKd}# - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#) - (let ((#{n _85hotwsCta0JfYIjI4LKl}# - (vector-length #{x _85hotwsCta0JfYIjI4LKN}#))) - (let ((#{v _85hotwsCta0JfYIjI4LKm}# - (make-vector #{n _85hotwsCta0JfYIjI4LKl}#))) + #{expression _hoQGWMnyQPAh3k2jhWIl2}# + #{wrap _hoQGWMnyQPAh3k2jhWIl3}# + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWIl@}# + (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#))) + (let ((#{v _hoQGWMnyQPAh3k2jhWImA}# + (make-vector #{n _hoQGWMnyQPAh3k2jhWIl@}#))) (letrec* - ((#{loop _85hotwsCta0JfYIjI4LKn}# - (lambda (#{i _85hotwsCta0JfYIjI4LLW}#) - (if (= #{i _85hotwsCta0JfYIjI4LLW}# - #{n _85hotwsCta0JfYIjI4LKl}#) - #{v _85hotwsCta0JfYIjI4LKm}# + ((#{loop _hoQGWMnyQPAh3k2jhWImB}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWImw}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWImw}# + #{n _hoQGWMnyQPAh3k2jhWIl@}#) + #{v _hoQGWMnyQPAh3k2jhWImA}# (begin (vector-set! - #{v _85hotwsCta0JfYIjI4LKm}# - #{i _85hotwsCta0JfYIjI4LLW}# - (#{remodulate _85hotwsCta0JfYIjI4LJq}# + #{v _hoQGWMnyQPAh3k2jhWImA}# + #{i _hoQGWMnyQPAh3k2jhWImw}# + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# (vector-ref - #{x _85hotwsCta0JfYIjI4LKN}# - #{i _85hotwsCta0JfYIjI4LLW}#) - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (#{loop _85hotwsCta0JfYIjI4LKn}# - (#{1+}# #{i _85hotwsCta0JfYIjI4LLW}#))))))) - (#{loop _85hotwsCta0JfYIjI4LKn}# 0)))) - #{x _85hotwsCta0JfYIjI4LKN}#)))))) - (let ((#{tmp _85hotwsCta0JfYIjI4LJs}# + #{x _hoQGWMnyQPAh3k2jhWIln}# + #{i _hoQGWMnyQPAh3k2jhWImw}#) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (#{loop _hoQGWMnyQPAh3k2jhWImB}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWImw}#))))))) + (#{loop _hoQGWMnyQPAh3k2jhWImB}# 0)))) + #{x _hoQGWMnyQPAh3k2jhWIln}#)))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIlG}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LJn}# + #{e _hoQGWMnyQPAh3k2jhWIlB}# '(_ each-any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4LJs}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWIlG}# (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LJw}# - #{exp _85hotwsCta0JfYIjI4LJx}#) + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlK}# + #{exp _hoQGWMnyQPAh3k2jhWIlL}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{mod _85hotwsCta0JfYIjI4LJw}#)) - #{tmp _85hotwsCta0JfYIjI4LJs}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{mod _hoQGWMnyQPAh3k2jhWIlK}#)) + #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) #f) (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LKB}# - #{exp _85hotwsCta0JfYIjI4LKC}#) - (let ((#{mod _85hotwsCta0JfYIjI4LKD}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlb}# + #{exp _hoQGWMnyQPAh3k2jhWIlc}#) + (let ((#{mod _hoQGWMnyQPAh3k2jhWIld}# (syntax->datum (cons '#(syntax-object private @@ -12036,140 +12036,140 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{mod _85hotwsCta0JfYIjI4LKB}#)))) + #{mod _hoQGWMnyQPAh3k2jhWIlb}#)))) (values - (#{remodulate _85hotwsCta0JfYIjI4LJq}# - #{exp _85hotwsCta0JfYIjI4LKC}# - #{mod _85hotwsCta0JfYIjI4LKD}#) - #{r _85hotwsCta0JfYIjI4LJo}# - #{w _85hotwsCta0JfYIjI4LJp}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{exp _85hotwsCta0JfYIjI4LKC}#) - #{mod _85hotwsCta0JfYIjI4LKD}#))) - #{tmp _85hotwsCta0JfYIjI4LJs}#) + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + #{exp _hoQGWMnyQPAh3k2jhWIlc}# + #{mod _hoQGWMnyQPAh3k2jhWIld}#) + #{r _hoQGWMnyQPAh3k2jhWIlC}# + #{w _hoQGWMnyQPAh3k2jhWIlD}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{exp _hoQGWMnyQPAh3k2jhWIlc}#) + #{mod _hoQGWMnyQPAh3k2jhWIld}#))) + #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LJn}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWIlB}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'if - (lambda (#{e _85hotwsCta0JfYIjI4LM7}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{s _85hotwsCta0JfYIjI4LM$}# - #{mod _85hotwsCta0JfYIjI4LM@}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LNB}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIoV}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{s _hoQGWMnyQPAh3k2jhWIoY}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIob}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LM7}# + #{e _hoQGWMnyQPAh3k2jhWIoV}# '(_ any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LNB}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIob}# (@apply - (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@}#) + (lambda (#{test _hoQGWMnyQPAh3k2jhWIof}# + #{then _hoQGWMnyQPAh3k2jhWIog}#) + (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# + #{s _hoQGWMnyQPAh3k2jhWIoY}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{test _hoQGWMnyQPAh3k2jhWIof}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{then _hoQGWMnyQPAh3k2jhWIog}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp _85hotwsCta0JfYIjI4LNB}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LQn}# + #{tmp _hoQGWMnyQPAh3k2jhWIob}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIsB}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LM7}# + #{e _hoQGWMnyQPAh3k2jhWIoV}# '(_ any any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LQn}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIsB}# (@apply - (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}#) + (lambda (#{test _hoQGWMnyQPAh3k2jhWIsF}# + #{then _hoQGWMnyQPAh3k2jhWIsG}# + #{else _hoQGWMnyQPAh3k2jhWIsH}#) + (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# + #{s _hoQGWMnyQPAh3k2jhWIoY}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{test _hoQGWMnyQPAh3k2jhWIsF}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{then _hoQGWMnyQPAh3k2jhWIsG}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{else _hoQGWMnyQPAh3k2jhWIsH}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#))) + #{tmp _hoQGWMnyQPAh3k2jhWIsB}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LM7}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWIoV}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'with-fluids - (lambda (#{e _85hotwsCta0JfYIjI4LW8}# - #{r _85hotwsCta0JfYIjI4LW9}# - #{w _85hotwsCta0JfYIjI4LW$}# - #{s _85hotwsCta0JfYIjI4LW@}# - #{mod _85hotwsCta0JfYIjI4LXA}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LXC}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIyW}# + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{s _hoQGWMnyQPAh3k2jhWIyZ}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIyc}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LW8}# + #{e _hoQGWMnyQPAh3k2jhWIyW}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4LXC}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIyc}# (@apply - (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}# + (lambda (#{fluid _hoQGWMnyQPAh3k2jhWIyg}# + #{val _hoQGWMnyQPAh3k2jhWIyh}# + #{b _hoQGWMnyQPAh3k2jhWIyi}# + #{b* _hoQGWMnyQPAh3k2jhWIyj}#) + (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# + #{s _hoQGWMnyQPAh3k2jhWIyZ}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIz0}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWIz0}# + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#)) + #{fluid _hoQGWMnyQPAh3k2jhWIyg}#) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWI06}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWI06}# + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#)) + #{val _hoQGWMnyQPAh3k2jhWIyh}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{b _hoQGWMnyQPAh3k2jhWIyi}# + #{b* _hoQGWMnyQPAh3k2jhWIyj}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4LW8}#) - #{s _85hotwsCta0JfYIjI4LW@}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIyW}#) + #{s _hoQGWMnyQPAh3k2jhWIyZ}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4LW8}# - #{s _85hotwsCta0JfYIjI4LW@}#)) - #{e _85hotwsCta0JfYIjI4LW8}#) - #{w _85hotwsCta0JfYIjI4LW$}# - #{mod _85hotwsCta0JfYIjI4LXA}#) - #{r _85hotwsCta0JfYIjI4LW9}# - #{w _85hotwsCta0JfYIjI4LW$}# - #{mod _85hotwsCta0JfYIjI4LXA}#))) - #{tmp _85hotwsCta0JfYIjI4LXC}#) + #{e _hoQGWMnyQPAh3k2jhWIyW}# + #{s _hoQGWMnyQPAh3k2jhWIyZ}#)) + #{e _hoQGWMnyQPAh3k2jhWIyW}#) + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#) + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#))) + #{tmp _hoQGWMnyQPAh3k2jhWIyc}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LW8}#))))) + #{e _hoQGWMnyQPAh3k2jhWIyW}#))))) (module-define! (current-module) 'begin @@ -12199,100 +12199,100 @@ 'eval-when 'eval-when '())) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'syntax-case (letrec* - ((#{convert-pattern _85hotwsCta0JfYIjI4LfQ}# - (lambda (#{pattern _85hotwsCta0JfYIjI4L4L}# - #{keys _85hotwsCta0JfYIjI4L4M}#) + ((#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# + (lambda (#{pattern _hoQGWMnyQPAh3k2jhWJTl}# + #{keys _hoQGWMnyQPAh3k2jhWJTm}#) (letrec* - ((#{cvt* _85hotwsCta0JfYIjI4L4N}# - (lambda (#{p* _85hotwsCta0JfYIjI4MB9}# - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MB@}#) - (if (not (pair? #{p* _85hotwsCta0JfYIjI4MB9}#)) - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{p* _85hotwsCta0JfYIjI4MB9}# - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MB@}#) + ((#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# + (lambda (#{p* _hoQGWMnyQPAh3k2jhWJdX}# + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) + (if (not (pair? #{p* _hoQGWMnyQPAh3k2jhWJdX}#)) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{p* _hoQGWMnyQPAh3k2jhWJdX}# + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) (call-with-values (lambda () - (#{cvt* _85hotwsCta0JfYIjI4L4N}# - (cdr #{p* _85hotwsCta0JfYIjI4MB9}#) - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MB@}#)) - (lambda (#{y _85hotwsCta0JfYIjI4MCC}# - #{ids _85hotwsCta0JfYIjI4MCD}#) + (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# + (cdr #{p* _hoQGWMnyQPAh3k2jhWJdX}#) + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWJdc}# + #{ids _hoQGWMnyQPAh3k2jhWJdd}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - (car #{p* _85hotwsCta0JfYIjI4MB9}#) - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MCD}#)) - (lambda (#{x _85hotwsCta0JfYIjI4MCG}# - #{ids _85hotwsCta0JfYIjI4MCH}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + (car #{p* _hoQGWMnyQPAh3k2jhWJdX}#) + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdd}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJdg}# + #{ids _hoQGWMnyQPAh3k2jhWJdh}#) (values - (cons #{x _85hotwsCta0JfYIjI4MCG}# - #{y _85hotwsCta0JfYIjI4MCC}#) - #{ids _85hotwsCta0JfYIjI4MCH}#)))))))) - (#{v-reverse _85hotwsCta0JfYIjI4L4O}# - (lambda (#{x _85hotwsCta0JfYIjI4MCI}#) + (cons #{x _hoQGWMnyQPAh3k2jhWJdg}# + #{y _hoQGWMnyQPAh3k2jhWJdc}#) + #{ids _hoQGWMnyQPAh3k2jhWJdh}#)))))))) + (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJdi}#) (letrec* - ((#{loop _85hotwsCta0JfYIjI4MCJ}# - (lambda (#{r _85hotwsCta0JfYIjI4MDZ}# - #{x _85hotwsCta0JfYIjI4MDa}#) - (if (not (pair? #{x _85hotwsCta0JfYIjI4MDa}#)) + ((#{loop _hoQGWMnyQPAh3k2jhWJdj}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWJez}# + #{x _hoQGWMnyQPAh3k2jhWJe0}#) + (if (not (pair? #{x _hoQGWMnyQPAh3k2jhWJe0}#)) (values - #{r _85hotwsCta0JfYIjI4MDZ}# - #{x _85hotwsCta0JfYIjI4MDa}#) - (#{loop _85hotwsCta0JfYIjI4MCJ}# - (cons (car #{x _85hotwsCta0JfYIjI4MDa}#) - #{r _85hotwsCta0JfYIjI4MDZ}#) - (cdr #{x _85hotwsCta0JfYIjI4MDa}#)))))) - (#{loop _85hotwsCta0JfYIjI4MCJ}# + #{r _hoQGWMnyQPAh3k2jhWJez}# + #{x _hoQGWMnyQPAh3k2jhWJe0}#) + (#{loop _hoQGWMnyQPAh3k2jhWJdj}# + (cons (car #{x _hoQGWMnyQPAh3k2jhWJe0}#) + #{r _hoQGWMnyQPAh3k2jhWJez}#) + (cdr #{x _hoQGWMnyQPAh3k2jhWJe0}#)))))) + (#{loop _hoQGWMnyQPAh3k2jhWJdj}# '() - #{x _85hotwsCta0JfYIjI4MCI}#)))) - (#{cvt _85hotwsCta0JfYIjI4L4P}# - (lambda (#{p _85hotwsCta0JfYIjI4L4S}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#) - (if (if (symbol? #{p _85hotwsCta0JfYIjI4L4S}#) + #{x _hoQGWMnyQPAh3k2jhWJdi}#)))) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWJTs}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#) + (if (if (symbol? #{p _hoQGWMnyQPAh3k2jhWJTs}#) #t - (if (if (vector? #{p _85hotwsCta0JfYIjI4L4S}#) + (if (if (vector? #{p _hoQGWMnyQPAh3k2jhWJTs}#) (if (= (vector-length - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) 4) (eq? (vector-ref - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{p _85hotwsCta0JfYIjI4L4S}# 1)) + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJTs}# 1)) #f)) - (if (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}# - #{p _85hotwsCta0JfYIjI4L4S}# - #{keys _85hotwsCta0JfYIjI4L4M}#) + (if (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{keys _hoQGWMnyQPAh3k2jhWJTm}#) (values - (vector 'free-id #{p _85hotwsCta0JfYIjI4L4S}#) - #{ids _85hotwsCta0JfYIjI4L4U}#) + (vector 'free-id #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{ids _hoQGWMnyQPAh3k2jhWJTu}#) (if (if (eq? (if (if (vector? - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) (if (= (vector-length - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) 4) (eq? (vector-ref - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# 0) 'syntax-object) #f) #f) (vector-ref - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# 1) - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) (if (if (= (vector-length '#(syntax-object _ @@ -13206,10 +13206,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{p _85hotwsCta0JfYIjI4L4S}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object _ ((top) @@ -13663,51 +13663,51 @@ (hygiene guile)) '(()))) #f) - (values '_ #{ids _85hotwsCta0JfYIjI4L4U}#) + (values '_ #{ids _hoQGWMnyQPAh3k2jhWJTu}#) (values 'any - (cons (cons #{p _85hotwsCta0JfYIjI4L4S}# - #{n _85hotwsCta0JfYIjI4L4T}#) - #{ids _85hotwsCta0JfYIjI4L4U}#)))) - (let ((#{tmp _85hotwsCta0JfYIjI4L9U}# + (cons (cons #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{n _hoQGWMnyQPAh3k2jhWJTt}#) + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJYu}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4L9U}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWJYu}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4L9Y}# - #{dots _85hotwsCta0JfYIjI4L9Z}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJYy}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 1)) #f) (if (eq? (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 1) - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (if (= (vector-length '#(syntax-object ... @@ -14598,10 +14598,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{dots _85hotwsCta0JfYIjI4L9Z}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -15042,68 +15042,68 @@ '(()))) #f) #f)) - #{tmp _85hotwsCta0JfYIjI4L9U}#) + #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) #f) (@apply - (lambda (#{x _85hotwsCta0JfYIjI4L$9}# - #{dots _85hotwsCta0JfYIjI4L$$}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJaX}# + #{dots _hoQGWMnyQPAh3k2jhWJaY}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4L$9}# - (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#) - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{p _85hotwsCta0JfYIjI4L$@}# - #{ids _85hotwsCta0JfYIjI4L@A}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJaX}# + (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{p _hoQGWMnyQPAh3k2jhWJaZ}# + #{ids _hoQGWMnyQPAh3k2jhWJaa}#) (values - (if (eq? #{p _85hotwsCta0JfYIjI4L$@}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJaZ}# 'any) 'each-any (vector 'each - #{p _85hotwsCta0JfYIjI4L$@}#)) - #{ids _85hotwsCta0JfYIjI4L@A}#)))) - #{tmp _85hotwsCta0JfYIjI4L9U}#) - (let ((#{tmp _85hotwsCta0JfYIjI4L@B}# + #{p _hoQGWMnyQPAh3k2jhWJaZ}#)) + #{ids _hoQGWMnyQPAh3k2jhWJaa}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJab}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(any any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4L@B}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWJab}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4L@F}# - #{dots _85hotwsCta0JfYIjI4L@G}# - #{ys _85hotwsCta0JfYIjI4L@H}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJaf}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{ys _hoQGWMnyQPAh3k2jhWJah}#) (if (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 1)) #f) (if (eq? (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 1) - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) (if (if (= (vector-length '#(syntax-object ... @@ -15996,10 +15996,10 @@ "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{dots _85hotwsCta0JfYIjI4L@G}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -16440,131 +16440,131 @@ '(()))) #f) #f)) - #{tmp _85hotwsCta0JfYIjI4L@B}#) + #{tmp _hoQGWMnyQPAh3k2jhWJab}#) #f) (@apply - (lambda (#{x _85hotwsCta0JfYIjI4MAr}# - #{dots _85hotwsCta0JfYIjI4MAs}# - #{ys _85hotwsCta0JfYIjI4MAt}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJcF}# + #{dots _hoQGWMnyQPAh3k2jhWJcG}# + #{ys _hoQGWMnyQPAh3k2jhWJcH}#) (call-with-values (lambda () - (#{cvt* _85hotwsCta0JfYIjI4L4N}# - #{ys _85hotwsCta0JfYIjI4MAt}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{ys _85hotwsCta0JfYIjI4MAw}# - #{ids _85hotwsCta0JfYIjI4MAx}#) + (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# + #{ys _hoQGWMnyQPAh3k2jhWJcH}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcK}# + #{ids _hoQGWMnyQPAh3k2jhWJcL}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4MAr}# - (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#) - #{ids _85hotwsCta0JfYIjI4MAx}#)) - (lambda (#{x _85hotwsCta0JfYIjI4MAy}# - #{ids _85hotwsCta0JfYIjI4MAz}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJcF}# + (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) + #{ids _hoQGWMnyQPAh3k2jhWJcL}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJcM}# + #{ids _hoQGWMnyQPAh3k2jhWJcN}#) (call-with-values (lambda () - (#{v-reverse _85hotwsCta0JfYIjI4L4O}# - #{ys _85hotwsCta0JfYIjI4MAw}#)) - (lambda (#{ys _85hotwsCta0JfYIjI4MBU}# - #{e _85hotwsCta0JfYIjI4MBV}#) + (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# + #{ys _hoQGWMnyQPAh3k2jhWJcK}#)) + (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcu}# + #{e _hoQGWMnyQPAh3k2jhWJcv}#) (values (vector 'each+ - #{x _85hotwsCta0JfYIjI4MAy}# - #{ys _85hotwsCta0JfYIjI4MBU}# - #{e _85hotwsCta0JfYIjI4MBV}#) - #{ids _85hotwsCta0JfYIjI4MAz}#)))))))) - #{tmp _85hotwsCta0JfYIjI4L@B}#) - (let ((#{tmp _85hotwsCta0JfYIjI4MBW}# + #{x _hoQGWMnyQPAh3k2jhWJcM}# + #{ys _hoQGWMnyQPAh3k2jhWJcu}# + #{e _hoQGWMnyQPAh3k2jhWJcv}#) + #{ids _hoQGWMnyQPAh3k2jhWJcN}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWJab}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJcw}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4MBW}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJcw}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4MBa}# - #{y _85hotwsCta0JfYIjI4MBb}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJc0}# + #{y _hoQGWMnyQPAh3k2jhWJc1}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{y _85hotwsCta0JfYIjI4MBb}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{y _85hotwsCta0JfYIjI4MBc}# - #{ids _85hotwsCta0JfYIjI4MBd}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{y _hoQGWMnyQPAh3k2jhWJc1}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWJc2}# + #{ids _hoQGWMnyQPAh3k2jhWJc3}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4MBa}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4MBd}#)) - (lambda (#{x _85hotwsCta0JfYIjI4MBe}# - #{ids _85hotwsCta0JfYIjI4MBf}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJc0}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJc3}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJc4}# + #{ids _hoQGWMnyQPAh3k2jhWJc5}#) (values - (cons #{x _85hotwsCta0JfYIjI4MBe}# - #{y _85hotwsCta0JfYIjI4MBc}#) - #{ids _85hotwsCta0JfYIjI4MBf}#)))))) - #{tmp _85hotwsCta0JfYIjI4MBW}#) - (let ((#{tmp _85hotwsCta0JfYIjI4MBg}# + (cons #{x _hoQGWMnyQPAh3k2jhWJc4}# + #{y _hoQGWMnyQPAh3k2jhWJc2}#) + #{ids _hoQGWMnyQPAh3k2jhWJc5}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWJcw}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc6}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4MBg}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJc6}# (@apply (lambda () (values '() - #{ids _85hotwsCta0JfYIjI4L4U}#)) - #{tmp _85hotwsCta0JfYIjI4MBg}#) - (let ((#{tmp _85hotwsCta0JfYIjI4MBk}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + #{tmp _hoQGWMnyQPAh3k2jhWJc6}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc$}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '#(vector each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4MBk}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJc$}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4MBo}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJdC}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4MBo}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{p _85hotwsCta0JfYIjI4MBp}# - #{ids _85hotwsCta0JfYIjI4MBq}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJdC}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{p _hoQGWMnyQPAh3k2jhWJdD}# + #{ids _hoQGWMnyQPAh3k2jhWJdE}#) (values (vector 'vector - #{p _85hotwsCta0JfYIjI4MBp}#) - #{ids _85hotwsCta0JfYIjI4MBq}#)))) - #{tmp _85hotwsCta0JfYIjI4MBk}#) + #{p _hoQGWMnyQPAh3k2jhWJdD}#) + #{ids _hoQGWMnyQPAh3k2jhWJdE}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWJc$}#) (values (vector 'atom - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{p _85hotwsCta0JfYIjI4L4S}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(()))) - #{ids _85hotwsCta0JfYIjI4L4U}#))))))))))))))) - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{pattern _85hotwsCta0JfYIjI4L4L}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#))))))))))))))) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{pattern _hoQGWMnyQPAh3k2jhWJTl}# 0 '())))) - (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}# - (lambda (#{pvars _85hotwsCta0JfYIjI4MDb}# - #{exp _85hotwsCta0JfYIjI4MDc}# - #{y _85hotwsCta0JfYIjI4MDd}# - #{r _85hotwsCta0JfYIjI4MDe}# - #{mod _85hotwsCta0JfYIjI4MDf}#) - (let ((#{ids _85hotwsCta0JfYIjI4MDg}# - (map car #{pvars _85hotwsCta0JfYIjI4MDb}#))) + (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# + (lambda (#{pvars _hoQGWMnyQPAh3k2jhWJe1}# + #{exp _hoQGWMnyQPAh3k2jhWJe2}# + #{y _hoQGWMnyQPAh3k2jhWJe3}# + #{r _hoQGWMnyQPAh3k2jhWJe4}# + #{mod _hoQGWMnyQPAh3k2jhWJe5}#) + (let ((#{ids _hoQGWMnyQPAh3k2jhWJe6}# + (map car #{pvars _hoQGWMnyQPAh3k2jhWJe1}#))) (begin - (map cdr #{pvars _85hotwsCta0JfYIjI4MDb}#) - (let ((#{labels _85hotwsCta0JfYIjI4MDi}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{ids _85hotwsCta0JfYIjI4MDg}#)) - (#{new-vars _85hotwsCta0JfYIjI4MDj}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{ids _85hotwsCta0JfYIjI4MDg}#))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# + (map cdr #{pvars _hoQGWMnyQPAh3k2jhWJe1}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWJe8}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{ids _hoQGWMnyQPAh3k2jhWJe6}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWJe9}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{ids _hoQGWMnyQPAh3k2jhWJe6}#))) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -16577,89 +16577,89 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}# + (list (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# #f (map syntax->datum - #{ids _85hotwsCta0JfYIjI4MDg}#) + #{ids _hoQGWMnyQPAh3k2jhWJe6}#) #f - #{new-vars _85hotwsCta0JfYIjI4MDj}# + #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# '() - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{exp _85hotwsCta0JfYIjI4MDc}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4MDi}# - (map (lambda (#{var _85hotwsCta0JfYIjI4MIi}# - #{level _85hotwsCta0JfYIjI4MIj}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{exp _hoQGWMnyQPAh3k2jhWJe2}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWJe8}# + (map (lambda (#{var _hoQGWMnyQPAh3k2jhWJj8}# + #{level _hoQGWMnyQPAh3k2jhWJj9}#) (cons 'syntax - (cons #{var _85hotwsCta0JfYIjI4MIi}# - #{level _85hotwsCta0JfYIjI4MIj}#))) - #{new-vars _85hotwsCta0JfYIjI4MDj}# + (cons #{var _hoQGWMnyQPAh3k2jhWJj8}# + #{level _hoQGWMnyQPAh3k2jhWJj9}#))) + #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# (map cdr - #{pvars _85hotwsCta0JfYIjI4MDb}#)) - #{r _85hotwsCta0JfYIjI4MDe}#) - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{ids _85hotwsCta0JfYIjI4MDg}# - #{labels _85hotwsCta0JfYIjI4MDi}# + #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)) + #{r _hoQGWMnyQPAh3k2jhWJe4}#) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{ids _hoQGWMnyQPAh3k2jhWJe6}# + #{labels _hoQGWMnyQPAh3k2jhWJe8}# '(())) - #{mod _85hotwsCta0JfYIjI4MDf}#)) - #{y _85hotwsCta0JfYIjI4MDd}#))))))) - (#{gen-clause _85hotwsCta0JfYIjI4LfS}# - (lambda (#{x _85hotwsCta0JfYIjI4LuX}# - #{keys _85hotwsCta0JfYIjI4LuY}# - #{clauses _85hotwsCta0JfYIjI4LuZ}# - #{r _85hotwsCta0JfYIjI4Lua}# - #{pat _85hotwsCta0JfYIjI4Lub}# - #{fender _85hotwsCta0JfYIjI4Luc}# - #{exp _85hotwsCta0JfYIjI4Lud}# - #{mod _85hotwsCta0JfYIjI4Lue}#) + #{mod _hoQGWMnyQPAh3k2jhWJe5}#)) + #{y _hoQGWMnyQPAh3k2jhWJe3}#))))))) + (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJJx}# + #{keys _hoQGWMnyQPAh3k2jhWJJy}# + #{clauses _hoQGWMnyQPAh3k2jhWJJz}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{pat _hoQGWMnyQPAh3k2jhWJJ1}# + #{fender _hoQGWMnyQPAh3k2jhWJJ2}# + #{exp _hoQGWMnyQPAh3k2jhWJJ3}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#) (call-with-values (lambda () - (#{convert-pattern _85hotwsCta0JfYIjI4LfQ}# - #{pat _85hotwsCta0JfYIjI4Lub}# - #{keys _85hotwsCta0JfYIjI4LuY}#)) - (lambda (#{p _85hotwsCta0JfYIjI4Lw5}# - #{pvars _85hotwsCta0JfYIjI4Lw6}#) - (if (not (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - (map car #{pvars _85hotwsCta0JfYIjI4Lw6}#))) + (#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# + #{pat _hoQGWMnyQPAh3k2jhWJJ1}# + #{keys _hoQGWMnyQPAh3k2jhWJJy}#)) + (lambda (#{p _hoQGWMnyQPAh3k2jhWJMT}# + #{pvars _hoQGWMnyQPAh3k2jhWJMU}#) + (if (not (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + (map car #{pvars _hoQGWMnyQPAh3k2jhWJMU}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat _85hotwsCta0JfYIjI4Lub}#) + #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) (if (not (and-map - (lambda (#{x _85hotwsCta0JfYIjI4Lyu}#) - (not (let ((#{x _85hotwsCta0JfYIjI4Lyy}# - (car #{x _85hotwsCta0JfYIjI4Lyu}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJOI}#) + (not (let ((#{x _hoQGWMnyQPAh3k2jhWJOM}# + (car #{x _hoQGWMnyQPAh3k2jhWJOI}#))) (if (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 1)) #f) (if (eq? (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 1) - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) (if (if (= (vector-length '#(syntax-object ... @@ -17552,10 +17552,10 @@ "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4Lyy}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -17996,44 +17996,44 @@ '(()))) #f) #f)))) - #{pvars _85hotwsCta0JfYIjI4Lw6}#)) + #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat _85hotwsCta0JfYIjI4Lub}#) - (let ((#{y _85hotwsCta0JfYIjI4Lz$}# + #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) + (let ((#{y _hoQGWMnyQPAh3k2jhWJPY}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# #f - (let ((#{req _85hotwsCta0JfYIjI4L2N}# (list 'tmp)) - (#{vars _85hotwsCta0JfYIjI4L2P}# - (list #{y _85hotwsCta0JfYIjI4Lz$}#)) - (#{exp _85hotwsCta0JfYIjI4L2R}# - (let ((#{y _85hotwsCta0JfYIjI4L2i}# + (let ((#{req _hoQGWMnyQPAh3k2jhWJRn}# (list 'tmp)) + (#{vars _hoQGWMnyQPAh3k2jhWJRp}# + (list #{y _hoQGWMnyQPAh3k2jhWJPY}#)) + (#{exp _hoQGWMnyQPAh3k2jhWJRr}# + (let ((#{y _hoQGWMnyQPAh3k2jhWJR8}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y _85hotwsCta0JfYIjI4Lz$}#))) - (let ((#{test-exp _85hotwsCta0JfYIjI4L2m}# - (let ((#{tmp _85hotwsCta0JfYIjI4L2v}# + #{y _hoQGWMnyQPAh3k2jhWJPY}#))) + (let ((#{test-exp _hoQGWMnyQPAh3k2jhWJSA}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJSJ}# ($sc-dispatch - #{fender _85hotwsCta0JfYIjI4Luc}# + #{fender _hoQGWMnyQPAh3k2jhWJJ2}# '#(atom #t)))) - (if #{tmp _85hotwsCta0JfYIjI4L2v}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJSJ}# (@apply (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}# + #{y _hoQGWMnyQPAh3k2jhWJR8}#) + #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#) + (let ((#{then-exp _hoQGWMnyQPAh3k2jhWJSb}# + (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# + #{pvars _hoQGWMnyQPAh3k2jhWJMU}# + #{fender _hoQGWMnyQPAh3k2jhWJJ2}# + #{y _hoQGWMnyQPAh3k2jhWJR8}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) + (#{else-exp _hoQGWMnyQPAh3k2jhWJSc}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -18045,48 +18045,48 @@ %expanded-vtables 10) #f - #{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}#))) + #{y _hoQGWMnyQPAh3k2jhWJR8}# + #{then-exp _hoQGWMnyQPAh3k2jhWJSb}# + #{else-exp _hoQGWMnyQPAh3k2jhWJSc}#))))) + (#{then-exp _hoQGWMnyQPAh3k2jhWJSB}# + (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# + #{pvars _hoQGWMnyQPAh3k2jhWJMU}# + #{exp _hoQGWMnyQPAh3k2jhWJJ3}# + #{y _hoQGWMnyQPAh3k2jhWJR8}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) + (#{else-exp _hoQGWMnyQPAh3k2jhWJSC}# + (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# + #{x _hoQGWMnyQPAh3k2jhWJJx}# + #{keys _hoQGWMnyQPAh3k2jhWJJy}# + #{clauses _hoQGWMnyQPAh3k2jhWJJz}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp _85hotwsCta0JfYIjI4L2m}# - #{then-exp _85hotwsCta0JfYIjI4L2n}# - #{else-exp _85hotwsCta0JfYIjI4L2o}#))))) - (let ((#{body _85hotwsCta0JfYIjI4L2W}# + #{test-exp _hoQGWMnyQPAh3k2jhWJSA}# + #{then-exp _hoQGWMnyQPAh3k2jhWJSB}# + #{else-exp _hoQGWMnyQPAh3k2jhWJSC}#))))) + (let ((#{body _hoQGWMnyQPAh3k2jhWJRw}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _85hotwsCta0JfYIjI4L2N}# + #{req _hoQGWMnyQPAh3k2jhWJRn}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4L2P}# - #{exp _85hotwsCta0JfYIjI4L2R}# + #{vars _hoQGWMnyQPAh3k2jhWJRp}# + #{exp _hoQGWMnyQPAh3k2jhWJRr}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _85hotwsCta0JfYIjI4L2W}#))) - (list (if (eq? #{p _85hotwsCta0JfYIjI4Lw5}# 'any) - (let ((#{fun-exp _85hotwsCta0JfYIjI4L3Y}# + #{body _hoQGWMnyQPAh3k2jhWJRw}#))) + (list (if (eq? #{p _hoQGWMnyQPAh3k2jhWJMT}# 'any) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# (if (equal? (module-name (current-module)) '(guile)) @@ -18100,14 +18100,14 @@ '(guile) 'list #f))) - (#{arg-exps _85hotwsCta0JfYIjI4L3Z}# - (list #{x _85hotwsCta0JfYIjI4LuX}#))) + (#{arg-exps _hoQGWMnyQPAh3k2jhWJSz}# + (list #{x _hoQGWMnyQPAh3k2jhWJJx}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4L3Y}# - #{arg-exps _85hotwsCta0JfYIjI4L3Z}#)) - (let ((#{fun-exp _85hotwsCta0JfYIjI4L3w}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#)) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# (if (equal? (module-name (current-module)) '(guile)) @@ -18121,27 +18121,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps _85hotwsCta0JfYIjI4L3x}# - (list #{x _85hotwsCta0JfYIjI4LuX}# + (#{arg-exps _hoQGWMnyQPAh3k2jhWJTL}# + (list #{x _hoQGWMnyQPAh3k2jhWJJx}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p _85hotwsCta0JfYIjI4Lw5}#)))) + #{p _hoQGWMnyQPAh3k2jhWJMT}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{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}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#)))))))))))) + (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJA8}# + #{keys _hoQGWMnyQPAh3k2jhWJA9}# + #{clauses _hoQGWMnyQPAh3k2jhWJA$}# + #{r _hoQGWMnyQPAh3k2jhWJA@}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#) + (if (null? #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -18153,7 +18153,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps _85hotwsCta0JfYIjI4Lls}# + (#{arg-exps _hoQGWMnyQPAh3k2jhWJBG}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -18162,77 +18162,77 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x _85hotwsCta0JfYIjI4Lli}#))) + #{x _hoQGWMnyQPAh3k2jhWJA8}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4Llr}# - #{arg-exps _85hotwsCta0JfYIjI4Lls}#)) - (let ((#{tmp _85hotwsCta0JfYIjI4LmN}# - (car #{clauses _85hotwsCta0JfYIjI4Llk}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4LmO}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#)) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBn}# + (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBo}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4LmN}# + #{tmp _hoQGWMnyQPAh3k2jhWJBn}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LmO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJBo}# (@apply - (lambda (#{pat _85hotwsCta0JfYIjI4LmQ}# - #{exp _85hotwsCta0JfYIjI4LmR}#) - (if (if (if (symbol? #{pat _85hotwsCta0JfYIjI4LmQ}#) + (lambda (#{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}#) + (if (if (if (symbol? #{pat _hoQGWMnyQPAh3k2jhWJBq}#) #t (if (if (vector? - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (= (vector-length - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) 4) (eq? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 1)) #f)) (and-map - (lambda (#{x _85hotwsCta0JfYIjI4Lms}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJCG}#) (not (if (eq? (if (if (vector? - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (= (vector-length - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) 4) (eq? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 1) - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lms}#) + #{x _hoQGWMnyQPAh3k2jhWJCG}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lms}#) + #{x _hoQGWMnyQPAh3k2jhWJCG}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lms}# + #{x _hoQGWMnyQPAh3k2jhWJCG}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _85hotwsCta0JfYIjI4Lms}# + #{x _hoQGWMnyQPAh3k2jhWJCG}# 1) - #{x _85hotwsCta0JfYIjI4Lms}#)) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{x _hoQGWMnyQPAh3k2jhWJCG}#)) + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4Lms}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWJCG}# '(()))) #f))) (cons '#(syntax-object @@ -18686,7 +18686,7 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{keys _85hotwsCta0JfYIjI4Llj}#)) + #{keys _hoQGWMnyQPAh3k2jhWJA9}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -20546,7 +20546,7 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object pad ((top) @@ -21003,7 +21003,7 @@ ("1og" "1of" "1oe"))) (hygiene guile)) '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object _ ((top) @@ -21461,168 +21461,168 @@ (hygiene guile)) '(()))) #f) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{exp _85hotwsCta0JfYIjI4LmR}# - #{r _85hotwsCta0JfYIjI4Lll}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}# + #{r _hoQGWMnyQPAh3k2jhWJA@}# '(()) - #{mod _85hotwsCta0JfYIjI4Llm}#) - (let ((#{labels _85hotwsCta0JfYIjI4Lpc}# - (list (#{gen-label _85hotwsCta0JfYIjI4J3p}#))) - (#{var _85hotwsCta0JfYIjI4Lpd}# - (let ((#{id _85hotwsCta0JfYIjI4LqD}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWJE2}# + (list (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) + (#{var _hoQGWMnyQPAh3k2jhWJE3}# + (let ((#{id _hoQGWMnyQPAh3k2jhWJFd}# (if (if (vector? - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (= (vector-length - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) 4) (eq? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 1) - #{pat _85hotwsCta0JfYIjI4LmQ}#))) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4LqD}#) + #{id _hoQGWMnyQPAh3k2jhWJFd}#) " "))))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# #f - (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}# + (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# #f (list (syntax->datum - #{pat _85hotwsCta0JfYIjI4LmQ}#)) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#)) #f - (list #{var _85hotwsCta0JfYIjI4Lpd}#) + (list #{var _hoQGWMnyQPAh3k2jhWJE3}#) '() - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{exp _85hotwsCta0JfYIjI4LmR}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4Lpc}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWJE2}# (list (cons 'syntax - (cons #{var _85hotwsCta0JfYIjI4Lpd}# + (cons #{var _hoQGWMnyQPAh3k2jhWJE3}# 0))) - #{r _85hotwsCta0JfYIjI4Lll}#) - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - (list #{pat _85hotwsCta0JfYIjI4LmQ}#) - #{labels _85hotwsCta0JfYIjI4Lpc}# + #{r _hoQGWMnyQPAh3k2jhWJA@}#) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{labels _hoQGWMnyQPAh3k2jhWJE2}# '(())) - #{mod _85hotwsCta0JfYIjI4Llm}#)) - (list #{x _85hotwsCta0JfYIjI4Lli}#)))) - (#{gen-clause _85hotwsCta0JfYIjI4LfS}# - #{x _85hotwsCta0JfYIjI4Lli}# - #{keys _85hotwsCta0JfYIjI4Llj}# - (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#) - #{r _85hotwsCta0JfYIjI4Lll}# - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) + (list #{x _hoQGWMnyQPAh3k2jhWJA8}#)))) + (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# + #{x _hoQGWMnyQPAh3k2jhWJA8}# + #{keys _hoQGWMnyQPAh3k2jhWJA9}# + (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) + #{r _hoQGWMnyQPAh3k2jhWJA@}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# #t - #{exp _85hotwsCta0JfYIjI4LmR}# - #{mod _85hotwsCta0JfYIjI4Llm}#))) - #{tmp _85hotwsCta0JfYIjI4LmO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LuP}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#))) + #{tmp _hoQGWMnyQPAh3k2jhWJBo}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJJp}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4LmN}# + #{tmp _hoQGWMnyQPAh3k2jhWJBn}# '(any any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LuP}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJJp}# (@apply - (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}#) + (lambda (#{pat _hoQGWMnyQPAh3k2jhWJJr}# + #{fender _hoQGWMnyQPAh3k2jhWJJs}# + #{exp _hoQGWMnyQPAh3k2jhWJJt}#) + (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# + #{x _hoQGWMnyQPAh3k2jhWJA8}# + #{keys _hoQGWMnyQPAh3k2jhWJA9}# + (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) + #{r _hoQGWMnyQPAh3k2jhWJA@}# + #{pat _hoQGWMnyQPAh3k2jhWJJr}# + #{fender _hoQGWMnyQPAh3k2jhWJJs}# + #{exp _hoQGWMnyQPAh3k2jhWJJt}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) + #{tmp _hoQGWMnyQPAh3k2jhWJJp}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses _85hotwsCta0JfYIjI4Llk}#))))))))))) - (lambda (#{e _85hotwsCta0JfYIjI4LfU}# - #{r _85hotwsCta0JfYIjI4LfV}# - #{w _85hotwsCta0JfYIjI4LfW}# - #{s _85hotwsCta0JfYIjI4LfX}# - #{mod _85hotwsCta0JfYIjI4LfY}#) - (let ((#{e _85hotwsCta0JfYIjI4LfZ}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))))))))))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWI6u}# + #{r _hoQGWMnyQPAh3k2jhWI6v}# + #{w _hoQGWMnyQPAh3k2jhWI6w}# + #{s _hoQGWMnyQPAh3k2jhWI6x}# + #{mod _hoQGWMnyQPAh3k2jhWI6y}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWI6z}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4LfU}#) - #{s _85hotwsCta0JfYIjI4LfX}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWI6u}#) + #{s _hoQGWMnyQPAh3k2jhWI6x}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4LfU}# - #{s _85hotwsCta0JfYIjI4LfX}#)) - #{e _85hotwsCta0JfYIjI4LfU}#) - #{w _85hotwsCta0JfYIjI4LfW}# - #{mod _85hotwsCta0JfYIjI4LfY}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Lfb}# + #{e _hoQGWMnyQPAh3k2jhWI6u}# + #{s _hoQGWMnyQPAh3k2jhWI6x}#)) + #{e _hoQGWMnyQPAh3k2jhWI6u}#) + #{w _hoQGWMnyQPAh3k2jhWI6w}# + #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWI61}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LfZ}# + #{e _hoQGWMnyQPAh3k2jhWI6z}# '(_ any each-any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Lfb}# + (if #{tmp _hoQGWMnyQPAh3k2jhWI61}# (@apply - (lambda (#{val _85hotwsCta0JfYIjI4Lf0}# - #{key _85hotwsCta0JfYIjI4Lf1}# - #{m _85hotwsCta0JfYIjI4Lf2}#) + (lambda (#{val _hoQGWMnyQPAh3k2jhWI7O}# + #{key _hoQGWMnyQPAh3k2jhWI7P}# + #{m _hoQGWMnyQPAh3k2jhWI7Q}#) (if (and-map - (lambda (#{x _85hotwsCta0JfYIjI4Lf3}#) - (if (if (symbol? #{x _85hotwsCta0JfYIjI4Lf3}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWI7R}#) + (if (if (symbol? #{x _hoQGWMnyQPAh3k2jhWI7R}#) #t (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 1)) #f)) (not (if (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 1)) #f) (if (eq? (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 1) - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (if (= (vector-length '#(syntax-object ... @@ -22513,10 +22513,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4Lf3}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -22958,873 +22958,891 @@ #f) #f)) #f)) - #{key _85hotwsCta0JfYIjI4Lf1}#) - (let ((#{x _85hotwsCta0JfYIjI4Lh1}# + #{key _hoQGWMnyQPAh3k2jhWI7P}#) + (let ((#{x _hoQGWMnyQPAh3k2jhWI9P}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - #{s _85hotwsCta0JfYIjI4LfX}# - (let ((#{req _85hotwsCta0JfYIjI4Lj3}# (list 'tmp)) - (#{vars _85hotwsCta0JfYIjI4Lj5}# - (list #{x _85hotwsCta0JfYIjI4Lh1}#)) - (#{exp _85hotwsCta0JfYIjI4Lj7}# - (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}# + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + #{s _hoQGWMnyQPAh3k2jhWI6x}# + (let ((#{req _hoQGWMnyQPAh3k2jhWI@R}# (list 'tmp)) + (#{vars _hoQGWMnyQPAh3k2jhWI@T}# + (list #{x _hoQGWMnyQPAh3k2jhWI9P}#)) + (#{exp _hoQGWMnyQPAh3k2jhWI@V}# + (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x _85hotwsCta0JfYIjI4Lh1}#) - #{key _85hotwsCta0JfYIjI4Lf1}# - #{m _85hotwsCta0JfYIjI4Lf2}# - #{r _85hotwsCta0JfYIjI4LfV}# - #{mod _85hotwsCta0JfYIjI4LfY}#))) - (let ((#{body _85hotwsCta0JfYIjI4LkA}# + #{x _hoQGWMnyQPAh3k2jhWI9P}#) + #{key _hoQGWMnyQPAh3k2jhWI7P}# + #{m _hoQGWMnyQPAh3k2jhWI7Q}# + #{r _hoQGWMnyQPAh3k2jhWI6v}# + #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) + (let ((#{body _hoQGWMnyQPAh3k2jhWI@a}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _85hotwsCta0JfYIjI4Lj3}# + #{req _hoQGWMnyQPAh3k2jhWI@R}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4Lj5}# - #{exp _85hotwsCta0JfYIjI4Lj7}# + #{vars _hoQGWMnyQPAh3k2jhWI@T}# + #{exp _hoQGWMnyQPAh3k2jhWI@V}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _85hotwsCta0JfYIjI4LkA}#))) - (list (#{expand _85hotwsCta0JfYIjI4J4L}# - #{val _85hotwsCta0JfYIjI4Lf0}# - #{r _85hotwsCta0JfYIjI4LfV}# + #{body _hoQGWMnyQPAh3k2jhWI@a}#))) + (list (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWI7O}# + #{r _hoQGWMnyQPAh3k2jhWI6v}# '(()) - #{mod _85hotwsCta0JfYIjI4LfY}#)))) + #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e _85hotwsCta0JfYIjI4LfZ}#))) - #{tmp _85hotwsCta0JfYIjI4Lfb}#) + #{e _hoQGWMnyQPAh3k2jhWI6z}#))) + #{tmp _hoQGWMnyQPAh3k2jhWI61}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LfZ}#))))))) + #{e _hoQGWMnyQPAh3k2jhWI6z}#))))))) (set! macroexpand (lambda* - (#{x _85hotwsCta0JfYIjI4MJo}# + (#{x _hoQGWMnyQPAh3k2jhWJlC}# #:optional - (#{m _85hotwsCta0JfYIjI4MJp}# 'e) - (#{esew _85hotwsCta0JfYIjI4MJq}# '(eval))) - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - (list #{x _85hotwsCta0JfYIjI4MJo}#) + (#{m _hoQGWMnyQPAh3k2jhWJlD}# 'e) + (#{esew _hoQGWMnyQPAh3k2jhWJlE}# '(eval))) + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + (list #{x _hoQGWMnyQPAh3k2jhWJlC}#) '() '((top)) #f - #{m _85hotwsCta0JfYIjI4MJp}# - #{esew _85hotwsCta0JfYIjI4MJq}# + #{m _hoQGWMnyQPAh3k2jhWJlD}# + #{esew _hoQGWMnyQPAh3k2jhWJlE}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x _85hotwsCta0JfYIjI4MJt}#) - (if (if (vector? #{x _85hotwsCta0JfYIjI4MJt}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MJt}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJlH}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJlH}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJlH}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 1)) #f))) (set! datum->syntax - (lambda (#{id _85hotwsCta0JfYIjI4MKG}# - #{datum _85hotwsCta0JfYIjI4MKH}#) - (let ((#{wrap _85hotwsCta0JfYIjI4MKM}# - (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 2)) - (#{module _85hotwsCta0JfYIjI4MKN}# - (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 3))) + (lambda (#{id _hoQGWMnyQPAh3k2jhWJlg}# + #{datum _hoQGWMnyQPAh3k2jhWJlh}#) + (let ((#{wrap _hoQGWMnyQPAh3k2jhWJlm}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 2)) + (#{module _hoQGWMnyQPAh3k2jhWJln}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 3))) (vector 'syntax-object - #{datum _85hotwsCta0JfYIjI4MKH}# - #{wrap _85hotwsCta0JfYIjI4MKM}# - #{module _85hotwsCta0JfYIjI4MKN}#)))) + #{datum _hoQGWMnyQPAh3k2jhWJlh}# + #{wrap _hoQGWMnyQPAh3k2jhWJlm}# + #{module _hoQGWMnyQPAh3k2jhWJln}#)))) (set! syntax->datum - (lambda (#{x _85hotwsCta0JfYIjI4MKU}#) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{x _85hotwsCta0JfYIjI4MKU}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJlu}#) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{x _hoQGWMnyQPAh3k2jhWJlu}# '(())))) (set! syntax-source - (lambda (#{x _85hotwsCta0JfYIjI4MKX}#) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{x _85hotwsCta0JfYIjI4MKX}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJlx}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{x _hoQGWMnyQPAh3k2jhWJlx}#))) + (set! syntax-module + (lambda (#{id _hoQGWMnyQPAh3k2jhWJoK}#) + (begin + (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoK}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoK}#) + 4) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 1)) + #f)) + (syntax-violation + 'syntax-module + "invalid argument" + #{id _hoQGWMnyQPAh3k2jhWJoK}#)) + (cdr (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 3))))) (set! syntax-local-binding - (lambda (#{id _85hotwsCta0JfYIjI4MMw}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWJoz}#) (begin - (if (not (if (if (vector? #{id _85hotwsCta0JfYIjI4MMw}#) - (if (= (vector-length #{id _85hotwsCta0JfYIjI4MMw}#) + (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoz}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoz}#) 4) - (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 0) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1)) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) #f)) (syntax-violation 'syntax-local-binding "invalid argument" - #{id _85hotwsCta0JfYIjI4MMw}#)) + #{id _hoQGWMnyQPAh3k2jhWJoz}#)) ((fluid-ref - #{transformer-environment _85hotwsCta0JfYIjI4J39}#) - (lambda (#{e _85hotwsCta0JfYIjI4MNZ}# - #{r _85hotwsCta0JfYIjI4MNa}# - #{w _85hotwsCta0JfYIjI4MNb}# - #{s _85hotwsCta0JfYIjI4MNc}# - #{rib _85hotwsCta0JfYIjI4MNd}# - #{mod _85hotwsCta0JfYIjI4MNe}#) + #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWJpc}# + #{r _hoQGWMnyQPAh3k2jhWJpd}# + #{w _hoQGWMnyQPAh3k2jhWJpe}# + #{s _hoQGWMnyQPAh3k2jhWJpf}# + #{rib _hoQGWMnyQPAh3k2jhWJpg}# + #{mod _hoQGWMnyQPAh3k2jhWJph}#) (call-with-values (lambda () - (let ((#{id _85hotwsCta0JfYIjI4MNh}# - (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1)) - (#{w _85hotwsCta0JfYIjI4MNi}# - (let ((#{w _85hotwsCta0JfYIjI4MNt}# + (let ((#{id _hoQGWMnyQPAh3k2jhWJpk}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) + (#{w _hoQGWMnyQPAh3k2jhWJpl}# + (let ((#{w _hoQGWMnyQPAh3k2jhWJpw}# (vector-ref - #{id _85hotwsCta0JfYIjI4MMw}# + #{id _hoQGWMnyQPAh3k2jhWJoz}# 2))) - (let ((#{ms _85hotwsCta0JfYIjI4MNu}# - (car #{w _85hotwsCta0JfYIjI4MNt}#)) - (#{s _85hotwsCta0JfYIjI4MNv}# - (cdr #{w _85hotwsCta0JfYIjI4MNt}#))) - (if (if (pair? #{ms _85hotwsCta0JfYIjI4MNu}#) - (eq? (car #{ms _85hotwsCta0JfYIjI4MNu}#) + (let ((#{ms _hoQGWMnyQPAh3k2jhWJpx}# + (car #{w _hoQGWMnyQPAh3k2jhWJpw}#)) + (#{s _hoQGWMnyQPAh3k2jhWJpy}# + (cdr #{w _hoQGWMnyQPAh3k2jhWJpw}#))) + (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWJpx}#) + (eq? (car #{ms _hoQGWMnyQPAh3k2jhWJpx}#) #f) #f) - (cons (cdr #{ms _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}# + (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWJpx}#) + (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# + (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# + (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#)) + (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#))) + (cons #{ms _hoQGWMnyQPAh3k2jhWJpx}# + (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# + (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# + #{s _hoQGWMnyQPAh3k2jhWJpy}#) + #{s _hoQGWMnyQPAh3k2jhWJpy}#)))))) + (#{mod _hoQGWMnyQPAh3k2jhWJpn}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 3))) + (let ((#{n _hoQGWMnyQPAh3k2jhWJpq}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# + #{w _hoQGWMnyQPAh3k2jhWJpl}#))) + (if (symbol? #{n _hoQGWMnyQPAh3k2jhWJpq}#) + (let ((#{mod _hoQGWMnyQPAh3k2jhWJp4}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4MNh}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# 0) 'syntax-object) #f) #f) - (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}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJpk}# 3) + #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWJp5}# + (let ((#{t _hoQGWMnyQPAh3k2jhWJp6}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWJpq}# + #{mod _hoQGWMnyQPAh3k2jhWJp4}#))) + (if #{t _hoQGWMnyQPAh3k2jhWJp6}# + #{t _hoQGWMnyQPAh3k2jhWJp6}# '(global))))) - (if (eq? (car #{b _85hotwsCta0JfYIjI4MN2}#) + (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) 'global) (values 'global - #{n _85hotwsCta0JfYIjI4MNn}# - #{mod _85hotwsCta0JfYIjI4MN1}#) + #{n _hoQGWMnyQPAh3k2jhWJpq}# + #{mod _hoQGWMnyQPAh3k2jhWJp4}#) (values - (car #{b _85hotwsCta0JfYIjI4MN2}#) - (cdr #{b _85hotwsCta0JfYIjI4MN2}#) - #{mod _85hotwsCta0JfYIjI4MN1}#)))) - (if (string? #{n _85hotwsCta0JfYIjI4MNn}#) - (let ((#{mod _85hotwsCta0JfYIjI4MOR}# + (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) + (cdr #{b _hoQGWMnyQPAh3k2jhWJp5}#) + #{mod _hoQGWMnyQPAh3k2jhWJp4}#)))) + (if (string? #{n _hoQGWMnyQPAh3k2jhWJpq}#) + (let ((#{mod _hoQGWMnyQPAh3k2jhWJqU}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4MNh}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4MNh}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# 3) - #{mod _85hotwsCta0JfYIjI4MNk}#))) - (let ((#{b _85hotwsCta0JfYIjI4MOS}# - (let ((#{t _85hotwsCta0JfYIjI4MOT}# + #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWJqV}# + (let ((#{t _hoQGWMnyQPAh3k2jhWJqW}# (assq-ref - #{r _85hotwsCta0JfYIjI4MNa}# - #{n _85hotwsCta0JfYIjI4MNn}#))) - (if #{t _85hotwsCta0JfYIjI4MOT}# - #{t _85hotwsCta0JfYIjI4MOT}# + #{r _hoQGWMnyQPAh3k2jhWJpd}# + #{n _hoQGWMnyQPAh3k2jhWJpq}#))) + (if #{t _hoQGWMnyQPAh3k2jhWJqW}# + #{t _hoQGWMnyQPAh3k2jhWJqW}# '(displaced-lexical))))) (values - (car #{b _85hotwsCta0JfYIjI4MOS}#) - (cdr #{b _85hotwsCta0JfYIjI4MOS}#) - #{mod _85hotwsCta0JfYIjI4MOR}#))) + (car #{b _hoQGWMnyQPAh3k2jhWJqV}#) + (cdr #{b _hoQGWMnyQPAh3k2jhWJqV}#) + #{mod _hoQGWMnyQPAh3k2jhWJqU}#))) (error "unexpected id-var-name" - #{id _85hotwsCta0JfYIjI4MNh}# - #{w _85hotwsCta0JfYIjI4MNi}# - #{n _85hotwsCta0JfYIjI4MNn}#)))))) - (lambda (#{type _85hotwsCta0JfYIjI4MOg}# - #{value _85hotwsCta0JfYIjI4MOh}# - #{mod _85hotwsCta0JfYIjI4MOi}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'lexical) + #{id _hoQGWMnyQPAh3k2jhWJpk}# + #{w _hoQGWMnyQPAh3k2jhWJpl}# + #{n _hoQGWMnyQPAh3k2jhWJpq}#)))))) + (lambda (#{type _hoQGWMnyQPAh3k2jhWJqj}# + #{value _hoQGWMnyQPAh3k2jhWJqk}# + #{mod _hoQGWMnyQPAh3k2jhWJql}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'lexical) (values 'lexical - #{value _85hotwsCta0JfYIjI4MOh}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'macro) - (values 'macro #{value _85hotwsCta0JfYIjI4MOh}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'syntax) + #{value _hoQGWMnyQPAh3k2jhWJqk}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'macro) + (values 'macro #{value _hoQGWMnyQPAh3k2jhWJqk}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'syntax) (values 'pattern-variable - #{value _85hotwsCta0JfYIjI4MOh}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# + #{value _hoQGWMnyQPAh3k2jhWJqk}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'global) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'global) (values 'global - (cons #{value _85hotwsCta0JfYIjI4MOh}# - (cdr #{mod _85hotwsCta0JfYIjI4MOi}#))) + (cons #{value _hoQGWMnyQPAh3k2jhWJqk}# + (cdr #{mod _hoQGWMnyQPAh3k2jhWJql}#))) (values 'other #f))))))))))))) (set! syntax-locally-bound-identifiers - (lambda (#{x _85hotwsCta0JfYIjI4MOt}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJqw}#) (begin - (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MOt}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MOt}#) + (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJqw}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJqw}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 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))))) + #{x _hoQGWMnyQPAh3k2jhWJqw}#)) + (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 2) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 3))))) (set! generate-temporaries - (lambda (#{ls _85hotwsCta0JfYIjI4MQY}#) + (lambda (#{ls _hoQGWMnyQPAh3k2jhWJsb}#) (begin - (if (not (list? #{ls _85hotwsCta0JfYIjI4MQY}#)) + (if (not (list? #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls _85hotwsCta0JfYIjI4MQY}#)) - (let ((#{mod _85hotwsCta0JfYIjI4MQg}# + #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) + (let ((#{mod _hoQGWMnyQPAh3k2jhWJsj}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x _85hotwsCta0JfYIjI4MQh}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWJsk}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (gensym) '((top)) - #{mod _85hotwsCta0JfYIjI4MQg}#)) - #{ls _85hotwsCta0JfYIjI4MQY}#))))) + #{mod _hoQGWMnyQPAh3k2jhWJsj}#)) + #{ls _hoQGWMnyQPAh3k2jhWJsb}#))))) (set! free-identifier=? - (lambda (#{x _85hotwsCta0JfYIjI4MQl}# - #{y _85hotwsCta0JfYIjI4MQm}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJso}# + #{y _hoQGWMnyQPAh3k2jhWJsp}#) (begin - (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#) + (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x _85hotwsCta0JfYIjI4MQl}#)) - (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#) + #{x _hoQGWMnyQPAh3k2jhWJso}#)) + (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1)) + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y _85hotwsCta0JfYIjI4MQm}#)) - (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#) + #{y _hoQGWMnyQPAh3k2jhWJsp}#)) + (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1) - #{x _85hotwsCta0JfYIjI4MQl}#) - (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1) + #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) 'syntax-object) #f) #f) - (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1) - #{y _85hotwsCta0JfYIjI4MQm}#)) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4MQl}# + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1) + #{y _hoQGWMnyQPAh3k2jhWJsp}#)) + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWJso}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{y _85hotwsCta0JfYIjI4MQm}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{y _hoQGWMnyQPAh3k2jhWJsp}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x _85hotwsCta0JfYIjI4MS8}# - #{y _85hotwsCta0JfYIjI4MS9}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJu@}# + #{y _hoQGWMnyQPAh3k2jhWJvA}#) (begin - (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#) + (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x _85hotwsCta0JfYIjI4MS8}#)) - (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#) + #{x _hoQGWMnyQPAh3k2jhWJu@}#)) + (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1)) + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y _85hotwsCta0JfYIjI4MS9}#)) - (if (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#) + #{y _hoQGWMnyQPAh3k2jhWJvA}#)) + (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) 'syntax-object) #f) #f) - (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#) + (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) 'syntax-object) #f) #f) #f) - (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))) + (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1) + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 2)) + (car (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 2))) #f) - (eq? #{x _85hotwsCta0JfYIjI4MS8}# - #{y _85hotwsCta0JfYIjI4MS9}#))))) + (eq? #{x _hoQGWMnyQPAh3k2jhWJu@}# + #{y _hoQGWMnyQPAh3k2jhWJvA}#))))) (set! syntax-violation (lambda* - (#{who _85hotwsCta0JfYIjI4MVC}# - #{message _85hotwsCta0JfYIjI4MVD}# - #{form _85hotwsCta0JfYIjI4MVE}# + (#{who _hoQGWMnyQPAh3k2jhWJxF}# + #{message _hoQGWMnyQPAh3k2jhWJxG}# + #{form _hoQGWMnyQPAh3k2jhWJxH}# #:optional - (#{subform _85hotwsCta0JfYIjI4MVF}# #f)) + (#{subform _hoQGWMnyQPAh3k2jhWJxI}# #f)) (begin - (if (not (if (not #{who _85hotwsCta0JfYIjI4MVC}#) - (not #{who _85hotwsCta0JfYIjI4MVC}#) - (let ((#{t _85hotwsCta0JfYIjI4MVX}# - (string? #{who _85hotwsCta0JfYIjI4MVC}#))) - (if #{t _85hotwsCta0JfYIjI4MVX}# - #{t _85hotwsCta0JfYIjI4MVX}# - (symbol? #{who _85hotwsCta0JfYIjI4MVC}#))))) + (if (not (if (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) + (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWJxa}# + (string? #{who _hoQGWMnyQPAh3k2jhWJxF}#))) + (if #{t _hoQGWMnyQPAh3k2jhWJxa}# + #{t _hoQGWMnyQPAh3k2jhWJxa}# + (symbol? #{who _hoQGWMnyQPAh3k2jhWJxF}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who _85hotwsCta0JfYIjI4MVC}#)) - (if (not (string? #{message _85hotwsCta0JfYIjI4MVD}#)) + #{who _hoQGWMnyQPAh3k2jhWJxF}#)) + (if (not (string? #{message _hoQGWMnyQPAh3k2jhWJxG}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message _85hotwsCta0JfYIjI4MVD}#)) + #{message _hoQGWMnyQPAh3k2jhWJxG}#)) (throw 'syntax-error - #{who _85hotwsCta0JfYIjI4MVC}# - #{message _85hotwsCta0JfYIjI4MVD}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - (if #{form _85hotwsCta0JfYIjI4MVE}# - #{form _85hotwsCta0JfYIjI4MVE}# - #{subform _85hotwsCta0JfYIjI4MVF}#)) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{form _85hotwsCta0JfYIjI4MVE}# + #{who _hoQGWMnyQPAh3k2jhWJxF}# + #{message _hoQGWMnyQPAh3k2jhWJxG}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (if #{form _hoQGWMnyQPAh3k2jhWJxH}# + #{form _hoQGWMnyQPAh3k2jhWJxH}# + #{subform _hoQGWMnyQPAh3k2jhWJxI}#)) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{form _hoQGWMnyQPAh3k2jhWJxH}# '(())) - (if #{subform _85hotwsCta0JfYIjI4MVF}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{subform _85hotwsCta0JfYIjI4MVF}# + (if #{subform _hoQGWMnyQPAh3k2jhWJxI}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{subform _hoQGWMnyQPAh3k2jhWJxI}# '(())) #f))))) (letrec* - ((#{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}# + ((#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9w}# + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# + #{mod _hoQGWMnyQPAh3k2jhWJ9z}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (let ((#{first _hoQGWMnyQPAh3k2jhWJ90}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# '() - #{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}#) + #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) + (if #{first _hoQGWMnyQPAh3k2jhWJ90}# + (let ((#{rest _hoQGWMnyQPAh3k2jhWJ93}# + (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# + #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) + (if #{rest _hoQGWMnyQPAh3k2jhWJ93}# + (cons #{first _hoQGWMnyQPAh3k2jhWJ90}# + #{rest _hoQGWMnyQPAh3k2jhWJ93}#) #f)) #f)) - (if (null? #{e _85hotwsCta0JfYIjI4Mht}#) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) '() - (if (if (vector? #{e _85hotwsCta0JfYIjI4Mht}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4Mht}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9w}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 0) 'syntax-object) #f) #f) - (#{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)) + (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 1) + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 2)) + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 3)) #f))))) - (#{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}#) + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ$T}# + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (let ((#{l _hoQGWMnyQPAh3k2jhWJ$W}# + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#))) + (if #{l _hoQGWMnyQPAh3k2jhWJ$W}# + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) + #{l _hoQGWMnyQPAh3k2jhWJ$W}#) #f)) - (if (null? #{e _85hotwsCta0JfYIjI4MiQ}#) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) '() - (if (if (vector? #{e _85hotwsCta0JfYIjI4MiQ}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4MiQ}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ$T}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 0) 'syntax-object) #f) #f) - (#{match-each-any _85hotwsCta0JfYIjI4MYk}# - (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 1) - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4MiR}# - (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 2)) - #{mod _85hotwsCta0JfYIjI4MiS}#) + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 1) + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 2)) + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) #f))))) - (#{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}# + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWJ$u}# + #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (if (null? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + #{r _hoQGWMnyQPAh3k2jhWJ$v}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# '_) + #{r _hoQGWMnyQPAh3k2jhWJ$v}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'any) + (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (car #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (cdr #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#)) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'each-any) + (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 0))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each+) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# (reverse - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 2)) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 3) - #{r _85hotwsCta0JfYIjI4Mis}#))) - (if (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 2)) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 3) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#))) + (if (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'free-id) #t - (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'atom)) - #{r _85hotwsCta0JfYIjI4Mis}# - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + #{r _hoQGWMnyQPAh3k2jhWJ$v}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# '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}# + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#))))))))))))) + (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# + (lambda (#{r* _hoQGWMnyQPAh3k2jhWJ@D}# + #{r _hoQGWMnyQPAh3k2jhWJ@E}#) + (if (null? (car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)) + #{r _hoQGWMnyQPAh3k2jhWJ@E}# + (cons (map car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) + (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# + (map cdr #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) + #{r _hoQGWMnyQPAh3k2jhWJ@E}#))))) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + (if (null? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + #{r _hoQGWMnyQPAh3k2jhWJ1L}# #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}#) + (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (car #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (cdr #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) #f) - (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}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ1J}# 'each-any) + (let ((#{l _hoQGWMnyQPAh3k2jhWJ1R}# + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (if #{l _hoQGWMnyQPAh3k2jhWJ1R}# + (cons #{l _hoQGWMnyQPAh3k2jhWJ1R}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}#) #f)) - (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}# + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 0))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + #{r _hoQGWMnyQPAh3k2jhWJ1L}#) + (let ((#{l _hoQGWMnyQPAh3k2jhWJ1d}# + (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (if #{l _hoQGWMnyQPAh3k2jhWJ1d}# (letrec* - ((#{collect _85hotwsCta0JfYIjI4MZd}# - (lambda (#{l _85hotwsCta0JfYIjI4MaQ}#) - (if (null? (car #{l _85hotwsCta0JfYIjI4MaQ}#)) - #{r _85hotwsCta0JfYIjI4MZI}# + ((#{collect _hoQGWMnyQPAh3k2jhWJ1g}# + (lambda (#{l _hoQGWMnyQPAh3k2jhWJ2T}#) + (if (null? (car #{l _hoQGWMnyQPAh3k2jhWJ2T}#)) + #{r _hoQGWMnyQPAh3k2jhWJ1L}# (cons (map car - #{l _85hotwsCta0JfYIjI4MaQ}#) - (#{collect _85hotwsCta0JfYIjI4MZd}# + #{l _hoQGWMnyQPAh3k2jhWJ2T}#) + (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# (map cdr - #{l _85hotwsCta0JfYIjI4MaQ}#))))))) - (#{collect _85hotwsCta0JfYIjI4MZd}# - #{l _85hotwsCta0JfYIjI4MZa}#)) + #{l _hoQGWMnyQPAh3k2jhWJ2T}#))))))) + (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# + #{l _hoQGWMnyQPAh3k2jhWJ1d}#)) #f))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each+) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each+) (call-with-values (lambda () - (let ((#{x-pat _85hotwsCta0JfYIjI4MaZ}# + (let ((#{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)) - (#{y-pat _85hotwsCta0JfYIjI4Maa}# + (#{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 2)) - (#{z-pat _85hotwsCta0JfYIjI4Mab}# + (#{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 3))) (letrec* - ((#{f _85hotwsCta0JfYIjI4Maf}# - (lambda (#{e _85hotwsCta0JfYIjI4Mah}# - #{w _85hotwsCta0JfYIjI4Mai}#) - (if (pair? #{e _85hotwsCta0JfYIjI4Mah}#) + ((#{f _hoQGWMnyQPAh3k2jhWJ2i}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ2k}#) (call-with-values (lambda () - (#{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}# + (#{f _hoQGWMnyQPAh3k2jhWJ2i}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{w _hoQGWMnyQPAh3k2jhWJ2l}#)) + (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ2m}# + #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# + #{r _hoQGWMnyQPAh3k2jhWJ2o}#) + (if #{r _hoQGWMnyQPAh3k2jhWJ2o}# + (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) + (let ((#{xr _hoQGWMnyQPAh3k2jhWJ2p}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}# '() - #{mod _85hotwsCta0JfYIjI4MZJ}#))) - (if #{xr _85hotwsCta0JfYIjI4Mam}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (if #{xr _hoQGWMnyQPAh3k2jhWJ2p}# (values - (cons #{xr _85hotwsCta0JfYIjI4Mam}# - #{xr* _85hotwsCta0JfYIjI4Maj}#) - #{y-pat _85hotwsCta0JfYIjI4Mak}# - #{r _85hotwsCta0JfYIjI4Mal}#) + (cons #{xr _hoQGWMnyQPAh3k2jhWJ2p}# + #{xr* _hoQGWMnyQPAh3k2jhWJ2m}#) + #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# + #{r _hoQGWMnyQPAh3k2jhWJ2o}#) (values #f #f #f))) (values '() - (cdr #{y-pat _85hotwsCta0JfYIjI4Mak}#) - (#{match _85hotwsCta0JfYIjI4MYo}# - (car #{e _85hotwsCta0JfYIjI4Mah}#) - (car #{y-pat _85hotwsCta0JfYIjI4Mak}#) - #{w _85hotwsCta0JfYIjI4Mai}# - #{r _85hotwsCta0JfYIjI4Mal}# - #{mod _85hotwsCta0JfYIjI4MZJ}#))) + (cdr #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + (car #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) + #{w _hoQGWMnyQPAh3k2jhWJ2l}# + #{r _hoQGWMnyQPAh3k2jhWJ2o}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) (values #f #f #f)))) (if (if (vector? - #{e _85hotwsCta0JfYIjI4Mah}#) + #{e _hoQGWMnyQPAh3k2jhWJ2k}#) (if (= (vector-length - #{e _85hotwsCta0JfYIjI4Mah}#) + #{e _hoQGWMnyQPAh3k2jhWJ2k}#) 4) (eq? (vector-ref - #{e _85hotwsCta0JfYIjI4Mah}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}# 0) 'syntax-object) #f) #f) - (#{f _85hotwsCta0JfYIjI4Maf}# + (#{f _hoQGWMnyQPAh3k2jhWJ2i}# (vector-ref - #{e _85hotwsCta0JfYIjI4Mah}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}# 1) - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4Mai}# - #{e _85hotwsCta0JfYIjI4Mah}#)) + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}#)) (values '() - #{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}# + #{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWJ2i}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}#)))) + (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ3D}# + #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}# + #{r _hoQGWMnyQPAh3k2jhWJ3F}#) + (if #{r _hoQGWMnyQPAh3k2jhWJ3F}# + (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#) + (if (null? #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{r _85hotwsCta0JfYIjI4MbC}#) - (#{combine _85hotwsCta0JfYIjI4MYm}# - #{xr* _85hotwsCta0JfYIjI4MbA}# - #{r _85hotwsCta0JfYIjI4MbC}#)) + #{r _hoQGWMnyQPAh3k2jhWJ3F}#) + (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# + #{xr* _hoQGWMnyQPAh3k2jhWJ3D}# + #{r _hoQGWMnyQPAh3k2jhWJ3F}#)) #f) #f))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'free-id) - (if (if (symbol? #{e _85hotwsCta0JfYIjI4MZF}#) + (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) #t - (if (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) (if (= (vector-length - #{e _85hotwsCta0JfYIjI4MZF}#) + #{e _hoQGWMnyQPAh3k2jhWJ1I}#) 4) (eq? (vector-ref - #{e _85hotwsCta0JfYIjI4MZF}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _85hotwsCta0JfYIjI4MZF}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# 1)) #f)) - (if (let ((#{i _85hotwsCta0JfYIjI4MgN}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4MZF}# - #{w _85hotwsCta0JfYIjI4MZH}# - #{mod _85hotwsCta0JfYIjI4MZJ}#)) - (#{j _85hotwsCta0JfYIjI4MgO}# + (if (let ((#{i _hoQGWMnyQPAh3k2jhWJ8Q}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)) + (#{j _hoQGWMnyQPAh3k2jhWJ8R}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1))) (if (eq? (if (if (vector? - #{i _85hotwsCta0JfYIjI4MgN}#) + #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) (if (= (vector-length - #{i _85hotwsCta0JfYIjI4MgN}#) + #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) 4) (eq? (vector-ref - #{i _85hotwsCta0JfYIjI4MgN}# + #{i _hoQGWMnyQPAh3k2jhWJ8Q}# 0) 'syntax-object) #f) #f) (vector-ref - #{i _85hotwsCta0JfYIjI4MgN}# + #{i _hoQGWMnyQPAh3k2jhWJ8Q}# 1) - #{i _85hotwsCta0JfYIjI4MgN}#) + #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) (if (if (vector? - #{j _85hotwsCta0JfYIjI4MgO}#) + #{j _hoQGWMnyQPAh3k2jhWJ8R}#) (if (= (vector-length - #{j _85hotwsCta0JfYIjI4MgO}#) + #{j _hoQGWMnyQPAh3k2jhWJ8R}#) 4) (eq? (vector-ref - #{j _85hotwsCta0JfYIjI4MgO}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}# 0) 'syntax-object) #f) #f) (vector-ref - #{j _85hotwsCta0JfYIjI4MgO}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}# 1) - #{j _85hotwsCta0JfYIjI4MgO}#)) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{i _85hotwsCta0JfYIjI4MgN}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}#)) + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{i _hoQGWMnyQPAh3k2jhWJ8Q}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{j _85hotwsCta0JfYIjI4MgO}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}# '(()))) #f)) - #{r _85hotwsCta0JfYIjI4MZI}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# #f) #f) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'atom) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'atom) (if (equal? - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{e _85hotwsCta0JfYIjI4MZF}# - #{w _85hotwsCta0JfYIjI4MZH}#)) - #{r _85hotwsCta0JfYIjI4MZI}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}#)) + #{r _hoQGWMnyQPAh3k2jhWJ1L}# #f) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'vector) - (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#) - (#{match _85hotwsCta0JfYIjI4MYo}# - (vector->list #{e _85hotwsCta0JfYIjI4MZF}#) - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1) - #{w _85hotwsCta0JfYIjI4MZH}# - #{r _85hotwsCta0JfYIjI4MZI}# - #{mod _85hotwsCta0JfYIjI4MZJ}#) + (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (vector->list #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) #f)))))))))))) - (#{match _85hotwsCta0JfYIjI4MYo}# - (lambda (#{e _85hotwsCta0JfYIjI4MhK}# - #{p _85hotwsCta0JfYIjI4MhL}# - #{w _85hotwsCta0JfYIjI4MhM}# - #{r _85hotwsCta0JfYIjI4MhN}# - #{mod _85hotwsCta0JfYIjI4MhO}#) - (if (not #{r _85hotwsCta0JfYIjI4MhN}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9N}# + #{p _hoQGWMnyQPAh3k2jhWJ9O}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) + (if (not #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) #f - (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}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# '_) + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# 'any) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWJ9N}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) + #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9N}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9N}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 0) 'syntax-object) #f) #f) - (#{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}#)))))))) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 1) + #{p _hoQGWMnyQPAh3k2jhWJ9O}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 2)) + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 3)) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + #{e _hoQGWMnyQPAh3k2jhWJ9N}# + #{p _hoQGWMnyQPAh3k2jhWJ9O}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)))))))) (set! $sc-dispatch - (lambda (#{e _85hotwsCta0JfYIjI4MYp}# - #{p _85hotwsCta0JfYIjI4MYq}#) - (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# 'any) - (list #{e _85hotwsCta0JfYIjI4MYp}#) - (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# '_) + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ0s}# + #{p _hoQGWMnyQPAh3k2jhWJ0t}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# 'any) + (list #{e _hoQGWMnyQPAh3k2jhWJ0s}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# '_) '() - (if (if (vector? #{e _85hotwsCta0JfYIjI4MYp}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4MYp}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ0s}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ0s}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 0) 'syntax-object) #f) #f) - (#{match* _85hotwsCta0JfYIjI4MYn}# - (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 1) - #{p _85hotwsCta0JfYIjI4MYq}# - (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 2) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 1) + #{p _hoQGWMnyQPAh3k2jhWJ0t}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 2) '() - (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 3)) - (#{match* _85hotwsCta0JfYIjI4MYn}# - #{e _85hotwsCta0JfYIjI4MYp}# - #{p _85hotwsCta0JfYIjI4MYq}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 3)) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + #{e _hoQGWMnyQPAh3k2jhWJ0s}# + #{p _hoQGWMnyQPAh3k2jhWJ0t}# '(()) '() #f)))))))))) @@ -23833,82 +23851,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PUl}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PUn}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMwo}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMwq}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PUl}# + #{x _hoQGWMnyQPAh3k2jhWMwo}# '(_ () any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PUn}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMwq}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4PUr}# - #{e2 _85hotwsCta0JfYIjI4PUs}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMwu}# + #{e2 _hoQGWMnyQPAh3k2jhWMwv}#) (cons '#(syntax-object let ((top) - #(ribcage #(e1 e2) #((top) (top)) #("2zm" "2zn")) + #(ribcage #(e1 e2) #((top) (top)) #("2zo" "2zp")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PUr}# - #{e2 _85hotwsCta0JfYIjI4PUs}#)))) - #{tmp _85hotwsCta0JfYIjI4PUn}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PUt}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMwu}# + #{e2 _hoQGWMnyQPAh3k2jhWMwv}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMwq}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMww}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PUl}# + #{x _hoQGWMnyQPAh3k2jhWMwo}# '(_ ((any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PUt}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMww}# (@apply - (lambda (#{out _85hotwsCta0JfYIjI4PUx}# - #{in _85hotwsCta0JfYIjI4PUy}# - #{e1 _85hotwsCta0JfYIjI4PUz}# - #{e2 _85hotwsCta0JfYIjI4PU0}#) + (lambda (#{out _hoQGWMnyQPAh3k2jhWMw0}# + #{in _hoQGWMnyQPAh3k2jhWMw1}# + #{e1 _hoQGWMnyQPAh3k2jhWMw2}# + #{e2 _hoQGWMnyQPAh3k2jhWMw3}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zo" "2zp" "2zq" "2zr")) + #("2zq" "2zr" "2zs" "2zt")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) - #{in _85hotwsCta0JfYIjI4PUy}# + #{in _hoQGWMnyQPAh3k2jhWMw1}# '() - (list #{out _85hotwsCta0JfYIjI4PUx}# + (list #{out _hoQGWMnyQPAh3k2jhWMw0}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zo" "2zp" "2zq" "2zr")) + #("2zq" "2zr" "2zs" "2zt")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PUz}# - #{e2 _85hotwsCta0JfYIjI4PU0}#)))))) - #{tmp _85hotwsCta0JfYIjI4PUt}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PU1}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMw2}# + #{e2 _hoQGWMnyQPAh3k2jhWMw3}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMww}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMw4}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PUl}# + #{x _hoQGWMnyQPAh3k2jhWMwo}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PU1}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMw4}# (@apply - (lambda (#{out _85hotwsCta0JfYIjI4PU5}# - #{in _85hotwsCta0JfYIjI4PU6}# - #{e1 _85hotwsCta0JfYIjI4PU7}# - #{e2 _85hotwsCta0JfYIjI4PU8}#) + (lambda (#{out _hoQGWMnyQPAh3k2jhWMw8}# + #{in _hoQGWMnyQPAh3k2jhWMw9}# + #{e1 _hoQGWMnyQPAh3k2jhWMw$}# + #{e2 _hoQGWMnyQPAh3k2jhWMw@}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zs" "2zt" "2zu" "2zv")) + #("2zu" "2zv" "2zw" "2zx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '#(syntax-object list @@ -23916,56 +23934,56 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zs" "2zt" "2zu" "2zv")) + #("2zu" "2zv" "2zw" "2zx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) - #{in _85hotwsCta0JfYIjI4PU6}#) + #{in _hoQGWMnyQPAh3k2jhWMw9}#) '() - (list #{out _85hotwsCta0JfYIjI4PU5}# + (list #{out _hoQGWMnyQPAh3k2jhWMw8}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zs" "2zt" "2zu" "2zv")) + #("2zu" "2zv" "2zw" "2zx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PU7}# - #{e2 _85hotwsCta0JfYIjI4PU8}#)))))) - #{tmp _85hotwsCta0JfYIjI4PU1}#) + (cons #{e1 _hoQGWMnyQPAh3k2jhWMw$}# + #{e2 _hoQGWMnyQPAh3k2jhWMw@}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMw4}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PUl}#)))))))))) + #{x _hoQGWMnyQPAh3k2jhWMwo}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PVj}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PVl}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMxm}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxo}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PVj}# + #{x _hoQGWMnyQPAh3k2jhWMxm}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp _85hotwsCta0JfYIjI4PVl}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMxo}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PVp}# - #{keyword _85hotwsCta0JfYIjI4PVq}# - #{pattern _85hotwsCta0JfYIjI4PVr}# - #{template _85hotwsCta0JfYIjI4PVs}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWMxs}# + #{keyword _hoQGWMnyQPAh3k2jhWMxt}# + #{pattern _hoQGWMnyQPAh3k2jhWMxu}# + #{template _hoQGWMnyQPAh3k2jhWMxv}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) '(#(syntax-object x @@ -23973,9 +23991,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) (vector '(#(syntax-object @@ -23984,9 +24002,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) . #(syntax-object @@ -23995,9 +24013,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24005,20 +24023,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PVr}#)) + #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) (cons '#(syntax-object x @@ -24026,13 +24044,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - (cons #{k _85hotwsCta0JfYIjI4PVp}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}# - #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#) + (cons #{k _hoQGWMnyQPAh3k2jhWMxs}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}# + #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) (list (cons '#(syntax-object dummy ((top) @@ -24045,10 +24063,10 @@ (top) (top) (top)) - #("2zx" - "2zy" - "2zz" - "300")) + #("2zz" + "300" + "301" + "302")) #(ribcage () () @@ -24056,9 +24074,9 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#) + #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) (list '#(syntax-object syntax ((top) @@ -24071,10 +24089,10 @@ (top) (top) (top)) - #("2zx" - "2zy" - "2zz" - "300")) + #("2zz" + "300" + "301" + "302")) #(ribcage () () @@ -24082,43 +24100,43 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}#))) - #{template _85hotwsCta0JfYIjI4PVs}# - #{pattern _85hotwsCta0JfYIjI4PVr}#)))))) - #{tmp _85hotwsCta0JfYIjI4PVl}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PVv}# + #{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#))) + #{template _hoQGWMnyQPAh3k2jhWMxv}# + #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMxo}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxy}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PVj}# + #{x _hoQGWMnyQPAh3k2jhWMxm}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp _85hotwsCta0JfYIjI4PVv}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMxy}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PVz}# - #{docstring _85hotwsCta0JfYIjI4PV0}# - #{keyword _85hotwsCta0JfYIjI4PV1}# - #{pattern _85hotwsCta0JfYIjI4PV2}# - #{template _85hotwsCta0JfYIjI4PV3}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWMx2}# + #{docstring _hoQGWMnyQPAh3k2jhWMx3}# + #{keyword _hoQGWMnyQPAh3k2jhWMx4}# + #{pattern _hoQGWMnyQPAh3k2jhWMx5}# + #{template _hoQGWMnyQPAh3k2jhWMx6}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PV0}#))) - #{tmp _85hotwsCta0JfYIjI4PVv}#) + #{docstring _hoQGWMnyQPAh3k2jhWMx3}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) #f) (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PV4}# - #{docstring _85hotwsCta0JfYIjI4PV5}# - #{keyword _85hotwsCta0JfYIjI4PV6}# - #{pattern _85hotwsCta0JfYIjI4PV7}# - #{template _85hotwsCta0JfYIjI4PV8}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWMx7}# + #{docstring _hoQGWMnyQPAh3k2jhWMx8}# + #{keyword _hoQGWMnyQPAh3k2jhWMx9}# + #{pattern _hoQGWMnyQPAh3k2jhWMx$}# + #{template _hoQGWMnyQPAh3k2jhWMx@}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) '(#(syntax-object x @@ -24126,11 +24144,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) - #{docstring _85hotwsCta0JfYIjI4PV5}# + #{docstring _hoQGWMnyQPAh3k2jhWMx8}# (vector '(#(syntax-object macro-type @@ -24138,9 +24156,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) . #(syntax-object @@ -24149,9 +24167,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24159,20 +24177,20 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PV7}#)) + #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) (cons '#(syntax-object x @@ -24184,13 +24202,13 @@ pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - (cons #{k _85hotwsCta0JfYIjI4PV4}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}# - #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#) + (cons #{k _hoQGWMnyQPAh3k2jhWMx7}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}# + #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) (list (cons '#(syntax-object dummy ((top) @@ -24205,11 +24223,11 @@ (top) (top) (top)) - #("306" - "307" - "308" + #("308" "309" - "30a")) + "30a" + "30b" + "30c")) #(ribcage () () @@ -24217,10 +24235,10 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#) + #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) (list '#(syntax-object syntax ((top) @@ -24235,11 +24253,11 @@ (top) (top) (top)) - #("306" - "307" - "308" + #("308" "309" - "30a")) + "30a" + "30b" + "30c")) #(ribcage () () @@ -24247,52 +24265,52 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}#))) - #{template _85hotwsCta0JfYIjI4PV8}# - #{pattern _85hotwsCta0JfYIjI4PV7}#)))))) - #{tmp _85hotwsCta0JfYIjI4PVv}#) + #{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#))) + #{template _hoQGWMnyQPAh3k2jhWMx@}# + #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PVj}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWMxm}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PWX}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PWZ}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMya}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyc}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PWX}# + #{x _hoQGWMnyQPAh3k2jhWMya}# '(_ (any . any) any)))) - (if #{tmp _85hotwsCta0JfYIjI4PWZ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMyc}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4PWd}# - #{pattern _85hotwsCta0JfYIjI4PWe}# - #{template _85hotwsCta0JfYIjI4PWf}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWMyg}# + #{pattern _hoQGWMnyQPAh3k2jhWMyh}# + #{template _hoQGWMnyQPAh3k2jhWMyi}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30c" "30d" "30e")) + #("30e" "30f" "30g")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) - #{name _85hotwsCta0JfYIjI4PWd}# + #{name _hoQGWMnyQPAh3k2jhWMyg}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30c" "30d" "30e")) + #("30e" "30f" "30g")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -24301,56 +24319,56 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("30c" "30d" "30e")) + #("30e" "30f" "30g")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PWe}#) - #{template _85hotwsCta0JfYIjI4PWf}#)))) - #{tmp _85hotwsCta0JfYIjI4PWZ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PWg}# + #{pattern _hoQGWMnyQPAh3k2jhWMyh}#) + #{template _hoQGWMnyQPAh3k2jhWMyi}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMyc}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyj}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PWX}# + #{x _hoQGWMnyQPAh3k2jhWMya}# '(_ (any . any) any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PWg}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMyj}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4PWk}# - #{pattern _85hotwsCta0JfYIjI4PWl}# - #{docstring _85hotwsCta0JfYIjI4PWm}# - #{template _85hotwsCta0JfYIjI4PWn}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWMyn}# + #{pattern _hoQGWMnyQPAh3k2jhWMyo}# + #{docstring _hoQGWMnyQPAh3k2jhWMyp}# + #{template _hoQGWMnyQPAh3k2jhWMyq}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PWm}#))) - #{tmp _85hotwsCta0JfYIjI4PWg}#) + #{docstring _hoQGWMnyQPAh3k2jhWMyp}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4PWo}# - #{pattern _85hotwsCta0JfYIjI4PWp}# - #{docstring _85hotwsCta0JfYIjI4PWq}# - #{template _85hotwsCta0JfYIjI4PWr}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWMyr}# + #{pattern _hoQGWMnyQPAh3k2jhWMys}# + #{docstring _hoQGWMnyQPAh3k2jhWMyt}# + #{template _hoQGWMnyQPAh3k2jhWMyu}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30j" "30k" "30l" "30m")) + #("30l" "30m" "30n" "30o")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) - #{name _85hotwsCta0JfYIjI4PWo}# + #{name _hoQGWMnyQPAh3k2jhWMyr}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30j" "30k" "30l" "30m")) + #("30l" "30m" "30n" "30o")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) '() - #{docstring _85hotwsCta0JfYIjI4PWq}# + #{docstring _hoQGWMnyQPAh3k2jhWMyt}# (list (cons '#(syntax-object _ ((top) @@ -24360,52 +24378,52 @@ docstring template) #((top) (top) (top) (top)) - #("30j" "30k" "30l" "30m")) + #("30l" "30m" "30n" "30o")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("30b"))) + #("30d"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PWp}#) - #{template _85hotwsCta0JfYIjI4PWr}#)))) - #{tmp _85hotwsCta0JfYIjI4PWg}#) + #{pattern _hoQGWMnyQPAh3k2jhWMys}#) + #{template _hoQGWMnyQPAh3k2jhWMyu}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PWX}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWMya}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PXN}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PXP}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMzQ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzS}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PXN}# + #{x _hoQGWMnyQPAh3k2jhWMzQ}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PXP}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMzS}# (@apply - (lambda (#{let* _85hotwsCta0JfYIjI4PXT}# - #{x _85hotwsCta0JfYIjI4PXU}# - #{v _85hotwsCta0JfYIjI4PXV}# - #{e1 _85hotwsCta0JfYIjI4PXW}# - #{e2 _85hotwsCta0JfYIjI4PXX}#) + (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzW}# + #{x _hoQGWMnyQPAh3k2jhWMzX}# + #{v _hoQGWMnyQPAh3k2jhWMzY}# + #{e1 _hoQGWMnyQPAh3k2jhWMzZ}# + #{e2 _hoQGWMnyQPAh3k2jhWMza}#) (and-map identifier? - #{x _85hotwsCta0JfYIjI4PXU}#)) - #{tmp _85hotwsCta0JfYIjI4PXP}#) + #{x _hoQGWMnyQPAh3k2jhWMzX}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) #f) (@apply - (lambda (#{let* _85hotwsCta0JfYIjI4PXY}# - #{x _85hotwsCta0JfYIjI4PXZ}# - #{v _85hotwsCta0JfYIjI4PXa}# - #{e1 _85hotwsCta0JfYIjI4PXb}# - #{e2 _85hotwsCta0JfYIjI4PXc}#) + (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzb}# + #{x _hoQGWMnyQPAh3k2jhWMzc}# + #{v _hoQGWMnyQPAh3k2jhWMzd}# + #{e1 _hoQGWMnyQPAh3k2jhWMze}# + #{e2 _hoQGWMnyQPAh3k2jhWMzf}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4PXd}# - (lambda (#{bindings _85hotwsCta0JfYIjI4PXg}#) - (if (null? #{bindings _85hotwsCta0JfYIjI4PXg}#) + ((#{f _hoQGWMnyQPAh3k2jhWMzg}# + (lambda (#{bindings _hoQGWMnyQPAh3k2jhWMzj}#) + (if (null? #{bindings _hoQGWMnyQPAh3k2jhWMzj}#) (cons '#(syntax-object let ((top) @@ -24413,29 +24431,29 @@ #(ribcage #(f bindings) #((top) (top)) - #("30y" "30z")) + #("310" "311")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30t" "30u" "30v" "30w" "30x")) + #("30v" "30w" "30x" "30y" "30z")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30n"))) + #(ribcage #(x) #((top)) #("30p"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PXb}# - #{e2 _85hotwsCta0JfYIjI4PXc}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PXh}# - (list (#{f _85hotwsCta0JfYIjI4PXd}# - (cdr #{bindings _85hotwsCta0JfYIjI4PXg}#)) - (car #{bindings _85hotwsCta0JfYIjI4PXg}#)))) - (let ((#{tmp _85hotwsCta0JfYIjI4PXi}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMze}# + #{e2 _hoQGWMnyQPAh3k2jhWMzf}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzk}# + (list (#{f _hoQGWMnyQPAh3k2jhWMzg}# + (cdr #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)) + (car #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzl}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PXh}# + #{tmp _hoQGWMnyQPAh3k2jhWMzk}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4PXi}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMzl}# (@apply - (lambda (#{body _85hotwsCta0JfYIjI4PXk}# - #{binding _85hotwsCta0JfYIjI4PXl}#) + (lambda (#{body _hoQGWMnyQPAh3k2jhWMzn}# + #{binding _hoQGWMnyQPAh3k2jhWMzo}#) (list '#(syntax-object let ((top) @@ -24443,102 +24461,102 @@ #(ribcage #(body binding) #((top) (top)) - #("310" "311")) + #("312" "313")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("30y" "30z")) + #("310" "311")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30t" "30u" "30v" "30w" "30x")) + #("30v" "30w" "30x" "30y" "30z")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30n"))) + #(ribcage #(x) #((top)) #("30p"))) (hygiene guile)) - (list #{binding _85hotwsCta0JfYIjI4PXl}#) - #{body _85hotwsCta0JfYIjI4PXk}#)) - #{tmp _85hotwsCta0JfYIjI4PXi}#) + (list #{binding _hoQGWMnyQPAh3k2jhWMzo}#) + #{body _hoQGWMnyQPAh3k2jhWMzn}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMzl}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PXh}#)))))))) - (#{f _85hotwsCta0JfYIjI4PXd}# + #{tmp _hoQGWMnyQPAh3k2jhWMzk}#)))))))) + (#{f _hoQGWMnyQPAh3k2jhWMzg}# (map list - #{x _85hotwsCta0JfYIjI4PXZ}# - #{v _85hotwsCta0JfYIjI4PXa}#)))) - #{tmp _85hotwsCta0JfYIjI4PXP}#) + #{x _hoQGWMnyQPAh3k2jhWMzc}# + #{v _hoQGWMnyQPAh3k2jhWMzd}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PXN}#)))))) + #{x _hoQGWMnyQPAh3k2jhWMzQ}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x _85hotwsCta0JfYIjI4PYR}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYT}# + (lambda (#{orig-x _hoQGWMnyQPAh3k2jhWM0U}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0W}# ($sc-dispatch - #{orig-x _85hotwsCta0JfYIjI4PYR}# + #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PYT}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0W}# (@apply - (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}# + (lambda (#{var _hoQGWMnyQPAh3k2jhWM0a}# + #{init _hoQGWMnyQPAh3k2jhWM0b}# + #{step _hoQGWMnyQPAh3k2jhWM0c}# + #{e0 _hoQGWMnyQPAh3k2jhWM0d}# + #{e1 _hoQGWMnyQPAh3k2jhWM0e}# + #{c _hoQGWMnyQPAh3k2jhWM0f}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0g}# + (map (lambda (#{v _hoQGWMnyQPAh3k2jhWM0j}# + #{s _hoQGWMnyQPAh3k2jhWM0k}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0m}# ($sc-dispatch - #{s _85hotwsCta0JfYIjI4PYh}# + #{s _hoQGWMnyQPAh3k2jhWM0k}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4PYj}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0m}# (@apply - (lambda () #{v _85hotwsCta0JfYIjI4PYg}#) - #{tmp _85hotwsCta0JfYIjI4PYj}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYm}# + (lambda () #{v _hoQGWMnyQPAh3k2jhWM0j}#) + #{tmp _hoQGWMnyQPAh3k2jhWM0m}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0p}# ($sc-dispatch - #{s _85hotwsCta0JfYIjI4PYh}# + #{s _hoQGWMnyQPAh3k2jhWM0k}# '(any)))) - (if #{tmp _85hotwsCta0JfYIjI4PYm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0p}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4PYp}#) - #{e _85hotwsCta0JfYIjI4PYp}#) - #{tmp _85hotwsCta0JfYIjI4PYm}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWM0s}#) + #{e _hoQGWMnyQPAh3k2jhWM0s}#) + #{tmp _hoQGWMnyQPAh3k2jhWM0p}#) (syntax-violation 'do "bad step expression" - #{orig-x _85hotwsCta0JfYIjI4PYR}# - #{s _85hotwsCta0JfYIjI4PYh}#)))))) - #{var _85hotwsCta0JfYIjI4PYX}# - #{step _85hotwsCta0JfYIjI4PYZ}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PYe}# + #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# + #{s _hoQGWMnyQPAh3k2jhWM0k}#)))))) + #{var _hoQGWMnyQPAh3k2jhWM0a}# + #{step _hoQGWMnyQPAh3k2jhWM0c}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0h}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PYd}# + #{tmp _hoQGWMnyQPAh3k2jhWM0g}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PYe}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0h}# (@apply - (lambda (#{step _85hotwsCta0JfYIjI4PYv}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYx}# + (lambda (#{step _hoQGWMnyQPAh3k2jhWM0y}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM00}# ($sc-dispatch - #{e1 _85hotwsCta0JfYIjI4PYb}# + #{e1 _hoQGWMnyQPAh3k2jhWM0e}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4PYx}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM00}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("319")) + #(ribcage #(step) #((top)) #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24547,23 +24565,23 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("319")) + #(ribcage #(step) #((top)) #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24572,21 +24590,21 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (map list - #{var _85hotwsCta0JfYIjI4PYX}# - #{init _85hotwsCta0JfYIjI4PYY}#) + #{var _hoQGWMnyQPAh3k2jhWM0a}# + #{init _hoQGWMnyQPAh3k2jhWM0b}#) (list '#(syntax-object if ((top) @@ -24594,7 +24612,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24603,17 +24621,17 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (list '#(syntax-object not @@ -24622,7 +24640,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24636,19 +24654,19 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{e0 _85hotwsCta0JfYIjI4PYa}#) + #{e0 _hoQGWMnyQPAh3k2jhWM0d}#) (cons '#(syntax-object begin ((top) @@ -24656,7 +24674,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24670,20 +24688,20 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (append - #{c _85hotwsCta0JfYIjI4PYc}# + #{c _hoQGWMnyQPAh3k2jhWM0f}# (list (cons '#(syntax-object doloop ((top) @@ -24694,7 +24712,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24708,12 +24726,12 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () @@ -24721,31 +24739,31 @@ #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{step _85hotwsCta0JfYIjI4PYv}#))))))) - #{tmp _85hotwsCta0JfYIjI4PYx}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PY1}# + #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM00}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM04}# ($sc-dispatch - #{e1 _85hotwsCta0JfYIjI4PYb}# + #{e1 _hoQGWMnyQPAh3k2jhWM0e}# '(any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PY1}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM04}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4PY5}# - #{e2 _85hotwsCta0JfYIjI4PY6}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWM08}# + #{e2 _hoQGWMnyQPAh3k2jhWM09}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24754,17 +24772,17 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) '#(syntax-object doloop @@ -24772,12 +24790,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24786,33 +24804,33 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (map list - #{var _85hotwsCta0JfYIjI4PYX}# - #{init _85hotwsCta0JfYIjI4PYY}#) + #{var _hoQGWMnyQPAh3k2jhWM0a}# + #{init _hoQGWMnyQPAh3k2jhWM0b}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24821,31 +24839,31 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{e0 _85hotwsCta0JfYIjI4PYa}# + #{e0 _hoQGWMnyQPAh3k2jhWM0d}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24859,32 +24877,32 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4PY5}# - #{e2 _85hotwsCta0JfYIjI4PY6}#)) + (cons #{e1 _hoQGWMnyQPAh3k2jhWM08}# + #{e2 _hoQGWMnyQPAh3k2jhWM09}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24898,20 +24916,20 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (append - #{c _85hotwsCta0JfYIjI4PYc}# + #{c _hoQGWMnyQPAh3k2jhWM0f}# (list (cons '#(syntax-object doloop ((top) @@ -24920,8 +24938,8 @@ e2) #((top) (top)) - #("31a" - "31b")) + #("31c" + "31d")) #(ribcage () () @@ -24929,7 +24947,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24943,12 +24961,12 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () @@ -24956,43 +24974,43 @@ #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{step _85hotwsCta0JfYIjI4PYv}#))))))) - #{tmp _85hotwsCta0JfYIjI4PY1}#) + #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM04}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 _85hotwsCta0JfYIjI4PYb}#)))))) - #{tmp _85hotwsCta0JfYIjI4PYe}#) + #{e1 _hoQGWMnyQPAh3k2jhWM0e}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWM0h}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PYd}#))))) - #{tmp _85hotwsCta0JfYIjI4PYT}#) + #{tmp _hoQGWMnyQPAh3k2jhWM0g}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM0W}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x _85hotwsCta0JfYIjI4PYR}#)))))) + #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi _85hotwsCta0JfYIjI4PcJ}# - (lambda (#{p _85hotwsCta0JfYIjI4Pch}# - #{lev _85hotwsCta0JfYIjI4Pci}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pck}# + ((#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM4k}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4n}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25001,22 +25019,22 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pck}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM4n}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pco}#) - (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM4r}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("31p")) + #(ribcage #(p) #((top)) #("31r")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25025,16 +25043,16 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) - #{p _85hotwsCta0JfYIjI4Pco}#) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{p _hoQGWMnyQPAh3k2jhWM4r}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31p")) + #(ribcage #(p) #((top)) #("31r")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25043,14 +25061,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31p")) + #(ribcage #(p) #((top)) #("31r")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25059,15 +25077,15 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - (list #{p _85hotwsCta0JfYIjI4Pco}#) - (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#))))) - #{tmp _85hotwsCta0JfYIjI4Pck}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pcr}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + (list #{p _hoQGWMnyQPAh3k2jhWM4r}#) + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM4n}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4u}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '(#(free-id #(syntax-object quasiquote @@ -25076,7 +25094,7 @@ #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25085,19 +25103,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pcr}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM4u}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pcv}#) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM4y}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31q")) + #(ribcage #(p) #((top)) #("31s")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25106,14 +25124,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("31q")) + #(ribcage #(p) #((top)) #("31s")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25122,23 +25140,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - (list #{p _85hotwsCta0JfYIjI4Pcv}#) - (#{1+}# #{lev _85hotwsCta0JfYIjI4Pci}#)))) - #{tmp _85hotwsCta0JfYIjI4Pcr}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pcy}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + (list #{p _hoQGWMnyQPAh3k2jhWM4y}#) + (#{1+}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM4u}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM41}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pcy}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM41}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pc2}# - #{q _85hotwsCta0JfYIjI4Pc3}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pc5}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM45}# + #{q _hoQGWMnyQPAh3k2jhWM46}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM48}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pc2}# + #{p _hoQGWMnyQPAh3k2jhWM45}# '(#(free-id #(syntax-object unquote @@ -25146,12 +25164,12 @@ #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25166,38 +25184,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pc5}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM48}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pc9}#) - (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0) - (#{quasilist* _85hotwsCta0JfYIjI4PcN}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM5A}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) + (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31t")) + #("31v")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25212,34 +25230,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#)) - #{p _85hotwsCta0JfYIjI4Pc9}#) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#)) + #{p _hoQGWMnyQPAh3k2jhWM5A}#) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31t")) + #(ribcage #(p) #((top)) #("31v")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25254,27 +25272,27 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31t")) + #(ribcage #(p) #((top)) #("31v")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25289,24 +25307,24 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4Pc9}# - (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)))) - #{tmp _85hotwsCta0JfYIjI4Pc5}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pdm}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM5A}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM48}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5p}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pc2}# + #{p _hoQGWMnyQPAh3k2jhWM45}# '(#(free-id #(syntax-object unquote-splicing @@ -25314,12 +25332,12 @@ #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25334,38 +25352,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pdm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM5p}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pdq}#) - (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0) - (#{quasiappend _85hotwsCta0JfYIjI4PcM}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM5t}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) + (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31u")) + #("31w")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25380,37 +25398,37 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#)) - #{p _85hotwsCta0JfYIjI4Pdq}#) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#)) + #{p _hoQGWMnyQPAh3k2jhWM5t}#) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("31u")) + #("31w")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25425,13 +25443,13 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -25439,16 +25457,16 @@ #(ribcage #(p) #((top)) - #("31u")) + #("31w")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25463,59 +25481,59 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{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}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM5t}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM5p}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM45}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM41}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5$}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '#(vector each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pd7}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM5$}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pd@}#) - (let ((#{x _85hotwsCta0JfYIjI4PeC}# - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{x _85hotwsCta0JfYIjI4Pd@}# - #{lev _85hotwsCta0JfYIjI4Pci}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PeE}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM6C}#) + (let ((#{x _hoQGWMnyQPAh3k2jhWM6F}# + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{x _hoQGWMnyQPAh3k2jhWM6C}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6H}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PeC}# + #{x _hoQGWMnyQPAh3k2jhWM6F}# '(#(atom "quote") each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PeE}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6H}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PeI}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM6L}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("32q")) + #("32s")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25530,38 +25548,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) (list->vector - #{x _85hotwsCta0JfYIjI4PeI}#))) - #{tmp _85hotwsCta0JfYIjI4PeE}#) + #{x _hoQGWMnyQPAh3k2jhWM6L}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM6H}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4PeK}# - (lambda (#{y _85hotwsCta0JfYIjI4PeW}# - #{k _85hotwsCta0JfYIjI4PeX}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PeZ}# + ((#{f _hoQGWMnyQPAh3k2jhWM6N}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{k _hoQGWMnyQPAh3k2jhWM6a}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6c}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PeW}# + #{y _hoQGWMnyQPAh3k2jhWM6Z}# '(#(atom "quote") each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PeZ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6c}# (@apply - (lambda (#{y _85hotwsCta0JfYIjI4Pec}#) - (#{k _85hotwsCta0JfYIjI4PeX}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#) + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6f}#) + (#{k _hoQGWMnyQPAh3k2jhWM6a}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("32x")) + #("32z")) #(ribcage () () @@ -25573,13 +25591,13 @@ #((top) (top) (top)) - #("32s" - "32t" - "32u")) + #("32u" + "32v" + "32w")) #(ribcage #(_) #((top)) - #("32r")) + #("32t")) #(ribcage () () @@ -25587,7 +25605,7 @@ #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25602,51 +25620,51 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#)) - #{y _85hotwsCta0JfYIjI4Pec}#))) - #{tmp _85hotwsCta0JfYIjI4PeZ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pee}# + #{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#)) + #{y _hoQGWMnyQPAh3k2jhWM6f}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM6c}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6h}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PeW}# + #{y _hoQGWMnyQPAh3k2jhWM6Z}# '(#(atom "list") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pee}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6h}# (@apply - (lambda (#{y _85hotwsCta0JfYIjI4Peh}#) - (#{k _85hotwsCta0JfYIjI4PeX}# - #{y _85hotwsCta0JfYIjI4Peh}#)) - #{tmp _85hotwsCta0JfYIjI4Pee}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pei}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6k}#) + (#{k _hoQGWMnyQPAh3k2jhWM6a}# + #{y _hoQGWMnyQPAh3k2jhWM6k}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM6h}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6l}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PeW}# + #{y _hoQGWMnyQPAh3k2jhWM6Z}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _85hotwsCta0JfYIjI4Pei}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6l}# (@apply - (lambda (#{y _85hotwsCta0JfYIjI4Pel}# - #{z _85hotwsCta0JfYIjI4Pem}#) - (#{f _85hotwsCta0JfYIjI4PeK}# - #{z _85hotwsCta0JfYIjI4Pem}# - (lambda (#{ls _85hotwsCta0JfYIjI4Pen}#) - (#{k _85hotwsCta0JfYIjI4PeX}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6o}# + #{z _hoQGWMnyQPAh3k2jhWM6p}#) + (#{f _hoQGWMnyQPAh3k2jhWM6N}# + #{z _hoQGWMnyQPAh3k2jhWM6p}# + (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6q}#) + (#{k _hoQGWMnyQPAh3k2jhWM6a}# (append - #{y _85hotwsCta0JfYIjI4Pel}# - #{ls _85hotwsCta0JfYIjI4Pen}#))))) - #{tmp _85hotwsCta0JfYIjI4Pei}#) + #{y _hoQGWMnyQPAh3k2jhWM6o}# + #{ls _hoQGWMnyQPAh3k2jhWM6q}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM6l}#) (list '#(syntax-object "list->vector" ((top) @@ -25655,14 +25673,14 @@ () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4PbH}#) - #((m_85hotwsCta0JfYIjI4PbI + #(#{ g_hoQGWMnyQPAh3k2jhWM3K}#) + #((m_hoQGWMnyQPAh3k2jhWM3L top)) - #("333")) + #("335")) #(ribcage #(else) #((top)) - #("332")) + #("334")) #(ribcage () () @@ -25672,13 +25690,13 @@ #((top) (top) (top)) - #("32s" - "32t" - "32u")) + #("32u" + "32v" + "32w")) #(ribcage #(_) #((top)) - #("32r")) + #("32t")) #(ribcage () () @@ -25686,7 +25704,7 @@ #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25701,26 +25719,26 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4PeC}#)))))))))) - (#{f _85hotwsCta0JfYIjI4PeK}# - #{x _85hotwsCta0JfYIjI4PeC}# - (lambda (#{ls _85hotwsCta0JfYIjI4PeM}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PeO}# + #{x _hoQGWMnyQPAh3k2jhWM6F}#)))))))))) + (#{f _hoQGWMnyQPAh3k2jhWM6N}# + #{x _hoQGWMnyQPAh3k2jhWM6F}# + (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6P}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6R}# ($sc-dispatch - #{ls _85hotwsCta0JfYIjI4PeM}# + #{ls _hoQGWMnyQPAh3k2jhWM6P}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PeO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6R}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#) (cons '#(syntax-object "vector" ((top) @@ -25729,10 +25747,10 @@ () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Paz}#) - #((m_85hotwsCta0JfYIjI4Pa0 + #(#{ g_hoQGWMnyQPAh3k2jhWM22}#) + #((m_hoQGWMnyQPAh3k2jhWM23 top)) - #("32w")) + #("32y")) #(ribcage () () @@ -25748,11 +25766,11 @@ #(ribcage #(ls) #((top)) - #("32v")) + #("32x")) #(ribcage #(_) #((top)) - #("32r")) + #("32t")) #(ribcage () () @@ -25760,7 +25778,7 @@ #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25775,30 +25793,30 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#)) - #{tmp _85hotwsCta0JfYIjI4PeO}#) + #{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM6R}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls _85hotwsCta0JfYIjI4PeM}#)))))))))) - #{tmp _85hotwsCta0JfYIjI4Pd7}#) + #{ls _hoQGWMnyQPAh3k2jhWM6P}#)))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM5$}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31x")) + #(ribcage #(p) #((top)) #("31z")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25813,29 +25831,29 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{p _85hotwsCta0JfYIjI4Pch}#))))))))))) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - (lambda (#{p _85hotwsCta0JfYIjI4PfD}# - #{lev _85hotwsCta0JfYIjI4PfE}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PfG}# + #{p _hoQGWMnyQPAh3k2jhWM4k}#))))))))))) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM7G}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7J}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4PfD}# + #{p _hoQGWMnyQPAh3k2jhWM7G}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4PfG}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM7J}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PfK}# - #{q _85hotwsCta0JfYIjI4PfL}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PfN}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM7N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7Q}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4PfK}# + #{p _hoQGWMnyQPAh3k2jhWM7N}# '(#(free-id #(syntax-object unquote @@ -25843,12 +25861,12 @@ #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25863,38 +25881,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PfN}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM7Q}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PfR}#) - (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0) - (#{quasilist* _85hotwsCta0JfYIjI4PcN}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM7U}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) + (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("322")) + #("324")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25909,34 +25927,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#)) - #{p _85hotwsCta0JfYIjI4PfR}#) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#)) + #{p _hoQGWMnyQPAh3k2jhWM7U}#) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("322")) + #(ribcage #(p) #((top)) #("324")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25951,27 +25969,27 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("322")) + #(ribcage #(p) #((top)) #("324")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25986,24 +26004,24 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4PfR}# - (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#))) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)))) - #{tmp _85hotwsCta0JfYIjI4PfN}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pf8}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM7U}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7@}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4PfK}# + #{p _hoQGWMnyQPAh3k2jhWM7N}# '(#(free-id #(syntax-object unquote-splicing @@ -26011,12 +26029,12 @@ #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26031,38 +26049,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pf8}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM7@}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PgA}#) - (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0) - (#{quasiappend _85hotwsCta0JfYIjI4PcM}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM8D}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) + (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("323")) + #("325")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26077,34 +26095,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#)) - #{p _85hotwsCta0JfYIjI4PgA}#) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#)) + #{p _hoQGWMnyQPAh3k2jhWM8D}#) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("323")) + #(ribcage #(p) #((top)) #("325")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26119,27 +26137,27 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("323")) + #(ribcage #(p) #((top)) #("325")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26154,39 +26172,39 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{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}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM8D}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM7@}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM7N}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM7J}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8Y}# + ($sc-dispatch #{p _hoQGWMnyQPAh3k2jhWM7G}# '()))) + (if #{tmp _hoQGWMnyQPAh3k2jhWM8Y}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31y" "31z")) + #(ribcage #(p lev) #((top) (top)) #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26195,64 +26213,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) ())) - #{tmp _85hotwsCta0JfYIjI4PgV}#) + #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#) (syntax-violation #f "source expression failed to match any pattern" - #{p _85hotwsCta0JfYIjI4PfD}#))))))) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (lambda (#{x _85hotwsCta0JfYIjI4Pgi}# - #{y _85hotwsCta0JfYIjI4Pgj}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgk}# - (list #{x _85hotwsCta0JfYIjI4Pgi}# - #{y _85hotwsCta0JfYIjI4Pgj}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgl}# + #{p _hoQGWMnyQPAh3k2jhWM7G}#))))))) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM8l}# + #{y _hoQGWMnyQPAh3k2jhWM8m}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8n}# + (list #{x _hoQGWMnyQPAh3k2jhWM8l}# + #{y _hoQGWMnyQPAh3k2jhWM8m}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8o}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pgk}# + #{tmp _hoQGWMnyQPAh3k2jhWM8n}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pgl}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM8o}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pgn}# - #{y _85hotwsCta0JfYIjI4Pgo}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgq}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM8q}# + #{y _hoQGWMnyQPAh3k2jhWM8r}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8t}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4Pgo}# + #{y _hoQGWMnyQPAh3k2jhWM8r}# '(#(atom "quote") any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pgq}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM8t}# (@apply - (lambda (#{dy _85hotwsCta0JfYIjI4Pgu}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgw}# + (lambda (#{dy _hoQGWMnyQPAh3k2jhWM8x}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8z}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pgn}# + #{x _hoQGWMnyQPAh3k2jhWM8q}# '(#(atom "quote") any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pgw}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM8z}# (@apply - (lambda (#{dx _85hotwsCta0JfYIjI4Pg0}#) + (lambda (#{dx _hoQGWMnyQPAh3k2jhWM83}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("32a")) + #("32c")) #(ribcage #(dy) #((top)) - #("329")) + #("32b")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("329" "32a")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("325" "326")) + #("327" "328")) #(ribcage (emit quasivector quasilist* @@ -26267,34 +26285,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - (cons #{dx _85hotwsCta0JfYIjI4Pg0}# - #{dy _85hotwsCta0JfYIjI4Pgu}#))) - #{tmp _85hotwsCta0JfYIjI4Pgw}#) - (if (null? #{dy _85hotwsCta0JfYIjI4Pgu}#) + (cons #{dx _hoQGWMnyQPAh3k2jhWM83}# + #{dy _hoQGWMnyQPAh3k2jhWM8x}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM8z}#) + (if (null? #{dy _hoQGWMnyQPAh3k2jhWM8x}#) (list '#(syntax-object "list" ((top) - #(ribcage #(_) #((top)) #("32b")) - #(ribcage #(dy) #((top)) #("329")) + #(ribcage #(_) #((top)) #("32d")) + #(ribcage #(dy) #((top)) #("32b")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("329" "32a")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("325" "326")) + #("327" "328")) #(ribcage (emit quasivector quasilist* @@ -26309,31 +26327,31 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4Pgn}#) + #{x _hoQGWMnyQPAh3k2jhWM8q}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32b")) - #(ribcage #(dy) #((top)) #("329")) + #(ribcage #(_) #((top)) #("32d")) + #(ribcage #(dy) #((top)) #("32b")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("329" "32a")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("325" "326")) + #("327" "328")) #(ribcage (emit quasivector quasilist* @@ -26348,42 +26366,42 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4Pgn}# - #{y _85hotwsCta0JfYIjI4Pgo}#))))) - #{tmp _85hotwsCta0JfYIjI4Pgq}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pg5}# + #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{y _hoQGWMnyQPAh3k2jhWM8r}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM8t}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM88}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4Pgo}# + #{y _hoQGWMnyQPAh3k2jhWM8r}# '(#(atom "list") . any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pg5}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM88}# (@apply - (lambda (#{stuff _85hotwsCta0JfYIjI4Pg9}#) + (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9A}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("32c")) + #("32e")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("329" "32a")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("325" "326")) + #("327" "328")) #(ribcage (emit quasivector quasilist* @@ -26398,42 +26416,42 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - (cons #{x _85hotwsCta0JfYIjI4Pgn}# - #{stuff _85hotwsCta0JfYIjI4Pg9}#))) - #{tmp _85hotwsCta0JfYIjI4Pg5}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pg$}# + (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{stuff _hoQGWMnyQPAh3k2jhWM9A}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM88}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9B}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4Pgo}# + #{y _hoQGWMnyQPAh3k2jhWM8r}# '(#(atom "list*") . any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pg$}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9B}# (@apply - (lambda (#{stuff _85hotwsCta0JfYIjI4PhC}#) + (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9F}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("32d")) + #("32f")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("329" "32a")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("325" "326")) + #("327" "328")) #(ribcage (emit quasivector quasilist* @@ -26448,32 +26466,32 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - (cons #{x _85hotwsCta0JfYIjI4Pgn}# - #{stuff _85hotwsCta0JfYIjI4PhC}#))) - #{tmp _85hotwsCta0JfYIjI4Pg$}#) + (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{stuff _hoQGWMnyQPAh3k2jhWM9F}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM9B}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32e")) + #(ribcage #(_) #((top)) #("32g")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("329" "32a")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("325" "326")) + #("327" "328")) #(ribcage (emit quasivector quasilist* @@ -26488,37 +26506,37 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4Pgn}# - #{y _85hotwsCta0JfYIjI4Pgo}#)))))))) - #{tmp _85hotwsCta0JfYIjI4Pgl}#) + #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{y _hoQGWMnyQPAh3k2jhWM8r}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM8o}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pgk}#)))))) - (#{quasiappend _85hotwsCta0JfYIjI4PcM}# - (lambda (#{x _85hotwsCta0JfYIjI4PhN}# - #{y _85hotwsCta0JfYIjI4PhO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PhQ}# + #{tmp _hoQGWMnyQPAh3k2jhWM8n}#)))))) + (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM9Q}# + #{y _hoQGWMnyQPAh3k2jhWM9R}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9T}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PhO}# + #{y _hoQGWMnyQPAh3k2jhWM9R}# '(#(atom "quote") ())))) - (if #{tmp _85hotwsCta0JfYIjI4PhQ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9T}# (@apply (lambda () - (if (null? #{x _85hotwsCta0JfYIjI4PhN}#) + (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(x y) #((top) (top)) #("32f" "32g")) + #(ribcage #(x y) #((top) (top)) #("32h" "32i")) #(ribcage (emit quasivector quasilist* @@ -26527,28 +26545,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) ()) - (if (null? (cdr #{x _85hotwsCta0JfYIjI4PhN}#)) - (car #{x _85hotwsCta0JfYIjI4PhN}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PhV}# + (if (null? (cdr #{x _hoQGWMnyQPAh3k2jhWM9Q}#)) + (car #{x _hoQGWMnyQPAh3k2jhWM9Q}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9Y}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PhN}# + #{x _hoQGWMnyQPAh3k2jhWM9Q}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PhV}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9Y}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PhZ}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM9c}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("32h")) + #(ribcage #(p) #((top)) #("32j")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32f" "32g")) + #("32h" "32i")) #(ribcage (emit quasivector quasilist* @@ -26563,34 +26581,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{p _85hotwsCta0JfYIjI4PhZ}#)) - #{tmp _85hotwsCta0JfYIjI4PhV}#) + #{p _hoQGWMnyQPAh3k2jhWM9c}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PhN}#)))))) - #{tmp _85hotwsCta0JfYIjI4PhQ}#) - (if (null? #{x _85hotwsCta0JfYIjI4PhN}#) - #{y _85hotwsCta0JfYIjI4PhO}# - (let ((#{tmp _85hotwsCta0JfYIjI4Phh}# - (list #{x _85hotwsCta0JfYIjI4PhN}# - #{y _85hotwsCta0JfYIjI4PhO}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Phi}# + #{x _hoQGWMnyQPAh3k2jhWM9Q}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWM9T}#) + (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) + #{y _hoQGWMnyQPAh3k2jhWM9R}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9k}# + (list #{x _hoQGWMnyQPAh3k2jhWM9Q}# + #{y _hoQGWMnyQPAh3k2jhWM9R}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9l}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Phh}# + #{tmp _hoQGWMnyQPAh3k2jhWM9k}# '(each-any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Phi}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9l}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Phk}# - #{y _85hotwsCta0JfYIjI4Phl}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM9n}# + #{y _hoQGWMnyQPAh3k2jhWM9o}#) (cons '#(syntax-object "append" ((top) @@ -26598,13 +26616,13 @@ #(ribcage #(p y) #((top) (top)) - #("32j" "32k")) - #(ribcage #(_) #((top)) #("32i")) + #("32l" "32m")) + #(ribcage #(_) #((top)) #("32k")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32f" "32g")) + #("32h" "32i")) #(ribcage (emit quasivector quasilist* @@ -26619,51 +26637,51 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) (append - #{p _85hotwsCta0JfYIjI4Phk}# - (list #{y _85hotwsCta0JfYIjI4Phl}#)))) - #{tmp _85hotwsCta0JfYIjI4Phi}#) + #{p _hoQGWMnyQPAh3k2jhWM9n}# + (list #{y _hoQGWMnyQPAh3k2jhWM9o}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM9l}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Phh}#))))))))) - (#{quasilist* _85hotwsCta0JfYIjI4PcN}# - (lambda (#{x _85hotwsCta0JfYIjI4Php}# - #{y _85hotwsCta0JfYIjI4Phq}#) + #{tmp _hoQGWMnyQPAh3k2jhWM9k}#))))))))) + (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM9s}# + #{y _hoQGWMnyQPAh3k2jhWM9t}#) (letrec* - ((#{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}# + ((#{f _hoQGWMnyQPAh3k2jhWM9u}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@H}#) + (if (null? #{x _hoQGWMnyQPAh3k2jhWM@H}#) + #{y _hoQGWMnyQPAh3k2jhWM9t}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (car #{x _hoQGWMnyQPAh3k2jhWM@H}#) + (#{f _hoQGWMnyQPAh3k2jhWM9u}# + (cdr #{x _hoQGWMnyQPAh3k2jhWM@H}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWM9u}# + #{x _hoQGWMnyQPAh3k2jhWM9s}#)))) + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@K}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@M}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "quote") any)))) - (if #{tmp _85hotwsCta0JfYIjI4PjJ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@M}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PjN}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@Q}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("335")) + #(ribcage #(x) #((top)) #("337")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("334")) + #(ribcage #(x) #((top)) #("336")) #(ribcage (emit quasivector quasilist* @@ -26672,38 +26690,38 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4PjN}#)) - #{tmp _85hotwsCta0JfYIjI4PjJ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjO}# + #{x _hoQGWMnyQPAh3k2jhWM@Q}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@M}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@R}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "list") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PjO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@R}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PjS}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjT}# - (map #{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4PjS}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PjU}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@V}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@W}# + (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@V}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@X}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PjT}# + #{tmp _hoQGWMnyQPAh3k2jhWM@W}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PjU}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@X}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4PbS}#) - #((m_85hotwsCta0JfYIjI4PbT top)) - #("337")) - #(ribcage #(x) #((top)) #("336")) + #(#{ g_hoQGWMnyQPAh3k2jhWM3V}#) + #((m_hoQGWMnyQPAh3k2jhWM3W top)) + #("339")) + #(ribcage #(x) #((top)) #("338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("334")) + #(ribcage #(x) #((top)) #("336")) #(ribcage (emit quasivector quasilist* @@ -26718,74 +26736,74 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#)) - #{tmp _85hotwsCta0JfYIjI4PjU}#) + #{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@X}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PjT}#))))) - #{tmp _85hotwsCta0JfYIjI4PjO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjX}# + #{tmp _hoQGWMnyQPAh3k2jhWM@W}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM@R}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@a}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _85hotwsCta0JfYIjI4PjX}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@a}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pjb}# - #{y _85hotwsCta0JfYIjI4Pjc}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@e}# + #{y _hoQGWMnyQPAh3k2jhWM@f}#) (letrec* - ((#{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}# + ((#{f _hoQGWMnyQPAh3k2jhWM@g}# + (lambda (#{x* _hoQGWMnyQPAh3k2jhWM@j}#) + (if (null? #{x* _hoQGWMnyQPAh3k2jhWM@j}#) + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{y _hoQGWMnyQPAh3k2jhWM@f}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@k}# + (list (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + (car #{x* _hoQGWMnyQPAh3k2jhWM@j}#)) + (#{f _hoQGWMnyQPAh3k2jhWM@g}# + (cdr #{x* _hoQGWMnyQPAh3k2jhWM@j}#))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@l}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pjh}# + #{tmp _hoQGWMnyQPAh3k2jhWM@k}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pji}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@l}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}# - #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# + #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pbh}# - #{ g_85hotwsCta0JfYIjI4Pbg}#) - #((m_85hotwsCta0JfYIjI4Pbi + #(#{ g_hoQGWMnyQPAh3k2jhWM3k}# + #{ g_hoQGWMnyQPAh3k2jhWM3j}#) + #((m_hoQGWMnyQPAh3k2jhWM3l top) - (m_85hotwsCta0JfYIjI4Pbi + (m_hoQGWMnyQPAh3k2jhWM3l top)) - #("33c" "33d")) + #("33e" "33f")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("33a" "33b")) + #("33c" "33d")) #(ribcage #(x y) #((top) (top)) - #("338" "339")) + #("33a" "33b")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26800,59 +26818,59 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}# - #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#)) - #{tmp _85hotwsCta0JfYIjI4Pji}#) + #{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# + #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@l}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pjh}#)))))))) - (#{f _85hotwsCta0JfYIjI4Pjd}# - #{x _85hotwsCta0JfYIjI4Pjb}#))) - #{tmp _85hotwsCta0JfYIjI4PjX}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjm}# + #{tmp _hoQGWMnyQPAh3k2jhWM@k}#)))))))) + (#{f _hoQGWMnyQPAh3k2jhWM@g}# + #{x _hoQGWMnyQPAh3k2jhWM@e}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM@a}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@p}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "append") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pjm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@p}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pjq}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjr}# - (map #{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4Pjq}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjs}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@t}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@u}# + (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@t}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@v}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pjr}# + #{tmp _hoQGWMnyQPAh3k2jhWM@u}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4Pjs}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@v}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pbq}#) - #((m_85hotwsCta0JfYIjI4Pbr + #(#{ g_hoQGWMnyQPAh3k2jhWM3t}#) + #((m_hoQGWMnyQPAh3k2jhWM3u top)) - #("33f")) + #("33h")) #(ribcage #(x) #((top)) - #("33e")) + #("33g")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26867,56 +26885,56 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#)) - #{tmp _85hotwsCta0JfYIjI4Pjs}#) + #{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@v}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pjr}#))))) - #{tmp _85hotwsCta0JfYIjI4Pjm}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjv}# + #{tmp _hoQGWMnyQPAh3k2jhWM@u}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM@p}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@y}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "vector") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pjv}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@y}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pjz}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj0}# - (map #{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4Pjz}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj1}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@2}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@3}# + (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@2}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@4}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pj0}# + #{tmp _hoQGWMnyQPAh3k2jhWM@3}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4Pj1}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@4}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pb0}#) - #((m_85hotwsCta0JfYIjI4Pb1 + #(#{ g_hoQGWMnyQPAh3k2jhWM33}#) + #((m_hoQGWMnyQPAh3k2jhWM34 top)) - #("33h")) + #("33j")) #(ribcage #(x) #((top)) - #("33g")) + #("33i")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26931,49 +26949,49 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#)) - #{tmp _85hotwsCta0JfYIjI4Pj1}#) + #{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@4}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pj0}#))))) - #{tmp _85hotwsCta0JfYIjI4Pjv}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj4}# + #{tmp _hoQGWMnyQPAh3k2jhWM@3}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM@y}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@7}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "list->vector") any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pj4}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@7}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pj8}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj9}# - (#{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4Pj8}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@@}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAA}# + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@@}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pb$}#) - #((m_85hotwsCta0JfYIjI4Pb@ + #(#{ g_hoQGWMnyQPAh3k2jhWM4B}#) + #((m_hoQGWMnyQPAh3k2jhWM4C top)) - #("33j")) + #("33l")) #(ribcage #(x) #((top)) - #("33i")) + #("33k")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26988,218 +27006,218 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4Pj9}#))) - #{tmp _85hotwsCta0JfYIjI4Pj4}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PkA}# + #{tmp _hoQGWMnyQPAh3k2jhWNAA}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM@7}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAD}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "value") any)))) - (if #{tmp _85hotwsCta0JfYIjI4PkA}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNAD}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PkE}#) - #{x _85hotwsCta0JfYIjI4PkE}#) - #{tmp _85hotwsCta0JfYIjI4PkA}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWNAH}#) + #{x _hoQGWMnyQPAh3k2jhWNAH}#) + #{tmp _hoQGWMnyQPAh3k2jhWNAD}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PjH}#)))))))))))))))))) - (lambda (#{x _85hotwsCta0JfYIjI4PcQ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PcS}# + #{x _hoQGWMnyQPAh3k2jhWM@K}#)))))))))))))))))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM4T}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4V}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PcQ}# + #{x _hoQGWMnyQPAh3k2jhWM4T}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4PcS}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM4V}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4PcW}#) - (#{emit _85hotwsCta0JfYIjI4PcP}# - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{e _85hotwsCta0JfYIjI4PcW}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWM4Z}#) + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{e _hoQGWMnyQPAh3k2jhWM4Z}# 0))) - #{tmp _85hotwsCta0JfYIjI4PcS}#) + #{tmp _hoQGWMnyQPAh3k2jhWM4V}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PcQ}#))))))) + #{x _hoQGWMnyQPAh3k2jhWM4T}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pkv}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWNAy}#) (letrec* - ((#{read-file _85hotwsCta0JfYIjI4Pkw}# - (lambda (#{fn _85hotwsCta0JfYIjI4Pmd}# - #{k _85hotwsCta0JfYIjI4Pme}#) - (let ((#{p _85hotwsCta0JfYIjI4Pmf}# - (open-input-file #{fn _85hotwsCta0JfYIjI4Pmd}#))) + ((#{read-file _hoQGWMnyQPAh3k2jhWNAz}# + (lambda (#{fn _hoQGWMnyQPAh3k2jhWNCg}# + #{k _hoQGWMnyQPAh3k2jhWNCh}#) + (let ((#{p _hoQGWMnyQPAh3k2jhWNCi}# + (open-input-file #{fn _hoQGWMnyQPAh3k2jhWNCg}#))) (letrec* - ((#{f _85hotwsCta0JfYIjI4Pmg}# - (lambda (#{x _85hotwsCta0JfYIjI4PnW}# - #{result _85hotwsCta0JfYIjI4PnX}#) - (if (eof-object? #{x _85hotwsCta0JfYIjI4PnW}#) + ((#{f _hoQGWMnyQPAh3k2jhWNCj}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNDZ}# + #{result _hoQGWMnyQPAh3k2jhWNDa}#) + (if (eof-object? #{x _hoQGWMnyQPAh3k2jhWNDZ}#) (begin - (close-input-port #{p _85hotwsCta0JfYIjI4Pmf}#) - (reverse #{result _85hotwsCta0JfYIjI4PnX}#)) - (#{f _85hotwsCta0JfYIjI4Pmg}# - (read #{p _85hotwsCta0JfYIjI4Pmf}#) + (close-input-port #{p _hoQGWMnyQPAh3k2jhWNCi}#) + (reverse #{result _hoQGWMnyQPAh3k2jhWNDa}#)) + (#{f _hoQGWMnyQPAh3k2jhWNCj}# + (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) (cons (datum->syntax - #{k _85hotwsCta0JfYIjI4Pme}# - #{x _85hotwsCta0JfYIjI4PnW}#) - #{result _85hotwsCta0JfYIjI4PnX}#)))))) - (#{f _85hotwsCta0JfYIjI4Pmg}# - (read #{p _85hotwsCta0JfYIjI4Pmf}#) + #{k _hoQGWMnyQPAh3k2jhWNCh}# + #{x _hoQGWMnyQPAh3k2jhWNDZ}#) + #{result _hoQGWMnyQPAh3k2jhWNDa}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWNCj}# + (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) '())))))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pky}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA1}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pkv}# + #{x _hoQGWMnyQPAh3k2jhWNAy}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pky}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNA1}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Pk2}# - #{filename _85hotwsCta0JfYIjI4Pk3}#) - (let ((#{fn _85hotwsCta0JfYIjI4Pk4}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWNA5}# + #{filename _hoQGWMnyQPAh3k2jhWNA6}#) + (let ((#{fn _hoQGWMnyQPAh3k2jhWNA7}# (syntax->datum - #{filename _85hotwsCta0JfYIjI4Pk3}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pk5}# - (#{read-file _85hotwsCta0JfYIjI4Pkw}# - #{fn _85hotwsCta0JfYIjI4Pk4}# - #{filename _85hotwsCta0JfYIjI4Pk3}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pk6}# + #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA8}# + (#{read-file _hoQGWMnyQPAh3k2jhWNAz}# + #{fn _hoQGWMnyQPAh3k2jhWNA7}# + #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA9}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pk5}# + #{tmp _hoQGWMnyQPAh3k2jhWNA8}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4Pk6}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNA9}# (@apply - (lambda (#{exp _85hotwsCta0JfYIjI4PlM}#) + (lambda (#{exp _hoQGWMnyQPAh3k2jhWNBP}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("33y")) + #(ribcage #(exp) #((top)) #("340")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("33x")) + #(ribcage #(fn) #((top)) #("33z")) #(ribcage #(k filename) #((top) (top)) - #("33v" "33w")) - #(ribcage (read-file) ((top)) ("33o")) - #(ribcage #(x) #((top)) #("33n"))) + #("33x" "33y")) + #(ribcage (read-file) ((top)) ("33q")) + #(ribcage #(x) #((top)) #("33p"))) (hygiene guile)) - #{exp _85hotwsCta0JfYIjI4PlM}#)) - #{tmp _85hotwsCta0JfYIjI4Pk6}#) + #{exp _hoQGWMnyQPAh3k2jhWNBP}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNA9}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pk5}#)))))) - #{tmp _85hotwsCta0JfYIjI4Pky}#) + #{tmp _hoQGWMnyQPAh3k2jhWNA8}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWNA1}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pkv}#))))))) + #{x _hoQGWMnyQPAh3k2jhWNAy}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pnk}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pnm}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNDn}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDp}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pnk}# + #{x _hoQGWMnyQPAh3k2jhWNDn}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pnm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNDp}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Pnq}# - #{filename _85hotwsCta0JfYIjI4Pnr}#) - (let ((#{fn _85hotwsCta0JfYIjI4Pns}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWNDt}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}#) + (let ((#{fn _hoQGWMnyQPAh3k2jhWNDv}# (syntax->datum - #{filename _85hotwsCta0JfYIjI4Pnr}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pnt}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDw}# (datum->syntax - #{filename _85hotwsCta0JfYIjI4Pnr}# - (let ((#{t _85hotwsCta0JfYIjI4Pnw}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}# + (let ((#{t _hoQGWMnyQPAh3k2jhWNDz}# (%search-load-path - #{fn _85hotwsCta0JfYIjI4Pns}#))) - (if #{t _85hotwsCta0JfYIjI4Pnw}# - #{t _85hotwsCta0JfYIjI4Pnw}# + #{fn _hoQGWMnyQPAh3k2jhWNDv}#))) + (if #{t _hoQGWMnyQPAh3k2jhWNDz}# + #{t _hoQGWMnyQPAh3k2jhWNDz}# (syntax-violation 'include-from-path "file not found in path" - #{x _85hotwsCta0JfYIjI4Pnk}# - #{filename _85hotwsCta0JfYIjI4Pnr}#)))))) + #{x _hoQGWMnyQPAh3k2jhWNDn}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("343")) + #(ribcage #(fn) #((top)) #("345")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("342")) + #(ribcage #(fn) #((top)) #("344")) #(ribcage #(k filename) #((top) (top)) - #("340" "341")) + #("342" "343")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("33z"))) + #(ribcage #(x) #((top)) #("341"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4Pnt}#)))) - #{tmp _85hotwsCta0JfYIjI4Pnm}#) + #{tmp _hoQGWMnyQPAh3k2jhWNDw}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWNDp}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pnk}#)))))) + #{x _hoQGWMnyQPAh3k2jhWNDn}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pn4}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWND7}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x _85hotwsCta0JfYIjI4Pn4}#)))) + #{x _hoQGWMnyQPAh3k2jhWND7}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pn6}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWND9}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x _85hotwsCta0JfYIjI4Pn6}#)))) + #{x _hoQGWMnyQPAh3k2jhWND9}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pof}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Poh}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNEi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEk}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pof}# + #{x _hoQGWMnyQPAh3k2jhWNEi}# '(_ any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Poh}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNEk}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4Pol}# - #{m1 _85hotwsCta0JfYIjI4Pom}# - #{m2 _85hotwsCta0JfYIjI4Pon}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Poo}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWNEo}# + #{m1 _hoQGWMnyQPAh3k2jhWNEp}# + #{m2 _hoQGWMnyQPAh3k2jhWNEq}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEr}# (letrec* - ((#{f _85hotwsCta0JfYIjI4PpS}# - (lambda (#{clause _85hotwsCta0JfYIjI4PpV}# - #{clauses _85hotwsCta0JfYIjI4PpW}#) - (if (null? #{clauses _85hotwsCta0JfYIjI4PpW}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PpY}# + ((#{f _hoQGWMnyQPAh3k2jhWNFV}# + (lambda (#{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) + (if (null? #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFb}# ($sc-dispatch - #{clause _85hotwsCta0JfYIjI4PpV}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}# '(#(free-id #(syntax-object else @@ -27208,79 +27226,79 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile))) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PpY}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNFb}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4Ppc}# - #{e2 _85hotwsCta0JfYIjI4Ppd}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWNFf}# + #{e2 _hoQGWMnyQPAh3k2jhWNFg}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("34f" "34g")) + #("34h" "34i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4Ppc}# - #{e2 _85hotwsCta0JfYIjI4Ppd}#))) - #{tmp _85hotwsCta0JfYIjI4PpY}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ppe}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWNFf}# + #{e2 _hoQGWMnyQPAh3k2jhWNFg}#))) + #{tmp _hoQGWMnyQPAh3k2jhWNFb}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFh}# ($sc-dispatch - #{clause _85hotwsCta0JfYIjI4PpV}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}# '(each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Ppe}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNFh}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Ppi}# - #{e1 _85hotwsCta0JfYIjI4Ppj}# - #{e2 _85hotwsCta0JfYIjI4Ppk}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWNFl}# + #{e1 _hoQGWMnyQPAh3k2jhWNFm}# + #{e2 _hoQGWMnyQPAh3k2jhWNFn}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34h" "34i" "34j")) + #("34j" "34k" "34l")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object memv @@ -27290,9 +27308,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () ()) #(ribcage #(f @@ -27301,22 +27319,22 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) '#(syntax-object t @@ -27326,9 +27344,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () ()) #(ribcage #(f @@ -27337,22 +27355,22 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object quote @@ -27362,9 +27380,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () @@ -27376,17 +27394,17 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () @@ -27394,10 +27412,10 @@ #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - #{k _85hotwsCta0JfYIjI4Ppi}#)) + #{k _hoQGWMnyQPAh3k2jhWNFl}#)) (cons '#(syntax-object begin ((top) @@ -27406,9 +27424,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () ()) #(ribcage #(f @@ -27417,70 +27435,70 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4Ppj}# - #{e2 _85hotwsCta0JfYIjI4Ppk}#)))) - #{tmp _85hotwsCta0JfYIjI4Ppe}#) + (cons #{e1 _hoQGWMnyQPAh3k2jhWNFm}# + #{e2 _hoQGWMnyQPAh3k2jhWNFn}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWNFh}#) (syntax-violation 'case "bad clause" - #{x _85hotwsCta0JfYIjI4Pof}# - #{clause _85hotwsCta0JfYIjI4PpV}#))))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pps}# - (#{f _85hotwsCta0JfYIjI4PpS}# - (car #{clauses _85hotwsCta0JfYIjI4PpW}#) - (cdr #{clauses _85hotwsCta0JfYIjI4PpW}#)))) - (let ((#{tmp _85hotwsCta0JfYIjI4Ppv}# + #{x _hoQGWMnyQPAh3k2jhWNEi}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}#))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFv}# + (#{f _hoQGWMnyQPAh3k2jhWNFV}# + (car #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) + (cdr #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFy}# ($sc-dispatch - #{clause _85hotwsCta0JfYIjI4PpV}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}# '(each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Ppv}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNFy}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Ppz}# - #{e1 _85hotwsCta0JfYIjI4Pp0}# - #{e2 _85hotwsCta0JfYIjI4Pp1}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWNF2}# + #{e1 _hoQGWMnyQPAh3k2jhWNF3}# + #{e2 _hoQGWMnyQPAh3k2jhWNF4}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" "34n" "34o")) + #("34o" "34p" "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object memv @@ -27488,32 +27506,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) '#(syntax-object t @@ -27521,32 +27539,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object quote @@ -27556,9 +27574,9 @@ #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () @@ -27566,7 +27584,7 @@ #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () @@ -27578,17 +27596,17 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () @@ -27596,238 +27614,238 @@ #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - #{k _85hotwsCta0JfYIjI4Ppz}#)) + #{k _hoQGWMnyQPAh3k2jhWNF2}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4Pp0}# - #{e2 _85hotwsCta0JfYIjI4Pp1}#)) - #{tmp _85hotwsCta0JfYIjI4Pps}#)) - #{tmp _85hotwsCta0JfYIjI4Ppv}#) + (cons #{e1 _hoQGWMnyQPAh3k2jhWNF3}# + #{e2 _hoQGWMnyQPAh3k2jhWNF4}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNFv}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNFy}#) (syntax-violation 'case "bad clause" - #{x _85hotwsCta0JfYIjI4Pof}# - #{clause _85hotwsCta0JfYIjI4PpV}#)))))))) - (#{f _85hotwsCta0JfYIjI4PpS}# - #{m1 _85hotwsCta0JfYIjI4Pom}# - #{m2 _85hotwsCta0JfYIjI4Pon}#)))) - (let ((#{body _85hotwsCta0JfYIjI4Pop}# - #{tmp _85hotwsCta0JfYIjI4Poo}#)) + #{x _hoQGWMnyQPAh3k2jhWNEi}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}#)))))))) + (#{f _hoQGWMnyQPAh3k2jhWNFV}# + #{m1 _hoQGWMnyQPAh3k2jhWNEp}# + #{m2 _hoQGWMnyQPAh3k2jhWNEq}#)))) + (let ((#{body _hoQGWMnyQPAh3k2jhWNEs}# + #{tmp _hoQGWMnyQPAh3k2jhWNEr}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34b")) + #(ribcage #(body) #((top)) #("34d")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("347"))) + #(ribcage #(x) #((top)) #("349"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34b")) + #(ribcage #(body) #((top)) #("34d")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("347"))) + #(ribcage #(x) #((top)) #("349"))) (hygiene guile)) - #{e _85hotwsCta0JfYIjI4Pol}#)) - #{body _85hotwsCta0JfYIjI4Pop}#)))) - #{tmp _85hotwsCta0JfYIjI4Poh}#) + #{e _hoQGWMnyQPAh3k2jhWNEo}#)) + #{body _hoQGWMnyQPAh3k2jhWNEs}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWNEk}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pof}#)))))) + #{x _hoQGWMnyQPAh3k2jhWNEi}#)))))) (define make-variable-transformer - (lambda (#{proc _85hotwsCta0JfYIjI4PqE}#) - (if (procedure? #{proc _85hotwsCta0JfYIjI4PqE}#) + (lambda (#{proc _hoQGWMnyQPAh3k2jhWNGH}#) + (if (procedure? #{proc _hoQGWMnyQPAh3k2jhWNGH}#) (letrec* - ((#{trans _85hotwsCta0JfYIjI4PqF}# - (lambda (#{x _85hotwsCta0JfYIjI4PqL}#) - (#{proc _85hotwsCta0JfYIjI4PqE}# - #{x _85hotwsCta0JfYIjI4PqL}#)))) + ((#{trans _hoQGWMnyQPAh3k2jhWNGI}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNGO}#) + (#{proc _hoQGWMnyQPAh3k2jhWNGH}# + #{x _hoQGWMnyQPAh3k2jhWNGO}#)))) (begin (set-procedure-property! - #{trans _85hotwsCta0JfYIjI4PqF}# + #{trans _hoQGWMnyQPAh3k2jhWNGI}# 'variable-transformer #t) - #{trans _85hotwsCta0JfYIjI4PqF}#)) + #{trans _hoQGWMnyQPAh3k2jhWNGI}#)) (error "variable transformer not a procedure" - #{proc _85hotwsCta0JfYIjI4PqE}#)))) + #{proc _hoQGWMnyQPAh3k2jhWNGH}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pqf}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pqh}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNGi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGk}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pqf}# + #{x _hoQGWMnyQPAh3k2jhWNGi}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pqh}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNGk}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4Pql}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWNGo}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) - #{e _85hotwsCta0JfYIjI4Pql}#)) + #{e _hoQGWMnyQPAh3k2jhWNGo}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) - (cons #{e _85hotwsCta0JfYIjI4Pql}# + (cons #{e _hoQGWMnyQPAh3k2jhWNGo}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("34u")) + #("34w")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) #(syntax-object ... @@ -27835,55 +27853,55 @@ #(ribcage #(e) #((top)) - #("34u")) + #("34w")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile))))))))) - #{tmp _85hotwsCta0JfYIjI4Pqh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pqm}# + #{tmp _hoQGWMnyQPAh3k2jhWNGk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGp}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pqf}# + #{x _hoQGWMnyQPAh3k2jhWNGi}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) any any) any))))) - (if (if #{tmp _85hotwsCta0JfYIjI4Pqm}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWNGp}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Pqq}# - #{exp1 _85hotwsCta0JfYIjI4Pqr}# - #{var _85hotwsCta0JfYIjI4Pqs}# - #{val _85hotwsCta0JfYIjI4Pqt}# - #{exp2 _85hotwsCta0JfYIjI4Pqu}#) - (if (identifier? #{id _85hotwsCta0JfYIjI4Pqq}#) - (identifier? #{var _85hotwsCta0JfYIjI4Pqs}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNGt}# + #{exp1 _hoQGWMnyQPAh3k2jhWNGu}# + #{var _hoQGWMnyQPAh3k2jhWNGv}# + #{val _hoQGWMnyQPAh3k2jhWNGw}# + #{exp2 _hoQGWMnyQPAh3k2jhWNGx}#) + (if (identifier? #{id _hoQGWMnyQPAh3k2jhWNGt}#) + (identifier? #{var _hoQGWMnyQPAh3k2jhWNGv}#) #f)) - #{tmp _85hotwsCta0JfYIjI4Pqm}#) + #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Pqv}# - #{exp1 _85hotwsCta0JfYIjI4Pqw}# - #{var _85hotwsCta0JfYIjI4Pqx}# - #{val _85hotwsCta0JfYIjI4Pqy}# - #{exp2 _85hotwsCta0JfYIjI4Pqz}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNGy}# + #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# + #{var _hoQGWMnyQPAh3k2jhWNG0}# + #{val _hoQGWMnyQPAh3k2jhWNG1}# + #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) (list '#(syntax-object lambda @@ -27891,9 +27909,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object x @@ -27901,9 +27919,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -27911,9 +27929,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) . #(syntax-object @@ -27922,9 +27940,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -27932,9 +27950,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '#(syntax-object x @@ -27942,9 +27960,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object set! @@ -27952,9 +27970,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -27966,19 +27984,19 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{var _85hotwsCta0JfYIjI4Pqx}# - #{val _85hotwsCta0JfYIjI4Pqy}#) + #{var _hoQGWMnyQPAh3k2jhWNG0}# + #{val _hoQGWMnyQPAh3k2jhWNG1}#) (list '#(syntax-object syntax ((top) @@ -27989,19 +28007,19 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{exp2 _85hotwsCta0JfYIjI4Pqz}#)) - (list (cons #{id _85hotwsCta0JfYIjI4Pqv}# + #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#)) + (list (cons #{id _hoQGWMnyQPAh3k2jhWNGy}# '(#(syntax-object x ((top) @@ -28012,16 +28030,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) #(syntax-object ... @@ -28033,16 +28051,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -28054,18 +28072,18 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - (cons #{exp1 _85hotwsCta0JfYIjI4Pqw}# + (cons #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# '(#(syntax-object x ((top) @@ -28080,16 +28098,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) #(syntax-object ... @@ -28105,18 +28123,18 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)))))) - (list #{id _85hotwsCta0JfYIjI4Pqv}# + (list #{id _hoQGWMnyQPAh3k2jhWNGy}# (list '#(syntax-object identifier? ((top) @@ -28127,16 +28145,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) (list '#(syntax-object syntax @@ -28152,18 +28170,18 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{id _85hotwsCta0JfYIjI4Pqv}#)) + #{id _hoQGWMnyQPAh3k2jhWNGy}#)) (list '#(syntax-object syntax ((top) @@ -28174,72 +28192,72 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{exp1 _85hotwsCta0JfYIjI4Pqw}#)))))) - #{tmp _85hotwsCta0JfYIjI4Pqm}#) + #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pqf}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWNGi}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PrK}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PrM}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNHN}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHP}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PrK}# + #{x _hoQGWMnyQPAh3k2jhWNHN}# '(_ (any . any) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PrM}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNHP}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4PrQ}# - #{args _85hotwsCta0JfYIjI4PrR}# - #{b0 _85hotwsCta0JfYIjI4PrS}# - #{b1 _85hotwsCta0JfYIjI4PrT}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNHT}# + #{args _hoQGWMnyQPAh3k2jhWNHU}# + #{b0 _hoQGWMnyQPAh3k2jhWNHV}# + #{b1 _hoQGWMnyQPAh3k2jhWNHW}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("356" "357" "358" "359")) + #("358" "359" "35a" "35b")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)) - #{id _85hotwsCta0JfYIjI4PrQ}# + #{id _hoQGWMnyQPAh3k2jhWNHT}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("356" "357" "358" "359")) + #("358" "359" "35a" "35b")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)) - (cons #{args _85hotwsCta0JfYIjI4PrR}# - (cons #{b0 _85hotwsCta0JfYIjI4PrS}# - #{b1 _85hotwsCta0JfYIjI4PrT}#))))) - #{tmp _85hotwsCta0JfYIjI4PrM}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PrU}# + (cons #{args _hoQGWMnyQPAh3k2jhWNHU}# + (cons #{b0 _hoQGWMnyQPAh3k2jhWNHV}# + #{b1 _hoQGWMnyQPAh3k2jhWNHW}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWNHP}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHX}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PrK}# + #{x _hoQGWMnyQPAh3k2jhWNHN}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PrU}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWNHX}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4PrY}# - #{val _85hotwsCta0JfYIjI4PrZ}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNHb}# + #{val _hoQGWMnyQPAh3k2jhWNHc}#) (identifier? '#(syntax-object x @@ -28247,30 +28265,30 @@ #(ribcage #(id val) #((top) (top)) - #("35a" "35b")) + #("35c" "35d")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)))) - #{tmp _85hotwsCta0JfYIjI4PrU}#) + #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Pra}# - #{val _85hotwsCta0JfYIjI4Prb}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNHd}# + #{val _hoQGWMnyQPAh3k2jhWNHe}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("35c" "35d")) + #("35e" "35f")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)) - #{id _85hotwsCta0JfYIjI4Pra}# - #{val _85hotwsCta0JfYIjI4Prb}#)) - #{tmp _85hotwsCta0JfYIjI4PrU}#) + #{id _hoQGWMnyQPAh3k2jhWNHd}# + #{val _hoQGWMnyQPAh3k2jhWNHe}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PrK}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWNHN}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 024bb8535..00cb54948 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2525,6 +2525,11 @@ (set! syntax-source (lambda (x) (source-annotation x))) + (set! syntax-module + (lambda (id) + (arg-check nonsymbol-id? id 'syntax-module) + (cdr (syntax-object-module id)))) + (set! syntax-local-binding (lambda (id) (arg-check nonsymbol-id? id 'syntax-local-binding) -- 2.20.1