From: Andy Wingo Date: Wed, 25 Jan 2012 20:29:53 +0000 (+0100) Subject: new syntax procedures to (system syntax) X-Git-Url: https://git.hcoop.net/bpt/guile.git/commitdiff_plain/68fcf7118923c4c2490075e18c15b4f722973987 new syntax procedures to (system syntax) * module/ice-9/boot-9.scm: * module/ice-9/psyntax.scm (syntax-module, syntax-local-binding) (syntax-locally-bound-identifiers): After boot, move these definitions to a new (system syntax) module. * module/ice-9/psyntax-pp.scm: Regenerate. * doc/ref/api-macros.texi: Add some words about syntax-module and friends being in (system syntax). --- diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi index 2b6f15a54..f6a03bc32 100644 --- a/doc/ref/api-macros.texi +++ b/doc/ref/api-macros.texi @@ -706,6 +706,18 @@ Return the source properties that correspond to the syntax object @var{x}. @xref{Source Properties}, for more information. @end deffn +Guile also offers some more experimental interfaces in a separate +module. As was the case with the Large Hadron Collider, it is unclear +to our senior macrologists whether adding these interfaces will result +in awesomeness or in the destruction of Guile via the creation of a +singularity. We will preserve their functionality through the 2.0 +series, but we reserve the right to modify them in a future stable +series, to a more than usual degree. + +@example +(use-modules (system syntax)) +@end example + @deffn {Scheme Procedure} syntax-module id Return the name of the module whose source contains the identifier @var{id}. diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 3914ff35f..39be83d47 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -385,13 +385,10 @@ If there is no handler at all, Guile prints an error and then exits." (define datum->syntax #f) (define syntax->datum #f) (define syntax-source #f) -(define syntax-module #f) (define identifier? #f) (define generate-temporaries #f) (define bound-identifier=? #f) (define free-identifier=? #f) -(define syntax-local-binding #f) -(define syntax-locally-bound-identifiers #f) ;; $sc-dispatch is an implementation detail of psyntax. It is used by ;; expanded macros, to dispatch an input against a set of patterns. @@ -3863,12 +3860,43 @@ module '(ice-9 q) '(make-q q-length))}." -;;; Place the user in the guile-user module. +;;; SRFI-4 in the default environment. FIXME: we should figure out how +;;; to deprecate this. ;;; ;; FIXME: (module-use! the-scm-module (resolve-interface '(srfi srfi-4))) + + +;;; A few identifiers that need to be defined in this file are really +;;; internal implementation details. We shove them off into internal +;;; modules, removing them from the (guile) module. +;;; + +(define-module (system syntax)) + +(let () + (define (steal-bindings! from to ids) + (for-each + (lambda (sym) + (let ((v (module-local-variable from sym))) + (module-remove! from sym) + (module-add! to sym v))) + ids) + (module-export! to ids)) + + (steal-bindings! the-root-module (resolve-module '(system syntax)) + '(syntax-local-binding + syntax-module + syntax-locally-bound-identifiers))) + + + + +;;; Place the user in the guile-user module. +;;; + ;; Set filename to #f to prevent reload. (define-module (guile-user) #:autoload (system base compile) (compile compile-file) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index daded1ab6..d616c7fb7 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1553 +1,1541 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{gen-label _hoQGWMnyQPAh3k2jhWHTD}# (if #f #f)) - (#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# +(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f)) + (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# (if #f #f))) (letrec* - ((#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWMnv}# - #{mod _hoQGWMnyQPAh3k2jhWMnw}#) - (primitive-eval #{x _hoQGWMnyQPAh3k2jhWMnv}#))) - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - (lambda (#{symbol _hoQGWMnyQPAh3k2jhWJ@F}# - #{module _hoQGWMnyQPAh3k2jhWJ@G}#) + ((#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + (lambda (#{x -ANAU$bmvAmthP7L7xwsuQ}# + #{mod -ANAU$bmvAmthP7L7xwsuR}#) + (primitive-eval #{x -ANAU$bmvAmthP7L7xwsuQ}#))) + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + (lambda (#{symbol -ANAU$bmvAmthP7L7xwp7A}# + #{module -ANAU$bmvAmthP7L7xwp7B}#) (begin - (if (if (not #{module _hoQGWMnyQPAh3k2jhWJ@G}#) + (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWJ@H}# + #{symbol -ANAU$bmvAmthP7L7xwp7A}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp7C}# (module-variable - (if #{module _hoQGWMnyQPAh3k2jhWJ@G}# + (if #{module -ANAU$bmvAmthP7L7xwp7B}# (resolve-module - (cdr #{module _hoQGWMnyQPAh3k2jhWJ@G}#)) + (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#)) (current-module)) - #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#))) - (if #{v _hoQGWMnyQPAh3k2jhWJ@H}# - (if (variable-bound? #{v _hoQGWMnyQPAh3k2jhWJ@H}#) - (let ((#{val _hoQGWMnyQPAh3k2jhWJ@J}# - (variable-ref #{v _hoQGWMnyQPAh3k2jhWJ@H}#))) - (if (macro? #{val _hoQGWMnyQPAh3k2jhWJ@J}#) - (if (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) - (cons (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) - (macro-binding #{val _hoQGWMnyQPAh3k2jhWJ@J}#)) + #{symbol -ANAU$bmvAmthP7L7xwp7A}#))) + (if #{v -ANAU$bmvAmthP7L7xwp7C}# + (if (variable-bound? #{v -ANAU$bmvAmthP7L7xwp7C}#) + (let ((#{val -ANAU$bmvAmthP7L7xwp7E}# + (variable-ref #{v -ANAU$bmvAmthP7L7xwp7C}#))) + (if (macro? #{val -ANAU$bmvAmthP7L7xwp7E}#) + (if (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#) + (cons (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#) + (macro-binding #{val -ANAU$bmvAmthP7L7xwp7E}#)) #f) #f)) #f) #f))))) - (#{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - (lambda (#{name _hoQGWMnyQPAh3k2jhWKDe}# - #{val _hoQGWMnyQPAh3k2jhWKDf}#) - (if (if (struct? #{val _hoQGWMnyQPAh3k2jhWKDf}#) - (eq? (struct-vtable #{val _hoQGWMnyQPAh3k2jhWKDf}#) + (#{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + (lambda (#{name -ANAU$bmvAmthP7L7xwp@Z}# + #{val -ANAU$bmvAmthP7L7xwp@a}#) + (if (if (struct? #{val -ANAU$bmvAmthP7L7xwp@a}#) + (eq? (struct-vtable #{val -ANAU$bmvAmthP7L7xwp@a}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWKDm}# - (struct-ref #{val _hoQGWMnyQPAh3k2jhWKDf}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKDm}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKDr}# - (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWKDe}#) - #{meta _hoQGWMnyQPAh3k2jhWKDm}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwp@h}# + (struct-ref #{val -ANAU$bmvAmthP7L7xwp@a}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp@h}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp@m}# + (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp@Z}#) + #{meta -ANAU$bmvAmthP7L7xwp@h}#))) (struct-set! - #{val _hoQGWMnyQPAh3k2jhWKDf}# + #{val -ANAU$bmvAmthP7L7xwp@a}# 1 - #{v _hoQGWMnyQPAh3k2jhWKDr}#))))))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@L}# - #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#) + #{v -ANAU$bmvAmthP7L7xwp@m}#))))))) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}# + #{fun-exp -ANAU$bmvAmthP7L7xwp7H}# + #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source _hoQGWMnyQPAh3k2jhWJ@L}# - #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#))) - (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@T}# - #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# - #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# - #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#) + #{source -ANAU$bmvAmthP7L7xwp7G}# + #{fun-exp -ANAU$bmvAmthP7L7xwp7H}# + #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#))) + (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7O}# + #{test-exp -ANAU$bmvAmthP7L7xwp7P}# + #{then-exp -ANAU$bmvAmthP7L7xwp7Q}# + #{else-exp -ANAU$bmvAmthP7L7xwp7R}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source _hoQGWMnyQPAh3k2jhWJ@T}# - #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# - #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# - #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#))) - (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@d}# - #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# - #{vals _hoQGWMnyQPAh3k2jhWJ@f}# - #{body _hoQGWMnyQPAh3k2jhWJ@g}#) + #{source -ANAU$bmvAmthP7L7xwp7O}# + #{test-exp -ANAU$bmvAmthP7L7xwp7P}# + #{then-exp -ANAU$bmvAmthP7L7xwp7Q}# + #{else-exp -ANAU$bmvAmthP7L7xwp7R}#))) + (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7Y}# + #{fluids -ANAU$bmvAmthP7L7xwp7Z}# + #{vals -ANAU$bmvAmthP7L7xwp7a}# + #{body -ANAU$bmvAmthP7L7xwp7b}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source _hoQGWMnyQPAh3k2jhWJ@d}# - #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# - #{vals _hoQGWMnyQPAh3k2jhWJ@f}# - #{body _hoQGWMnyQPAh3k2jhWJ@g}#))) - (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# - (lambda (#{type _hoQGWMnyQPAh3k2jhWMnx}# - #{source _hoQGWMnyQPAh3k2jhWMny}# - #{name _hoQGWMnyQPAh3k2jhWMnz}# - #{var _hoQGWMnyQPAh3k2jhWMn0}#) + #{source -ANAU$bmvAmthP7L7xwp7Y}# + #{fluids -ANAU$bmvAmthP7L7xwp7Z}# + #{vals -ANAU$bmvAmthP7L7xwp7a}# + #{body -ANAU$bmvAmthP7L7xwp7b}#))) + (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}# + (lambda (#{type -ANAU$bmvAmthP7L7xwsuS}# + #{source -ANAU$bmvAmthP7L7xwsuT}# + #{name -ANAU$bmvAmthP7L7xwsuU}# + #{var -ANAU$bmvAmthP7L7xwsuV}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source _hoQGWMnyQPAh3k2jhWMny}# - #{name _hoQGWMnyQPAh3k2jhWMnz}# - #{var _hoQGWMnyQPAh3k2jhWMn0}#))) - (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@n}# - #{name _hoQGWMnyQPAh3k2jhWJ@o}# - #{var _hoQGWMnyQPAh3k2jhWJ@p}# - #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) + #{source -ANAU$bmvAmthP7L7xwsuT}# + #{name -ANAU$bmvAmthP7L7xwsuU}# + #{var -ANAU$bmvAmthP7L7xwsuV}#))) + (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7i}# + #{name -ANAU$bmvAmthP7L7xwp7j}# + #{var -ANAU$bmvAmthP7L7xwp7k}# + #{exp -ANAU$bmvAmthP7L7xwp7l}#) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWJ@6}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWJ@6}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKAB}# - (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWJ@o}#) - #{meta _hoQGWMnyQPAh3k2jhWJ@6}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwp71}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwp7l}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp71}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp78}# + (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp7j}#) + #{meta -ANAU$bmvAmthP7L7xwp71}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWJ@q}# + #{exp -ANAU$bmvAmthP7L7xwp7l}# 1 - #{v _hoQGWMnyQPAh3k2jhWKAB}#))))) + #{v -ANAU$bmvAmthP7L7xwp78}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source _hoQGWMnyQPAh3k2jhWJ@n}# - #{name _hoQGWMnyQPAh3k2jhWJ@o}# - #{var _hoQGWMnyQPAh3k2jhWJ@p}# - #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)))) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWMn6}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# - #{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#) - (if (not #{mod _hoQGWMnyQPAh3k2jhWMn6}#) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#) - (let ((#{kind _hoQGWMnyQPAh3k2jhWMn$}# - (car #{mod _hoQGWMnyQPAh3k2jhWMn6}#)) - (#{mod _hoQGWMnyQPAh3k2jhWMn@}# - (cdr #{mod _hoQGWMnyQPAh3k2jhWMn6}#))) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'public) - (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# + #{source -ANAU$bmvAmthP7L7xwp7i}# + #{name -ANAU$bmvAmthP7L7xwp7j}# + #{var -ANAU$bmvAmthP7L7xwp7k}# + #{exp -ANAU$bmvAmthP7L7xwp7l}#)))) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwsub}# + #{var -ANAU$bmvAmthP7L7xwsuc}# + #{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{bare-cont -ANAU$bmvAmthP7L7xwsue}#) + (if (not #{mod -ANAU$bmvAmthP7L7xwsub}#) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#) + (let ((#{kind -ANAU$bmvAmthP7L7xwsuf}# + (car #{mod -ANAU$bmvAmthP7L7xwsub}#)) + (#{mod -ANAU$bmvAmthP7L7xwsug}# + (cdr #{mod -ANAU$bmvAmthP7L7xwsub}#))) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'public) + (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{mod -ANAU$bmvAmthP7L7xwsug}# + #{var -ANAU$bmvAmthP7L7xwsuc}# #t) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'private) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private) (if (not (equal? - #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{mod -ANAU$bmvAmthP7L7xwsug}# (module-name (current-module)))) - (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# + (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{mod -ANAU$bmvAmthP7L7xwsug}# + #{var -ANAU$bmvAmthP7L7xwsuc}# #f) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#)) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'bare) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'hygiene) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#)) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'bare) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'hygiene) (if (if (not (equal? - #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{mod -ANAU$bmvAmthP7L7xwsug}# (module-name (current-module)))) (module-variable - (resolve-module #{mod _hoQGWMnyQPAh3k2jhWMn@}#) - #{var _hoQGWMnyQPAh3k2jhWMn7}#) + (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#) + #{var -ANAU$bmvAmthP7L7xwsuc}#) #f) - (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# + (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{mod -ANAU$bmvAmthP7L7xwsug}# + #{var -ANAU$bmvAmthP7L7xwsuc}# #f) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#)) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#)) (syntax-violation #f "bad module kind" - #{var _hoQGWMnyQPAh3k2jhWMn7}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}#))))))))) - (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWMoO}# - #{var _hoQGWMnyQPAh3k2jhWMoP}# - #{mod _hoQGWMnyQPAh3k2jhWMoQ}#) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - #{mod _hoQGWMnyQPAh3k2jhWMoQ}# - #{var _hoQGWMnyQPAh3k2jhWMoP}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWMoT}# - #{var _hoQGWMnyQPAh3k2jhWMoU}# - #{public? _hoQGWMnyQPAh3k2jhWMoV}#) + #{var -ANAU$bmvAmthP7L7xwsuc}# + #{mod -ANAU$bmvAmthP7L7xwsug}#))))))))) + (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}# + (lambda (#{source -ANAU$bmvAmthP7L7xwsuv}# + #{var -ANAU$bmvAmthP7L7xwsuw}# + #{mod -ANAU$bmvAmthP7L7xwsux}#) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + #{mod -ANAU$bmvAmthP7L7xwsux}# + #{var -ANAU$bmvAmthP7L7xwsuw}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwsu0}# + #{var -ANAU$bmvAmthP7L7xwsu1}# + #{public? -ANAU$bmvAmthP7L7xwsu2}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source _hoQGWMnyQPAh3k2jhWMoO}# - #{mod _hoQGWMnyQPAh3k2jhWMoT}# - #{var _hoQGWMnyQPAh3k2jhWMoU}# - #{public? _hoQGWMnyQPAh3k2jhWMoV}#)) - (lambda (#{var _hoQGWMnyQPAh3k2jhWMod}#) + #{source -ANAU$bmvAmthP7L7xwsuv}# + #{mod -ANAU$bmvAmthP7L7xwsu0}# + #{var -ANAU$bmvAmthP7L7xwsu1}# + #{public? -ANAU$bmvAmthP7L7xwsu2}#)) + (lambda (#{var -ANAU$bmvAmthP7L7xwsu$}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source _hoQGWMnyQPAh3k2jhWMoO}# - #{var _hoQGWMnyQPAh3k2jhWMod}#))))) - (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWKAK}# - #{var _hoQGWMnyQPAh3k2jhWKAL}# - #{exp _hoQGWMnyQPAh3k2jhWKAM}# - #{mod _hoQGWMnyQPAh3k2jhWKAN}#) + #{source -ANAU$bmvAmthP7L7xwsuv}# + #{var -ANAU$bmvAmthP7L7xwsu$}#))))) + (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp8F}# + #{var -ANAU$bmvAmthP7L7xwp8G}# + #{exp -ANAU$bmvAmthP7L7xwp8H}# + #{mod -ANAU$bmvAmthP7L7xwp8I}#) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWKAM}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWKAM}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWKAd}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKAd}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKAk}# - (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWKAL}#) - #{meta _hoQGWMnyQPAh3k2jhWKAd}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwp8Y}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwp8H}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp8Y}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp8f}# + (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwp8G}#) + #{meta -ANAU$bmvAmthP7L7xwp8Y}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWKAM}# + #{exp -ANAU$bmvAmthP7L7xwp8H}# 1 - #{v _hoQGWMnyQPAh3k2jhWKAk}#))))) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - #{mod _hoQGWMnyQPAh3k2jhWKAN}# - #{var _hoQGWMnyQPAh3k2jhWKAL}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWKAp}# - #{var _hoQGWMnyQPAh3k2jhWKAq}# - #{public? _hoQGWMnyQPAh3k2jhWKAr}#) + #{v -ANAU$bmvAmthP7L7xwp8f}#))))) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + #{mod -ANAU$bmvAmthP7L7xwp8I}# + #{var -ANAU$bmvAmthP7L7xwp8G}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwp8k}# + #{var -ANAU$bmvAmthP7L7xwp8l}# + #{public? -ANAU$bmvAmthP7L7xwp8m}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source _hoQGWMnyQPAh3k2jhWKAK}# - #{mod _hoQGWMnyQPAh3k2jhWKAp}# - #{var _hoQGWMnyQPAh3k2jhWKAq}# - #{public? _hoQGWMnyQPAh3k2jhWKAr}# - #{exp _hoQGWMnyQPAh3k2jhWKAM}#)) - (lambda (#{var _hoQGWMnyQPAh3k2jhWKAz}#) + #{source -ANAU$bmvAmthP7L7xwp8F}# + #{mod -ANAU$bmvAmthP7L7xwp8k}# + #{var -ANAU$bmvAmthP7L7xwp8l}# + #{public? -ANAU$bmvAmthP7L7xwp8m}# + #{exp -ANAU$bmvAmthP7L7xwp8H}#)) + (lambda (#{var -ANAU$bmvAmthP7L7xwp8u}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source _hoQGWMnyQPAh3k2jhWKAK}# - #{var _hoQGWMnyQPAh3k2jhWKAz}# - #{exp _hoQGWMnyQPAh3k2jhWKAM}#)))))) - (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWMoj}# - #{var _hoQGWMnyQPAh3k2jhWMok}# - #{exp _hoQGWMnyQPAh3k2jhWMol}#) + #{source -ANAU$bmvAmthP7L7xwp8F}# + #{var -ANAU$bmvAmthP7L7xwp8u}# + #{exp -ANAU$bmvAmthP7L7xwp8H}#)))))) + (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# + (lambda (#{source -ANAU$bmvAmthP7L7xwsvE}# + #{var -ANAU$bmvAmthP7L7xwsvF}# + #{exp -ANAU$bmvAmthP7L7xwsvG}#) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWMol}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWMol}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWMo1}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWMol}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWMo1}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWMo8}# - (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWMok}#) - #{meta _hoQGWMnyQPAh3k2jhWMo1}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwsvW}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwsvG}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwsvW}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwsvd}# + (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwsvF}#) + #{meta -ANAU$bmvAmthP7L7xwsvW}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWMol}# + #{exp -ANAU$bmvAmthP7L7xwsvG}# 1 - #{v _hoQGWMnyQPAh3k2jhWMo8}#))))) + #{v -ANAU$bmvAmthP7L7xwsvd}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source _hoQGWMnyQPAh3k2jhWMoj}# - #{var _hoQGWMnyQPAh3k2jhWMok}# - #{exp _hoQGWMnyQPAh3k2jhWMol}#)))) - (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKA5}# - #{req _hoQGWMnyQPAh3k2jhWKA6}# - #{rest _hoQGWMnyQPAh3k2jhWKA7}# - #{vars _hoQGWMnyQPAh3k2jhWKA8}# - #{meta _hoQGWMnyQPAh3k2jhWKA9}# - #{exp _hoQGWMnyQPAh3k2jhWKA$}#) - (let ((#{body _hoQGWMnyQPAh3k2jhWKBE}# + #{source -ANAU$bmvAmthP7L7xwsvE}# + #{var -ANAU$bmvAmthP7L7xwsvF}# + #{exp -ANAU$bmvAmthP7L7xwsvG}#)))) + (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp80}# + #{req -ANAU$bmvAmthP7L7xwp81}# + #{rest -ANAU$bmvAmthP7L7xwp82}# + #{vars -ANAU$bmvAmthP7L7xwp83}# + #{meta -ANAU$bmvAmthP7L7xwp84}# + #{exp -ANAU$bmvAmthP7L7xwp85}#) + (let ((#{body -ANAU$bmvAmthP7L7xwp8@}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _hoQGWMnyQPAh3k2jhWKA5}# - #{req _hoQGWMnyQPAh3k2jhWKA6}# + #{src -ANAU$bmvAmthP7L7xwp80}# + #{req -ANAU$bmvAmthP7L7xwp81}# #f - #{rest _hoQGWMnyQPAh3k2jhWKA7}# + #{rest -ANAU$bmvAmthP7L7xwp82}# #f '() - #{vars _hoQGWMnyQPAh3k2jhWKA8}# - #{exp _hoQGWMnyQPAh3k2jhWKA$}# + #{vars -ANAU$bmvAmthP7L7xwp83}# + #{exp -ANAU$bmvAmthP7L7xwp85}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _hoQGWMnyQPAh3k2jhWKA5}# - #{meta _hoQGWMnyQPAh3k2jhWKA9}# - #{body _hoQGWMnyQPAh3k2jhWKBE}#)))) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWMpE}# - #{exps _hoQGWMnyQPAh3k2jhWMpF}#) - (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWMpF}#)) - (car #{exps _hoQGWMnyQPAh3k2jhWMpF}#) + #{src -ANAU$bmvAmthP7L7xwp80}# + #{meta -ANAU$bmvAmthP7L7xwp84}# + #{body -ANAU$bmvAmthP7L7xwp8@}#)))) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# + (lambda (#{src -ANAU$bmvAmthP7L7xwsvl}# + #{exps -ANAU$bmvAmthP7L7xwsvm}#) + (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwsvm}#)) + (car #{exps -ANAU$bmvAmthP7L7xwsvm}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src _hoQGWMnyQPAh3k2jhWMpE}# - #{exps _hoQGWMnyQPAh3k2jhWMpF}#)))) - (#{build-let _hoQGWMnyQPAh3k2jhWHSv}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKBQ}# - #{ids _hoQGWMnyQPAh3k2jhWKBR}# - #{vars _hoQGWMnyQPAh3k2jhWKBS}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#) + #{src -ANAU$bmvAmthP7L7xwsvl}# + #{exps -ANAU$bmvAmthP7L7xwsvm}#)))) + (#{build-let -ANAU$bmvAmthP7L7xwnNO}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp9L}# + #{ids -ANAU$bmvAmthP7L7xwp9M}# + #{vars -ANAU$bmvAmthP7L7xwp9N}# + #{val-exps -ANAU$bmvAmthP7L7xwp9O}# + #{body-exp -ANAU$bmvAmthP7L7xwp9P}#) (begin (for-each - #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - #{ids _hoQGWMnyQPAh3k2jhWKBR}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#) - (if (null? #{vars _hoQGWMnyQPAh3k2jhWKBS}#) - #{body-exp _hoQGWMnyQPAh3k2jhWKBU}# + #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + #{ids -ANAU$bmvAmthP7L7xwp9M}# + #{val-exps -ANAU$bmvAmthP7L7xwp9O}#) + (if (null? #{vars -ANAU$bmvAmthP7L7xwp9N}#) + #{body-exp -ANAU$bmvAmthP7L7xwp9P}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src _hoQGWMnyQPAh3k2jhWKBQ}# - #{ids _hoQGWMnyQPAh3k2jhWKBR}# - #{vars _hoQGWMnyQPAh3k2jhWKBS}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#))))) - (#{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKBs}# - #{ids _hoQGWMnyQPAh3k2jhWKBt}# - #{vars _hoQGWMnyQPAh3k2jhWKBu}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBv}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#) - (let ((#{f _hoQGWMnyQPAh3k2jhWKBx}# - (car #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) - (#{f-name _hoQGWMnyQPAh3k2jhWKBy}# - (car #{ids _hoQGWMnyQPAh3k2jhWKBt}#)) - (#{vars _hoQGWMnyQPAh3k2jhWKBz}# - (cdr #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) - (#{ids _hoQGWMnyQPAh3k2jhWKB0}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKBt}#))) - (let ((#{proc _hoQGWMnyQPAh3k2jhWKB1}# - (let ((#{body _hoQGWMnyQPAh3k2jhWKCJ}# + #{src -ANAU$bmvAmthP7L7xwp9L}# + #{ids -ANAU$bmvAmthP7L7xwp9M}# + #{vars -ANAU$bmvAmthP7L7xwp9N}# + #{val-exps -ANAU$bmvAmthP7L7xwp9O}# + #{body-exp -ANAU$bmvAmthP7L7xwp9P}#))))) + (#{build-named-let -ANAU$bmvAmthP7L7xwnNP}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp9n}# + #{ids -ANAU$bmvAmthP7L7xwp9o}# + #{vars -ANAU$bmvAmthP7L7xwp9p}# + #{val-exps -ANAU$bmvAmthP7L7xwp9q}# + #{body-exp -ANAU$bmvAmthP7L7xwp9r}#) + (let ((#{f -ANAU$bmvAmthP7L7xwp9s}# + (car #{vars -ANAU$bmvAmthP7L7xwp9p}#)) + (#{f-name -ANAU$bmvAmthP7L7xwp9t}# + (car #{ids -ANAU$bmvAmthP7L7xwp9o}#)) + (#{vars -ANAU$bmvAmthP7L7xwp9u}# + (cdr #{vars -ANAU$bmvAmthP7L7xwp9p}#)) + (#{ids -ANAU$bmvAmthP7L7xwp9v}# + (cdr #{ids -ANAU$bmvAmthP7L7xwp9o}#))) + (let ((#{proc -ANAU$bmvAmthP7L7xwp9w}# + (let ((#{body -ANAU$bmvAmthP7L7xwp$E}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _hoQGWMnyQPAh3k2jhWKBs}# - #{ids _hoQGWMnyQPAh3k2jhWKB0}# + #{src -ANAU$bmvAmthP7L7xwp9n}# + #{ids -ANAU$bmvAmthP7L7xwp9v}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWKBz}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBw}# + #{vars -ANAU$bmvAmthP7L7xwp9u}# + #{body-exp -ANAU$bmvAmthP7L7xwp9r}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{src -ANAU$bmvAmthP7L7xwp9n}# '() - #{body _hoQGWMnyQPAh3k2jhWKCJ}#)))) + #{body -ANAU$bmvAmthP7L7xwp$E}#)))) (begin - (if (if (struct? #{proc _hoQGWMnyQPAh3k2jhWKB1}#) - (eq? (struct-vtable #{proc _hoQGWMnyQPAh3k2jhWKB1}#) + (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#) + (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWKCh}# - (struct-ref #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKCh}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKCo}# + (let ((#{meta -ANAU$bmvAmthP7L7xwp$c}# + (struct-ref #{proc -ANAU$bmvAmthP7L7xwp9w}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp$c}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp$j}# (cons (cons 'name - #{f-name _hoQGWMnyQPAh3k2jhWKBy}#) - #{meta _hoQGWMnyQPAh3k2jhWKCh}#))) + #{f-name -ANAU$bmvAmthP7L7xwp9t}#) + #{meta -ANAU$bmvAmthP7L7xwp$c}#))) (struct-set! - #{proc _hoQGWMnyQPAh3k2jhWKB1}# + #{proc -ANAU$bmvAmthP7L7xwp9w}# 1 - #{v _hoQGWMnyQPAh3k2jhWKCo}#))))) + #{v -ANAU$bmvAmthP7L7xwp$j}#))))) (for-each - #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - #{ids _hoQGWMnyQPAh3k2jhWKB0}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#) - (let ((#{names _hoQGWMnyQPAh3k2jhWKDA}# - (list #{f-name _hoQGWMnyQPAh3k2jhWKBy}#)) - (#{gensyms _hoQGWMnyQPAh3k2jhWKDB}# - (list #{f _hoQGWMnyQPAh3k2jhWKBx}#)) - (#{vals _hoQGWMnyQPAh3k2jhWKDC}# - (list #{proc _hoQGWMnyQPAh3k2jhWKB1}#)) - (#{body _hoQGWMnyQPAh3k2jhWKDD}# - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# + #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + #{ids -ANAU$bmvAmthP7L7xwp9v}# + #{val-exps -ANAU$bmvAmthP7L7xwp9q}#) + (let ((#{names -ANAU$bmvAmthP7L7xwp$7}# + (list #{f-name -ANAU$bmvAmthP7L7xwp9t}#)) + (#{gensyms -ANAU$bmvAmthP7L7xwp$8}# + (list #{f -ANAU$bmvAmthP7L7xwp9s}#)) + (#{vals -ANAU$bmvAmthP7L7xwp$9}# + (list #{proc -ANAU$bmvAmthP7L7xwp9w}#)) + (#{body -ANAU$bmvAmthP7L7xwp$$}# + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwp@C}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src _hoQGWMnyQPAh3k2jhWKBs}# - #{f-name _hoQGWMnyQPAh3k2jhWKBy}# - #{f _hoQGWMnyQPAh3k2jhWKBx}#))) + #{src -ANAU$bmvAmthP7L7xwp9n}# + #{f-name -ANAU$bmvAmthP7L7xwp9t}# + #{f -ANAU$bmvAmthP7L7xwp9s}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src _hoQGWMnyQPAh3k2jhWKBs}# - #{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#)))) + #{src -ANAU$bmvAmthP7L7xwp9n}# + #{fun-exp -ANAU$bmvAmthP7L7xwp@C}# + #{val-exps -ANAU$bmvAmthP7L7xwp9q}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{src -ANAU$bmvAmthP7L7xwp9n}# #f - #{names _hoQGWMnyQPAh3k2jhWKDA}# - #{gensyms _hoQGWMnyQPAh3k2jhWKDB}# - #{vals _hoQGWMnyQPAh3k2jhWKDC}# - #{body _hoQGWMnyQPAh3k2jhWKDD}#))))))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKDX}# - #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# - #{ids _hoQGWMnyQPAh3k2jhWKDZ}# - #{vars _hoQGWMnyQPAh3k2jhWKDa}# - #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# - #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#) - (if (null? #{vars _hoQGWMnyQPAh3k2jhWKDa}#) - #{body-exp _hoQGWMnyQPAh3k2jhWKDc}# + #{names -ANAU$bmvAmthP7L7xwp$7}# + #{gensyms -ANAU$bmvAmthP7L7xwp$8}# + #{vals -ANAU$bmvAmthP7L7xwp$9}# + #{body -ANAU$bmvAmthP7L7xwp$$}#))))))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp@S}# + #{in-order? -ANAU$bmvAmthP7L7xwp@T}# + #{ids -ANAU$bmvAmthP7L7xwp@U}# + #{vars -ANAU$bmvAmthP7L7xwp@V}# + #{val-exps -ANAU$bmvAmthP7L7xwp@W}# + #{body-exp -ANAU$bmvAmthP7L7xwp@X}#) + (if (null? #{vars -ANAU$bmvAmthP7L7xwp@V}#) + #{body-exp -ANAU$bmvAmthP7L7xwp@X}# (begin (for-each - #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - #{ids _hoQGWMnyQPAh3k2jhWKDZ}# - #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#) + #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + #{ids -ANAU$bmvAmthP7L7xwp@U}# + #{val-exps -ANAU$bmvAmthP7L7xwp@W}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _hoQGWMnyQPAh3k2jhWKDX}# - #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# - #{ids _hoQGWMnyQPAh3k2jhWKDZ}# - #{vars _hoQGWMnyQPAh3k2jhWKDa}# - #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# - #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#))))) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKD2}#) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKD2}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKD2}#) + #{src -ANAU$bmvAmthP7L7xwp@S}# + #{in-order? -ANAU$bmvAmthP7L7xwp@T}# + #{ids -ANAU$bmvAmthP7L7xwp@U}# + #{vars -ANAU$bmvAmthP7L7xwp@V}# + #{val-exps -ANAU$bmvAmthP7L7xwp@W}# + #{body-exp -ANAU$bmvAmthP7L7xwp@X}#))))) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (lambda (#{x -ANAU$bmvAmthP7L7xwp@x}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwp@x}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwp@x}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 0) 'syntax-object) #f) #f) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 1)) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWKD2}#) - (let ((#{props _hoQGWMnyQPAh3k2jhWKEF}# - (source-properties #{x _hoQGWMnyQPAh3k2jhWKD2}#))) - (if (pair? #{props _hoQGWMnyQPAh3k2jhWKEF}#) - #{props _hoQGWMnyQPAh3k2jhWKEF}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 1)) + (if (pair? #{x -ANAU$bmvAmthP7L7xwp@x}#) + (let ((#{props -ANAU$bmvAmthP7L7xwqAA}# + (source-properties #{x -ANAU$bmvAmthP7L7xwp@x}#))) + (if (pair? #{props -ANAU$bmvAmthP7L7xwqAA}#) + #{props -ANAU$bmvAmthP7L7xwqAA}# #f)) #f)))) - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEH}# - #{bindings _hoQGWMnyQPAh3k2jhWKEI}# - #{r _hoQGWMnyQPAh3k2jhWKEJ}#) - (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEH}#) - #{r _hoQGWMnyQPAh3k2jhWKEJ}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - (cdr #{labels _hoQGWMnyQPAh3k2jhWKEH}#) - (cdr #{bindings _hoQGWMnyQPAh3k2jhWKEI}#) - (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEH}#) - (car #{bindings _hoQGWMnyQPAh3k2jhWKEI}#)) - #{r _hoQGWMnyQPAh3k2jhWKEJ}#))))) - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEK}# - #{vars _hoQGWMnyQPAh3k2jhWKEL}# - #{r _hoQGWMnyQPAh3k2jhWKEM}#) - (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEK}#) - #{r _hoQGWMnyQPAh3k2jhWKEM}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - (cdr #{labels _hoQGWMnyQPAh3k2jhWKEK}#) - (cdr #{vars _hoQGWMnyQPAh3k2jhWKEL}#) - (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEK}#) + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + (lambda (#{labels -ANAU$bmvAmthP7L7xwqAC}# + #{bindings -ANAU$bmvAmthP7L7xwqAD}# + #{r -ANAU$bmvAmthP7L7xwqAE}#) + (if (null? #{labels -ANAU$bmvAmthP7L7xwqAC}#) + #{r -ANAU$bmvAmthP7L7xwqAE}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + (cdr #{labels -ANAU$bmvAmthP7L7xwqAC}#) + (cdr #{bindings -ANAU$bmvAmthP7L7xwqAD}#) + (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAC}#) + (car #{bindings -ANAU$bmvAmthP7L7xwqAD}#)) + #{r -ANAU$bmvAmthP7L7xwqAE}#))))) + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + (lambda (#{labels -ANAU$bmvAmthP7L7xwqAF}# + #{vars -ANAU$bmvAmthP7L7xwqAG}# + #{r -ANAU$bmvAmthP7L7xwqAH}#) + (if (null? #{labels -ANAU$bmvAmthP7L7xwqAF}#) + #{r -ANAU$bmvAmthP7L7xwqAH}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + (cdr #{labels -ANAU$bmvAmthP7L7xwqAF}#) + (cdr #{vars -ANAU$bmvAmthP7L7xwqAG}#) + (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAF}#) (cons 'lexical - (car #{vars _hoQGWMnyQPAh3k2jhWKEL}#))) - #{r _hoQGWMnyQPAh3k2jhWKEM}#))))) - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - (lambda (#{r _hoQGWMnyQPAh3k2jhWKEN}#) - (if (null? #{r _hoQGWMnyQPAh3k2jhWKEN}#) + (car #{vars -ANAU$bmvAmthP7L7xwqAG}#))) + #{r -ANAU$bmvAmthP7L7xwqAH}#))))) + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#) + (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#) '() - (let ((#{a _hoQGWMnyQPAh3k2jhWKEO}# - (car #{r _hoQGWMnyQPAh3k2jhWKEN}#))) - (if (eq? (car (cdr #{a _hoQGWMnyQPAh3k2jhWKEO}#)) + (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}# + (car #{r -ANAU$bmvAmthP7L7xwqAI}#))) + (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#)) 'macro) - (cons #{a _hoQGWMnyQPAh3k2jhWKEO}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))) - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# - (lambda (#{type _hoQGWMnyQPAh3k2jhWKEQ}# - #{sym _hoQGWMnyQPAh3k2jhWKER}# - #{val _hoQGWMnyQPAh3k2jhWKES}#) + (cons #{a -ANAU$bmvAmthP7L7xwqAJ}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#))) + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (lambda (#{type -ANAU$bmvAmthP7L7xwqAL}# + #{sym -ANAU$bmvAmthP7L7xwqAM}# + #{val -ANAU$bmvAmthP7L7xwqAN}#) (module-define! (current-module) - #{sym _hoQGWMnyQPAh3k2jhWKER}# + #{sym -ANAU$bmvAmthP7L7xwqAM}# (make-syntax-transformer - #{sym _hoQGWMnyQPAh3k2jhWKER}# - #{type _hoQGWMnyQPAh3k2jhWKEQ}# - #{val _hoQGWMnyQPAh3k2jhWKES}#)))) - (#{id? _hoQGWMnyQPAh3k2jhWHTB}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWIlN}#) - (if (symbol? #{x _hoQGWMnyQPAh3k2jhWIlN}#) + #{sym -ANAU$bmvAmthP7L7xwqAM}# + #{type -ANAU$bmvAmthP7L7xwqAL}# + #{val -ANAU$bmvAmthP7L7xwqAN}#)))) + (#{id? -ANAU$bmvAmthP7L7xwnNg}# + (lambda (#{x -ANAU$bmvAmthP7L7xwofs}#) + (if (symbol? #{x -ANAU$bmvAmthP7L7xwofs}#) #t - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIlN}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIlN}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1)) #f)))) - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (lambda (#{ls _hoQGWMnyQPAh3k2jhWKEf}#) - (if (null? #{ls _hoQGWMnyQPAh3k2jhWKEf}#) + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#) + (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#) '() - (cons (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#) - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (cdr #{ls _hoQGWMnyQPAh3k2jhWKEf}#)))))) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEg}# - #{labels _hoQGWMnyQPAh3k2jhWKEh}# - #{w _hoQGWMnyQPAh3k2jhWKEi}#) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWKEg}#) - #{w _hoQGWMnyQPAh3k2jhWKEi}# - (cons (car #{w _hoQGWMnyQPAh3k2jhWKEi}#) - (cons (let ((#{labelvec _hoQGWMnyQPAh3k2jhWKEj}# + (cons (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#) + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (cdr #{ls -ANAU$bmvAmthP7L7xwqAa}#)))))) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqAb}# + #{labels -ANAU$bmvAmthP7L7xwqAc}# + #{w -ANAU$bmvAmthP7L7xwqAd}#) + (if (null? #{ids -ANAU$bmvAmthP7L7xwqAb}#) + #{w -ANAU$bmvAmthP7L7xwqAd}# + (cons (car #{w -ANAU$bmvAmthP7L7xwqAd}#) + (cons (let ((#{labelvec -ANAU$bmvAmthP7L7xwqAe}# (list->vector - #{labels _hoQGWMnyQPAh3k2jhWKEh}#))) - (let ((#{n _hoQGWMnyQPAh3k2jhWKEk}# + #{labels -ANAU$bmvAmthP7L7xwqAc}#))) + (let ((#{n -ANAU$bmvAmthP7L7xwqAf}# (vector-length - #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))) - (let ((#{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# - (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#)) - (#{marksvec _hoQGWMnyQPAh3k2jhWKEm}# - (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#))) + #{labelvec -ANAU$bmvAmthP7L7xwqAe}#))) + (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}# + (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)) + (#{marksvec -ANAU$bmvAmthP7L7xwqAh}# + (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))) (begin (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKEn}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEq}# - #{i _hoQGWMnyQPAh3k2jhWKEr}#) - (if (not (null? #{ids _hoQGWMnyQPAh3k2jhWKEq}#)) + ((#{f -ANAU$bmvAmthP7L7xwqAi}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}# + #{i -ANAU$bmvAmthP7L7xwqAm}#) + (if (not (null? #{ids -ANAU$bmvAmthP7L7xwqAl}#)) (call-with-values (lambda () - (let ((#{x _hoQGWMnyQPAh3k2jhWKEu}# - (car #{ids _hoQGWMnyQPAh3k2jhWKEq}#))) + (let ((#{x -ANAU$bmvAmthP7L7xwqAp}# + (car #{ids -ANAU$bmvAmthP7L7xwqAl}#))) (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWKEu}#) + #{x -ANAU$bmvAmthP7L7xwqAp}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWKEu}#) + #{x -ANAU$bmvAmthP7L7xwqAp}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKEu}# + #{x -ANAU$bmvAmthP7L7xwqAp}# 0) 'syntax-object) #f) #f) (values (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKEu}# + #{x -ANAU$bmvAmthP7L7xwqAp}# 1) - (let ((#{m1 _hoQGWMnyQPAh3k2jhWKE$}# - (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)) - (#{m2 _hoQGWMnyQPAh3k2jhWKE@}# + (let ((#{m1 -ANAU$bmvAmthP7L7xwqA5}# + (car #{w -ANAU$bmvAmthP7L7xwqAd}#)) + (#{m2 -ANAU$bmvAmthP7L7xwqA6}# (car (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKEu}# + #{x -ANAU$bmvAmthP7L7xwqAp}# 2)))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKE@}#) - #{m1 _hoQGWMnyQPAh3k2jhWKE$}# + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqA6}#) + #{m1 -ANAU$bmvAmthP7L7xwqA5}# (append - #{m1 _hoQGWMnyQPAh3k2jhWKE$}# - #{m2 _hoQGWMnyQPAh3k2jhWKE@}#)))) + #{m1 -ANAU$bmvAmthP7L7xwqA5}# + #{m2 -ANAU$bmvAmthP7L7xwqA6}#)))) (values - #{x _hoQGWMnyQPAh3k2jhWKEu}# - (car #{w _hoQGWMnyQPAh3k2jhWKEi}#))))) - (lambda (#{symname _hoQGWMnyQPAh3k2jhWKFT}# - #{marks _hoQGWMnyQPAh3k2jhWKFU}#) + #{x -ANAU$bmvAmthP7L7xwqAp}# + (car #{w -ANAU$bmvAmthP7L7xwqAd}#))))) + (lambda (#{symname -ANAU$bmvAmthP7L7xwqBO}# + #{marks -ANAU$bmvAmthP7L7xwqBP}#) (begin (vector-set! - #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# - #{i _hoQGWMnyQPAh3k2jhWKEr}# - #{symname _hoQGWMnyQPAh3k2jhWKFT}#) + #{symnamevec -ANAU$bmvAmthP7L7xwqAg}# + #{i -ANAU$bmvAmthP7L7xwqAm}# + #{symname -ANAU$bmvAmthP7L7xwqBO}#) (vector-set! - #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# - #{i _hoQGWMnyQPAh3k2jhWKEr}# - #{marks _hoQGWMnyQPAh3k2jhWKFU}#) - (#{f _hoQGWMnyQPAh3k2jhWKEn}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKEq}#) - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKEr}#))))))))) - (#{f _hoQGWMnyQPAh3k2jhWKEn}# - #{ids _hoQGWMnyQPAh3k2jhWKEg}# + #{marksvec -ANAU$bmvAmthP7L7xwqAh}# + #{i -ANAU$bmvAmthP7L7xwqAm}# + #{marks -ANAU$bmvAmthP7L7xwqBP}#) + (#{f -ANAU$bmvAmthP7L7xwqAi}# + (cdr #{ids -ANAU$bmvAmthP7L7xwqAl}#) + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqAm}#))))))))) + (#{f -ANAU$bmvAmthP7L7xwqAi}# + #{ids -ANAU$bmvAmthP7L7xwqAb}# 0)) (vector 'ribcage - #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# - #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# - #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))))) - (cdr #{w _hoQGWMnyQPAh3k2jhWKEi}#)))))) - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - (lambda (#{w1 _hoQGWMnyQPAh3k2jhWKFd}# - #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) - (let ((#{m1 _hoQGWMnyQPAh3k2jhWKFf}# - (car #{w1 _hoQGWMnyQPAh3k2jhWKFd}#)) - (#{s1 _hoQGWMnyQPAh3k2jhWKFg}# - (cdr #{w1 _hoQGWMnyQPAh3k2jhWKFd}#))) - (if (null? #{m1 _hoQGWMnyQPAh3k2jhWKFf}#) - (if (null? #{s1 _hoQGWMnyQPAh3k2jhWKFg}#) - #{w2 _hoQGWMnyQPAh3k2jhWKFe}# - (cons (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) - (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFn}# - (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFn}#) - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{symnamevec -ANAU$bmvAmthP7L7xwqAg}# + #{marksvec -ANAU$bmvAmthP7L7xwqAh}# + #{labelvec -ANAU$bmvAmthP7L7xwqAe}#))))) + (cdr #{w -ANAU$bmvAmthP7L7xwqAd}#)))))) + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + (lambda (#{w1 -ANAU$bmvAmthP7L7xwqBY}# + #{w2 -ANAU$bmvAmthP7L7xwqBZ}#) + (let ((#{m1 -ANAU$bmvAmthP7L7xwqBa}# + (car #{w1 -ANAU$bmvAmthP7L7xwqBY}#)) + (#{s1 -ANAU$bmvAmthP7L7xwqBb}# + (cdr #{w1 -ANAU$bmvAmthP7L7xwqBY}#))) + (if (null? #{m1 -ANAU$bmvAmthP7L7xwqBa}#) + (if (null? #{s1 -ANAU$bmvAmthP7L7xwqBb}#) + #{w2 -ANAU$bmvAmthP7L7xwqBZ}# + (cons (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#) + (let ((#{m2 -ANAU$bmvAmthP7L7xwqBi}# + (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBi}#) + #{s1 -ANAU$bmvAmthP7L7xwqBb}# (append - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# - #{m2 _hoQGWMnyQPAh3k2jhWKFn}#))))) - (cons (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFw}# - (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFw}#) - #{m1 _hoQGWMnyQPAh3k2jhWKFf}# + #{s1 -ANAU$bmvAmthP7L7xwqBb}# + #{m2 -ANAU$bmvAmthP7L7xwqBi}#))))) + (cons (let ((#{m2 -ANAU$bmvAmthP7L7xwqBr}# + (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBr}#) + #{m1 -ANAU$bmvAmthP7L7xwqBa}# (append - #{m1 _hoQGWMnyQPAh3k2jhWKFf}# - #{m2 _hoQGWMnyQPAh3k2jhWKFw}#))) - (let ((#{m2 _hoQGWMnyQPAh3k2jhWKF5}# - (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKF5}#) - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{m1 -ANAU$bmvAmthP7L7xwqBa}# + #{m2 -ANAU$bmvAmthP7L7xwqBr}#))) + (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}# + (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#) + #{s1 -ANAU$bmvAmthP7L7xwqBb}# (append - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# - #{m2 _hoQGWMnyQPAh3k2jhWKF5}#)))))))) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKF$}# - #{y _hoQGWMnyQPAh3k2jhWKF@}#) - (if (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# - #{y _hoQGWMnyQPAh3k2jhWKF@}#) - (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# - #{y _hoQGWMnyQPAh3k2jhWKF@}#) - (if (not (null? #{x _hoQGWMnyQPAh3k2jhWKF$}#)) - (if (not (null? #{y _hoQGWMnyQPAh3k2jhWKF@}#)) - (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWKF$}#) - (car #{y _hoQGWMnyQPAh3k2jhWKF@}#)) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (cdr #{x _hoQGWMnyQPAh3k2jhWKF$}#) - (cdr #{y _hoQGWMnyQPAh3k2jhWKF@}#)) + #{s1 -ANAU$bmvAmthP7L7xwqBb}# + #{m2 -ANAU$bmvAmthP7L7xwqB0}#)))))))) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqB5}# + #{y -ANAU$bmvAmthP7L7xwqB6}#) + (if (eq? #{x -ANAU$bmvAmthP7L7xwqB5}# + #{y -ANAU$bmvAmthP7L7xwqB6}#) + (eq? #{x -ANAU$bmvAmthP7L7xwqB5}# + #{y -ANAU$bmvAmthP7L7xwqB6}#) + (if (not (null? #{x -ANAU$bmvAmthP7L7xwqB5}#)) + (if (not (null? #{y -ANAU$bmvAmthP7L7xwqB6}#)) + (if (eq? (car #{x -ANAU$bmvAmthP7L7xwqB5}#) + (car #{y -ANAU$bmvAmthP7L7xwqB6}#)) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (cdr #{x -ANAU$bmvAmthP7L7xwqB5}#) + (cdr #{y -ANAU$bmvAmthP7L7xwqB6}#)) #f) #f) #f)))) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - (lambda (#{id _hoQGWMnyQPAh3k2jhWKGH}# - #{w _hoQGWMnyQPAh3k2jhWKGI}#) + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}# + #{w -ANAU$bmvAmthP7L7xwqCD}#) (letrec* - ((#{search _hoQGWMnyQPAh3k2jhWKGJ}# - (lambda (#{sym _hoQGWMnyQPAh3k2jhWKHG}# - #{subst _hoQGWMnyQPAh3k2jhWKHH}# - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (if (null? #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - (values #f #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (let ((#{fst _hoQGWMnyQPAh3k2jhWKHJ}# - (car #{subst _hoQGWMnyQPAh3k2jhWKHH}#))) - (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 'shift) - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{sym _hoQGWMnyQPAh3k2jhWKHG}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - (cdr #{marks _hoQGWMnyQPAh3k2jhWKHI}#)) - (let ((#{symnames _hoQGWMnyQPAh3k2jhWKHL}# - (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 1))) - (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKHL}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWKHX}# + ((#{search -ANAU$bmvAmthP7L7xwqCE}# + (lambda (#{sym -ANAU$bmvAmthP7L7xwqDB}# + #{subst -ANAU$bmvAmthP7L7xwqDC}# + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (if (null? #{subst -ANAU$bmvAmthP7L7xwqDC}#) + (values #f #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (let ((#{fst -ANAU$bmvAmthP7L7xwqDE}# + (car #{subst -ANAU$bmvAmthP7L7xwqDC}#))) + (if (eq? #{fst -ANAU$bmvAmthP7L7xwqDE}# 'shift) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{sym -ANAU$bmvAmthP7L7xwqDB}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#) + (cdr #{marks -ANAU$bmvAmthP7L7xwqDD}#)) + (let ((#{symnames -ANAU$bmvAmthP7L7xwqDG}# + (vector-ref #{fst -ANAU$bmvAmthP7L7xwqDE}# 1))) + (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqDG}#) + (let ((#{n -ANAU$bmvAmthP7L7xwqDS}# (vector-length - #{symnames _hoQGWMnyQPAh3k2jhWKHL}#))) + #{symnames -ANAU$bmvAmthP7L7xwqDG}#))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKHY}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWKHa}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWKHa}# - #{n _hoQGWMnyQPAh3k2jhWKHX}#) - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{sym _hoQGWMnyQPAh3k2jhWKHG}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + ((#{f -ANAU$bmvAmthP7L7xwqDT}# + (lambda (#{i -ANAU$bmvAmthP7L7xwqDV}#) + (if (= #{i -ANAU$bmvAmthP7L7xwqDV}# + #{n -ANAU$bmvAmthP7L7xwqDS}#) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{sym -ANAU$bmvAmthP7L7xwqDB}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) (if (if (eq? (vector-ref - #{symnames _hoQGWMnyQPAh3k2jhWKHL}# - #{i _hoQGWMnyQPAh3k2jhWKHa}#) - #{sym _hoQGWMnyQPAh3k2jhWKHG}#) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - #{marks _hoQGWMnyQPAh3k2jhWKHI}# + #{symnames -ANAU$bmvAmthP7L7xwqDG}# + #{i -ANAU$bmvAmthP7L7xwqDV}#) + #{sym -ANAU$bmvAmthP7L7xwqDB}#) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + #{marks -ANAU$bmvAmthP7L7xwqDD}# (vector-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 2) - #{i _hoQGWMnyQPAh3k2jhWKHa}#)) + #{i -ANAU$bmvAmthP7L7xwqDV}#)) #f) (values (vector-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 3) - #{i _hoQGWMnyQPAh3k2jhWKHa}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (#{f _hoQGWMnyQPAh3k2jhWKHY}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKHa}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWKHY}# 0))) + #{i -ANAU$bmvAmthP7L7xwqDV}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (#{f -ANAU$bmvAmthP7L7xwqDT}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqDV}#))))))) + (#{f -ANAU$bmvAmthP7L7xwqDT}# 0))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKH7}# - (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKH9}# - #{i _hoQGWMnyQPAh3k2jhWKH$}#) - (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{sym _hoQGWMnyQPAh3k2jhWKHG}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (if (if (eq? (car #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) - #{sym _hoQGWMnyQPAh3k2jhWKHG}#) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - #{marks _hoQGWMnyQPAh3k2jhWKHI}# + ((#{f -ANAU$bmvAmthP7L7xwqD2}# + (lambda (#{symnames -ANAU$bmvAmthP7L7xwqD4}# + #{i -ANAU$bmvAmthP7L7xwqD5}#) + (if (null? #{symnames -ANAU$bmvAmthP7L7xwqD4}#) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{sym -ANAU$bmvAmthP7L7xwqDB}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (if (if (eq? (car #{symnames -ANAU$bmvAmthP7L7xwqD4}#) + #{sym -ANAU$bmvAmthP7L7xwqDB}#) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + #{marks -ANAU$bmvAmthP7L7xwqDD}# (list-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 2) - #{i _hoQGWMnyQPAh3k2jhWKH$}#)) + #{i -ANAU$bmvAmthP7L7xwqD5}#)) #f) (values (list-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 3) - #{i _hoQGWMnyQPAh3k2jhWKH$}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (#{f _hoQGWMnyQPAh3k2jhWKH7}# - (cdr #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKH$}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWKH7}# - #{symnames _hoQGWMnyQPAh3k2jhWKHL}# + #{i -ANAU$bmvAmthP7L7xwqD5}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (#{f -ANAU$bmvAmthP7L7xwqD2}# + (cdr #{symnames -ANAU$bmvAmthP7L7xwqD4}#) + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqD5}#))))))) + (#{f -ANAU$bmvAmthP7L7xwqD2}# + #{symnames -ANAU$bmvAmthP7L7xwqDG}# 0)))))))))) - (if (symbol? #{id _hoQGWMnyQPAh3k2jhWKGH}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWKGM}# - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{id _hoQGWMnyQPAh3k2jhWKGH}# - (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) - (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)))) - (if #{t _hoQGWMnyQPAh3k2jhWKGM}# - #{t _hoQGWMnyQPAh3k2jhWKGM}# - #{id _hoQGWMnyQPAh3k2jhWKGH}#)) - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWKGH}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWKGH}#) + (if (symbol? #{id -ANAU$bmvAmthP7L7xwqCC}#) + (let ((#{t -ANAU$bmvAmthP7L7xwqCH}# + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{id -ANAU$bmvAmthP7L7xwqCC}# + (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#) + (car #{w -ANAU$bmvAmthP7L7xwqCD}#)))) + (if #{t -ANAU$bmvAmthP7L7xwqCH}# + #{t -ANAU$bmvAmthP7L7xwqCH}# + #{id -ANAU$bmvAmthP7L7xwqCC}#)) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwqCC}#) + (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwqCC}#) 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 0) + (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 0) 'syntax-object) #f) #f) - (let ((#{id _hoQGWMnyQPAh3k2jhWKGb}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 1)) - (#{w1 _hoQGWMnyQPAh3k2jhWKGc}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 2))) - (let ((#{marks _hoQGWMnyQPAh3k2jhWKGd}# - (let ((#{m1 _hoQGWMnyQPAh3k2jhWKGn}# - (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)) - (#{m2 _hoQGWMnyQPAh3k2jhWKGo}# - (car #{w1 _hoQGWMnyQPAh3k2jhWKGc}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKGo}#) - #{m1 _hoQGWMnyQPAh3k2jhWKGn}# + (let ((#{id -ANAU$bmvAmthP7L7xwqCW}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 1)) + (#{w1 -ANAU$bmvAmthP7L7xwqCX}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 2))) + (let ((#{marks -ANAU$bmvAmthP7L7xwqCY}# + (let ((#{m1 -ANAU$bmvAmthP7L7xwqCi}# + (car #{w -ANAU$bmvAmthP7L7xwqCD}#)) + (#{m2 -ANAU$bmvAmthP7L7xwqCj}# + (car #{w1 -ANAU$bmvAmthP7L7xwqCX}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqCj}#) + #{m1 -ANAU$bmvAmthP7L7xwqCi}# (append - #{m1 _hoQGWMnyQPAh3k2jhWKGn}# - #{m2 _hoQGWMnyQPAh3k2jhWKGo}#))))) + #{m1 -ANAU$bmvAmthP7L7xwqCi}# + #{m2 -ANAU$bmvAmthP7L7xwqCj}#))))) (call-with-values (lambda () - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{id _hoQGWMnyQPAh3k2jhWKGb}# - (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) - #{marks _hoQGWMnyQPAh3k2jhWKGd}#)) - (lambda (#{new-id _hoQGWMnyQPAh3k2jhWKG4}# - #{marks _hoQGWMnyQPAh3k2jhWKG5}#) - (if #{new-id _hoQGWMnyQPAh3k2jhWKG4}# - #{new-id _hoQGWMnyQPAh3k2jhWKG4}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKHB}# - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{id _hoQGWMnyQPAh3k2jhWKGb}# - (cdr #{w1 _hoQGWMnyQPAh3k2jhWKGc}#) - #{marks _hoQGWMnyQPAh3k2jhWKG5}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKHB}# - #{t _hoQGWMnyQPAh3k2jhWKHB}# - #{id _hoQGWMnyQPAh3k2jhWKGb}#))))))) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{id -ANAU$bmvAmthP7L7xwqCW}# + (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#) + #{marks -ANAU$bmvAmthP7L7xwqCY}#)) + (lambda (#{new-id -ANAU$bmvAmthP7L7xwqCz}# + #{marks -ANAU$bmvAmthP7L7xwqC0}#) + (if #{new-id -ANAU$bmvAmthP7L7xwqCz}# + #{new-id -ANAU$bmvAmthP7L7xwqCz}# + (let ((#{t -ANAU$bmvAmthP7L7xwqC8}# + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{id -ANAU$bmvAmthP7L7xwqCW}# + (cdr #{w1 -ANAU$bmvAmthP7L7xwqCX}#) + #{marks -ANAU$bmvAmthP7L7xwqC0}#))) + (if #{t -ANAU$bmvAmthP7L7xwqC8}# + #{t -ANAU$bmvAmthP7L7xwqC8}# + #{id -ANAU$bmvAmthP7L7xwqCW}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id _hoQGWMnyQPAh3k2jhWKGH}#)))))) - (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# - (lambda (#{w _hoQGWMnyQPAh3k2jhWKIU}# - #{mod _hoQGWMnyQPAh3k2jhWKIV}#) + #{id -ANAU$bmvAmthP7L7xwqCC}#)))))) + (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}# + (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}# + #{mod -ANAU$bmvAmthP7L7xwqEQ}#) (letrec* - ((#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (lambda (#{subst _hoQGWMnyQPAh3k2jhWKIb}# - #{results _hoQGWMnyQPAh3k2jhWKIc}#) - (if (null? #{subst _hoQGWMnyQPAh3k2jhWKIb}#) - #{results _hoQGWMnyQPAh3k2jhWKIc}# - (let ((#{fst _hoQGWMnyQPAh3k2jhWKId}# - (car #{subst _hoQGWMnyQPAh3k2jhWKIb}#))) - (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKId}# 'shift) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKIb}#) - #{results _hoQGWMnyQPAh3k2jhWKIc}#) - (let ((#{symnames _hoQGWMnyQPAh3k2jhWKIf}# - (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 1)) - (#{marks _hoQGWMnyQPAh3k2jhWKIg}# - (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 2))) - (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKIf}#) - (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# - #{subst _hoQGWMnyQPAh3k2jhWKIb}# - #{symnames _hoQGWMnyQPAh3k2jhWKIf}# - #{marks _hoQGWMnyQPAh3k2jhWKIg}# - #{results _hoQGWMnyQPAh3k2jhWKIc}#) - (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# - #{subst _hoQGWMnyQPAh3k2jhWKIb}# - #{symnames _hoQGWMnyQPAh3k2jhWKIf}# - #{marks _hoQGWMnyQPAh3k2jhWKIg}# - #{results _hoQGWMnyQPAh3k2jhWKIc}#)))))))) - (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# - (lambda (#{subst _hoQGWMnyQPAh3k2jhWKKC}# - #{symnames _hoQGWMnyQPAh3k2jhWKKD}# - #{marks _hoQGWMnyQPAh3k2jhWKKE}# - #{results _hoQGWMnyQPAh3k2jhWKKF}#) + ((#{scan -ANAU$bmvAmthP7L7xwqER}# + (lambda (#{subst -ANAU$bmvAmthP7L7xwqEW}# + #{results -ANAU$bmvAmthP7L7xwqEX}#) + (if (null? #{subst -ANAU$bmvAmthP7L7xwqEW}#) + #{results -ANAU$bmvAmthP7L7xwqEX}# + (let ((#{fst -ANAU$bmvAmthP7L7xwqEY}# + (car #{subst -ANAU$bmvAmthP7L7xwqEW}#))) + (if (eq? #{fst -ANAU$bmvAmthP7L7xwqEY}# 'shift) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqEW}#) + #{results -ANAU$bmvAmthP7L7xwqEX}#) + (let ((#{symnames -ANAU$bmvAmthP7L7xwqEa}# + (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 1)) + (#{marks -ANAU$bmvAmthP7L7xwqEb}# + (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 2))) + (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqEa}#) + (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}# + #{subst -ANAU$bmvAmthP7L7xwqEW}# + #{symnames -ANAU$bmvAmthP7L7xwqEa}# + #{marks -ANAU$bmvAmthP7L7xwqEb}# + #{results -ANAU$bmvAmthP7L7xwqEX}#) + (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}# + #{subst -ANAU$bmvAmthP7L7xwqEW}# + #{symnames -ANAU$bmvAmthP7L7xwqEa}# + #{marks -ANAU$bmvAmthP7L7xwqEb}# + #{results -ANAU$bmvAmthP7L7xwqEX}#)))))))) + (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}# + (lambda (#{subst -ANAU$bmvAmthP7L7xwqF9}# + #{symnames -ANAU$bmvAmthP7L7xwqF$}# + #{marks -ANAU$bmvAmthP7L7xwqF@}# + #{results -ANAU$bmvAmthP7L7xwqGA}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKKG}# - (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKLq}# - #{marks _hoQGWMnyQPAh3k2jhWKLr}# - #{results _hoQGWMnyQPAh3k2jhWKLs}#) - (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKKC}#) - #{results _hoQGWMnyQPAh3k2jhWKLs}#) - (#{f _hoQGWMnyQPAh3k2jhWKKG}# - (cdr #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) - (cdr #{marks _hoQGWMnyQPAh3k2jhWKLr}#) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) - (let ((#{w _hoQGWMnyQPAh3k2jhWKL0}# - (cons (car #{marks _hoQGWMnyQPAh3k2jhWKLr}#) - #{subst _hoQGWMnyQPAh3k2jhWKKC}#))) + ((#{f -ANAU$bmvAmthP7L7xwqGB}# + (lambda (#{symnames -ANAU$bmvAmthP7L7xwqHl}# + #{marks -ANAU$bmvAmthP7L7xwqHm}# + #{results -ANAU$bmvAmthP7L7xwqHn}#) + (if (null? #{symnames -ANAU$bmvAmthP7L7xwqHl}#) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqF9}#) + #{results -ANAU$bmvAmthP7L7xwqHn}#) + (#{f -ANAU$bmvAmthP7L7xwqGB}# + (cdr #{symnames -ANAU$bmvAmthP7L7xwqHl}#) + (cdr #{marks -ANAU$bmvAmthP7L7xwqHm}#) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{symnames -ANAU$bmvAmthP7L7xwqHl}#) + (let ((#{w -ANAU$bmvAmthP7L7xwqHv}# + (cons (car #{marks -ANAU$bmvAmthP7L7xwqHm}#) + #{subst -ANAU$bmvAmthP7L7xwqF9}#))) (cons (cons #f - (car #{w _hoQGWMnyQPAh3k2jhWKL0}#)) + (car #{w -ANAU$bmvAmthP7L7xwqHv}#)) (cons 'shift - (cdr #{w _hoQGWMnyQPAh3k2jhWKL0}#)))) - #{mod _hoQGWMnyQPAh3k2jhWKIV}#) - #{results _hoQGWMnyQPAh3k2jhWKLs}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWKKG}# - #{symnames _hoQGWMnyQPAh3k2jhWKKD}# - #{marks _hoQGWMnyQPAh3k2jhWKKE}# - #{results _hoQGWMnyQPAh3k2jhWKKF}#)))) - (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# - (lambda (#{subst _hoQGWMnyQPAh3k2jhWKL1}# - #{symnames _hoQGWMnyQPAh3k2jhWKL2}# - #{marks _hoQGWMnyQPAh3k2jhWKL3}# - #{results _hoQGWMnyQPAh3k2jhWKL4}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWKL5}# + (cdr #{w -ANAU$bmvAmthP7L7xwqHv}#)))) + #{mod -ANAU$bmvAmthP7L7xwqEQ}#) + #{results -ANAU$bmvAmthP7L7xwqHn}#)))))) + (#{f -ANAU$bmvAmthP7L7xwqGB}# + #{symnames -ANAU$bmvAmthP7L7xwqF$}# + #{marks -ANAU$bmvAmthP7L7xwqF@}# + #{results -ANAU$bmvAmthP7L7xwqGA}#)))) + (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}# + (lambda (#{subst -ANAU$bmvAmthP7L7xwqHw}# + #{symnames -ANAU$bmvAmthP7L7xwqHx}# + #{marks -ANAU$bmvAmthP7L7xwqHy}# + #{results -ANAU$bmvAmthP7L7xwqHz}#) + (let ((#{n -ANAU$bmvAmthP7L7xwqH0}# (vector-length - #{symnames _hoQGWMnyQPAh3k2jhWKL2}#))) + #{symnames -ANAU$bmvAmthP7L7xwqHx}#))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKL6}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWKNN}# - #{results _hoQGWMnyQPAh3k2jhWKNO}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWKNN}# - #{n _hoQGWMnyQPAh3k2jhWKL5}#) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKL1}#) - #{results _hoQGWMnyQPAh3k2jhWKNO}#) - (#{f _hoQGWMnyQPAh3k2jhWKL6}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKNN}#) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + ((#{f -ANAU$bmvAmthP7L7xwqH1}# + (lambda (#{i -ANAU$bmvAmthP7L7xwqJI}# + #{results -ANAU$bmvAmthP7L7xwqJJ}#) + (if (= #{i -ANAU$bmvAmthP7L7xwqJI}# + #{n -ANAU$bmvAmthP7L7xwqH0}#) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqHw}#) + #{results -ANAU$bmvAmthP7L7xwqJJ}#) + (#{f -ANAU$bmvAmthP7L7xwqH1}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqJI}#) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (vector-ref - #{symnames _hoQGWMnyQPAh3k2jhWKL2}# - #{i _hoQGWMnyQPAh3k2jhWKNN}#) - (let ((#{w _hoQGWMnyQPAh3k2jhWKNW}# + #{symnames -ANAU$bmvAmthP7L7xwqHx}# + #{i -ANAU$bmvAmthP7L7xwqJI}#) + (let ((#{w -ANAU$bmvAmthP7L7xwqJR}# (cons (vector-ref - #{marks _hoQGWMnyQPAh3k2jhWKL3}# - #{i _hoQGWMnyQPAh3k2jhWKNN}#) - #{subst _hoQGWMnyQPAh3k2jhWKL1}#))) + #{marks -ANAU$bmvAmthP7L7xwqHy}# + #{i -ANAU$bmvAmthP7L7xwqJI}#) + #{subst -ANAU$bmvAmthP7L7xwqHw}#))) (cons (cons #f - (car #{w _hoQGWMnyQPAh3k2jhWKNW}#)) + (car #{w -ANAU$bmvAmthP7L7xwqJR}#)) (cons 'shift - (cdr #{w _hoQGWMnyQPAh3k2jhWKNW}#)))) - #{mod _hoQGWMnyQPAh3k2jhWKIV}#) - #{results _hoQGWMnyQPAh3k2jhWKNO}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWKL6}# + (cdr #{w -ANAU$bmvAmthP7L7xwqJR}#)))) + #{mod -ANAU$bmvAmthP7L7xwqEQ}#) + #{results -ANAU$bmvAmthP7L7xwqJJ}#)))))) + (#{f -ANAU$bmvAmthP7L7xwqH1}# 0 - #{results _hoQGWMnyQPAh3k2jhWKL4}#)))))) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{w _hoQGWMnyQPAh3k2jhWKIU}#) + #{results -ANAU$bmvAmthP7L7xwqHz}#)))))) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#) '())))) - (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKNX}#) + (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#) (if (letrec* - ((#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKP6}#) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) - (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) - (if (let ((#{x _hoQGWMnyQPAh3k2jhWKQF}# - (car #{ids _hoQGWMnyQPAh3k2jhWKP6}#))) - (if (symbol? #{x _hoQGWMnyQPAh3k2jhWKQF}#) + ((#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqL1}#) + (if (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#) + (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#) + (if (let ((#{x -ANAU$bmvAmthP7L7xwqMA}# + (car #{ids -ANAU$bmvAmthP7L7xwqL1}#))) + (if (symbol? #{x -ANAU$bmvAmthP7L7xwqMA}#) #t - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKQF}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWKQF}#) + #{x -ANAU$bmvAmthP7L7xwqMA}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKQF}# + #{x -ANAU$bmvAmthP7L7xwqMA}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKQF}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1)) #f))) - (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKP6}#)) + (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# + (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#)) #f))))) - (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# - #{ids _hoQGWMnyQPAh3k2jhWKNX}#)) - (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - #{ids _hoQGWMnyQPAh3k2jhWKNX}#) + (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# + #{ids -ANAU$bmvAmthP7L7xwqJS}#)) + (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + #{ids -ANAU$bmvAmthP7L7xwqJS}#) #f))) - (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKSF}#) + (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#) (letrec* - ((#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (if (not (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - (car #{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#))) - (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#)) + ((#{distinct? -ANAU$bmvAmthP7L7xwqOB}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqPx}#) + (if (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#) + (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#) + (if (not (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + (car #{ids -ANAU$bmvAmthP7L7xwqPx}#) + (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#))) + (#{distinct? -ANAU$bmvAmthP7L7xwqOB}# + (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#)) #f))))) - (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# - #{ids _hoQGWMnyQPAh3k2jhWKSF}#)))) - (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKXI}# - #{list _hoQGWMnyQPAh3k2jhWKXJ}#) - (if (not (null? #{list _hoQGWMnyQPAh3k2jhWKXJ}#)) - (let ((#{t _hoQGWMnyQPAh3k2jhWKXK}# - (let ((#{j _hoQGWMnyQPAh3k2jhWKYb}# - (car #{list _hoQGWMnyQPAh3k2jhWKXJ}#))) - (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKXI}#) + (#{distinct? -ANAU$bmvAmthP7L7xwqOB}# + #{ids -ANAU$bmvAmthP7L7xwqOA}#)))) + (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqTD}# + #{list -ANAU$bmvAmthP7L7xwqTE}#) + (if (not (null? #{list -ANAU$bmvAmthP7L7xwqTE}#)) + (let ((#{t -ANAU$bmvAmthP7L7xwqTF}# + (let ((#{j -ANAU$bmvAmthP7L7xwqUW}# + (car #{list -ANAU$bmvAmthP7L7xwqTE}#))) + (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqTD}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWKXI}#) + #{x -ANAU$bmvAmthP7L7xwqTD}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKXI}# + #{x -ANAU$bmvAmthP7L7xwqTD}# 0) 'syntax-object) #f) #f) - (if (vector? #{j _hoQGWMnyQPAh3k2jhWKYb}#) + (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#) (if (= (vector-length - #{j _hoQGWMnyQPAh3k2jhWKYb}#) + #{j -ANAU$bmvAmthP7L7xwqUW}#) 4) - (eq? (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 0) + (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 1) - (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 1)) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 2)) - (car (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 2))) + (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 1) + (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 1)) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (car (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 2)) + (car (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 2))) #f) - (eq? #{x _hoQGWMnyQPAh3k2jhWKXI}# - #{j _hoQGWMnyQPAh3k2jhWKYb}#))))) - (if #{t _hoQGWMnyQPAh3k2jhWKXK}# - #{t _hoQGWMnyQPAh3k2jhWKXK}# - (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - #{x _hoQGWMnyQPAh3k2jhWKXI}# - (cdr #{list _hoQGWMnyQPAh3k2jhWKXJ}#)))) + (eq? #{x -ANAU$bmvAmthP7L7xwqTD}# + #{j -ANAU$bmvAmthP7L7xwqUW}#))))) + (if #{t -ANAU$bmvAmthP7L7xwqTF}# + #{t -ANAU$bmvAmthP7L7xwqTF}# + (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + #{x -ANAU$bmvAmthP7L7xwqTD}# + (cdr #{list -ANAU$bmvAmthP7L7xwqTE}#)))) #f))) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKZH}# - #{w _hoQGWMnyQPAh3k2jhWKZI}# - #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#) - (if (if (null? (car #{w _hoQGWMnyQPAh3k2jhWKZI}#)) - (null? (cdr #{w _hoQGWMnyQPAh3k2jhWKZI}#)) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqVC}# + #{w -ANAU$bmvAmthP7L7xwqVD}# + #{defmod -ANAU$bmvAmthP7L7xwqVE}#) + (if (if (null? (car #{w -ANAU$bmvAmthP7L7xwqVD}#)) + (null? (cdr #{w -ANAU$bmvAmthP7L7xwqVD}#)) #f) - #{x _hoQGWMnyQPAh3k2jhWKZH}# - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKZH}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKZH}#) + #{x -ANAU$bmvAmthP7L7xwqVC}# + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0) 'syntax-object) #f) #f) - (let ((#{expression _hoQGWMnyQPAh3k2jhWKZX}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 1)) - (#{wrap _hoQGWMnyQPAh3k2jhWKZY}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWKZI}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 2))) - (#{module _hoQGWMnyQPAh3k2jhWKZZ}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 3))) + (let ((#{expression -ANAU$bmvAmthP7L7xwqVS}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 1)) + (#{wrap -ANAU$bmvAmthP7L7xwqVT}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwqVD}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 2))) + (#{module -ANAU$bmvAmthP7L7xwqVU}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 3))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWKZX}# - #{wrap _hoQGWMnyQPAh3k2jhWKZY}# - #{module _hoQGWMnyQPAh3k2jhWKZZ}#)) - (if (null? #{x _hoQGWMnyQPAh3k2jhWKZH}#) - #{x _hoQGWMnyQPAh3k2jhWKZH}# + #{expression -ANAU$bmvAmthP7L7xwqVS}# + #{wrap -ANAU$bmvAmthP7L7xwqVT}# + #{module -ANAU$bmvAmthP7L7xwqVU}#)) + (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#) + #{x -ANAU$bmvAmthP7L7xwqVC}# (vector 'syntax-object - #{x _hoQGWMnyQPAh3k2jhWKZH}# - #{w _hoQGWMnyQPAh3k2jhWKZI}# - #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#)))))) - (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKZq}# - #{w _hoQGWMnyQPAh3k2jhWKZr}# - #{s _hoQGWMnyQPAh3k2jhWKZs}# - #{defmod _hoQGWMnyQPAh3k2jhWKZt}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{x -ANAU$bmvAmthP7L7xwqVC}# + #{w -ANAU$bmvAmthP7L7xwqVD}# + #{defmod -ANAU$bmvAmthP7L7xwqVE}#)))))) + (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqVl}# + #{w -ANAU$bmvAmthP7L7xwqVm}# + #{s -ANAU$bmvAmthP7L7xwqVn}# + #{defmod -ANAU$bmvAmthP7L7xwqVo}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWKZq}#) - #{s _hoQGWMnyQPAh3k2jhWKZs}# + (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#) + #{s -ANAU$bmvAmthP7L7xwqVn}# #f) (set-source-properties! - #{x _hoQGWMnyQPAh3k2jhWKZq}# - #{s _hoQGWMnyQPAh3k2jhWKZs}#)) - #{x _hoQGWMnyQPAh3k2jhWKZq}#) - #{w _hoQGWMnyQPAh3k2jhWKZr}# - #{defmod _hoQGWMnyQPAh3k2jhWKZt}#))) - (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWMpK}# - #{r _hoQGWMnyQPAh3k2jhWMpL}# - #{w _hoQGWMnyQPAh3k2jhWMpM}# - #{s _hoQGWMnyQPAh3k2jhWMpN}# - #{mod _hoQGWMnyQPAh3k2jhWMpO}#) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# - #{s _hoQGWMnyQPAh3k2jhWMpN}# + #{x -ANAU$bmvAmthP7L7xwqVl}# + #{s -ANAU$bmvAmthP7L7xwqVn}#)) + #{x -ANAU$bmvAmthP7L7xwqVl}#) + #{w -ANAU$bmvAmthP7L7xwqVm}# + #{defmod -ANAU$bmvAmthP7L7xwqVo}#))) + (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}# + (lambda (#{body -ANAU$bmvAmthP7L7xwsvr}# + #{r -ANAU$bmvAmthP7L7xwsvs}# + #{w -ANAU$bmvAmthP7L7xwsvt}# + #{s -ANAU$bmvAmthP7L7xwsvu}# + #{mod -ANAU$bmvAmthP7L7xwsvv}#) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# + #{s -ANAU$bmvAmthP7L7xwsvu}# (letrec* - ((#{dobody _hoQGWMnyQPAh3k2jhWMqe}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWMv8}# - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMv$}# - #{mod _hoQGWMnyQPAh3k2jhWMv@}#) - (if (null? #{body _hoQGWMnyQPAh3k2jhWMv8}#) + ((#{dobody -ANAU$bmvAmthP7L7xwsw@}# + (lambda (#{body -ANAU$bmvAmthP7L7xws2d}# + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2f}# + #{mod -ANAU$bmvAmthP7L7xws2g}#) + (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#) '() - (let ((#{first _hoQGWMnyQPAh3k2jhWMwA}# - (let ((#{e _hoQGWMnyQPAh3k2jhWMwE}# - (car #{body _hoQGWMnyQPAh3k2jhWMv8}#))) + (let ((#{first -ANAU$bmvAmthP7L7xws2h}# + (let ((#{e -ANAU$bmvAmthP7L7xws2l}# + (car #{body -ANAU$bmvAmthP7L7xws2d}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWMwE}# - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMv$}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWMwE}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xws2l}# + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2f}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xws2l}#) #f - #{mod _hoQGWMnyQPAh3k2jhWMv@}# + #{mod -ANAU$bmvAmthP7L7xws2g}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWMwL}# - #{value _hoQGWMnyQPAh3k2jhWMwM}# - #{e _hoQGWMnyQPAh3k2jhWMwN}# - #{w _hoQGWMnyQPAh3k2jhWMwO}# - #{s _hoQGWMnyQPAh3k2jhWMwP}# - #{mod _hoQGWMnyQPAh3k2jhWMwQ}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWMwL}# - #{value _hoQGWMnyQPAh3k2jhWMwM}# - #{e _hoQGWMnyQPAh3k2jhWMwN}# - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMwO}# - #{s _hoQGWMnyQPAh3k2jhWMwP}# - #{mod _hoQGWMnyQPAh3k2jhWMwQ}#)))))) - (cons #{first _hoQGWMnyQPAh3k2jhWMwA}# - (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# - (cdr #{body _hoQGWMnyQPAh3k2jhWMv8}#) - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMv$}# - #{mod _hoQGWMnyQPAh3k2jhWMv@}#))))))) - (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# - #{body _hoQGWMnyQPAh3k2jhWMpK}# - #{r _hoQGWMnyQPAh3k2jhWMpL}# - #{w _hoQGWMnyQPAh3k2jhWMpM}# - #{mod _hoQGWMnyQPAh3k2jhWMpO}#))))) - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWKZ@}# - #{r _hoQGWMnyQPAh3k2jhWKaA}# - #{w _hoQGWMnyQPAh3k2jhWKaB}# - #{s _hoQGWMnyQPAh3k2jhWKaC}# - #{m _hoQGWMnyQPAh3k2jhWKaD}# - #{esew _hoQGWMnyQPAh3k2jhWKaE}# - #{mod _hoQGWMnyQPAh3k2jhWKaF}#) + (lambda (#{type -ANAU$bmvAmthP7L7xws2s}# + #{value -ANAU$bmvAmthP7L7xws2t}# + #{e -ANAU$bmvAmthP7L7xws2u}# + #{w -ANAU$bmvAmthP7L7xws2v}# + #{s -ANAU$bmvAmthP7L7xws2w}# + #{mod -ANAU$bmvAmthP7L7xws2x}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xws2s}# + #{value -ANAU$bmvAmthP7L7xws2t}# + #{e -ANAU$bmvAmthP7L7xws2u}# + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2v}# + #{s -ANAU$bmvAmthP7L7xws2w}# + #{mod -ANAU$bmvAmthP7L7xws2x}#)))))) + (cons #{first -ANAU$bmvAmthP7L7xws2h}# + (#{dobody -ANAU$bmvAmthP7L7xwsw@}# + (cdr #{body -ANAU$bmvAmthP7L7xws2d}#) + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2f}# + #{mod -ANAU$bmvAmthP7L7xws2g}#))))))) + (#{dobody -ANAU$bmvAmthP7L7xwsw@}# + #{body -ANAU$bmvAmthP7L7xwsvr}# + #{r -ANAU$bmvAmthP7L7xwsvs}# + #{w -ANAU$bmvAmthP7L7xwsvt}# + #{mod -ANAU$bmvAmthP7L7xwsvv}#))))) + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + (lambda (#{body -ANAU$bmvAmthP7L7xwqV6}# + #{r -ANAU$bmvAmthP7L7xwqV7}# + #{w -ANAU$bmvAmthP7L7xwqV8}# + #{s -ANAU$bmvAmthP7L7xwqV9}# + #{m -ANAU$bmvAmthP7L7xwqV$}# + #{esew -ANAU$bmvAmthP7L7xwqV@}# + #{mod -ANAU$bmvAmthP7L7xwqWA}#) (letrec* - ((#{scan _hoQGWMnyQPAh3k2jhWKaG}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWKcJ}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKcL}# - #{s _hoQGWMnyQPAh3k2jhWKcM}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKcP}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - (if (null? #{body _hoQGWMnyQPAh3k2jhWKcJ}#) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}# + ((#{scan -ANAU$bmvAmthP7L7xwqWB}# + (lambda (#{body -ANAU$bmvAmthP7L7xwqYE}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqYG}# + #{s -ANAU$bmvAmthP7L7xwqYH}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqYK}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + (if (null? #{body -ANAU$bmvAmthP7L7xwqYE}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e _hoQGWMnyQPAh3k2jhWKcR}# - (car #{body _hoQGWMnyQPAh3k2jhWKcJ}#))) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWKcR}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKcL}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKcV}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWKcR}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKcV}# - #{t _hoQGWMnyQPAh3k2jhWKcV}# - #{s _hoQGWMnyQPAh3k2jhWKcM}#)) + (let ((#{e -ANAU$bmvAmthP7L7xwqYM}# + (car #{body -ANAU$bmvAmthP7L7xwqYE}#))) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwqYM}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqYG}# + (let ((#{t -ANAU$bmvAmthP7L7xwqYQ}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwqYM}#))) + (if #{t -ANAU$bmvAmthP7L7xwqYQ}# + #{t -ANAU$bmvAmthP7L7xwqYQ}# + #{s -ANAU$bmvAmthP7L7xwqYH}#)) #f - #{mod _hoQGWMnyQPAh3k2jhWKcP}# + #{mod -ANAU$bmvAmthP7L7xwqYK}# #f))) - (lambda (#{type _hoQGWMnyQPAh3k2jhWKgA}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + (lambda (#{type -ANAU$bmvAmthP7L7xwqb7}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'begin-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgK}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwqcF}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# '(_)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWKgK}# + (if #{tmp -ANAU$bmvAmthP7L7xwqcF}# (@apply - (lambda () #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - #{tmp _hoQGWMnyQPAh3k2jhWKgK}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgO}# + (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{tmp -ANAU$bmvAmthP7L7xwqcF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# '(_ any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWKgO}# + (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWKgS}# - #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWKgS}# - #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - #{tmp _hoQGWMnyQPAh3k2jhWKgO}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwqcN}# + #{e2 -ANAU$bmvAmthP7L7xwqcO}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + (cons #{e1 -ANAU$bmvAmthP7L7xwqcN}# + #{e2 -ANAU$bmvAmthP7L7xwqcO}#) + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + #{tmp -ANAU$bmvAmthP7L7xwqcJ}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWKgC}#))))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{e -ANAU$bmvAmthP7L7xwqb9}#))))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'local-syntax-form) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWKgi}# - #{r _hoQGWMnyQPAh3k2jhWKgj}# - #{w _hoQGWMnyQPAh3k2jhWKgk}# - #{s _hoQGWMnyQPAh3k2jhWKgl}# - #{mod _hoQGWMnyQPAh3k2jhWKgm}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgi}# - #{r _hoQGWMnyQPAh3k2jhWKgj}# - #{w _hoQGWMnyQPAh3k2jhWKgk}# - #{s _hoQGWMnyQPAh3k2jhWKgl}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKgm}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + (lambda (#{body -ANAU$bmvAmthP7L7xwqcd}# + #{r -ANAU$bmvAmthP7L7xwqce}# + #{w -ANAU$bmvAmthP7L7xwqcf}# + #{s -ANAU$bmvAmthP7L7xwqcg}# + #{mod -ANAU$bmvAmthP7L7xwqch}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcd}# + #{r -ANAU$bmvAmthP7L7xwqce}# + #{w -ANAU$bmvAmthP7L7xwqcf}# + #{s -ANAU$bmvAmthP7L7xwqcg}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqch}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'eval-when-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgr}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwqcm}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# '(_ each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWKgr}# + (if #{tmp -ANAU$bmvAmthP7L7xwqcm}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWKgv}# - #{e1 _hoQGWMnyQPAh3k2jhWKgw}# - #{e2 _hoQGWMnyQPAh3k2jhWKgx}#) - (let ((#{when-list _hoQGWMnyQPAh3k2jhWKgy}# - (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{x _hoQGWMnyQPAh3k2jhWKgv}#)) - (#{body _hoQGWMnyQPAh3k2jhWKgz}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWKgw}# - #{e2 _hoQGWMnyQPAh3k2jhWKgx}#))) - (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqcq}# + #{e1 -ANAU$bmvAmthP7L7xwqcr}# + #{e2 -ANAU$bmvAmthP7L7xwqcs}#) + (let ((#{when-list -ANAU$bmvAmthP7L7xwqct}# + (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{x -ANAU$bmvAmthP7L7xwqcq}#)) + (#{body -ANAU$bmvAmthP7L7xwqcu}# + (cons #{e1 -ANAU$bmvAmthP7L7xwqcr}# + #{e2 -ANAU$bmvAmthP7L7xwqcs}#))) + (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'e) (if (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# (if (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + #{when-list -ANAU$bmvAmthP7L7xwqct}#) 'c&e 'e) '(eval) - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) (begin (if (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) - (let ((#{x _hoQGWMnyQPAh3k2jhWKiA}# - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#) + (let ((#{x -ANAU$bmvAmthP7L7xwqd7}# + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'e '(eval) - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) (primitive-eval - #{x _hoQGWMnyQPAh3k2jhWKiA}#))) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + #{x -ANAU$bmvAmthP7L7xwqd7}#))) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) (if (memq 'load - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) - (if (let ((#{t _hoQGWMnyQPAh3k2jhWKia}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#) + (if (let ((#{t -ANAU$bmvAmthP7L7xwqeV}# (memq 'compile - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKia}# - #{t _hoQGWMnyQPAh3k2jhWKia}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKjL}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqeV}# + #{t -ANAU$bmvAmthP7L7xwqeV}# + (let ((#{t -ANAU$bmvAmthP7L7xwqfG}# (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKjL}# - #{t _hoQGWMnyQPAh3k2jhWKjL}# - (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqfG}# + #{t -ANAU$bmvAmthP7L7xwqfG}# + (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e) (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + #{when-list -ANAU$bmvAmthP7L7xwqct}#) #f))))) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'c&e '(compile load) - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c) #t - (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e)) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'c '(load) - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (let ((#{t _hoQGWMnyQPAh3k2jhWKlM}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + (if (let ((#{t -ANAU$bmvAmthP7L7xwqhH}# (memq 'compile - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKlM}# - #{t _hoQGWMnyQPAh3k2jhWKlM}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKl9}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqhH}# + #{t -ANAU$bmvAmthP7L7xwqhH}# + (let ((#{t -ANAU$bmvAmthP7L7xwqh4}# (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKl9}# - #{t _hoQGWMnyQPAh3k2jhWKl9}# - (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqh4}# + #{t -ANAU$bmvAmthP7L7xwqh4}# + (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e) (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + #{when-list -ANAU$bmvAmthP7L7xwqct}#) #f))))) (begin - (let ((#{x _hoQGWMnyQPAh3k2jhWKn5}# - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + (let ((#{x -ANAU$bmvAmthP7L7xwqj0}# + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'e '(eval) - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) (primitive-eval - #{x _hoQGWMnyQPAh3k2jhWKn5}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWKgr}#) + #{x -ANAU$bmvAmthP7L7xwqj0}#)) + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#))))) + #{tmp -ANAU$bmvAmthP7L7xwqcm}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWKgC}#))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{e -ANAU$bmvAmthP7L7xwqb9}#))) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'define-syntax-form) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'define-syntax-parameter-form)) - (let ((#{n _hoQGWMnyQPAh3k2jhWKon}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}#)) - (#{r _hoQGWMnyQPAh3k2jhWKoo}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{r _hoQGWMnyQPAh3k2jhWKcK}#))) - (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) + (let ((#{n -ANAU$bmvAmthP7L7xwqki}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}#)) + (#{r -ANAU$bmvAmthP7L7xwqkj}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{r -ANAU$bmvAmthP7L7xwqYF}#))) + (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c) (if (memq 'compile - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWKos}# - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (let ((#{e -ANAU$bmvAmthP7L7xwqkn}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) (begin - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - #{e _hoQGWMnyQPAh3k2jhWKos}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + #{e -ANAU$bmvAmthP7L7xwqkn}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) (if (memq 'load - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (values - (cons #{e _hoQGWMnyQPAh3k2jhWKos}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (cons #{e -ANAU$bmvAmthP7L7xwqkn}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#))) (if (memq 'load - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (values - (cons (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (cons (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e) - (let ((#{e _hoQGWMnyQPAh3k2jhWKvr}# - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) + (let ((#{e -ANAU$bmvAmthP7L7xwqup}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) (begin - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - #{e _hoQGWMnyQPAh3k2jhWKvr}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) - (values - (cons #{e _hoQGWMnyQPAh3k2jhWKvr}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + #{e -ANAU$bmvAmthP7L7xwqup}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) + (cons #{e -ANAU$bmvAmthP7L7xwqup}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#))) (begin (if (memq 'eval - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'define-form) - (let ((#{n _hoQGWMnyQPAh3k2jhWK5m}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}#))) - (let ((#{type _hoQGWMnyQPAh3k2jhWK5n}# - (car (let ((#{t _hoQGWMnyQPAh3k2jhWK5u}# - (assq #{n _hoQGWMnyQPAh3k2jhWK5m}# - #{r _hoQGWMnyQPAh3k2jhWKcK}#))) - (if #{t _hoQGWMnyQPAh3k2jhWK5u}# - (cdr #{t _hoQGWMnyQPAh3k2jhWK5u}#) + (let ((#{n -ANAU$bmvAmthP7L7xwq5L}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}#))) + (let ((#{type -ANAU$bmvAmthP7L7xwq5M}# + (car (let ((#{t -ANAU$bmvAmthP7L7xwq5T}# + (assq #{n -ANAU$bmvAmthP7L7xwq5L}# + #{r -ANAU$bmvAmthP7L7xwqYF}#))) + (if #{t -ANAU$bmvAmthP7L7xwq5T}# + (cdr #{t -ANAU$bmvAmthP7L7xwq5T}#) (if (symbol? - #{n _hoQGWMnyQPAh3k2jhWK5m}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWK50}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWK5m}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) - (if #{t _hoQGWMnyQPAh3k2jhWK50}# - #{t _hoQGWMnyQPAh3k2jhWK50}# + #{n -ANAU$bmvAmthP7L7xwq5L}#) + (let ((#{t -ANAU$bmvAmthP7L7xwq5Z}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwq5L}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + (if #{t -ANAU$bmvAmthP7L7xwq5Z}# + #{t -ANAU$bmvAmthP7L7xwq5Z}# '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'global) #t - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'core) #t - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'macro) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'module-ref)))) (begin - (if (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (if (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c) #t - (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e)) (if (not (module-local-variable (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}#)) + #{n -ANAU$bmvAmthP7L7xwq5L}#)) (current-module) #f) #f) - (let ((#{old _hoQGWMnyQPAh3k2jhWK6T}# + (let ((#{old -ANAU$bmvAmthP7L7xwq54}# (module-variable (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}#))) + #{n -ANAU$bmvAmthP7L7xwq5L}#))) (if (if (variable? - #{old _hoQGWMnyQPAh3k2jhWK6T}#) + #{old -ANAU$bmvAmthP7L7xwq54}#) (variable-bound? - #{old _hoQGWMnyQPAh3k2jhWK6T}#) + #{old -ANAU$bmvAmthP7L7xwq54}#) #f) (module-define! (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{n -ANAU$bmvAmthP7L7xwq5L}# (variable-ref - #{old _hoQGWMnyQPAh3k2jhWK6T}#)) + #{old -ANAU$bmvAmthP7L7xwq54}#)) (module-add! (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{n -ANAU$bmvAmthP7L7xwq5L}# (make-undefined-variable))))) - (values - (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# - 'c&e) - (let ((#{x _hoQGWMnyQPAh3k2jhWK6V}# - (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{n _hoQGWMnyQPAh3k2jhWK5m}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) - (begin - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - #{x _hoQGWMnyQPAh3k2jhWK6V}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) - #{x _hoQGWMnyQPAh3k2jhWK6V}#)) - (lambda () - (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{n _hoQGWMnyQPAh3k2jhWK5m}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# + 'c&e) + (let ((#{x -ANAU$bmvAmthP7L7xwrAx}# + (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{n -ANAU$bmvAmthP7L7xwq5L}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) + (begin + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + #{x -ANAU$bmvAmthP7L7xwrAx}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) + #{x -ANAU$bmvAmthP7L7xwrAx}#)) + (lambda () + (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{n -ANAU$bmvAmthP7L7xwq5L}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e _hoQGWMnyQPAh3k2jhWKgC}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) + #{e -ANAU$bmvAmthP7L7xwqb9}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) (syntax-violation #f "cannot define keyword at top level" - #{e _hoQGWMnyQPAh3k2jhWKgC}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))))) - (values - (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# - 'c&e) - (let ((#{x _hoQGWMnyQPAh3k2jhWLBT}# - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWKgA}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) - (begin - (primitive-eval - #{x _hoQGWMnyQPAh3k2jhWLBT}#) - #{x _hoQGWMnyQPAh3k2jhWLBT}#)) - (lambda () - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWKgA}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))))))) - (lambda (#{exps _hoQGWMnyQPAh3k2jhWLBc}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - (cdr #{body _hoQGWMnyQPAh3k2jhWKcJ}#) - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKcL}# - #{s _hoQGWMnyQPAh3k2jhWKcM}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKcP}# - #{exps _hoQGWMnyQPAh3k2jhWLBc}#))))))) + #{e -ANAU$bmvAmthP7L7xwqb9}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))))) + (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# + 'c&e) + (let ((#{x -ANAU$bmvAmthP7L7xwrH4}# + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwqb7}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + (begin + (primitive-eval + #{x -ANAU$bmvAmthP7L7xwrH4}#) + #{x -ANAU$bmvAmthP7L7xwrH4}#)) + (lambda () + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwqb7}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + #{exps -ANAU$bmvAmthP7L7xwqYL}#))))))))) + (lambda (#{exps -ANAU$bmvAmthP7L7xwrH9}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + (cdr #{body -ANAU$bmvAmthP7L7xwqYE}#) + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqYG}# + #{s -ANAU$bmvAmthP7L7xwqYH}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqYK}# + #{exps -ANAU$bmvAmthP7L7xwrH9}#))))))) (call-with-values (lambda () - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKZ@}# - #{r _hoQGWMnyQPAh3k2jhWKaA}# - #{w _hoQGWMnyQPAh3k2jhWKaB}# - #{s _hoQGWMnyQPAh3k2jhWKaC}# - #{m _hoQGWMnyQPAh3k2jhWKaD}# - #{esew _hoQGWMnyQPAh3k2jhWKaE}# - #{mod _hoQGWMnyQPAh3k2jhWKaF}# + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqV6}# + #{r -ANAU$bmvAmthP7L7xwqV7}# + #{w -ANAU$bmvAmthP7L7xwqV8}# + #{s -ANAU$bmvAmthP7L7xwqV9}# + #{m -ANAU$bmvAmthP7L7xwqV$}# + #{esew -ANAU$bmvAmthP7L7xwqV@}# + #{mod -ANAU$bmvAmthP7L7xwqWA}# '())) - (lambda (#{exps _hoQGWMnyQPAh3k2jhWKaJ}#) - (if (null? #{exps _hoQGWMnyQPAh3k2jhWKaJ}#) + (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#) + (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s _hoQGWMnyQPAh3k2jhWKaC}#) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# - #{s _hoQGWMnyQPAh3k2jhWKaC}# + #{s -ANAU$bmvAmthP7L7xwqV9}#) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# + #{s -ANAU$bmvAmthP7L7xwqV9}# (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWKax}# - (lambda (#{in _hoQGWMnyQPAh3k2jhWKcF}# - #{out _hoQGWMnyQPAh3k2jhWKcG}#) - (if (null? #{in _hoQGWMnyQPAh3k2jhWKcF}#) - #{out _hoQGWMnyQPAh3k2jhWKcG}# - (let ((#{e _hoQGWMnyQPAh3k2jhWKcH}# - (car #{in _hoQGWMnyQPAh3k2jhWKcF}#))) - (#{lp _hoQGWMnyQPAh3k2jhWKax}# - (cdr #{in _hoQGWMnyQPAh3k2jhWKcF}#) + ((#{lp -ANAU$bmvAmthP7L7xwqWs}# + (lambda (#{in -ANAU$bmvAmthP7L7xwqYA}# + #{out -ANAU$bmvAmthP7L7xwqYB}#) + (if (null? #{in -ANAU$bmvAmthP7L7xwqYA}#) + #{out -ANAU$bmvAmthP7L7xwqYB}# + (let ((#{e -ANAU$bmvAmthP7L7xwqYC}# + (car #{in -ANAU$bmvAmthP7L7xwqYA}#))) + (#{lp -ANAU$bmvAmthP7L7xwqWs}# + (cdr #{in -ANAU$bmvAmthP7L7xwqYA}#) (cons (if (procedure? - #{e _hoQGWMnyQPAh3k2jhWKcH}#) - (#{e _hoQGWMnyQPAh3k2jhWKcH}#) - #{e _hoQGWMnyQPAh3k2jhWKcH}#) - #{out _hoQGWMnyQPAh3k2jhWKcG}#))))))) - (#{lp _hoQGWMnyQPAh3k2jhWKax}# - #{exps _hoQGWMnyQPAh3k2jhWKaJ}# + #{e -ANAU$bmvAmthP7L7xwqYC}#) + (#{e -ANAU$bmvAmthP7L7xwqYC}#) + #{e -ANAU$bmvAmthP7L7xwqYC}#) + #{out -ANAU$bmvAmthP7L7xwqYB}#))))))) + (#{lp -ANAU$bmvAmthP7L7xwqWs}# + #{exps -ANAU$bmvAmthP7L7xwqWE}# '()))))))))) - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - (lambda (#{name _hoQGWMnyQPAh3k2jhWLBd}# - #{e _hoQGWMnyQPAh3k2jhWLBe}#) - (let ((#{exp _hoQGWMnyQPAh3k2jhWLBk}# - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}# + #{e -ANAU$bmvAmthP7L7xwrH@}#) + (let ((#{exp -ANAU$bmvAmthP7L7xwrIF}# + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwrIP}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1559,416 +1547,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWLBv}# + (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name _hoQGWMnyQPAh3k2jhWLBd}#) + #{name -ANAU$bmvAmthP7L7xwrH$}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e _hoQGWMnyQPAh3k2jhWLBe}#))) + #{e -ANAU$bmvAmthP7L7xwrH@}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# - #{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#)))) + #{fun-exp -ANAU$bmvAmthP7L7xwrIP}# + #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#)))) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWLBk}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWLBk}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWLCY}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWLCY}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWLCf}# - (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWLBd}#) - #{meta _hoQGWMnyQPAh3k2jhWLCY}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwrI5}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwrIF}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwrI5}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwrJA}# + (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwrH$}#) + #{meta -ANAU$bmvAmthP7L7xwrI5}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWLBk}# + #{exp -ANAU$bmvAmthP7L7xwrIF}# 1 - #{v _hoQGWMnyQPAh3k2jhWLCf}#))))) + #{v -ANAU$bmvAmthP7L7xwrJA}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name _hoQGWMnyQPAh3k2jhWLBd}# - #{exp _hoQGWMnyQPAh3k2jhWLBk}#))))) - (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWLCq}# - #{when-list _hoQGWMnyQPAh3k2jhWLCr}#) - (let ((#{result _hoQGWMnyQPAh3k2jhWLCs}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{when-list _hoQGWMnyQPAh3k2jhWLCr}# + #{name -ANAU$bmvAmthP7L7xwrH$}# + #{exp -ANAU$bmvAmthP7L7xwrIF}#))))) + (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}# + (lambda (#{e -ANAU$bmvAmthP7L7xwrJL}# + #{when-list -ANAU$bmvAmthP7L7xwrJM}#) + (let ((#{result -ANAU$bmvAmthP7L7xwrJN}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{when-list -ANAU$bmvAmthP7L7xwrJM}# '(())))) (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWLCt}# - (lambda (#{l _hoQGWMnyQPAh3k2jhWLDj}#) - (if (null? #{l _hoQGWMnyQPAh3k2jhWLDj}#) - #{result _hoQGWMnyQPAh3k2jhWLCs}# - (if (let ((#{t _hoQGWMnyQPAh3k2jhWLDl}# - (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))) - (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'compile) + ((#{lp -ANAU$bmvAmthP7L7xwrJO}# + (lambda (#{l -ANAU$bmvAmthP7L7xwrKE}#) + (if (null? #{l -ANAU$bmvAmthP7L7xwrKE}#) + #{result -ANAU$bmvAmthP7L7xwrJN}# + (if (let ((#{t -ANAU$bmvAmthP7L7xwrKG}# + (car #{l -ANAU$bmvAmthP7L7xwrKE}#))) + (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'compile) #t - (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'load) + (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load) #t - (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'eval) + (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval) #t - (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'expand))))) - (#{lp _hoQGWMnyQPAh3k2jhWLCt}# - (cdr #{l _hoQGWMnyQPAh3k2jhWLDj}#)) + (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand))))) + (#{lp -ANAU$bmvAmthP7L7xwrJO}# + (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#)) (syntax-violation 'eval-when "invalid situation" - #{e _hoQGWMnyQPAh3k2jhWLCq}# - (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))))))) - (#{lp _hoQGWMnyQPAh3k2jhWLCt}# - #{result _hoQGWMnyQPAh3k2jhWLCs}#))))) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) - (if (symbol? #{e _hoQGWMnyQPAh3k2jhWLDn}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWLDu}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWLDv}# - (let ((#{t _hoQGWMnyQPAh3k2jhWLD3}# - (assq #{n _hoQGWMnyQPAh3k2jhWLDu}# - #{r _hoQGWMnyQPAh3k2jhWLDo}#))) - (if #{t _hoQGWMnyQPAh3k2jhWLD3}# - (cdr #{t _hoQGWMnyQPAh3k2jhWLD3}#) - (if (symbol? #{n _hoQGWMnyQPAh3k2jhWLDu}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWLD9}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWLDu}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))) - (if #{t _hoQGWMnyQPAh3k2jhWLD9}# - #{t _hoQGWMnyQPAh3k2jhWLD9}# + #{e -ANAU$bmvAmthP7L7xwrJL}# + (car #{l -ANAU$bmvAmthP7L7xwrKE}#))))))) + (#{lp -ANAU$bmvAmthP7L7xwrJO}# + #{result -ANAU$bmvAmthP7L7xwrJN}#))))) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (lambda (#{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) + (if (symbol? #{e -ANAU$bmvAmthP7L7xwrKI}#) + (let ((#{n -ANAU$bmvAmthP7L7xwrKP}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwrKQ}# + (let ((#{t -ANAU$bmvAmthP7L7xwrKY}# + (assq #{n -ANAU$bmvAmthP7L7xwrKP}# + #{r -ANAU$bmvAmthP7L7xwrKJ}#))) + (if #{t -ANAU$bmvAmthP7L7xwrKY}# + (cdr #{t -ANAU$bmvAmthP7L7xwrKY}#) + (if (symbol? #{n -ANAU$bmvAmthP7L7xwrKP}#) + (let ((#{t -ANAU$bmvAmthP7L7xwrKe}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwrKP}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))) + (if #{t -ANAU$bmvAmthP7L7xwrKe}# + #{t -ANAU$bmvAmthP7L7xwrKe}# '(global))) '(displaced-lexical)))))) - (let ((#{type _hoQGWMnyQPAh3k2jhWLDw}# - (car #{b _hoQGWMnyQPAh3k2jhWLDv}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'lexical) + (let ((#{type -ANAU$bmvAmthP7L7xwrKR}# + (car #{b -ANAU$bmvAmthP7L7xwrKQ}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical) (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'global) + #{type -ANAU$bmvAmthP7L7xwrKR}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'global) (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - #{n _hoQGWMnyQPAh3k2jhWLDu}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'macro) - (if #{for-car? _hoQGWMnyQPAh3k2jhWLDt}# + #{type -ANAU$bmvAmthP7L7xwrKR}# + #{n -ANAU$bmvAmthP7L7xwrKP}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'macro) + (if #{for-car? -ANAU$bmvAmthP7L7xwrKO}# (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{type -ANAU$bmvAmthP7L7xwrKR}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + #{r -ANAU$bmvAmthP7L7xwrKJ}# '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# #f)) (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWLDn}#) - (let ((#{first _hoQGWMnyQPAh3k2jhWLER}# - (car #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + #{type -ANAU$bmvAmthP7L7xwrKR}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))))))) + (if (pair? #{e -ANAU$bmvAmthP7L7xwrKI}#) + (let ((#{first -ANAU$bmvAmthP7L7xwrKy}# + (car #{e -ANAU$bmvAmthP7L7xwrKI}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{first _hoQGWMnyQPAh3k2jhWLER}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{first -ANAU$bmvAmthP7L7xwrKy}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# #t)) - (lambda (#{ftype _hoQGWMnyQPAh3k2jhWLET}# - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{fe _hoQGWMnyQPAh3k2jhWLEV}# - #{fw _hoQGWMnyQPAh3k2jhWLEW}# - #{fs _hoQGWMnyQPAh3k2jhWLEX}# - #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'lexical) + (lambda (#{ftype -ANAU$bmvAmthP7L7xwrK0}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{fe -ANAU$bmvAmthP7L7xwrK2}# + #{fw -ANAU$bmvAmthP7L7xwrK3}# + #{fs -ANAU$bmvAmthP7L7xwrK4}# + #{fmod -ANAU$bmvAmthP7L7xwrK5}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'lexical) (values 'lexical-call - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'global) + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'global) (values 'global-call (vector 'syntax-object - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'macro) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{fmod -ANAU$bmvAmthP7L7xwrK5}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'macro) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + #{r -ANAU$bmvAmthP7L7xwrKJ}# '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'module-ref) (call-with-values (lambda () - (#{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWLEt}# - #{r _hoQGWMnyQPAh3k2jhWLEu}# - #{w _hoQGWMnyQPAh3k2jhWLEv}# - #{s _hoQGWMnyQPAh3k2jhWLEw}# - #{mod _hoQGWMnyQPAh3k2jhWLEx}#) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLEt}# - #{r _hoQGWMnyQPAh3k2jhWLEu}# - #{w _hoQGWMnyQPAh3k2jhWLEv}# - #{s _hoQGWMnyQPAh3k2jhWLEw}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLEx}# - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#))) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'core) + (#{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwrLO}# + #{r -ANAU$bmvAmthP7L7xwrLP}# + #{w -ANAU$bmvAmthP7L7xwrLQ}# + #{s -ANAU$bmvAmthP7L7xwrLR}# + #{mod -ANAU$bmvAmthP7L7xwrLS}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwrLO}# + #{r -ANAU$bmvAmthP7L7xwrLP}# + #{w -ANAU$bmvAmthP7L7xwrLQ}# + #{s -ANAU$bmvAmthP7L7xwrLR}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrLS}# + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#))) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'core) (values 'core-form - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'local-syntax) (values 'local-syntax-form - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'begin) (values 'begin-form #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'eval-when) (values 'eval-when-form #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'define) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFC}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFC}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLFG}# - #{val _hoQGWMnyQPAh3k2jhWLFH}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrLn}# + #{val -ANAU$bmvAmthP7L7xwrLo}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLFG}#) + #{name -ANAU$bmvAmthP7L7xwrLn}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLFG}#) + #{name -ANAU$bmvAmthP7L7xwrLn}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLFG}#) + #{name -ANAU$bmvAmthP7L7xwrLn}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFG}# + #{name -ANAU$bmvAmthP7L7xwrLn}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFG}# + #{name -ANAU$bmvAmthP7L7xwrLn}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) + #{tmp -ANAU$bmvAmthP7L7xwrLj}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLFi}# - #{val _hoQGWMnyQPAh3k2jhWLFj}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrMD}# + #{val -ANAU$bmvAmthP7L7xwrME}#) (values 'define-form - #{name _hoQGWMnyQPAh3k2jhWLFi}# - #{val _hoQGWMnyQPAh3k2jhWLFj}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFk}# + #{name -ANAU$bmvAmthP7L7xwrMD}# + #{val -ANAU$bmvAmthP7L7xwrME}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrLj}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwrMF}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ (any . any) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFk}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrMF}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLFo}# - #{args _hoQGWMnyQPAh3k2jhWLFp}# - #{e1 _hoQGWMnyQPAh3k2jhWLFq}# - #{e2 _hoQGWMnyQPAh3k2jhWLFr}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrMJ}# + #{args -ANAU$bmvAmthP7L7xwrMK}# + #{e1 -ANAU$bmvAmthP7L7xwrML}# + #{e2 -ANAU$bmvAmthP7L7xwrMM}#) (if (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLFo}#) + #{name -ANAU$bmvAmthP7L7xwrMJ}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLFo}#) + #{name -ANAU$bmvAmthP7L7xwrMJ}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLFo}#) + #{name -ANAU$bmvAmthP7L7xwrMJ}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFo}# + #{name -ANAU$bmvAmthP7L7xwrMJ}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFo}# + #{name -ANAU$bmvAmthP7L7xwrMJ}# 1)) #f)) - (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# (letrec* - ((#{lvl _hoQGWMnyQPAh3k2jhWLIA}# - (lambda (#{vars _hoQGWMnyQPAh3k2jhWLIC}# - #{ls _hoQGWMnyQPAh3k2jhWLID}# - #{w _hoQGWMnyQPAh3k2jhWLIE}#) - (if (pair? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# - (cdr #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - #{w _hoQGWMnyQPAh3k2jhWLIE}# + ((#{lvl -ANAU$bmvAmthP7L7xwrOh}# + (lambda (#{vars -ANAU$bmvAmthP7L7xwrOj}# + #{ls -ANAU$bmvAmthP7L7xwrOk}# + #{w -ANAU$bmvAmthP7L7xwrOl}#) + (if (pair? #{vars -ANAU$bmvAmthP7L7xwrOj}#) + (#{lvl -ANAU$bmvAmthP7L7xwrOh}# + (cdr #{vars -ANAU$bmvAmthP7L7xwrOj}#) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{w -ANAU$bmvAmthP7L7xwrOl}# #f) - #{ls _hoQGWMnyQPAh3k2jhWLID}#) - #{w _hoQGWMnyQPAh3k2jhWLIE}#) + #{ls -ANAU$bmvAmthP7L7xwrOk}#) + #{w -ANAU$bmvAmthP7L7xwrOl}#) (if (if (symbol? - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) #t (if (if (vector? - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) (if (= (vector-length - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) 4) (eq? (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 1)) #f)) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{vars _hoQGWMnyQPAh3k2jhWLIC}# - #{w _hoQGWMnyQPAh3k2jhWLIE}# + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{w -ANAU$bmvAmthP7L7xwrOl}# #f) - #{ls _hoQGWMnyQPAh3k2jhWLID}#) - (if (null? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - #{ls _hoQGWMnyQPAh3k2jhWLID}# + #{ls -ANAU$bmvAmthP7L7xwrOk}#) + (if (null? #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{ls -ANAU$bmvAmthP7L7xwrOk}# (if (if (vector? - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) (if (= (vector-length - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) 4) (eq? (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 0) 'syntax-object) #f) #f) - (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + (#{lvl -ANAU$bmvAmthP7L7xwrOh}# (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 1) - #{ls _hoQGWMnyQPAh3k2jhWLID}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWLIE}# + #{ls -ANAU$bmvAmthP7L7xwrOk}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwrOl}# (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 2))) - (cons #{vars _hoQGWMnyQPAh3k2jhWLIC}# - #{ls _hoQGWMnyQPAh3k2jhWLID}#)))))))) - (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# - #{args _hoQGWMnyQPAh3k2jhWLFp}# + (cons #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{ls -ANAU$bmvAmthP7L7xwrOk}#)))))))) + (#{lvl -ANAU$bmvAmthP7L7xwrOh}# + #{args -ANAU$bmvAmthP7L7xwrMK}# '() '(())))) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) + #{tmp -ANAU$bmvAmthP7L7xwrMF}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLIw}# - #{args _hoQGWMnyQPAh3k2jhWLIx}# - #{e1 _hoQGWMnyQPAh3k2jhWLIy}# - #{e2 _hoQGWMnyQPAh3k2jhWLIz}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrPR}# + #{args -ANAU$bmvAmthP7L7xwrPS}# + #{e1 -ANAU$bmvAmthP7L7xwrPT}# + #{e2 -ANAU$bmvAmthP7L7xwrPU}#) (values 'define-form - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{name _hoQGWMnyQPAh3k2jhWLIw}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLI5}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{name -ANAU$bmvAmthP7L7xwrPR}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (let ((#{e -ANAU$bmvAmthP7L7xwrPa}# (cons '#(syntax-object lambda ((top) @@ -1981,10 +1969,10 @@ (top) (top) (top)) - #("29f" - "29g" - "29h" - "29i")) + #("l7" + "l8" + "l9" + "la")) #(ribcage () () @@ -2006,12 +1994,12 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () @@ -2019,7 +2007,7 @@ #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () @@ -2047,13 +2035,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -2335,146 +2323,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -2482,72 +2470,72 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile)) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (cons #{args _hoQGWMnyQPAh3k2jhWLIx}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWLIy}# - #{e2 _hoQGWMnyQPAh3k2jhWLIz}#)) - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (cons #{args -ANAU$bmvAmthP7L7xwrPS}# + (cons #{e1 -ANAU$bmvAmthP7L7xwrPT}# + #{e2 -ANAU$bmvAmthP7L7xwrPU}#)) + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLI5}#) - #{s _hoQGWMnyQPAh3k2jhWLDq}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrPa}#) + #{s -ANAU$bmvAmthP7L7xwrKL}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLI5}# - #{s _hoQGWMnyQPAh3k2jhWLDq}#)) - #{e _hoQGWMnyQPAh3k2jhWLI5}#)) + #{e -ANAU$bmvAmthP7L7xwrPa}# + #{s -ANAU$bmvAmthP7L7xwrKL}#)) + #{e -ANAU$bmvAmthP7L7xwrPa}#)) '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJA}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrMF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwrPh}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJA}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrPh}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLJE}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrPl}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLJE}#) + #{name -ANAU$bmvAmthP7L7xwrPl}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLJE}#) + #{name -ANAU$bmvAmthP7L7xwrPl}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLJE}#) + #{name -ANAU$bmvAmthP7L7xwrPl}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJE}# + #{name -ANAU$bmvAmthP7L7xwrPl}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJE}# + #{name -ANAU$bmvAmthP7L7xwrPl}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) + #{tmp -ANAU$bmvAmthP7L7xwrPh}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLJf}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrQA}#) (values 'define-form - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{name _hoQGWMnyQPAh3k2jhWLJf}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{name -ANAU$bmvAmthP7L7xwrQA}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("29k")) + #("lc")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2563,17 +2551,17 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2592,13 +2580,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -2880,146 +2868,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -3027,9 +3015,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)) #(syntax-object #f @@ -3037,7 +3023,7 @@ #(ribcage #(name) #((top)) - #("29k")) + #("lc")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3053,17 +3039,17 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3082,13 +3068,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -3370,146 +3356,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -3517,9 +3503,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)) #(syntax-object #f @@ -3527,7 +3511,7 @@ #(ribcage #(name) #((top)) - #("29k")) + #("lc")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3543,17 +3527,17 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3572,13 +3556,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -3860,146 +3844,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -4007,363 +3991,361 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile))) '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrPh}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLDn}#))))))) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}#))))))) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'define-syntax) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJy}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLJ2}# - #{val _hoQGWMnyQPAh3k2jhWLJ3}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrQX}# + #{val -ANAU$bmvAmthP7L7xwrQY}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLJ2}#) + #{name -ANAU$bmvAmthP7L7xwrQX}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLJ2}#) + #{name -ANAU$bmvAmthP7L7xwrQX}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLJ2}#) + #{name -ANAU$bmvAmthP7L7xwrQX}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJ2}# + #{name -ANAU$bmvAmthP7L7xwrQX}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJ2}# + #{name -ANAU$bmvAmthP7L7xwrQX}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) + #{tmp -ANAU$bmvAmthP7L7xwrQT}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLKS}# - #{val _hoQGWMnyQPAh3k2jhWLKT}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrQz}# + #{val -ANAU$bmvAmthP7L7xwrQ0}#) (values 'define-syntax-form - #{name _hoQGWMnyQPAh3k2jhWLKS}# - #{val _hoQGWMnyQPAh3k2jhWLKT}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) + #{name -ANAU$bmvAmthP7L7xwrQz}# + #{val -ANAU$bmvAmthP7L7xwrQ0}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrQT}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLDn}#))) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}#))) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'define-syntax-parameter) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLKe}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrQ@}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLKe}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrQ@}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLKi}# - #{val _hoQGWMnyQPAh3k2jhWLKj}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrRD}# + #{val -ANAU$bmvAmthP7L7xwrRE}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLKi}#) + #{name -ANAU$bmvAmthP7L7xwrRD}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLKi}#) + #{name -ANAU$bmvAmthP7L7xwrRD}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLKi}#) + #{name -ANAU$bmvAmthP7L7xwrRD}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLKi}# + #{name -ANAU$bmvAmthP7L7xwrRD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLKi}# + #{name -ANAU$bmvAmthP7L7xwrRD}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) + #{tmp -ANAU$bmvAmthP7L7xwrQ@}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLK$}# - #{val _hoQGWMnyQPAh3k2jhWLK@}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrRf}# + #{val -ANAU$bmvAmthP7L7xwrRg}#) (values 'define-syntax-parameter-form - #{name _hoQGWMnyQPAh3k2jhWLK$}# - #{val _hoQGWMnyQPAh3k2jhWLK@}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) + #{name -ANAU$bmvAmthP7L7xwrRf}# + #{val -ANAU$bmvAmthP7L7xwrRg}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrQ@}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + #{e -ANAU$bmvAmthP7L7xwrKI}#))) (values 'call #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))))))))))) - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWLDn}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWLDn}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))))))))))))))) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwrKI}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwrKI}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 0) 'syntax-object) #f) #f) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 1) - #{r _hoQGWMnyQPAh3k2jhWLDo}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 2)) - (let ((#{t _hoQGWMnyQPAh3k2jhWLLa}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWLDn}#))) - (if #{t _hoQGWMnyQPAh3k2jhWLLa}# - #{t _hoQGWMnyQPAh3k2jhWLLa}# - #{s _hoQGWMnyQPAh3k2jhWLDq}#)) - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - (let ((#{t _hoQGWMnyQPAh3k2jhWLPF}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 3))) - (if #{t _hoQGWMnyQPAh3k2jhWLPF}# - #{t _hoQGWMnyQPAh3k2jhWLPF}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) - (if (self-evaluating? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 1) + #{r -ANAU$bmvAmthP7L7xwrKJ}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 2)) + (let ((#{t -ANAU$bmvAmthP7L7xwrR7}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwrKI}#))) + (if #{t -ANAU$bmvAmthP7L7xwrR7}# + #{t -ANAU$bmvAmthP7L7xwrR7}# + #{s -ANAU$bmvAmthP7L7xwrKL}#)) + #{rib -ANAU$bmvAmthP7L7xwrKM}# + (let ((#{t -ANAU$bmvAmthP7L7xwrVm}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 3))) + (if #{t -ANAU$bmvAmthP7L7xwrVm}# + #{t -ANAU$bmvAmthP7L7xwrVm}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) + (if (self-evaluating? #{e -ANAU$bmvAmthP7L7xwrKI}#) (values 'constant #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) (values 'other #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWLPO}# - #{r _hoQGWMnyQPAh3k2jhWLPP}# - #{w _hoQGWMnyQPAh3k2jhWLPQ}# - #{mod _hoQGWMnyQPAh3k2jhWLPR}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))))))) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (lambda (#{e -ANAU$bmvAmthP7L7xwrVv}# + #{r -ANAU$bmvAmthP7L7xwrVw}# + #{w -ANAU$bmvAmthP7L7xwrVx}# + #{mod -ANAU$bmvAmthP7L7xwrVy}#) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLPO}# - #{r _hoQGWMnyQPAh3k2jhWLPP}# - #{w _hoQGWMnyQPAh3k2jhWLPQ}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWLPO}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwrVv}# + #{r -ANAU$bmvAmthP7L7xwrVw}# + #{w -ANAU$bmvAmthP7L7xwrVx}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwrVv}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLPR}# + #{mod -ANAU$bmvAmthP7L7xwrVy}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWLRs}# - #{value _hoQGWMnyQPAh3k2jhWLRt}# - #{e _hoQGWMnyQPAh3k2jhWLRu}# - #{w _hoQGWMnyQPAh3k2jhWLRv}# - #{s _hoQGWMnyQPAh3k2jhWLRw}# - #{mod _hoQGWMnyQPAh3k2jhWLRx}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWLRs}# - #{value _hoQGWMnyQPAh3k2jhWLRt}# - #{e _hoQGWMnyQPAh3k2jhWLRu}# - #{r _hoQGWMnyQPAh3k2jhWLPP}# - #{w _hoQGWMnyQPAh3k2jhWLRv}# - #{s _hoQGWMnyQPAh3k2jhWLRw}# - #{mod _hoQGWMnyQPAh3k2jhWLRx}#))))) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - (lambda (#{type _hoQGWMnyQPAh3k2jhWLR0}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical) + (lambda (#{type -ANAU$bmvAmthP7L7xwrYN}# + #{value -ANAU$bmvAmthP7L7xwrYO}# + #{e -ANAU$bmvAmthP7L7xwrYP}# + #{w -ANAU$bmvAmthP7L7xwrYQ}# + #{s -ANAU$bmvAmthP7L7xwrYR}# + #{mod -ANAU$bmvAmthP7L7xwrYS}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwrYN}# + #{value -ANAU$bmvAmthP7L7xwrYO}# + #{e -ANAU$bmvAmthP7L7xwrYP}# + #{r -ANAU$bmvAmthP7L7xwrVw}# + #{w -ANAU$bmvAmthP7L7xwrYQ}# + #{s -ANAU$bmvAmthP7L7xwrYR}# + #{mod -ANAU$bmvAmthP7L7xwrYS}#))))) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + (lambda (#{type -ANAU$bmvAmthP7L7xwrYV}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{value _hoQGWMnyQPAh3k2jhWLR1}#) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core) + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{value -ANAU$bmvAmthP7L7xwrYW}#) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core-form)) - (#{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core-form)) + (#{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'module-ref) (call-with-values (lambda () - (#{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWLSU}# - #{r _hoQGWMnyQPAh3k2jhWLSV}# - #{w _hoQGWMnyQPAh3k2jhWLSW}# - #{s _hoQGWMnyQPAh3k2jhWLSX}# - #{mod _hoQGWMnyQPAh3k2jhWLSY}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWLSU}# - #{r _hoQGWMnyQPAh3k2jhWLSV}# - #{w _hoQGWMnyQPAh3k2jhWLSW}# - #{mod _hoQGWMnyQPAh3k2jhWLSY}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (#{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwrY1}# + #{r -ANAU$bmvAmthP7L7xwrY2}# + #{w -ANAU$bmvAmthP7L7xwrY3}# + #{s -ANAU$bmvAmthP7L7xwrY4}# + #{mod -ANAU$bmvAmthP7L7xwrY5}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwrY1}# + #{r -ANAU$bmvAmthP7L7xwrY2}# + #{w -ANAU$bmvAmthP7L7xwrY3}# + #{mod -ANAU$bmvAmthP7L7xwrY5}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical-call) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (let ((#{id _hoQGWMnyQPAh3k2jhWLTj}# - (car #{e _hoQGWMnyQPAh3k2jhWLR2}#))) - (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (let ((#{id -ANAU$bmvAmthP7L7xwraE}# + (car #{e -ANAU$bmvAmthP7L7xwrYX}#))) + (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}# 'fun - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{id _hoQGWMnyQPAh3k2jhWLTj}#) - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWLTj}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{id -ANAU$bmvAmthP7L7xwraE}#) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWLTj}#) + #{id -ANAU$bmvAmthP7L7xwraE}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLTj}# + #{id -ANAU$bmvAmthP7L7xwraE}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id _hoQGWMnyQPAh3k2jhWLTj}#) - #{id _hoQGWMnyQPAh3k2jhWLTj}#) - #{value _hoQGWMnyQPAh3k2jhWLR1}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (syntax->datum #{id -ANAU$bmvAmthP7L7xwraE}#) + #{id -ANAU$bmvAmthP7L7xwraE}#) + #{value -ANAU$bmvAmthP7L7xwrYW}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global-call) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)) - (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (car #{e -ANAU$bmvAmthP7L7xwrYX}#)) + (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#) (if (= (vector-length - #{value _hoQGWMnyQPAh3k2jhWLR1}#) + #{value -ANAU$bmvAmthP7L7xwrYW}#) 4) (eq? (vector-ref - #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{value -ANAU$bmvAmthP7L7xwrYW}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 1) - #{value _hoQGWMnyQPAh3k2jhWLR1}#) - (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1) + #{value -ANAU$bmvAmthP7L7xwrYW}#) + (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#) (if (= (vector-length - #{value _hoQGWMnyQPAh3k2jhWLR1}#) + #{value -ANAU$bmvAmthP7L7xwrYW}#) 4) (eq? (vector-ref - #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{value -ANAU$bmvAmthP7L7xwrYW}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 3) - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'constant) - (let ((#{exp _hoQGWMnyQPAh3k2jhWLY0}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 3) + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'constant) + (let ((#{exp -ANAU$bmvAmthP7L7xwrfV}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{exp _hoQGWMnyQPAh3k2jhWLY0}#)) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWLZY}# - #{var _hoQGWMnyQPAh3k2jhWLZZ}# - #{public? _hoQGWMnyQPAh3k2jhWLZa}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{exp -ANAU$bmvAmthP7L7xwrfV}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + #{mod -ANAU$bmvAmthP7L7xwrYb}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwrf5}# + #{var -ANAU$bmvAmthP7L7xwrf6}# + #{public? -ANAU$bmvAmthP7L7xwrf7}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLZY}# - #{var _hoQGWMnyQPAh3k2jhWLZZ}# - #{public? _hoQGWMnyQPAh3k2jhWLZa}#)) - (lambda (#{var _hoQGWMnyQPAh3k2jhWLZj}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrf5}# + #{var -ANAU$bmvAmthP7L7xwrf6}# + #{public? -ANAU$bmvAmthP7L7xwrf7}#)) + (lambda (#{var -ANAU$bmvAmthP7L7xwrgE}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{var _hoQGWMnyQPAh3k2jhWLZj}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'call) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (car #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{var -ANAU$bmvAmthP7L7xwrgE}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'call) + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (car #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'begin-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLau}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrhP}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{e -ANAU$bmvAmthP7L7xwrYX}# '(_ any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLau}# + (if #{tmp -ANAU$bmvAmthP7L7xwrhP}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLay}# - #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) - (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWLay}# - #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLau}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLcK}# + (lambda (#{e1 -ANAU$bmvAmthP7L7xwrhT}# + #{e2 -ANAU$bmvAmthP7L7xwrhU}#) + (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}# + (cons #{e1 -ANAU$bmvAmthP7L7xwrhT}# + #{e2 -ANAU$bmvAmthP7L7xwrhU}#) + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + #{tmp -ANAU$bmvAmthP7L7xwrhP}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwrir}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{e -ANAU$bmvAmthP7L7xwrYX}# '(_)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLcK}# + (if #{tmp -ANAU$bmvAmthP7L7xwrir}# (@apply (lambda () (if (include-deprecated-features) @@ -4376,914 +4358,914 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWLcK}#) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)))) + #{tmp -ANAU$bmvAmthP7L7xwrir}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLR2}#))))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}#))))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'local-syntax-form) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}# - #{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}# + #{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'eval-when-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLd5}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrka}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{e -ANAU$bmvAmthP7L7xwrYX}# '(_ each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLd5}# + (if #{tmp -ANAU$bmvAmthP7L7xwrka}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWLd9}# - #{e1 _hoQGWMnyQPAh3k2jhWLd$}# - #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) - (let ((#{when-list _hoQGWMnyQPAh3k2jhWLeA}# - (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{x _hoQGWMnyQPAh3k2jhWLd9}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwrke}# + #{e1 -ANAU$bmvAmthP7L7xwrkf}# + #{e2 -ANAU$bmvAmthP7L7xwrkg}#) + (let ((#{when-list -ANAU$bmvAmthP7L7xwrkh}# + (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{x -ANAU$bmvAmthP7L7xwrke}#))) (if (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWLeA}#) - (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWLd$}# - #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + #{when-list -ANAU$bmvAmthP7L7xwrkh}#) + (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}# + (cons #{e1 -ANAU$bmvAmthP7L7xwrkf}# + #{e2 -ANAU$bmvAmthP7L7xwrkg}#) + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp _hoQGWMnyQPAh3k2jhWLd5}#) + #{tmp -ANAU$bmvAmthP7L7xwrka}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLR2}#))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}#))) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'define-form) #t - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'define-syntax-form) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e _hoQGWMnyQPAh3k2jhWLR2}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) (syntax-violation #f "unexpected syntax" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))))))))))))))))) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWLhw}# - #{e _hoQGWMnyQPAh3k2jhWLhx}# - #{r _hoQGWMnyQPAh3k2jhWLhy}# - #{w _hoQGWMnyQPAh3k2jhWLhz}# - #{s _hoQGWMnyQPAh3k2jhWLh0}# - #{mod _hoQGWMnyQPAh3k2jhWLh1}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLh3}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)))))))))))))))))) + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (lambda (#{x -ANAU$bmvAmthP7L7xwroR}# + #{e -ANAU$bmvAmthP7L7xwroS}# + #{r -ANAU$bmvAmthP7L7xwroT}# + #{w -ANAU$bmvAmthP7L7xwroU}# + #{s -ANAU$bmvAmthP7L7xwroV}# + #{mod -ANAU$bmvAmthP7L7xwroW}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwroY}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLhx}# + #{e -ANAU$bmvAmthP7L7xwroS}# '(any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLh3}# + (if #{tmp -ANAU$bmvAmthP7L7xwroY}# (@apply - (lambda (#{e0 _hoQGWMnyQPAh3k2jhWLh7}# - #{e1 _hoQGWMnyQPAh3k2jhWLh8}#) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - #{s _hoQGWMnyQPAh3k2jhWLh0}# - #{x _hoQGWMnyQPAh3k2jhWLhw}# - (map (lambda (#{e _hoQGWMnyQPAh3k2jhWLjM}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWLjM}# - #{r _hoQGWMnyQPAh3k2jhWLhy}# - #{w _hoQGWMnyQPAh3k2jhWLhz}# - #{mod _hoQGWMnyQPAh3k2jhWLh1}#)) - #{e1 _hoQGWMnyQPAh3k2jhWLh8}#))) - #{tmp _hoQGWMnyQPAh3k2jhWLh3}#) + (lambda (#{e0 -ANAU$bmvAmthP7L7xwroc}# + #{e1 -ANAU$bmvAmthP7L7xwrod}#) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + #{s -ANAU$bmvAmthP7L7xwroV}# + #{x -ANAU$bmvAmthP7L7xwroR}# + (map (lambda (#{e -ANAU$bmvAmthP7L7xwrpt}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwrpt}# + #{r -ANAU$bmvAmthP7L7xwroT}# + #{w -ANAU$bmvAmthP7L7xwroU}# + #{mod -ANAU$bmvAmthP7L7xwroW}#)) + #{e1 -ANAU$bmvAmthP7L7xwrod}#))) + #{tmp -ANAU$bmvAmthP7L7xwroY}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLhx}#))))) - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWLkY}# - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{r _hoQGWMnyQPAh3k2jhWLka}# - #{w _hoQGWMnyQPAh3k2jhWLkb}# - #{s _hoQGWMnyQPAh3k2jhWLkc}# - #{rib _hoQGWMnyQPAh3k2jhWLkd}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#) + #{e -ANAU$bmvAmthP7L7xwroS}#))))) + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + (lambda (#{p -ANAU$bmvAmthP7L7xwrq5}# + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{r -ANAU$bmvAmthP7L7xwrq7}# + #{w -ANAU$bmvAmthP7L7xwrq8}# + #{s -ANAU$bmvAmthP7L7xwrq9}# + #{rib -ANAU$bmvAmthP7L7xwrq$}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#) (letrec* - ((#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWLlA}# - #{m _hoQGWMnyQPAh3k2jhWLlB}#) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLlF}# - (cons (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (car #{x _hoQGWMnyQPAh3k2jhWLlA}#) - #{m _hoQGWMnyQPAh3k2jhWLlB}#) - (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (cdr #{x _hoQGWMnyQPAh3k2jhWLlA}#) - #{m _hoQGWMnyQPAh3k2jhWLlB}#)))) + ((#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (lambda (#{x -ANAU$bmvAmthP7L7xwrrh}# + #{m -ANAU$bmvAmthP7L7xwrri}#) + (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#) + (let ((#{e -ANAU$bmvAmthP7L7xwrrm}# + (cons (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (car #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{m -ANAU$bmvAmthP7L7xwrri}#) + (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (cdr #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{m -ANAU$bmvAmthP7L7xwrri}#)))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlF}#) - #{s _hoQGWMnyQPAh3k2jhWLkc}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#) + #{s -ANAU$bmvAmthP7L7xwrq9}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLlF}# - #{s _hoQGWMnyQPAh3k2jhWLkc}#)) - #{e _hoQGWMnyQPAh3k2jhWLlF}#)) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{e -ANAU$bmvAmthP7L7xwrrm}# + #{s -ANAU$bmvAmthP7L7xwrq9}#)) + #{e -ANAU$bmvAmthP7L7xwrrm}#)) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 0) 'syntax-object) #f) #f) - (let ((#{w _hoQGWMnyQPAh3k2jhWLlV}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 2))) - (let ((#{ms _hoQGWMnyQPAh3k2jhWLlW}# - (car #{w _hoQGWMnyQPAh3k2jhWLlV}#)) - (#{s _hoQGWMnyQPAh3k2jhWLlX}# - (cdr #{w _hoQGWMnyQPAh3k2jhWLlV}#))) - (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWLlW}#) - (eq? (car #{ms _hoQGWMnyQPAh3k2jhWLlW}#) #f) + (let ((#{w -ANAU$bmvAmthP7L7xwrr2}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 2))) + (let ((#{ms -ANAU$bmvAmthP7L7xwrr3}# + (car #{w -ANAU$bmvAmthP7L7xwrr2}#)) + (#{s -ANAU$bmvAmthP7L7xwrr4}# + (cdr #{w -ANAU$bmvAmthP7L7xwrr2}#))) + (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwrr3}#) + (eq? (car #{ms -ANAU$bmvAmthP7L7xwrr3}#) #f) #f) - (let ((#{expression _hoQGWMnyQPAh3k2jhWLlf}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 1)) - (#{wrap _hoQGWMnyQPAh3k2jhWLlg}# - (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWLlW}#) - (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# - (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# - (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)) - (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) - (#{module _hoQGWMnyQPAh3k2jhWLlh}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) + (let ((#{expression -ANAU$bmvAmthP7L7xwrsA}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 1)) + (#{wrap -ANAU$bmvAmthP7L7xwrsB}# + (cons (cdr #{ms -ANAU$bmvAmthP7L7xwrr3}#) + (if #{rib -ANAU$bmvAmthP7L7xwrq$}# + (cons #{rib -ANAU$bmvAmthP7L7xwrq$}# + (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#)) + (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#)))) + (#{module -ANAU$bmvAmthP7L7xwrsC}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWLlf}# - #{wrap _hoQGWMnyQPAh3k2jhWLlg}# - #{module _hoQGWMnyQPAh3k2jhWLlh}#)) - (let ((#{expression _hoQGWMnyQPAh3k2jhWLlr}# - (let ((#{e _hoQGWMnyQPAh3k2jhWLlw}# + #{expression -ANAU$bmvAmthP7L7xwrsA}# + #{wrap -ANAU$bmvAmthP7L7xwrsB}# + #{module -ANAU$bmvAmthP7L7xwrsC}#)) + (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}# + (let ((#{e -ANAU$bmvAmthP7L7xwrsR}# (vector-ref - #{x _hoQGWMnyQPAh3k2jhWLlA}# + #{x -ANAU$bmvAmthP7L7xwrrh}# 1))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlw}#) - #{s _hoQGWMnyQPAh3k2jhWLlX}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsR}#) + #{s -ANAU$bmvAmthP7L7xwrr4}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLlw}# - #{s _hoQGWMnyQPAh3k2jhWLlX}#)) - #{e _hoQGWMnyQPAh3k2jhWLlw}#))) - (#{wrap _hoQGWMnyQPAh3k2jhWLls}# - (cons (cons #{m _hoQGWMnyQPAh3k2jhWLlB}# - #{ms _hoQGWMnyQPAh3k2jhWLlW}#) - (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# - (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# + #{e -ANAU$bmvAmthP7L7xwrsR}# + #{s -ANAU$bmvAmthP7L7xwrr4}#)) + #{e -ANAU$bmvAmthP7L7xwrsR}#))) + (#{wrap -ANAU$bmvAmthP7L7xwrsN}# + (cons (cons #{m -ANAU$bmvAmthP7L7xwrri}# + #{ms -ANAU$bmvAmthP7L7xwrr3}#) + (if #{rib -ANAU$bmvAmthP7L7xwrq$}# + (cons #{rib -ANAU$bmvAmthP7L7xwrq$}# (cons 'shift - #{s _hoQGWMnyQPAh3k2jhWLlX}#)) + #{s -ANAU$bmvAmthP7L7xwrr4}#)) (cons 'shift - #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) - (#{module _hoQGWMnyQPAh3k2jhWLlt}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) + #{s -ANAU$bmvAmthP7L7xwrr4}#)))) + (#{module -ANAU$bmvAmthP7L7xwrsO}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWLlr}# - #{wrap _hoQGWMnyQPAh3k2jhWLls}# - #{module _hoQGWMnyQPAh3k2jhWLlt}#))))) - (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWLl8}# - (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#))) - (let ((#{v _hoQGWMnyQPAh3k2jhWLl9}# - (let ((#{e _hoQGWMnyQPAh3k2jhWLmF}# + #{expression -ANAU$bmvAmthP7L7xwrsM}# + #{wrap -ANAU$bmvAmthP7L7xwrsN}# + #{module -ANAU$bmvAmthP7L7xwrsO}#))))) + (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#) + (let ((#{n -ANAU$bmvAmthP7L7xwrsd}# + (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#))) + (let ((#{v -ANAU$bmvAmthP7L7xwrse}# + (let ((#{e -ANAU$bmvAmthP7L7xwrsm}# (make-vector - #{n _hoQGWMnyQPAh3k2jhWLl8}#))) + #{n -ANAU$bmvAmthP7L7xwrsd}#))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLmF}#) - #{x _hoQGWMnyQPAh3k2jhWLlA}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsm}#) + #{x -ANAU$bmvAmthP7L7xwrrh}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLmF}# - #{x _hoQGWMnyQPAh3k2jhWLlA}#)) - #{e _hoQGWMnyQPAh3k2jhWLmF}#)))) + #{e -ANAU$bmvAmthP7L7xwrsm}# + #{x -ANAU$bmvAmthP7L7xwrrh}#)) + #{e -ANAU$bmvAmthP7L7xwrsm}#)))) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWLl$}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWLmy}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWLmy}# - #{n _hoQGWMnyQPAh3k2jhWLl8}#) - #{v _hoQGWMnyQPAh3k2jhWLl9}# + ((#{loop -ANAU$bmvAmthP7L7xwrsf}# + (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#) + (if (= #{i -ANAU$bmvAmthP7L7xwrtT}# + #{n -ANAU$bmvAmthP7L7xwrsd}#) + #{v -ANAU$bmvAmthP7L7xwrse}# (begin (vector-set! - #{v _hoQGWMnyQPAh3k2jhWLl9}# - #{i _hoQGWMnyQPAh3k2jhWLmy}# - (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + #{v -ANAU$bmvAmthP7L7xwrse}# + #{i -ANAU$bmvAmthP7L7xwrtT}# + (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# (vector-ref - #{x _hoQGWMnyQPAh3k2jhWLlA}# - #{i _hoQGWMnyQPAh3k2jhWLmy}#) - #{m _hoQGWMnyQPAh3k2jhWLlB}#)) - (#{loop _hoQGWMnyQPAh3k2jhWLl$}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWLmy}#))))))) - (#{loop _hoQGWMnyQPAh3k2jhWLl$}# 0)))) - (if (symbol? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{x -ANAU$bmvAmthP7L7xwrrh}# + #{i -ANAU$bmvAmthP7L7xwrtT}#) + #{m -ANAU$bmvAmthP7L7xwrri}#)) + (#{loop -ANAU$bmvAmthP7L7xwrsf}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwrtT}#))))))) + (#{loop -ANAU$bmvAmthP7L7xwrsf}# 0)))) + (if (symbol? #{x -ANAU$bmvAmthP7L7xwrrh}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s _hoQGWMnyQPAh3k2jhWLm4}# - (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}# + (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#))) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{s _hoQGWMnyQPAh3k2jhWLm4}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{s -ANAU$bmvAmthP7L7xwrtZ}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{s _hoQGWMnyQPAh3k2jhWLm4}#)) - #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{w _hoQGWMnyQPAh3k2jhWLkb}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#)) - #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{s -ANAU$bmvAmthP7L7xwrtZ}#)) + #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{w -ANAU$bmvAmthP7L7xwrq8}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#)) + #{x -ANAU$bmvAmthP7L7xwrrh}#) (begin - (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - #{s _hoQGWMnyQPAh3k2jhWLkc}# + (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{s -ANAU$bmvAmthP7L7xwrq9}# #f) (set-source-properties! - #{x _hoQGWMnyQPAh3k2jhWLlA}# - #{s _hoQGWMnyQPAh3k2jhWLkc}#)) - #{x _hoQGWMnyQPAh3k2jhWLlA}#)))))))) + #{x -ANAU$bmvAmthP7L7xwrrh}# + #{s -ANAU$bmvAmthP7L7xwrq9}#)) + #{x -ANAU$bmvAmthP7L7xwrrh}#)))))))) (with-fluids - ((#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# - (lambda (#{k _hoQGWMnyQPAh3k2jhWLkg}#) - (#{k _hoQGWMnyQPAh3k2jhWLkg}# - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{r _hoQGWMnyQPAh3k2jhWLka}# - #{w _hoQGWMnyQPAh3k2jhWLkb}# - #{s _hoQGWMnyQPAh3k2jhWLkc}# - #{rib _hoQGWMnyQPAh3k2jhWLkd}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#)))) - (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (#{p _hoQGWMnyQPAh3k2jhWLkY}# - (let ((#{w _hoQGWMnyQPAh3k2jhWLkn}# - (cons (cons #f (car #{w _hoQGWMnyQPAh3k2jhWLkb}#)) + ((#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# + (lambda (#{k -ANAU$bmvAmthP7L7xwrrB}#) + (#{k -ANAU$bmvAmthP7L7xwrrB}# + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{r -ANAU$bmvAmthP7L7xwrq7}# + #{w -ANAU$bmvAmthP7L7xwrq8}# + #{s -ANAU$bmvAmthP7L7xwrq9}# + #{rib -ANAU$bmvAmthP7L7xwrq$}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#)))) + (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (#{p -ANAU$bmvAmthP7L7xwrq5}# + (let ((#{w -ANAU$bmvAmthP7L7xwrrI}# + (cons (cons #f (car #{w -ANAU$bmvAmthP7L7xwrq8}#)) (cons 'shift - (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))))) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#))))) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{s _hoQGWMnyQPAh3k2jhWLkc}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{s -ANAU$bmvAmthP7L7xwrq9}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{s _hoQGWMnyQPAh3k2jhWLkc}#)) - #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{w _hoQGWMnyQPAh3k2jhWLkn}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#))) + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{s -ANAU$bmvAmthP7L7xwrq9}#)) + #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{w -ANAU$bmvAmthP7L7xwrrI}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#))) (gensym "m")))))) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWLnY}# - #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}# - #{r _hoQGWMnyQPAh3k2jhWLna}# - #{w _hoQGWMnyQPAh3k2jhWLnb}# - #{mod _hoQGWMnyQPAh3k2jhWLnc}#) - (let ((#{r _hoQGWMnyQPAh3k2jhWLnd}# + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (lambda (#{body -ANAU$bmvAmthP7L7xwrt5}# + #{outer-form -ANAU$bmvAmthP7L7xwrt6}# + #{r -ANAU$bmvAmthP7L7xwrt7}# + #{w -ANAU$bmvAmthP7L7xwrt8}# + #{mod -ANAU$bmvAmthP7L7xwrt9}#) + (let ((#{r -ANAU$bmvAmthP7L7xwrt$}# (cons '("placeholder" placeholder) - #{r _hoQGWMnyQPAh3k2jhWLna}#))) - (let ((#{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{r -ANAU$bmvAmthP7L7xwrt7}#))) + (let ((#{ribcage -ANAU$bmvAmthP7L7xwrt@}# (vector 'ribcage '() '() '()))) - (let ((#{w _hoQGWMnyQPAh3k2jhWLnf}# - (cons (car #{w _hoQGWMnyQPAh3k2jhWLnb}#) - (cons #{ribcage _hoQGWMnyQPAh3k2jhWLne}# - (cdr #{w _hoQGWMnyQPAh3k2jhWLnb}#))))) + (let ((#{w -ANAU$bmvAmthP7L7xwruA}# + (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#) + (cons #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#))))) (letrec* - ((#{parse _hoQGWMnyQPAh3k2jhWLng}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWLnt}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#) - (if (null? #{body _hoQGWMnyQPAh3k2jhWLnt}#) + ((#{parse -ANAU$bmvAmthP7L7xwruB}# + (lambda (#{body -ANAU$bmvAmthP7L7xwruO}# + #{ids -ANAU$bmvAmthP7L7xwruP}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# + #{bindings -ANAU$bmvAmthP7L7xwruU}#) + (if (null? #{body -ANAU$bmvAmthP7L7xwruO}#) (syntax-violation #f "no expressions in body" - #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLn0}# - (cdr (car #{body _hoQGWMnyQPAh3k2jhWLnt}#))) - (#{er _hoQGWMnyQPAh3k2jhWLn1}# - (car (car #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) + #{outer-form -ANAU$bmvAmthP7L7xwrt6}#) + (let ((#{e -ANAU$bmvAmthP7L7xwruV}# + (cdr (car #{body -ANAU$bmvAmthP7L7xwruO}#))) + (#{er -ANAU$bmvAmthP7L7xwruW}# + (car (car #{body -ANAU$bmvAmthP7L7xwruO}#)))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLn0}# - #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwruV}# + #{er -ANAU$bmvAmthP7L7xwruW}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{er _hoQGWMnyQPAh3k2jhWLn1}#) - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# - #{mod _hoQGWMnyQPAh3k2jhWLnc}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{er -ANAU$bmvAmthP7L7xwruW}#) + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{mod -ANAU$bmvAmthP7L7xwrt9}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWLqS}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{s _hoQGWMnyQPAh3k2jhWLqW}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + (lambda (#{type -ANAU$bmvAmthP7L7xwrwz}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{s -ANAU$bmvAmthP7L7xwrw3}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'define-form) - (let ((#{id _hoQGWMnyQPAh3k2jhWLqb}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{label _hoQGWMnyQPAh3k2jhWLqc}# - (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) - (let ((#{var _hoQGWMnyQPAh3k2jhWLqd}# - (let ((#{id _hoQGWMnyQPAh3k2jhWLrX}# + (let ((#{id -ANAU$bmvAmthP7L7xwrw8}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{label -ANAU$bmvAmthP7L7xwrw9}# + (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) + (let ((#{var -ANAU$bmvAmthP7L7xwrw$}# + (let ((#{id -ANAU$bmvAmthP7L7xwrx4}# (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWLqb}#) + #{id -ANAU$bmvAmthP7L7xwrw8}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWLqb}#) + #{id -ANAU$bmvAmthP7L7xwrw8}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 1) - #{id _hoQGWMnyQPAh3k2jhWLqb}#))) + #{id -ANAU$bmvAmthP7L7xwrw8}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWLrX}#) + #{id -ANAU$bmvAmthP7L7xwrx4}#) " "))))) (begin - (let ((#{update _hoQGWMnyQPAh3k2jhWLrN}# + (let ((#{update -ANAU$bmvAmthP7L7xwrxu}# (cons (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 1) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1 - #{update _hoQGWMnyQPAh3k2jhWLrN}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLrP}# + #{update -ANAU$bmvAmthP7L7xwrxu}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrxw}# (cons (car (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 2)) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2 - #{update _hoQGWMnyQPAh3k2jhWLrP}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLrR}# - (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# + #{update -ANAU$bmvAmthP7L7xwrxw}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrxy}# + (cons #{label -ANAU$bmvAmthP7L7xwrw9}# (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3 - #{update _hoQGWMnyQPAh3k2jhWLrR}#)) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}#) - (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}#) - (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#) - (cons #{var _hoQGWMnyQPAh3k2jhWLqd}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}#) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - #{vals _hoQGWMnyQPAh3k2jhWLny}#) + #{update -ANAU$bmvAmthP7L7xwrxy}#)) + (#{parse -ANAU$bmvAmthP7L7xwruB}# + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons #{id -ANAU$bmvAmthP7L7xwrw8}# + #{ids -ANAU$bmvAmthP7L7xwruP}#) + (cons #{label -ANAU$bmvAmthP7L7xwrw9}# + #{labels -ANAU$bmvAmthP7L7xwruQ}#) + (cons #{id -ANAU$bmvAmthP7L7xwrw8}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}#) + (cons #{var -ANAU$bmvAmthP7L7xwrw$}# + #{vars -ANAU$bmvAmthP7L7xwruS}#) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + #{vals -ANAU$bmvAmthP7L7xwruT}#) (cons (cons 'lexical - #{var _hoQGWMnyQPAh3k2jhWLqd}#) - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + #{var -ANAU$bmvAmthP7L7xwrw$}#) + #{bindings -ANAU$bmvAmthP7L7xwruU}#))))) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'define-syntax-form) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'define-syntax-parameter-form)) - (let ((#{id _hoQGWMnyQPAh3k2jhWLr4}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{label _hoQGWMnyQPAh3k2jhWLr5}# - (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) + (let ((#{id -ANAU$bmvAmthP7L7xwryZ}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{label -ANAU$bmvAmthP7L7xwrya}# + (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) (begin - (let ((#{update _hoQGWMnyQPAh3k2jhWLsp}# + (let ((#{update -ANAU$bmvAmthP7L7xwrzK}# (cons (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLr4}# + #{id -ANAU$bmvAmthP7L7xwryZ}# 1) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1 - #{update _hoQGWMnyQPAh3k2jhWLsp}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLsr}# + #{update -ANAU$bmvAmthP7L7xwrzK}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrzM}# (cons (car (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLr4}# + #{id -ANAU$bmvAmthP7L7xwryZ}# 2)) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2 - #{update _hoQGWMnyQPAh3k2jhWLsr}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLst}# - (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# + #{update -ANAU$bmvAmthP7L7xwrzM}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrzO}# + (cons #{label -ANAU$bmvAmthP7L7xwrya}# (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3 - #{update _hoQGWMnyQPAh3k2jhWLst}#)) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons #{id _hoQGWMnyQPAh3k2jhWLr4}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}#) - (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}#) - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{update -ANAU$bmvAmthP7L7xwrzO}#)) + (#{parse -ANAU$bmvAmthP7L7xwruB}# + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons #{id -ANAU$bmvAmthP7L7xwryZ}# + #{ids -ANAU$bmvAmthP7L7xwruP}#) + (cons #{label -ANAU$bmvAmthP7L7xwrya}# + #{labels -ANAU$bmvAmthP7L7xwruQ}#) + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# (cons (cons 'macro - (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#))) - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#))) + #{bindings -ANAU$bmvAmthP7L7xwruU}#)))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'begin-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLs1}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrzW}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{e -ANAU$bmvAmthP7L7xwrw1}# '(_ . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLs1}# + (if #{tmp -ANAU$bmvAmthP7L7xwrzW}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLs5}#) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (lambda (#{e1 -ANAU$bmvAmthP7L7xwrza}#) + (#{parse -ANAU$bmvAmthP7L7xwruB}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWLs6}# - (lambda (#{forms _hoQGWMnyQPAh3k2jhWLt5}#) - (if (null? #{forms _hoQGWMnyQPAh3k2jhWLt5}#) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{forms _hoQGWMnyQPAh3k2jhWLt5}#) - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{f _hoQGWMnyQPAh3k2jhWLs6}# - (cdr #{forms _hoQGWMnyQPAh3k2jhWLt5}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWLs6}# - #{e1 _hoQGWMnyQPAh3k2jhWLs5}#)) - #{ids _hoQGWMnyQPAh3k2jhWLnu}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLs1}#) + ((#{f -ANAU$bmvAmthP7L7xwrzb}# + (lambda (#{forms -ANAU$bmvAmthP7L7xwr0a}#) + (if (null? #{forms -ANAU$bmvAmthP7L7xwr0a}#) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{forms -ANAU$bmvAmthP7L7xwr0a}#) + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{f -ANAU$bmvAmthP7L7xwrzb}# + (cdr #{forms -ANAU$bmvAmthP7L7xwr0a}#))))))) + (#{f -ANAU$bmvAmthP7L7xwrzb}# + #{e1 -ANAU$bmvAmthP7L7xwrza}#)) + #{ids -ANAU$bmvAmthP7L7xwruP}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# + #{bindings -ANAU$bmvAmthP7L7xwruU}#)) + #{tmp -ANAU$bmvAmthP7L7xwrzW}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLqU}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + #{e -ANAU$bmvAmthP7L7xwrw1}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'local-syntax-form) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{er _hoQGWMnyQPAh3k2jhWLn1}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{s _hoQGWMnyQPAh3k2jhWLqW}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}# - (lambda (#{forms _hoQGWMnyQPAh3k2jhWLuH}# - #{er _hoQGWMnyQPAh3k2jhWLuI}# - #{w _hoQGWMnyQPAh3k2jhWLuJ}# - #{s _hoQGWMnyQPAh3k2jhWLuK}# - #{mod _hoQGWMnyQPAh3k2jhWLuL}#) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{er -ANAU$bmvAmthP7L7xwruW}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{s -ANAU$bmvAmthP7L7xwrw3}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# + (lambda (#{forms -ANAU$bmvAmthP7L7xwr0o}# + #{er -ANAU$bmvAmthP7L7xwr0p}# + #{w -ANAU$bmvAmthP7L7xwr0q}# + #{s -ANAU$bmvAmthP7L7xwr0r}# + #{mod -ANAU$bmvAmthP7L7xwr0s}#) + (#{parse -ANAU$bmvAmthP7L7xwruB}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWLuM}# - (lambda (#{forms _hoQGWMnyQPAh3k2jhWLvL}#) - (if (null? #{forms _hoQGWMnyQPAh3k2jhWLvL}#) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLuI}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{forms _hoQGWMnyQPAh3k2jhWLvL}#) - #{w _hoQGWMnyQPAh3k2jhWLuJ}# - #{mod _hoQGWMnyQPAh3k2jhWLuL}#)) - (#{f _hoQGWMnyQPAh3k2jhWLuM}# - (cdr #{forms _hoQGWMnyQPAh3k2jhWLvL}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWLuM}# - #{forms _hoQGWMnyQPAh3k2jhWLuH}#)) - #{ids _hoQGWMnyQPAh3k2jhWLnu}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWLnu}#) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + ((#{f -ANAU$bmvAmthP7L7xwr0t}# + (lambda (#{forms -ANAU$bmvAmthP7L7xwr1s}#) + (if (null? #{forms -ANAU$bmvAmthP7L7xwr1s}#) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons (cons #{er -ANAU$bmvAmthP7L7xwr0p}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{forms -ANAU$bmvAmthP7L7xwr1s}#) + #{w -ANAU$bmvAmthP7L7xwr0q}# + #{mod -ANAU$bmvAmthP7L7xwr0s}#)) + (#{f -ANAU$bmvAmthP7L7xwr0t}# + (cdr #{forms -ANAU$bmvAmthP7L7xwr1s}#))))))) + (#{f -ANAU$bmvAmthP7L7xwr0t}# + #{forms -ANAU$bmvAmthP7L7xwr0o}#)) + #{ids -ANAU$bmvAmthP7L7xwruP}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# + #{bindings -ANAU$bmvAmthP7L7xwruU}#))) + (if (null? #{ids -ANAU$bmvAmthP7L7xwruP}#) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# #f - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLwM}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLwQ}# - (cdr #{x _hoQGWMnyQPAh3k2jhWLwM}#)) - (#{r _hoQGWMnyQPAh3k2jhWLwR}# - (car #{x _hoQGWMnyQPAh3k2jhWLwM}#))) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwr2t}#) + (let ((#{e -ANAU$bmvAmthP7L7xwr2x}# + (cdr #{x -ANAU$bmvAmthP7L7xwr2t}#)) + (#{r -ANAU$bmvAmthP7L7xwr2y}# + (car #{x -ANAU$bmvAmthP7L7xwr2t}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLwQ}# - #{r _hoQGWMnyQPAh3k2jhWLwR}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwr2x}# + #{r -ANAU$bmvAmthP7L7xwr2y}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWLwQ}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwr2x}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLqX}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWLwV}# - #{value _hoQGWMnyQPAh3k2jhWLwW}# - #{e _hoQGWMnyQPAh3k2jhWLwX}# - #{w _hoQGWMnyQPAh3k2jhWLwY}# - #{s _hoQGWMnyQPAh3k2jhWLwZ}# - #{mod _hoQGWMnyQPAh3k2jhWLwa}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWLwV}# - #{value _hoQGWMnyQPAh3k2jhWLwW}# - #{e _hoQGWMnyQPAh3k2jhWLwX}# - #{r _hoQGWMnyQPAh3k2jhWLwR}# - #{w _hoQGWMnyQPAh3k2jhWLwY}# - #{s _hoQGWMnyQPAh3k2jhWLwZ}# - #{mod _hoQGWMnyQPAh3k2jhWLwa}#))))) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{type -ANAU$bmvAmthP7L7xwr22}# + #{value -ANAU$bmvAmthP7L7xwr23}# + #{e -ANAU$bmvAmthP7L7xwr24}# + #{w -ANAU$bmvAmthP7L7xwr25}# + #{s -ANAU$bmvAmthP7L7xwr26}# + #{mod -ANAU$bmvAmthP7L7xwr27}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwr22}# + #{value -ANAU$bmvAmthP7L7xwr23}# + #{e -ANAU$bmvAmthP7L7xwr24}# + #{r -ANAU$bmvAmthP7L7xwr2y}# + #{w -ANAU$bmvAmthP7L7xwr25}# + #{s -ANAU$bmvAmthP7L7xwr26}# + #{mod -ANAU$bmvAmthP7L7xwr27}#))))) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{s _hoQGWMnyQPAh3k2jhWLqW}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{s -ANAU$bmvAmthP7L7xwrw3}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{s _hoQGWMnyQPAh3k2jhWLqW}#)) - #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{s -ANAU$bmvAmthP7L7xwrw3}#)) + #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)))) (begin - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}#)) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{ids -ANAU$bmvAmthP7L7xwruP}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#)) + #{outer-form -ANAU$bmvAmthP7L7xwrt6}#)) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWLx@}# - (lambda (#{bs _hoQGWMnyQPAh3k2jhWLyC}# - #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# - #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#) - (if (not (null? #{bs _hoQGWMnyQPAh3k2jhWLyC}#)) - (let ((#{b _hoQGWMnyQPAh3k2jhWLyF}# - (car #{bs _hoQGWMnyQPAh3k2jhWLyC}#))) - (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWLyF}#) + ((#{loop -ANAU$bmvAmthP7L7xwr4g}# + (lambda (#{bs -ANAU$bmvAmthP7L7xwr4j}# + #{er-cache -ANAU$bmvAmthP7L7xwr4k}# + #{r-cache -ANAU$bmvAmthP7L7xwr4l}#) + (if (not (null? #{bs -ANAU$bmvAmthP7L7xwr4j}#)) + (let ((#{b -ANAU$bmvAmthP7L7xwr4m}# + (car #{bs -ANAU$bmvAmthP7L7xwr4j}#))) + (if (eq? (car #{b -ANAU$bmvAmthP7L7xwr4m}#) 'macro) - (let ((#{er _hoQGWMnyQPAh3k2jhWLyH}# - (car (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)))) - (let ((#{r-cache _hoQGWMnyQPAh3k2jhWLyI}# - (if (eq? #{er _hoQGWMnyQPAh3k2jhWLyH}# - #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#) - #{r-cache _hoQGWMnyQPAh3k2jhWLyE}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{er _hoQGWMnyQPAh3k2jhWLyH}#)))) + (let ((#{er -ANAU$bmvAmthP7L7xwr4o}# + (car (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#)))) + (let ((#{r-cache -ANAU$bmvAmthP7L7xwr4p}# + (if (eq? #{er -ANAU$bmvAmthP7L7xwr4o}# + #{er-cache -ANAU$bmvAmthP7L7xwr4k}#) + #{r-cache -ANAU$bmvAmthP7L7xwr4l}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{er -ANAU$bmvAmthP7L7xwr4o}#)))) (begin (set-cdr! - #{b _hoQGWMnyQPAh3k2jhWLyF}# - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (cdr (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)) - #{r-cache _hoQGWMnyQPAh3k2jhWLyI}# + #{b -ANAU$bmvAmthP7L7xwr4m}# + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (cdr (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#)) + #{r-cache -ANAU$bmvAmthP7L7xwr4p}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWLqX}#) - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{loop _hoQGWMnyQPAh3k2jhWLx@}# - (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) - #{er _hoQGWMnyQPAh3k2jhWLyH}# - #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#)))) - (#{loop _hoQGWMnyQPAh3k2jhWLx@}# - (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) - #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# - #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#))))))) - (#{loop _hoQGWMnyQPAh3k2jhWLx@}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#) + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{loop -ANAU$bmvAmthP7L7xwr4g}# + (cdr #{bs -ANAU$bmvAmthP7L7xwr4j}#) + #{er -ANAU$bmvAmthP7L7xwr4o}# + #{r-cache -ANAU$bmvAmthP7L7xwr4p}#)))) + (#{loop -ANAU$bmvAmthP7L7xwr4g}# + (cdr #{bs -ANAU$bmvAmthP7L7xwr4j}#) + #{er-cache -ANAU$bmvAmthP7L7xwr4k}# + #{r-cache -ANAU$bmvAmthP7L7xwr4l}#))))))) + (#{loop -ANAU$bmvAmthP7L7xwr4g}# + #{bindings -ANAU$bmvAmthP7L7xwruU}# #f #f)) (set-cdr! - #{r _hoQGWMnyQPAh3k2jhWLnd}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}# - (cdr #{r _hoQGWMnyQPAh3k2jhWLnd}#))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + #{r -ANAU$bmvAmthP7L7xwrt$}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{bindings -ANAU$bmvAmthP7L7xwruU}# + (cdr #{r -ANAU$bmvAmthP7L7xwrt$}#))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# #f #t (reverse (map syntax->datum - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#)) + #{var-ids -ANAU$bmvAmthP7L7xwruR}#)) (reverse - #{vars _hoQGWMnyQPAh3k2jhWLnx}#) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL3f}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWL3j}# - (cdr #{x _hoQGWMnyQPAh3k2jhWL3f}#)) - (#{r _hoQGWMnyQPAh3k2jhWL3k}# - (car #{x _hoQGWMnyQPAh3k2jhWL3f}#))) + #{vars -ANAU$bmvAmthP7L7xwruS}#) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwr$A}#) + (let ((#{e -ANAU$bmvAmthP7L7xwr$E}# + (cdr #{x -ANAU$bmvAmthP7L7xwr$A}#)) + (#{r -ANAU$bmvAmthP7L7xwr$F}# + (car #{x -ANAU$bmvAmthP7L7xwr$A}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWL3j}# - #{r _hoQGWMnyQPAh3k2jhWL3k}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwr$E}# + #{r -ANAU$bmvAmthP7L7xwr$F}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWL3j}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwr$E}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLqX}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWL3o}# - #{value _hoQGWMnyQPAh3k2jhWL3p}# - #{e _hoQGWMnyQPAh3k2jhWL3q}# - #{w _hoQGWMnyQPAh3k2jhWL3r}# - #{s _hoQGWMnyQPAh3k2jhWL3s}# - #{mod _hoQGWMnyQPAh3k2jhWL3t}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWL3o}# - #{value _hoQGWMnyQPAh3k2jhWL3p}# - #{e _hoQGWMnyQPAh3k2jhWL3q}# - #{r _hoQGWMnyQPAh3k2jhWL3k}# - #{w _hoQGWMnyQPAh3k2jhWL3r}# - #{s _hoQGWMnyQPAh3k2jhWL3s}# - #{mod _hoQGWMnyQPAh3k2jhWL3t}#))))) + (lambda (#{type -ANAU$bmvAmthP7L7xwr$J}# + #{value -ANAU$bmvAmthP7L7xwr$K}# + #{e -ANAU$bmvAmthP7L7xwr$L}# + #{w -ANAU$bmvAmthP7L7xwr$M}# + #{s -ANAU$bmvAmthP7L7xwr$N}# + #{mod -ANAU$bmvAmthP7L7xwr$O}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwr$J}# + #{value -ANAU$bmvAmthP7L7xwr$K}# + #{e -ANAU$bmvAmthP7L7xwr$L}# + #{r -ANAU$bmvAmthP7L7xwr$F}# + #{w -ANAU$bmvAmthP7L7xwr$M}# + #{s -ANAU$bmvAmthP7L7xwr$N}# + #{mod -ANAU$bmvAmthP7L7xwr$O}#))))) (reverse - #{vals _hoQGWMnyQPAh3k2jhWLny}#)) - (let ((#{exps _hoQGWMnyQPAh3k2jhWL3z}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL30}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWL33}# - (cdr #{x _hoQGWMnyQPAh3k2jhWL30}#)) - (#{r _hoQGWMnyQPAh3k2jhWL34}# - (car #{x _hoQGWMnyQPAh3k2jhWL30}#))) + #{vals -ANAU$bmvAmthP7L7xwruT}#)) + (let ((#{exps -ANAU$bmvAmthP7L7xwr$U}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwr$V}#) + (let ((#{e -ANAU$bmvAmthP7L7xwr$Y}# + (cdr #{x -ANAU$bmvAmthP7L7xwr$V}#)) + (#{r -ANAU$bmvAmthP7L7xwr$Z}# + (car #{x -ANAU$bmvAmthP7L7xwr$V}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWL33}# - #{r _hoQGWMnyQPAh3k2jhWL34}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwr$Y}# + #{r -ANAU$bmvAmthP7L7xwr$Z}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWL33}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwr$Y}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLqX}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWL38}# - #{value _hoQGWMnyQPAh3k2jhWL39}# - #{e _hoQGWMnyQPAh3k2jhWL3$}# - #{w _hoQGWMnyQPAh3k2jhWL3@}# - #{s _hoQGWMnyQPAh3k2jhWL4A}# - #{mod _hoQGWMnyQPAh3k2jhWL4B}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWL38}# - #{value _hoQGWMnyQPAh3k2jhWL39}# - #{e _hoQGWMnyQPAh3k2jhWL3$}# - #{r _hoQGWMnyQPAh3k2jhWL34}# - #{w _hoQGWMnyQPAh3k2jhWL3@}# - #{s _hoQGWMnyQPAh3k2jhWL4A}# - #{mod _hoQGWMnyQPAh3k2jhWL4B}#))))) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{type -ANAU$bmvAmthP7L7xwr$d}# + #{value -ANAU$bmvAmthP7L7xwr$e}# + #{e -ANAU$bmvAmthP7L7xwr$f}# + #{w -ANAU$bmvAmthP7L7xwr$g}# + #{s -ANAU$bmvAmthP7L7xwr$h}# + #{mod -ANAU$bmvAmthP7L7xwr$i}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwr$d}# + #{value -ANAU$bmvAmthP7L7xwr$e}# + #{e -ANAU$bmvAmthP7L7xwr$f}# + #{r -ANAU$bmvAmthP7L7xwr$Z}# + #{w -ANAU$bmvAmthP7L7xwr$g}# + #{s -ANAU$bmvAmthP7L7xwr$h}# + #{mod -ANAU$bmvAmthP7L7xwr$i}#))))) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{s _hoQGWMnyQPAh3k2jhWLqW}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{s -ANAU$bmvAmthP7L7xwrw3}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{s _hoQGWMnyQPAh3k2jhWLqW}#)) - #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#))))) - (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWL3z}#)) - (car #{exps _hoQGWMnyQPAh3k2jhWL3z}#) + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{s -ANAU$bmvAmthP7L7xwrw3}#)) + #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#))))) + (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwr$U}#)) + (car #{exps -ANAU$bmvAmthP7L7xwr$U}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps _hoQGWMnyQPAh3k2jhWL3z}#))))))))))))))))) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLnj}#) - (cons #{r _hoQGWMnyQPAh3k2jhWLnd}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{x _hoQGWMnyQPAh3k2jhWLnj}# - #{w _hoQGWMnyQPAh3k2jhWLnf}# - #{mod _hoQGWMnyQPAh3k2jhWLnc}#))) - #{body _hoQGWMnyQPAh3k2jhWLnY}#) + #{exps -ANAU$bmvAmthP7L7xwr$U}#))))))))))))))))) + (#{parse -ANAU$bmvAmthP7L7xwruB}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwruE}#) + (cons #{r -ANAU$bmvAmthP7L7xwrt$}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{x -ANAU$bmvAmthP7L7xwruE}# + #{w -ANAU$bmvAmthP7L7xwruA}# + #{mod -ANAU$bmvAmthP7L7xwrt9}#))) + #{body -ANAU$bmvAmthP7L7xwrt5}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - (lambda (#{rec? _hoQGWMnyQPAh3k2jhWL4b}# - #{e _hoQGWMnyQPAh3k2jhWL4c}# - #{r _hoQGWMnyQPAh3k2jhWL4d}# - #{w _hoQGWMnyQPAh3k2jhWL4e}# - #{s _hoQGWMnyQPAh3k2jhWL4f}# - #{mod _hoQGWMnyQPAh3k2jhWL4g}# - #{k _hoQGWMnyQPAh3k2jhWL4h}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWL4j}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + (lambda (#{rec? -ANAU$bmvAmthP7L7xwr$8}# + #{e -ANAU$bmvAmthP7L7xwr$9}# + #{r -ANAU$bmvAmthP7L7xwr$$}# + #{w -ANAU$bmvAmthP7L7xwr$@}# + #{s -ANAU$bmvAmthP7L7xwr@A}# + #{mod -ANAU$bmvAmthP7L7xwr@B}# + #{k -ANAU$bmvAmthP7L7xwr@C}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwr@E}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWL4c}# + #{e -ANAU$bmvAmthP7L7xwr$9}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWL4j}# + (if #{tmp -ANAU$bmvAmthP7L7xwr@E}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWL4n}# - #{val _hoQGWMnyQPAh3k2jhWL4o}# - #{e1 _hoQGWMnyQPAh3k2jhWL4p}# - #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{id _hoQGWMnyQPAh3k2jhWL4n}#)) + (lambda (#{id -ANAU$bmvAmthP7L7xwr@I}# + #{val -ANAU$bmvAmthP7L7xwr@J}# + #{e1 -ANAU$bmvAmthP7L7xwr@K}# + #{e2 -ANAU$bmvAmthP7L7xwr@L}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{id -ANAU$bmvAmthP7L7xwr@I}#)) (syntax-violation #f "duplicate bound keyword" - #{e _hoQGWMnyQPAh3k2jhWL4c}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWL6E}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{id _hoQGWMnyQPAh3k2jhWL4n}#))) - (let ((#{new-w _hoQGWMnyQPAh3k2jhWL6F}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{id _hoQGWMnyQPAh3k2jhWL4n}# - #{labels _hoQGWMnyQPAh3k2jhWL6E}# - #{w _hoQGWMnyQPAh3k2jhWL4e}#))) - (#{k _hoQGWMnyQPAh3k2jhWL4h}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWL4p}# - #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWL6E}# - (let ((#{trans-r _hoQGWMnyQPAh3k2jhWL6l}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{r _hoQGWMnyQPAh3k2jhWL4d}#))) + #{e -ANAU$bmvAmthP7L7xwr$9}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwsAl}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{id -ANAU$bmvAmthP7L7xwr@I}#))) + (let ((#{new-w -ANAU$bmvAmthP7L7xwsAm}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{id -ANAU$bmvAmthP7L7xwr@I}# + #{labels -ANAU$bmvAmthP7L7xwsAl}# + #{w -ANAU$bmvAmthP7L7xwr$@}#))) + (#{k -ANAU$bmvAmthP7L7xwr@C}# + (cons #{e1 -ANAU$bmvAmthP7L7xwr@K}# + #{e2 -ANAU$bmvAmthP7L7xwr@L}#) + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwsAl}# + (let ((#{trans-r -ANAU$bmvAmthP7L7xwsBG}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{r -ANAU$bmvAmthP7L7xwr$$}#))) (begin - (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# - #{new-w _hoQGWMnyQPAh3k2jhWL6F}# - #{w _hoQGWMnyQPAh3k2jhWL4e}#) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL6m}#) + (if #{rec? -ANAU$bmvAmthP7L7xwr$8}# + #{new-w -ANAU$bmvAmthP7L7xwsAm}# + #{w -ANAU$bmvAmthP7L7xwr$@}#) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#) (cons 'macro - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWL6m}# - #{trans-r _hoQGWMnyQPAh3k2jhWL6l}# + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwsBH}# + #{trans-r -ANAU$bmvAmthP7L7xwsBG}# (values - (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# - #{new-w _hoQGWMnyQPAh3k2jhWL6F}# - #{w _hoQGWMnyQPAh3k2jhWL4e}#)) - #{mod _hoQGWMnyQPAh3k2jhWL4g}#) - #{mod _hoQGWMnyQPAh3k2jhWL4g}#))) - #{val _hoQGWMnyQPAh3k2jhWL4o}#))) - #{r _hoQGWMnyQPAh3k2jhWL4d}#) - #{new-w _hoQGWMnyQPAh3k2jhWL6F}# - #{s _hoQGWMnyQPAh3k2jhWL4f}# - #{mod _hoQGWMnyQPAh3k2jhWL4g}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWL4j}#) + (if #{rec? -ANAU$bmvAmthP7L7xwr$8}# + #{new-w -ANAU$bmvAmthP7L7xwsAm}# + #{w -ANAU$bmvAmthP7L7xwr$@}#)) + #{mod -ANAU$bmvAmthP7L7xwr@B}#) + #{mod -ANAU$bmvAmthP7L7xwr@B}#))) + #{val -ANAU$bmvAmthP7L7xwr@J}#))) + #{r -ANAU$bmvAmthP7L7xwr$$}#) + #{new-w -ANAU$bmvAmthP7L7xwsAm}# + #{s -ANAU$bmvAmthP7L7xwr@A}# + #{mod -ANAU$bmvAmthP7L7xwr@B}#))))) + #{tmp -ANAU$bmvAmthP7L7xwr@E}#) (syntax-violation #f "bad local syntax definition" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWL4c}#) - #{s _hoQGWMnyQPAh3k2jhWL4f}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#) + #{s -ANAU$bmvAmthP7L7xwr@A}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWL4c}# - #{s _hoQGWMnyQPAh3k2jhWL4f}#)) - #{e _hoQGWMnyQPAh3k2jhWL4c}#) - #{w _hoQGWMnyQPAh3k2jhWL4e}# - #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))))) - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (lambda (#{expanded _hoQGWMnyQPAh3k2jhWL$6}# - #{mod _hoQGWMnyQPAh3k2jhWL$7}#) - (let ((#{p _hoQGWMnyQPAh3k2jhWL$8}# + #{e -ANAU$bmvAmthP7L7xwr$9}# + #{s -ANAU$bmvAmthP7L7xwr@A}#)) + #{e -ANAU$bmvAmthP7L7xwr$9}#) + #{w -ANAU$bmvAmthP7L7xwr$@}# + #{mod -ANAU$bmvAmthP7L7xwr@B}#)))))) + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (lambda (#{expanded -ANAU$bmvAmthP7L7xwsFb}# + #{mod -ANAU$bmvAmthP7L7xwsFc}#) + (let ((#{p -ANAU$bmvAmthP7L7xwsFd}# (primitive-eval - #{expanded _hoQGWMnyQPAh3k2jhWL$6}#))) - (if (procedure? #{p _hoQGWMnyQPAh3k2jhWL$8}#) - #{p _hoQGWMnyQPAh3k2jhWL$8}# + #{expanded -ANAU$bmvAmthP7L7xwsFb}#))) + (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#) + #{p -ANAU$bmvAmthP7L7xwsFd}# (syntax-violation #f "nonprocedure transformer" - #{p _hoQGWMnyQPAh3k2jhWL$8}#))))) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWHeC}#) - (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) + #{p -ANAU$bmvAmthP7L7xwsFd}#))))) + (#{ellipsis? -ANAU$bmvAmthP7L7xwnOM}# + (lambda (#{x -ANAU$bmvAmthP7L7xwnYh}#) + (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)) #f) - (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1) - #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1) + #{x -ANAU$bmvAmthP7L7xwnYh}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2de")) + #(ribcage #(x) #((top)) #("p6")) #(ribcage (lambda-var-list gen-var @@ -5565,152 +5547,152 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -5721,7 +5703,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2de")) + #(ribcage #(x) #((top)) #("p6")) #(ribcage (lambda-var-list gen-var @@ -6003,163 +5985,163 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWHeC}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwnYh}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2de")) + #(ribcage #(x) #((top)) #("p6")) #(ribcage (lambda-var-list gen-var @@ -6441,539 +6423,539 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f))) - (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# - (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWL@B}#) + (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}# + (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#) (letrec* - ((#{req _hoQGWMnyQPAh3k2jhWL@C}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWL@G}# - #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWL@J}# + ((#{req -ANAU$bmvAmthP7L7xwsFj}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}# + #{rreq -ANAU$bmvAmthP7L7xwsFo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWL@G}# + #{args -ANAU$bmvAmthP7L7xwsFn}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWL@J}# + (if #{tmp -ANAU$bmvAmthP7L7xwsFq}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWL@D}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) + (#{check -ANAU$bmvAmthP7L7xwsFk}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWL@J}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBE}# + #{tmp -ANAU$bmvAmthP7L7xwsFq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWL@G}# + #{args -ANAU$bmvAmthP7L7xwsFn}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMBE}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMBI}# - #{b _hoQGWMnyQPAh3k2jhWMBJ}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMBI}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}# + #{b -ANAU$bmvAmthP7L7xwsHq}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMBI}#) + #{a -ANAU$bmvAmthP7L7xwsHp}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMBI}#) + #{a -ANAU$bmvAmthP7L7xwsHp}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMBI}# + #{a -ANAU$bmvAmthP7L7xwsHp}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMBI}# + #{a -ANAU$bmvAmthP7L7xwsHp}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) + #{tmp -ANAU$bmvAmthP7L7xwsHl}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMBk}# - #{b _hoQGWMnyQPAh3k2jhWMBl}#) - (#{req _hoQGWMnyQPAh3k2jhWL@C}# - #{b _hoQGWMnyQPAh3k2jhWMBl}# - (cons #{a _hoQGWMnyQPAh3k2jhWMBk}# - #{rreq _hoQGWMnyQPAh3k2jhWL@H}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBm}# - (list #{args _hoQGWMnyQPAh3k2jhWL@G}#))) + (lambda (#{a -ANAU$bmvAmthP7L7xwsIF}# + #{b -ANAU$bmvAmthP7L7xwsIG}#) + (#{req -ANAU$bmvAmthP7L7xwsFj}# + #{b -ANAU$bmvAmthP7L7xwsIG}# + (cons #{a -ANAU$bmvAmthP7L7xwsIF}# + #{rreq -ANAU$bmvAmthP7L7xwsFo}#))) + #{tmp -ANAU$bmvAmthP7L7xwsHl}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsIH}# + (list #{args -ANAU$bmvAmthP7L7xwsFn}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMBo}#) - (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMBo}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#) + (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMBo}#) + #{r -ANAU$bmvAmthP7L7xwsIJ}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMBo}#) + #{r -ANAU$bmvAmthP7L7xwsIJ}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMBo}# + #{r -ANAU$bmvAmthP7L7xwsIJ}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMBo}# + #{r -ANAU$bmvAmthP7L7xwsIJ}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) + #{tmp -ANAU$bmvAmthP7L7xwsIH}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMCG}#) - (#{check _hoQGWMnyQPAh3k2jhWL@D}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) - #{r _hoQGWMnyQPAh3k2jhWMCG}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsIn}#) + (#{check -ANAU$bmvAmthP7L7xwsFk}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#) + #{r -ANAU$bmvAmthP7L7xwsIn}#)) + #{tmp -ANAU$bmvAmthP7L7xwsIH}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# - #{args _hoQGWMnyQPAh3k2jhWL@G}#))))))))) - (#{check _hoQGWMnyQPAh3k2jhWL@D}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMEJ}# - #{rest _hoQGWMnyQPAh3k2jhWMEK}#) - (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - (if #{rest _hoQGWMnyQPAh3k2jhWMEK}# - (cons #{rest _hoQGWMnyQPAh3k2jhWMEK}# - #{req _hoQGWMnyQPAh3k2jhWMEJ}#) - #{req _hoQGWMnyQPAh3k2jhWMEJ}#)) + #{orig-args -ANAU$bmvAmthP7L7xwsFi}# + #{args -ANAU$bmvAmthP7L7xwsFn}#))))))))) + (#{check -ANAU$bmvAmthP7L7xwsFk}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsKq}# + #{rest -ANAU$bmvAmthP7L7xwsKr}#) + (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + (if #{rest -ANAU$bmvAmthP7L7xwsKr}# + (cons #{rest -ANAU$bmvAmthP7L7xwsKr}# + #{req -ANAU$bmvAmthP7L7xwsKq}#) + #{req -ANAU$bmvAmthP7L7xwsKq}#)) (values - #{req _hoQGWMnyQPAh3k2jhWMEJ}# + #{req -ANAU$bmvAmthP7L7xwsKq}# #f - #{rest _hoQGWMnyQPAh3k2jhWMEK}# + #{rest -ANAU$bmvAmthP7L7xwsKr}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#))))) - (#{req _hoQGWMnyQPAh3k2jhWL@C}# - #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# + #{orig-args -ANAU$bmvAmthP7L7xwsFi}#))))) + (#{req -ANAU$bmvAmthP7L7xwsFj}# + #{orig-args -ANAU$bmvAmthP7L7xwsFi}# '())))) - (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWMF$}# - #{r _hoQGWMnyQPAh3k2jhWMF@}# - #{w _hoQGWMnyQPAh3k2jhWMGA}# - #{s _hoQGWMnyQPAh3k2jhWMGB}# - #{mod _hoQGWMnyQPAh3k2jhWMGC}# - #{req _hoQGWMnyQPAh3k2jhWMGD}# - #{rest _hoQGWMnyQPAh3k2jhWMGE}# - #{meta _hoQGWMnyQPAh3k2jhWMGF}# - #{body _hoQGWMnyQPAh3k2jhWMGG}#) - (let ((#{ids _hoQGWMnyQPAh3k2jhWMGH}# - (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# + (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}# + (lambda (#{e -ANAU$bmvAmthP7L7xwsMf}# + #{r -ANAU$bmvAmthP7L7xwsMg}# + #{w -ANAU$bmvAmthP7L7xwsMh}# + #{s -ANAU$bmvAmthP7L7xwsMi}# + #{mod -ANAU$bmvAmthP7L7xwsMj}# + #{req -ANAU$bmvAmthP7L7xwsMk}# + #{rest -ANAU$bmvAmthP7L7xwsMl}# + #{meta -ANAU$bmvAmthP7L7xwsMm}# + #{body -ANAU$bmvAmthP7L7xwsMn}#) + (let ((#{ids -ANAU$bmvAmthP7L7xwsMo}# + (if #{rest -ANAU$bmvAmthP7L7xwsMl}# (append - #{req _hoQGWMnyQPAh3k2jhWMGD}# - (list #{rest _hoQGWMnyQPAh3k2jhWMGE}#)) - #{req _hoQGWMnyQPAh3k2jhWMGD}#))) - (let ((#{vars _hoQGWMnyQPAh3k2jhWMGI}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) - (let ((#{labels _hoQGWMnyQPAh3k2jhWMGJ}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) - (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# - #{s _hoQGWMnyQPAh3k2jhWMGB}# + #{req -ANAU$bmvAmthP7L7xwsMk}# + (list #{rest -ANAU$bmvAmthP7L7xwsMl}#)) + #{req -ANAU$bmvAmthP7L7xwsMk}#))) + (let ((#{vars -ANAU$bmvAmthP7L7xwsMp}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{ids -ANAU$bmvAmthP7L7xwsMo}#))) + (let ((#{labels -ANAU$bmvAmthP7L7xwsMq}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{ids -ANAU$bmvAmthP7L7xwsMo}#))) + (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# + #{s -ANAU$bmvAmthP7L7xwsMi}# (map syntax->datum - #{req _hoQGWMnyQPAh3k2jhWMGD}#) - (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# - (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMGE}#) + #{req -ANAU$bmvAmthP7L7xwsMk}#) + (if #{rest -ANAU$bmvAmthP7L7xwsMl}# + (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#) #f) - #{vars _hoQGWMnyQPAh3k2jhWMGI}# - #{meta _hoQGWMnyQPAh3k2jhWMGF}# - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - #{body _hoQGWMnyQPAh3k2jhWMGG}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{vars -ANAU$bmvAmthP7L7xwsMp}# + #{meta -ANAU$bmvAmthP7L7xwsMm}# + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + #{body -ANAU$bmvAmthP7L7xwsMn}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMF$}#) - #{s _hoQGWMnyQPAh3k2jhWMGB}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#) + #{s -ANAU$bmvAmthP7L7xwsMi}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWMF$}# - #{s _hoQGWMnyQPAh3k2jhWMGB}#)) - #{e _hoQGWMnyQPAh3k2jhWMF$}#) - #{w _hoQGWMnyQPAh3k2jhWMGA}# - #{mod _hoQGWMnyQPAh3k2jhWMGC}#) - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWMGJ}# - #{vars _hoQGWMnyQPAh3k2jhWMGI}# - #{r _hoQGWMnyQPAh3k2jhWMF@}#) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{ids _hoQGWMnyQPAh3k2jhWMGH}# - #{labels _hoQGWMnyQPAh3k2jhWMGJ}# - #{w _hoQGWMnyQPAh3k2jhWMGA}#) - #{mod _hoQGWMnyQPAh3k2jhWMGC}#))))))) - (#{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# - (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#) + #{e -ANAU$bmvAmthP7L7xwsMf}# + #{s -ANAU$bmvAmthP7L7xwsMi}#)) + #{e -ANAU$bmvAmthP7L7xwsMf}#) + #{w -ANAU$bmvAmthP7L7xwsMh}# + #{mod -ANAU$bmvAmthP7L7xwsMj}#) + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwsMq}# + #{vars -ANAU$bmvAmthP7L7xwsMp}# + #{r -ANAU$bmvAmthP7L7xwsMg}#) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{ids -ANAU$bmvAmthP7L7xwsMo}# + #{labels -ANAU$bmvAmthP7L7xwsMq}# + #{w -ANAU$bmvAmthP7L7xwsMh}#) + #{mod -ANAU$bmvAmthP7L7xwsMj}#))))))) + (#{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}# + (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsQ6}#) (letrec* - ((#{req _hoQGWMnyQPAh3k2jhWMKa}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMKh}# - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKk}# + ((#{req -ANAU$bmvAmthP7L7xwsQ7}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}# + #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMKk}# + (if #{tmp -ANAU$bmvAmthP7L7xwsRF}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() #f '())) - #{tmp _hoQGWMnyQPAh3k2jhWMKk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKq}# + #{tmp -ANAU$bmvAmthP7L7xwsRF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMKq}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMKu}# - #{b _hoQGWMnyQPAh3k2jhWMKv}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMKu}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}# + #{b -ANAU$bmvAmthP7L7xwsRQ}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMKu}#) + #{a -ANAU$bmvAmthP7L7xwsRP}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMKu}#) + #{a -ANAU$bmvAmthP7L7xwsRP}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMKu}# + #{a -ANAU$bmvAmthP7L7xwsRP}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMKu}# + #{a -ANAU$bmvAmthP7L7xwsRP}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) + #{tmp -ANAU$bmvAmthP7L7xwsRL}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLK}# - #{b _hoQGWMnyQPAh3k2jhWMLL}#) - (#{req _hoQGWMnyQPAh3k2jhWMKa}# - #{b _hoQGWMnyQPAh3k2jhWMLL}# - (cons #{a _hoQGWMnyQPAh3k2jhWMLK}# - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLM}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsRr}# + #{b -ANAU$bmvAmthP7L7xwsRs}#) + (#{req -ANAU$bmvAmthP7L7xwsQ7}# + #{b -ANAU$bmvAmthP7L7xwsRs}# + (cons #{a -ANAU$bmvAmthP7L7xwsRr}# + #{rreq -ANAU$bmvAmthP7L7xwsRD}#))) + #{tmp -ANAU$bmvAmthP7L7xwsRL}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsRt}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLM}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLQ}# - #{b _hoQGWMnyQPAh3k2jhWMLR}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}# + #{b -ANAU$bmvAmthP7L7xwsRy}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMLQ}#) + #{a -ANAU$bmvAmthP7L7xwsRx}#) #:optional)) - #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) + #{tmp -ANAU$bmvAmthP7L7xwsRt}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLS}# - #{b _hoQGWMnyQPAh3k2jhWMLT}#) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - #{b _hoQGWMnyQPAh3k2jhWMLT}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}# + #{b -ANAU$bmvAmthP7L7xwsR0}#) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + #{b -ANAU$bmvAmthP7L7xwsR0}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLW}# + #{tmp -ANAU$bmvAmthP7L7xwsRt}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLW}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLa}# - #{b _hoQGWMnyQPAh3k2jhWMLb}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}# + #{b -ANAU$bmvAmthP7L7xwsR8}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMLa}#) + #{a -ANAU$bmvAmthP7L7xwsR7}#) #:key)) - #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) + #{tmp -ANAU$bmvAmthP7L7xwsR3}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLc}# - #{b _hoQGWMnyQPAh3k2jhWMLd}#) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMLd}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}# + #{b -ANAU$bmvAmthP7L7xwsR$}#) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsR$}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLg}# + #{tmp -ANAU$bmvAmthP7L7xwsR3}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLg}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLk}# - #{b _hoQGWMnyQPAh3k2jhWMLl}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}# + #{b -ANAU$bmvAmthP7L7xwsSG}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMLk}#) + #{a -ANAU$bmvAmthP7L7xwsSF}#) #:rest)) - #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) + #{tmp -ANAU$bmvAmthP7L7xwsSB}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLm}# - #{b _hoQGWMnyQPAh3k2jhWMLn}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMLn}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}# + #{b -ANAU$bmvAmthP7L7xwsSI}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsSI}# (reverse - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLq}# - (list #{args _hoQGWMnyQPAh3k2jhWMKh}#))) + #{tmp -ANAU$bmvAmthP7L7xwsSB}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}# + (list #{args -ANAU$bmvAmthP7L7xwsRC}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMLs}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsSN}#) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMLs}#) + #{r -ANAU$bmvAmthP7L7xwsSN}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMLs}#) + #{r -ANAU$bmvAmthP7L7xwsSN}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMLs}#) + #{r -ANAU$bmvAmthP7L7xwsSN}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMLs}# + #{r -ANAU$bmvAmthP7L7xwsSN}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMLs}# + #{r -ANAU$bmvAmthP7L7xwsSN}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) + #{tmp -ANAU$bmvAmthP7L7xwsSL}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMMK}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMMK}# + (lambda (#{r -ANAU$bmvAmthP7L7xwsSr}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsSr}# (reverse - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) + #{tmp -ANAU$bmvAmthP7L7xwsSL}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMKh}#))))))))))))))) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMMd}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMh}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsRC}#))))))))))))))) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsS$}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + #{ropt -ANAU$bmvAmthP7L7xwsTA}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsTC}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMMh}# + (if #{tmp -ANAU$bmvAmthP7L7xwsTC}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#) #f '())) - #{tmp _hoQGWMnyQPAh3k2jhWMMh}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMn}# + #{tmp -ANAU$bmvAmthP7L7xwsTC}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMMn}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMMr}# - #{b _hoQGWMnyQPAh3k2jhWMMs}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMMr}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}# + #{b -ANAU$bmvAmthP7L7xwsTN}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMMr}#) + #{a -ANAU$bmvAmthP7L7xwsTM}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMMr}#) + #{a -ANAU$bmvAmthP7L7xwsTM}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMMr}# + #{a -ANAU$bmvAmthP7L7xwsTM}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMMr}# + #{a -ANAU$bmvAmthP7L7xwsTM}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) + #{tmp -ANAU$bmvAmthP7L7xwsTI}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNH}# - #{b _hoQGWMnyQPAh3k2jhWMNI}#) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - #{b _hoQGWMnyQPAh3k2jhWMNI}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (cons (cons #{a _hoQGWMnyQPAh3k2jhWMNH}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}# + #{b -ANAU$bmvAmthP7L7xwsTp}#) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + #{b -ANAU$bmvAmthP7L7xwsTp}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("2f1" "2f2")) + #("qt" "qu")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("2ew" "2ex" "2ey")) + #("qo" "qp" "qq")) #(ribcage (check rest key opt req) ((top) @@ -6981,15 +6963,11 @@ (top) (top) (top)) - ("2ea" - "2e9" - "2e8" - "2e7" - "2e6")) + ("q2" "q1" "q0" "pz" "py")) #(ribcage #(orig-args) #((top)) - #("2e5")) + #("px")) #(ribcage (lambda-var-list gen-var @@ -7271,338 +7249,338 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNJ}# + #{ropt -ANAU$bmvAmthP7L7xwsTA}#))) + #{tmp -ANAU$bmvAmthP7L7xwsTI}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '((any any) . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNJ}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNN}# - #{init _hoQGWMnyQPAh3k2jhWMNO}# - #{b _hoQGWMnyQPAh3k2jhWMNP}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMNN}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}# + #{init -ANAU$bmvAmthP7L7xwsTv}# + #{b -ANAU$bmvAmthP7L7xwsTw}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMNN}#) + #{a -ANAU$bmvAmthP7L7xwsTu}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMNN}#) + #{a -ANAU$bmvAmthP7L7xwsTu}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMNN}# + #{a -ANAU$bmvAmthP7L7xwsTu}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMNN}# + #{a -ANAU$bmvAmthP7L7xwsTu}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) + #{tmp -ANAU$bmvAmthP7L7xwsTq}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNq}# - #{init _hoQGWMnyQPAh3k2jhWMNr}# - #{b _hoQGWMnyQPAh3k2jhWMNs}#) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - #{b _hoQGWMnyQPAh3k2jhWMNs}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (cons (list #{a _hoQGWMnyQPAh3k2jhWMNq}# - #{init _hoQGWMnyQPAh3k2jhWMNr}#) - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNt}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsUL}# + #{init -ANAU$bmvAmthP7L7xwsUM}# + #{b -ANAU$bmvAmthP7L7xwsUN}#) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + #{b -ANAU$bmvAmthP7L7xwsUN}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (cons (list #{a -ANAU$bmvAmthP7L7xwsUL}# + #{init -ANAU$bmvAmthP7L7xwsUM}#) + #{ropt -ANAU$bmvAmthP7L7xwsTA}#))) + #{tmp -ANAU$bmvAmthP7L7xwsTq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsUO}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNt}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNx}# - #{b _hoQGWMnyQPAh3k2jhWMNy}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}# + #{b -ANAU$bmvAmthP7L7xwsUT}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMNx}#) + #{a -ANAU$bmvAmthP7L7xwsUS}#) #:key)) - #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) + #{tmp -ANAU$bmvAmthP7L7xwsUO}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNz}# - #{b _hoQGWMnyQPAh3k2jhWMN0}#) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMN0}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}# + #{b -ANAU$bmvAmthP7L7xwsUV}#) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsUV}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMN3}# + #{tmp -ANAU$bmvAmthP7L7xwsUO}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMN3}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMN7}# - #{b _hoQGWMnyQPAh3k2jhWMN8}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}# + #{b -ANAU$bmvAmthP7L7xwsUd}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMN7}#) + #{a -ANAU$bmvAmthP7L7xwsUc}#) #:rest)) - #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) + #{tmp -ANAU$bmvAmthP7L7xwsUY}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMN9}# - #{b _hoQGWMnyQPAh3k2jhWMN$}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMN$}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}# + #{b -ANAU$bmvAmthP7L7xwsUf}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsUf}# + #{req -ANAU$bmvAmthP7L7xwsS@}# (reverse - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + #{ropt -ANAU$bmvAmthP7L7xwsTA}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMOB}# - (list #{args _hoQGWMnyQPAh3k2jhWMMd}#))) + #{tmp -ANAU$bmvAmthP7L7xwsUY}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}# + (list #{args -ANAU$bmvAmthP7L7xwsS$}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMOD}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsUk}#) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMOD}#) + #{r -ANAU$bmvAmthP7L7xwsUk}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMOD}#) + #{r -ANAU$bmvAmthP7L7xwsUk}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMOD}#) + #{r -ANAU$bmvAmthP7L7xwsUk}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMOD}# + #{r -ANAU$bmvAmthP7L7xwsUk}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMOD}# + #{r -ANAU$bmvAmthP7L7xwsUk}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) + #{tmp -ANAU$bmvAmthP7L7xwsUi}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMOh}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMOh}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# + (lambda (#{r -ANAU$bmvAmthP7L7xwsVC}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsVC}# + #{req -ANAU$bmvAmthP7L7xwsS@}# (reverse - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + #{ropt -ANAU$bmvAmthP7L7xwsTA}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) + #{tmp -ANAU$bmvAmthP7L7xwsUi}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMMd}#))))))))))))))) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMO0}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO5}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsS$}#))))))))))))))) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsVV}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsVa}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMO5}# + (if #{tmp -ANAU$bmvAmthP7L7xwsVa}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# #f (cons #f - (reverse #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMO5}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO@}# + (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsVa}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMO@}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMPD}# - #{b _hoQGWMnyQPAh3k2jhWMPE}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPD}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}# + #{b -ANAU$bmvAmthP7L7xwsVl}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMPD}#) + #{a -ANAU$bmvAmthP7L7xwsVk}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMPD}#) + #{a -ANAU$bmvAmthP7L7xwsVk}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPD}# + #{a -ANAU$bmvAmthP7L7xwsVk}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPD}# + #{a -ANAU$bmvAmthP7L7xwsVk}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) + #{tmp -ANAU$bmvAmthP7L7xwsVg}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMPf}# - #{b _hoQGWMnyQPAh3k2jhWMPg}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPh}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}# + #{b -ANAU$bmvAmthP7L7xwsWB}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}# (symbol->keyword (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMPf}#)))) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMPg}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - (cons (cons #{tmp _hoQGWMnyQPAh3k2jhWMPh}# - (cons #{a _hoQGWMnyQPAh3k2jhWMPf}# + #{a -ANAU$bmvAmthP7L7xwsWA}#)))) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsWB}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + (cons (cons #{tmp -ANAU$bmvAmthP7L7xwsWC}# + (cons #{a -ANAU$bmvAmthP7L7xwsWA}# '(#(syntax-object #f ((top) @@ -7610,11 +7588,11 @@ #(ribcage #(k) #((top)) - #("2fs")) + #("rk")) #(ribcage #(a b) #((top) (top)) - #("2fq" "2fr")) + #("ri" "rj")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7622,10 +7600,10 @@ (top) (top) (top)) - #("2fk" - "2fl" - "2fm" - "2fn")) + #("rc" + "rd" + "re" + "rf")) #(ribcage (check rest key @@ -7636,15 +7614,15 @@ (top) (top) (top)) - ("2ea" - "2e9" - "2e8" - "2e7" - "2e6")) + ("q2" + "q1" + "q0" + "pz" + "py")) #(ribcage #(orig-args) #((top)) - #("2e5")) + #("px")) #(ribcage (lambda-var-list gen-var @@ -7926,1063 +7904,1063 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))))) - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPk}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsVg}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '((any any) . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMPk}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMPo}# - #{init _hoQGWMnyQPAh3k2jhWMPp}# - #{b _hoQGWMnyQPAh3k2jhWMPq}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPo}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}# + #{init -ANAU$bmvAmthP7L7xwsWK}# + #{b -ANAU$bmvAmthP7L7xwsWL}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMPo}#) + #{a -ANAU$bmvAmthP7L7xwsWJ}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMPo}#) + #{a -ANAU$bmvAmthP7L7xwsWJ}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPo}# + #{a -ANAU$bmvAmthP7L7xwsWJ}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPo}# + #{a -ANAU$bmvAmthP7L7xwsWJ}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) + #{tmp -ANAU$bmvAmthP7L7xwsWF}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMQF}# - #{init _hoQGWMnyQPAh3k2jhWMQG}# - #{b _hoQGWMnyQPAh3k2jhWMQH}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQI}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}# + #{init -ANAU$bmvAmthP7L7xwsWn}# + #{b -ANAU$bmvAmthP7L7xwsWo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}# (symbol->keyword (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMQF}#)))) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMQH}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - (cons (list #{tmp _hoQGWMnyQPAh3k2jhWMQI}# - #{a _hoQGWMnyQPAh3k2jhWMQF}# - #{init _hoQGWMnyQPAh3k2jhWMQG}#) - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQL}# + #{a -ANAU$bmvAmthP7L7xwsWm}#)))) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsWo}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + (cons (list #{tmp -ANAU$bmvAmthP7L7xwsWp}# + #{a -ANAU$bmvAmthP7L7xwsWm}# + #{init -ANAU$bmvAmthP7L7xwsWn}#) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsWF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWs}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '((any any any) . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQL}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMQP}# - #{init _hoQGWMnyQPAh3k2jhWMQQ}# - #{k _hoQGWMnyQPAh3k2jhWMQR}# - #{b _hoQGWMnyQPAh3k2jhWMQS}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}# + #{init -ANAU$bmvAmthP7L7xwsWx}# + #{k -ANAU$bmvAmthP7L7xwsWy}# + #{b -ANAU$bmvAmthP7L7xwsWz}#) (if (if (symbol? - #{a _hoQGWMnyQPAh3k2jhWMQP}#) + #{a -ANAU$bmvAmthP7L7xwsWw}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMQP}#) + #{a -ANAU$bmvAmthP7L7xwsWw}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMQP}#) + #{a -ANAU$bmvAmthP7L7xwsWw}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMQP}# + #{a -ANAU$bmvAmthP7L7xwsWw}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMQP}# + #{a -ANAU$bmvAmthP7L7xwsWw}# 1)) #f)) (keyword? (syntax->datum - #{k _hoQGWMnyQPAh3k2jhWMQR}#)) + #{k -ANAU$bmvAmthP7L7xwsWy}#)) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) + #{tmp -ANAU$bmvAmthP7L7xwsWs}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMQt}# - #{init _hoQGWMnyQPAh3k2jhWMQu}# - #{k _hoQGWMnyQPAh3k2jhWMQv}# - #{b _hoQGWMnyQPAh3k2jhWMQw}#) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMQw}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - (cons (list #{k _hoQGWMnyQPAh3k2jhWMQv}# - #{a _hoQGWMnyQPAh3k2jhWMQt}# - #{init _hoQGWMnyQPAh3k2jhWMQu}#) - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQx}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsXO}# + #{init -ANAU$bmvAmthP7L7xwsXP}# + #{k -ANAU$bmvAmthP7L7xwsXQ}# + #{b -ANAU$bmvAmthP7L7xwsXR}#) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsXR}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + (cons (list #{k -ANAU$bmvAmthP7L7xwsXQ}# + #{a -ANAU$bmvAmthP7L7xwsXO}# + #{init -ANAU$bmvAmthP7L7xwsXP}#) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#))) + #{tmp -ANAU$bmvAmthP7L7xwsWs}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsXS}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQx}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}# (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ1}#) + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXW}#) (eq? (syntax->datum - #{aok _hoQGWMnyQPAh3k2jhWMQ1}#) + #{aok -ANAU$bmvAmthP7L7xwsXW}#) #:allow-other-keys)) - #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) + #{tmp -ANAU$bmvAmthP7L7xwsXS}#) #f) (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ2}#) - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# #f (cons #t (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQ5}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsXS}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQ5}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}# (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ9}# - #{a _hoQGWMnyQPAh3k2jhWMQ$}# - #{b _hoQGWMnyQPAh3k2jhWMQ@}#) + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXe}# + #{a -ANAU$bmvAmthP7L7xwsXf}# + #{b -ANAU$bmvAmthP7L7xwsXg}#) (if (eq? (syntax->datum - #{aok _hoQGWMnyQPAh3k2jhWMQ9}#) + #{aok -ANAU$bmvAmthP7L7xwsXe}#) #:allow-other-keys) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMQ$}#) + #{a -ANAU$bmvAmthP7L7xwsXf}#) #:rest) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) + #{tmp -ANAU$bmvAmthP7L7xwsXa}#) #f) (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRA}# - #{a _hoQGWMnyQPAh3k2jhWMRB}# - #{b _hoQGWMnyQPAh3k2jhWMRC}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMRC}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXh}# + #{a -ANAU$bmvAmthP7L7xwsXi}# + #{b -ANAU$bmvAmthP7L7xwsXj}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsXj}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #t (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRF}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsXa}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRF}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsXm}# (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRJ}# - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXq}# + #{r -ANAU$bmvAmthP7L7xwsXr}#) (if (eq? (syntax->datum - #{aok _hoQGWMnyQPAh3k2jhWMRJ}#) + #{aok -ANAU$bmvAmthP7L7xwsXq}#) #:allow-other-keys) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + #{r -ANAU$bmvAmthP7L7xwsXr}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + #{r -ANAU$bmvAmthP7L7xwsXr}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + #{r -ANAU$bmvAmthP7L7xwsXr}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMRK}# + #{r -ANAU$bmvAmthP7L7xwsXr}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMRK}# + #{r -ANAU$bmvAmthP7L7xwsXr}# 1)) #f)) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) + #{tmp -ANAU$bmvAmthP7L7xwsXm}#) #f) (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRl}# - #{r _hoQGWMnyQPAh3k2jhWMRm}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMRm}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{aok -ANAU$bmvAmthP7L7xwsYG}# + #{r -ANAU$bmvAmthP7L7xwsYH}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsYH}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #t (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRp}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsXm}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsYK}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRp}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsYK}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMRt}# - #{b _hoQGWMnyQPAh3k2jhWMRu}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsYO}# + #{b -ANAU$bmvAmthP7L7xwsYP}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMRt}#) + #{a -ANAU$bmvAmthP7L7xwsYO}#) #:rest)) - #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) + #{tmp -ANAU$bmvAmthP7L7xwsYK}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMRv}# - #{b _hoQGWMnyQPAh3k2jhWMRw}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMRw}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsYQ}# + #{b -ANAU$bmvAmthP7L7xwsYR}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsYR}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #f (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRz}# - (list #{args _hoQGWMnyQPAh3k2jhWMO0}#))) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsYK}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsYU}# + (list #{args -ANAU$bmvAmthP7L7xwsVV}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMR1}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsYW}#) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMR1}#) + #{r -ANAU$bmvAmthP7L7xwsYW}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMR1}#) + #{r -ANAU$bmvAmthP7L7xwsYW}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMR1}#) + #{r -ANAU$bmvAmthP7L7xwsYW}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMR1}# + #{r -ANAU$bmvAmthP7L7xwsYW}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMR1}# + #{r -ANAU$bmvAmthP7L7xwsYW}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) + #{tmp -ANAU$bmvAmthP7L7xwsYU}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMST}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMST}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{r -ANAU$bmvAmthP7L7xwsY0}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsY0}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #f (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsYU}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMO0}#))))))))))))))))))))) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMSv}# - #{req _hoQGWMnyQPAh3k2jhWMSw}# - #{opt _hoQGWMnyQPAh3k2jhWMSx}# - #{kw _hoQGWMnyQPAh3k2jhWMSy}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMS0}# - (list #{args _hoQGWMnyQPAh3k2jhWMSv}#))) + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsVV}#))))))))))))))))))))) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsZQ}# + #{req -ANAU$bmvAmthP7L7xwsZR}# + #{opt -ANAU$bmvAmthP7L7xwsZS}# + #{kw -ANAU$bmvAmthP7L7xwsZT}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsZV}# + (list #{args -ANAU$bmvAmthP7L7xwsZQ}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMS2}#) - (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMS2}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#) + (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#) #t - (if (if (vector? #{r _hoQGWMnyQPAh3k2jhWMS2}#) + (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMS2}#) + #{r -ANAU$bmvAmthP7L7xwsZX}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMS2}# + #{r -ANAU$bmvAmthP7L7xwsZX}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r _hoQGWMnyQPAh3k2jhWMS2}# 1)) + (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) + #{tmp -ANAU$bmvAmthP7L7xwsZV}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMTU}#) - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMSw}# - #{opt _hoQGWMnyQPAh3k2jhWMSx}# - #{r _hoQGWMnyQPAh3k2jhWMTU}# - #{kw _hoQGWMnyQPAh3k2jhWMSy}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsZR}# + #{opt -ANAU$bmvAmthP7L7xwsZS}# + #{r -ANAU$bmvAmthP7L7xwsZ1}# + #{kw -ANAU$bmvAmthP7L7xwsZT}#)) + #{tmp -ANAU$bmvAmthP7L7xwsZV}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMSv}#))))) - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMTY}# - #{opt _hoQGWMnyQPAh3k2jhWMTZ}# - #{rest _hoQGWMnyQPAh3k2jhWMTa}# - #{kw _hoQGWMnyQPAh3k2jhWMTb}#) - (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsZQ}#))))) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsZ5}# + #{opt -ANAU$bmvAmthP7L7xwsZ6}# + #{rest -ANAU$bmvAmthP7L7xwsZ7}# + #{kw -ANAU$bmvAmthP7L7xwsZ8}#) + (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# (append - #{req _hoQGWMnyQPAh3k2jhWMTY}# - (map car #{opt _hoQGWMnyQPAh3k2jhWMTZ}#) - (if #{rest _hoQGWMnyQPAh3k2jhWMTa}# - (list #{rest _hoQGWMnyQPAh3k2jhWMTa}#) + #{req -ANAU$bmvAmthP7L7xwsZ5}# + (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#) + (if #{rest -ANAU$bmvAmthP7L7xwsZ7}# + (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#) '()) - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMTb}#) - (map cadr (cdr #{kw _hoQGWMnyQPAh3k2jhWMTb}#)) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#) + (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#)) '()))) (values - #{req _hoQGWMnyQPAh3k2jhWMTY}# - #{opt _hoQGWMnyQPAh3k2jhWMTZ}# - #{rest _hoQGWMnyQPAh3k2jhWMTa}# - #{kw _hoQGWMnyQPAh3k2jhWMTb}#) + #{req -ANAU$bmvAmthP7L7xwsZ5}# + #{opt -ANAU$bmvAmthP7L7xwsZ6}# + #{rest -ANAU$bmvAmthP7L7xwsZ7}# + #{kw -ANAU$bmvAmthP7L7xwsZ8}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#))))) - (#{req _hoQGWMnyQPAh3k2jhWMKa}# - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#))))) + (#{req -ANAU$bmvAmthP7L7xwsQ7}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# '())))) - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWMVP}# - #{r _hoQGWMnyQPAh3k2jhWMVQ}# - #{w _hoQGWMnyQPAh3k2jhWMVR}# - #{s _hoQGWMnyQPAh3k2jhWMVS}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}# - #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# - #{clauses _hoQGWMnyQPAh3k2jhWMVV}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + (lambda (#{e -ANAU$bmvAmthP7L7xwsbw}# + #{r -ANAU$bmvAmthP7L7xwsbx}# + #{w -ANAU$bmvAmthP7L7xwsby}# + #{s -ANAU$bmvAmthP7L7xwsbz}# + #{mod -ANAU$bmvAmthP7L7xwsb0}# + #{get-formals -ANAU$bmvAmthP7L7xwsb1}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}#) (letrec* - ((#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMXV}# - #{opt _hoQGWMnyQPAh3k2jhWMXW}# - #{rest _hoQGWMnyQPAh3k2jhWMXX}# - #{kw _hoQGWMnyQPAh3k2jhWMXY}# - #{body _hoQGWMnyQPAh3k2jhWMXZ}#) - (let ((#{vars _hoQGWMnyQPAh3k2jhWMXa}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{req _hoQGWMnyQPAh3k2jhWMXV}#)) - (#{labels _hoQGWMnyQPAh3k2jhWMXb}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{req _hoQGWMnyQPAh3k2jhWMXV}#))) - (let ((#{r* _hoQGWMnyQPAh3k2jhWMXc}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWMXb}# - #{vars _hoQGWMnyQPAh3k2jhWMXa}# - #{r _hoQGWMnyQPAh3k2jhWMVQ}#)) - (#{w* _hoQGWMnyQPAh3k2jhWMXd}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{req _hoQGWMnyQPAh3k2jhWMXV}# - #{labels _hoQGWMnyQPAh3k2jhWMXb}# - #{w _hoQGWMnyQPAh3k2jhWMVR}#))) - (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# + ((#{parse-req -ANAU$bmvAmthP7L7xwsb3}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsd2}# + #{opt -ANAU$bmvAmthP7L7xwsd3}# + #{rest -ANAU$bmvAmthP7L7xwsd4}# + #{kw -ANAU$bmvAmthP7L7xwsd5}# + #{body -ANAU$bmvAmthP7L7xwsd6}#) + (let ((#{vars -ANAU$bmvAmthP7L7xwsd7}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{req -ANAU$bmvAmthP7L7xwsd2}#)) + (#{labels -ANAU$bmvAmthP7L7xwsd8}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{req -ANAU$bmvAmthP7L7xwsd2}#))) + (let ((#{r* -ANAU$bmvAmthP7L7xwsd9}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwsd8}# + #{vars -ANAU$bmvAmthP7L7xwsd7}# + #{r -ANAU$bmvAmthP7L7xwsbx}#)) + (#{w* -ANAU$bmvAmthP7L7xwsd$}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{req -ANAU$bmvAmthP7L7xwsd2}# + #{labels -ANAU$bmvAmthP7L7xwsd8}# + #{w -ANAU$bmvAmthP7L7xwsby}#))) + (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}# (map syntax->datum - #{req _hoQGWMnyQPAh3k2jhWMXV}#) - #{opt _hoQGWMnyQPAh3k2jhWMXW}# - #{rest _hoQGWMnyQPAh3k2jhWMXX}# - #{kw _hoQGWMnyQPAh3k2jhWMXY}# - #{body _hoQGWMnyQPAh3k2jhWMXZ}# - (reverse #{vars _hoQGWMnyQPAh3k2jhWMXa}#) - #{r* _hoQGWMnyQPAh3k2jhWMXc}# - #{w* _hoQGWMnyQPAh3k2jhWMXd}# + #{req -ANAU$bmvAmthP7L7xwsd2}#) + #{opt -ANAU$bmvAmthP7L7xwsd3}# + #{rest -ANAU$bmvAmthP7L7xwsd4}# + #{kw -ANAU$bmvAmthP7L7xwsd5}# + #{body -ANAU$bmvAmthP7L7xwsd6}# + (reverse #{vars -ANAU$bmvAmthP7L7xwsd7}#) + #{r* -ANAU$bmvAmthP7L7xwsd9}# + #{w* -ANAU$bmvAmthP7L7xwsd$}# '() '()))))) - (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMaN}# - #{opt _hoQGWMnyQPAh3k2jhWMaO}# - #{rest _hoQGWMnyQPAh3k2jhWMaP}# - #{kw _hoQGWMnyQPAh3k2jhWMaQ}# - #{body _hoQGWMnyQPAh3k2jhWMaR}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}# - #{r* _hoQGWMnyQPAh3k2jhWMaT}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}# - #{out _hoQGWMnyQPAh3k2jhWMaV}# - #{inits _hoQGWMnyQPAh3k2jhWMaW}#) - (if (pair? #{opt _hoQGWMnyQPAh3k2jhWMaO}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaX}# - (car #{opt _hoQGWMnyQPAh3k2jhWMaO}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaY}# + (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsgu}# + #{opt -ANAU$bmvAmthP7L7xwsgv}# + #{rest -ANAU$bmvAmthP7L7xwsgw}# + #{kw -ANAU$bmvAmthP7L7xwsgx}# + #{body -ANAU$bmvAmthP7L7xwsgy}# + #{vars -ANAU$bmvAmthP7L7xwsgz}# + #{r* -ANAU$bmvAmthP7L7xwsg0}# + #{w* -ANAU$bmvAmthP7L7xwsg1}# + #{out -ANAU$bmvAmthP7L7xwsg2}# + #{inits -ANAU$bmvAmthP7L7xwsg3}#) + (if (pair? #{opt -ANAU$bmvAmthP7L7xwsgv}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsg4}# + (car #{opt -ANAU$bmvAmthP7L7xwsgv}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsg5}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWMaX}# + #{tmp -ANAU$bmvAmthP7L7xwsg4}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMaY}# + (if #{tmp -ANAU$bmvAmthP7L7xwsg5}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWMaa}# - #{i _hoQGWMnyQPAh3k2jhWMab}#) - (let ((#{v _hoQGWMnyQPAh3k2jhWMac}# - (let ((#{id _hoQGWMnyQPAh3k2jhWMak}# + (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}# + #{i -ANAU$bmvAmthP7L7xwsg8}#) + (let ((#{v -ANAU$bmvAmthP7L7xwsg9}# + (let ((#{id -ANAU$bmvAmthP7L7xwshF}# (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{id -ANAU$bmvAmthP7L7xwsg7}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{id -ANAU$bmvAmthP7L7xwsg7}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMaa}# + #{id -ANAU$bmvAmthP7L7xwsg7}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMaa}# + #{id -ANAU$bmvAmthP7L7xwsg7}# 1) - #{id _hoQGWMnyQPAh3k2jhWMaa}#))) + #{id -ANAU$bmvAmthP7L7xwsg7}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWMak}#) + #{id -ANAU$bmvAmthP7L7xwshF}#) " "))))) - (let ((#{l _hoQGWMnyQPAh3k2jhWMad}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (list #{v _hoQGWMnyQPAh3k2jhWMac}#)))) - (let ((#{r** _hoQGWMnyQPAh3k2jhWMae}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{l _hoQGWMnyQPAh3k2jhWMad}# - (list #{v _hoQGWMnyQPAh3k2jhWMac}#) - #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) - (let ((#{w** _hoQGWMnyQPAh3k2jhWMaf}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{id _hoQGWMnyQPAh3k2jhWMaa}#) - #{l _hoQGWMnyQPAh3k2jhWMad}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) - (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# - #{req _hoQGWMnyQPAh3k2jhWMaN}# - (cdr #{opt _hoQGWMnyQPAh3k2jhWMaO}#) - #{rest _hoQGWMnyQPAh3k2jhWMaP}# - #{kw _hoQGWMnyQPAh3k2jhWMaQ}# - #{body _hoQGWMnyQPAh3k2jhWMaR}# - (cons #{v _hoQGWMnyQPAh3k2jhWMac}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}#) - #{r** _hoQGWMnyQPAh3k2jhWMae}# - #{w** _hoQGWMnyQPAh3k2jhWMaf}# + (let ((#{l -ANAU$bmvAmthP7L7xwsg$}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (list #{v -ANAU$bmvAmthP7L7xwsg9}#)))) + (let ((#{r** -ANAU$bmvAmthP7L7xwsg@}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{l -ANAU$bmvAmthP7L7xwsg$}# + (list #{v -ANAU$bmvAmthP7L7xwsg9}#) + #{r* -ANAU$bmvAmthP7L7xwsg0}#))) + (let ((#{w** -ANAU$bmvAmthP7L7xwshA}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{id -ANAU$bmvAmthP7L7xwsg7}#) + #{l -ANAU$bmvAmthP7L7xwsg$}# + #{w* -ANAU$bmvAmthP7L7xwsg1}#))) + (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}# + #{req -ANAU$bmvAmthP7L7xwsgu}# + (cdr #{opt -ANAU$bmvAmthP7L7xwsgv}#) + #{rest -ANAU$bmvAmthP7L7xwsgw}# + #{kw -ANAU$bmvAmthP7L7xwsgx}# + #{body -ANAU$bmvAmthP7L7xwsgy}# + (cons #{v -ANAU$bmvAmthP7L7xwsg9}# + #{vars -ANAU$bmvAmthP7L7xwsgz}#) + #{r** -ANAU$bmvAmthP7L7xwsg@}# + #{w** -ANAU$bmvAmthP7L7xwshA}# (cons (syntax->datum - #{id _hoQGWMnyQPAh3k2jhWMaa}#) - #{out _hoQGWMnyQPAh3k2jhWMaV}#) - (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{i _hoQGWMnyQPAh3k2jhWMab}# - #{r* _hoQGWMnyQPAh3k2jhWMaT}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#) - #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWMaY}#) + #{id -ANAU$bmvAmthP7L7xwsg7}#) + #{out -ANAU$bmvAmthP7L7xwsg2}#) + (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{i -ANAU$bmvAmthP7L7xwsg8}# + #{r* -ANAU$bmvAmthP7L7xwsg0}# + #{w* -ANAU$bmvAmthP7L7xwsg1}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#) + #{inits -ANAU$bmvAmthP7L7xwsg3}#))))))) + #{tmp -ANAU$bmvAmthP7L7xwsg5}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWMaX}#)))) - (if #{rest _hoQGWMnyQPAh3k2jhWMaP}# - (let ((#{v _hoQGWMnyQPAh3k2jhWMeJ}# - (let ((#{id _hoQGWMnyQPAh3k2jhWMeT}# + #{tmp -ANAU$bmvAmthP7L7xwsg4}#)))) + (if #{rest -ANAU$bmvAmthP7L7xwsgw}# + (let ((#{v -ANAU$bmvAmthP7L7xwskq}# + (let ((#{id -ANAU$bmvAmthP7L7xwsk0}# (if (if (vector? - #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + #{rest -ANAU$bmvAmthP7L7xwsgw}#) (if (= (vector-length - #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + #{rest -ANAU$bmvAmthP7L7xwsgw}#) 4) (eq? (vector-ref - #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{rest -ANAU$bmvAmthP7L7xwsgw}# 0) 'syntax-object) #f) #f) (vector-ref - #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{rest -ANAU$bmvAmthP7L7xwsgw}# 1) - #{rest _hoQGWMnyQPAh3k2jhWMaP}#))) + #{rest -ANAU$bmvAmthP7L7xwsgw}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWMeT}#) + #{id -ANAU$bmvAmthP7L7xwsk0}#) " "))))) - (let ((#{l _hoQGWMnyQPAh3k2jhWMeK}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#)))) - (let ((#{r* _hoQGWMnyQPAh3k2jhWMeL}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{l _hoQGWMnyQPAh3k2jhWMeK}# - (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#) - #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) - (let ((#{w* _hoQGWMnyQPAh3k2jhWMeM}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{rest _hoQGWMnyQPAh3k2jhWMaP}#) - #{l _hoQGWMnyQPAh3k2jhWMeK}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - #{req _hoQGWMnyQPAh3k2jhWMaN}# - (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) - (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (let ((#{l -ANAU$bmvAmthP7L7xwskr}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (list #{v -ANAU$bmvAmthP7L7xwskq}#)))) + (let ((#{r* -ANAU$bmvAmthP7L7xwsks}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{l -ANAU$bmvAmthP7L7xwskr}# + (list #{v -ANAU$bmvAmthP7L7xwskq}#) + #{r* -ANAU$bmvAmthP7L7xwsg0}#))) + (let ((#{w* -ANAU$bmvAmthP7L7xwskt}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{rest -ANAU$bmvAmthP7L7xwsgw}#) + #{l -ANAU$bmvAmthP7L7xwskr}# + #{w* -ANAU$bmvAmthP7L7xwsg1}#))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + #{req -ANAU$bmvAmthP7L7xwsgu}# + (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#) + (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#) #f) - (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMaP}#) - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{body _hoQGWMnyQPAh3k2jhWMaR}# - (cons #{v _hoQGWMnyQPAh3k2jhWMeJ}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}#) - #{r* _hoQGWMnyQPAh3k2jhWMeL}# - #{w* _hoQGWMnyQPAh3k2jhWMeM}# - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsgw}#) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{body -ANAU$bmvAmthP7L7xwsgy}# + (cons #{v -ANAU$bmvAmthP7L7xwskq}# + #{vars -ANAU$bmvAmthP7L7xwsgz}#) + #{r* -ANAU$bmvAmthP7L7xwsks}# + #{w* -ANAU$bmvAmthP7L7xwskt}# + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (car #{kw -ANAU$bmvAmthP7L7xwsgx}#) #f) '() - #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - #{req _hoQGWMnyQPAh3k2jhWMaN}# - (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) - (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) + #{inits -ANAU$bmvAmthP7L7xwsg3}#))))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + #{req -ANAU$bmvAmthP7L7xwsgu}# + (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#) + (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#) #f) #f - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{body _hoQGWMnyQPAh3k2jhWMaR}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}# - #{r* _hoQGWMnyQPAh3k2jhWMaT}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}# - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{body -ANAU$bmvAmthP7L7xwsgy}# + #{vars -ANAU$bmvAmthP7L7xwsgz}# + #{r* -ANAU$bmvAmthP7L7xwsg0}# + #{w* -ANAU$bmvAmthP7L7xwsg1}# + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (car #{kw -ANAU$bmvAmthP7L7xwsgx}#) #f) '() - #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMg1}# - #{opt _hoQGWMnyQPAh3k2jhWMg2}# - #{rest _hoQGWMnyQPAh3k2jhWMg3}# - #{kw _hoQGWMnyQPAh3k2jhWMg4}# - #{body _hoQGWMnyQPAh3k2jhWMg5}# - #{vars _hoQGWMnyQPAh3k2jhWMg6}# - #{r* _hoQGWMnyQPAh3k2jhWMg7}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}# - #{aok _hoQGWMnyQPAh3k2jhWMg9}# - #{out _hoQGWMnyQPAh3k2jhWMg$}# - #{inits _hoQGWMnyQPAh3k2jhWMg@}#) - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMg4}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhA}# - (car #{kw _hoQGWMnyQPAh3k2jhWMg4}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhB}# + #{inits -ANAU$bmvAmthP7L7xwsg3}#))))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsnW}# + #{opt -ANAU$bmvAmthP7L7xwsnX}# + #{rest -ANAU$bmvAmthP7L7xwsnY}# + #{kw -ANAU$bmvAmthP7L7xwsnZ}# + #{body -ANAU$bmvAmthP7L7xwsna}# + #{vars -ANAU$bmvAmthP7L7xwsnb}# + #{r* -ANAU$bmvAmthP7L7xwsnc}# + #{w* -ANAU$bmvAmthP7L7xwsnd}# + #{aok -ANAU$bmvAmthP7L7xwsne}# + #{out -ANAU$bmvAmthP7L7xwsnf}# + #{inits -ANAU$bmvAmthP7L7xwsng}#) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsnZ}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsnh}# + (car #{kw -ANAU$bmvAmthP7L7xwsnZ}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsni}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWMhA}# + #{tmp -ANAU$bmvAmthP7L7xwsnh}# '(any any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMhB}# + (if #{tmp -ANAU$bmvAmthP7L7xwsni}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMhD}# - #{id _hoQGWMnyQPAh3k2jhWMhE}# - #{i _hoQGWMnyQPAh3k2jhWMhF}#) - (let ((#{v _hoQGWMnyQPAh3k2jhWMhG}# - (let ((#{id _hoQGWMnyQPAh3k2jhWMhO}# + (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}# + #{id -ANAU$bmvAmthP7L7xwsnl}# + #{i -ANAU$bmvAmthP7L7xwsnm}#) + (let ((#{v -ANAU$bmvAmthP7L7xwsnn}# + (let ((#{id -ANAU$bmvAmthP7L7xwsnv}# (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{id -ANAU$bmvAmthP7L7xwsnl}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{id -ANAU$bmvAmthP7L7xwsnl}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMhE}# + #{id -ANAU$bmvAmthP7L7xwsnl}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMhE}# + #{id -ANAU$bmvAmthP7L7xwsnl}# 1) - #{id _hoQGWMnyQPAh3k2jhWMhE}#))) + #{id -ANAU$bmvAmthP7L7xwsnl}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWMhO}#) + #{id -ANAU$bmvAmthP7L7xwsnv}#) " "))))) - (let ((#{l _hoQGWMnyQPAh3k2jhWMhH}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (list #{v _hoQGWMnyQPAh3k2jhWMhG}#)))) - (let ((#{r** _hoQGWMnyQPAh3k2jhWMhI}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{l _hoQGWMnyQPAh3k2jhWMhH}# - (list #{v _hoQGWMnyQPAh3k2jhWMhG}#) - #{r* _hoQGWMnyQPAh3k2jhWMg7}#))) - (let ((#{w** _hoQGWMnyQPAh3k2jhWMhJ}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{id _hoQGWMnyQPAh3k2jhWMhE}#) - #{l _hoQGWMnyQPAh3k2jhWMhH}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}#))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - #{req _hoQGWMnyQPAh3k2jhWMg1}# - #{opt _hoQGWMnyQPAh3k2jhWMg2}# - #{rest _hoQGWMnyQPAh3k2jhWMg3}# - (cdr #{kw _hoQGWMnyQPAh3k2jhWMg4}#) - #{body _hoQGWMnyQPAh3k2jhWMg5}# - (cons #{v _hoQGWMnyQPAh3k2jhWMhG}# - #{vars _hoQGWMnyQPAh3k2jhWMg6}#) - #{r** _hoQGWMnyQPAh3k2jhWMhI}# - #{w** _hoQGWMnyQPAh3k2jhWMhJ}# - #{aok _hoQGWMnyQPAh3k2jhWMg9}# + (let ((#{l -ANAU$bmvAmthP7L7xwsno}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (list #{v -ANAU$bmvAmthP7L7xwsnn}#)))) + (let ((#{r** -ANAU$bmvAmthP7L7xwsnp}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{l -ANAU$bmvAmthP7L7xwsno}# + (list #{v -ANAU$bmvAmthP7L7xwsnn}#) + #{r* -ANAU$bmvAmthP7L7xwsnc}#))) + (let ((#{w** -ANAU$bmvAmthP7L7xwsnq}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{id -ANAU$bmvAmthP7L7xwsnl}#) + #{l -ANAU$bmvAmthP7L7xwsno}# + #{w* -ANAU$bmvAmthP7L7xwsnd}#))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + #{req -ANAU$bmvAmthP7L7xwsnW}# + #{opt -ANAU$bmvAmthP7L7xwsnX}# + #{rest -ANAU$bmvAmthP7L7xwsnY}# + (cdr #{kw -ANAU$bmvAmthP7L7xwsnZ}#) + #{body -ANAU$bmvAmthP7L7xwsna}# + (cons #{v -ANAU$bmvAmthP7L7xwsnn}# + #{vars -ANAU$bmvAmthP7L7xwsnb}#) + #{r** -ANAU$bmvAmthP7L7xwsnp}# + #{w** -ANAU$bmvAmthP7L7xwsnq}# + #{aok -ANAU$bmvAmthP7L7xwsne}# (cons (list (syntax->datum - #{k _hoQGWMnyQPAh3k2jhWMhD}#) + #{k -ANAU$bmvAmthP7L7xwsnk}#) (syntax->datum - #{id _hoQGWMnyQPAh3k2jhWMhE}#) - #{v _hoQGWMnyQPAh3k2jhWMhG}#) - #{out _hoQGWMnyQPAh3k2jhWMg$}#) - (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{i _hoQGWMnyQPAh3k2jhWMhF}# - #{r* _hoQGWMnyQPAh3k2jhWMg7}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#) - #{inits _hoQGWMnyQPAh3k2jhWMg@}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWMhB}#) + #{id -ANAU$bmvAmthP7L7xwsnl}#) + #{v -ANAU$bmvAmthP7L7xwsnn}#) + #{out -ANAU$bmvAmthP7L7xwsnf}#) + (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{i -ANAU$bmvAmthP7L7xwsnm}# + #{r* -ANAU$bmvAmthP7L7xwsnc}# + #{w* -ANAU$bmvAmthP7L7xwsnd}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#) + #{inits -ANAU$bmvAmthP7L7xwsng}#))))))) + #{tmp -ANAU$bmvAmthP7L7xwsni}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWMhA}#)))) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - #{req _hoQGWMnyQPAh3k2jhWMg1}# - #{opt _hoQGWMnyQPAh3k2jhWMg2}# - #{rest _hoQGWMnyQPAh3k2jhWMg3}# - (if (if #{aok _hoQGWMnyQPAh3k2jhWMg9}# - #{aok _hoQGWMnyQPAh3k2jhWMg9}# - (pair? #{out _hoQGWMnyQPAh3k2jhWMg$}#)) - (cons #{aok _hoQGWMnyQPAh3k2jhWMg9}# - (reverse #{out _hoQGWMnyQPAh3k2jhWMg$}#)) + #{tmp -ANAU$bmvAmthP7L7xwsnh}#)))) + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + #{req -ANAU$bmvAmthP7L7xwsnW}# + #{opt -ANAU$bmvAmthP7L7xwsnX}# + #{rest -ANAU$bmvAmthP7L7xwsnY}# + (if (if #{aok -ANAU$bmvAmthP7L7xwsne}# + #{aok -ANAU$bmvAmthP7L7xwsne}# + (pair? #{out -ANAU$bmvAmthP7L7xwsnf}#)) + (cons #{aok -ANAU$bmvAmthP7L7xwsne}# + (reverse #{out -ANAU$bmvAmthP7L7xwsnf}#)) #f) - #{body _hoQGWMnyQPAh3k2jhWMg5}# - (reverse #{vars _hoQGWMnyQPAh3k2jhWMg6}#) - #{r* _hoQGWMnyQPAh3k2jhWMg7}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}# - (reverse #{inits _hoQGWMnyQPAh3k2jhWMg@}#) + #{body -ANAU$bmvAmthP7L7xwsna}# + (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#) + #{r* -ANAU$bmvAmthP7L7xwsnc}# + #{w* -ANAU$bmvAmthP7L7xwsnd}# + (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#) '())))) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - #{body _hoQGWMnyQPAh3k2jhWMlA}# - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# - #{meta _hoQGWMnyQPAh3k2jhWMlF}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlH}# + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + #{body -ANAU$bmvAmthP7L7xwsrh}# + #{vars -ANAU$bmvAmthP7L7xwsri}# + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# + #{meta -ANAU$bmvAmthP7L7xwsrm}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsro}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{body -ANAU$bmvAmthP7L7xwsrh}# '(any any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMlH}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}# (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlL}# - #{e1 _hoQGWMnyQPAh3k2jhWMlM}# - #{e2 _hoQGWMnyQPAh3k2jhWMlN}#) + (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}# + #{e1 -ANAU$bmvAmthP7L7xwsrt}# + #{e2 -ANAU$bmvAmthP7L7xwsru}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMlL}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) + #{docstring -ANAU$bmvAmthP7L7xwsrs}#))) + #{tmp -ANAU$bmvAmthP7L7xwsro}#) #f) (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlO}# - #{e1 _hoQGWMnyQPAh3k2jhWMlP}# - #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - #{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMlP}# - #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# + (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrv}# + #{e1 -ANAU$bmvAmthP7L7xwsrw}# + #{e2 -ANAU$bmvAmthP7L7xwsrx}#) + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + #{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + (cons #{e1 -ANAU$bmvAmthP7L7xwsrw}# + #{e2 -ANAU$bmvAmthP7L7xwsrx}#) + #{vars -ANAU$bmvAmthP7L7xwsri}# + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# (append - #{meta _hoQGWMnyQPAh3k2jhWMlF}# + #{meta -ANAU$bmvAmthP7L7xwsrm}# (list (cons 'documentation (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMlO}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlR}# + #{docstring -ANAU$bmvAmthP7L7xwsrv}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwsro}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{body -ANAU$bmvAmthP7L7xwsrh}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMlR}# + (if #{tmp -ANAU$bmvAmthP7L7xwsry}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMlV}# - #{v _hoQGWMnyQPAh3k2jhWMlW}# - #{e1 _hoQGWMnyQPAh3k2jhWMlX}# - #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - #{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMlX}# - #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# + (lambda (#{k -ANAU$bmvAmthP7L7xwsr2}# + #{v -ANAU$bmvAmthP7L7xwsr3}# + #{e1 -ANAU$bmvAmthP7L7xwsr4}# + #{e2 -ANAU$bmvAmthP7L7xwsr5}#) + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + #{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + (cons #{e1 -ANAU$bmvAmthP7L7xwsr4}# + #{e2 -ANAU$bmvAmthP7L7xwsr5}#) + #{vars -ANAU$bmvAmthP7L7xwsri}# + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# (append - #{meta _hoQGWMnyQPAh3k2jhWMlF}# + #{meta -ANAU$bmvAmthP7L7xwsrm}# (syntax->datum (map cons - #{k _hoQGWMnyQPAh3k2jhWMlV}# - #{v _hoQGWMnyQPAh3k2jhWMlW}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWMlR}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlZ}# + #{k -ANAU$bmvAmthP7L7xwsr2}# + #{v -ANAU$bmvAmthP7L7xwsr3}#))))) + #{tmp -ANAU$bmvAmthP7L7xwsry}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{body -ANAU$bmvAmthP7L7xwsrh}# '(any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMlZ}# + (if #{tmp -ANAU$bmvAmthP7L7xwsr6}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMld}# - #{e2 _hoQGWMnyQPAh3k2jhWMle}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}# + #{e2 -ANAU$bmvAmthP7L7xwsr@}#) (values - #{meta _hoQGWMnyQPAh3k2jhWMlF}# - #{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMld}# - #{e2 _hoQGWMnyQPAh3k2jhWMle}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{meta -ANAU$bmvAmthP7L7xwsrm}# + #{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# + #{vars -ANAU$bmvAmthP7L7xwsri}# + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwsr$}# + #{e2 -ANAU$bmvAmthP7L7xwsr@}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMVP}#) - #{s _hoQGWMnyQPAh3k2jhWMVS}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsbw}#) + #{s -ANAU$bmvAmthP7L7xwsbz}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWMVP}# - #{s _hoQGWMnyQPAh3k2jhWMVS}#)) - #{e _hoQGWMnyQPAh3k2jhWMVP}#) - #{w _hoQGWMnyQPAh3k2jhWMVR}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#) - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#) + #{e -ANAU$bmvAmthP7L7xwsbw}# + #{s -ANAU$bmvAmthP7L7xwsbz}#)) + #{e -ANAU$bmvAmthP7L7xwsbw}#) + #{w -ANAU$bmvAmthP7L7xwsby}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#) + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#))) + #{tmp -ANAU$bmvAmthP7L7xwsr6}#) (syntax-violation #f "source expression failed to match any pattern" - #{body _hoQGWMnyQPAh3k2jhWMlA}#)))))))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVb}# + #{body -ANAU$bmvAmthP7L7xwsrh}#)))))))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}# ($sc-dispatch - #{clauses _hoQGWMnyQPAh3k2jhWMVV}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMVb}# + (if #{tmp -ANAU$bmvAmthP7L7xwsb8}# (@apply (lambda () (values '() #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMVb}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVf}# + #{tmp -ANAU$bmvAmthP7L7xwsb8}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}# ($sc-dispatch - #{clauses _hoQGWMnyQPAh3k2jhWMVV}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMVf}# + (if #{tmp -ANAU$bmvAmthP7L7xwscA}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWMVj}# - #{e1 _hoQGWMnyQPAh3k2jhWMVk}# - #{e2 _hoQGWMnyQPAh3k2jhWMVl}# - #{args* _hoQGWMnyQPAh3k2jhWMVm}# - #{e1* _hoQGWMnyQPAh3k2jhWMVn}# - #{e2* _hoQGWMnyQPAh3k2jhWMVo}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwscE}# + #{e1 -ANAU$bmvAmthP7L7xwscF}# + #{e2 -ANAU$bmvAmthP7L7xwscG}# + #{args* -ANAU$bmvAmthP7L7xwscH}# + #{e1* -ANAU$bmvAmthP7L7xwscI}# + #{e2* -ANAU$bmvAmthP7L7xwscJ}#) (call-with-values (lambda () - (#{get-formals _hoQGWMnyQPAh3k2jhWMVU}# - #{args _hoQGWMnyQPAh3k2jhWMVj}#)) - (lambda (#{req _hoQGWMnyQPAh3k2jhWMVp}# - #{opt _hoQGWMnyQPAh3k2jhWMVq}# - #{rest _hoQGWMnyQPAh3k2jhWMVr}# - #{kw _hoQGWMnyQPAh3k2jhWMVs}#) + (#{get-formals -ANAU$bmvAmthP7L7xwsb1}# + #{args -ANAU$bmvAmthP7L7xwscE}#)) + (lambda (#{req -ANAU$bmvAmthP7L7xwscK}# + #{opt -ANAU$bmvAmthP7L7xwscL}# + #{rest -ANAU$bmvAmthP7L7xwscM}# + #{kw -ANAU$bmvAmthP7L7xwscN}#) (call-with-values (lambda () - (#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# - #{req _hoQGWMnyQPAh3k2jhWMVp}# - #{opt _hoQGWMnyQPAh3k2jhWMVq}# - #{rest _hoQGWMnyQPAh3k2jhWMVr}# - #{kw _hoQGWMnyQPAh3k2jhWMVs}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMVk}# - #{e2 _hoQGWMnyQPAh3k2jhWMVl}#))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWMWp}# - #{req _hoQGWMnyQPAh3k2jhWMWq}# - #{opt _hoQGWMnyQPAh3k2jhWMWr}# - #{rest _hoQGWMnyQPAh3k2jhWMWs}# - #{kw _hoQGWMnyQPAh3k2jhWMWt}# - #{inits _hoQGWMnyQPAh3k2jhWMWu}# - #{vars _hoQGWMnyQPAh3k2jhWMWv}# - #{body _hoQGWMnyQPAh3k2jhWMWw}#) + (#{parse-req -ANAU$bmvAmthP7L7xwsb3}# + #{req -ANAU$bmvAmthP7L7xwscK}# + #{opt -ANAU$bmvAmthP7L7xwscL}# + #{rest -ANAU$bmvAmthP7L7xwscM}# + #{kw -ANAU$bmvAmthP7L7xwscN}# + (cons #{e1 -ANAU$bmvAmthP7L7xwscF}# + #{e2 -ANAU$bmvAmthP7L7xwscG}#))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwsdK}# + #{req -ANAU$bmvAmthP7L7xwsdL}# + #{opt -ANAU$bmvAmthP7L7xwsdM}# + #{rest -ANAU$bmvAmthP7L7xwsdN}# + #{kw -ANAU$bmvAmthP7L7xwsdO}# + #{inits -ANAU$bmvAmthP7L7xwsdP}# + #{vars -ANAU$bmvAmthP7L7xwsdQ}# + #{body -ANAU$bmvAmthP7L7xwsdR}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWMVP}# - #{r _hoQGWMnyQPAh3k2jhWMVQ}# - #{w _hoQGWMnyQPAh3k2jhWMVR}# - #{s _hoQGWMnyQPAh3k2jhWMVS}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}# - #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}# - #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# - #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#) - (cons #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}# - (cons #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# - #{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#))) - #{e2* _hoQGWMnyQPAh3k2jhWMVo}# - #{e1* _hoQGWMnyQPAh3k2jhWMVn}# - #{args* _hoQGWMnyQPAh3k2jhWMVm}#))) - (lambda (#{meta* _hoQGWMnyQPAh3k2jhWMW0}# - #{else* _hoQGWMnyQPAh3k2jhWMW1}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwsbw}# + #{r -ANAU$bmvAmthP7L7xwsbx}# + #{w -ANAU$bmvAmthP7L7xwsby}# + #{s -ANAU$bmvAmthP7L7xwsbz}# + #{mod -ANAU$bmvAmthP7L7xwsb0}# + #{get-formals -ANAU$bmvAmthP7L7xwsb1}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}# + #{tmp -ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}# + #{tmp -ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}#) + (cons #{tmp -ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}# + (cons #{tmp -ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}# + #{tmp -ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#))) + #{e2* -ANAU$bmvAmthP7L7xwscJ}# + #{e1* -ANAU$bmvAmthP7L7xwscI}# + #{args* -ANAU$bmvAmthP7L7xwscH}#))) + (lambda (#{meta* -ANAU$bmvAmthP7L7xwsdV}# + #{else* -ANAU$bmvAmthP7L7xwsdW}#) (values (append - #{meta _hoQGWMnyQPAh3k2jhWMWp}# - #{meta* _hoQGWMnyQPAh3k2jhWMW0}#) + #{meta -ANAU$bmvAmthP7L7xwsdK}# + #{meta* -ANAU$bmvAmthP7L7xwsdV}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s _hoQGWMnyQPAh3k2jhWMVS}# - #{req _hoQGWMnyQPAh3k2jhWMWq}# - #{opt _hoQGWMnyQPAh3k2jhWMWr}# - #{rest _hoQGWMnyQPAh3k2jhWMWs}# - #{kw _hoQGWMnyQPAh3k2jhWMWt}# - #{inits _hoQGWMnyQPAh3k2jhWMWu}# - #{vars _hoQGWMnyQPAh3k2jhWMWv}# - #{body _hoQGWMnyQPAh3k2jhWMWw}# - #{else* _hoQGWMnyQPAh3k2jhWMW1}#))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWMVf}#) + #{s -ANAU$bmvAmthP7L7xwsbz}# + #{req -ANAU$bmvAmthP7L7xwsdL}# + #{opt -ANAU$bmvAmthP7L7xwsdM}# + #{rest -ANAU$bmvAmthP7L7xwsdN}# + #{kw -ANAU$bmvAmthP7L7xwsdO}# + #{inits -ANAU$bmvAmthP7L7xwsdP}# + #{vars -ANAU$bmvAmthP7L7xwsdQ}# + #{body -ANAU$bmvAmthP7L7xwsdR}# + #{else* -ANAU$bmvAmthP7L7xwsdW}#))))))))) + #{tmp -ANAU$bmvAmthP7L7xwscA}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses _hoQGWMnyQPAh3k2jhWMVV}#)))))))) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWMmD}# - #{w _hoQGWMnyQPAh3k2jhWMmE}#) - (if (memq 'top (car #{w _hoQGWMnyQPAh3k2jhWMmE}#)) - #{x _hoQGWMnyQPAh3k2jhWMmD}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}#)))))))) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + (lambda (#{x -ANAU$bmvAmthP7L7xwssk}# + #{w -ANAU$bmvAmthP7L7xwssl}#) + (if (memq 'top (car #{w -ANAU$bmvAmthP7L7xwssl}#)) + #{x -ANAU$bmvAmthP7L7xwssk}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWMmF}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWMmI}#) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWMmI}#) + ((#{f -ANAU$bmvAmthP7L7xwssm}# + (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0) 'syntax-object) #f) #f) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 1) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 2)) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWMmI}#) - (let ((#{a _hoQGWMnyQPAh3k2jhWMmb}# - (#{f _hoQGWMnyQPAh3k2jhWMmF}# - (car #{x _hoQGWMnyQPAh3k2jhWMmI}#))) - (#{d _hoQGWMnyQPAh3k2jhWMmc}# - (#{f _hoQGWMnyQPAh3k2jhWMmF}# - (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)))) - (if (if (eq? #{a _hoQGWMnyQPAh3k2jhWMmb}# - (car #{x _hoQGWMnyQPAh3k2jhWMmI}#)) - (eq? #{d _hoQGWMnyQPAh3k2jhWMmc}# - (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 1) + (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 2)) + (if (pair? #{x -ANAU$bmvAmthP7L7xwssp}#) + (let ((#{a -ANAU$bmvAmthP7L7xwss8}# + (#{f -ANAU$bmvAmthP7L7xwssm}# + (car #{x -ANAU$bmvAmthP7L7xwssp}#))) + (#{d -ANAU$bmvAmthP7L7xwss9}# + (#{f -ANAU$bmvAmthP7L7xwssm}# + (cdr #{x -ANAU$bmvAmthP7L7xwssp}#)))) + (if (if (eq? #{a -ANAU$bmvAmthP7L7xwss8}# + (car #{x -ANAU$bmvAmthP7L7xwssp}#)) + (eq? #{d -ANAU$bmvAmthP7L7xwss9}# + (cdr #{x -ANAU$bmvAmthP7L7xwssp}#)) #f) - #{x _hoQGWMnyQPAh3k2jhWMmI}# - (cons #{a _hoQGWMnyQPAh3k2jhWMmb}# - #{d _hoQGWMnyQPAh3k2jhWMmc}#))) - (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) - (let ((#{old _hoQGWMnyQPAh3k2jhWMmf}# - (vector->list #{x _hoQGWMnyQPAh3k2jhWMmI}#))) - (let ((#{new _hoQGWMnyQPAh3k2jhWMmg}# - (map #{f _hoQGWMnyQPAh3k2jhWMmF}# - #{old _hoQGWMnyQPAh3k2jhWMmf}#))) + #{x -ANAU$bmvAmthP7L7xwssp}# + (cons #{a -ANAU$bmvAmthP7L7xwss8}# + #{d -ANAU$bmvAmthP7L7xwss9}#))) + (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#) + (let ((#{old -ANAU$bmvAmthP7L7xwstA}# + (vector->list #{x -ANAU$bmvAmthP7L7xwssp}#))) + (let ((#{new -ANAU$bmvAmthP7L7xwstB}# + (map #{f -ANAU$bmvAmthP7L7xwssm}# + #{old -ANAU$bmvAmthP7L7xwstA}#))) (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWMmh}# - (lambda (#{l1 _hoQGWMnyQPAh3k2jhWMnt}# - #{l2 _hoQGWMnyQPAh3k2jhWMnu}#) - (if (null? #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) - #{x _hoQGWMnyQPAh3k2jhWMmI}# - (if (eq? (car #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) - (car #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) - (#{lp _hoQGWMnyQPAh3k2jhWMmh}# - (cdr #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) - (cdr #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) + ((#{lp -ANAU$bmvAmthP7L7xwstC}# + (lambda (#{l1 -ANAU$bmvAmthP7L7xwsuO}# + #{l2 -ANAU$bmvAmthP7L7xwsuP}#) + (if (null? #{l1 -ANAU$bmvAmthP7L7xwsuO}#) + #{x -ANAU$bmvAmthP7L7xwssp}# + (if (eq? (car #{l1 -ANAU$bmvAmthP7L7xwsuO}#) + (car #{l2 -ANAU$bmvAmthP7L7xwsuP}#)) + (#{lp -ANAU$bmvAmthP7L7xwstC}# + (cdr #{l1 -ANAU$bmvAmthP7L7xwsuO}#) + (cdr #{l2 -ANAU$bmvAmthP7L7xwsuP}#)) (list->vector - #{new _hoQGWMnyQPAh3k2jhWMmg}#)))))) - (#{lp _hoQGWMnyQPAh3k2jhWMmh}# - #{old _hoQGWMnyQPAh3k2jhWMmf}# - #{new _hoQGWMnyQPAh3k2jhWMmg}#)))) - #{x _hoQGWMnyQPAh3k2jhWMmI}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWMmF}# - #{x _hoQGWMnyQPAh3k2jhWMmD}#))))) - (#{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - (lambda (#{id _hoQGWMnyQPAh3k2jhWMXh}#) - (let ((#{id _hoQGWMnyQPAh3k2jhWMXi}# - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWMXh}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWMXh}#) + #{new -ANAU$bmvAmthP7L7xwstB}#)))))) + (#{lp -ANAU$bmvAmthP7L7xwstC}# + #{old -ANAU$bmvAmthP7L7xwstA}# + #{new -ANAU$bmvAmthP7L7xwstB}#)))) + #{x -ANAU$bmvAmthP7L7xwssp}#)))))) + (#{f -ANAU$bmvAmthP7L7xwssm}# + #{x -ANAU$bmvAmthP7L7xwssk}#))))) + (#{gen-var -ANAU$bmvAmthP7L7xwnOS}# + (lambda (#{id -ANAU$bmvAmthP7L7xwseC}#) + (let ((#{id -ANAU$bmvAmthP7L7xwseD}# + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwseC}#) + (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwseC}#) 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 0) + (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 1) - #{id _hoQGWMnyQPAh3k2jhWMXh}#))) + (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1) + #{id -ANAU$bmvAmthP7L7xwseC}#))) (gensym (string-append - (symbol->string #{id _hoQGWMnyQPAh3k2jhWMXi}#) + (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#) " ")))))) (begin - (set! #{gen-label _hoQGWMnyQPAh3k2jhWHTD}# - (let ((#{i _hoQGWMnyQPAh3k2jhWKEc}# 0)) + (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}# + (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0)) (lambda () - (let ((#{n _hoQGWMnyQPAh3k2jhWKEd}# - #{i _hoQGWMnyQPAh3k2jhWKEc}#)) + (let ((#{n -ANAU$bmvAmthP7L7xwqAY}# + #{i -ANAU$bmvAmthP7L7xwqAX}#)) (begin - (set! #{i _hoQGWMnyQPAh3k2jhWKEc}# - (#{1+}# #{n _hoQGWMnyQPAh3k2jhWKEd}#)) - (number->string #{n _hoQGWMnyQPAh3k2jhWKEd}# 36)))))) - (set! #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# + (set! #{i -ANAU$bmvAmthP7L7xwqAX}# + (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#)) + (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36)))))) + (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# (make-fluid - (lambda (#{k _hoQGWMnyQPAh3k2jhWJpb}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8998,1500 +8976,1500 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'syntax-parameterize - (lambda (#{e _hoQGWMnyQPAh3k2jhWHVs}# - #{r _hoQGWMnyQPAh3k2jhWHVt}# - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{s _hoQGWMnyQPAh3k2jhWHVv}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHVy}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}# + #{r -ANAU$bmvAmthP7L7xwnQM}# + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{s -ANAU$bmvAmthP7L7xwnQO}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHVs}# + #{e -ANAU$bmvAmthP7L7xwnQL}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHVy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}# (@apply - (lambda (#{var _hoQGWMnyQPAh3k2jhWHV2}# - #{val _hoQGWMnyQPAh3k2jhWHV3}# - #{e1 _hoQGWMnyQPAh3k2jhWHV4}# - #{e2 _hoQGWMnyQPAh3k2jhWHV5}#) - (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{var _hoQGWMnyQPAh3k2jhWHV2}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) + (lambda (#{var -ANAU$bmvAmthP7L7xwnQV}# + #{val -ANAU$bmvAmthP7L7xwnQW}# + #{e1 -ANAU$bmvAmthP7L7xwnQX}# + #{e2 -ANAU$bmvAmthP7L7xwnQY}#) + (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{var -ANAU$bmvAmthP7L7xwnQV}#)) + #{tmp -ANAU$bmvAmthP7L7xwnQR}#) #f) (@apply - (lambda (#{var _hoQGWMnyQPAh3k2jhWHXH}# - #{val _hoQGWMnyQPAh3k2jhWHXI}# - #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# - #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) - (let ((#{names _hoQGWMnyQPAh3k2jhWHXL}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHX9}#) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWHX9}# - #{w _hoQGWMnyQPAh3k2jhWHVu}#)) - #{var _hoQGWMnyQPAh3k2jhWHXH}#))) + (lambda (#{var -ANAU$bmvAmthP7L7xwnRm}# + #{val -ANAU$bmvAmthP7L7xwnRn}# + #{e1 -ANAU$bmvAmthP7L7xwnRo}# + #{e2 -ANAU$bmvAmthP7L7xwnRp}#) + (let ((#{names -ANAU$bmvAmthP7L7xwnRq}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwnSc}#) + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwnSc}# + #{w -ANAU$bmvAmthP7L7xwnQN}#)) + #{var -ANAU$bmvAmthP7L7xwnRm}#))) (begin (for-each - (lambda (#{id _hoQGWMnyQPAh3k2jhWHXM}# - #{n _hoQGWMnyQPAh3k2jhWHXN}#) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHXO}# - (car (let ((#{t _hoQGWMnyQPAh3k2jhWHXV}# - (assq #{n _hoQGWMnyQPAh3k2jhWHXN}# - #{r _hoQGWMnyQPAh3k2jhWHVt}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHXV}# - (cdr #{t _hoQGWMnyQPAh3k2jhWHXV}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwnRr}# + #{n -ANAU$bmvAmthP7L7xwnRs}#) + (let ((#{atom-key -ANAU$bmvAmthP7L7xwnRt}# + (car (let ((#{t -ANAU$bmvAmthP7L7xwnR0}# + (assq #{n -ANAU$bmvAmthP7L7xwnRs}# + #{r -ANAU$bmvAmthP7L7xwnQM}#))) + (if #{t -ANAU$bmvAmthP7L7xwnR0}# + (cdr #{t -ANAU$bmvAmthP7L7xwnR0}#) (if (symbol? - #{n _hoQGWMnyQPAh3k2jhWHXN}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWHXa}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWHXN}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHXa}# - #{t _hoQGWMnyQPAh3k2jhWHXa}# + #{n -ANAU$bmvAmthP7L7xwnRs}#) + (let ((#{t -ANAU$bmvAmthP7L7xwnR5}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwnRs}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#))) + (if #{t -ANAU$bmvAmthP7L7xwnR5}# + #{t -ANAU$bmvAmthP7L7xwnR5}# '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHXO}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e _hoQGWMnyQPAh3k2jhWHVs}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e -ANAU$bmvAmthP7L7xwnQL}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{id _hoQGWMnyQPAh3k2jhWHXM}#) - #{s _hoQGWMnyQPAh3k2jhWHVv}# + (if (if (pair? #{id -ANAU$bmvAmthP7L7xwnRr}#) + #{s -ANAU$bmvAmthP7L7xwnQO}# #f) (set-source-properties! - #{id _hoQGWMnyQPAh3k2jhWHXM}# - #{s _hoQGWMnyQPAh3k2jhWHVv}#)) - #{id _hoQGWMnyQPAh3k2jhWHXM}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))) - #{var _hoQGWMnyQPAh3k2jhWHXH}# - #{names _hoQGWMnyQPAh3k2jhWHXL}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# - #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{id -ANAU$bmvAmthP7L7xwnRr}# + #{s -ANAU$bmvAmthP7L7xwnQO}#)) + #{id -ANAU$bmvAmthP7L7xwnRr}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#))))) + #{var -ANAU$bmvAmthP7L7xwnRm}# + #{names -ANAU$bmvAmthP7L7xwnRq}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnRo}# + #{e2 -ANAU$bmvAmthP7L7xwnRp}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{s _hoQGWMnyQPAh3k2jhWHVv}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{s -ANAU$bmvAmthP7L7xwnQO}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHVs}# - #{s _hoQGWMnyQPAh3k2jhWHVv}#)) - #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#) - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{names _hoQGWMnyQPAh3k2jhWHXL}# - (let ((#{trans-r _hoQGWMnyQPAh3k2jhWHZT}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{r _hoQGWMnyQPAh3k2jhWHVt}#))) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHZU}#) + #{e -ANAU$bmvAmthP7L7xwnQL}# + #{s -ANAU$bmvAmthP7L7xwnQO}#)) + #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#) + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{names -ANAU$bmvAmthP7L7xwnRq}# + (let ((#{trans-r -ANAU$bmvAmthP7L7xwnTy}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{r -ANAU$bmvAmthP7L7xwnQM}#))) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwnTz}#) (cons 'macro - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWHZU}# - #{trans-r _hoQGWMnyQPAh3k2jhWHZT}# - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#) - #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) - #{val _hoQGWMnyQPAh3k2jhWHXI}#)) - #{r _hoQGWMnyQPAh3k2jhWHVt}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwnTz}# + #{trans-r -ANAU$bmvAmthP7L7xwnTy}# + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#) + #{mod -ANAU$bmvAmthP7L7xwnQP}#))) + #{val -ANAU$bmvAmthP7L7xwnRn}#)) + #{r -ANAU$bmvAmthP7L7xwnQM}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnQR}#) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{s _hoQGWMnyQPAh3k2jhWHVv}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{s -ANAU$bmvAmthP7L7xwnQO}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHVs}# - #{s _hoQGWMnyQPAh3k2jhWHVv}#)) - #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))))) + #{e -ANAU$bmvAmthP7L7xwnQL}# + #{s -ANAU$bmvAmthP7L7xwnQO}#)) + #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e _hoQGWMnyQPAh3k2jhWHcl}# - #{r _hoQGWMnyQPAh3k2jhWHcm}# - #{w _hoQGWMnyQPAh3k2jhWHcn}# - #{s _hoQGWMnyQPAh3k2jhWHco}# - #{mod _hoQGWMnyQPAh3k2jhWHcp}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHcr}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}# + #{r -ANAU$bmvAmthP7L7xwnXF}# + #{w -ANAU$bmvAmthP7L7xwnXG}# + #{s -ANAU$bmvAmthP7L7xwnXH}# + #{mod -ANAU$bmvAmthP7L7xwnXI}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHcl}# + #{e -ANAU$bmvAmthP7L7xwnXE}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHcr}# + (if #{tmp -ANAU$bmvAmthP7L7xwnXK}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWHcu}#) - (let ((#{exp _hoQGWMnyQPAh3k2jhWHcy}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{e _hoQGWMnyQPAh3k2jhWHcu}# - #{w _hoQGWMnyQPAh3k2jhWHcn}#))) + (lambda (#{e -ANAU$bmvAmthP7L7xwnXN}#) + (let ((#{exp -ANAU$bmvAmthP7L7xwnXR}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{e -ANAU$bmvAmthP7L7xwnXN}# + #{w -ANAU$bmvAmthP7L7xwnXG}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _hoQGWMnyQPAh3k2jhWHco}# - #{exp _hoQGWMnyQPAh3k2jhWHcy}#))) - #{tmp _hoQGWMnyQPAh3k2jhWHcr}#) + #{s -ANAU$bmvAmthP7L7xwnXH}# + #{exp -ANAU$bmvAmthP7L7xwnXR}#))) + #{tmp -ANAU$bmvAmthP7L7xwnXK}#) (syntax-violation 'quote "bad syntax" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHcl}#) - #{s _hoQGWMnyQPAh3k2jhWHco}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#) + #{s -ANAU$bmvAmthP7L7xwnXH}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHcl}# - #{s _hoQGWMnyQPAh3k2jhWHco}#)) - #{e _hoQGWMnyQPAh3k2jhWHcl}#) - #{w _hoQGWMnyQPAh3k2jhWHcn}# - #{mod _hoQGWMnyQPAh3k2jhWHcp}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnXE}# + #{s -ANAU$bmvAmthP7L7xwnXH}#)) + #{e -ANAU$bmvAmthP7L7xwnXE}#) + #{w -ANAU$bmvAmthP7L7xwnXG}# + #{mod -ANAU$bmvAmthP7L7xwnXI}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'syntax (letrec* - ((#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWHh0}# - #{e _hoQGWMnyQPAh3k2jhWHh1}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#) - (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWHh1}#) + ((#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + (lambda (#{src -ANAU$bmvAmthP7L7xwncT}# + #{e -ANAU$bmvAmthP7L7xwncU}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#) + (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwncU}#) #t - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWHh1}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWHh1}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 1)) + (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1)) #f)) - (let ((#{label _hoQGWMnyQPAh3k2jhWHiU}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{e _hoQGWMnyQPAh3k2jhWHh1}# + (let ((#{label -ANAU$bmvAmthP7L7xwncz}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(())))) - (let ((#{b _hoQGWMnyQPAh3k2jhWHiV}# - (let ((#{t _hoQGWMnyQPAh3k2jhWHic}# - (assq #{label _hoQGWMnyQPAh3k2jhWHiU}# - #{r _hoQGWMnyQPAh3k2jhWHh2}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHic}# - (cdr #{t _hoQGWMnyQPAh3k2jhWHic}#) - (if (symbol? #{label _hoQGWMnyQPAh3k2jhWHiU}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWHii}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{label _hoQGWMnyQPAh3k2jhWHiU}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHii}# - #{t _hoQGWMnyQPAh3k2jhWHii}# + (let ((#{b -ANAU$bmvAmthP7L7xwnc0}# + (let ((#{t -ANAU$bmvAmthP7L7xwnc7}# + (assq #{label -ANAU$bmvAmthP7L7xwncz}# + #{r -ANAU$bmvAmthP7L7xwncV}#))) + (if #{t -ANAU$bmvAmthP7L7xwnc7}# + (cdr #{t -ANAU$bmvAmthP7L7xwnc7}#) + (if (symbol? #{label -ANAU$bmvAmthP7L7xwncz}#) + (let ((#{t -ANAU$bmvAmthP7L7xwndB}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{label -ANAU$bmvAmthP7L7xwncz}# + #{mod -ANAU$bmvAmthP7L7xwncY}#))) + (if #{t -ANAU$bmvAmthP7L7xwndB}# + #{t -ANAU$bmvAmthP7L7xwndB}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWHiV}#) 'syntax) + (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev _hoQGWMnyQPAh3k2jhWHir}# - (cdr #{b _hoQGWMnyQPAh3k2jhWHiV}#))) - (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - (car #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) - (cdr #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) - #{maps _hoQGWMnyQPAh3k2jhWHh3}#))) - (lambda (#{var _hoQGWMnyQPAh3k2jhWHiv}# - #{maps _hoQGWMnyQPAh3k2jhWHiw}#) + (let ((#{var.lev -ANAU$bmvAmthP7L7xwndK}# + (cdr #{b -ANAU$bmvAmthP7L7xwnc0}#))) + (#{gen-ref -ANAU$bmvAmthP7L7xwnau}# + #{src -ANAU$bmvAmthP7L7xwncT}# + (car #{var.lev -ANAU$bmvAmthP7L7xwndK}#) + (cdr #{var.lev -ANAU$bmvAmthP7L7xwndK}#) + #{maps -ANAU$bmvAmthP7L7xwncW}#))) + (lambda (#{var -ANAU$bmvAmthP7L7xwndO}# + #{maps -ANAU$bmvAmthP7L7xwndP}#) (values - (list 'ref #{var _hoQGWMnyQPAh3k2jhWHiv}#) - #{maps _hoQGWMnyQPAh3k2jhWHiw}#))) - (if (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{e _hoQGWMnyQPAh3k2jhWHh1}#) + (list 'ref #{var -ANAU$bmvAmthP7L7xwndO}#) + #{maps -ANAU$bmvAmthP7L7xwndP}#))) + (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{e -ANAU$bmvAmthP7L7xwncU}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHh0}#) + #{src -ANAU$bmvAmthP7L7xwncT}#) (values - (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) - #{maps _hoQGWMnyQPAh3k2jhWHh3}#))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHiy}# + (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#) + #{maps -ANAU$bmvAmthP7L7xwncW}#))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHiy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}# (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi2}# - #{e _hoQGWMnyQPAh3k2jhWHi3}#) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{dots _hoQGWMnyQPAh3k2jhWHi2}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) + (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}# + #{e -ANAU$bmvAmthP7L7xwndW}#) + (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{dots -ANAU$bmvAmthP7L7xwndV}#)) + #{tmp -ANAU$bmvAmthP7L7xwndR}#) #f) (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi4}# - #{e _hoQGWMnyQPAh3k2jhWHi5}#) - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{e _hoQGWMnyQPAh3k2jhWHi5}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWHi6}#) #f) - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHi7}# + (lambda (#{dots -ANAU$bmvAmthP7L7xwndX}# + #{e -ANAU$bmvAmthP7L7xwndY}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{e -ANAU$bmvAmthP7L7xwndY}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + (lambda (#{x -ANAU$bmvAmthP7L7xwndZ}#) #f) + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + #{tmp -ANAU$bmvAmthP7L7xwndR}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnda}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(any any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHi7}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHi@}# - #{dots _hoQGWMnyQPAh3k2jhWHjA}# - #{y _hoQGWMnyQPAh3k2jhWHjB}#) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{dots _hoQGWMnyQPAh3k2jhWHjA}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwnde}# + #{dots -ANAU$bmvAmthP7L7xwndf}# + #{y -ANAU$bmvAmthP7L7xwndg}#) + (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{dots -ANAU$bmvAmthP7L7xwndf}#)) + #{tmp -ANAU$bmvAmthP7L7xwnda}#) #f) (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjC}# - #{dots _hoQGWMnyQPAh3k2jhWHjD}# - #{y _hoQGWMnyQPAh3k2jhWHjE}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwndh}# + #{dots -ANAU$bmvAmthP7L7xwndi}# + #{y -ANAU$bmvAmthP7L7xwndj}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWHjF}# - (lambda (#{y _hoQGWMnyQPAh3k2jhWHjN}# - #{k _hoQGWMnyQPAh3k2jhWHjO}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHjQ}# + ((#{f -ANAU$bmvAmthP7L7xwndk}# + (lambda (#{y -ANAU$bmvAmthP7L7xwnds}# + #{k -ANAU$bmvAmthP7L7xwndt}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWHjN}# + #{y -ANAU$bmvAmthP7L7xwnds}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHjQ}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}# (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjU}# - #{y _hoQGWMnyQPAh3k2jhWHjV}#) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{dots _hoQGWMnyQPAh3k2jhWHjU}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) + (lambda (#{dots -ANAU$bmvAmthP7L7xwndz}# + #{y -ANAU$bmvAmthP7L7xwnd0}#) + (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{dots -ANAU$bmvAmthP7L7xwndz}#)) + #{tmp -ANAU$bmvAmthP7L7xwndv}#) #f) (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjW}# - #{y _hoQGWMnyQPAh3k2jhWHjX}#) - (#{f _hoQGWMnyQPAh3k2jhWHjF}# - #{y _hoQGWMnyQPAh3k2jhWHjX}# - (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjY}#) + (lambda (#{dots -ANAU$bmvAmthP7L7xwnd1}# + #{y -ANAU$bmvAmthP7L7xwnd2}#) + (#{f -ANAU$bmvAmthP7L7xwndk}# + #{y -ANAU$bmvAmthP7L7xwnd2}# + (lambda (#{maps -ANAU$bmvAmthP7L7xwnd3}#) (call-with-values (lambda () - (#{k _hoQGWMnyQPAh3k2jhWHjO}# + (#{k -ANAU$bmvAmthP7L7xwndt}# (cons '() - #{maps _hoQGWMnyQPAh3k2jhWHjY}#))) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjZ}# - #{maps _hoQGWMnyQPAh3k2jhWHja}#) - (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHja}#)) + #{maps -ANAU$bmvAmthP7L7xwnd3}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwnd4}# + #{maps -ANAU$bmvAmthP7L7xwnd5}#) + (if (null? (car #{maps -ANAU$bmvAmthP7L7xwnd5}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHh0}#) + #{src -ANAU$bmvAmthP7L7xwncT}#) (values - (let ((#{map-env _hoQGWMnyQPAh3k2jhWHje}# - (car #{maps _hoQGWMnyQPAh3k2jhWHja}#))) + (let ((#{map-env -ANAU$bmvAmthP7L7xwnd9}# + (car #{maps -ANAU$bmvAmthP7L7xwnd5}#))) (list 'apply '(primitive append) - (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# - #{x _hoQGWMnyQPAh3k2jhWHjZ}# - #{map-env _hoQGWMnyQPAh3k2jhWHje}#))) - (cdr #{maps _hoQGWMnyQPAh3k2jhWHja}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) + (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# + #{x -ANAU$bmvAmthP7L7xwnd4}# + #{map-env -ANAU$bmvAmthP7L7xwnd9}#))) + (cdr #{maps -ANAU$bmvAmthP7L7xwnd5}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwndv}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{y _hoQGWMnyQPAh3k2jhWHjN}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWHjh}# - #{maps _hoQGWMnyQPAh3k2jhWHji}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{y -ANAU$bmvAmthP7L7xwnds}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwneA}# + #{maps -ANAU$bmvAmthP7L7xwneB}#) (call-with-values (lambda () - (#{k _hoQGWMnyQPAh3k2jhWHjO}# - #{maps _hoQGWMnyQPAh3k2jhWHji}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjj}# - #{maps _hoQGWMnyQPAh3k2jhWHjk}#) + (#{k -ANAU$bmvAmthP7L7xwndt}# + #{maps -ANAU$bmvAmthP7L7xwneB}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwneC}# + #{maps -ANAU$bmvAmthP7L7xwneD}#) (values (if (equal? - #{y _hoQGWMnyQPAh3k2jhWHjh}# + #{y -ANAU$bmvAmthP7L7xwneA}# ''()) - #{x _hoQGWMnyQPAh3k2jhWHjj}# + #{x -ANAU$bmvAmthP7L7xwneC}# (list 'append - #{x _hoQGWMnyQPAh3k2jhWHjj}# - #{y _hoQGWMnyQPAh3k2jhWHjh}#)) - #{maps _hoQGWMnyQPAh3k2jhWHjk}#)))))))))) - (#{f _hoQGWMnyQPAh3k2jhWHjF}# - #{y _hoQGWMnyQPAh3k2jhWHjE}# - (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjI}#) + #{x -ANAU$bmvAmthP7L7xwneC}# + #{y -ANAU$bmvAmthP7L7xwneA}#)) + #{maps -ANAU$bmvAmthP7L7xwneD}#)))))))))) + (#{f -ANAU$bmvAmthP7L7xwndk}# + #{y -ANAU$bmvAmthP7L7xwndj}# + (lambda (#{maps -ANAU$bmvAmthP7L7xwndn}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{x _hoQGWMnyQPAh3k2jhWHjC}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{x -ANAU$bmvAmthP7L7xwndh}# + #{r -ANAU$bmvAmthP7L7xwncV}# (cons '() - #{maps _hoQGWMnyQPAh3k2jhWHjI}#) - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjJ}# - #{maps _hoQGWMnyQPAh3k2jhWHjK}#) - (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) + #{maps -ANAU$bmvAmthP7L7xwndn}#) + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwndo}# + #{maps -ANAU$bmvAmthP7L7xwndp}#) + (if (null? (car #{maps -ANAU$bmvAmthP7L7xwndp}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHh0}#) + #{src -ANAU$bmvAmthP7L7xwncT}#) (values - (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# - #{x _hoQGWMnyQPAh3k2jhWHjJ}# - (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) - (cdr #{maps _hoQGWMnyQPAh3k2jhWHjK}#))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHj0}# + (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# + #{x -ANAU$bmvAmthP7L7xwndo}# + (car #{maps -ANAU$bmvAmthP7L7xwndp}#)) + (cdr #{maps -ANAU$bmvAmthP7L7xwndp}#))))))))) + #{tmp -ANAU$bmvAmthP7L7xwnda}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwneT}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHj0}# + (if #{tmp -ANAU$bmvAmthP7L7xwneT}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHj4}# - #{y _hoQGWMnyQPAh3k2jhWHj5}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwneX}# + #{y -ANAU$bmvAmthP7L7xwneY}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{x _hoQGWMnyQPAh3k2jhWHj4}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHj6}# - #{maps _hoQGWMnyQPAh3k2jhWHj7}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{x -ANAU$bmvAmthP7L7xwneX}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwneZ}# + #{maps -ANAU$bmvAmthP7L7xwnea}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{y _hoQGWMnyQPAh3k2jhWHj5}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHj7}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWHj8}# - #{maps _hoQGWMnyQPAh3k2jhWHj9}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{y -ANAU$bmvAmthP7L7xwneY}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwnea}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwneb}# + #{maps -ANAU$bmvAmthP7L7xwnec}#) (values - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHkC}# - (car #{y _hoQGWMnyQPAh3k2jhWHj8}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# + (let ((#{atom-key -ANAU$bmvAmthP7L7xwneh}# + (car #{y -ANAU$bmvAmthP7L7xwneb}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}# 'quote) - (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHj6}#) + (if (eq? (car #{x -ANAU$bmvAmthP7L7xwneZ}#) 'quote) (list 'quote - (cons (car (cdr #{x _hoQGWMnyQPAh3k2jhWHj6}#)) - (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) - (if (eq? (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)) + (cons (car (cdr #{x -ANAU$bmvAmthP7L7xwneZ}#)) + (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)))) + (if (eq? (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)) '()) (list 'list - #{x _hoQGWMnyQPAh3k2jhWHj6}#) + #{x -ANAU$bmvAmthP7L7xwneZ}#) (list 'cons - #{x _hoQGWMnyQPAh3k2jhWHj6}# - #{y _hoQGWMnyQPAh3k2jhWHj8}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# + #{x -ANAU$bmvAmthP7L7xwneZ}# + #{y -ANAU$bmvAmthP7L7xwneb}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}# 'list) (cons 'list - (cons #{x _hoQGWMnyQPAh3k2jhWHj6}# - (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))) + (cons #{x -ANAU$bmvAmthP7L7xwneZ}# + (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))) (list 'cons - #{x _hoQGWMnyQPAh3k2jhWHj6}# - #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) - #{maps _hoQGWMnyQPAh3k2jhWHj9}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWHj0}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHkf}# + #{x -ANAU$bmvAmthP7L7xwneZ}# + #{y -ANAU$bmvAmthP7L7xwneb}#)))) + #{maps -ANAU$bmvAmthP7L7xwnec}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwneT}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '#(vector (any . each-any))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHkf}# + (if #{tmp -ANAU$bmvAmthP7L7xwne$}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWHkj}# - #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}# + #{e2 -ANAU$bmvAmthP7L7xwnfD}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHkj}# - #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWHkl}# - #{maps _hoQGWMnyQPAh3k2jhWHkm}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnfC}# + #{e2 -ANAU$bmvAmthP7L7xwnfD}#) + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwnfE}# + #{maps -ANAU$bmvAmthP7L7xwnfF}#) (values - (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) + (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#) 'list) (cons 'vector - (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)) - (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) + (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#)) + (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#) 'quote) (list 'quote (list->vector - (car (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)))) + (car (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#)))) (list 'list->vector - #{e _hoQGWMnyQPAh3k2jhWHkl}#))) - #{maps _hoQGWMnyQPAh3k2jhWHkm}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHkf}#) + #{e -ANAU$bmvAmthP7L7xwnfE}#))) + #{maps -ANAU$bmvAmthP7L7xwnfF}#)))) + #{tmp -ANAU$bmvAmthP7L7xwne$}#) (values - (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) - #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))))))))))) - (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWHlB}# - #{var _hoQGWMnyQPAh3k2jhWHlC}# - #{level _hoQGWMnyQPAh3k2jhWHlD}# - #{maps _hoQGWMnyQPAh3k2jhWHlE}#) - (if (= #{level _hoQGWMnyQPAh3k2jhWHlD}# 0) + (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#) + #{maps -ANAU$bmvAmthP7L7xwncW}#)))))))))))) + (#{gen-ref -ANAU$bmvAmthP7L7xwnau}# + (lambda (#{src -ANAU$bmvAmthP7L7xwnfg}# + #{var -ANAU$bmvAmthP7L7xwnfh}# + #{level -ANAU$bmvAmthP7L7xwnfi}# + #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (if (= #{level -ANAU$bmvAmthP7L7xwnfi}# 0) (values - #{var _hoQGWMnyQPAh3k2jhWHlC}# - #{maps _hoQGWMnyQPAh3k2jhWHlE}#) - (if (null? #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + #{var -ANAU$bmvAmthP7L7xwnfh}# + #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#) (syntax-violation 'syntax "missing ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHlB}#) + #{src -ANAU$bmvAmthP7L7xwnfg}#) (call-with-values (lambda () - (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# - #{src _hoQGWMnyQPAh3k2jhWHlB}# - #{var _hoQGWMnyQPAh3k2jhWHlC}# - (#{1-}# #{level _hoQGWMnyQPAh3k2jhWHlD}#) - (cdr #{maps _hoQGWMnyQPAh3k2jhWHlE}#))) - (lambda (#{outer-var _hoQGWMnyQPAh3k2jhWHlF}# - #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#) - (let ((#{b _hoQGWMnyQPAh3k2jhWHlH}# - (assq #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# - (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)))) - (if #{b _hoQGWMnyQPAh3k2jhWHlH}# + (#{gen-ref -ANAU$bmvAmthP7L7xwnau}# + #{src -ANAU$bmvAmthP7L7xwnfg}# + #{var -ANAU$bmvAmthP7L7xwnfh}# + (#{1-}# #{level -ANAU$bmvAmthP7L7xwnfi}#) + (cdr #{maps -ANAU$bmvAmthP7L7xwnfj}#))) + (lambda (#{outer-var -ANAU$bmvAmthP7L7xwnfk}# + #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#) + (let ((#{b -ANAU$bmvAmthP7L7xwnfm}# + (assq #{outer-var -ANAU$bmvAmthP7L7xwnfk}# + (car #{maps -ANAU$bmvAmthP7L7xwnfj}#)))) + (if #{b -ANAU$bmvAmthP7L7xwnfm}# (values - (cdr #{b _hoQGWMnyQPAh3k2jhWHlH}#) - #{maps _hoQGWMnyQPAh3k2jhWHlE}#) - (let ((#{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# + (cdr #{b -ANAU$bmvAmthP7L7xwnfm}#) + #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# - (cons (cons (cons #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# - #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#) - (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)) - #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#))))))))))) - (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWHlX}# - #{map-env _hoQGWMnyQPAh3k2jhWHlY}#) - (let ((#{formals _hoQGWMnyQPAh3k2jhWHlZ}# - (map cdr #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)) - (#{actuals _hoQGWMnyQPAh3k2jhWHla}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHlc}#) - (list 'ref (car #{x _hoQGWMnyQPAh3k2jhWHlc}#))) - #{map-env _hoQGWMnyQPAh3k2jhWHlY}#))) - (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHlX}#) 'ref) - (car #{actuals _hoQGWMnyQPAh3k2jhWHla}#) + #{inner-var -ANAU$bmvAmthP7L7xwnfo}# + (cons (cons (cons #{outer-var -ANAU$bmvAmthP7L7xwnfk}# + #{inner-var -ANAU$bmvAmthP7L7xwnfo}#) + (car #{maps -ANAU$bmvAmthP7L7xwnfj}#)) + #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#))))))))))) + (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnf2}# + #{map-env -ANAU$bmvAmthP7L7xwnf3}#) + (let ((#{formals -ANAU$bmvAmthP7L7xwnf4}# + (map cdr #{map-env -ANAU$bmvAmthP7L7xwnf3}#)) + (#{actuals -ANAU$bmvAmthP7L7xwnf5}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwnf7}#) + (list 'ref (car #{x -ANAU$bmvAmthP7L7xwnf7}#))) + #{map-env -ANAU$bmvAmthP7L7xwnf3}#))) + (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnf2}#) 'ref) + (car #{actuals -ANAU$bmvAmthP7L7xwnf5}#) (if (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWHld}#) - (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHld}#) 'ref) - (memq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHld}#)) - #{formals _hoQGWMnyQPAh3k2jhWHlZ}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#) + (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref) + (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#)) + #{formals -ANAU$bmvAmthP7L7xwnf4}#) #f)) - (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)) + (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#)) (cons 'map (cons (list 'primitive - (car #{e _hoQGWMnyQPAh3k2jhWHlX}#)) - (map (let ((#{r _hoQGWMnyQPAh3k2jhWHlf}# + (car #{e -ANAU$bmvAmthP7L7xwnf2}#)) + (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}# (map cons - #{formals _hoQGWMnyQPAh3k2jhWHlZ}# - #{actuals _hoQGWMnyQPAh3k2jhWHla}#))) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHlg}#) - (cdr (assq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHlg}#)) - #{r _hoQGWMnyQPAh3k2jhWHlf}#)))) - (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)))) + #{formals -ANAU$bmvAmthP7L7xwnf4}# + #{actuals -ANAU$bmvAmthP7L7xwnf5}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwnf@}#) + (cdr (assq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf@}#)) + #{r -ANAU$bmvAmthP7L7xwnf$}#)))) + (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#)))) (cons 'map (cons (list 'lambda - #{formals _hoQGWMnyQPAh3k2jhWHlZ}# - #{e _hoQGWMnyQPAh3k2jhWHlX}#) - #{actuals _hoQGWMnyQPAh3k2jhWHla}#))))))) - (#{regen _hoQGWMnyQPAh3k2jhWHgV}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWHli}#) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHlj}# - (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'ref) - (let ((#{name _hoQGWMnyQPAh3k2jhWHlt}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (#{var _hoQGWMnyQPAh3k2jhWHlu}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + #{formals -ANAU$bmvAmthP7L7xwnf4}# + #{e -ANAU$bmvAmthP7L7xwnf2}#) + #{actuals -ANAU$bmvAmthP7L7xwnf5}#))))))) + (#{regen -ANAU$bmvAmthP7L7xwna0}# + (lambda (#{x -ANAU$bmvAmthP7L7xwngB}#) + (let ((#{atom-key -ANAU$bmvAmthP7L7xwngC}# + (car #{x -ANAU$bmvAmthP7L7xwngB}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'ref) + (let ((#{name -ANAU$bmvAmthP7L7xwngM}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (#{var -ANAU$bmvAmthP7L7xwngN}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name _hoQGWMnyQPAh3k2jhWHlt}# - #{var _hoQGWMnyQPAh3k2jhWHlu}#)) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# + #{name -ANAU$bmvAmthP7L7xwngM}# + #{var -ANAU$bmvAmthP7L7xwngN}#)) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'primitive) - (let ((#{name _hoQGWMnyQPAh3k2jhWHl6}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + (let ((#{name -ANAU$bmvAmthP7L7xwngZ}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _hoQGWMnyQPAh3k2jhWHl6}#) + #{name -ANAU$bmvAmthP7L7xwngZ}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _hoQGWMnyQPAh3k2jhWHl6}# + #{name -ANAU$bmvAmthP7L7xwngZ}# #f))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'quote) - (let ((#{exp _hoQGWMnyQPAh3k2jhWHmM}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'quote) + (let ((#{exp -ANAU$bmvAmthP7L7xwngr}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp _hoQGWMnyQPAh3k2jhWHmM}#)) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# + #{exp -ANAU$bmvAmthP7L7xwngr}#)) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'lambda) - (if (list? (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (let ((#{req _hoQGWMnyQPAh3k2jhWHmX}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (#{vars _hoQGWMnyQPAh3k2jhWHmZ}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (#{exp _hoQGWMnyQPAh3k2jhWHmb}# - (#{regen _hoQGWMnyQPAh3k2jhWHgV}# - (car (cdr (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))))) - (let ((#{body _hoQGWMnyQPAh3k2jhWHmg}# + (if (list? (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (let ((#{req -ANAU$bmvAmthP7L7xwng2}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (#{vars -ANAU$bmvAmthP7L7xwng4}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (#{exp -ANAU$bmvAmthP7L7xwng6}# + (#{regen -ANAU$bmvAmthP7L7xwna0}# + (car (cdr (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))))) + (let ((#{body -ANAU$bmvAmthP7L7xwng@}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _hoQGWMnyQPAh3k2jhWHmX}# + #{req -ANAU$bmvAmthP7L7xwng2}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWHmZ}# - #{exp _hoQGWMnyQPAh3k2jhWHmb}# + #{vars -ANAU$bmvAmthP7L7xwng4}# + #{exp -ANAU$bmvAmthP7L7xwng6}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _hoQGWMnyQPAh3k2jhWHmg}#))) + #{body -ANAU$bmvAmthP7L7xwng@}#))) (error "how did we get here" - #{x _hoQGWMnyQPAh3k2jhWHli}#)) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# - (let ((#{name _hoQGWMnyQPAh3k2jhWHm5}# - (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) + #{x -ANAU$bmvAmthP7L7xwngB}#)) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwnhP}# + (let ((#{name -ANAU$bmvAmthP7L7xwnhY}# + (car #{x -ANAU$bmvAmthP7L7xwngB}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _hoQGWMnyQPAh3k2jhWHm5}#) + #{name -ANAU$bmvAmthP7L7xwnhY}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _hoQGWMnyQPAh3k2jhWHm5}# + #{name -ANAU$bmvAmthP7L7xwnhY}# #f)))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWHmx}# - (map #{regen _hoQGWMnyQPAh3k2jhWHgV}# - (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}# + (map #{regen -ANAU$bmvAmthP7L7xwna0}# + (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# - #{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#)))))))))) - (lambda (#{e _hoQGWMnyQPAh3k2jhWHgW}# - #{r _hoQGWMnyQPAh3k2jhWHgX}# - #{w _hoQGWMnyQPAh3k2jhWHgY}# - #{s _hoQGWMnyQPAh3k2jhWHgZ}# - #{mod _hoQGWMnyQPAh3k2jhWHga}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWHgb}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{fun-exp -ANAU$bmvAmthP7L7xwnhP}# + #{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#)))))))))) + (lambda (#{e -ANAU$bmvAmthP7L7xwna1}# + #{r -ANAU$bmvAmthP7L7xwna2}# + #{w -ANAU$bmvAmthP7L7xwna3}# + #{s -ANAU$bmvAmthP7L7xwna4}# + #{mod -ANAU$bmvAmthP7L7xwna5}#) + (let ((#{e -ANAU$bmvAmthP7L7xwna6}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHgW}#) - #{s _hoQGWMnyQPAh3k2jhWHgZ}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#) + #{s -ANAU$bmvAmthP7L7xwna4}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHgW}# - #{s _hoQGWMnyQPAh3k2jhWHgZ}#)) - #{e _hoQGWMnyQPAh3k2jhWHgW}#) - #{w _hoQGWMnyQPAh3k2jhWHgY}# - #{mod _hoQGWMnyQPAh3k2jhWHga}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHgd}# + #{e -ANAU$bmvAmthP7L7xwna1}# + #{s -ANAU$bmvAmthP7L7xwna4}#)) + #{e -ANAU$bmvAmthP7L7xwna1}#) + #{w -ANAU$bmvAmthP7L7xwna3}# + #{mod -ANAU$bmvAmthP7L7xwna5}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHgb}# + #{e -ANAU$bmvAmthP7L7xwna6}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHgd}# + (if #{tmp -ANAU$bmvAmthP7L7xwna8}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHg2}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{e _hoQGWMnyQPAh3k2jhWHgb}# - #{x _hoQGWMnyQPAh3k2jhWHg2}# - #{r _hoQGWMnyQPAh3k2jhWHgX}# + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{e -ANAU$bmvAmthP7L7xwna6}# + #{x -ANAU$bmvAmthP7L7xwnbV}# + #{r -ANAU$bmvAmthP7L7xwna2}# '() - #{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# - #{mod _hoQGWMnyQPAh3k2jhWHga}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWHhs}# - #{maps _hoQGWMnyQPAh3k2jhWHht}#) - (#{regen _hoQGWMnyQPAh3k2jhWHgV}# - #{e _hoQGWMnyQPAh3k2jhWHhs}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHgd}#) + #{ellipsis? -ANAU$bmvAmthP7L7xwnOM}# + #{mod -ANAU$bmvAmthP7L7xwna5}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwncL}# + #{maps -ANAU$bmvAmthP7L7xwncM}#) + (#{regen -ANAU$bmvAmthP7L7xwna0}# + #{e -ANAU$bmvAmthP7L7xwncL}#)))) + #{tmp -ANAU$bmvAmthP7L7xwna8}#) (syntax-violation 'syntax "bad `syntax' form" - #{e _hoQGWMnyQPAh3k2jhWHgb}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwna6}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'lambda - (lambda (#{e _hoQGWMnyQPAh3k2jhWHp2}# - #{r _hoQGWMnyQPAh3k2jhWHp3}# - #{w _hoQGWMnyQPAh3k2jhWHp4}# - #{s _hoQGWMnyQPAh3k2jhWHp5}# - #{mod _hoQGWMnyQPAh3k2jhWHp6}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHp8}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}# + #{r -ANAU$bmvAmthP7L7xwnkW}# + #{w -ANAU$bmvAmthP7L7xwnkX}# + #{s -ANAU$bmvAmthP7L7xwnkY}# + #{mod -ANAU$bmvAmthP7L7xwnkZ}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHp2}# + #{e -ANAU$bmvAmthP7L7xwnkV}# '(_ any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHp8}# + (if #{tmp -ANAU$bmvAmthP7L7xwnkb}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWHqA}# - #{e1 _hoQGWMnyQPAh3k2jhWHqB}# - #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}# + #{e1 -ANAU$bmvAmthP7L7xwnkg}# + #{e2 -ANAU$bmvAmthP7L7xwnkh}#) (call-with-values (lambda () - (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# - #{args _hoQGWMnyQPAh3k2jhWHqA}#)) - (lambda (#{req _hoQGWMnyQPAh3k2jhWHqF}# - #{opt _hoQGWMnyQPAh3k2jhWHqG}# - #{rest _hoQGWMnyQPAh3k2jhWHqH}# - #{kw _hoQGWMnyQPAh3k2jhWHqI}#) + (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}# + #{args -ANAU$bmvAmthP7L7xwnkf}#)) + (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}# + #{opt -ANAU$bmvAmthP7L7xwnkl}# + #{rest -ANAU$bmvAmthP7L7xwnkm}# + #{kw -ANAU$bmvAmthP7L7xwnkn}#) (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWHqM}# - #{meta _hoQGWMnyQPAh3k2jhWHqN}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqP}# + ((#{lp -ANAU$bmvAmthP7L7xwnko}# + (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}# + #{meta -ANAU$bmvAmthP7L7xwnks}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWHqM}# + #{body -ANAU$bmvAmthP7L7xwnkr}# '(any any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHqP}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}# (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqT}# - #{e1 _hoQGWMnyQPAh3k2jhWHqU}# - #{e2 _hoQGWMnyQPAh3k2jhWHqV}#) + (lambda (#{docstring -ANAU$bmvAmthP7L7xwnky}# + #{e1 -ANAU$bmvAmthP7L7xwnkz}# + #{e2 -ANAU$bmvAmthP7L7xwnk0}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWHqT}#))) - #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) + #{docstring -ANAU$bmvAmthP7L7xwnky}#))) + #{tmp -ANAU$bmvAmthP7L7xwnku}#) #f) (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqW}# - #{e1 _hoQGWMnyQPAh3k2jhWHqX}# - #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) - (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHqX}# - #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) + (lambda (#{docstring -ANAU$bmvAmthP7L7xwnk1}# + #{e1 -ANAU$bmvAmthP7L7xwnk2}# + #{e2 -ANAU$bmvAmthP7L7xwnk3}#) + (#{lp -ANAU$bmvAmthP7L7xwnko}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}# + #{e2 -ANAU$bmvAmthP7L7xwnk3}#) (append - #{meta _hoQGWMnyQPAh3k2jhWHqN}# + #{meta -ANAU$bmvAmthP7L7xwnks}# (list (cons 'documentation (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWHqW}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqZ}# + #{docstring -ANAU$bmvAmthP7L7xwnk1}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwnku}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWHqM}# + #{body -ANAU$bmvAmthP7L7xwnkr}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHqZ}# + (if #{tmp -ANAU$bmvAmthP7L7xwnk4}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWHqd}# - #{v _hoQGWMnyQPAh3k2jhWHqe}# - #{e1 _hoQGWMnyQPAh3k2jhWHqf}# - #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) - (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHqf}# - #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}# + #{v -ANAU$bmvAmthP7L7xwnk9}# + #{e1 -ANAU$bmvAmthP7L7xwnk$}# + #{e2 -ANAU$bmvAmthP7L7xwnk@}#) + (#{lp -ANAU$bmvAmthP7L7xwnko}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}# + #{e2 -ANAU$bmvAmthP7L7xwnk@}#) (append - #{meta _hoQGWMnyQPAh3k2jhWHqN}# + #{meta -ANAU$bmvAmthP7L7xwnks}# (syntax->datum (map cons - #{k _hoQGWMnyQPAh3k2jhWHqd}# - #{v _hoQGWMnyQPAh3k2jhWHqe}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#) - (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# - #{e _hoQGWMnyQPAh3k2jhWHp2}# - #{r _hoQGWMnyQPAh3k2jhWHp3}# - #{w _hoQGWMnyQPAh3k2jhWHp4}# - #{s _hoQGWMnyQPAh3k2jhWHp5}# - #{mod _hoQGWMnyQPAh3k2jhWHp6}# - #{req _hoQGWMnyQPAh3k2jhWHqF}# - #{rest _hoQGWMnyQPAh3k2jhWHqH}# - #{meta _hoQGWMnyQPAh3k2jhWHqN}# - #{body _hoQGWMnyQPAh3k2jhWHqM}#)))))))) - (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHqB}# - #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) + #{k -ANAU$bmvAmthP7L7xwnk8}# + #{v -ANAU$bmvAmthP7L7xwnk9}#))))) + #{tmp -ANAU$bmvAmthP7L7xwnk4}#) + (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}# + #{e -ANAU$bmvAmthP7L7xwnkV}# + #{r -ANAU$bmvAmthP7L7xwnkW}# + #{w -ANAU$bmvAmthP7L7xwnkX}# + #{s -ANAU$bmvAmthP7L7xwnkY}# + #{mod -ANAU$bmvAmthP7L7xwnkZ}# + #{req -ANAU$bmvAmthP7L7xwnkk}# + #{rest -ANAU$bmvAmthP7L7xwnkm}# + #{meta -ANAU$bmvAmthP7L7xwnks}# + #{body -ANAU$bmvAmthP7L7xwnkr}#)))))))) + (#{lp -ANAU$bmvAmthP7L7xwnko}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnkg}# + #{e2 -ANAU$bmvAmthP7L7xwnkh}#) '()))))) - #{tmp _hoQGWMnyQPAh3k2jhWHp8}#) + #{tmp -ANAU$bmvAmthP7L7xwnkb}#) (syntax-violation 'lambda "bad lambda" - #{e _hoQGWMnyQPAh3k2jhWHp2}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnkV}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'lambda* - (lambda (#{e _hoQGWMnyQPAh3k2jhWHu9}# - #{r _hoQGWMnyQPAh3k2jhWHu$}# - #{w _hoQGWMnyQPAh3k2jhWHu@}# - #{s _hoQGWMnyQPAh3k2jhWHvA}# - #{mod _hoQGWMnyQPAh3k2jhWHvB}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHvD}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}# + #{r -ANAU$bmvAmthP7L7xwnpd}# + #{w -ANAU$bmvAmthP7L7xwnpe}# + #{s -ANAU$bmvAmthP7L7xwnpf}# + #{mod -ANAU$bmvAmthP7L7xwnpg}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHu9}# + #{e -ANAU$bmvAmthP7L7xwnpc}# '(_ any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHvD}# + (if #{tmp -ANAU$bmvAmthP7L7xwnpi}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWHvH}# - #{e1 _hoQGWMnyQPAh3k2jhWHvI}# - #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}# + #{e1 -ANAU$bmvAmthP7L7xwnpn}# + #{e2 -ANAU$bmvAmthP7L7xwnpo}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWHu9}# - #{r _hoQGWMnyQPAh3k2jhWHu$}# - #{w _hoQGWMnyQPAh3k2jhWHu@}# - #{s _hoQGWMnyQPAh3k2jhWHvA}# - #{mod _hoQGWMnyQPAh3k2jhWHvB}# - #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# - (list (cons #{args _hoQGWMnyQPAh3k2jhWHvH}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHvI}# - #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#))))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWHvM}# - #{lcase _hoQGWMnyQPAh3k2jhWHvN}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwnpc}# + #{r -ANAU$bmvAmthP7L7xwnpd}# + #{w -ANAU$bmvAmthP7L7xwnpe}# + #{s -ANAU$bmvAmthP7L7xwnpf}# + #{mod -ANAU$bmvAmthP7L7xwnpg}# + #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}# + (list (cons #{args -ANAU$bmvAmthP7L7xwnpm}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnpn}# + #{e2 -ANAU$bmvAmthP7L7xwnpo}#))))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwnpr}# + #{lcase -ANAU$bmvAmthP7L7xwnps}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _hoQGWMnyQPAh3k2jhWHvA}# - #{meta _hoQGWMnyQPAh3k2jhWHvM}# - #{lcase _hoQGWMnyQPAh3k2jhWHvN}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHvD}#) + #{s -ANAU$bmvAmthP7L7xwnpf}# + #{meta -ANAU$bmvAmthP7L7xwnpr}# + #{lcase -ANAU$bmvAmthP7L7xwnps}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnpi}#) (syntax-violation 'lambda "bad lambda*" - #{e _hoQGWMnyQPAh3k2jhWHu9}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnpc}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'case-lambda - (lambda (#{e _hoQGWMnyQPAh3k2jhWHx3}# - #{r _hoQGWMnyQPAh3k2jhWHx4}# - #{w _hoQGWMnyQPAh3k2jhWHx5}# - #{s _hoQGWMnyQPAh3k2jhWHx6}# - #{mod _hoQGWMnyQPAh3k2jhWHx7}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHx9}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}# + #{r -ANAU$bmvAmthP7L7xwnsX}# + #{w -ANAU$bmvAmthP7L7xwnsY}# + #{s -ANAU$bmvAmthP7L7xwnsZ}# + #{mod -ANAU$bmvAmthP7L7xwnsa}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHx3}# + #{e -ANAU$bmvAmthP7L7xwnsW}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHx9}# + (if #{tmp -ANAU$bmvAmthP7L7xwnsc}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWHyB}# - #{e1 _hoQGWMnyQPAh3k2jhWHyC}# - #{e2 _hoQGWMnyQPAh3k2jhWHyD}# - #{args* _hoQGWMnyQPAh3k2jhWHyE}# - #{e1* _hoQGWMnyQPAh3k2jhWHyF}# - #{e2* _hoQGWMnyQPAh3k2jhWHyG}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnsg}# + #{e1 -ANAU$bmvAmthP7L7xwnsh}# + #{e2 -ANAU$bmvAmthP7L7xwnsi}# + #{args* -ANAU$bmvAmthP7L7xwnsj}# + #{e1* -ANAU$bmvAmthP7L7xwnsk}# + #{e2* -ANAU$bmvAmthP7L7xwnsl}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWHx3}# - #{r _hoQGWMnyQPAh3k2jhWHx4}# - #{w _hoQGWMnyQPAh3k2jhWHx5}# - #{s _hoQGWMnyQPAh3k2jhWHx6}# - #{mod _hoQGWMnyQPAh3k2jhWHx7}# - #{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# - (cons (cons #{args _hoQGWMnyQPAh3k2jhWHyB}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHyC}# - #{e2 _hoQGWMnyQPAh3k2jhWHyD}#)) - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}# - #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# - #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#) - (cons #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}# - (cons #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# - #{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#))) - #{e2* _hoQGWMnyQPAh3k2jhWHyG}# - #{e1* _hoQGWMnyQPAh3k2jhWHyF}# - #{args* _hoQGWMnyQPAh3k2jhWHyE}#)))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWHyM}# - #{lcase _hoQGWMnyQPAh3k2jhWHyN}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwnsW}# + #{r -ANAU$bmvAmthP7L7xwnsX}# + #{w -ANAU$bmvAmthP7L7xwnsY}# + #{s -ANAU$bmvAmthP7L7xwnsZ}# + #{mod -ANAU$bmvAmthP7L7xwnsa}# + #{lambda-formals -ANAU$bmvAmthP7L7xwnON}# + (cons (cons #{args -ANAU$bmvAmthP7L7xwnsg}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnsh}# + #{e2 -ANAU$bmvAmthP7L7xwnsi}#)) + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCS -ANAU$bmvAmthP7L7xwnso}# + #{tmp -ANAU$bmvAmthP7L7xwnCR -ANAU$bmvAmthP7L7xwnsp}# + #{tmp -ANAU$bmvAmthP7L7xwnCQ -ANAU$bmvAmthP7L7xwnsq}#) + (cons #{tmp -ANAU$bmvAmthP7L7xwnCQ -ANAU$bmvAmthP7L7xwnsq}# + (cons #{tmp -ANAU$bmvAmthP7L7xwnCR -ANAU$bmvAmthP7L7xwnsp}# + #{tmp -ANAU$bmvAmthP7L7xwnCS -ANAU$bmvAmthP7L7xwnso}#))) + #{e2* -ANAU$bmvAmthP7L7xwnsl}# + #{e1* -ANAU$bmvAmthP7L7xwnsk}# + #{args* -ANAU$bmvAmthP7L7xwnsj}#)))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwnsr}# + #{lcase -ANAU$bmvAmthP7L7xwnss}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _hoQGWMnyQPAh3k2jhWHx6}# - #{meta _hoQGWMnyQPAh3k2jhWHyM}# - #{lcase _hoQGWMnyQPAh3k2jhWHyN}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHx9}#) + #{s -ANAU$bmvAmthP7L7xwnsZ}# + #{meta -ANAU$bmvAmthP7L7xwnsr}# + #{lcase -ANAU$bmvAmthP7L7xwnss}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnsc}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e _hoQGWMnyQPAh3k2jhWHx3}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnsW}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'case-lambda* - (lambda (#{e _hoQGWMnyQPAh3k2jhWH0v}# - #{r _hoQGWMnyQPAh3k2jhWH0w}# - #{w _hoQGWMnyQPAh3k2jhWH0x}# - #{s _hoQGWMnyQPAh3k2jhWH0y}# - #{mod _hoQGWMnyQPAh3k2jhWH0z}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWH01}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}# + #{r -ANAU$bmvAmthP7L7xwnvP}# + #{w -ANAU$bmvAmthP7L7xwnvQ}# + #{s -ANAU$bmvAmthP7L7xwnvR}# + #{mod -ANAU$bmvAmthP7L7xwnvS}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWH0v}# + #{e -ANAU$bmvAmthP7L7xwnvO}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWH01}# + (if #{tmp -ANAU$bmvAmthP7L7xwnvU}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWH05}# - #{e1 _hoQGWMnyQPAh3k2jhWH06}# - #{e2 _hoQGWMnyQPAh3k2jhWH07}# - #{args* _hoQGWMnyQPAh3k2jhWH08}# - #{e1* _hoQGWMnyQPAh3k2jhWH09}# - #{e2* _hoQGWMnyQPAh3k2jhWH0$}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnvY}# + #{e1 -ANAU$bmvAmthP7L7xwnvZ}# + #{e2 -ANAU$bmvAmthP7L7xwnva}# + #{args* -ANAU$bmvAmthP7L7xwnvb}# + #{e1* -ANAU$bmvAmthP7L7xwnvc}# + #{e2* -ANAU$bmvAmthP7L7xwnvd}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWH0v}# - #{r _hoQGWMnyQPAh3k2jhWH0w}# - #{w _hoQGWMnyQPAh3k2jhWH0x}# - #{s _hoQGWMnyQPAh3k2jhWH0y}# - #{mod _hoQGWMnyQPAh3k2jhWH0z}# - #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# - (cons (cons #{args _hoQGWMnyQPAh3k2jhWH05}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWH06}# - #{e2 _hoQGWMnyQPAh3k2jhWH07}#)) - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}# - #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# - #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#) - (cons #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}# - (cons #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# - #{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#))) - #{e2* _hoQGWMnyQPAh3k2jhWH0$}# - #{e1* _hoQGWMnyQPAh3k2jhWH09}# - #{args* _hoQGWMnyQPAh3k2jhWH08}#)))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWH1E}# - #{lcase _hoQGWMnyQPAh3k2jhWH1F}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwnvO}# + #{r -ANAU$bmvAmthP7L7xwnvP}# + #{w -ANAU$bmvAmthP7L7xwnvQ}# + #{s -ANAU$bmvAmthP7L7xwnvR}# + #{mod -ANAU$bmvAmthP7L7xwnvS}# + #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}# + (cons (cons #{args -ANAU$bmvAmthP7L7xwnvY}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnvZ}# + #{e2 -ANAU$bmvAmthP7L7xwnva}#)) + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCn -ANAU$bmvAmthP7L7xwnvg}# + #{tmp -ANAU$bmvAmthP7L7xwnCm -ANAU$bmvAmthP7L7xwnvh}# + #{tmp -ANAU$bmvAmthP7L7xwnCl -ANAU$bmvAmthP7L7xwnvi}#) + (cons #{tmp -ANAU$bmvAmthP7L7xwnCl -ANAU$bmvAmthP7L7xwnvi}# + (cons #{tmp -ANAU$bmvAmthP7L7xwnCm -ANAU$bmvAmthP7L7xwnvh}# + #{tmp -ANAU$bmvAmthP7L7xwnCn -ANAU$bmvAmthP7L7xwnvg}#))) + #{e2* -ANAU$bmvAmthP7L7xwnvd}# + #{e1* -ANAU$bmvAmthP7L7xwnvc}# + #{args* -ANAU$bmvAmthP7L7xwnvb}#)))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwnvj}# + #{lcase -ANAU$bmvAmthP7L7xwnvk}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _hoQGWMnyQPAh3k2jhWH0y}# - #{meta _hoQGWMnyQPAh3k2jhWH1E}# - #{lcase _hoQGWMnyQPAh3k2jhWH1F}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWH01}#) + #{s -ANAU$bmvAmthP7L7xwnvR}# + #{meta -ANAU$bmvAmthP7L7xwnvj}# + #{lcase -ANAU$bmvAmthP7L7xwnvk}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnvU}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e _hoQGWMnyQPAh3k2jhWH0v}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnvO}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'let (letrec* - ((#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWH6Z}# - #{r _hoQGWMnyQPAh3k2jhWH6a}# - #{w _hoQGWMnyQPAh3k2jhWH6b}# - #{s _hoQGWMnyQPAh3k2jhWH6c}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}# - #{constructor _hoQGWMnyQPAh3k2jhWH6e}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}# - #{vals _hoQGWMnyQPAh3k2jhWH6g}# - #{exps _hoQGWMnyQPAh3k2jhWH6h}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) + ((#{expand-let -ANAU$bmvAmthP7L7xwnyj}# + (lambda (#{e -ANAU$bmvAmthP7L7xwn04}# + #{r -ANAU$bmvAmthP7L7xwn05}# + #{w -ANAU$bmvAmthP7L7xwn06}# + #{s -ANAU$bmvAmthP7L7xwn07}# + #{mod -ANAU$bmvAmthP7L7xwn08}# + #{constructor -ANAU$bmvAmthP7L7xwn09}# + #{ids -ANAU$bmvAmthP7L7xwn0$}# + #{vals -ANAU$bmvAmthP7L7xwn0@}# + #{exps -ANAU$bmvAmthP7L7xwn1A}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#)) (syntax-violation 'let "duplicate bound variable" - #{e _hoQGWMnyQPAh3k2jhWH6Z}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWH7v}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWH7w}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}#))) - (let ((#{nw _hoQGWMnyQPAh3k2jhWH7x}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}# - #{labels _hoQGWMnyQPAh3k2jhWH7v}# - #{w _hoQGWMnyQPAh3k2jhWH6b}#)) - (#{nr _hoQGWMnyQPAh3k2jhWH7y}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWH7v}# - #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# - #{r _hoQGWMnyQPAh3k2jhWH6a}#))) - (#{constructor _hoQGWMnyQPAh3k2jhWH6e}# - #{s _hoQGWMnyQPAh3k2jhWH6c}# + #{e -ANAU$bmvAmthP7L7xwn04}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwn2O}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwn2P}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#))) + (let ((#{nw -ANAU$bmvAmthP7L7xwn2Q}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{ids -ANAU$bmvAmthP7L7xwn0$}# + #{labels -ANAU$bmvAmthP7L7xwn2O}# + #{w -ANAU$bmvAmthP7L7xwn06}#)) + (#{nr -ANAU$bmvAmthP7L7xwn2R}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwn2O}# + #{new-vars -ANAU$bmvAmthP7L7xwn2P}# + #{r -ANAU$bmvAmthP7L7xwn05}#))) + (#{constructor -ANAU$bmvAmthP7L7xwn09}# + #{s -ANAU$bmvAmthP7L7xwn07}# (map syntax->datum - #{ids _hoQGWMnyQPAh3k2jhWH6f}#) - #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWH8D}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWH8D}# - #{r _hoQGWMnyQPAh3k2jhWH6a}# - #{w _hoQGWMnyQPAh3k2jhWH6b}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}#)) - #{vals _hoQGWMnyQPAh3k2jhWH6g}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - #{exps _hoQGWMnyQPAh3k2jhWH6h}# - (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# - #{e _hoQGWMnyQPAh3k2jhWH6Z}# - #{nw _hoQGWMnyQPAh3k2jhWH7x}# - #{s _hoQGWMnyQPAh3k2jhWH6c}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}#) - #{nr _hoQGWMnyQPAh3k2jhWH7y}# - #{nw _hoQGWMnyQPAh3k2jhWH7x}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}#)))))))) - (lambda (#{e _hoQGWMnyQPAh3k2jhWH4F}# - #{r _hoQGWMnyQPAh3k2jhWH4G}# - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{s _hoQGWMnyQPAh3k2jhWH4I}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWH4L}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#) + #{new-vars -ANAU$bmvAmthP7L7xwn2P}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwn2i}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwn2i}# + #{r -ANAU$bmvAmthP7L7xwn05}# + #{w -ANAU$bmvAmthP7L7xwn06}# + #{mod -ANAU$bmvAmthP7L7xwn08}#)) + #{vals -ANAU$bmvAmthP7L7xwn0@}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + #{exps -ANAU$bmvAmthP7L7xwn1A}# + (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}# + #{e -ANAU$bmvAmthP7L7xwn04}# + #{nw -ANAU$bmvAmthP7L7xwn2Q}# + #{s -ANAU$bmvAmthP7L7xwn07}# + #{mod -ANAU$bmvAmthP7L7xwn08}#) + #{nr -ANAU$bmvAmthP7L7xwn2R}# + #{nw -ANAU$bmvAmthP7L7xwn2Q}# + #{mod -ANAU$bmvAmthP7L7xwn08}#)))))))) + (lambda (#{e -ANAU$bmvAmthP7L7xwnyk}# + #{r -ANAU$bmvAmthP7L7xwnyl}# + #{w -ANAU$bmvAmthP7L7xwnym}# + #{s -ANAU$bmvAmthP7L7xwnyn}# + #{mod -ANAU$bmvAmthP7L7xwnyo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnyq}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{e -ANAU$bmvAmthP7L7xwnyk}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWH4L}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWH4P}# - #{val _hoQGWMnyQPAh3k2jhWH4Q}# - #{e1 _hoQGWMnyQPAh3k2jhWH4R}# - #{e2 _hoQGWMnyQPAh3k2jhWH4S}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}# + #{val -ANAU$bmvAmthP7L7xwnyv}# + #{e1 -ANAU$bmvAmthP7L7xwnyw}# + #{e2 -ANAU$bmvAmthP7L7xwnyx}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWH4P}#)) - #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwnyu}#)) + #{tmp -ANAU$bmvAmthP7L7xwnyq}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWH4i}# - #{val _hoQGWMnyQPAh3k2jhWH4j}# - #{e1 _hoQGWMnyQPAh3k2jhWH4k}# - #{e2 _hoQGWMnyQPAh3k2jhWH4l}#) - (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# - #{e _hoQGWMnyQPAh3k2jhWH4F}# - #{r _hoQGWMnyQPAh3k2jhWH4G}# - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{s _hoQGWMnyQPAh3k2jhWH4I}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}# - #{build-let _hoQGWMnyQPAh3k2jhWHSv}# - #{id _hoQGWMnyQPAh3k2jhWH4i}# - #{val _hoQGWMnyQPAh3k2jhWH4j}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWH4k}# - #{e2 _hoQGWMnyQPAh3k2jhWH4l}#))) - #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWH5D}# + (lambda (#{id -ANAU$bmvAmthP7L7xwnzB}# + #{val -ANAU$bmvAmthP7L7xwnzC}# + #{e1 -ANAU$bmvAmthP7L7xwnzD}# + #{e2 -ANAU$bmvAmthP7L7xwnzE}#) + (#{expand-let -ANAU$bmvAmthP7L7xwnyj}# + #{e -ANAU$bmvAmthP7L7xwnyk}# + #{r -ANAU$bmvAmthP7L7xwnyl}# + #{w -ANAU$bmvAmthP7L7xwnym}# + #{s -ANAU$bmvAmthP7L7xwnyn}# + #{mod -ANAU$bmvAmthP7L7xwnyo}# + #{build-let -ANAU$bmvAmthP7L7xwnNO}# + #{id -ANAU$bmvAmthP7L7xwnzB}# + #{val -ANAU$bmvAmthP7L7xwnzC}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnzD}# + #{e2 -ANAU$bmvAmthP7L7xwnzE}#))) + #{tmp -ANAU$bmvAmthP7L7xwnyq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnzi}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{e -ANAU$bmvAmthP7L7xwnyk}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWH5D}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}# (@apply - (lambda (#{f _hoQGWMnyQPAh3k2jhWH5H}# - #{id _hoQGWMnyQPAh3k2jhWH5I}# - #{val _hoQGWMnyQPAh3k2jhWH5J}# - #{e1 _hoQGWMnyQPAh3k2jhWH5K}# - #{e2 _hoQGWMnyQPAh3k2jhWH5L}#) - (if (if (symbol? #{f _hoQGWMnyQPAh3k2jhWH5H}#) + (lambda (#{f -ANAU$bmvAmthP7L7xwnzm}# + #{id -ANAU$bmvAmthP7L7xwnzn}# + #{val -ANAU$bmvAmthP7L7xwnzo}# + #{e1 -ANAU$bmvAmthP7L7xwnzp}# + #{e2 -ANAU$bmvAmthP7L7xwnzq}#) + (if (if (symbol? #{f -ANAU$bmvAmthP7L7xwnzm}#) #t (if (if (vector? - #{f _hoQGWMnyQPAh3k2jhWH5H}#) + #{f -ANAU$bmvAmthP7L7xwnzm}#) (if (= (vector-length - #{f _hoQGWMnyQPAh3k2jhWH5H}#) + #{f -ANAU$bmvAmthP7L7xwnzm}#) 4) (eq? (vector-ref - #{f _hoQGWMnyQPAh3k2jhWH5H}# + #{f -ANAU$bmvAmthP7L7xwnzm}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{f _hoQGWMnyQPAh3k2jhWH5H}# + #{f -ANAU$bmvAmthP7L7xwnzm}# 1)) #f)) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWH5I}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwnzn}#) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) + #{tmp -ANAU$bmvAmthP7L7xwnzi}#) #f) (@apply - (lambda (#{f _hoQGWMnyQPAh3k2jhWH51}# - #{id _hoQGWMnyQPAh3k2jhWH52}# - #{val _hoQGWMnyQPAh3k2jhWH53}# - #{e1 _hoQGWMnyQPAh3k2jhWH54}# - #{e2 _hoQGWMnyQPAh3k2jhWH55}#) - (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# - #{e _hoQGWMnyQPAh3k2jhWH4F}# - #{r _hoQGWMnyQPAh3k2jhWH4G}# - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{s _hoQGWMnyQPAh3k2jhWH4I}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}# - #{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# - (cons #{f _hoQGWMnyQPAh3k2jhWH51}# - #{id _hoQGWMnyQPAh3k2jhWH52}#) - #{val _hoQGWMnyQPAh3k2jhWH53}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWH54}# - #{e2 _hoQGWMnyQPAh3k2jhWH55}#))) - #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) + (lambda (#{f -ANAU$bmvAmthP7L7xwn0U}# + #{id -ANAU$bmvAmthP7L7xwn0V}# + #{val -ANAU$bmvAmthP7L7xwn0W}# + #{e1 -ANAU$bmvAmthP7L7xwn0X}# + #{e2 -ANAU$bmvAmthP7L7xwn0Y}#) + (#{expand-let -ANAU$bmvAmthP7L7xwnyj}# + #{e -ANAU$bmvAmthP7L7xwnyk}# + #{r -ANAU$bmvAmthP7L7xwnyl}# + #{w -ANAU$bmvAmthP7L7xwnym}# + #{s -ANAU$bmvAmthP7L7xwnyn}# + #{mod -ANAU$bmvAmthP7L7xwnyo}# + #{build-named-let -ANAU$bmvAmthP7L7xwnNP}# + (cons #{f -ANAU$bmvAmthP7L7xwn0U}# + #{id -ANAU$bmvAmthP7L7xwn0V}#) + #{val -ANAU$bmvAmthP7L7xwn0W}# + (cons #{e1 -ANAU$bmvAmthP7L7xwn0X}# + #{e2 -ANAU$bmvAmthP7L7xwn0Y}#))) + #{tmp -ANAU$bmvAmthP7L7xwnzi}#) (syntax-violation 'let "bad let" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWH4F}#) - #{s _hoQGWMnyQPAh3k2jhWH4I}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#) + #{s -ANAU$bmvAmthP7L7xwnyn}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWH4F}# - #{s _hoQGWMnyQPAh3k2jhWH4I}#)) - #{e _hoQGWMnyQPAh3k2jhWH4F}#) - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}#))))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnyk}# + #{s -ANAU$bmvAmthP7L7xwnyn}#)) + #{e -ANAU$bmvAmthP7L7xwnyk}#) + #{w -ANAU$bmvAmthP7L7xwnym}# + #{mod -ANAU$bmvAmthP7L7xwnyo}#))))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'letrec - (lambda (#{e _hoQGWMnyQPAh3k2jhWICR}# - #{r _hoQGWMnyQPAh3k2jhWICS}# - #{w _hoQGWMnyQPAh3k2jhWICT}# - #{s _hoQGWMnyQPAh3k2jhWICU}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWICX}# + (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}# + #{r -ANAU$bmvAmthP7L7xwn8x}# + #{w -ANAU$bmvAmthP7L7xwn8y}# + #{s -ANAU$bmvAmthP7L7xwn8z}# + #{mod -ANAU$bmvAmthP7L7xwn80}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWICR}# + #{e -ANAU$bmvAmthP7L7xwn8w}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWICX}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWICb}# - #{val _hoQGWMnyQPAh3k2jhWICc}# - #{e1 _hoQGWMnyQPAh3k2jhWICd}# - #{e2 _hoQGWMnyQPAh3k2jhWICe}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwn86}# + #{val -ANAU$bmvAmthP7L7xwn87}# + #{e1 -ANAU$bmvAmthP7L7xwn88}# + #{e2 -ANAU$bmvAmthP7L7xwn89}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWICb}#)) - #{tmp _hoQGWMnyQPAh3k2jhWICX}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwn86}#)) + #{tmp -ANAU$bmvAmthP7L7xwn82}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWICu}# - #{val _hoQGWMnyQPAh3k2jhWICv}# - #{e1 _hoQGWMnyQPAh3k2jhWICw}# - #{e2 _hoQGWMnyQPAh3k2jhWICx}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{id _hoQGWMnyQPAh3k2jhWICu}#)) + (lambda (#{id -ANAU$bmvAmthP7L7xwn9N}# + #{val -ANAU$bmvAmthP7L7xwn9O}# + #{e1 -ANAU$bmvAmthP7L7xwn9P}# + #{e2 -ANAU$bmvAmthP7L7xwn9Q}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{id -ANAU$bmvAmthP7L7xwn9N}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e _hoQGWMnyQPAh3k2jhWICR}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWIEL}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{id _hoQGWMnyQPAh3k2jhWICu}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWIEM}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{id _hoQGWMnyQPAh3k2jhWICu}#))) - (let ((#{w _hoQGWMnyQPAh3k2jhWIEN}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{id _hoQGWMnyQPAh3k2jhWICu}# - #{labels _hoQGWMnyQPAh3k2jhWIEL}# - #{w _hoQGWMnyQPAh3k2jhWICT}#)) - (#{r _hoQGWMnyQPAh3k2jhWIEO}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWIEL}# - #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# - #{r _hoQGWMnyQPAh3k2jhWICS}#))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# - #{s _hoQGWMnyQPAh3k2jhWICU}# + #{e -ANAU$bmvAmthP7L7xwn8w}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwn$q}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{id -ANAU$bmvAmthP7L7xwn9N}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwn$r}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{id -ANAU$bmvAmthP7L7xwn9N}#))) + (let ((#{w -ANAU$bmvAmthP7L7xwn$s}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{id -ANAU$bmvAmthP7L7xwn9N}# + #{labels -ANAU$bmvAmthP7L7xwn$q}# + #{w -ANAU$bmvAmthP7L7xwn8y}#)) + (#{r -ANAU$bmvAmthP7L7xwn$t}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwn$q}# + #{new-vars -ANAU$bmvAmthP7L7xwn$r}# + #{r -ANAU$bmvAmthP7L7xwn8x}#))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + #{s -ANAU$bmvAmthP7L7xwn8z}# #f - (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWICu}#) - #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIFf}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWIFf}# - #{r _hoQGWMnyQPAh3k2jhWIEO}# - #{w _hoQGWMnyQPAh3k2jhWIEN}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#)) - #{val _hoQGWMnyQPAh3k2jhWICv}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWICw}# - #{e2 _hoQGWMnyQPAh3k2jhWICx}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (map syntax->datum #{id -ANAU$bmvAmthP7L7xwn9N}#) + #{new-vars -ANAU$bmvAmthP7L7xwn$r}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwn@$}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwn@$}# + #{r -ANAU$bmvAmthP7L7xwn$t}# + #{w -ANAU$bmvAmthP7L7xwn$s}# + #{mod -ANAU$bmvAmthP7L7xwn80}#)) + #{val -ANAU$bmvAmthP7L7xwn9O}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwn9P}# + #{e2 -ANAU$bmvAmthP7L7xwn9Q}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{s _hoQGWMnyQPAh3k2jhWICU}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{s -ANAU$bmvAmthP7L7xwn8z}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWICR}# - #{s _hoQGWMnyQPAh3k2jhWICU}#)) - #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{w _hoQGWMnyQPAh3k2jhWIEN}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#) - #{r _hoQGWMnyQPAh3k2jhWIEO}# - #{w _hoQGWMnyQPAh3k2jhWIEN}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWICX}#) + #{e -ANAU$bmvAmthP7L7xwn8w}# + #{s -ANAU$bmvAmthP7L7xwn8z}#)) + #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{w -ANAU$bmvAmthP7L7xwn$s}# + #{mod -ANAU$bmvAmthP7L7xwn80}#) + #{r -ANAU$bmvAmthP7L7xwn$t}# + #{w -ANAU$bmvAmthP7L7xwn$s}# + #{mod -ANAU$bmvAmthP7L7xwn80}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwn82}#) (syntax-violation 'letrec "bad letrec" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{s _hoQGWMnyQPAh3k2jhWICU}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{s -ANAU$bmvAmthP7L7xwn8z}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWICR}# - #{s _hoQGWMnyQPAh3k2jhWICU}#)) - #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{w _hoQGWMnyQPAh3k2jhWICT}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwn8w}# + #{s -ANAU$bmvAmthP7L7xwn8z}#)) + #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{w -ANAU$bmvAmthP7L7xwn8y}# + #{mod -ANAU$bmvAmthP7L7xwn80}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'letrec* - (lambda (#{e _hoQGWMnyQPAh3k2jhWILi}# - #{r _hoQGWMnyQPAh3k2jhWILj}# - #{w _hoQGWMnyQPAh3k2jhWILk}# - #{s _hoQGWMnyQPAh3k2jhWILl}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWILo}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}# + #{r -ANAU$bmvAmthP7L7xwoGC}# + #{w -ANAU$bmvAmthP7L7xwoGD}# + #{s -ANAU$bmvAmthP7L7xwoGE}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWILi}# + #{e -ANAU$bmvAmthP7L7xwoGB}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWILo}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWILs}# - #{val _hoQGWMnyQPAh3k2jhWILt}# - #{e1 _hoQGWMnyQPAh3k2jhWILu}# - #{e2 _hoQGWMnyQPAh3k2jhWILv}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}# + #{val -ANAU$bmvAmthP7L7xwoGM}# + #{e1 -ANAU$bmvAmthP7L7xwoGN}# + #{e2 -ANAU$bmvAmthP7L7xwoGO}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWILs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWILo}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwoGL}#)) + #{tmp -ANAU$bmvAmthP7L7xwoGH}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWIL@}# - #{val _hoQGWMnyQPAh3k2jhWIMA}# - #{e1 _hoQGWMnyQPAh3k2jhWIMB}# - #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{id _hoQGWMnyQPAh3k2jhWIL@}#)) + (lambda (#{id -ANAU$bmvAmthP7L7xwoGe}# + #{val -ANAU$bmvAmthP7L7xwoGf}# + #{e1 -ANAU$bmvAmthP7L7xwoGg}# + #{e2 -ANAU$bmvAmthP7L7xwoGh}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{id -ANAU$bmvAmthP7L7xwoGe}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e _hoQGWMnyQPAh3k2jhWILi}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWINc}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{id _hoQGWMnyQPAh3k2jhWIL@}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWINd}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{id _hoQGWMnyQPAh3k2jhWIL@}#))) - (let ((#{w _hoQGWMnyQPAh3k2jhWINe}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{id _hoQGWMnyQPAh3k2jhWIL@}# - #{labels _hoQGWMnyQPAh3k2jhWINc}# - #{w _hoQGWMnyQPAh3k2jhWILk}#)) - (#{r _hoQGWMnyQPAh3k2jhWINf}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWINc}# - #{new-vars _hoQGWMnyQPAh3k2jhWINd}# - #{r _hoQGWMnyQPAh3k2jhWILj}#))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# - #{s _hoQGWMnyQPAh3k2jhWILl}# + #{e -ANAU$bmvAmthP7L7xwoGB}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwoH7}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{id -ANAU$bmvAmthP7L7xwoGe}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwoH8}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{id -ANAU$bmvAmthP7L7xwoGe}#))) + (let ((#{w -ANAU$bmvAmthP7L7xwoH9}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{id -ANAU$bmvAmthP7L7xwoGe}# + #{labels -ANAU$bmvAmthP7L7xwoH7}# + #{w -ANAU$bmvAmthP7L7xwoGD}#)) + (#{r -ANAU$bmvAmthP7L7xwoH$}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwoH7}# + #{new-vars -ANAU$bmvAmthP7L7xwoH8}# + #{r -ANAU$bmvAmthP7L7xwoGC}#))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + #{s -ANAU$bmvAmthP7L7xwoGE}# #t - (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWIL@}#) - #{new-vars _hoQGWMnyQPAh3k2jhWINd}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIOw}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWIOw}# - #{r _hoQGWMnyQPAh3k2jhWINf}# - #{w _hoQGWMnyQPAh3k2jhWINe}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#)) - #{val _hoQGWMnyQPAh3k2jhWIMA}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWIMB}# - #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (map syntax->datum #{id -ANAU$bmvAmthP7L7xwoGe}#) + #{new-vars -ANAU$bmvAmthP7L7xwoH8}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwoJP}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwoJP}# + #{r -ANAU$bmvAmthP7L7xwoH$}# + #{w -ANAU$bmvAmthP7L7xwoH9}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#)) + #{val -ANAU$bmvAmthP7L7xwoGf}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwoGg}# + #{e2 -ANAU$bmvAmthP7L7xwoGh}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{s _hoQGWMnyQPAh3k2jhWILl}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{s -ANAU$bmvAmthP7L7xwoGE}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWILi}# - #{s _hoQGWMnyQPAh3k2jhWILl}#)) - #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{w _hoQGWMnyQPAh3k2jhWINe}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#) - #{r _hoQGWMnyQPAh3k2jhWINf}# - #{w _hoQGWMnyQPAh3k2jhWINe}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWILo}#) + #{e -ANAU$bmvAmthP7L7xwoGB}# + #{s -ANAU$bmvAmthP7L7xwoGE}#)) + #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{w -ANAU$bmvAmthP7L7xwoH9}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#) + #{r -ANAU$bmvAmthP7L7xwoH$}# + #{w -ANAU$bmvAmthP7L7xwoH9}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwoGH}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{s _hoQGWMnyQPAh3k2jhWILl}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{s -ANAU$bmvAmthP7L7xwoGE}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWILi}# - #{s _hoQGWMnyQPAh3k2jhWILl}#)) - #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{w _hoQGWMnyQPAh3k2jhWILk}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwoGB}# + #{s -ANAU$bmvAmthP7L7xwoGE}#)) + #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{w -ANAU$bmvAmthP7L7xwoGD}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'set! - (lambda (#{e _hoQGWMnyQPAh3k2jhWIVa}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIVg}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoP@}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{e -ANAU$bmvAmthP7L7xwoP5}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWIVg}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwoP@}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWIVk}# - #{val _hoQGWMnyQPAh3k2jhWIVl}#) - (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIVk}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}# + #{val -ANAU$bmvAmthP7L7xwoQE}#) + (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#) #t - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIVk}#) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWIVk}#) + #{id -ANAU$bmvAmthP7L7xwoQD}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWIVk}# + #{id -ANAU$bmvAmthP7L7xwoQD}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWIVk}# 1)) + (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) + #{tmp -ANAU$bmvAmthP7L7xwoP@}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWIWA}# - #{val _hoQGWMnyQPAh3k2jhWIWB}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWIWC}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{id _hoQGWMnyQPAh3k2jhWIWA}# - #{w _hoQGWMnyQPAh3k2jhWIVc}#)) - (#{id-mod _hoQGWMnyQPAh3k2jhWIWD}# - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIWA}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwoQf}# + #{val -ANAU$bmvAmthP7L7xwoQg}#) + (let ((#{n -ANAU$bmvAmthP7L7xwoQh}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{id -ANAU$bmvAmthP7L7xwoQf}# + #{w -ANAU$bmvAmthP7L7xwoP7}#)) + (#{id-mod -ANAU$bmvAmthP7L7xwoQi}# + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQf}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWIWA}#) + #{id -ANAU$bmvAmthP7L7xwoQf}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{id -ANAU$bmvAmthP7L7xwoQf}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _hoQGWMnyQPAh3k2jhWIWA}# 3) - #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWIWE}# - (let ((#{t _hoQGWMnyQPAh3k2jhWIWt}# - (assq #{n _hoQGWMnyQPAh3k2jhWIWC}# - #{r _hoQGWMnyQPAh3k2jhWIVb}#))) - (if #{t _hoQGWMnyQPAh3k2jhWIWt}# - (cdr #{t _hoQGWMnyQPAh3k2jhWIWt}#) - (if (symbol? #{n _hoQGWMnyQPAh3k2jhWIWC}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWIWy}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWIWC}# - #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#))) - (if #{t _hoQGWMnyQPAh3k2jhWIWy}# - #{t _hoQGWMnyQPAh3k2jhWIWy}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwoQf}# 3) + #{mod -ANAU$bmvAmthP7L7xwoP9}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwoQj}# + (let ((#{t -ANAU$bmvAmthP7L7xwoRM}# + (assq #{n -ANAU$bmvAmthP7L7xwoQh}# + #{r -ANAU$bmvAmthP7L7xwoP6}#))) + (if #{t -ANAU$bmvAmthP7L7xwoRM}# + (cdr #{t -ANAU$bmvAmthP7L7xwoRM}#) + (if (symbol? #{n -ANAU$bmvAmthP7L7xwoQh}#) + (let ((#{t -ANAU$bmvAmthP7L7xwoRR}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwoQh}# + #{id-mod -ANAU$bmvAmthP7L7xwoQi}#))) + (if #{t -ANAU$bmvAmthP7L7xwoRR}# + #{t -ANAU$bmvAmthP7L7xwoRR}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWIWF}# - (car #{b _hoQGWMnyQPAh3k2jhWIWE}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}# + (car #{b -ANAU$bmvAmthP7L7xwoQj}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'lexical) - (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIWA}#) - (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWIWB}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + (syntax->datum #{id -ANAU$bmvAmthP7L7xwoQf}#) + (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwoQg}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'global) - (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - #{n _hoQGWMnyQPAh3k2jhWIWC}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWIWB}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + #{n -ANAU$bmvAmthP7L7xwoQh}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwoQg}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + #{id-mod -ANAU$bmvAmthP7L7xwoQi}#) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'macro) - (let ((#{p _hoQGWMnyQPAh3k2jhWIbs}# - (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#))) + (let ((#{p -ANAU$bmvAmthP7L7xwoWL}# + (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#))) (if (procedure-property - #{p _hoQGWMnyQPAh3k2jhWIbs}# + #{p -ANAU$bmvAmthP7L7xwoWL}# 'variable-transformer) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - #{p _hoQGWMnyQPAh3k2jhWIbs}# - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + #{p -ANAU$bmvAmthP7L7xwoWL}# + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{s -ANAU$bmvAmthP7L7xwoP8}# #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + #{r -ANAU$bmvAmthP7L7xwoP6}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + #{mod -ANAU$bmvAmthP7L7xwoP9}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{id _hoQGWMnyQPAh3k2jhWIWA}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{id -ANAU$bmvAmthP7L7xwoQf}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{id-mod -ANAU$bmvAmthP7L7xwoQi}#)))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{id _hoQGWMnyQPAh3k2jhWIWA}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{id -ANAU$bmvAmthP7L7xwoQf}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)) (syntax-violation 'set! "bad set!" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{s -ANAU$bmvAmthP7L7xwoP8}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{s _hoQGWMnyQPAh3k2jhWIVd}#)) - #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdL}# + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{s -ANAU$bmvAmthP7L7xwoP8}#)) + #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)))))))))) + #{tmp -ANAU$bmvAmthP7L7xwoP@}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{e -ANAU$bmvAmthP7L7xwoP5}# '(_ (any . each-any) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIdL}# + (if #{tmp -ANAU$bmvAmthP7L7xwoXq}# (@apply - (lambda (#{head _hoQGWMnyQPAh3k2jhWIdP}# - #{tail _hoQGWMnyQPAh3k2jhWIdQ}# - #{val _hoQGWMnyQPAh3k2jhWIdR}#) + (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}# + #{tail -ANAU$bmvAmthP7L7xwoXv}# + #{val -ANAU$bmvAmthP7L7xwoXw}#) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{head _hoQGWMnyQPAh3k2jhWIdP}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{head -ANAU$bmvAmthP7L7xwoXu}# + #{r -ANAU$bmvAmthP7L7xwoP6}# '(()) #f #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}# + #{mod -ANAU$bmvAmthP7L7xwoP9}# #t)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWIdU}# - #{value _hoQGWMnyQPAh3k2jhWIdV}# - #{ee _hoQGWMnyQPAh3k2jhWIdW}# - #{ww _hoQGWMnyQPAh3k2jhWIdX}# - #{ss _hoQGWMnyQPAh3k2jhWIdY}# - #{modmod _hoQGWMnyQPAh3k2jhWIdZ}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWIdU}# + (lambda (#{type -ANAU$bmvAmthP7L7xwoXz}# + #{value -ANAU$bmvAmthP7L7xwoX0}# + #{ee -ANAU$bmvAmthP7L7xwoX1}# + #{ww -ANAU$bmvAmthP7L7xwoX2}# + #{ss -ANAU$bmvAmthP7L7xwoX3}# + #{modmod -ANAU$bmvAmthP7L7xwoX4}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwoXz}# 'module-ref) - (let ((#{val _hoQGWMnyQPAh3k2jhWIdd}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWIdR}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) + (let ((#{val -ANAU$bmvAmthP7L7xwoX8}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwoXw}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#))) (call-with-values (lambda () - (#{value _hoQGWMnyQPAh3k2jhWIdV}# - (cons #{head _hoQGWMnyQPAh3k2jhWIdP}# - #{tail _hoQGWMnyQPAh3k2jhWIdQ}#) - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWIde}# - #{r _hoQGWMnyQPAh3k2jhWIdf}# - #{w _hoQGWMnyQPAh3k2jhWIdg}# - #{s* _hoQGWMnyQPAh3k2jhWIdh}# - #{mod _hoQGWMnyQPAh3k2jhWIdi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdk}# - (list #{e _hoQGWMnyQPAh3k2jhWIde}#))) + (#{value -ANAU$bmvAmthP7L7xwoX0}# + (cons #{head -ANAU$bmvAmthP7L7xwoXu}# + #{tail -ANAU$bmvAmthP7L7xwoXv}#) + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwoX9}# + #{r -ANAU$bmvAmthP7L7xwoX$}# + #{w -ANAU$bmvAmthP7L7xwoX@}# + #{s* -ANAU$bmvAmthP7L7xwoYA}# + #{mod -ANAU$bmvAmthP7L7xwoYB}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoYD}# + (list #{e -ANAU$bmvAmthP7L7xwoX9}#))) (if (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWIdm}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwoYF}#) (if (symbol? - #{e _hoQGWMnyQPAh3k2jhWIdm}#) + #{e -ANAU$bmvAmthP7L7xwoYF}#) #t (if (if (vector? - #{e _hoQGWMnyQPAh3k2jhWIdm}#) + #{e -ANAU$bmvAmthP7L7xwoYF}#) (if (= (vector-length - #{e _hoQGWMnyQPAh3k2jhWIdm}#) + #{e -ANAU$bmvAmthP7L7xwoYF}#) 4) (eq? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWIdm}# + #{e -ANAU$bmvAmthP7L7xwoYF}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWIdm}# + #{e -ANAU$bmvAmthP7L7xwoYF}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) + #{tmp -ANAU$bmvAmthP7L7xwoYD}#) (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWIeE}#) - (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#) + (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# + #{s -ANAU$bmvAmthP7L7xwoP8}# (syntax->datum - #{e _hoQGWMnyQPAh3k2jhWIeE}#) - #{val _hoQGWMnyQPAh3k2jhWIdd}# - #{mod _hoQGWMnyQPAh3k2jhWIdi}#)) - #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) + #{e -ANAU$bmvAmthP7L7xwoYj}#) + #{val -ANAU$bmvAmthP7L7xwoX8}# + #{mod -ANAU$bmvAmthP7L7xwoYB}#)) + #{tmp -ANAU$bmvAmthP7L7xwoYD}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIde}#)))))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - (let ((#{e _hoQGWMnyQPAh3k2jhWIhl}# + #{e -ANAU$bmvAmthP7L7xwoX9}#)))))) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + (let ((#{e -ANAU$bmvAmthP7L7xwocE}# (list '#(syntax-object setter ((top) @@ -10505,16 +10483,16 @@ (top) (top) (top)) - #("2sa" - "2sb" - "2sc" - "2sd" - "2se" - "2sf")) + #("142" + "143" + "144" + "145" + "146" + "147")) #(ribcage #(head tail val) #((top) (top) (top)) - #("2s7" "2s8" "2s9")) + #("13z" "140" "141")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10523,11 +10501,11 @@ (top) (top) (top)) - #("2rt" - "2ru" - "2rv" - "2rw" - "2rx")) + #("13l" + "13m" + "13n" + "13o" + "13p")) #(ribcage (lambda-var-list gen-var @@ -10809,268 +10787,268 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{head _hoQGWMnyQPAh3k2jhWIdP}#))) + #{head -ANAU$bmvAmthP7L7xwoXu}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWIhl}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWIhl}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwocE}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwocE}#) #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}# + #{mod -ANAU$bmvAmthP7L7xwoP9}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWIhs}# - #{value _hoQGWMnyQPAh3k2jhWIht}# - #{e _hoQGWMnyQPAh3k2jhWIhu}# - #{w _hoQGWMnyQPAh3k2jhWIhv}# - #{s _hoQGWMnyQPAh3k2jhWIhw}# - #{mod _hoQGWMnyQPAh3k2jhWIhx}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWIhs}# - #{value _hoQGWMnyQPAh3k2jhWIht}# - #{e _hoQGWMnyQPAh3k2jhWIhu}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIhv}# - #{s _hoQGWMnyQPAh3k2jhWIhw}# - #{mod _hoQGWMnyQPAh3k2jhWIhx}#)))) - (map (lambda (#{e _hoQGWMnyQPAh3k2jhWIh1}#) + (lambda (#{type -ANAU$bmvAmthP7L7xwocL}# + #{value -ANAU$bmvAmthP7L7xwocM}# + #{e -ANAU$bmvAmthP7L7xwocN}# + #{w -ANAU$bmvAmthP7L7xwocO}# + #{s -ANAU$bmvAmthP7L7xwocP}# + #{mod -ANAU$bmvAmthP7L7xwocQ}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwocL}# + #{value -ANAU$bmvAmthP7L7xwocM}# + #{e -ANAU$bmvAmthP7L7xwocN}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwocO}# + #{s -ANAU$bmvAmthP7L7xwocP}# + #{mod -ANAU$bmvAmthP7L7xwocQ}#)))) + (map (lambda (#{e -ANAU$bmvAmthP7L7xwocU}#) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWIh1}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWIh1}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwocU}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwocU}#) #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}# + #{mod -ANAU$bmvAmthP7L7xwoP9}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWIiE}# - #{value _hoQGWMnyQPAh3k2jhWIiF}# - #{e _hoQGWMnyQPAh3k2jhWIiG}# - #{w _hoQGWMnyQPAh3k2jhWIiH}# - #{s _hoQGWMnyQPAh3k2jhWIiI}# - #{mod _hoQGWMnyQPAh3k2jhWIiJ}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWIiE}# - #{value _hoQGWMnyQPAh3k2jhWIiF}# - #{e _hoQGWMnyQPAh3k2jhWIiG}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIiH}# - #{s _hoQGWMnyQPAh3k2jhWIiI}# - #{mod _hoQGWMnyQPAh3k2jhWIiJ}#)))) + (lambda (#{type -ANAU$bmvAmthP7L7xwocj}# + #{value -ANAU$bmvAmthP7L7xwock}# + #{e -ANAU$bmvAmthP7L7xwocl}# + #{w -ANAU$bmvAmthP7L7xwocm}# + #{s -ANAU$bmvAmthP7L7xwocn}# + #{mod -ANAU$bmvAmthP7L7xwoco}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwocj}# + #{value -ANAU$bmvAmthP7L7xwock}# + #{e -ANAU$bmvAmthP7L7xwocl}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwocm}# + #{s -ANAU$bmvAmthP7L7xwocn}# + #{mod -ANAU$bmvAmthP7L7xwoco}#)))) (append - #{tail _hoQGWMnyQPAh3k2jhWIdQ}# - (list #{val _hoQGWMnyQPAh3k2jhWIdR}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWIdL}#) + #{tail -ANAU$bmvAmthP7L7xwoXv}# + (list #{val -ANAU$bmvAmthP7L7xwoXw}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwoXq}#) (syntax-violation 'set! "bad set!" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{s -ANAU$bmvAmthP7L7xwoP8}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{s _hoQGWMnyQPAh3k2jhWIVd}#)) - #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))) + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{s -ANAU$bmvAmthP7L7xwoP8}#)) + #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e _hoQGWMnyQPAh3k2jhWIi0}# - #{r _hoQGWMnyQPAh3k2jhWIi1}# - #{w _hoQGWMnyQPAh3k2jhWIi2}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIi4}# + (lambda (#{e -ANAU$bmvAmthP7L7xwodT}# + #{r -ANAU$bmvAmthP7L7xwodU}# + #{w -ANAU$bmvAmthP7L7xwodV}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIi0}# + #{e -ANAU$bmvAmthP7L7xwodT}# '(_ each-any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWIi4}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}# (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIi7}# - #{id _hoQGWMnyQPAh3k2jhWIi8}#) + (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}# + #{id -ANAU$bmvAmthP7L7xwodb}#) (if (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{mod _hoQGWMnyQPAh3k2jhWIi7}#) - (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIi8}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{mod -ANAU$bmvAmthP7L7xwoda}#) + (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#) #t - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIi8}#) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWIi8}#) + #{id -ANAU$bmvAmthP7L7xwodb}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWIi8}# + #{id -ANAU$bmvAmthP7L7xwodb}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWIi8}# 1)) + (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1)) #f)) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) + #{tmp -ANAU$bmvAmthP7L7xwodX}#) #f) (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIjk}# - #{id _hoQGWMnyQPAh3k2jhWIjl}#) + (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}# + #{id -ANAU$bmvAmthP7L7xwoeE}#) (values - (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIjl}#) - #{r _hoQGWMnyQPAh3k2jhWIi1}# - #{w _hoQGWMnyQPAh3k2jhWIi2}# + (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#) + #{r -ANAU$bmvAmthP7L7xwodU}# + #{w -ANAU$bmvAmthP7L7xwodV}# #f (syntax->datum (cons '#(syntax-object @@ -11079,12 +11057,12 @@ #(ribcage #(mod id) #((top) (top)) - #("2sv" "2sw")) + #("14n" "14o")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("2sq" "2sr" "2ss")) + #("14i" "14j" "14k")) #(ribcage (lambda-var-list gen-var @@ -11366,235 +11344,235 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{mod _hoQGWMnyQPAh3k2jhWIjk}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) + #{mod -ANAU$bmvAmthP7L7xwoeD}#)))) + #{tmp -ANAU$bmvAmthP7L7xwodX}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIi0}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwodT}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'module-ref '@@ - (lambda (#{e _hoQGWMnyQPAh3k2jhWIlB}# - #{r _hoQGWMnyQPAh3k2jhWIlC}# - #{w _hoQGWMnyQPAh3k2jhWIlD}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwofg}# + #{r -ANAU$bmvAmthP7L7xwofh}# + #{w -ANAU$bmvAmthP7L7xwofi}#) (letrec* - ((#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWIln}# - #{mod _hoQGWMnyQPAh3k2jhWIlo}#) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWIln}#) - (cons (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (car #{x _hoQGWMnyQPAh3k2jhWIln}#) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#) - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (cdr #{x _hoQGWMnyQPAh3k2jhWIln}#) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#) + ((#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (lambda (#{x -ANAU$bmvAmthP7L7xwogG}# + #{mod -ANAU$bmvAmthP7L7xwogH}#) + (if (pair? #{x -ANAU$bmvAmthP7L7xwogG}#) + (cons (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (car #{x -ANAU$bmvAmthP7L7xwogG}#) + #{mod -ANAU$bmvAmthP7L7xwogH}#) + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (cdr #{x -ANAU$bmvAmthP7L7xwogG}#) + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 0) 'syntax-object) #f) #f) - (let ((#{expression _hoQGWMnyQPAh3k2jhWIl2}# - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 1) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (#{wrap _hoQGWMnyQPAh3k2jhWIl3}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 2))) + (let ((#{expression -ANAU$bmvAmthP7L7xwogV}# + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 1) + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (#{wrap -ANAU$bmvAmthP7L7xwogW}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 2))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWIl2}# - #{wrap _hoQGWMnyQPAh3k2jhWIl3}# - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWIl@}# - (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#))) - (let ((#{v _hoQGWMnyQPAh3k2jhWImA}# - (make-vector #{n _hoQGWMnyQPAh3k2jhWIl@}#))) + #{expression -ANAU$bmvAmthP7L7xwogV}# + #{wrap -ANAU$bmvAmthP7L7xwogW}# + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#) + (let ((#{n -ANAU$bmvAmthP7L7xwoge}# + (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#))) + (let ((#{v -ANAU$bmvAmthP7L7xwogf}# + (make-vector #{n -ANAU$bmvAmthP7L7xwoge}#))) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWImB}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWImw}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWImw}# - #{n _hoQGWMnyQPAh3k2jhWIl@}#) - #{v _hoQGWMnyQPAh3k2jhWImA}# + ((#{loop -ANAU$bmvAmthP7L7xwogg}# + (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#) + (if (= #{i -ANAU$bmvAmthP7L7xwohP}# + #{n -ANAU$bmvAmthP7L7xwoge}#) + #{v -ANAU$bmvAmthP7L7xwogf}# (begin (vector-set! - #{v _hoQGWMnyQPAh3k2jhWImA}# - #{i _hoQGWMnyQPAh3k2jhWImw}# - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + #{v -ANAU$bmvAmthP7L7xwogf}# + #{i -ANAU$bmvAmthP7L7xwohP}# + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# (vector-ref - #{x _hoQGWMnyQPAh3k2jhWIln}# - #{i _hoQGWMnyQPAh3k2jhWImw}#) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (#{loop _hoQGWMnyQPAh3k2jhWImB}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWImw}#))))))) - (#{loop _hoQGWMnyQPAh3k2jhWImB}# 0)))) - #{x _hoQGWMnyQPAh3k2jhWIln}#)))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIlG}# + #{x -ANAU$bmvAmthP7L7xwogG}# + #{i -ANAU$bmvAmthP7L7xwohP}#) + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (#{loop -ANAU$bmvAmthP7L7xwogg}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwohP}#))))))) + (#{loop -ANAU$bmvAmthP7L7xwogg}# 0)))) + #{x -ANAU$bmvAmthP7L7xwogG}#)))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwofl}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIlB}# + #{e -ANAU$bmvAmthP7L7xwofg}# '(_ each-any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWIlG}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}# (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlK}# - #{exp _hoQGWMnyQPAh3k2jhWIlL}#) + (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}# + #{exp -ANAU$bmvAmthP7L7xwofq}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{mod _hoQGWMnyQPAh3k2jhWIlK}#)) - #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{mod -ANAU$bmvAmthP7L7xwofp}#)) + #{tmp -ANAU$bmvAmthP7L7xwofl}#) #f) (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlb}# - #{exp _hoQGWMnyQPAh3k2jhWIlc}#) - (let ((#{mod _hoQGWMnyQPAh3k2jhWIld}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}# + #{exp -ANAU$bmvAmthP7L7xwof7}#) + (let ((#{mod -ANAU$bmvAmthP7L7xwof8}# (syntax->datum (cons '#(syntax-object private @@ -11602,12 +11580,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("2t9" "2ta")) - #(ribcage (remodulate) ((top)) ("2t0")) + #("151" "152")) + #(ribcage (remodulate) ((top)) ("14s")) #(ribcage #(e r w) #((top) (top) (top)) - #("2sx" "2sy" "2sz")) + #("14p" "14q" "14r")) #(ribcage (lambda-var-list gen-var @@ -11889,287 +11867,287 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{mod _hoQGWMnyQPAh3k2jhWIlb}#)))) + #{mod -ANAU$bmvAmthP7L7xwof6}#)))) (values - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - #{exp _hoQGWMnyQPAh3k2jhWIlc}# - #{mod _hoQGWMnyQPAh3k2jhWIld}#) - #{r _hoQGWMnyQPAh3k2jhWIlC}# - #{w _hoQGWMnyQPAh3k2jhWIlD}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{exp _hoQGWMnyQPAh3k2jhWIlc}#) - #{mod _hoQGWMnyQPAh3k2jhWIld}#))) - #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + #{exp -ANAU$bmvAmthP7L7xwof7}# + #{mod -ANAU$bmvAmthP7L7xwof8}#) + #{r -ANAU$bmvAmthP7L7xwofh}# + #{w -ANAU$bmvAmthP7L7xwofi}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{exp -ANAU$bmvAmthP7L7xwof7}#) + #{mod -ANAU$bmvAmthP7L7xwof8}#))) + #{tmp -ANAU$bmvAmthP7L7xwofl}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIlB}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwofg}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'if - (lambda (#{e _hoQGWMnyQPAh3k2jhWIoV}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{s _hoQGWMnyQPAh3k2jhWIoY}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIob}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{s -ANAU$bmvAmthP7L7xwoi3}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIoV}# + #{e -ANAU$bmvAmthP7L7xwoi0}# '(_ any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIob}# + (if #{tmp -ANAU$bmvAmthP7L7xwoi6}# (@apply - (lambda (#{test _hoQGWMnyQPAh3k2jhWIof}# - #{then _hoQGWMnyQPAh3k2jhWIog}#) - (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# - #{s _hoQGWMnyQPAh3k2jhWIoY}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{test _hoQGWMnyQPAh3k2jhWIof}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{then _hoQGWMnyQPAh3k2jhWIog}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (lambda (#{test -ANAU$bmvAmthP7L7xwoi$}# + #{then -ANAU$bmvAmthP7L7xwoi@}#) + (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}# + #{s -ANAU$bmvAmthP7L7xwoi3}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{test -ANAU$bmvAmthP7L7xwoi$}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{then -ANAU$bmvAmthP7L7xwoi@}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWIob}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIsB}# + #{tmp -ANAU$bmvAmthP7L7xwoi6}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIoV}# + #{e -ANAU$bmvAmthP7L7xwoi0}# '(_ any any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIsB}# + (if #{tmp -ANAU$bmvAmthP7L7xwomg}# (@apply - (lambda (#{test _hoQGWMnyQPAh3k2jhWIsF}# - #{then _hoQGWMnyQPAh3k2jhWIsG}# - #{else _hoQGWMnyQPAh3k2jhWIsH}#) - (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# - #{s _hoQGWMnyQPAh3k2jhWIoY}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{test _hoQGWMnyQPAh3k2jhWIsF}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{then _hoQGWMnyQPAh3k2jhWIsG}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{else _hoQGWMnyQPAh3k2jhWIsH}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#))) - #{tmp _hoQGWMnyQPAh3k2jhWIsB}#) + (lambda (#{test -ANAU$bmvAmthP7L7xwomk}# + #{then -ANAU$bmvAmthP7L7xwoml}# + #{else -ANAU$bmvAmthP7L7xwomm}#) + (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}# + #{s -ANAU$bmvAmthP7L7xwoi3}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{test -ANAU$bmvAmthP7L7xwomk}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{then -ANAU$bmvAmthP7L7xwoml}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{else -ANAU$bmvAmthP7L7xwomm}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#))) + #{tmp -ANAU$bmvAmthP7L7xwomg}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIoV}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwoi0}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'with-fluids - (lambda (#{e _hoQGWMnyQPAh3k2jhWIyW}# - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{s _hoQGWMnyQPAh3k2jhWIyZ}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIyc}# + (lambda (#{e -ANAU$bmvAmthP7L7xwos1}# + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{s -ANAU$bmvAmthP7L7xwos4}# + #{mod -ANAU$bmvAmthP7L7xwos5}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIyW}# + #{e -ANAU$bmvAmthP7L7xwos1}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIyc}# + (if #{tmp -ANAU$bmvAmthP7L7xwos7}# (@apply - (lambda (#{fluid _hoQGWMnyQPAh3k2jhWIyg}# - #{val _hoQGWMnyQPAh3k2jhWIyh}# - #{b _hoQGWMnyQPAh3k2jhWIyi}# - #{b* _hoQGWMnyQPAh3k2jhWIyj}#) - (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# - #{s _hoQGWMnyQPAh3k2jhWIyZ}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIz0}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWIz0}# - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#)) - #{fluid _hoQGWMnyQPAh3k2jhWIyg}#) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWI06}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWI06}# - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#)) - #{val _hoQGWMnyQPAh3k2jhWIyh}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{b _hoQGWMnyQPAh3k2jhWIyi}# - #{b* _hoQGWMnyQPAh3k2jhWIyj}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{fluid -ANAU$bmvAmthP7L7xwos@}# + #{val -ANAU$bmvAmthP7L7xwotA}# + #{b -ANAU$bmvAmthP7L7xwotB}# + #{b* -ANAU$bmvAmthP7L7xwotC}#) + (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}# + #{s -ANAU$bmvAmthP7L7xwos4}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwouT}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwouT}# + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#)) + #{fluid -ANAU$bmvAmthP7L7xwos@}#) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwovZ}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwovZ}# + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#)) + #{val -ANAU$bmvAmthP7L7xwotA}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{b -ANAU$bmvAmthP7L7xwotB}# + #{b* -ANAU$bmvAmthP7L7xwotC}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIyW}#) - #{s _hoQGWMnyQPAh3k2jhWIyZ}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#) + #{s -ANAU$bmvAmthP7L7xwos4}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWIyW}# - #{s _hoQGWMnyQPAh3k2jhWIyZ}#)) - #{e _hoQGWMnyQPAh3k2jhWIyW}#) - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#) - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#))) - #{tmp _hoQGWMnyQPAh3k2jhWIyc}#) + #{e -ANAU$bmvAmthP7L7xwos1}# + #{s -ANAU$bmvAmthP7L7xwos4}#)) + #{e -ANAU$bmvAmthP7L7xwos1}#) + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#) + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#))) + #{tmp -ANAU$bmvAmthP7L7xwos7}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIyW}#))))) + #{e -ANAU$bmvAmthP7L7xwos1}#))))) (module-define! (current-module) 'begin @@ -12199,100 +12177,100 @@ 'eval-when 'eval-when '())) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'syntax-case (letrec* - ((#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# - (lambda (#{pattern _hoQGWMnyQPAh3k2jhWJTl}# - #{keys _hoQGWMnyQPAh3k2jhWJTm}#) + ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}# + (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}# + #{keys -ANAU$bmvAmthP7L7xwpOF}#) (letrec* - ((#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# - (lambda (#{p* _hoQGWMnyQPAh3k2jhWJdX}# - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) - (if (not (pair? #{p* _hoQGWMnyQPAh3k2jhWJdX}#)) - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{p* _hoQGWMnyQPAh3k2jhWJdX}# - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) + ((#{cvt* -ANAU$bmvAmthP7L7xwpOG}# + (lambda (#{p* -ANAU$bmvAmthP7L7xwpX2}# + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX4}#) + (if (not (pair? #{p* -ANAU$bmvAmthP7L7xwpX2}#)) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{p* -ANAU$bmvAmthP7L7xwpX2}# + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX4}#) (call-with-values (lambda () - (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# - (cdr #{p* _hoQGWMnyQPAh3k2jhWJdX}#) - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWJdc}# - #{ids _hoQGWMnyQPAh3k2jhWJdd}#) + (#{cvt* -ANAU$bmvAmthP7L7xwpOG}# + (cdr #{p* -ANAU$bmvAmthP7L7xwpX2}#) + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX4}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwpX7}# + #{ids -ANAU$bmvAmthP7L7xwpX8}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - (car #{p* _hoQGWMnyQPAh3k2jhWJdX}#) - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdd}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWJdg}# - #{ids _hoQGWMnyQPAh3k2jhWJdh}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + (car #{p* -ANAU$bmvAmthP7L7xwpX2}#) + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX8}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwpX@}# + #{ids -ANAU$bmvAmthP7L7xwpYA}#) (values - (cons #{x _hoQGWMnyQPAh3k2jhWJdg}# - #{y _hoQGWMnyQPAh3k2jhWJdc}#) - #{ids _hoQGWMnyQPAh3k2jhWJdh}#)))))))) - (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWJdi}#) + (cons #{x -ANAU$bmvAmthP7L7xwpX@}# + #{y -ANAU$bmvAmthP7L7xwpX7}#) + #{ids -ANAU$bmvAmthP7L7xwpYA}#)))))))) + (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}# + (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWJdj}# - (lambda (#{r _hoQGWMnyQPAh3k2jhWJez}# - #{x _hoQGWMnyQPAh3k2jhWJe0}#) - (if (not (pair? #{x _hoQGWMnyQPAh3k2jhWJe0}#)) + ((#{loop -ANAU$bmvAmthP7L7xwpYC}# + (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}# + #{x -ANAU$bmvAmthP7L7xwpZT}#) + (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#)) (values - #{r _hoQGWMnyQPAh3k2jhWJez}# - #{x _hoQGWMnyQPAh3k2jhWJe0}#) - (#{loop _hoQGWMnyQPAh3k2jhWJdj}# - (cons (car #{x _hoQGWMnyQPAh3k2jhWJe0}#) - #{r _hoQGWMnyQPAh3k2jhWJez}#) - (cdr #{x _hoQGWMnyQPAh3k2jhWJe0}#)))))) - (#{loop _hoQGWMnyQPAh3k2jhWJdj}# + #{r -ANAU$bmvAmthP7L7xwpZS}# + #{x -ANAU$bmvAmthP7L7xwpZT}#) + (#{loop -ANAU$bmvAmthP7L7xwpYC}# + (cons (car #{x -ANAU$bmvAmthP7L7xwpZT}#) + #{r -ANAU$bmvAmthP7L7xwpZS}#) + (cdr #{x -ANAU$bmvAmthP7L7xwpZT}#)))))) + (#{loop -ANAU$bmvAmthP7L7xwpYC}# '() - #{x _hoQGWMnyQPAh3k2jhWJdi}#)))) - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWJTs}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#) - (if (if (symbol? #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{x -ANAU$bmvAmthP7L7xwpYB}#)))) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + (lambda (#{p -ANAU$bmvAmthP7L7xwpOL}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#) + (if (if (symbol? #{p -ANAU$bmvAmthP7L7xwpOL}#) #t - (if (if (vector? #{p _hoQGWMnyQPAh3k2jhWJTs}#) + (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#) (if (= (vector-length - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) 4) (eq? (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJTs}# 1)) + (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1)) #f)) - (if (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - #{p _hoQGWMnyQPAh3k2jhWJTs}# - #{keys _hoQGWMnyQPAh3k2jhWJTm}#) + (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + #{p -ANAU$bmvAmthP7L7xwpOL}# + #{keys -ANAU$bmvAmthP7L7xwpOF}#) (values - (vector 'free-id #{p _hoQGWMnyQPAh3k2jhWJTs}#) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#) + (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#) + #{ids -ANAU$bmvAmthP7L7xwpON}#) (if (if (eq? (if (if (vector? - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) (if (= (vector-length - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) 4) (eq? (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# 0) 'syntax-object) #f) #f) (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# 1) - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) (if (if (= (vector-length '#(syntax-object _ @@ -12301,15 +12279,15 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("2uh" "2ui" "2uj")) + #("169" "16a" "16b")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("2u5" "2u4" "2u3")) + ("15x" "15w" "15v")) #(ribcage #(pattern keys) #((top) (top)) - #("2u1" "2u2")) + #("15t" "15u")) #(ribcage (gen-syntax-case gen-clause @@ -12319,10 +12297,10 @@ (top) (top) (top)) - ("2u0" - "2tz" - "2ty" - "2tx")) + ("15s" + "15r" + "15q" + "15p")) #(ribcage (lambda-var-list gen-var @@ -12604,152 +12582,152 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -12762,22 +12740,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("2uh" "2ui" "2uj")) + #("169" "16a" "16b")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("2u5" "2u4" "2u3")) + ("15x" "15w" "15v")) #(ribcage #(pattern keys) #((top) (top)) - #("2u1" "2u2")) + #("15t" "15u")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -13059,157 +13037,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{p _hoQGWMnyQPAh3k2jhWJTs}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object _ ((top) @@ -13217,22 +13195,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("2uh" "2ui" "2uj")) + #("169" "16a" "16b")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("2u5" "2u4" "2u3")) + ("15x" "15w" "15v")) #(ribcage #(pattern keys) #((top) (top)) - #("2u1" "2u2")) + #("15t" "15u")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -13514,200 +13492,200 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) - (values '_ #{ids _hoQGWMnyQPAh3k2jhWJTu}#) + (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#) (values 'any - (cons (cons #{p _hoQGWMnyQPAh3k2jhWJTs}# - #{n _hoQGWMnyQPAh3k2jhWJTt}#) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJYu}# + (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}# + #{n -ANAU$bmvAmthP7L7xwpOM}#) + #{ids -ANAU$bmvAmthP7L7xwpON}#)))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWJYu}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJYy}# - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}# + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 1)) #f) (if (eq? (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 1) - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (if (= (vector-length '#(syntax-object ... @@ -13723,7 +13701,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -14005,146 +13983,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -14152,9 +14130,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -14169,7 +14147,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -14451,157 +14429,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -14610,7 +14588,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -14892,218 +14870,218 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) + #{tmp -ANAU$bmvAmthP7L7xwpTN}#) #f) (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJaX}# - #{dots _hoQGWMnyQPAh3k2jhWJaY}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}# + #{dots -ANAU$bmvAmthP7L7xwpU3}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJaX}# - (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{p _hoQGWMnyQPAh3k2jhWJaZ}# - #{ids _hoQGWMnyQPAh3k2jhWJaa}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpU2}# + (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#) + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}# + #{ids -ANAU$bmvAmthP7L7xwpU5}#) (values - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJaZ}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}# 'any) 'each-any (vector 'each - #{p _hoQGWMnyQPAh3k2jhWJaZ}#)) - #{ids _hoQGWMnyQPAh3k2jhWJaa}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJab}# + #{p -ANAU$bmvAmthP7L7xwpU4}#)) + #{ids -ANAU$bmvAmthP7L7xwpU5}#)))) + #{tmp -ANAU$bmvAmthP7L7xwpTN}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(any any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWJab}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJaf}# - #{dots _hoQGWMnyQPAh3k2jhWJag}# - #{ys _hoQGWMnyQPAh3k2jhWJah}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# + #{ys -ANAU$bmvAmthP7L7xwpVA}#) (if (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 1)) #f) (if (eq? (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 1) - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) (if (if (= (vector-length '#(syntax-object ... @@ -15119,7 +15097,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -15401,146 +15379,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -15548,9 +15526,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -15565,7 +15543,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -15847,159 +15825,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{dots _hoQGWMnyQPAh3k2jhWJag}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -16008,7 +15984,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -16290,281 +16266,281 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWJab}#) + #{tmp -ANAU$bmvAmthP7L7xwpU6}#) #f) (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJcF}# - #{dots _hoQGWMnyQPAh3k2jhWJcG}# - #{ys _hoQGWMnyQPAh3k2jhWJcH}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}# + #{dots -ANAU$bmvAmthP7L7xwpWl}# + #{ys -ANAU$bmvAmthP7L7xwpWm}#) (call-with-values (lambda () - (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# - #{ys _hoQGWMnyQPAh3k2jhWJcH}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcK}# - #{ids _hoQGWMnyQPAh3k2jhWJcL}#) + (#{cvt* -ANAU$bmvAmthP7L7xwpOG}# + #{ys -ANAU$bmvAmthP7L7xwpWm}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}# + #{ids -ANAU$bmvAmthP7L7xwpWq}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJcF}# - (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) - #{ids _hoQGWMnyQPAh3k2jhWJcL}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWJcM}# - #{ids _hoQGWMnyQPAh3k2jhWJcN}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpWk}# + (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#) + #{ids -ANAU$bmvAmthP7L7xwpWq}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwpWr}# + #{ids -ANAU$bmvAmthP7L7xwpWs}#) (call-with-values (lambda () - (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# - #{ys _hoQGWMnyQPAh3k2jhWJcK}#)) - (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcu}# - #{e _hoQGWMnyQPAh3k2jhWJcv}#) + (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}# + #{ys -ANAU$bmvAmthP7L7xwpWp}#)) + (lambda (#{ys -ANAU$bmvAmthP7L7xwpXN}# + #{e -ANAU$bmvAmthP7L7xwpXO}#) (values (vector 'each+ - #{x _hoQGWMnyQPAh3k2jhWJcM}# - #{ys _hoQGWMnyQPAh3k2jhWJcu}# - #{e _hoQGWMnyQPAh3k2jhWJcv}#) - #{ids _hoQGWMnyQPAh3k2jhWJcN}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWJab}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJcw}# + #{x -ANAU$bmvAmthP7L7xwpWr}# + #{ys -ANAU$bmvAmthP7L7xwpXN}# + #{e -ANAU$bmvAmthP7L7xwpXO}#) + #{ids -ANAU$bmvAmthP7L7xwpWs}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwpU6}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJcw}# + (if #{tmp -ANAU$bmvAmthP7L7xwpXP}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJc0}# - #{y _hoQGWMnyQPAh3k2jhWJc1}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}# + #{y -ANAU$bmvAmthP7L7xwpXU}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{y _hoQGWMnyQPAh3k2jhWJc1}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWJc2}# - #{ids _hoQGWMnyQPAh3k2jhWJc3}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{y -ANAU$bmvAmthP7L7xwpXU}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}# + #{ids -ANAU$bmvAmthP7L7xwpXW}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJc0}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJc3}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWJc4}# - #{ids _hoQGWMnyQPAh3k2jhWJc5}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpXT}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpXW}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwpXX}# + #{ids -ANAU$bmvAmthP7L7xwpXY}#) (values - (cons #{x _hoQGWMnyQPAh3k2jhWJc4}# - #{y _hoQGWMnyQPAh3k2jhWJc2}#) - #{ids _hoQGWMnyQPAh3k2jhWJc5}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWJcw}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc6}# + (cons #{x -ANAU$bmvAmthP7L7xwpXX}# + #{y -ANAU$bmvAmthP7L7xwpXV}#) + #{ids -ANAU$bmvAmthP7L7xwpXY}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwpXP}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJc6}# + (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}# (@apply (lambda () (values '() - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - #{tmp _hoQGWMnyQPAh3k2jhWJc6}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc$}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + #{tmp -ANAU$bmvAmthP7L7xwpXZ}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '#(vector each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJc$}# + (if #{tmp -ANAU$bmvAmthP7L7xwpXd}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJdC}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpXh}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJdC}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{p _hoQGWMnyQPAh3k2jhWJdD}# - #{ids _hoQGWMnyQPAh3k2jhWJdE}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpXh}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{p -ANAU$bmvAmthP7L7xwpXi}# + #{ids -ANAU$bmvAmthP7L7xwpXj}#) (values (vector 'vector - #{p _hoQGWMnyQPAh3k2jhWJdD}#) - #{ids _hoQGWMnyQPAh3k2jhWJdE}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWJc$}#) + #{p -ANAU$bmvAmthP7L7xwpXi}#) + #{ids -ANAU$bmvAmthP7L7xwpXj}#)))) + #{tmp -ANAU$bmvAmthP7L7xwpXd}#) (values (vector 'atom - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{p _hoQGWMnyQPAh3k2jhWJTs}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(()))) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#))))))))))))))) - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{pattern _hoQGWMnyQPAh3k2jhWJTl}# + #{ids -ANAU$bmvAmthP7L7xwpON}#))))))))))))))) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{pattern -ANAU$bmvAmthP7L7xwpOE}# 0 '())))) - (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# - (lambda (#{pvars _hoQGWMnyQPAh3k2jhWJe1}# - #{exp _hoQGWMnyQPAh3k2jhWJe2}# - #{y _hoQGWMnyQPAh3k2jhWJe3}# - #{r _hoQGWMnyQPAh3k2jhWJe4}# - #{mod _hoQGWMnyQPAh3k2jhWJe5}#) - (let ((#{ids _hoQGWMnyQPAh3k2jhWJe6}# - (map car #{pvars _hoQGWMnyQPAh3k2jhWJe1}#))) + (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}# + (lambda (#{pvars -ANAU$bmvAmthP7L7xwpZU}# + #{exp -ANAU$bmvAmthP7L7xwpZV}# + #{y -ANAU$bmvAmthP7L7xwpZW}# + #{r -ANAU$bmvAmthP7L7xwpZX}# + #{mod -ANAU$bmvAmthP7L7xwpZY}#) + (let ((#{ids -ANAU$bmvAmthP7L7xwpZZ}# + (map car #{pvars -ANAU$bmvAmthP7L7xwpZU}#))) (begin - (map cdr #{pvars _hoQGWMnyQPAh3k2jhWJe1}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWJe8}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{ids _hoQGWMnyQPAh3k2jhWJe6}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWJe9}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{ids _hoQGWMnyQPAh3k2jhWJe6}#))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (map cdr #{pvars -ANAU$bmvAmthP7L7xwpZU}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwpZb}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{ids -ANAU$bmvAmthP7L7xwpZZ}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwpZc}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{ids -ANAU$bmvAmthP7L7xwpZZ}#))) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -16577,89 +16553,89 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# #f (map syntax->datum - #{ids _hoQGWMnyQPAh3k2jhWJe6}#) + #{ids -ANAU$bmvAmthP7L7xwpZZ}#) #f - #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# + #{new-vars -ANAU$bmvAmthP7L7xwpZc}# '() - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{exp _hoQGWMnyQPAh3k2jhWJe2}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWJe8}# - (map (lambda (#{var _hoQGWMnyQPAh3k2jhWJj8}# - #{level _hoQGWMnyQPAh3k2jhWJj9}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{exp -ANAU$bmvAmthP7L7xwpZV}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwpZb}# + (map (lambda (#{var -ANAU$bmvAmthP7L7xwpeb}# + #{level -ANAU$bmvAmthP7L7xwpec}#) (cons 'syntax - (cons #{var _hoQGWMnyQPAh3k2jhWJj8}# - #{level _hoQGWMnyQPAh3k2jhWJj9}#))) - #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# + (cons #{var -ANAU$bmvAmthP7L7xwpeb}# + #{level -ANAU$bmvAmthP7L7xwpec}#))) + #{new-vars -ANAU$bmvAmthP7L7xwpZc}# (map cdr - #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)) - #{r _hoQGWMnyQPAh3k2jhWJe4}#) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{ids _hoQGWMnyQPAh3k2jhWJe6}# - #{labels _hoQGWMnyQPAh3k2jhWJe8}# + #{pvars -ANAU$bmvAmthP7L7xwpZU}#)) + #{r -ANAU$bmvAmthP7L7xwpZX}#) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{ids -ANAU$bmvAmthP7L7xwpZZ}# + #{labels -ANAU$bmvAmthP7L7xwpZb}# '(())) - #{mod _hoQGWMnyQPAh3k2jhWJe5}#)) - #{y _hoQGWMnyQPAh3k2jhWJe3}#))))))) - (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWJJx}# - #{keys _hoQGWMnyQPAh3k2jhWJJy}# - #{clauses _hoQGWMnyQPAh3k2jhWJJz}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{pat _hoQGWMnyQPAh3k2jhWJJ1}# - #{fender _hoQGWMnyQPAh3k2jhWJJ2}# - #{exp _hoQGWMnyQPAh3k2jhWJJ3}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#) + #{mod -ANAU$bmvAmthP7L7xwpZY}#)) + #{y -ANAU$bmvAmthP7L7xwpZW}#))))))) + (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}# + (lambda (#{x -ANAU$bmvAmthP7L7xwpEQ}# + #{keys -ANAU$bmvAmthP7L7xwpER}# + #{clauses -ANAU$bmvAmthP7L7xwpES}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{pat -ANAU$bmvAmthP7L7xwpEU}# + #{fender -ANAU$bmvAmthP7L7xwpEV}# + #{exp -ANAU$bmvAmthP7L7xwpEW}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#) (call-with-values (lambda () - (#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# - #{pat _hoQGWMnyQPAh3k2jhWJJ1}# - #{keys _hoQGWMnyQPAh3k2jhWJJy}#)) - (lambda (#{p _hoQGWMnyQPAh3k2jhWJMT}# - #{pvars _hoQGWMnyQPAh3k2jhWJMU}#) - (if (not (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - (map car #{pvars _hoQGWMnyQPAh3k2jhWJMU}#))) + (#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}# + #{pat -ANAU$bmvAmthP7L7xwpEU}# + #{keys -ANAU$bmvAmthP7L7xwpER}#)) + (lambda (#{p -ANAU$bmvAmthP7L7xwpGy}# + #{pvars -ANAU$bmvAmthP7L7xwpGz}#) + (if (not (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + (map car #{pvars -ANAU$bmvAmthP7L7xwpGz}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) + #{pat -ANAU$bmvAmthP7L7xwpEU}#) (if (not (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWJOI}#) - (not (let ((#{x _hoQGWMnyQPAh3k2jhWJOM}# - (car #{x _hoQGWMnyQPAh3k2jhWJOI}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#) + (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}# + (car #{x -ANAU$bmvAmthP7L7xwpIn}#))) (if (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 1)) #f) (if (eq? (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 1) - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) (if (if (= (vector-length '#(syntax-object ... @@ -16675,7 +16651,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -16957,146 +16933,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -17104,9 +17080,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -17121,7 +17097,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -17403,159 +17379,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWJOM}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwpIr}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -17564,7 +17538,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -17846,194 +17820,194 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)))) - #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)) + #{pvars -ANAU$bmvAmthP7L7xwpGz}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) - (let ((#{y _hoQGWMnyQPAh3k2jhWJPY}# + #{pat -ANAU$bmvAmthP7L7xwpEU}#) + (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# #f - (let ((#{req _hoQGWMnyQPAh3k2jhWJRn}# (list 'tmp)) - (#{vars _hoQGWMnyQPAh3k2jhWJRp}# - (list #{y _hoQGWMnyQPAh3k2jhWJPY}#)) - (#{exp _hoQGWMnyQPAh3k2jhWJRr}# - (let ((#{y _hoQGWMnyQPAh3k2jhWJR8}# + (let ((#{req -ANAU$bmvAmthP7L7xwpMG}# (list 'tmp)) + (#{vars -ANAU$bmvAmthP7L7xwpMI}# + (list #{y -ANAU$bmvAmthP7L7xwpJ3}#)) + (#{exp -ANAU$bmvAmthP7L7xwpMK}# + (let ((#{y -ANAU$bmvAmthP7L7xwpMb}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y _hoQGWMnyQPAh3k2jhWJPY}#))) - (let ((#{test-exp _hoQGWMnyQPAh3k2jhWJSA}# - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJSJ}# + #{y -ANAU$bmvAmthP7L7xwpJ3}#))) + (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwpMo}# ($sc-dispatch - #{fender _hoQGWMnyQPAh3k2jhWJJ2}# + #{fender -ANAU$bmvAmthP7L7xwpEV}# '#(atom #t)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJSJ}# + (if #{tmp -ANAU$bmvAmthP7L7xwpMo}# (@apply (lambda () - #{y _hoQGWMnyQPAh3k2jhWJR8}#) - #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#) - (let ((#{then-exp _hoQGWMnyQPAh3k2jhWJSb}# - (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# - #{pvars _hoQGWMnyQPAh3k2jhWJMU}# - #{fender _hoQGWMnyQPAh3k2jhWJJ2}# - #{y _hoQGWMnyQPAh3k2jhWJR8}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) - (#{else-exp _hoQGWMnyQPAh3k2jhWJSc}# + #{y -ANAU$bmvAmthP7L7xwpMb}#) + #{tmp -ANAU$bmvAmthP7L7xwpMo}#) + (let ((#{then-exp -ANAU$bmvAmthP7L7xwpM6}# + (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}# + #{pvars -ANAU$bmvAmthP7L7xwpGz}# + #{fender -ANAU$bmvAmthP7L7xwpEV}# + #{y -ANAU$bmvAmthP7L7xwpMb}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#)) + (#{else-exp -ANAU$bmvAmthP7L7xwpM7}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -18045,48 +18019,48 @@ %expanded-vtables 10) #f - #{y _hoQGWMnyQPAh3k2jhWJR8}# - #{then-exp _hoQGWMnyQPAh3k2jhWJSb}# - #{else-exp _hoQGWMnyQPAh3k2jhWJSc}#))))) - (#{then-exp _hoQGWMnyQPAh3k2jhWJSB}# - (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# - #{pvars _hoQGWMnyQPAh3k2jhWJMU}# - #{exp _hoQGWMnyQPAh3k2jhWJJ3}# - #{y _hoQGWMnyQPAh3k2jhWJR8}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) - (#{else-exp _hoQGWMnyQPAh3k2jhWJSC}# - (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# - #{x _hoQGWMnyQPAh3k2jhWJJx}# - #{keys _hoQGWMnyQPAh3k2jhWJJy}# - #{clauses _hoQGWMnyQPAh3k2jhWJJz}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))) + #{y -ANAU$bmvAmthP7L7xwpMb}# + #{then-exp -ANAU$bmvAmthP7L7xwpM6}# + #{else-exp -ANAU$bmvAmthP7L7xwpM7}#))))) + (#{then-exp -ANAU$bmvAmthP7L7xwpMg}# + (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}# + #{pvars -ANAU$bmvAmthP7L7xwpGz}# + #{exp -ANAU$bmvAmthP7L7xwpEW}# + #{y -ANAU$bmvAmthP7L7xwpMb}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#)) + (#{else-exp -ANAU$bmvAmthP7L7xwpMh}# + (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}# + #{x -ANAU$bmvAmthP7L7xwpEQ}# + #{keys -ANAU$bmvAmthP7L7xwpER}# + #{clauses -ANAU$bmvAmthP7L7xwpES}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp _hoQGWMnyQPAh3k2jhWJSA}# - #{then-exp _hoQGWMnyQPAh3k2jhWJSB}# - #{else-exp _hoQGWMnyQPAh3k2jhWJSC}#))))) - (let ((#{body _hoQGWMnyQPAh3k2jhWJRw}# + #{test-exp -ANAU$bmvAmthP7L7xwpMf}# + #{then-exp -ANAU$bmvAmthP7L7xwpMg}# + #{else-exp -ANAU$bmvAmthP7L7xwpMh}#))))) + (let ((#{body -ANAU$bmvAmthP7L7xwpMP}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _hoQGWMnyQPAh3k2jhWJRn}# + #{req -ANAU$bmvAmthP7L7xwpMG}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWJRp}# - #{exp _hoQGWMnyQPAh3k2jhWJRr}# + #{vars -ANAU$bmvAmthP7L7xwpMI}# + #{exp -ANAU$bmvAmthP7L7xwpMK}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _hoQGWMnyQPAh3k2jhWJRw}#))) - (list (if (eq? #{p _hoQGWMnyQPAh3k2jhWJMT}# 'any) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# + #{body -ANAU$bmvAmthP7L7xwpMP}#))) + (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}# (if (equal? (module-name (current-module)) '(guile)) @@ -18100,14 +18074,14 @@ '(guile) 'list #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWJSz}# - (list #{x _hoQGWMnyQPAh3k2jhWJJx}#))) + (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}# + (list #{x -ANAU$bmvAmthP7L7xwpEQ}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#)) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# + #{fun-exp -ANAU$bmvAmthP7L7xwpNR}# + #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#)) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}# (if (equal? (module-name (current-module)) '(guile)) @@ -18121,27 +18095,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWJTL}# - (list #{x _hoQGWMnyQPAh3k2jhWJJx}# + (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}# + (list #{x -ANAU$bmvAmthP7L7xwpEQ}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p _hoQGWMnyQPAh3k2jhWJMT}#)))) + #{p -ANAU$bmvAmthP7L7xwpGy}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#)))))))))))) - (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWJA8}# - #{keys _hoQGWMnyQPAh3k2jhWJA9}# - #{clauses _hoQGWMnyQPAh3k2jhWJA$}# - #{r _hoQGWMnyQPAh3k2jhWJA@}# - #{mod _hoQGWMnyQPAh3k2jhWJBA}#) - (if (null? #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# + #{fun-exp -ANAU$bmvAmthP7L7xwpNp}# + #{arg-exps -ANAU$bmvAmthP7L7xwpNq}#)))))))))))) + (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}# + (lambda (#{x -ANAU$bmvAmthP7L7xwo7b}# + #{keys -ANAU$bmvAmthP7L7xwo7c}# + #{clauses -ANAU$bmvAmthP7L7xwo7d}# + #{r -ANAU$bmvAmthP7L7xwo7e}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#) + (if (null? #{clauses -ANAU$bmvAmthP7L7xwo7d}#) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwo7k}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -18153,7 +18127,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWJBG}# + (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -18162,77 +18136,77 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x _hoQGWMnyQPAh3k2jhWJA8}#))) + #{x -ANAU$bmvAmthP7L7xwo7b}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#)) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBn}# - (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBo}# + #{fun-exp -ANAU$bmvAmthP7L7xwo7k}# + #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#)) + (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}# + (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWJBn}# + #{tmp -ANAU$bmvAmthP7L7xwo8G}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJBo}# + (if #{tmp -ANAU$bmvAmthP7L7xwo8H}# (@apply - (lambda (#{pat _hoQGWMnyQPAh3k2jhWJBq}# - #{exp _hoQGWMnyQPAh3k2jhWJBr}#) - (if (if (if (symbol? #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}# + #{exp -ANAU$bmvAmthP7L7xwo8K}#) + (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#) #t (if (if (vector? - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (= (vector-length - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) 4) (eq? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 1)) #f)) (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWJCG}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#) (not (if (eq? (if (if (vector? - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (= (vector-length - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) 4) (eq? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 1) - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWJCG}#) + #{x -ANAU$bmvAmthP7L7xwo8l}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWJCG}#) + #{x -ANAU$bmvAmthP7L7xwo8l}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJCG}# + #{x -ANAU$bmvAmthP7L7xwo8l}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJCG}# + #{x -ANAU$bmvAmthP7L7xwo8l}# 1) - #{x _hoQGWMnyQPAh3k2jhWJCG}#)) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{x -ANAU$bmvAmthP7L7xwo8l}#)) + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWJCG}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwo8l}# '(()))) #f))) (cons '#(syntax-object @@ -18241,23 +18215,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -18539,154 +18513,154 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{keys _hoQGWMnyQPAh3k2jhWJA9}#)) + #{keys -ANAU$bmvAmthP7L7xwo7c}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -18695,7 +18669,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x @@ -18708,11 +18682,11 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause @@ -18722,10 +18696,10 @@ (top) (top) (top)) - ("2u0" - "2tz" - "2ty" - "2tx")) + ("15s" + "15r" + "15q" + "15p")) #(ribcage (lambda-var-list gen-var @@ -19007,146 +18981,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -19154,9 +19128,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -19168,7 +19140,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19177,18 +19149,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -19470,152 +19442,152 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -19624,7 +19596,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x @@ -19637,11 +19609,11 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause @@ -19651,10 +19623,10 @@ (top) (top) (top)) - ("2u0" - "2tz" - "2ty" - "2tx")) + ("15s" + "15r" + "15q" + "15p")) #(ribcage (lambda-var-list gen-var @@ -19936,146 +19908,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -20083,9 +20055,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -20097,7 +20067,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20106,18 +20076,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -20399,161 +20369,161 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20562,18 +20532,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -20855,162 +20825,162 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -21019,18 +20989,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -21312,317 +21282,317 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{exp _hoQGWMnyQPAh3k2jhWJBr}# - #{r _hoQGWMnyQPAh3k2jhWJA@}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{exp -ANAU$bmvAmthP7L7xwo8K}# + #{r -ANAU$bmvAmthP7L7xwo7e}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWJBA}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWJE2}# - (list (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) - (#{var _hoQGWMnyQPAh3k2jhWJE3}# - (let ((#{id _hoQGWMnyQPAh3k2jhWJFd}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwo@V}# + (list (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) + (#{var -ANAU$bmvAmthP7L7xwo@W}# + (let ((#{id -ANAU$bmvAmthP7L7xwo@8}# (if (if (vector? - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (= (vector-length - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) 4) (eq? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 1) - #{pat _hoQGWMnyQPAh3k2jhWJBq}#))) + #{pat -ANAU$bmvAmthP7L7xwo8J}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWJFd}#) + #{id -ANAU$bmvAmthP7L7xwo@8}#) " "))))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# #f - (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# #f (list (syntax->datum - #{pat _hoQGWMnyQPAh3k2jhWJBq}#)) + #{pat -ANAU$bmvAmthP7L7xwo8J}#)) #f - (list #{var _hoQGWMnyQPAh3k2jhWJE3}#) + (list #{var -ANAU$bmvAmthP7L7xwo@W}#) '() - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{exp _hoQGWMnyQPAh3k2jhWJBr}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWJE2}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{exp -ANAU$bmvAmthP7L7xwo8K}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwo@V}# (list (cons 'syntax - (cons #{var _hoQGWMnyQPAh3k2jhWJE3}# + (cons #{var -ANAU$bmvAmthP7L7xwo@W}# 0))) - #{r _hoQGWMnyQPAh3k2jhWJA@}#) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{pat _hoQGWMnyQPAh3k2jhWJBq}#) - #{labels _hoQGWMnyQPAh3k2jhWJE2}# + #{r -ANAU$bmvAmthP7L7xwo7e}#) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{pat -ANAU$bmvAmthP7L7xwo8J}#) + #{labels -ANAU$bmvAmthP7L7xwo@V}# '(())) - #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) - (list #{x _hoQGWMnyQPAh3k2jhWJA8}#)))) - (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# - #{x _hoQGWMnyQPAh3k2jhWJA8}# - #{keys _hoQGWMnyQPAh3k2jhWJA9}# - (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) - #{r _hoQGWMnyQPAh3k2jhWJA@}# - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#)) + (list #{x -ANAU$bmvAmthP7L7xwo7b}#)))) + (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}# + #{x -ANAU$bmvAmthP7L7xwo7b}# + #{keys -ANAU$bmvAmthP7L7xwo7c}# + (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#) + #{r -ANAU$bmvAmthP7L7xwo7e}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# #t - #{exp _hoQGWMnyQPAh3k2jhWJBr}# - #{mod _hoQGWMnyQPAh3k2jhWJBA}#))) - #{tmp _hoQGWMnyQPAh3k2jhWJBo}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJJp}# + #{exp -ANAU$bmvAmthP7L7xwo8K}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#))) + #{tmp -ANAU$bmvAmthP7L7xwo8H}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWJBn}# + #{tmp -ANAU$bmvAmthP7L7xwo8G}# '(any any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJJp}# + (if #{tmp -ANAU$bmvAmthP7L7xwpEI}# (@apply - (lambda (#{pat _hoQGWMnyQPAh3k2jhWJJr}# - #{fender _hoQGWMnyQPAh3k2jhWJJs}# - #{exp _hoQGWMnyQPAh3k2jhWJJt}#) - (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# - #{x _hoQGWMnyQPAh3k2jhWJA8}# - #{keys _hoQGWMnyQPAh3k2jhWJA9}# - (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) - #{r _hoQGWMnyQPAh3k2jhWJA@}# - #{pat _hoQGWMnyQPAh3k2jhWJJr}# - #{fender _hoQGWMnyQPAh3k2jhWJJs}# - #{exp _hoQGWMnyQPAh3k2jhWJJt}# - #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) - #{tmp _hoQGWMnyQPAh3k2jhWJJp}#) + (lambda (#{pat -ANAU$bmvAmthP7L7xwpEK}# + #{fender -ANAU$bmvAmthP7L7xwpEL}# + #{exp -ANAU$bmvAmthP7L7xwpEM}#) + (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}# + #{x -ANAU$bmvAmthP7L7xwo7b}# + #{keys -ANAU$bmvAmthP7L7xwo7c}# + (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#) + #{r -ANAU$bmvAmthP7L7xwo7e}# + #{pat -ANAU$bmvAmthP7L7xwpEK}# + #{fender -ANAU$bmvAmthP7L7xwpEL}# + #{exp -ANAU$bmvAmthP7L7xwpEM}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#)) + #{tmp -ANAU$bmvAmthP7L7xwpEI}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))))))))))) - (lambda (#{e _hoQGWMnyQPAh3k2jhWI6u}# - #{r _hoQGWMnyQPAh3k2jhWI6v}# - #{w _hoQGWMnyQPAh3k2jhWI6w}# - #{s _hoQGWMnyQPAh3k2jhWI6x}# - #{mod _hoQGWMnyQPAh3k2jhWI6y}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWI6z}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#))))))))))) + (lambda (#{e -ANAU$bmvAmthP7L7xwo1N}# + #{r -ANAU$bmvAmthP7L7xwo1O}# + #{w -ANAU$bmvAmthP7L7xwo1P}# + #{s -ANAU$bmvAmthP7L7xwo1Q}# + #{mod -ANAU$bmvAmthP7L7xwo1R}#) + (let ((#{e -ANAU$bmvAmthP7L7xwo1S}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWI6u}#) - #{s _hoQGWMnyQPAh3k2jhWI6x}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#) + #{s -ANAU$bmvAmthP7L7xwo1Q}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWI6u}# - #{s _hoQGWMnyQPAh3k2jhWI6x}#)) - #{e _hoQGWMnyQPAh3k2jhWI6u}#) - #{w _hoQGWMnyQPAh3k2jhWI6w}# - #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWI61}# + #{e -ANAU$bmvAmthP7L7xwo1N}# + #{s -ANAU$bmvAmthP7L7xwo1Q}#)) + #{e -ANAU$bmvAmthP7L7xwo1N}#) + #{w -ANAU$bmvAmthP7L7xwo1P}# + #{mod -ANAU$bmvAmthP7L7xwo1R}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWI6z}# + #{e -ANAU$bmvAmthP7L7xwo1S}# '(_ any each-any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWI61}# + (if #{tmp -ANAU$bmvAmthP7L7xwo1U}# (@apply - (lambda (#{val _hoQGWMnyQPAh3k2jhWI7O}# - #{key _hoQGWMnyQPAh3k2jhWI7P}# - #{m _hoQGWMnyQPAh3k2jhWI7Q}#) + (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}# + #{key -ANAU$bmvAmthP7L7xwo1u}# + #{m -ANAU$bmvAmthP7L7xwo1v}#) (if (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWI7R}#) - (if (if (symbol? #{x _hoQGWMnyQPAh3k2jhWI7R}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#) + (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#) #t (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 1)) #f)) (not (if (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 1)) #f) (if (eq? (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 1) - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (if (= (vector-length '#(syntax-object ... @@ -21638,7 +21608,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -21920,146 +21890,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -22067,9 +22037,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -22084,7 +22054,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -22366,157 +22336,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWI7R}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwo1w}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -22525,7 +22495,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -22807,1042 +22777,1063 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key _hoQGWMnyQPAh3k2jhWI7P}#) - (let ((#{x _hoQGWMnyQPAh3k2jhWI9P}# + #{key -ANAU$bmvAmthP7L7xwo1u}#) + (let ((#{x -ANAU$bmvAmthP7L7xwo3u}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - #{s _hoQGWMnyQPAh3k2jhWI6x}# - (let ((#{req _hoQGWMnyQPAh3k2jhWI@R}# (list 'tmp)) - (#{vars _hoQGWMnyQPAh3k2jhWI@T}# - (list #{x _hoQGWMnyQPAh3k2jhWI9P}#)) - (#{exp _hoQGWMnyQPAh3k2jhWI@V}# - (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + #{s -ANAU$bmvAmthP7L7xwo1Q}# + (let ((#{req -ANAU$bmvAmthP7L7xwo5w}# (list 'tmp)) + (#{vars -ANAU$bmvAmthP7L7xwo5y}# + (list #{x -ANAU$bmvAmthP7L7xwo3u}#)) + (#{exp -ANAU$bmvAmthP7L7xwo50}# + (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x _hoQGWMnyQPAh3k2jhWI9P}#) - #{key _hoQGWMnyQPAh3k2jhWI7P}# - #{m _hoQGWMnyQPAh3k2jhWI7Q}# - #{r _hoQGWMnyQPAh3k2jhWI6v}# - #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) - (let ((#{body _hoQGWMnyQPAh3k2jhWI@a}# + #{x -ANAU$bmvAmthP7L7xwo3u}#) + #{key -ANAU$bmvAmthP7L7xwo1u}# + #{m -ANAU$bmvAmthP7L7xwo1v}# + #{r -ANAU$bmvAmthP7L7xwo1O}# + #{mod -ANAU$bmvAmthP7L7xwo1R}#))) + (let ((#{body -ANAU$bmvAmthP7L7xwo55}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _hoQGWMnyQPAh3k2jhWI@R}# + #{req -ANAU$bmvAmthP7L7xwo5w}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWI@T}# - #{exp _hoQGWMnyQPAh3k2jhWI@V}# + #{vars -ANAU$bmvAmthP7L7xwo5y}# + #{exp -ANAU$bmvAmthP7L7xwo50}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _hoQGWMnyQPAh3k2jhWI@a}#))) - (list (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWI7O}# - #{r _hoQGWMnyQPAh3k2jhWI6v}# + #{body -ANAU$bmvAmthP7L7xwo55}#))) + (list (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwo1t}# + #{r -ANAU$bmvAmthP7L7xwo1O}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))) + #{mod -ANAU$bmvAmthP7L7xwo1R}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e _hoQGWMnyQPAh3k2jhWI6z}#))) - #{tmp _hoQGWMnyQPAh3k2jhWI61}#) + #{e -ANAU$bmvAmthP7L7xwo1S}#))) + #{tmp -ANAU$bmvAmthP7L7xwo1U}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWI6z}#))))))) + #{e -ANAU$bmvAmthP7L7xwo1S}#))))))) (set! macroexpand (lambda* - (#{x _hoQGWMnyQPAh3k2jhWJlC}# + (#{x -ANAU$bmvAmthP7L7xwpfh}# #:optional - (#{m _hoQGWMnyQPAh3k2jhWJlD}# 'e) - (#{esew _hoQGWMnyQPAh3k2jhWJlE}# '(eval))) - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - (list #{x _hoQGWMnyQPAh3k2jhWJlC}#) + (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e) + (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval))) + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + (list #{x -ANAU$bmvAmthP7L7xwpfh}#) '() '((top)) #f - #{m _hoQGWMnyQPAh3k2jhWJlD}# - #{esew _hoQGWMnyQPAh3k2jhWJlE}# + #{m -ANAU$bmvAmthP7L7xwpfi}# + #{esew -ANAU$bmvAmthP7L7xwpfj}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x _hoQGWMnyQPAh3k2jhWJlH}#) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJlH}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJlH}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1)) #f))) (set! datum->syntax - (lambda (#{id _hoQGWMnyQPAh3k2jhWJlg}# - #{datum _hoQGWMnyQPAh3k2jhWJlh}#) - (let ((#{wrap _hoQGWMnyQPAh3k2jhWJlm}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 2)) - (#{module _hoQGWMnyQPAh3k2jhWJln}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 3))) + (lambda (#{id -ANAU$bmvAmthP7L7xwpf@}# + #{datum -ANAU$bmvAmthP7L7xwpgA}#) + (let ((#{wrap -ANAU$bmvAmthP7L7xwpgF}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 2)) + (#{module -ANAU$bmvAmthP7L7xwpgG}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 3))) (vector 'syntax-object - #{datum _hoQGWMnyQPAh3k2jhWJlh}# - #{wrap _hoQGWMnyQPAh3k2jhWJlm}# - #{module _hoQGWMnyQPAh3k2jhWJln}#)))) + #{datum -ANAU$bmvAmthP7L7xwpgA}# + #{wrap -ANAU$bmvAmthP7L7xwpgF}# + #{module -ANAU$bmvAmthP7L7xwpgG}#)))) (set! syntax->datum - (lambda (#{x _hoQGWMnyQPAh3k2jhWJlu}#) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{x _hoQGWMnyQPAh3k2jhWJlu}# + (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{x -ANAU$bmvAmthP7L7xwpgN}# '(())))) (set! syntax-source - (lambda (#{x _hoQGWMnyQPAh3k2jhWJlx}#) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{x _hoQGWMnyQPAh3k2jhWJlx}#))) - (set! syntax-module - (lambda (#{id _hoQGWMnyQPAh3k2jhWJoK}#) - (begin - (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoK}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoK}#) - 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 1)) - #f)) - (syntax-violation - 'syntax-module - "invalid argument" - #{id _hoQGWMnyQPAh3k2jhWJoK}#)) - (cdr (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 3))))) - (set! syntax-local-binding - (lambda (#{id _hoQGWMnyQPAh3k2jhWJoz}#) - (begin - (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoz}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoz}#) - 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) - #f)) - (syntax-violation - 'syntax-local-binding - "invalid argument" - #{id _hoQGWMnyQPAh3k2jhWJoz}#)) - ((fluid-ref - #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#) - (lambda (#{e _hoQGWMnyQPAh3k2jhWJpc}# - #{r _hoQGWMnyQPAh3k2jhWJpd}# - #{w _hoQGWMnyQPAh3k2jhWJpe}# - #{s _hoQGWMnyQPAh3k2jhWJpf}# - #{rib _hoQGWMnyQPAh3k2jhWJpg}# - #{mod _hoQGWMnyQPAh3k2jhWJph}#) - (call-with-values - (lambda () - (let ((#{id _hoQGWMnyQPAh3k2jhWJpk}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) - (#{w _hoQGWMnyQPAh3k2jhWJpl}# - (let ((#{w _hoQGWMnyQPAh3k2jhWJpw}# - (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJoz}# - 2))) - (let ((#{ms _hoQGWMnyQPAh3k2jhWJpx}# - (car #{w _hoQGWMnyQPAh3k2jhWJpw}#)) - (#{s _hoQGWMnyQPAh3k2jhWJpy}# - (cdr #{w _hoQGWMnyQPAh3k2jhWJpw}#))) - (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWJpx}#) - (eq? (car #{ms _hoQGWMnyQPAh3k2jhWJpx}#) - #f) - #f) - (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWJpx}#) - (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# - (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# - (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#)) - (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#))) - (cons #{ms _hoQGWMnyQPAh3k2jhWJpx}# - (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# - (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# - #{s _hoQGWMnyQPAh3k2jhWJpy}#) - #{s _hoQGWMnyQPAh3k2jhWJpy}#)))))) - (#{mod _hoQGWMnyQPAh3k2jhWJpn}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 3))) - (let ((#{n _hoQGWMnyQPAh3k2jhWJpq}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{id _hoQGWMnyQPAh3k2jhWJpk}# - #{w _hoQGWMnyQPAh3k2jhWJpl}#))) - (if (symbol? #{n _hoQGWMnyQPAh3k2jhWJpq}#) - (let ((#{mod _hoQGWMnyQPAh3k2jhWJp4}# - (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - 4) - (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJpk}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJpk}# 3) - #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWJp5}# - (let ((#{t _hoQGWMnyQPAh3k2jhWJp6}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWJpq}# - #{mod _hoQGWMnyQPAh3k2jhWJp4}#))) - (if #{t _hoQGWMnyQPAh3k2jhWJp6}# - #{t _hoQGWMnyQPAh3k2jhWJp6}# - '(global))))) - (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) - 'global) - (values - 'global - #{n _hoQGWMnyQPAh3k2jhWJpq}# - #{mod _hoQGWMnyQPAh3k2jhWJp4}#) - (values - (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) - (cdr #{b _hoQGWMnyQPAh3k2jhWJp5}#) - #{mod _hoQGWMnyQPAh3k2jhWJp4}#)))) - (if (string? #{n _hoQGWMnyQPAh3k2jhWJpq}#) - (let ((#{mod _hoQGWMnyQPAh3k2jhWJqU}# - (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - 4) - (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJpk}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJpk}# - 3) - #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWJqV}# - (let ((#{t _hoQGWMnyQPAh3k2jhWJqW}# - (assq-ref - #{r _hoQGWMnyQPAh3k2jhWJpd}# - #{n _hoQGWMnyQPAh3k2jhWJpq}#))) - (if #{t _hoQGWMnyQPAh3k2jhWJqW}# - #{t _hoQGWMnyQPAh3k2jhWJqW}# - '(displaced-lexical))))) - (values - (car #{b _hoQGWMnyQPAh3k2jhWJqV}#) - (cdr #{b _hoQGWMnyQPAh3k2jhWJqV}#) - #{mod _hoQGWMnyQPAh3k2jhWJqU}#))) - (error "unexpected id-var-name" - #{id _hoQGWMnyQPAh3k2jhWJpk}# - #{w _hoQGWMnyQPAh3k2jhWJpl}# - #{n _hoQGWMnyQPAh3k2jhWJpq}#)))))) - (lambda (#{type _hoQGWMnyQPAh3k2jhWJqj}# - #{value _hoQGWMnyQPAh3k2jhWJqk}# - #{mod _hoQGWMnyQPAh3k2jhWJql}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'lexical) - (values - 'lexical - #{value _hoQGWMnyQPAh3k2jhWJqk}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'macro) - (values 'macro #{value _hoQGWMnyQPAh3k2jhWJqk}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'syntax) - (values - 'pattern-variable - #{value _hoQGWMnyQPAh3k2jhWJqk}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# - 'displaced-lexical) - (values 'displaced-lexical #f) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'global) - (values - 'global - (cons #{value _hoQGWMnyQPAh3k2jhWJqk}# - (cdr #{mod _hoQGWMnyQPAh3k2jhWJql}#))) - (values 'other #f))))))))))))) - (set! syntax-locally-bound-identifiers - (lambda (#{x _hoQGWMnyQPAh3k2jhWJqw}#) - (begin - (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJqw}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJqw}#) - 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 1)) - #f)) - (syntax-violation - 'syntax-locally-bound-identifiers - "invalid argument" - #{x _hoQGWMnyQPAh3k2jhWJqw}#)) - (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 2) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 3))))) + (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{x -ANAU$bmvAmthP7L7xwpgQ}#))) (set! generate-temporaries - (lambda (#{ls _hoQGWMnyQPAh3k2jhWJsb}#) + (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#) (begin - (if (not (list? #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) + (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) - (let ((#{mod _hoQGWMnyQPAh3k2jhWJsj}# + #{ls -ANAU$bmvAmthP7L7xwpip}#)) + (let ((#{mod -ANAU$bmvAmthP7L7xwpix}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWJsk}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (gensym) '((top)) - #{mod _hoQGWMnyQPAh3k2jhWJsj}#)) - #{ls _hoQGWMnyQPAh3k2jhWJsb}#))))) + #{mod -ANAU$bmvAmthP7L7xwpix}#)) + #{ls -ANAU$bmvAmthP7L7xwpip}#))))) (set! free-identifier=? - (lambda (#{x _hoQGWMnyQPAh3k2jhWJso}# - #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}# + #{y -ANAU$bmvAmthP7L7xwpi3}#) (begin - (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x _hoQGWMnyQPAh3k2jhWJso}#)) - (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) + #{x -ANAU$bmvAmthP7L7xwpi2}#)) + (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1)) + (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y _hoQGWMnyQPAh3k2jhWJsp}#)) - (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) + #{y -ANAU$bmvAmthP7L7xwpi3}#)) + (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1) - #{x _hoQGWMnyQPAh3k2jhWJso}#) - (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1) + #{x -ANAU$bmvAmthP7L7xwpi2}#) + (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0) 'syntax-object) #f) #f) - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1) - #{y _hoQGWMnyQPAh3k2jhWJsp}#)) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWJso}# + (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1) + #{y -ANAU$bmvAmthP7L7xwpi3}#)) + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwpi2}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{y _hoQGWMnyQPAh3k2jhWJsp}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{y -ANAU$bmvAmthP7L7xwpi3}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x _hoQGWMnyQPAh3k2jhWJu@}# - #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwplN}# + #{y -ANAU$bmvAmthP7L7xwplO}#) (begin - (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) + (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x _hoQGWMnyQPAh3k2jhWJu@}#)) - (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) + #{x -ANAU$bmvAmthP7L7xwplN}#)) + (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) + (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y _hoQGWMnyQPAh3k2jhWJvA}#)) - (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) + #{y -ANAU$bmvAmthP7L7xwplO}#)) + (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0) 'syntax-object) #f) #f) - (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1) - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 2)) - (car (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 2))) + (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1) + (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1)) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (car (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 2)) + (car (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 2))) #f) - (eq? #{x _hoQGWMnyQPAh3k2jhWJu@}# - #{y _hoQGWMnyQPAh3k2jhWJvA}#))))) + (eq? #{x -ANAU$bmvAmthP7L7xwplN}# + #{y -ANAU$bmvAmthP7L7xwplO}#))))) (set! syntax-violation (lambda* - (#{who _hoQGWMnyQPAh3k2jhWJxF}# - #{message _hoQGWMnyQPAh3k2jhWJxG}# - #{form _hoQGWMnyQPAh3k2jhWJxH}# + (#{who -ANAU$bmvAmthP7L7xwpnT}# + #{message -ANAU$bmvAmthP7L7xwpnU}# + #{form -ANAU$bmvAmthP7L7xwpnV}# #:optional - (#{subform _hoQGWMnyQPAh3k2jhWJxI}# #f)) + (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f)) (begin - (if (not (if (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) - (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWJxa}# - (string? #{who _hoQGWMnyQPAh3k2jhWJxF}#))) - (if #{t _hoQGWMnyQPAh3k2jhWJxa}# - #{t _hoQGWMnyQPAh3k2jhWJxa}# - (symbol? #{who _hoQGWMnyQPAh3k2jhWJxF}#))))) + (if (not (if (not #{who -ANAU$bmvAmthP7L7xwpnT}#) + (not #{who -ANAU$bmvAmthP7L7xwpnT}#) + (let ((#{t -ANAU$bmvAmthP7L7xwpno}# + (string? #{who -ANAU$bmvAmthP7L7xwpnT}#))) + (if #{t -ANAU$bmvAmthP7L7xwpno}# + #{t -ANAU$bmvAmthP7L7xwpno}# + (symbol? #{who -ANAU$bmvAmthP7L7xwpnT}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who _hoQGWMnyQPAh3k2jhWJxF}#)) - (if (not (string? #{message _hoQGWMnyQPAh3k2jhWJxG}#)) + #{who -ANAU$bmvAmthP7L7xwpnT}#)) + (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message _hoQGWMnyQPAh3k2jhWJxG}#)) + #{message -ANAU$bmvAmthP7L7xwpnU}#)) (throw 'syntax-error - #{who _hoQGWMnyQPAh3k2jhWJxF}# - #{message _hoQGWMnyQPAh3k2jhWJxG}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (if #{form _hoQGWMnyQPAh3k2jhWJxH}# - #{form _hoQGWMnyQPAh3k2jhWJxH}# - #{subform _hoQGWMnyQPAh3k2jhWJxI}#)) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{form _hoQGWMnyQPAh3k2jhWJxH}# + #{who -ANAU$bmvAmthP7L7xwpnT}# + #{message -ANAU$bmvAmthP7L7xwpnU}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (if #{form -ANAU$bmvAmthP7L7xwpnV}# + #{form -ANAU$bmvAmthP7L7xwpnV}# + #{subform -ANAU$bmvAmthP7L7xwpnW}#)) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{form -ANAU$bmvAmthP7L7xwpnV}# '(())) - (if #{subform _hoQGWMnyQPAh3k2jhWJxI}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{subform _hoQGWMnyQPAh3k2jhWJxI}# + (if #{subform -ANAU$bmvAmthP7L7xwpnW}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{subform -ANAU$bmvAmthP7L7xwpnW}# '(())) #f))))) (letrec* - ((#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9w}# - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# - #{mod _hoQGWMnyQPAh3k2jhWJ9z}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - (let ((#{first _hoQGWMnyQPAh3k2jhWJ90}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# + ((#{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}# + (lambda (#{id -ANAU$bmvAmthP7L7xwps5}#) + (begin + (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwps5}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwps5}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwps5}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1)) + #f)) + (syntax-violation + 'syntax-local-binding + "invalid argument" + #{id -ANAU$bmvAmthP7L7xwps5}#)) + ((fluid-ref + #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwpth}# + #{r -ANAU$bmvAmthP7L7xwpti}# + #{w -ANAU$bmvAmthP7L7xwptj}# + #{s -ANAU$bmvAmthP7L7xwptk}# + #{rib -ANAU$bmvAmthP7L7xwptl}# + #{mod -ANAU$bmvAmthP7L7xwptm}#) + (call-with-values + (lambda () + (let ((#{id -ANAU$bmvAmthP7L7xwptp}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1)) + (#{w -ANAU$bmvAmthP7L7xwptq}# + (let ((#{w -ANAU$bmvAmthP7L7xwpt1}# + (vector-ref + #{id -ANAU$bmvAmthP7L7xwps5}# + 2))) + (let ((#{ms -ANAU$bmvAmthP7L7xwpt2}# + (car #{w -ANAU$bmvAmthP7L7xwpt1}#)) + (#{s -ANAU$bmvAmthP7L7xwpt3}# + (cdr #{w -ANAU$bmvAmthP7L7xwpt1}#))) + (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwpt2}#) + (eq? (car #{ms -ANAU$bmvAmthP7L7xwpt2}#) + #f) + #f) + (cons (cdr #{ms -ANAU$bmvAmthP7L7xwpt2}#) + (if #{rib -ANAU$bmvAmthP7L7xwptl}# + (cons #{rib -ANAU$bmvAmthP7L7xwptl}# + (cdr #{s -ANAU$bmvAmthP7L7xwpt3}#)) + (cdr #{s -ANAU$bmvAmthP7L7xwpt3}#))) + (cons #{ms -ANAU$bmvAmthP7L7xwpt2}# + (if #{rib -ANAU$bmvAmthP7L7xwptl}# + (cons #{rib -ANAU$bmvAmthP7L7xwptl}# + #{s -ANAU$bmvAmthP7L7xwpt3}#) + #{s -ANAU$bmvAmthP7L7xwpt3}#)))))) + (#{mod -ANAU$bmvAmthP7L7xwpts}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 3))) + (let ((#{n -ANAU$bmvAmthP7L7xwptv}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{id -ANAU$bmvAmthP7L7xwptp}# + #{w -ANAU$bmvAmthP7L7xwptq}#))) + (if (symbol? #{n -ANAU$bmvAmthP7L7xwptv}#) + (let ((#{mod -ANAU$bmvAmthP7L7xwpt9}# + (if (if (vector? + #{id -ANAU$bmvAmthP7L7xwptp}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwptp}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 3) + #{mod -ANAU$bmvAmthP7L7xwpts}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwpt$}# + (let ((#{t -ANAU$bmvAmthP7L7xwpt@}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwptv}# + #{mod -ANAU$bmvAmthP7L7xwpt9}#))) + (if #{t -ANAU$bmvAmthP7L7xwpt@}# + #{t -ANAU$bmvAmthP7L7xwpt@}# + '(global))))) + (if (eq? (car #{b -ANAU$bmvAmthP7L7xwpt$}#) + 'global) + (values + 'global + #{n -ANAU$bmvAmthP7L7xwptv}# + #{mod -ANAU$bmvAmthP7L7xwpt9}#) + (values + (car #{b -ANAU$bmvAmthP7L7xwpt$}#) + (cdr #{b -ANAU$bmvAmthP7L7xwpt$}#) + #{mod -ANAU$bmvAmthP7L7xwpt9}#)))) + (if (string? #{n -ANAU$bmvAmthP7L7xwptv}#) + (let ((#{mod -ANAU$bmvAmthP7L7xwpuZ}# + (if (if (vector? + #{id -ANAU$bmvAmthP7L7xwptp}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwptp}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 3) + #{mod -ANAU$bmvAmthP7L7xwpts}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwpua}# + (let ((#{t -ANAU$bmvAmthP7L7xwpub}# + (assq-ref + #{r -ANAU$bmvAmthP7L7xwpti}# + #{n -ANAU$bmvAmthP7L7xwptv}#))) + (if #{t -ANAU$bmvAmthP7L7xwpub}# + #{t -ANAU$bmvAmthP7L7xwpub}# + '(displaced-lexical))))) + (values + (car #{b -ANAU$bmvAmthP7L7xwpua}#) + (cdr #{b -ANAU$bmvAmthP7L7xwpua}#) + #{mod -ANAU$bmvAmthP7L7xwpuZ}#))) + (error "unexpected id-var-name" + #{id -ANAU$bmvAmthP7L7xwptp}# + #{w -ANAU$bmvAmthP7L7xwptq}# + #{n -ANAU$bmvAmthP7L7xwptv}#)))))) + (lambda (#{type -ANAU$bmvAmthP7L7xwpuo}# + #{value -ANAU$bmvAmthP7L7xwpup}# + #{mod -ANAU$bmvAmthP7L7xwpuq}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'lexical) + (values + 'lexical + #{value -ANAU$bmvAmthP7L7xwpup}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'macro) + (values 'macro #{value -ANAU$bmvAmthP7L7xwpup}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'syntax) + (values + 'pattern-variable + #{value -ANAU$bmvAmthP7L7xwpup}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# + 'displaced-lexical) + (values 'displaced-lexical #f) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# + 'global) + (values + 'global + (cons #{value -ANAU$bmvAmthP7L7xwpup}# + (cdr #{mod -ANAU$bmvAmthP7L7xwpuq}#))) + (values 'other #f))))))))))))) + (#{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}# + (lambda (#{id -ANAU$bmvAmthP7L7xwpu1}#) + (begin + (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpu1}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwpu1}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwpu1}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 1)) + #f)) + (syntax-violation + 'syntax-locally-bound-identifiers + "invalid argument" + #{id -ANAU$bmvAmthP7L7xwpu1}#)) + (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 2) + (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 3)))))) + (begin + (define! + 'syntax-module + (lambda (#{id -ANAU$bmvAmthP7L7xwpq3}#) + (begin + (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpq3}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwpq3}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwpq3}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 1)) + #f)) + (syntax-violation + 'syntax-module + "invalid argument" + #{id -ANAU$bmvAmthP7L7xwpq3}#)) + (cdr (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 3))))) + (define! + 'syntax-local-binding + #{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#) + (define! + 'syntax-locally-bound-identifiers + #{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#))) + (letrec* + ((#{match-each -ANAU$bmvAmthP7L7xwpwg}# + (lambda (#{e -ANAU$bmvAmthP7L7xwp5r}# + #{p -ANAU$bmvAmthP7L7xwp5s}# + #{w -ANAU$bmvAmthP7L7xwp5t}# + #{mod -ANAU$bmvAmthP7L7xwp5u}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwp5r}#) + (let ((#{first -ANAU$bmvAmthP7L7xwp5v}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwp5r}#) + #{p -ANAU$bmvAmthP7L7xwp5s}# + #{w -ANAU$bmvAmthP7L7xwp5t}# '() - #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) - (if #{first _hoQGWMnyQPAh3k2jhWJ90}# - (let ((#{rest _hoQGWMnyQPAh3k2jhWJ93}# - (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# - #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) - (if #{rest _hoQGWMnyQPAh3k2jhWJ93}# - (cons #{first _hoQGWMnyQPAh3k2jhWJ90}# - #{rest _hoQGWMnyQPAh3k2jhWJ93}#) + #{mod -ANAU$bmvAmthP7L7xwp5u}#))) + (if #{first -ANAU$bmvAmthP7L7xwp5v}# + (let ((#{rest -ANAU$bmvAmthP7L7xwp5y}# + (#{match-each -ANAU$bmvAmthP7L7xwpwg}# + (cdr #{e -ANAU$bmvAmthP7L7xwp5r}#) + #{p -ANAU$bmvAmthP7L7xwp5s}# + #{w -ANAU$bmvAmthP7L7xwp5t}# + #{mod -ANAU$bmvAmthP7L7xwp5u}#))) + (if #{rest -ANAU$bmvAmthP7L7xwp5y}# + (cons #{first -ANAU$bmvAmthP7L7xwp5v}# + #{rest -ANAU$bmvAmthP7L7xwp5y}#) #f)) #f)) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#) '() - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0) 'syntax-object) #f) #f) - (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 1) - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 2)) - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 3)) + (#{match-each -ANAU$bmvAmthP7L7xwpwg}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 1) + #{p -ANAU$bmvAmthP7L7xwp5s}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwp5t}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 2)) + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 3)) #f))))) - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ$T}# - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - (let ((#{l _hoQGWMnyQPAh3k2jhWJ$W}# - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#))) - (if #{l _hoQGWMnyQPAh3k2jhWJ$W}# - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) - #{l _hoQGWMnyQPAh3k2jhWJ$W}#) + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + (lambda (#{e -ANAU$bmvAmthP7L7xwp6O}# + #{w -ANAU$bmvAmthP7L7xwp6P}# + #{mod -ANAU$bmvAmthP7L7xwp6Q}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwp6O}#) + (let ((#{l -ANAU$bmvAmthP7L7xwp6R}# + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + (cdr #{e -ANAU$bmvAmthP7L7xwp6O}#) + #{w -ANAU$bmvAmthP7L7xwp6P}# + #{mod -ANAU$bmvAmthP7L7xwp6Q}#))) + (if #{l -ANAU$bmvAmthP7L7xwp6R}# + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{e -ANAU$bmvAmthP7L7xwp6O}#) + #{w -ANAU$bmvAmthP7L7xwp6P}# + #{mod -ANAU$bmvAmthP7L7xwp6Q}#) + #{l -ANAU$bmvAmthP7L7xwp6R}#) #f)) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#) '() - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0) 'syntax-object) #f) #f) - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 1) - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 2)) - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 1) + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwp6P}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 2)) + #{mod -ANAU$bmvAmthP7L7xwp6Q}#) #f))))) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWJ$u}# - #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (if (null? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - #{r _hoQGWMnyQPAh3k2jhWJ$v}# - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# '_) - #{r _hoQGWMnyQPAh3k2jhWJ$v}# - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'any) - (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (car #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (cdr #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#)) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'each-any) - (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 0))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (lambda (#{p -ANAU$bmvAmthP7L7xwp6p}# + #{r -ANAU$bmvAmthP7L7xwp6q}#) + (if (null? #{p -ANAU$bmvAmthP7L7xwp6p}#) + #{r -ANAU$bmvAmthP7L7xwp6q}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# '_) + #{r -ANAU$bmvAmthP7L7xwp6q}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'any) + (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#) + (if (pair? #{p -ANAU$bmvAmthP7L7xwp6p}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (car #{p -ANAU$bmvAmthP7L7xwp6p}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (cdr #{p -ANAU$bmvAmthP7L7xwp6p}#) + #{r -ANAU$bmvAmthP7L7xwp6q}#)) + (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'each-any) + (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#) + (let ((#{atom-key -ANAU$bmvAmthP7L7xwp6r}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 0))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) + #{r -ANAU$bmvAmthP7L7xwp6q}#) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each+) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# (reverse - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 2)) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 3) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#))) - (if (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 2)) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 3) + #{r -ANAU$bmvAmthP7L7xwp6q}#))) + (if (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'free-id) #t - (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'atom)) - #{r _hoQGWMnyQPAh3k2jhWJ$v}# - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + #{r -ANAU$bmvAmthP7L7xwp6q}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'vector) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#))))))))))))) - (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# - (lambda (#{r* _hoQGWMnyQPAh3k2jhWJ@D}# - #{r _hoQGWMnyQPAh3k2jhWJ@E}#) - (if (null? (car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)) - #{r _hoQGWMnyQPAh3k2jhWJ@E}# - (cons (map car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) - (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# - (map cdr #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) - #{r _hoQGWMnyQPAh3k2jhWJ@E}#))))) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{p _hoQGWMnyQPAh3k2jhWJ1J}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) - (if (null? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) + #{r -ANAU$bmvAmthP7L7xwp6q}#))))))))))))) + (#{combine -ANAU$bmvAmthP7L7xwpwk}# + (lambda (#{r* -ANAU$bmvAmthP7L7xwp6$}# + #{r -ANAU$bmvAmthP7L7xwp6@}#) + (if (null? (car #{r* -ANAU$bmvAmthP7L7xwp6$}#)) + #{r -ANAU$bmvAmthP7L7xwp6@}# + (cons (map car #{r* -ANAU$bmvAmthP7L7xwp6$}#) + (#{combine -ANAU$bmvAmthP7L7xwpwk}# + (map cdr #{r* -ANAU$bmvAmthP7L7xwp6$}#) + #{r -ANAU$bmvAmthP7L7xwp6@}#))))) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + (lambda (#{e -ANAU$bmvAmthP7L7xwpxD}# + #{p -ANAU$bmvAmthP7L7xwpxE}# + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#) + (if (null? #{p -ANAU$bmvAmthP7L7xwpxE}#) + (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#) + #{r -ANAU$bmvAmthP7L7xwpxG}# #f) - (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (car #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (cdr #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + (if (pair? #{p -ANAU$bmvAmthP7L7xwpxE}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwpxD}#) + (car #{p -ANAU$bmvAmthP7L7xwpxE}#) + #{w -ANAU$bmvAmthP7L7xwpxF}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (cdr #{e -ANAU$bmvAmthP7L7xwpxD}#) + (cdr #{p -ANAU$bmvAmthP7L7xwpxE}#) + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#) + #{mod -ANAU$bmvAmthP7L7xwpxH}#) #f) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ1J}# 'each-any) - (let ((#{l _hoQGWMnyQPAh3k2jhWJ1R}# - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) - (if #{l _hoQGWMnyQPAh3k2jhWJ1R}# - (cons #{l _hoQGWMnyQPAh3k2jhWJ1R}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwpxE}# 'each-any) + (let ((#{l -ANAU$bmvAmthP7L7xwpxM}# + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) + (if #{l -ANAU$bmvAmthP7L7xwpxM}# + (cons #{l -ANAU$bmvAmthP7L7xwpxM}# + #{r -ANAU$bmvAmthP7L7xwpxG}#) #f)) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 0))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ1L}#) - (let ((#{l _hoQGWMnyQPAh3k2jhWJ1d}# - (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) - (if #{l _hoQGWMnyQPAh3k2jhWJ1d}# + (let ((#{atom-key -ANAU$bmvAmthP7L7xwpxR}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 0))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each) + (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + #{r -ANAU$bmvAmthP7L7xwpxG}#) + (let ((#{l -ANAU$bmvAmthP7L7xwpxY}# + (#{match-each -ANAU$bmvAmthP7L7xwpwg}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) + (if #{l -ANAU$bmvAmthP7L7xwpxY}# (letrec* - ((#{collect _hoQGWMnyQPAh3k2jhWJ1g}# - (lambda (#{l _hoQGWMnyQPAh3k2jhWJ2T}#) - (if (null? (car #{l _hoQGWMnyQPAh3k2jhWJ2T}#)) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + ((#{collect -ANAU$bmvAmthP7L7xwpxb}# + (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#) + (if (null? (car #{l -ANAU$bmvAmthP7L7xwpyO}#)) + #{r -ANAU$bmvAmthP7L7xwpxG}# (cons (map car - #{l _hoQGWMnyQPAh3k2jhWJ2T}#) - (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# + #{l -ANAU$bmvAmthP7L7xwpyO}#) + (#{collect -ANAU$bmvAmthP7L7xwpxb}# (map cdr - #{l _hoQGWMnyQPAh3k2jhWJ2T}#))))))) - (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# - #{l _hoQGWMnyQPAh3k2jhWJ1d}#)) + #{l -ANAU$bmvAmthP7L7xwpyO}#))))))) + (#{collect -ANAU$bmvAmthP7L7xwpxb}# + #{l -ANAU$bmvAmthP7L7xwpxY}#)) #f))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each+) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+) (call-with-values (lambda () - (let ((#{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# + (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 1)) - (#{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# + (#{y-pat -ANAU$bmvAmthP7L7xwpyY}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 2)) - (#{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# + (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 3))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWJ2i}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ2k}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + ((#{f -ANAU$bmvAmthP7L7xwpyd}# + (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}# + #{w -ANAU$bmvAmthP7L7xwpyg}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#) (call-with-values (lambda () - (#{f _hoQGWMnyQPAh3k2jhWJ2i}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ2k}#) - #{w _hoQGWMnyQPAh3k2jhWJ2l}#)) - (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ2m}# - #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# - #{r _hoQGWMnyQPAh3k2jhWJ2o}#) - (if #{r _hoQGWMnyQPAh3k2jhWJ2o}# - (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) - (let ((#{xr _hoQGWMnyQPAh3k2jhWJ2p}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) - #{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}# + (#{f -ANAU$bmvAmthP7L7xwpyd}# + (cdr #{e -ANAU$bmvAmthP7L7xwpyf}#) + #{w -ANAU$bmvAmthP7L7xwpyg}#)) + (lambda (#{xr* -ANAU$bmvAmthP7L7xwpyh}# + #{y-pat -ANAU$bmvAmthP7L7xwpyi}# + #{r -ANAU$bmvAmthP7L7xwpyj}#) + (if #{r -ANAU$bmvAmthP7L7xwpyj}# + (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpyi}#) + (let ((#{xr -ANAU$bmvAmthP7L7xwpyk}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwpyf}#) + #{x-pat -ANAU$bmvAmthP7L7xwpyX}# + #{w -ANAU$bmvAmthP7L7xwpyg}# '() - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) - (if #{xr _hoQGWMnyQPAh3k2jhWJ2p}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) + (if #{xr -ANAU$bmvAmthP7L7xwpyk}# (values - (cons #{xr _hoQGWMnyQPAh3k2jhWJ2p}# - #{xr* _hoQGWMnyQPAh3k2jhWJ2m}#) - #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# - #{r _hoQGWMnyQPAh3k2jhWJ2o}#) + (cons #{xr -ANAU$bmvAmthP7L7xwpyk}# + #{xr* -ANAU$bmvAmthP7L7xwpyh}#) + #{y-pat -ANAU$bmvAmthP7L7xwpyi}# + #{r -ANAU$bmvAmthP7L7xwpyj}#) (values #f #f #f))) (values '() - (cdr #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) - (car #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) - #{w _hoQGWMnyQPAh3k2jhWJ2l}# - #{r _hoQGWMnyQPAh3k2jhWJ2o}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (cdr #{y-pat -ANAU$bmvAmthP7L7xwpyi}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwpyf}#) + (car #{y-pat -ANAU$bmvAmthP7L7xwpyi}#) + #{w -ANAU$bmvAmthP7L7xwpyg}# + #{r -ANAU$bmvAmthP7L7xwpyj}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) (values #f #f #f)))) (if (if (vector? - #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{e -ANAU$bmvAmthP7L7xwpyf}#) (if (= (vector-length - #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{e -ANAU$bmvAmthP7L7xwpyf}#) 4) (eq? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{e -ANAU$bmvAmthP7L7xwpyf}# 0) 'syntax-object) #f) #f) - (#{f _hoQGWMnyQPAh3k2jhWJ2i}# + (#{f -ANAU$bmvAmthP7L7xwpyd}# (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{e -ANAU$bmvAmthP7L7xwpyf}# 1) - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}# - #{e _hoQGWMnyQPAh3k2jhWJ2k}#)) + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwpyg}# + #{e -ANAU$bmvAmthP7L7xwpyf}#)) (values '() - #{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - #{e _hoQGWMnyQPAh3k2jhWJ2k}# - #{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWJ2i}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}#)))) - (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ3D}# - #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}# - #{r _hoQGWMnyQPAh3k2jhWJ3F}#) - (if #{r _hoQGWMnyQPAh3k2jhWJ3F}# - (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#) - (if (null? #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + #{y-pat -ANAU$bmvAmthP7L7xwpyY}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + #{e -ANAU$bmvAmthP7L7xwpyf}# + #{z-pat -ANAU$bmvAmthP7L7xwpyZ}# + #{w -ANAU$bmvAmthP7L7xwpyg}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))))))) + (#{f -ANAU$bmvAmthP7L7xwpyd}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}#)))) + (lambda (#{xr* -ANAU$bmvAmthP7L7xwpy$}# + #{y-pat -ANAU$bmvAmthP7L7xwpy@}# + #{r -ANAU$bmvAmthP7L7xwpzA}#) + (if #{r -ANAU$bmvAmthP7L7xwpzA}# + (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpy@}#) + (if (null? #{xr* -ANAU$bmvAmthP7L7xwpy$}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ3F}#) - (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# - #{xr* _hoQGWMnyQPAh3k2jhWJ3D}# - #{r _hoQGWMnyQPAh3k2jhWJ3F}#)) + #{r -ANAU$bmvAmthP7L7xwpzA}#) + (#{combine -ANAU$bmvAmthP7L7xwpwk}# + #{xr* -ANAU$bmvAmthP7L7xwpy$}# + #{r -ANAU$bmvAmthP7L7xwpzA}#)) #f) #f))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'free-id) - (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#) #t - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#) (if (= (vector-length - #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + #{e -ANAU$bmvAmthP7L7xwpxD}#) 4) (eq? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{e -ANAU$bmvAmthP7L7xwpxD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{e -ANAU$bmvAmthP7L7xwpxD}# 1)) #f)) - (if (let ((#{i _hoQGWMnyQPAh3k2jhWJ8Q}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)) - (#{j _hoQGWMnyQPAh3k2jhWJ8R}# + (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#)) + (#{j -ANAU$bmvAmthP7L7xwp4M}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 1))) (if (eq? (if (if (vector? - #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) + #{i -ANAU$bmvAmthP7L7xwp4L}#) (if (= (vector-length - #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) + #{i -ANAU$bmvAmthP7L7xwp4L}#) 4) (eq? (vector-ref - #{i _hoQGWMnyQPAh3k2jhWJ8Q}# + #{i -ANAU$bmvAmthP7L7xwp4L}# 0) 'syntax-object) #f) #f) (vector-ref - #{i _hoQGWMnyQPAh3k2jhWJ8Q}# + #{i -ANAU$bmvAmthP7L7xwp4L}# 1) - #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) + #{i -ANAU$bmvAmthP7L7xwp4L}#) (if (if (vector? - #{j _hoQGWMnyQPAh3k2jhWJ8R}#) + #{j -ANAU$bmvAmthP7L7xwp4M}#) (if (= (vector-length - #{j _hoQGWMnyQPAh3k2jhWJ8R}#) + #{j -ANAU$bmvAmthP7L7xwp4M}#) 4) (eq? (vector-ref - #{j _hoQGWMnyQPAh3k2jhWJ8R}# + #{j -ANAU$bmvAmthP7L7xwp4M}# 0) 'syntax-object) #f) #f) (vector-ref - #{j _hoQGWMnyQPAh3k2jhWJ8R}# + #{j -ANAU$bmvAmthP7L7xwp4M}# 1) - #{j _hoQGWMnyQPAh3k2jhWJ8R}#)) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{i _hoQGWMnyQPAh3k2jhWJ8Q}# + #{j -ANAU$bmvAmthP7L7xwp4M}#)) + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{i -ANAU$bmvAmthP7L7xwp4L}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{j _hoQGWMnyQPAh3k2jhWJ8R}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{j -ANAU$bmvAmthP7L7xwp4M}# '(()))) #f)) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{r -ANAU$bmvAmthP7L7xwpxG}# #f) #f) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'atom) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom) (if (equal? - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}#)) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}#)) + #{r -ANAU$bmvAmthP7L7xwpxG}# #f) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'vector) - (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (vector->list #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (vector->list #{e -ANAU$bmvAmthP7L7xwpxD}#) + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#) #f)))))))))))) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9N}# - #{p _hoQGWMnyQPAh3k2jhWJ9O}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) - (if (not #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (lambda (#{e -ANAU$bmvAmthP7L7xwp5I}# + #{p -ANAU$bmvAmthP7L7xwp5J}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + #{r -ANAU$bmvAmthP7L7xwp5L}# + #{mod -ANAU$bmvAmthP7L7xwp5M}#) + (if (not #{r -ANAU$bmvAmthP7L7xwp5L}#) #f - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# '_) - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# 'any) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWJ9N}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) - #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9N}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9N}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# '_) + #{r -ANAU$bmvAmthP7L7xwp5L}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# 'any) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwp5I}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + #{mod -ANAU$bmvAmthP7L7xwp5M}#) + #{r -ANAU$bmvAmthP7L7xwp5L}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5I}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5I}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 0) 'syntax-object) #f) #f) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 1) - #{p _hoQGWMnyQPAh3k2jhWJ9O}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 2)) - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 3)) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - #{e _hoQGWMnyQPAh3k2jhWJ9N}# - #{p _hoQGWMnyQPAh3k2jhWJ9O}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)))))))) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 1) + #{p -ANAU$bmvAmthP7L7xwp5J}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 2)) + #{r -ANAU$bmvAmthP7L7xwp5L}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 3)) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + #{e -ANAU$bmvAmthP7L7xwp5I}# + #{p -ANAU$bmvAmthP7L7xwp5J}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + #{r -ANAU$bmvAmthP7L7xwp5L}# + #{mod -ANAU$bmvAmthP7L7xwp5M}#)))))))) (set! $sc-dispatch - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ0s}# - #{p _hoQGWMnyQPAh3k2jhWJ0t}#) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# 'any) - (list #{e _hoQGWMnyQPAh3k2jhWJ0s}#) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# '_) + (lambda (#{e -ANAU$bmvAmthP7L7xwpwn}# + #{p -ANAU$bmvAmthP7L7xwpwo}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# 'any) + (list #{e -ANAU$bmvAmthP7L7xwpwn}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# '_) '() - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ0s}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ0s}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0) 'syntax-object) #f) #f) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 1) - #{p _hoQGWMnyQPAh3k2jhWJ0t}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 2) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1) + #{p -ANAU$bmvAmthP7L7xwpwo}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2) '() - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 3)) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - #{e _hoQGWMnyQPAh3k2jhWJ0s}# - #{p _hoQGWMnyQPAh3k2jhWJ0t}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3)) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + #{e -ANAU$bmvAmthP7L7xwpwn}# + #{p -ANAU$bmvAmthP7L7xwpwo}# '(()) '() #f)))))))))) @@ -23851,82 +23842,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMwo}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMwq}# + (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMwo}# + #{x -ANAU$bmvAmthP7L7xws3J}# '(_ () any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMwq}# + (if #{tmp -ANAU$bmvAmthP7L7xws3L}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMwu}# - #{e2 _hoQGWMnyQPAh3k2jhWMwv}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}# + #{e2 -ANAU$bmvAmthP7L7xws3Q}#) (cons '#(syntax-object let ((top) - #(ribcage #(e1 e2) #((top) (top)) #("2zo" "2zp")) + #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMwu}# - #{e2 _hoQGWMnyQPAh3k2jhWMwv}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMwq}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMww}# + (cons #{e1 -ANAU$bmvAmthP7L7xws3P}# + #{e2 -ANAU$bmvAmthP7L7xws3Q}#)))) + #{tmp -ANAU$bmvAmthP7L7xws3L}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMwo}# + #{x -ANAU$bmvAmthP7L7xws3J}# '(_ ((any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMww}# + (if #{tmp -ANAU$bmvAmthP7L7xws3R}# (@apply - (lambda (#{out _hoQGWMnyQPAh3k2jhWMw0}# - #{in _hoQGWMnyQPAh3k2jhWMw1}# - #{e1 _hoQGWMnyQPAh3k2jhWMw2}# - #{e2 _hoQGWMnyQPAh3k2jhWMw3}#) + (lambda (#{out -ANAU$bmvAmthP7L7xws3V}# + #{in -ANAU$bmvAmthP7L7xws3W}# + #{e1 -ANAU$bmvAmthP7L7xws3X}# + #{e2 -ANAU$bmvAmthP7L7xws3Y}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zq" "2zr" "2zs" "2zt")) + #("1bl" "1bm" "1bn" "1bo")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) - #{in _hoQGWMnyQPAh3k2jhWMw1}# + #{in -ANAU$bmvAmthP7L7xws3W}# '() - (list #{out _hoQGWMnyQPAh3k2jhWMw0}# + (list #{out -ANAU$bmvAmthP7L7xws3V}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zq" "2zr" "2zs" "2zt")) + #("1bl" "1bm" "1bn" "1bo")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMw2}# - #{e2 _hoQGWMnyQPAh3k2jhWMw3}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMww}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMw4}# + (cons #{e1 -ANAU$bmvAmthP7L7xws3X}# + #{e2 -ANAU$bmvAmthP7L7xws3Y}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws3R}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMwo}# + #{x -ANAU$bmvAmthP7L7xws3J}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMw4}# + (if #{tmp -ANAU$bmvAmthP7L7xws3Z}# (@apply - (lambda (#{out _hoQGWMnyQPAh3k2jhWMw8}# - #{in _hoQGWMnyQPAh3k2jhWMw9}# - #{e1 _hoQGWMnyQPAh3k2jhWMw$}# - #{e2 _hoQGWMnyQPAh3k2jhWMw@}#) + (lambda (#{out -ANAU$bmvAmthP7L7xws3d}# + #{in -ANAU$bmvAmthP7L7xws3e}# + #{e1 -ANAU$bmvAmthP7L7xws3f}# + #{e2 -ANAU$bmvAmthP7L7xws3g}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zu" "2zv" "2zw" "2zx")) + #("1bp" "1bq" "1br" "1bs")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '#(syntax-object list @@ -23934,56 +23925,56 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zu" "2zv" "2zw" "2zx")) + #("1bp" "1bq" "1br" "1bs")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) - #{in _hoQGWMnyQPAh3k2jhWMw9}#) + #{in -ANAU$bmvAmthP7L7xws3e}#) '() - (list #{out _hoQGWMnyQPAh3k2jhWMw8}# + (list #{out -ANAU$bmvAmthP7L7xws3d}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zu" "2zv" "2zw" "2zx")) + #("1bp" "1bq" "1br" "1bs")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMw$}# - #{e2 _hoQGWMnyQPAh3k2jhWMw@}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMw4}#) + (cons #{e1 -ANAU$bmvAmthP7L7xws3f}# + #{e2 -ANAU$bmvAmthP7L7xws3g}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws3Z}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMwo}#)))))))))) + #{x -ANAU$bmvAmthP7L7xws3J}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMxm}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxo}# + (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMxm}# + #{x -ANAU$bmvAmthP7L7xws4H}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMxo}# + (if #{tmp -ANAU$bmvAmthP7L7xws4J}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMxs}# - #{keyword _hoQGWMnyQPAh3k2jhWMxt}# - #{pattern _hoQGWMnyQPAh3k2jhWMxu}# - #{template _hoQGWMnyQPAh3k2jhWMxv}#) + (lambda (#{k -ANAU$bmvAmthP7L7xws4N}# + #{keyword -ANAU$bmvAmthP7L7xws4O}# + #{pattern -ANAU$bmvAmthP7L7xws4P}# + #{template -ANAU$bmvAmthP7L7xws4Q}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) '(#(syntax-object x @@ -23991,9 +23982,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) (vector '(#(syntax-object @@ -24002,9 +23993,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) . #(syntax-object @@ -24013,9 +24004,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24023,20 +24014,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)) + #{pattern -ANAU$bmvAmthP7L7xws4P}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) (cons '#(syntax-object x @@ -24044,13 +24035,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - (cons #{k _hoQGWMnyQPAh3k2jhWMxs}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}# - #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) + (cons #{k -ANAU$bmvAmthP7L7xws4N}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}# + #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#) (list (cons '#(syntax-object dummy ((top) @@ -24063,10 +24054,10 @@ (top) (top) (top)) - #("2zz" - "300" - "301" - "302")) + #("1bu" + "1bv" + "1bw" + "1bx")) #(ribcage () () @@ -24074,9 +24065,9 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) + #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#) (list '#(syntax-object syntax ((top) @@ -24089,10 +24080,10 @@ (top) (top) (top)) - #("2zz" - "300" - "301" - "302")) + #("1bu" + "1bv" + "1bw" + "1bx")) #(ribcage () () @@ -24100,43 +24091,43 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#))) - #{template _hoQGWMnyQPAh3k2jhWMxv}# - #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMxo}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxy}# + #{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#))) + #{template -ANAU$bmvAmthP7L7xws4Q}# + #{pattern -ANAU$bmvAmthP7L7xws4P}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws4J}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMxm}# + #{x -ANAU$bmvAmthP7L7xws4H}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMxy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMx2}# - #{docstring _hoQGWMnyQPAh3k2jhWMx3}# - #{keyword _hoQGWMnyQPAh3k2jhWMx4}# - #{pattern _hoQGWMnyQPAh3k2jhWMx5}# - #{template _hoQGWMnyQPAh3k2jhWMx6}#) + (lambda (#{k -ANAU$bmvAmthP7L7xws4X}# + #{docstring -ANAU$bmvAmthP7L7xws4Y}# + #{keyword -ANAU$bmvAmthP7L7xws4Z}# + #{pattern -ANAU$bmvAmthP7L7xws4a}# + #{template -ANAU$bmvAmthP7L7xws4b}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMx3}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) + #{docstring -ANAU$bmvAmthP7L7xws4Y}#))) + #{tmp -ANAU$bmvAmthP7L7xws4T}#) #f) (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMx7}# - #{docstring _hoQGWMnyQPAh3k2jhWMx8}# - #{keyword _hoQGWMnyQPAh3k2jhWMx9}# - #{pattern _hoQGWMnyQPAh3k2jhWMx$}# - #{template _hoQGWMnyQPAh3k2jhWMx@}#) + (lambda (#{k -ANAU$bmvAmthP7L7xws4c}# + #{docstring -ANAU$bmvAmthP7L7xws4d}# + #{keyword -ANAU$bmvAmthP7L7xws4e}# + #{pattern -ANAU$bmvAmthP7L7xws4f}# + #{template -ANAU$bmvAmthP7L7xws4g}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) '(#(syntax-object x @@ -24144,11 +24135,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) - #{docstring _hoQGWMnyQPAh3k2jhWMx8}# + #{docstring -ANAU$bmvAmthP7L7xws4d}# (vector '(#(syntax-object macro-type @@ -24156,9 +24147,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) . #(syntax-object @@ -24167,9 +24158,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24177,20 +24168,20 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)) + #{pattern -ANAU$bmvAmthP7L7xws4f}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) (cons '#(syntax-object x @@ -24202,13 +24193,13 @@ pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - (cons #{k _hoQGWMnyQPAh3k2jhWMx7}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}# - #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) + (cons #{k -ANAU$bmvAmthP7L7xws4c}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}# + #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#) (list (cons '#(syntax-object dummy ((top) @@ -24223,11 +24214,11 @@ (top) (top) (top)) - #("308" - "309" - "30a" - "30b" - "30c")) + #("1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () @@ -24235,10 +24226,10 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) + #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#) (list '#(syntax-object syntax ((top) @@ -24253,11 +24244,11 @@ (top) (top) (top)) - #("308" - "309" - "30a" - "30b" - "30c")) + #("1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () @@ -24265,52 +24256,52 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#))) - #{template _hoQGWMnyQPAh3k2jhWMx@}# - #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) + #{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#))) + #{template -ANAU$bmvAmthP7L7xws4g}# + #{pattern -ANAU$bmvAmthP7L7xws4f}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws4T}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMxm}#)))))))) + #{x -ANAU$bmvAmthP7L7xws4H}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMya}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyc}# + (lambda (#{x -ANAU$bmvAmthP7L7xws47}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws49}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMya}# + #{x -ANAU$bmvAmthP7L7xws47}# '(_ (any . any) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMyc}# + (if #{tmp -ANAU$bmvAmthP7L7xws49}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWMyg}# - #{pattern _hoQGWMnyQPAh3k2jhWMyh}# - #{template _hoQGWMnyQPAh3k2jhWMyi}#) + (lambda (#{name -ANAU$bmvAmthP7L7xws5B}# + #{pattern -ANAU$bmvAmthP7L7xws5C}# + #{template -ANAU$bmvAmthP7L7xws5D}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30e" "30f" "30g")) + #("1c9" "1ca" "1cb")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) - #{name _hoQGWMnyQPAh3k2jhWMyg}# + #{name -ANAU$bmvAmthP7L7xws5B}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30e" "30f" "30g")) + #("1c9" "1ca" "1cb")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -24319,56 +24310,56 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("30e" "30f" "30g")) + #("1c9" "1ca" "1cb")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMyh}#) - #{template _hoQGWMnyQPAh3k2jhWMyi}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMyc}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyj}# + #{pattern -ANAU$bmvAmthP7L7xws5C}#) + #{template -ANAU$bmvAmthP7L7xws5D}#)))) + #{tmp -ANAU$bmvAmthP7L7xws49}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMya}# + #{x -ANAU$bmvAmthP7L7xws47}# '(_ (any . any) any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMyj}# + (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWMyn}# - #{pattern _hoQGWMnyQPAh3k2jhWMyo}# - #{docstring _hoQGWMnyQPAh3k2jhWMyp}# - #{template _hoQGWMnyQPAh3k2jhWMyq}#) + (lambda (#{name -ANAU$bmvAmthP7L7xws5I}# + #{pattern -ANAU$bmvAmthP7L7xws5J}# + #{docstring -ANAU$bmvAmthP7L7xws5K}# + #{template -ANAU$bmvAmthP7L7xws5L}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMyp}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) + #{docstring -ANAU$bmvAmthP7L7xws5K}#))) + #{tmp -ANAU$bmvAmthP7L7xws5E}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWMyr}# - #{pattern _hoQGWMnyQPAh3k2jhWMys}# - #{docstring _hoQGWMnyQPAh3k2jhWMyt}# - #{template _hoQGWMnyQPAh3k2jhWMyu}#) + (lambda (#{name -ANAU$bmvAmthP7L7xws5M}# + #{pattern -ANAU$bmvAmthP7L7xws5N}# + #{docstring -ANAU$bmvAmthP7L7xws5O}# + #{template -ANAU$bmvAmthP7L7xws5P}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30l" "30m" "30n" "30o")) + #("1cg" "1ch" "1ci" "1cj")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) - #{name _hoQGWMnyQPAh3k2jhWMyr}# + #{name -ANAU$bmvAmthP7L7xws5M}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30l" "30m" "30n" "30o")) + #("1cg" "1ch" "1ci" "1cj")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) '() - #{docstring _hoQGWMnyQPAh3k2jhWMyt}# + #{docstring -ANAU$bmvAmthP7L7xws5O}# (list (cons '#(syntax-object _ ((top) @@ -24378,52 +24369,52 @@ docstring template) #((top) (top) (top) (top)) - #("30l" "30m" "30n" "30o")) + #("1cg" "1ch" "1ci" "1cj")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("30d"))) + #("1c8"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMys}#) - #{template _hoQGWMnyQPAh3k2jhWMyu}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) + #{pattern -ANAU$bmvAmthP7L7xws5N}#) + #{template -ANAU$bmvAmthP7L7xws5P}#)))) + #{tmp -ANAU$bmvAmthP7L7xws5E}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMya}#)))))))) + #{x -ANAU$bmvAmthP7L7xws47}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMzQ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzS}# + (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMzQ}# + #{x -ANAU$bmvAmthP7L7xws5x}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMzS}# + (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}# (@apply - (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzW}# - #{x _hoQGWMnyQPAh3k2jhWMzX}# - #{v _hoQGWMnyQPAh3k2jhWMzY}# - #{e1 _hoQGWMnyQPAh3k2jhWMzZ}# - #{e2 _hoQGWMnyQPAh3k2jhWMza}#) + (lambda (#{let* -ANAU$bmvAmthP7L7xws53}# + #{x -ANAU$bmvAmthP7L7xws54}# + #{v -ANAU$bmvAmthP7L7xws55}# + #{e1 -ANAU$bmvAmthP7L7xws56}# + #{e2 -ANAU$bmvAmthP7L7xws57}#) (and-map identifier? - #{x _hoQGWMnyQPAh3k2jhWMzX}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) + #{x -ANAU$bmvAmthP7L7xws54}#)) + #{tmp -ANAU$bmvAmthP7L7xws5z}#) #f) (@apply - (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzb}# - #{x _hoQGWMnyQPAh3k2jhWMzc}# - #{v _hoQGWMnyQPAh3k2jhWMzd}# - #{e1 _hoQGWMnyQPAh3k2jhWMze}# - #{e2 _hoQGWMnyQPAh3k2jhWMzf}#) + (lambda (#{let* -ANAU$bmvAmthP7L7xws58}# + #{x -ANAU$bmvAmthP7L7xws59}# + #{v -ANAU$bmvAmthP7L7xws5$}# + #{e1 -ANAU$bmvAmthP7L7xws5@}# + #{e2 -ANAU$bmvAmthP7L7xws6A}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWMzg}# - (lambda (#{bindings _hoQGWMnyQPAh3k2jhWMzj}#) - (if (null? #{bindings _hoQGWMnyQPAh3k2jhWMzj}#) + ((#{f -ANAU$bmvAmthP7L7xws6B}# + (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#) + (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#) (cons '#(syntax-object let ((top) @@ -24431,29 +24422,29 @@ #(ribcage #(f bindings) #((top) (top)) - #("310" "311")) + #("1cv" "1cw")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30v" "30w" "30x" "30y" "30z")) + #("1cq" "1cr" "1cs" "1ct" "1cu")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30p"))) + #(ribcage #(x) #((top)) #("1ck"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMze}# - #{e2 _hoQGWMnyQPAh3k2jhWMzf}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzk}# - (list (#{f _hoQGWMnyQPAh3k2jhWMzg}# - (cdr #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)) - (car #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzl}# + (cons #{e1 -ANAU$bmvAmthP7L7xws5@}# + #{e2 -ANAU$bmvAmthP7L7xws6A}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xws6F}# + (list (#{f -ANAU$bmvAmthP7L7xws6B}# + (cdr #{bindings -ANAU$bmvAmthP7L7xws6E}#)) + (car #{bindings -ANAU$bmvAmthP7L7xws6E}#)))) + (let ((#{tmp -ANAU$bmvAmthP7L7xws6G}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWMzk}# + #{tmp -ANAU$bmvAmthP7L7xws6F}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMzl}# + (if #{tmp -ANAU$bmvAmthP7L7xws6G}# (@apply - (lambda (#{body _hoQGWMnyQPAh3k2jhWMzn}# - #{binding _hoQGWMnyQPAh3k2jhWMzo}#) + (lambda (#{body -ANAU$bmvAmthP7L7xws6I}# + #{binding -ANAU$bmvAmthP7L7xws6J}#) (list '#(syntax-object let ((top) @@ -24461,102 +24452,102 @@ #(ribcage #(body binding) #((top) (top)) - #("312" "313")) + #("1cx" "1cy")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("310" "311")) + #("1cv" "1cw")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30v" "30w" "30x" "30y" "30z")) + #("1cq" "1cr" "1cs" "1ct" "1cu")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30p"))) + #(ribcage #(x) #((top)) #("1ck"))) (hygiene guile)) - (list #{binding _hoQGWMnyQPAh3k2jhWMzo}#) - #{body _hoQGWMnyQPAh3k2jhWMzn}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMzl}#) + (list #{binding -ANAU$bmvAmthP7L7xws6J}#) + #{body -ANAU$bmvAmthP7L7xws6I}#)) + #{tmp -ANAU$bmvAmthP7L7xws6G}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWMzk}#)))))))) - (#{f _hoQGWMnyQPAh3k2jhWMzg}# + #{tmp -ANAU$bmvAmthP7L7xws6F}#)))))))) + (#{f -ANAU$bmvAmthP7L7xws6B}# (map list - #{x _hoQGWMnyQPAh3k2jhWMzc}# - #{v _hoQGWMnyQPAh3k2jhWMzd}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) + #{x -ANAU$bmvAmthP7L7xws59}# + #{v -ANAU$bmvAmthP7L7xws5$}#)))) + #{tmp -ANAU$bmvAmthP7L7xws5z}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMzQ}#)))))) + #{x -ANAU$bmvAmthP7L7xws5x}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x _hoQGWMnyQPAh3k2jhWM0U}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0W}# + (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws63}# ($sc-dispatch - #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# + #{orig-x -ANAU$bmvAmthP7L7xws61}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0W}# + (if #{tmp -ANAU$bmvAmthP7L7xws63}# (@apply - (lambda (#{var _hoQGWMnyQPAh3k2jhWM0a}# - #{init _hoQGWMnyQPAh3k2jhWM0b}# - #{step _hoQGWMnyQPAh3k2jhWM0c}# - #{e0 _hoQGWMnyQPAh3k2jhWM0d}# - #{e1 _hoQGWMnyQPAh3k2jhWM0e}# - #{c _hoQGWMnyQPAh3k2jhWM0f}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0g}# - (map (lambda (#{v _hoQGWMnyQPAh3k2jhWM0j}# - #{s _hoQGWMnyQPAh3k2jhWM0k}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0m}# + (lambda (#{var -ANAU$bmvAmthP7L7xws67}# + #{init -ANAU$bmvAmthP7L7xws68}# + #{step -ANAU$bmvAmthP7L7xws69}# + #{e0 -ANAU$bmvAmthP7L7xws6$}# + #{e1 -ANAU$bmvAmthP7L7xws6@}# + #{c -ANAU$bmvAmthP7L7xws7A}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7B}# + (map (lambda (#{v -ANAU$bmvAmthP7L7xws7E}# + #{s -ANAU$bmvAmthP7L7xws7F}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7H}# ($sc-dispatch - #{s _hoQGWMnyQPAh3k2jhWM0k}# + #{s -ANAU$bmvAmthP7L7xws7F}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0m}# + (if #{tmp -ANAU$bmvAmthP7L7xws7H}# (@apply - (lambda () #{v _hoQGWMnyQPAh3k2jhWM0j}#) - #{tmp _hoQGWMnyQPAh3k2jhWM0m}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0p}# + (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#) + #{tmp -ANAU$bmvAmthP7L7xws7H}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}# ($sc-dispatch - #{s _hoQGWMnyQPAh3k2jhWM0k}# + #{s -ANAU$bmvAmthP7L7xws7F}# '(any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0p}# + (if #{tmp -ANAU$bmvAmthP7L7xws7K}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWM0s}#) - #{e _hoQGWMnyQPAh3k2jhWM0s}#) - #{tmp _hoQGWMnyQPAh3k2jhWM0p}#) + (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#) + #{e -ANAU$bmvAmthP7L7xws7N}#) + #{tmp -ANAU$bmvAmthP7L7xws7K}#) (syntax-violation 'do "bad step expression" - #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# - #{s _hoQGWMnyQPAh3k2jhWM0k}#)))))) - #{var _hoQGWMnyQPAh3k2jhWM0a}# - #{step _hoQGWMnyQPAh3k2jhWM0c}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0h}# + #{orig-x -ANAU$bmvAmthP7L7xws61}# + #{s -ANAU$bmvAmthP7L7xws7F}#)))))) + #{var -ANAU$bmvAmthP7L7xws67}# + #{step -ANAU$bmvAmthP7L7xws69}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM0g}# + #{tmp -ANAU$bmvAmthP7L7xws7B}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0h}# + (if #{tmp -ANAU$bmvAmthP7L7xws7C}# (@apply - (lambda (#{step _hoQGWMnyQPAh3k2jhWM0y}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM00}# + (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}# ($sc-dispatch - #{e1 _hoQGWMnyQPAh3k2jhWM0e}# + #{e1 -ANAU$bmvAmthP7L7xws6@}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM00}# + (if #{tmp -ANAU$bmvAmthP7L7xws7V}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("31b")) + #(ribcage #(step) #((top)) #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24565,23 +24556,23 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("31b")) + #(ribcage #(step) #((top)) #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24590,21 +24581,21 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (map list - #{var _hoQGWMnyQPAh3k2jhWM0a}# - #{init _hoQGWMnyQPAh3k2jhWM0b}#) + #{var -ANAU$bmvAmthP7L7xws67}# + #{init -ANAU$bmvAmthP7L7xws68}#) (list '#(syntax-object if ((top) @@ -24612,7 +24603,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24621,17 +24612,17 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (list '#(syntax-object not @@ -24640,7 +24631,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24654,19 +24645,19 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{e0 _hoQGWMnyQPAh3k2jhWM0d}#) + #{e0 -ANAU$bmvAmthP7L7xws6$}#) (cons '#(syntax-object begin ((top) @@ -24674,7 +24665,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24688,20 +24679,20 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (append - #{c _hoQGWMnyQPAh3k2jhWM0f}# + #{c -ANAU$bmvAmthP7L7xws7A}# (list (cons '#(syntax-object doloop ((top) @@ -24712,7 +24703,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24726,12 +24717,12 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () @@ -24739,31 +24730,31 @@ #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM00}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM04}# + #{step -ANAU$bmvAmthP7L7xws7T}#))))))) + #{tmp -ANAU$bmvAmthP7L7xws7V}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}# ($sc-dispatch - #{e1 _hoQGWMnyQPAh3k2jhWM0e}# + #{e1 -ANAU$bmvAmthP7L7xws6@}# '(any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM04}# + (if #{tmp -ANAU$bmvAmthP7L7xws7Z}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWM08}# - #{e2 _hoQGWMnyQPAh3k2jhWM09}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}# + #{e2 -ANAU$bmvAmthP7L7xws7e}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24772,17 +24763,17 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) '#(syntax-object doloop @@ -24790,12 +24781,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24804,33 +24795,33 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (map list - #{var _hoQGWMnyQPAh3k2jhWM0a}# - #{init _hoQGWMnyQPAh3k2jhWM0b}#) + #{var -ANAU$bmvAmthP7L7xws67}# + #{init -ANAU$bmvAmthP7L7xws68}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24839,31 +24830,31 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{e0 _hoQGWMnyQPAh3k2jhWM0d}# + #{e0 -ANAU$bmvAmthP7L7xws6$}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24877,32 +24868,32 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWM08}# - #{e2 _hoQGWMnyQPAh3k2jhWM09}#)) + (cons #{e1 -ANAU$bmvAmthP7L7xws7d}# + #{e2 -ANAU$bmvAmthP7L7xws7e}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24916,20 +24907,20 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (append - #{c _hoQGWMnyQPAh3k2jhWM0f}# + #{c -ANAU$bmvAmthP7L7xws7A}# (list (cons '#(syntax-object doloop ((top) @@ -24938,8 +24929,8 @@ e2) #((top) (top)) - #("31c" - "31d")) + #("1d7" + "1d8")) #(ribcage () () @@ -24947,7 +24938,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24961,12 +24952,12 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () @@ -24974,43 +24965,43 @@ #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM04}#) + #{step -ANAU$bmvAmthP7L7xws7T}#))))))) + #{tmp -ANAU$bmvAmthP7L7xws7Z}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 _hoQGWMnyQPAh3k2jhWM0e}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWM0h}#) + #{e1 -ANAU$bmvAmthP7L7xws6@}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws7C}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM0g}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM0W}#) + #{tmp -ANAU$bmvAmthP7L7xws7B}#))))) + #{tmp -ANAU$bmvAmthP7L7xws63}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#)))))) + #{orig-x -ANAU$bmvAmthP7L7xws61}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWM4k}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4n}# + ((#{quasi -ANAU$bmvAmthP7L7xws$t}# + (lambda (#{p -ANAU$bmvAmthP7L7xws@F}# + #{lev -ANAU$bmvAmthP7L7xws@G}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@I}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25019,22 +25010,22 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM4n}# + (if #{tmp -ANAU$bmvAmthP7L7xws@I}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM4r}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) + (lambda (#{p -ANAU$bmvAmthP7L7xws@M}#) + (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("31r")) + #(ribcage #(p) #((top)) #("1dm")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25043,16 +25034,16 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) - #{p _hoQGWMnyQPAh3k2jhWM4r}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{p -ANAU$bmvAmthP7L7xws@M}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31r")) + #(ribcage #(p) #((top)) #("1dm")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25061,14 +25052,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31r")) + #(ribcage #(p) #((top)) #("1dm")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25077,15 +25068,15 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - (list #{p _hoQGWMnyQPAh3k2jhWM4r}#) - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM4n}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4u}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + (list #{p -ANAU$bmvAmthP7L7xws@M}#) + (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))))) + #{tmp -ANAU$bmvAmthP7L7xws@I}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@P}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '(#(free-id #(syntax-object quasiquote @@ -25094,7 +25085,7 @@ #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25103,19 +25094,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM4u}# + (if #{tmp -ANAU$bmvAmthP7L7xws@P}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM4y}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (lambda (#{p -ANAU$bmvAmthP7L7xws@T}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31s")) + #(ribcage #(p) #((top)) #("1dn")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25124,14 +25115,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("31s")) + #(ribcage #(p) #((top)) #("1dn")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25140,23 +25131,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - (list #{p _hoQGWMnyQPAh3k2jhWM4y}#) - (#{1+}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM4u}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM41}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + (list #{p -ANAU$bmvAmthP7L7xws@T}#) + (#{1+}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))) + #{tmp -ANAU$bmvAmthP7L7xws@P}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@W}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM41}# + (if #{tmp -ANAU$bmvAmthP7L7xws@W}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM45}# - #{q _hoQGWMnyQPAh3k2jhWM46}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM48}# + (lambda (#{p -ANAU$bmvAmthP7L7xws@a}# + #{q -ANAU$bmvAmthP7L7xws@b}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@d}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM45}# + #{p -ANAU$bmvAmthP7L7xws@a}# '(#(free-id #(syntax-object unquote @@ -25164,12 +25155,12 @@ #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25184,38 +25175,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM48}# + (if #{tmp -ANAU$bmvAmthP7L7xws@d}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM5A}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) - (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#) + (lambda (#{p -ANAU$bmvAmthP7L7xws@h}#) + (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) + (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31v")) + #("1dq")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25230,34 +25221,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#)) - #{p _hoQGWMnyQPAh3k2jhWM5A}#) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#)) + #{p -ANAU$bmvAmthP7L7xws@h}#) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31v")) + #(ribcage #(p) #((top)) #("1dq")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25272,27 +25263,27 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31v")) + #(ribcage #(p) #((top)) #("1dq")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25307,24 +25298,24 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM5A}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM48}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5p}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xws@h}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)))) + #{tmp -ANAU$bmvAmthP7L7xws@d}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAK}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM45}# + #{p -ANAU$bmvAmthP7L7xws@a}# '(#(free-id #(syntax-object unquote-splicing @@ -25332,12 +25323,12 @@ #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25352,38 +25343,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM5p}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAK}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM5t}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) - (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#) + (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) + (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31w")) + #("1dr")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25398,37 +25389,37 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#)) - #{p _hoQGWMnyQPAh3k2jhWM5t}#) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#)) + #{p -ANAU$bmvAmthP7L7xwtAO}#) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("31w")) + #("1dr")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25443,13 +25434,13 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -25457,16 +25448,16 @@ #(ribcage #(p) #((top)) - #("31w")) + #("1dr")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25481,59 +25472,59 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM5t}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM5p}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM45}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM41}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5$}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtAO}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtAK}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xws@a}# + #{lev -ANAU$bmvAmthP7L7xws@G}#) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#))))))) + #{tmp -ANAU$bmvAmthP7L7xws@W}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAf}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '#(vector each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM5$}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAf}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM6C}#) - (let ((#{x _hoQGWMnyQPAh3k2jhWM6F}# - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{x _hoQGWMnyQPAh3k2jhWM6C}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6H}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#) + (let ((#{x -ANAU$bmvAmthP7L7xwtAm}# + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{x -ANAU$bmvAmthP7L7xwtAj}# + #{lev -ANAU$bmvAmthP7L7xws@G}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM6F}# + #{x -ANAU$bmvAmthP7L7xwtAm}# '(#(atom "quote") each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6H}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAo}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM6L}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("32s")) + #("1en")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25548,38 +25539,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) (list->vector - #{x _hoQGWMnyQPAh3k2jhWM6L}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM6H}#) + #{x -ANAU$bmvAmthP7L7xwtAs}#))) + #{tmp -ANAU$bmvAmthP7L7xwtAo}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWM6N}# - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6Z}# - #{k _hoQGWMnyQPAh3k2jhWM6a}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6c}# + ((#{f -ANAU$bmvAmthP7L7xwtAu}# + (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}# + #{k -ANAU$bmvAmthP7L7xwtA7}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtA9}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{y -ANAU$bmvAmthP7L7xwtA6}# '(#(atom "quote") each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6c}# + (if #{tmp -ANAU$bmvAmthP7L7xwtA9}# (@apply - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6f}#) - (#{k _hoQGWMnyQPAh3k2jhWM6a}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#) + (lambda (#{y -ANAU$bmvAmthP7L7xwtBA}#) + (#{k -ANAU$bmvAmthP7L7xwtA7}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("32z")) + #("1eu")) #(ribcage () () @@ -25591,13 +25582,13 @@ #((top) (top) (top)) - #("32u" - "32v" - "32w")) + #("1ep" + "1eq" + "1er")) #(ribcage #(_) #((top)) - #("32t")) + #("1eo")) #(ribcage () () @@ -25605,7 +25596,7 @@ #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25620,51 +25611,51 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#)) - #{y _hoQGWMnyQPAh3k2jhWM6f}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM6c}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6h}# + #{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)) + #{y -ANAU$bmvAmthP7L7xwtBA}#))) + #{tmp -ANAU$bmvAmthP7L7xwtA9}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBC}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{y -ANAU$bmvAmthP7L7xwtA6}# '(#(atom "list") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6h}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBC}# (@apply - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6k}#) - (#{k _hoQGWMnyQPAh3k2jhWM6a}# - #{y _hoQGWMnyQPAh3k2jhWM6k}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM6h}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6l}# + (lambda (#{y -ANAU$bmvAmthP7L7xwtBF}#) + (#{k -ANAU$bmvAmthP7L7xwtA7}# + #{y -ANAU$bmvAmthP7L7xwtBF}#)) + #{tmp -ANAU$bmvAmthP7L7xwtBC}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBG}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{y -ANAU$bmvAmthP7L7xwtA6}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6l}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBG}# (@apply - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6o}# - #{z _hoQGWMnyQPAh3k2jhWM6p}#) - (#{f _hoQGWMnyQPAh3k2jhWM6N}# - #{z _hoQGWMnyQPAh3k2jhWM6p}# - (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6q}#) - (#{k _hoQGWMnyQPAh3k2jhWM6a}# + (lambda (#{y -ANAU$bmvAmthP7L7xwtBJ}# + #{z -ANAU$bmvAmthP7L7xwtBK}#) + (#{f -ANAU$bmvAmthP7L7xwtAu}# + #{z -ANAU$bmvAmthP7L7xwtBK}# + (lambda (#{ls -ANAU$bmvAmthP7L7xwtBL}#) + (#{k -ANAU$bmvAmthP7L7xwtA7}# (append - #{y _hoQGWMnyQPAh3k2jhWM6o}# - #{ls _hoQGWMnyQPAh3k2jhWM6q}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM6l}#) + #{y -ANAU$bmvAmthP7L7xwtBJ}# + #{ls -ANAU$bmvAmthP7L7xwtBL}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtBG}#) (list '#(syntax-object "list->vector" ((top) @@ -25673,14 +25664,14 @@ () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3K}#) - #((m_hoQGWMnyQPAh3k2jhWM3L + #(#{ g-ANAU$bmvAmthP7L7xws9r}#) + #((m-ANAU$bmvAmthP7L7xws9s top)) - #("335")) + #("1f0")) #(ribcage #(else) #((top)) - #("334")) + #("1ez")) #(ribcage () () @@ -25690,13 +25681,13 @@ #((top) (top) (top)) - #("32u" - "32v" - "32w")) + #("1ep" + "1eq" + "1er")) #(ribcage #(_) #((top)) - #("32t")) + #("1eo")) #(ribcage () () @@ -25704,7 +25695,7 @@ #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25719,26 +25710,26 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM6F}#)))))))))) - (#{f _hoQGWMnyQPAh3k2jhWM6N}# - #{x _hoQGWMnyQPAh3k2jhWM6F}# - (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6P}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6R}# + #{x -ANAU$bmvAmthP7L7xwtAm}#)))))))))) + (#{f -ANAU$bmvAmthP7L7xwtAu}# + #{x -ANAU$bmvAmthP7L7xwtAm}# + (lambda (#{ls -ANAU$bmvAmthP7L7xwtAw}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAy}# ($sc-dispatch - #{ls _hoQGWMnyQPAh3k2jhWM6P}# + #{ls -ANAU$bmvAmthP7L7xwtAw}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6R}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAy}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#) (cons '#(syntax-object "vector" ((top) @@ -25747,10 +25738,10 @@ () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM22}#) - #((m_hoQGWMnyQPAh3k2jhWM23 + #(#{ g-ANAU$bmvAmthP7L7xws9X}#) + #((m-ANAU$bmvAmthP7L7xws9Y top)) - #("32y")) + #("1et")) #(ribcage () () @@ -25766,11 +25757,11 @@ #(ribcage #(ls) #((top)) - #("32x")) + #("1es")) #(ribcage #(_) #((top)) - #("32t")) + #("1eo")) #(ribcage () () @@ -25778,7 +25769,7 @@ #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25793,30 +25784,30 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM6R}#) + #{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)) + #{tmp -ANAU$bmvAmthP7L7xwtAy}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls _hoQGWMnyQPAh3k2jhWM6P}#)))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM5$}#) + #{ls -ANAU$bmvAmthP7L7xwtAw}#)))))))))) + #{tmp -ANAU$bmvAmthP7L7xwtAf}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31z")) + #(ribcage #(p) #((top)) #("1du")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25831,29 +25822,29 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{p _hoQGWMnyQPAh3k2jhWM4k}#))))))))))) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWM7G}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7J}# + #{p -ANAU$bmvAmthP7L7xws@F}#))))))))))) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM7G}# + #{p -ANAU$bmvAmthP7L7xwtBn}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM7J}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBq}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM7N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7Q}# + (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}# + #{q -ANAU$bmvAmthP7L7xwtBv}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM7N}# + #{p -ANAU$bmvAmthP7L7xwtBu}# '(#(free-id #(syntax-object unquote @@ -25861,12 +25852,12 @@ #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -25881,38 +25872,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM7Q}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBx}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM7U}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) - (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtB1}#) + (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0) + (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("324")) + #("1dz")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -25927,34 +25918,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#)) - #{p _hoQGWMnyQPAh3k2jhWM7U}#) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#)) + #{p -ANAU$bmvAmthP7L7xwtB1}#) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("324")) + #(ribcage #(p) #((top)) #("1dz")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -25969,27 +25960,27 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("324")) + #(ribcage #(p) #((top)) #("1dz")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26004,24 +25995,24 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM7U}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7@}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtB1}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#))) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtBx}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtCg}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM7N}# + #{p -ANAU$bmvAmthP7L7xwtBu}# '(#(free-id #(syntax-object unquote-splicing @@ -26029,12 +26020,12 @@ #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26049,38 +26040,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM7@}# + (if #{tmp -ANAU$bmvAmthP7L7xwtCg}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM8D}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) - (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtCk}#) + (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0) + (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("325")) + #("1e0")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26095,34 +26086,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#)) - #{p _hoQGWMnyQPAh3k2jhWM8D}#) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#)) + #{p -ANAU$bmvAmthP7L7xwtCk}#) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("325")) + #(ribcage #(p) #((top)) #("1e0")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26137,27 +26128,27 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("325")) + #(ribcage #(p) #((top)) #("1e0")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26172,39 +26163,39 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM8D}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM7@}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM7N}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM7J}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8Y}# - ($sc-dispatch #{p _hoQGWMnyQPAh3k2jhWM7G}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8Y}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtCk}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#))) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtCg}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtBu}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#))))))) + #{tmp -ANAU$bmvAmthP7L7xwtBq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtC5}# + ($sc-dispatch #{p -ANAU$bmvAmthP7L7xwtBn}# '()))) + (if #{tmp -ANAU$bmvAmthP7L7xwtC5}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("320" "321")) + #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26213,64 +26204,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) ())) - #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#) + #{tmp -ANAU$bmvAmthP7L7xwtC5}#) (syntax-violation #f "source expression failed to match any pattern" - #{p _hoQGWMnyQPAh3k2jhWM7G}#))))))) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM8l}# - #{y _hoQGWMnyQPAh3k2jhWM8m}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8n}# - (list #{x _hoQGWMnyQPAh3k2jhWM8l}# - #{y _hoQGWMnyQPAh3k2jhWM8m}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8o}# + #{p -ANAU$bmvAmthP7L7xwtBn}#))))))) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtDG}# + #{y -ANAU$bmvAmthP7L7xwtDH}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDI}# + (list #{x -ANAU$bmvAmthP7L7xwtDG}# + #{y -ANAU$bmvAmthP7L7xwtDH}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDJ}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM8n}# + #{tmp -ANAU$bmvAmthP7L7xwtDI}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8o}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM8q}# - #{y _hoQGWMnyQPAh3k2jhWM8r}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8t}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}# + #{y -ANAU$bmvAmthP7L7xwtDM}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM8r}# + #{y -ANAU$bmvAmthP7L7xwtDM}# '(#(atom "quote") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8t}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDO}# (@apply - (lambda (#{dy _hoQGWMnyQPAh3k2jhWM8x}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8z}# + (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{x -ANAU$bmvAmthP7L7xwtDL}# '(#(atom "quote") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8z}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDU}# (@apply - (lambda (#{dx _hoQGWMnyQPAh3k2jhWM83}#) + (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("32c")) + #("1e7")) #(ribcage #(dy) #((top)) - #("32b")) + #("1e6")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26285,34 +26276,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - (cons #{dx _hoQGWMnyQPAh3k2jhWM83}# - #{dy _hoQGWMnyQPAh3k2jhWM8x}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM8z}#) - (if (null? #{dy _hoQGWMnyQPAh3k2jhWM8x}#) + (cons #{dx -ANAU$bmvAmthP7L7xwtDY}# + #{dy -ANAU$bmvAmthP7L7xwtDS}#))) + #{tmp -ANAU$bmvAmthP7L7xwtDU}#) + (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#) (list '#(syntax-object "list" ((top) - #(ribcage #(_) #((top)) #("32d")) - #(ribcage #(dy) #((top)) #("32b")) + #(ribcage #(_) #((top)) #("1e8")) + #(ribcage #(dy) #((top)) #("1e6")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26327,31 +26318,31 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM8q}#) + #{x -ANAU$bmvAmthP7L7xwtDL}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32d")) - #(ribcage #(dy) #((top)) #("32b")) + #(ribcage #(_) #((top)) #("1e8")) + #(ribcage #(dy) #((top)) #("1e6")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26366,42 +26357,42 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{y _hoQGWMnyQPAh3k2jhWM8r}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM8t}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM88}# + #{x -ANAU$bmvAmthP7L7xwtDL}# + #{y -ANAU$bmvAmthP7L7xwtDM}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtDO}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM8r}# + #{y -ANAU$bmvAmthP7L7xwtDM}# '(#(atom "list") . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM88}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDd}# (@apply - (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9A}#) + (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("32e")) + #("1e9")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26416,42 +26407,42 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{stuff _hoQGWMnyQPAh3k2jhWM9A}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM88}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9B}# + (cons #{x -ANAU$bmvAmthP7L7xwtDL}# + #{stuff -ANAU$bmvAmthP7L7xwtDh}#))) + #{tmp -ANAU$bmvAmthP7L7xwtDd}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM8r}# + #{y -ANAU$bmvAmthP7L7xwtDM}# '(#(atom "list*") . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9B}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDi}# (@apply - (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9F}#) + (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("32f")) + #("1ea")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26466,32 +26457,32 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{stuff _hoQGWMnyQPAh3k2jhWM9F}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM9B}#) + (cons #{x -ANAU$bmvAmthP7L7xwtDL}# + #{stuff -ANAU$bmvAmthP7L7xwtDm}#))) + #{tmp -ANAU$bmvAmthP7L7xwtDi}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32g")) + #(ribcage #(_) #((top)) #("1eb")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26506,37 +26497,37 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{y _hoQGWMnyQPAh3k2jhWM8r}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM8o}#) + #{x -ANAU$bmvAmthP7L7xwtDL}# + #{y -ANAU$bmvAmthP7L7xwtDM}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwtDJ}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM8n}#)))))) - (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM9Q}# - #{y _hoQGWMnyQPAh3k2jhWM9R}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9T}# + #{tmp -ANAU$bmvAmthP7L7xwtDI}#)))))) + (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}# + #{y -ANAU$bmvAmthP7L7xwtDy}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM9R}# + #{y -ANAU$bmvAmthP7L7xwtDy}# '(#(atom "quote") ())))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9T}# + (if #{tmp -ANAU$bmvAmthP7L7xwtD0}# (@apply (lambda () - (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) + (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(x y) #((top) (top)) #("32h" "32i")) + #(ribcage #(x y) #((top) (top)) #("1ec" "1ed")) #(ribcage (emit quasivector quasilist* @@ -26545,28 +26536,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) ()) - (if (null? (cdr #{x _hoQGWMnyQPAh3k2jhWM9Q}#)) - (car #{x _hoQGWMnyQPAh3k2jhWM9Q}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9Y}# + (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#)) + (car #{x -ANAU$bmvAmthP7L7xwtDx}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM9Q}# + #{x -ANAU$bmvAmthP7L7xwtDx}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9Y}# + (if #{tmp -ANAU$bmvAmthP7L7xwtD5}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM9c}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("32j")) + #(ribcage #(p) #((top)) #("1ee")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32h" "32i")) + #("1ec" "1ed")) #(ribcage (emit quasivector quasilist* @@ -26581,34 +26572,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{p _hoQGWMnyQPAh3k2jhWM9c}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#) + #{p -ANAU$bmvAmthP7L7xwtD9}#)) + #{tmp -ANAU$bmvAmthP7L7xwtD5}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWM9Q}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWM9T}#) - (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) - #{y _hoQGWMnyQPAh3k2jhWM9R}# - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9k}# - (list #{x _hoQGWMnyQPAh3k2jhWM9Q}# - #{y _hoQGWMnyQPAh3k2jhWM9R}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9l}# + #{x -ANAU$bmvAmthP7L7xwtDx}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwtD0}#) + (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#) + #{y -ANAU$bmvAmthP7L7xwtDy}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwtEF}# + (list #{x -ANAU$bmvAmthP7L7xwtDx}# + #{y -ANAU$bmvAmthP7L7xwtDy}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtEG}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM9k}# + #{tmp -ANAU$bmvAmthP7L7xwtEF}# '(each-any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9l}# + (if #{tmp -ANAU$bmvAmthP7L7xwtEG}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM9n}# - #{y _hoQGWMnyQPAh3k2jhWM9o}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}# + #{y -ANAU$bmvAmthP7L7xwtEJ}#) (cons '#(syntax-object "append" ((top) @@ -26616,13 +26607,13 @@ #(ribcage #(p y) #((top) (top)) - #("32l" "32m")) - #(ribcage #(_) #((top)) #("32k")) + #("1eg" "1eh")) + #(ribcage #(_) #((top)) #("1ef")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32h" "32i")) + #("1ec" "1ed")) #(ribcage (emit quasivector quasilist* @@ -26637,51 +26628,51 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) (append - #{p _hoQGWMnyQPAh3k2jhWM9n}# - (list #{y _hoQGWMnyQPAh3k2jhWM9o}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM9l}#) + #{p -ANAU$bmvAmthP7L7xwtEI}# + (list #{y -ANAU$bmvAmthP7L7xwtEJ}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtEG}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM9k}#))))))))) - (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM9s}# - #{y _hoQGWMnyQPAh3k2jhWM9t}#) + #{tmp -ANAU$bmvAmthP7L7xwtEF}#))))))))) + (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}# + #{y -ANAU$bmvAmthP7L7xwtEO}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWM9u}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@H}#) - (if (null? #{x _hoQGWMnyQPAh3k2jhWM@H}#) - #{y _hoQGWMnyQPAh3k2jhWM9t}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (car #{x _hoQGWMnyQPAh3k2jhWM@H}#) - (#{f _hoQGWMnyQPAh3k2jhWM9u}# - (cdr #{x _hoQGWMnyQPAh3k2jhWM@H}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWM9u}# - #{x _hoQGWMnyQPAh3k2jhWM9s}#)))) - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@K}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@M}# + ((#{f -ANAU$bmvAmthP7L7xwtEP}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtFo}#) + (if (null? #{x -ANAU$bmvAmthP7L7xwtFo}#) + #{y -ANAU$bmvAmthP7L7xwtEO}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (car #{x -ANAU$bmvAmthP7L7xwtFo}#) + (#{f -ANAU$bmvAmthP7L7xwtEP}# + (cdr #{x -ANAU$bmvAmthP7L7xwtFo}#))))))) + (#{f -ANAU$bmvAmthP7L7xwtEP}# + #{x -ANAU$bmvAmthP7L7xwtEN}#)))) + (#{emit -ANAU$bmvAmthP7L7xws$z}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtFr}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtFt}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "quote") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@M}# + (if #{tmp -ANAU$bmvAmthP7L7xwtFt}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@Q}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("337")) + #(ribcage #(x) #((top)) #("1f2")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("336")) + #(ribcage #(x) #((top)) #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26690,38 +26681,38 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM@Q}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@M}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@R}# + #{x -ANAU$bmvAmthP7L7xwtFx}#)) + #{tmp -ANAU$bmvAmthP7L7xwtFt}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "list") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@R}# + (if #{tmp -ANAU$bmvAmthP7L7xwtFy}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@V}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@W}# - (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@V}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@X}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}# + (map #{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtF2}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@W}# + #{tmp -ANAU$bmvAmthP7L7xwtF3}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@X}# + (if #{tmp -ANAU$bmvAmthP7L7xwtF4}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3V}#) - #((m_hoQGWMnyQPAh3k2jhWM3W top)) - #("339")) - #(ribcage #(x) #((top)) #("338")) + #(#{ g-ANAU$bmvAmthP7L7xws92}#) + #((m-ANAU$bmvAmthP7L7xws93 top)) + #("1f4")) + #(ribcage #(x) #((top)) #("1f3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("336")) + #(ribcage #(x) #((top)) #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26736,74 +26727,74 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@X}#) + #{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#)) + #{tmp -ANAU$bmvAmthP7L7xwtF4}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@W}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM@R}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@a}# + #{tmp -ANAU$bmvAmthP7L7xwtF3}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtFy}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@a}# + (if #{tmp -ANAU$bmvAmthP7L7xwtF7}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@e}# - #{y _hoQGWMnyQPAh3k2jhWM@f}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtF@}# + #{y -ANAU$bmvAmthP7L7xwtGA}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWM@g}# - (lambda (#{x* _hoQGWMnyQPAh3k2jhWM@j}#) - (if (null? #{x* _hoQGWMnyQPAh3k2jhWM@j}#) - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{y _hoQGWMnyQPAh3k2jhWM@f}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@k}# - (list (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - (car #{x* _hoQGWMnyQPAh3k2jhWM@j}#)) - (#{f _hoQGWMnyQPAh3k2jhWM@g}# - (cdr #{x* _hoQGWMnyQPAh3k2jhWM@j}#))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@l}# + ((#{f -ANAU$bmvAmthP7L7xwtGB}# + (lambda (#{x* -ANAU$bmvAmthP7L7xwtGE}#) + (if (null? #{x* -ANAU$bmvAmthP7L7xwtGE}#) + (#{emit -ANAU$bmvAmthP7L7xws$z}# + #{y -ANAU$bmvAmthP7L7xwtGA}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGF}# + (list (#{emit -ANAU$bmvAmthP7L7xws$z}# + (car #{x* -ANAU$bmvAmthP7L7xwtGE}#)) + (#{f -ANAU$bmvAmthP7L7xwtGB}# + (cdr #{x* -ANAU$bmvAmthP7L7xwtGE}#))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGG}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@k}# + #{tmp -ANAU$bmvAmthP7L7xwtGF}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@l}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGG}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# - #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}# + #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3k}# - #{ g_hoQGWMnyQPAh3k2jhWM3j}#) - #((m_hoQGWMnyQPAh3k2jhWM3l + #(#{ g-ANAU$bmvAmthP7L7xws$F}# + #{ g-ANAU$bmvAmthP7L7xws$E}#) + #((m-ANAU$bmvAmthP7L7xws$G top) - (m_hoQGWMnyQPAh3k2jhWM3l + (m-ANAU$bmvAmthP7L7xws$G top)) - #("33e" "33f")) + #("1f9" "1fa")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("33c" "33d")) + #("1f7" "1f8")) #(ribcage #(x y) #((top) (top)) - #("33a" "33b")) + #("1f5" "1f6")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26818,59 +26809,59 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# - #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@l}#) + #{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}# + #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)) + #{tmp -ANAU$bmvAmthP7L7xwtGG}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@k}#)))))))) - (#{f _hoQGWMnyQPAh3k2jhWM@g}# - #{x _hoQGWMnyQPAh3k2jhWM@e}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM@a}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@p}# + #{tmp -ANAU$bmvAmthP7L7xwtGF}#)))))))) + (#{f -ANAU$bmvAmthP7L7xwtGB}# + #{x -ANAU$bmvAmthP7L7xwtF@}#))) + #{tmp -ANAU$bmvAmthP7L7xwtF7}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "append") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@p}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGK}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@t}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@u}# - (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@t}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@v}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}# + (map #{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtGO}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@u}# + #{tmp -ANAU$bmvAmthP7L7xwtGP}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@v}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3t}#) - #((m_hoQGWMnyQPAh3k2jhWM3u + #(#{ g-ANAU$bmvAmthP7L7xws$O}#) + #((m-ANAU$bmvAmthP7L7xws$P top)) - #("33h")) + #("1fc")) #(ribcage #(x) #((top)) - #("33g")) + #("1fb")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26885,56 +26876,56 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@v}#) + #{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#)) + #{tmp -ANAU$bmvAmthP7L7xwtGQ}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@u}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM@p}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@y}# + #{tmp -ANAU$bmvAmthP7L7xwtGP}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtGK}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "vector") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@y}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGT}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@2}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@3}# - (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@2}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@4}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}# + (map #{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtGX}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@3}# + #{tmp -ANAU$bmvAmthP7L7xwtGY}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@4}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM33}#) - #((m_hoQGWMnyQPAh3k2jhWM34 + #(#{ g-ANAU$bmvAmthP7L7xws$Y}#) + #((m-ANAU$bmvAmthP7L7xws$Z top)) - #("33j")) + #("1fe")) #(ribcage #(x) #((top)) - #("33i")) + #("1fd")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26949,49 +26940,49 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@4}#) + #{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#)) + #{tmp -ANAU$bmvAmthP7L7xwtGZ}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@3}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM@y}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@7}# + #{tmp -ANAU$bmvAmthP7L7xwtGY}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtGT}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "list->vector") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@7}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGc}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@@}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAA}# - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@@}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}# + (#{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtGg}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM4B}#) - #((m_hoQGWMnyQPAh3k2jhWM4C + #(#{ g-ANAU$bmvAmthP7L7xws$i}#) + #((m-ANAU$bmvAmthP7L7xws$j top)) - #("33l")) + #("1fg")) #(ribcage #(x) #((top)) - #("33k")) + #("1ff")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -27006,218 +26997,218 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWNAA}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM@7}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAD}# + #{tmp -ANAU$bmvAmthP7L7xwtGh}#))) + #{tmp -ANAU$bmvAmthP7L7xwtGc}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "value") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNAD}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGk}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWNAH}#) - #{x _hoQGWMnyQPAh3k2jhWNAH}#) - #{tmp _hoQGWMnyQPAh3k2jhWNAD}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#) + #{x -ANAU$bmvAmthP7L7xwtGo}#) + #{tmp -ANAU$bmvAmthP7L7xwtGk}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWM@K}#)))))))))))))))))) - (lambda (#{x _hoQGWMnyQPAh3k2jhWM4T}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4V}# + #{x -ANAU$bmvAmthP7L7xwtFr}#)))))))))))))))))) + (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM4T}# + #{x -ANAU$bmvAmthP7L7xws$0}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM4V}# + (if #{tmp -ANAU$bmvAmthP7L7xws$2}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWM4Z}#) - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{e _hoQGWMnyQPAh3k2jhWM4Z}# + (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#) + (#{emit -ANAU$bmvAmthP7L7xws$z}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{e -ANAU$bmvAmthP7L7xws$6}# 0))) - #{tmp _hoQGWMnyQPAh3k2jhWM4V}#) + #{tmp -ANAU$bmvAmthP7L7xws$2}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWM4T}#))))))) + #{x -ANAU$bmvAmthP7L7xws$0}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNAy}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#) (letrec* - ((#{read-file _hoQGWMnyQPAh3k2jhWNAz}# - (lambda (#{fn _hoQGWMnyQPAh3k2jhWNCg}# - #{k _hoQGWMnyQPAh3k2jhWNCh}#) - (let ((#{p _hoQGWMnyQPAh3k2jhWNCi}# - (open-input-file #{fn _hoQGWMnyQPAh3k2jhWNCg}#))) + ((#{read-file -ANAU$bmvAmthP7L7xwtHU}# + (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}# + #{k -ANAU$bmvAmthP7L7xwtJC}#) + (let ((#{p -ANAU$bmvAmthP7L7xwtJD}# + (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWNCj}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWNDZ}# - #{result _hoQGWMnyQPAh3k2jhWNDa}#) - (if (eof-object? #{x _hoQGWMnyQPAh3k2jhWNDZ}#) + ((#{f -ANAU$bmvAmthP7L7xwtJE}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}# + #{result -ANAU$bmvAmthP7L7xwtJ7}#) + (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#) (begin - (close-input-port #{p _hoQGWMnyQPAh3k2jhWNCi}#) - (reverse #{result _hoQGWMnyQPAh3k2jhWNDa}#)) - (#{f _hoQGWMnyQPAh3k2jhWNCj}# - (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) + (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#) + (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#)) + (#{f -ANAU$bmvAmthP7L7xwtJE}# + (read #{p -ANAU$bmvAmthP7L7xwtJD}#) (cons (datum->syntax - #{k _hoQGWMnyQPAh3k2jhWNCh}# - #{x _hoQGWMnyQPAh3k2jhWNDZ}#) - #{result _hoQGWMnyQPAh3k2jhWNDa}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWNCj}# - (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) + #{k -ANAU$bmvAmthP7L7xwtJC}# + #{x -ANAU$bmvAmthP7L7xwtJ6}#) + #{result -ANAU$bmvAmthP7L7xwtJ7}#)))))) + (#{f -ANAU$bmvAmthP7L7xwtJE}# + (read #{p -ANAU$bmvAmthP7L7xwtJD}#) '())))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA1}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNAy}# + #{x -ANAU$bmvAmthP7L7xwtHT}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNA1}# + (if #{tmp -ANAU$bmvAmthP7L7xwtHW}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNA5}# - #{filename _hoQGWMnyQPAh3k2jhWNA6}#) - (let ((#{fn _hoQGWMnyQPAh3k2jhWNA7}# + (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}# + #{filename -ANAU$bmvAmthP7L7xwtHb}#) + (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}# (syntax->datum - #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA8}# - (#{read-file _hoQGWMnyQPAh3k2jhWNAz}# - #{fn _hoQGWMnyQPAh3k2jhWNA7}# - #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA9}# + #{filename -ANAU$bmvAmthP7L7xwtHb}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}# + (#{read-file -ANAU$bmvAmthP7L7xwtHU}# + #{fn -ANAU$bmvAmthP7L7xwtHc}# + #{filename -ANAU$bmvAmthP7L7xwtHb}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWNA8}# + #{tmp -ANAU$bmvAmthP7L7xwtHd}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNA9}# + (if #{tmp -ANAU$bmvAmthP7L7xwtHe}# (@apply - (lambda (#{exp _hoQGWMnyQPAh3k2jhWNBP}#) + (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("340")) + #(ribcage #(exp) #((top)) #("1fv")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("33z")) + #(ribcage #(fn) #((top)) #("1fu")) #(ribcage #(k filename) #((top) (top)) - #("33x" "33y")) - #(ribcage (read-file) ((top)) ("33q")) - #(ribcage #(x) #((top)) #("33p"))) + #("1fs" "1ft")) + #(ribcage (read-file) ((top)) ("1fl")) + #(ribcage #(x) #((top)) #("1fk"))) (hygiene guile)) - #{exp _hoQGWMnyQPAh3k2jhWNBP}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNA9}#) + #{exp -ANAU$bmvAmthP7L7xwtHw}#)) + #{tmp -ANAU$bmvAmthP7L7xwtHe}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWNA8}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWNA1}#) + #{tmp -ANAU$bmvAmthP7L7xwtHd}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwtHW}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNAy}#))))))) + #{x -ANAU$bmvAmthP7L7xwtHT}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNDn}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDp}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNDn}# + #{x -ANAU$bmvAmthP7L7xwtKI}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNDp}# + (if #{tmp -ANAU$bmvAmthP7L7xwtKK}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNDt}# - #{filename _hoQGWMnyQPAh3k2jhWNDu}#) - (let ((#{fn _hoQGWMnyQPAh3k2jhWNDv}# + (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}# + #{filename -ANAU$bmvAmthP7L7xwtKP}#) + (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}# (syntax->datum - #{filename _hoQGWMnyQPAh3k2jhWNDu}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDw}# + #{filename -ANAU$bmvAmthP7L7xwtKP}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}# (datum->syntax - #{filename _hoQGWMnyQPAh3k2jhWNDu}# - (let ((#{t _hoQGWMnyQPAh3k2jhWNDz}# + #{filename -ANAU$bmvAmthP7L7xwtKP}# + (let ((#{t -ANAU$bmvAmthP7L7xwtKU}# (%search-load-path - #{fn _hoQGWMnyQPAh3k2jhWNDv}#))) - (if #{t _hoQGWMnyQPAh3k2jhWNDz}# - #{t _hoQGWMnyQPAh3k2jhWNDz}# + #{fn -ANAU$bmvAmthP7L7xwtKQ}#))) + (if #{t -ANAU$bmvAmthP7L7xwtKU}# + #{t -ANAU$bmvAmthP7L7xwtKU}# (syntax-violation 'include-from-path "file not found in path" - #{x _hoQGWMnyQPAh3k2jhWNDn}# - #{filename _hoQGWMnyQPAh3k2jhWNDu}#)))))) + #{x -ANAU$bmvAmthP7L7xwtKI}# + #{filename -ANAU$bmvAmthP7L7xwtKP}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("345")) + #(ribcage #(fn) #((top)) #("1g0")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("344")) + #(ribcage #(fn) #((top)) #("1fz")) #(ribcage #(k filename) #((top) (top)) - #("342" "343")) + #("1fx" "1fy")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("341"))) + #(ribcage #(x) #((top)) #("1fw"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWNDw}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWNDp}#) + #{tmp -ANAU$bmvAmthP7L7xwtKR}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtKK}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNDn}#)))))) + #{x -ANAU$bmvAmthP7L7xwtKI}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWND7}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x _hoQGWMnyQPAh3k2jhWND7}#)))) + #{x -ANAU$bmvAmthP7L7xwtKc}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWND9}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x _hoQGWMnyQPAh3k2jhWND9}#)))) + #{x -ANAU$bmvAmthP7L7xwtKe}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNEi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEk}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNEi}# + #{x -ANAU$bmvAmthP7L7xwtLD}# '(_ any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNEk}# + (if #{tmp -ANAU$bmvAmthP7L7xwtLF}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWNEo}# - #{m1 _hoQGWMnyQPAh3k2jhWNEp}# - #{m2 _hoQGWMnyQPAh3k2jhWNEq}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEr}# + (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}# + #{m1 -ANAU$bmvAmthP7L7xwtLK}# + #{m2 -ANAU$bmvAmthP7L7xwtLL}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWNFV}# - (lambda (#{clause _hoQGWMnyQPAh3k2jhWNFY}# - #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) - (if (null? #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFb}# + ((#{f -ANAU$bmvAmthP7L7xwtL2}# + (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}# + #{clauses -ANAU$bmvAmthP7L7xwtL6}#) + (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}# ($sc-dispatch - #{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clause -ANAU$bmvAmthP7L7xwtL5}# '(#(free-id #(syntax-object else @@ -27226,79 +27217,79 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile))) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNFb}# + (if #{tmp -ANAU$bmvAmthP7L7xwtL8}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWNFf}# - #{e2 _hoQGWMnyQPAh3k2jhWNFg}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}# + #{e2 -ANAU$bmvAmthP7L7xwtMB}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("34h" "34i")) + #("1gc" "1gd")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWNFf}# - #{e2 _hoQGWMnyQPAh3k2jhWNFg}#))) - #{tmp _hoQGWMnyQPAh3k2jhWNFb}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFh}# + (cons #{e1 -ANAU$bmvAmthP7L7xwtMA}# + #{e2 -ANAU$bmvAmthP7L7xwtMB}#))) + #{tmp -ANAU$bmvAmthP7L7xwtL8}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}# ($sc-dispatch - #{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clause -ANAU$bmvAmthP7L7xwtL5}# '(each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNFh}# + (if #{tmp -ANAU$bmvAmthP7L7xwtMC}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNFl}# - #{e1 _hoQGWMnyQPAh3k2jhWNFm}# - #{e2 _hoQGWMnyQPAh3k2jhWNFn}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}# + #{e1 -ANAU$bmvAmthP7L7xwtMH}# + #{e2 -ANAU$bmvAmthP7L7xwtMI}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34j" "34k" "34l")) + #("1ge" "1gf" "1gg")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object memv @@ -27308,9 +27299,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () ()) #(ribcage #(f @@ -27319,22 +27310,22 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) '#(syntax-object t @@ -27344,9 +27335,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () ()) #(ribcage #(f @@ -27355,22 +27346,22 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object quote @@ -27380,9 +27371,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () @@ -27394,17 +27385,17 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () @@ -27412,10 +27403,10 @@ #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - #{k _hoQGWMnyQPAh3k2jhWNFl}#)) + #{k -ANAU$bmvAmthP7L7xwtMG}#)) (cons '#(syntax-object begin ((top) @@ -27424,9 +27415,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () ()) #(ribcage #(f @@ -27435,70 +27426,70 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWNFm}# - #{e2 _hoQGWMnyQPAh3k2jhWNFn}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWNFh}#) + (cons #{e1 -ANAU$bmvAmthP7L7xwtMH}# + #{e2 -ANAU$bmvAmthP7L7xwtMI}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtMC}#) (syntax-violation 'case "bad clause" - #{x _hoQGWMnyQPAh3k2jhWNEi}# - #{clause _hoQGWMnyQPAh3k2jhWNFY}#))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFv}# - (#{f _hoQGWMnyQPAh3k2jhWNFV}# - (car #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) - (cdr #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFy}# + #{x -ANAU$bmvAmthP7L7xwtLD}# + #{clause -ANAU$bmvAmthP7L7xwtL5}#))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtMQ}# + (#{f -ANAU$bmvAmthP7L7xwtL2}# + (car #{clauses -ANAU$bmvAmthP7L7xwtL6}#) + (cdr #{clauses -ANAU$bmvAmthP7L7xwtL6}#)))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtMT}# ($sc-dispatch - #{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clause -ANAU$bmvAmthP7L7xwtL5}# '(each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNFy}# + (if #{tmp -ANAU$bmvAmthP7L7xwtMT}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNF2}# - #{e1 _hoQGWMnyQPAh3k2jhWNF3}# - #{e2 _hoQGWMnyQPAh3k2jhWNF4}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}# + #{e1 -ANAU$bmvAmthP7L7xwtMY}# + #{e2 -ANAU$bmvAmthP7L7xwtMZ}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" "34p" "34q")) + #("1gj" "1gk" "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object memv @@ -27506,32 +27497,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) '#(syntax-object t @@ -27539,32 +27530,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object quote @@ -27574,9 +27565,9 @@ #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () @@ -27584,7 +27575,7 @@ #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () @@ -27596,17 +27587,17 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () @@ -27614,238 +27605,238 @@ #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - #{k _hoQGWMnyQPAh3k2jhWNF2}#)) + #{k -ANAU$bmvAmthP7L7xwtMX}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWNF3}# - #{e2 _hoQGWMnyQPAh3k2jhWNF4}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNFv}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNFy}#) + (cons #{e1 -ANAU$bmvAmthP7L7xwtMY}# + #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)) + #{tmp -ANAU$bmvAmthP7L7xwtMQ}#)) + #{tmp -ANAU$bmvAmthP7L7xwtMT}#) (syntax-violation 'case "bad clause" - #{x _hoQGWMnyQPAh3k2jhWNEi}# - #{clause _hoQGWMnyQPAh3k2jhWNFY}#)))))))) - (#{f _hoQGWMnyQPAh3k2jhWNFV}# - #{m1 _hoQGWMnyQPAh3k2jhWNEp}# - #{m2 _hoQGWMnyQPAh3k2jhWNEq}#)))) - (let ((#{body _hoQGWMnyQPAh3k2jhWNEs}# - #{tmp _hoQGWMnyQPAh3k2jhWNEr}#)) + #{x -ANAU$bmvAmthP7L7xwtLD}# + #{clause -ANAU$bmvAmthP7L7xwtL5}#)))))))) + (#{f -ANAU$bmvAmthP7L7xwtL2}# + #{m1 -ANAU$bmvAmthP7L7xwtLK}# + #{m2 -ANAU$bmvAmthP7L7xwtLL}#)))) + (let ((#{body -ANAU$bmvAmthP7L7xwtLN}# + #{tmp -ANAU$bmvAmthP7L7xwtLM}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34d")) + #(ribcage #(body) #((top)) #("1g8")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("349"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34d")) + #(ribcage #(body) #((top)) #("1g8")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("349"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) - #{e _hoQGWMnyQPAh3k2jhWNEo}#)) - #{body _hoQGWMnyQPAh3k2jhWNEs}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWNEk}#) + #{e -ANAU$bmvAmthP7L7xwtLJ}#)) + #{body -ANAU$bmvAmthP7L7xwtLN}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtLF}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNEi}#)))))) + #{x -ANAU$bmvAmthP7L7xwtLD}#)))))) (define make-variable-transformer - (lambda (#{proc _hoQGWMnyQPAh3k2jhWNGH}#) - (if (procedure? #{proc _hoQGWMnyQPAh3k2jhWNGH}#) + (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#) + (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#) (letrec* - ((#{trans _hoQGWMnyQPAh3k2jhWNGI}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWNGO}#) - (#{proc _hoQGWMnyQPAh3k2jhWNGH}# - #{x _hoQGWMnyQPAh3k2jhWNGO}#)))) + ((#{trans -ANAU$bmvAmthP7L7xwtMp}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#) + (#{proc -ANAU$bmvAmthP7L7xwtMo}# + #{x -ANAU$bmvAmthP7L7xwtMv}#)))) (begin (set-procedure-property! - #{trans _hoQGWMnyQPAh3k2jhWNGI}# + #{trans -ANAU$bmvAmthP7L7xwtMp}# 'variable-transformer #t) - #{trans _hoQGWMnyQPAh3k2jhWNGI}#)) + #{trans -ANAU$bmvAmthP7L7xwtMp}#)) (error "variable transformer not a procedure" - #{proc _hoQGWMnyQPAh3k2jhWNGH}#)))) + #{proc -ANAU$bmvAmthP7L7xwtMo}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNGi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGk}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNGi}# + #{x -ANAU$bmvAmthP7L7xwtND}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNGk}# + (if #{tmp -ANAU$bmvAmthP7L7xwtNF}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWNGo}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) - #{e _hoQGWMnyQPAh3k2jhWNGo}#)) + #{e -ANAU$bmvAmthP7L7xwtNJ}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) - (cons #{e _hoQGWMnyQPAh3k2jhWNGo}# + (cons #{e -ANAU$bmvAmthP7L7xwtNJ}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("34w")) + #("1gr")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) #(syntax-object ... @@ -27853,55 +27844,55 @@ #(ribcage #(e) #((top)) - #("34w")) + #("1gr")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWNGk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGp}# + #{tmp -ANAU$bmvAmthP7L7xwtNF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNGi}# + #{x -ANAU$bmvAmthP7L7xwtND}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) any any) any))))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWNGp}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNGt}# - #{exp1 _hoQGWMnyQPAh3k2jhWNGu}# - #{var _hoQGWMnyQPAh3k2jhWNGv}# - #{val _hoQGWMnyQPAh3k2jhWNGw}# - #{exp2 _hoQGWMnyQPAh3k2jhWNGx}#) - (if (identifier? #{id _hoQGWMnyQPAh3k2jhWNGt}#) - (identifier? #{var _hoQGWMnyQPAh3k2jhWNGv}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtNO}# + #{exp1 -ANAU$bmvAmthP7L7xwtNP}# + #{var -ANAU$bmvAmthP7L7xwtNQ}# + #{val -ANAU$bmvAmthP7L7xwtNR}# + #{exp2 -ANAU$bmvAmthP7L7xwtNS}#) + (if (identifier? #{id -ANAU$bmvAmthP7L7xwtNO}#) + (identifier? #{var -ANAU$bmvAmthP7L7xwtNQ}#) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) + #{tmp -ANAU$bmvAmthP7L7xwtNK}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNGy}# - #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# - #{var _hoQGWMnyQPAh3k2jhWNG0}# - #{val _hoQGWMnyQPAh3k2jhWNG1}# - #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtNT}# + #{exp1 -ANAU$bmvAmthP7L7xwtNU}# + #{var -ANAU$bmvAmthP7L7xwtNV}# + #{val -ANAU$bmvAmthP7L7xwtNW}# + #{exp2 -ANAU$bmvAmthP7L7xwtNX}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) (list '#(syntax-object lambda @@ -27909,9 +27900,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object x @@ -27919,9 +27910,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -27929,9 +27920,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) . #(syntax-object @@ -27940,9 +27931,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -27950,9 +27941,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '#(syntax-object x @@ -27960,9 +27951,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object set! @@ -27970,9 +27961,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -27984,19 +27975,19 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{var _hoQGWMnyQPAh3k2jhWNG0}# - #{val _hoQGWMnyQPAh3k2jhWNG1}#) + #{var -ANAU$bmvAmthP7L7xwtNV}# + #{val -ANAU$bmvAmthP7L7xwtNW}#) (list '#(syntax-object syntax ((top) @@ -28007,19 +27998,19 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#)) - (list (cons #{id _hoQGWMnyQPAh3k2jhWNGy}# + #{exp2 -ANAU$bmvAmthP7L7xwtNX}#)) + (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}# '(#(syntax-object x ((top) @@ -28030,16 +28021,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) #(syntax-object ... @@ -28051,16 +28042,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -28072,18 +28063,18 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - (cons #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# + (cons #{exp1 -ANAU$bmvAmthP7L7xwtNU}# '(#(syntax-object x ((top) @@ -28098,16 +28089,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) #(syntax-object ... @@ -28123,18 +28114,18 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)))))) - (list #{id _hoQGWMnyQPAh3k2jhWNGy}# + (list #{id -ANAU$bmvAmthP7L7xwtNT}# (list '#(syntax-object identifier? ((top) @@ -28145,16 +28136,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) (list '#(syntax-object syntax @@ -28170,18 +28161,18 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{id _hoQGWMnyQPAh3k2jhWNGy}#)) + #{id -ANAU$bmvAmthP7L7xwtNT}#)) (list '#(syntax-object syntax ((top) @@ -28192,72 +28183,72 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) + #{exp1 -ANAU$bmvAmthP7L7xwtNU}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwtNK}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNGi}#)))))))) + #{x -ANAU$bmvAmthP7L7xwtND}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNHN}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHP}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNHN}# + #{x -ANAU$bmvAmthP7L7xwtNu}# '(_ (any . any) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNHP}# + (if #{tmp -ANAU$bmvAmthP7L7xwtNw}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNHT}# - #{args _hoQGWMnyQPAh3k2jhWNHU}# - #{b0 _hoQGWMnyQPAh3k2jhWNHV}# - #{b1 _hoQGWMnyQPAh3k2jhWNHW}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtN0}# + #{args -ANAU$bmvAmthP7L7xwtN1}# + #{b0 -ANAU$bmvAmthP7L7xwtN2}# + #{b1 -ANAU$bmvAmthP7L7xwtN3}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("358" "359" "35a" "35b")) + #("1h3" "1h4" "1h5" "1h6")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)) - #{id _hoQGWMnyQPAh3k2jhWNHT}# + #{id -ANAU$bmvAmthP7L7xwtN0}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("358" "359" "35a" "35b")) + #("1h3" "1h4" "1h5" "1h6")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)) - (cons #{args _hoQGWMnyQPAh3k2jhWNHU}# - (cons #{b0 _hoQGWMnyQPAh3k2jhWNHV}# - #{b1 _hoQGWMnyQPAh3k2jhWNHW}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWNHP}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHX}# + (cons #{args -ANAU$bmvAmthP7L7xwtN1}# + (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}# + #{b1 -ANAU$bmvAmthP7L7xwtN3}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtNw}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNHN}# + #{x -ANAU$bmvAmthP7L7xwtNu}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWNHX}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNHb}# - #{val _hoQGWMnyQPAh3k2jhWNHc}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}# + #{val -ANAU$bmvAmthP7L7xwtN9}#) (identifier? '#(syntax-object x @@ -28265,30 +28256,30 @@ #(ribcage #(id val) #((top) (top)) - #("35c" "35d")) + #("1h7" "1h8")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)))) - #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) + #{tmp -ANAU$bmvAmthP7L7xwtN4}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNHd}# - #{val _hoQGWMnyQPAh3k2jhWNHe}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}# + #{val -ANAU$bmvAmthP7L7xwtN@}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("35e" "35f")) + #("1h9" "1ha")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)) - #{id _hoQGWMnyQPAh3k2jhWNHd}# - #{val _hoQGWMnyQPAh3k2jhWNHe}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) + #{id -ANAU$bmvAmthP7L7xwtN$}# + #{val -ANAU$bmvAmthP7L7xwtN@}#)) + #{tmp -ANAU$bmvAmthP7L7xwtN4}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNHN}#)))))))) + #{x -ANAU$bmvAmthP7L7xwtNu}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 00cb54948..8220829ac 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2525,44 +2525,6 @@ (set! syntax-source (lambda (x) (source-annotation x))) - (set! syntax-module - (lambda (id) - (arg-check nonsymbol-id? id 'syntax-module) - (cdr (syntax-object-module id)))) - - (set! syntax-local-binding - (lambda (id) - (arg-check nonsymbol-id? id 'syntax-local-binding) - (with-transformer-environment - (lambda (e r w s rib mod) - (define (strip-anti-mark w) - (let ((ms (wrap-marks w)) (s (wrap-subst w))) - (if (and (pair? ms) (eq? (car ms) the-anti-mark)) - ;; output is from original text - (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s))) - ;; output introduced by macro - (make-wrap ms (if rib (cons rib s) s))))) - (call-with-values (lambda () - (resolve-identifier - (syntax-object-expression id) - (strip-anti-mark (syntax-object-wrap id)) - r - (syntax-object-module id))) - (lambda (type value mod) - (case type - ((lexical) (values 'lexical value)) - ((macro) (values 'macro value)) - ((syntax) (values 'pattern-variable value)) - ((displaced-lexical) (values 'displaced-lexical #f)) - ((global) (values 'global (cons value (cdr mod)))) - (else (values 'other #f))))))))) - - (set! syntax-locally-bound-identifiers - (lambda (x) - (arg-check nonsymbol-id? x 'syntax-locally-bound-identifiers) - (locally-bound-identifiers (syntax-object-wrap x) - (syntax-object-module x)))) - (set! generate-temporaries (lambda (ls) (arg-check list? ls 'generate-temporaries) @@ -2591,6 +2553,50 @@ (strip form empty-wrap) (and subform (strip subform empty-wrap))))) + (let () + (define (syntax-module id) + (arg-check nonsymbol-id? id 'syntax-module) + (cdr (syntax-object-module id))) + + (define (syntax-local-binding id) + (arg-check nonsymbol-id? id 'syntax-local-binding) + (with-transformer-environment + (lambda (e r w s rib mod) + (define (strip-anti-mark w) + (let ((ms (wrap-marks w)) (s (wrap-subst w))) + (if (and (pair? ms) (eq? (car ms) the-anti-mark)) + ;; output is from original text + (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s))) + ;; output introduced by macro + (make-wrap ms (if rib (cons rib s) s))))) + (call-with-values (lambda () + (resolve-identifier + (syntax-object-expression id) + (strip-anti-mark (syntax-object-wrap id)) + r + (syntax-object-module id))) + (lambda (type value mod) + (case type + ((lexical) (values 'lexical value)) + ((macro) (values 'macro value)) + ((syntax) (values 'pattern-variable value)) + ((displaced-lexical) (values 'displaced-lexical #f)) + ((global) (values 'global (cons value (cdr mod)))) + (else (values 'other #f)))))))) + + (define (syntax-locally-bound-identifiers id) + (arg-check nonsymbol-id? id 'syntax-locally-bound-identifiers) + (locally-bound-identifiers (syntax-object-wrap id) + (syntax-object-module id))) + + ;; Using define! instead of set! to avoid warnings at + ;; compile-time, after the variables are stolen away into (system + ;; syntax). See the end of boot-9.scm. + ;; + (define! 'syntax-module syntax-module) + (define! 'syntax-local-binding syntax-local-binding) + (define! 'syntax-locally-bound-identifiers syntax-locally-bound-identifiers)) + ;; $sc-dispatch expects an expression and a pattern. If the expression ;; matches the pattern a list of the matching expressions for each ;; "any" is returned. Otherwise, #f is returned. (This use of #f will