From 1ace4fbf3dcacee77540aaaa49e032bad9ed9e27 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 23 Jan 2012 12:31:33 +0100 Subject: [PATCH 01/32] add syntax-module * module/ice-9/psyntax.scm (syntax-module): New accessor for syntax objects. * module/ice-9/psyntax-pp.scm: Regenerate. * module/ice-9/boot-9.scm: Declare syntax-module. * doc/ref/api-macros.texi: Document it. --- doc/ref/api-macros.texi | 5 + module/ice-9/boot-9.scm | 1 + module/ice-9/psyntax-pp.scm | 14174 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 5 + 4 files changed, 7107 insertions(+), 7078 deletions(-) diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi index 02b5d5c8a..2b6f15a54 100644 --- a/doc/ref/api-macros.texi +++ b/doc/ref/api-macros.texi @@ -706,6 +706,11 @@ Return the source properties that correspond to the syntax object @var{x}. @xref{Source Properties}, for more information. @end deffn +@deffn {Scheme Procedure} syntax-module id +Return the name of the module whose source contains the identifier +@var{id}. +@end deffn + @deffn {Scheme Procedure} syntax-local-binding id Resolve the identifer @var{id}, a syntax object, within the current lexical environment, and return two values, the binding type and a diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index cd5520373..3914ff35f 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -385,6 +385,7 @@ If there is no handler at all, Guile prints an error and then exits." (define datum->syntax #f) (define syntax->datum #f) (define syntax-source #f) +(define syntax-module #f) (define identifier? #f) (define generate-temporaries #f) (define bound-identifier=? #f) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index f87379f41..daded1ab6 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1553 +1,1553 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{gen-label _85hotwsCta0JfYIjI4J3p}# (if #f #f)) - (#{transformer-environment _85hotwsCta0JfYIjI4J39}# +(let ((#{gen-label _hoQGWMnyQPAh3k2jhWHTD}# (if #f #f)) + (#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# (if #f #f))) (letrec* - ((#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - (lambda (#{x _85hotwsCta0JfYIjI4PLs}# - #{mod _85hotwsCta0JfYIjI4PLt}#) - (primitive-eval #{x _85hotwsCta0JfYIjI4PLs}#))) - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - (lambda (#{symbol _85hotwsCta0JfYIjI4MjC}# - #{module _85hotwsCta0JfYIjI4MjD}#) + ((#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMnv}# + #{mod _hoQGWMnyQPAh3k2jhWMnw}#) + (primitive-eval #{x _hoQGWMnyQPAh3k2jhWMnv}#))) + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + (lambda (#{symbol _hoQGWMnyQPAh3k2jhWJ@F}# + #{module _hoQGWMnyQPAh3k2jhWJ@G}#) (begin - (if (if (not #{module _85hotwsCta0JfYIjI4MjD}#) + (if (if (not #{module _hoQGWMnyQPAh3k2jhWJ@G}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol _85hotwsCta0JfYIjI4MjC}#)) - (let ((#{v _85hotwsCta0JfYIjI4MjE}# + #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWJ@H}# (module-variable - (if #{module _85hotwsCta0JfYIjI4MjD}# + (if #{module _hoQGWMnyQPAh3k2jhWJ@G}# (resolve-module - (cdr #{module _85hotwsCta0JfYIjI4MjD}#)) + (cdr #{module _hoQGWMnyQPAh3k2jhWJ@G}#)) (current-module)) - #{symbol _85hotwsCta0JfYIjI4MjC}#))) - (if #{v _85hotwsCta0JfYIjI4MjE}# - (if (variable-bound? #{v _85hotwsCta0JfYIjI4MjE}#) - (let ((#{val _85hotwsCta0JfYIjI4MjG}# - (variable-ref #{v _85hotwsCta0JfYIjI4MjE}#))) - (if (macro? #{val _85hotwsCta0JfYIjI4MjG}#) - (if (macro-type #{val _85hotwsCta0JfYIjI4MjG}#) - (cons (macro-type #{val _85hotwsCta0JfYIjI4MjG}#) - (macro-binding #{val _85hotwsCta0JfYIjI4MjG}#)) + #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#))) + (if #{v _hoQGWMnyQPAh3k2jhWJ@H}# + (if (variable-bound? #{v _hoQGWMnyQPAh3k2jhWJ@H}#) + (let ((#{val _hoQGWMnyQPAh3k2jhWJ@J}# + (variable-ref #{v _hoQGWMnyQPAh3k2jhWJ@H}#))) + (if (macro? #{val _hoQGWMnyQPAh3k2jhWJ@J}#) + (if (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) + (cons (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) + (macro-binding #{val _hoQGWMnyQPAh3k2jhWJ@J}#)) #f) #f)) #f) #f))))) - (#{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - (lambda (#{name _85hotwsCta0JfYIjI4Mnb}# - #{val _85hotwsCta0JfYIjI4Mnc}#) - (if (if (struct? #{val _85hotwsCta0JfYIjI4Mnc}#) - (eq? (struct-vtable #{val _85hotwsCta0JfYIjI4Mnc}#) + (#{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + (lambda (#{name _hoQGWMnyQPAh3k2jhWKDe}# + #{val _hoQGWMnyQPAh3k2jhWKDf}#) + (if (if (struct? #{val _hoQGWMnyQPAh3k2jhWKDf}#) + (eq? (struct-vtable #{val _hoQGWMnyQPAh3k2jhWKDf}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mnj}# - (struct-ref #{val _85hotwsCta0JfYIjI4Mnc}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mnj}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mno}# - (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mnb}#) - #{meta _85hotwsCta0JfYIjI4Mnj}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWKDm}# + (struct-ref #{val _hoQGWMnyQPAh3k2jhWKDf}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKDm}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKDr}# + (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWKDe}#) + #{meta _hoQGWMnyQPAh3k2jhWKDm}#))) (struct-set! - #{val _85hotwsCta0JfYIjI4Mnc}# + #{val _hoQGWMnyQPAh3k2jhWKDf}# 1 - #{v _85hotwsCta0JfYIjI4Mno}#))))))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - (lambda (#{source _85hotwsCta0JfYIjI4MjI}# - #{fun-exp _85hotwsCta0JfYIjI4MjJ}# - #{arg-exps _85hotwsCta0JfYIjI4MjK}#) + #{v _hoQGWMnyQPAh3k2jhWKDr}#))))))) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@L}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source _85hotwsCta0JfYIjI4MjI}# - #{fun-exp _85hotwsCta0JfYIjI4MjJ}# - #{arg-exps _85hotwsCta0JfYIjI4MjK}#))) - (#{build-conditional _85hotwsCta0JfYIjI4J3H}# - (lambda (#{source _85hotwsCta0JfYIjI4MjQ}# - #{test-exp _85hotwsCta0JfYIjI4MjR}# - #{then-exp _85hotwsCta0JfYIjI4MjS}# - #{else-exp _85hotwsCta0JfYIjI4MjT}#) + #{source _hoQGWMnyQPAh3k2jhWJ@L}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#))) + (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@T}# + #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# + #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# + #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source _85hotwsCta0JfYIjI4MjQ}# - #{test-exp _85hotwsCta0JfYIjI4MjR}# - #{then-exp _85hotwsCta0JfYIjI4MjS}# - #{else-exp _85hotwsCta0JfYIjI4MjT}#))) - (#{build-dynlet _85hotwsCta0JfYIjI4J3I}# - (lambda (#{source _85hotwsCta0JfYIjI4Mja}# - #{fluids _85hotwsCta0JfYIjI4Mjb}# - #{vals _85hotwsCta0JfYIjI4Mjc}# - #{body _85hotwsCta0JfYIjI4Mjd}#) + #{source _hoQGWMnyQPAh3k2jhWJ@T}# + #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# + #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# + #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#))) + (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@d}# + #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# + #{vals _hoQGWMnyQPAh3k2jhWJ@f}# + #{body _hoQGWMnyQPAh3k2jhWJ@g}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source _85hotwsCta0JfYIjI4Mja}# - #{fluids _85hotwsCta0JfYIjI4Mjb}# - #{vals _85hotwsCta0JfYIjI4Mjc}# - #{body _85hotwsCta0JfYIjI4Mjd}#))) - (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}# - (lambda (#{type _85hotwsCta0JfYIjI4PLu}# - #{source _85hotwsCta0JfYIjI4PLv}# - #{name _85hotwsCta0JfYIjI4PLw}# - #{var _85hotwsCta0JfYIjI4PLx}#) + #{source _hoQGWMnyQPAh3k2jhWJ@d}# + #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# + #{vals _hoQGWMnyQPAh3k2jhWJ@f}# + #{body _hoQGWMnyQPAh3k2jhWJ@g}#))) + (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWMnx}# + #{source _hoQGWMnyQPAh3k2jhWMny}# + #{name _hoQGWMnyQPAh3k2jhWMnz}# + #{var _hoQGWMnyQPAh3k2jhWMn0}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source _85hotwsCta0JfYIjI4PLv}# - #{name _85hotwsCta0JfYIjI4PLw}# - #{var _85hotwsCta0JfYIjI4PLx}#))) - (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}# - (lambda (#{source _85hotwsCta0JfYIjI4Mjk}# - #{name _85hotwsCta0JfYIjI4Mjl}# - #{var _85hotwsCta0JfYIjI4Mjm}# - #{exp _85hotwsCta0JfYIjI4Mjn}#) + #{source _hoQGWMnyQPAh3k2jhWMny}# + #{name _hoQGWMnyQPAh3k2jhWMnz}# + #{var _hoQGWMnyQPAh3k2jhWMn0}#))) + (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@n}# + #{name _hoQGWMnyQPAh3k2jhWJ@o}# + #{var _hoQGWMnyQPAh3k2jhWJ@p}# + #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4Mjn}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Mjn}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mj3}# - (struct-ref #{exp _85hotwsCta0JfYIjI4Mjn}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mj3}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mj$}# - (cons (cons 'name #{name _85hotwsCta0JfYIjI4Mjl}#) - #{meta _85hotwsCta0JfYIjI4Mj3}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWJ@6}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWJ@6}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKAB}# + (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWJ@o}#) + #{meta _hoQGWMnyQPAh3k2jhWJ@6}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4Mjn}# + #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1 - #{v _85hotwsCta0JfYIjI4Mj$}#))))) + #{v _hoQGWMnyQPAh3k2jhWKAB}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source _85hotwsCta0JfYIjI4Mjk}# - #{name _85hotwsCta0JfYIjI4Mjl}# - #{var _85hotwsCta0JfYIjI4Mjm}# - #{exp _85hotwsCta0JfYIjI4Mjn}#)))) - (#{analyze-variable _85hotwsCta0JfYIjI4J3L}# - (lambda (#{mod _85hotwsCta0JfYIjI4PL3}# - #{var _85hotwsCta0JfYIjI4PL4}# - #{modref-cont _85hotwsCta0JfYIjI4PL5}# - #{bare-cont _85hotwsCta0JfYIjI4PL6}#) - (if (not #{mod _85hotwsCta0JfYIjI4PL3}#) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#) - (let ((#{kind _85hotwsCta0JfYIjI4PL7}# - (car #{mod _85hotwsCta0JfYIjI4PL3}#)) - (#{mod _85hotwsCta0JfYIjI4PL8}# - (cdr #{mod _85hotwsCta0JfYIjI4PL3}#))) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'public) - (#{modref-cont _85hotwsCta0JfYIjI4PL5}# - #{mod _85hotwsCta0JfYIjI4PL8}# - #{var _85hotwsCta0JfYIjI4PL4}# + #{source _hoQGWMnyQPAh3k2jhWJ@n}# + #{name _hoQGWMnyQPAh3k2jhWJ@o}# + #{var _hoQGWMnyQPAh3k2jhWJ@p}# + #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)))) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWMn6}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# + #{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#) + (if (not #{mod _hoQGWMnyQPAh3k2jhWMn6}#) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#) + (let ((#{kind _hoQGWMnyQPAh3k2jhWMn$}# + (car #{mod _hoQGWMnyQPAh3k2jhWMn6}#)) + (#{mod _hoQGWMnyQPAh3k2jhWMn@}# + (cdr #{mod _hoQGWMnyQPAh3k2jhWMn6}#))) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'public) + (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# #t) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'private) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'private) (if (not (equal? - #{mod _85hotwsCta0JfYIjI4PL8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# (module-name (current-module)))) - (#{modref-cont _85hotwsCta0JfYIjI4PL5}# - #{mod _85hotwsCta0JfYIjI4PL8}# - #{var _85hotwsCta0JfYIjI4PL4}# + (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# #f) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#)) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'bare) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#) - (if (eqv? #{kind _85hotwsCta0JfYIjI4PL7}# 'hygiene) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#)) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'bare) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#) + (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'hygiene) (if (if (not (equal? - #{mod _85hotwsCta0JfYIjI4PL8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# (module-name (current-module)))) (module-variable - (resolve-module #{mod _85hotwsCta0JfYIjI4PL8}#) - #{var _85hotwsCta0JfYIjI4PL4}#) + (resolve-module #{mod _hoQGWMnyQPAh3k2jhWMn@}#) + #{var _hoQGWMnyQPAh3k2jhWMn7}#) #f) - (#{modref-cont _85hotwsCta0JfYIjI4PL5}# - #{mod _85hotwsCta0JfYIjI4PL8}# - #{var _85hotwsCta0JfYIjI4PL4}# + (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{var _hoQGWMnyQPAh3k2jhWMn7}# #f) - (#{bare-cont _85hotwsCta0JfYIjI4PL6}# - #{var _85hotwsCta0JfYIjI4PL4}#)) + (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# + #{var _hoQGWMnyQPAh3k2jhWMn7}#)) (syntax-violation #f "bad module kind" - #{var _85hotwsCta0JfYIjI4PL4}# - #{mod _85hotwsCta0JfYIjI4PL8}#))))))))) - (#{build-global-reference _85hotwsCta0JfYIjI4J3M}# - (lambda (#{source _85hotwsCta0JfYIjI4PML}# - #{var _85hotwsCta0JfYIjI4PMM}# - #{mod _85hotwsCta0JfYIjI4PMN}#) - (#{analyze-variable _85hotwsCta0JfYIjI4J3L}# - #{mod _85hotwsCta0JfYIjI4PMN}# - #{var _85hotwsCta0JfYIjI4PMM}# - (lambda (#{mod _85hotwsCta0JfYIjI4PMQ}# - #{var _85hotwsCta0JfYIjI4PMR}# - #{public? _85hotwsCta0JfYIjI4PMS}#) + #{var _hoQGWMnyQPAh3k2jhWMn7}# + #{mod _hoQGWMnyQPAh3k2jhWMn@}#))))))))) + (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWMoO}# + #{var _hoQGWMnyQPAh3k2jhWMoP}# + #{mod _hoQGWMnyQPAh3k2jhWMoQ}#) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + #{mod _hoQGWMnyQPAh3k2jhWMoQ}# + #{var _hoQGWMnyQPAh3k2jhWMoP}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWMoT}# + #{var _hoQGWMnyQPAh3k2jhWMoU}# + #{public? _hoQGWMnyQPAh3k2jhWMoV}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source _85hotwsCta0JfYIjI4PML}# - #{mod _85hotwsCta0JfYIjI4PMQ}# - #{var _85hotwsCta0JfYIjI4PMR}# - #{public? _85hotwsCta0JfYIjI4PMS}#)) - (lambda (#{var _85hotwsCta0JfYIjI4PMa}#) + #{source _hoQGWMnyQPAh3k2jhWMoO}# + #{mod _hoQGWMnyQPAh3k2jhWMoT}# + #{var _hoQGWMnyQPAh3k2jhWMoU}# + #{public? _hoQGWMnyQPAh3k2jhWMoV}#)) + (lambda (#{var _hoQGWMnyQPAh3k2jhWMod}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source _85hotwsCta0JfYIjI4PML}# - #{var _85hotwsCta0JfYIjI4PMa}#))))) - (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}# - (lambda (#{source _85hotwsCta0JfYIjI4MkH}# - #{var _85hotwsCta0JfYIjI4MkI}# - #{exp _85hotwsCta0JfYIjI4MkJ}# - #{mod _85hotwsCta0JfYIjI4MkK}#) + #{source _hoQGWMnyQPAh3k2jhWMoO}# + #{var _hoQGWMnyQPAh3k2jhWMod}#))))) + (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWKAK}# + #{var _hoQGWMnyQPAh3k2jhWKAL}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}# + #{mod _hoQGWMnyQPAh3k2jhWKAN}#) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4MkJ}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4MkJ}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWKAM}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWKAM}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mka}# - (struct-ref #{exp _85hotwsCta0JfYIjI4MkJ}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mka}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mkh}# - (cons (cons 'name #{var _85hotwsCta0JfYIjI4MkI}#) - #{meta _85hotwsCta0JfYIjI4Mka}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWKAd}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKAd}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKAk}# + (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWKAL}#) + #{meta _hoQGWMnyQPAh3k2jhWKAd}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4MkJ}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1 - #{v _85hotwsCta0JfYIjI4Mkh}#))))) - (#{analyze-variable _85hotwsCta0JfYIjI4J3L}# - #{mod _85hotwsCta0JfYIjI4MkK}# - #{var _85hotwsCta0JfYIjI4MkI}# - (lambda (#{mod _85hotwsCta0JfYIjI4Mkm}# - #{var _85hotwsCta0JfYIjI4Mkn}# - #{public? _85hotwsCta0JfYIjI4Mko}#) + #{v _hoQGWMnyQPAh3k2jhWKAk}#))))) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + #{mod _hoQGWMnyQPAh3k2jhWKAN}# + #{var _hoQGWMnyQPAh3k2jhWKAL}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWKAp}# + #{var _hoQGWMnyQPAh3k2jhWKAq}# + #{public? _hoQGWMnyQPAh3k2jhWKAr}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source _85hotwsCta0JfYIjI4MkH}# - #{mod _85hotwsCta0JfYIjI4Mkm}# - #{var _85hotwsCta0JfYIjI4Mkn}# - #{public? _85hotwsCta0JfYIjI4Mko}# - #{exp _85hotwsCta0JfYIjI4MkJ}#)) - (lambda (#{var _85hotwsCta0JfYIjI4Mkw}#) + #{source _hoQGWMnyQPAh3k2jhWKAK}# + #{mod _hoQGWMnyQPAh3k2jhWKAp}# + #{var _hoQGWMnyQPAh3k2jhWKAq}# + #{public? _hoQGWMnyQPAh3k2jhWKAr}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}#)) + (lambda (#{var _hoQGWMnyQPAh3k2jhWKAz}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source _85hotwsCta0JfYIjI4MkH}# - #{var _85hotwsCta0JfYIjI4Mkw}# - #{exp _85hotwsCta0JfYIjI4MkJ}#)))))) - (#{build-global-definition _85hotwsCta0JfYIjI4J3O}# - (lambda (#{source _85hotwsCta0JfYIjI4PMg}# - #{var _85hotwsCta0JfYIjI4PMh}# - #{exp _85hotwsCta0JfYIjI4PMi}#) + #{source _hoQGWMnyQPAh3k2jhWKAK}# + #{var _hoQGWMnyQPAh3k2jhWKAz}# + #{exp _hoQGWMnyQPAh3k2jhWKAM}#)))))) + (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# + (lambda (#{source _hoQGWMnyQPAh3k2jhWMoj}# + #{var _hoQGWMnyQPAh3k2jhWMok}# + #{exp _hoQGWMnyQPAh3k2jhWMol}#) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4PMi}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4PMi}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWMol}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWMol}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4PMy}# - (struct-ref #{exp _85hotwsCta0JfYIjI4PMi}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4PMy}#)) - (let ((#{v _85hotwsCta0JfYIjI4PM5}# - (cons (cons 'name #{var _85hotwsCta0JfYIjI4PMh}#) - #{meta _85hotwsCta0JfYIjI4PMy}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWMo1}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWMol}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWMo1}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWMo8}# + (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWMok}#) + #{meta _hoQGWMnyQPAh3k2jhWMo1}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4PMi}# + #{exp _hoQGWMnyQPAh3k2jhWMol}# 1 - #{v _85hotwsCta0JfYIjI4PM5}#))))) + #{v _hoQGWMnyQPAh3k2jhWMo8}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source _85hotwsCta0JfYIjI4PMg}# - #{var _85hotwsCta0JfYIjI4PMh}# - #{exp _85hotwsCta0JfYIjI4PMi}#)))) - (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}# - (lambda (#{src _85hotwsCta0JfYIjI4Mk2}# - #{req _85hotwsCta0JfYIjI4Mk3}# - #{rest _85hotwsCta0JfYIjI4Mk4}# - #{vars _85hotwsCta0JfYIjI4Mk5}# - #{meta _85hotwsCta0JfYIjI4Mk6}# - #{exp _85hotwsCta0JfYIjI4Mk7}#) - (let ((#{body _85hotwsCta0JfYIjI4MlB}# + #{source _hoQGWMnyQPAh3k2jhWMoj}# + #{var _hoQGWMnyQPAh3k2jhWMok}# + #{exp _hoQGWMnyQPAh3k2jhWMol}#)))) + (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKA5}# + #{req _hoQGWMnyQPAh3k2jhWKA6}# + #{rest _hoQGWMnyQPAh3k2jhWKA7}# + #{vars _hoQGWMnyQPAh3k2jhWKA8}# + #{meta _hoQGWMnyQPAh3k2jhWKA9}# + #{exp _hoQGWMnyQPAh3k2jhWKA$}#) + (let ((#{body _hoQGWMnyQPAh3k2jhWKBE}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _85hotwsCta0JfYIjI4Mk2}# - #{req _85hotwsCta0JfYIjI4Mk3}# + #{src _hoQGWMnyQPAh3k2jhWKA5}# + #{req _hoQGWMnyQPAh3k2jhWKA6}# #f - #{rest _85hotwsCta0JfYIjI4Mk4}# + #{rest _hoQGWMnyQPAh3k2jhWKA7}# #f '() - #{vars _85hotwsCta0JfYIjI4Mk5}# - #{exp _85hotwsCta0JfYIjI4Mk7}# + #{vars _hoQGWMnyQPAh3k2jhWKA8}# + #{exp _hoQGWMnyQPAh3k2jhWKA$}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _85hotwsCta0JfYIjI4Mk2}# - #{meta _85hotwsCta0JfYIjI4Mk6}# - #{body _85hotwsCta0JfYIjI4MlB}#)))) - (#{build-sequence _85hotwsCta0JfYIjI4J3U}# - (lambda (#{src _85hotwsCta0JfYIjI4PNB}# - #{exps _85hotwsCta0JfYIjI4PNC}#) - (if (null? (cdr #{exps _85hotwsCta0JfYIjI4PNC}#)) - (car #{exps _85hotwsCta0JfYIjI4PNC}#) + #{src _hoQGWMnyQPAh3k2jhWKA5}# + #{meta _hoQGWMnyQPAh3k2jhWKA9}# + #{body _hoQGWMnyQPAh3k2jhWKBE}#)))) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWMpE}# + #{exps _hoQGWMnyQPAh3k2jhWMpF}#) + (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWMpF}#)) + (car #{exps _hoQGWMnyQPAh3k2jhWMpF}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src _85hotwsCta0JfYIjI4PNB}# - #{exps _85hotwsCta0JfYIjI4PNC}#)))) - (#{build-let _85hotwsCta0JfYIjI4J3V}# - (lambda (#{src _85hotwsCta0JfYIjI4MlN}# - #{ids _85hotwsCta0JfYIjI4MlO}# - #{vars _85hotwsCta0JfYIjI4MlP}# - #{val-exps _85hotwsCta0JfYIjI4MlQ}# - #{body-exp _85hotwsCta0JfYIjI4MlR}#) + #{src _hoQGWMnyQPAh3k2jhWMpE}# + #{exps _hoQGWMnyQPAh3k2jhWMpF}#)))) + (#{build-let _hoQGWMnyQPAh3k2jhWHSv}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKBQ}# + #{ids _hoQGWMnyQPAh3k2jhWKBR}# + #{vars _hoQGWMnyQPAh3k2jhWKBS}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#) (begin (for-each - #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - #{ids _85hotwsCta0JfYIjI4MlO}# - #{val-exps _85hotwsCta0JfYIjI4MlQ}#) - (if (null? #{vars _85hotwsCta0JfYIjI4MlP}#) - #{body-exp _85hotwsCta0JfYIjI4MlR}# + #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + #{ids _hoQGWMnyQPAh3k2jhWKBR}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#) + (if (null? #{vars _hoQGWMnyQPAh3k2jhWKBS}#) + #{body-exp _hoQGWMnyQPAh3k2jhWKBU}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src _85hotwsCta0JfYIjI4MlN}# - #{ids _85hotwsCta0JfYIjI4MlO}# - #{vars _85hotwsCta0JfYIjI4MlP}# - #{val-exps _85hotwsCta0JfYIjI4MlQ}# - #{body-exp _85hotwsCta0JfYIjI4MlR}#))))) - (#{build-named-let _85hotwsCta0JfYIjI4J3W}# - (lambda (#{src _85hotwsCta0JfYIjI4Mlp}# - #{ids _85hotwsCta0JfYIjI4Mlq}# - #{vars _85hotwsCta0JfYIjI4Mlr}# - #{val-exps _85hotwsCta0JfYIjI4Mls}# - #{body-exp _85hotwsCta0JfYIjI4Mlt}#) - (let ((#{f _85hotwsCta0JfYIjI4Mlu}# - (car #{vars _85hotwsCta0JfYIjI4Mlr}#)) - (#{f-name _85hotwsCta0JfYIjI4Mlv}# - (car #{ids _85hotwsCta0JfYIjI4Mlq}#)) - (#{vars _85hotwsCta0JfYIjI4Mlw}# - (cdr #{vars _85hotwsCta0JfYIjI4Mlr}#)) - (#{ids _85hotwsCta0JfYIjI4Mlx}# - (cdr #{ids _85hotwsCta0JfYIjI4Mlq}#))) - (let ((#{proc _85hotwsCta0JfYIjI4Mly}# - (let ((#{body _85hotwsCta0JfYIjI4MmG}# + #{src _hoQGWMnyQPAh3k2jhWKBQ}# + #{ids _hoQGWMnyQPAh3k2jhWKBR}# + #{vars _hoQGWMnyQPAh3k2jhWKBS}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#))))) + (#{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKBs}# + #{ids _hoQGWMnyQPAh3k2jhWKBt}# + #{vars _hoQGWMnyQPAh3k2jhWKBu}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBv}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#) + (let ((#{f _hoQGWMnyQPAh3k2jhWKBx}# + (car #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) + (#{f-name _hoQGWMnyQPAh3k2jhWKBy}# + (car #{ids _hoQGWMnyQPAh3k2jhWKBt}#)) + (#{vars _hoQGWMnyQPAh3k2jhWKBz}# + (cdr #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) + (#{ids _hoQGWMnyQPAh3k2jhWKB0}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKBt}#))) + (let ((#{proc _hoQGWMnyQPAh3k2jhWKB1}# + (let ((#{body _hoQGWMnyQPAh3k2jhWKCJ}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _85hotwsCta0JfYIjI4Mlp}# - #{ids _85hotwsCta0JfYIjI4Mlx}# + #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{ids _hoQGWMnyQPAh3k2jhWKB0}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4Mlw}# - #{body-exp _85hotwsCta0JfYIjI4Mlt}# + #{vars _hoQGWMnyQPAh3k2jhWKBz}# + #{body-exp _hoQGWMnyQPAh3k2jhWKBw}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _85hotwsCta0JfYIjI4Mlp}# + #{src _hoQGWMnyQPAh3k2jhWKBs}# '() - #{body _85hotwsCta0JfYIjI4MmG}#)))) + #{body _hoQGWMnyQPAh3k2jhWKCJ}#)))) (begin - (if (if (struct? #{proc _85hotwsCta0JfYIjI4Mly}#) - (eq? (struct-vtable #{proc _85hotwsCta0JfYIjI4Mly}#) + (if (if (struct? #{proc _hoQGWMnyQPAh3k2jhWKB1}#) + (eq? (struct-vtable #{proc _hoQGWMnyQPAh3k2jhWKB1}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4Mme}# - (struct-ref #{proc _85hotwsCta0JfYIjI4Mly}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4Mme}#)) - (let ((#{v _85hotwsCta0JfYIjI4Mml}# + (let ((#{meta _hoQGWMnyQPAh3k2jhWKCh}# + (struct-ref #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKCh}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWKCo}# (cons (cons 'name - #{f-name _85hotwsCta0JfYIjI4Mlv}#) - #{meta _85hotwsCta0JfYIjI4Mme}#))) + #{f-name _hoQGWMnyQPAh3k2jhWKBy}#) + #{meta _hoQGWMnyQPAh3k2jhWKCh}#))) (struct-set! - #{proc _85hotwsCta0JfYIjI4Mly}# + #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1 - #{v _85hotwsCta0JfYIjI4Mml}#))))) + #{v _hoQGWMnyQPAh3k2jhWKCo}#))))) (for-each - #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - #{ids _85hotwsCta0JfYIjI4Mlx}# - #{val-exps _85hotwsCta0JfYIjI4Mls}#) - (let ((#{names _85hotwsCta0JfYIjI4Mm9}# - (list #{f-name _85hotwsCta0JfYIjI4Mlv}#)) - (#{gensyms _85hotwsCta0JfYIjI4Mm$}# - (list #{f _85hotwsCta0JfYIjI4Mlu}#)) - (#{vals _85hotwsCta0JfYIjI4Mm@}# - (list #{proc _85hotwsCta0JfYIjI4Mly}#)) - (#{body _85hotwsCta0JfYIjI4MnA}# - (let ((#{fun-exp _85hotwsCta0JfYIjI4MnE}# + #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + #{ids _hoQGWMnyQPAh3k2jhWKB0}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#) + (let ((#{names _hoQGWMnyQPAh3k2jhWKDA}# + (list #{f-name _hoQGWMnyQPAh3k2jhWKBy}#)) + (#{gensyms _hoQGWMnyQPAh3k2jhWKDB}# + (list #{f _hoQGWMnyQPAh3k2jhWKBx}#)) + (#{vals _hoQGWMnyQPAh3k2jhWKDC}# + (list #{proc _hoQGWMnyQPAh3k2jhWKB1}#)) + (#{body _hoQGWMnyQPAh3k2jhWKDD}# + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src _85hotwsCta0JfYIjI4Mlp}# - #{f-name _85hotwsCta0JfYIjI4Mlv}# - #{f _85hotwsCta0JfYIjI4Mlu}#))) + #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{f-name _hoQGWMnyQPAh3k2jhWKBy}# + #{f _hoQGWMnyQPAh3k2jhWKBx}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src _85hotwsCta0JfYIjI4Mlp}# - #{fun-exp _85hotwsCta0JfYIjI4MnE}# - #{val-exps _85hotwsCta0JfYIjI4Mls}#)))) + #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# + #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _85hotwsCta0JfYIjI4Mlp}# + #{src _hoQGWMnyQPAh3k2jhWKBs}# #f - #{names _85hotwsCta0JfYIjI4Mm9}# - #{gensyms _85hotwsCta0JfYIjI4Mm$}# - #{vals _85hotwsCta0JfYIjI4Mm@}# - #{body _85hotwsCta0JfYIjI4MnA}#))))))) - (#{build-letrec _85hotwsCta0JfYIjI4J3X}# - (lambda (#{src _85hotwsCta0JfYIjI4MnU}# - #{in-order? _85hotwsCta0JfYIjI4MnV}# - #{ids _85hotwsCta0JfYIjI4MnW}# - #{vars _85hotwsCta0JfYIjI4MnX}# - #{val-exps _85hotwsCta0JfYIjI4MnY}# - #{body-exp _85hotwsCta0JfYIjI4MnZ}#) - (if (null? #{vars _85hotwsCta0JfYIjI4MnX}#) - #{body-exp _85hotwsCta0JfYIjI4MnZ}# + #{names _hoQGWMnyQPAh3k2jhWKDA}# + #{gensyms _hoQGWMnyQPAh3k2jhWKDB}# + #{vals _hoQGWMnyQPAh3k2jhWKDC}# + #{body _hoQGWMnyQPAh3k2jhWKDD}#))))))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWKDX}# + #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# + #{ids _hoQGWMnyQPAh3k2jhWKDZ}# + #{vars _hoQGWMnyQPAh3k2jhWKDa}# + #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# + #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#) + (if (null? #{vars _hoQGWMnyQPAh3k2jhWKDa}#) + #{body-exp _hoQGWMnyQPAh3k2jhWKDc}# (begin (for-each - #{maybe-name-value! _85hotwsCta0JfYIjI4J3E}# - #{ids _85hotwsCta0JfYIjI4MnW}# - #{val-exps _85hotwsCta0JfYIjI4MnY}#) + #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# + #{ids _hoQGWMnyQPAh3k2jhWKDZ}# + #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _85hotwsCta0JfYIjI4MnU}# - #{in-order? _85hotwsCta0JfYIjI4MnV}# - #{ids _85hotwsCta0JfYIjI4MnW}# - #{vars _85hotwsCta0JfYIjI4MnX}# - #{val-exps _85hotwsCta0JfYIjI4MnY}# - #{body-exp _85hotwsCta0JfYIjI4MnZ}#))))) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - (lambda (#{x _85hotwsCta0JfYIjI4Mnz}#) - (if (if (vector? #{x _85hotwsCta0JfYIjI4Mnz}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4Mnz}#) + #{src _hoQGWMnyQPAh3k2jhWKDX}# + #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# + #{ids _hoQGWMnyQPAh3k2jhWKDZ}# + #{vars _hoQGWMnyQPAh3k2jhWKDa}# + #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# + #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#))))) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKD2}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKD2}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKD2}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 0) 'syntax-object) #f) #f) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - (vector-ref #{x _85hotwsCta0JfYIjI4Mnz}# 1)) - (if (pair? #{x _85hotwsCta0JfYIjI4Mnz}#) - (let ((#{props _85hotwsCta0JfYIjI4MoC}# - (source-properties #{x _85hotwsCta0JfYIjI4Mnz}#))) - (if (pair? #{props _85hotwsCta0JfYIjI4MoC}#) - #{props _85hotwsCta0JfYIjI4MoC}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 1)) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWKD2}#) + (let ((#{props _hoQGWMnyQPAh3k2jhWKEF}# + (source-properties #{x _hoQGWMnyQPAh3k2jhWKD2}#))) + (if (pair? #{props _hoQGWMnyQPAh3k2jhWKEF}#) + #{props _hoQGWMnyQPAh3k2jhWKEF}# #f)) #f)))) - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - (lambda (#{labels _85hotwsCta0JfYIjI4MoE}# - #{bindings _85hotwsCta0JfYIjI4MoF}# - #{r _85hotwsCta0JfYIjI4MoG}#) - (if (null? #{labels _85hotwsCta0JfYIjI4MoE}#) - #{r _85hotwsCta0JfYIjI4MoG}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - (cdr #{labels _85hotwsCta0JfYIjI4MoE}#) - (cdr #{bindings _85hotwsCta0JfYIjI4MoF}#) - (cons (cons (car #{labels _85hotwsCta0JfYIjI4MoE}#) - (car #{bindings _85hotwsCta0JfYIjI4MoF}#)) - #{r _85hotwsCta0JfYIjI4MoG}#))))) - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - (lambda (#{labels _85hotwsCta0JfYIjI4MoH}# - #{vars _85hotwsCta0JfYIjI4MoI}# - #{r _85hotwsCta0JfYIjI4MoJ}#) - (if (null? #{labels _85hotwsCta0JfYIjI4MoH}#) - #{r _85hotwsCta0JfYIjI4MoJ}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - (cdr #{labels _85hotwsCta0JfYIjI4MoH}#) - (cdr #{vars _85hotwsCta0JfYIjI4MoI}#) - (cons (cons (car #{labels _85hotwsCta0JfYIjI4MoH}#) + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEH}# + #{bindings _hoQGWMnyQPAh3k2jhWKEI}# + #{r _hoQGWMnyQPAh3k2jhWKEJ}#) + (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEH}#) + #{r _hoQGWMnyQPAh3k2jhWKEJ}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + (cdr #{labels _hoQGWMnyQPAh3k2jhWKEH}#) + (cdr #{bindings _hoQGWMnyQPAh3k2jhWKEI}#) + (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEH}#) + (car #{bindings _hoQGWMnyQPAh3k2jhWKEI}#)) + #{r _hoQGWMnyQPAh3k2jhWKEJ}#))))) + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEK}# + #{vars _hoQGWMnyQPAh3k2jhWKEL}# + #{r _hoQGWMnyQPAh3k2jhWKEM}#) + (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEK}#) + #{r _hoQGWMnyQPAh3k2jhWKEM}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + (cdr #{labels _hoQGWMnyQPAh3k2jhWKEK}#) + (cdr #{vars _hoQGWMnyQPAh3k2jhWKEL}#) + (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEK}#) (cons 'lexical - (car #{vars _85hotwsCta0JfYIjI4MoI}#))) - #{r _85hotwsCta0JfYIjI4MoJ}#))))) - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - (lambda (#{r _85hotwsCta0JfYIjI4MoK}#) - (if (null? #{r _85hotwsCta0JfYIjI4MoK}#) + (car #{vars _hoQGWMnyQPAh3k2jhWKEL}#))) + #{r _hoQGWMnyQPAh3k2jhWKEM}#))))) + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWKEN}#) + (if (null? #{r _hoQGWMnyQPAh3k2jhWKEN}#) '() - (let ((#{a _85hotwsCta0JfYIjI4MoL}# - (car #{r _85hotwsCta0JfYIjI4MoK}#))) - (if (eq? (car (cdr #{a _85hotwsCta0JfYIjI4MoL}#)) + (let ((#{a _hoQGWMnyQPAh3k2jhWKEO}# + (car #{r _hoQGWMnyQPAh3k2jhWKEN}#))) + (if (eq? (car (cdr #{a _hoQGWMnyQPAh3k2jhWKEO}#)) 'macro) - (cons #{a _85hotwsCta0JfYIjI4MoL}# - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - (cdr #{r _85hotwsCta0JfYIjI4MoK}#))) - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - (cdr #{r _85hotwsCta0JfYIjI4MoK}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# - (lambda (#{type _85hotwsCta0JfYIjI4MoN}# - #{sym _85hotwsCta0JfYIjI4MoO}# - #{val _85hotwsCta0JfYIjI4MoP}#) + (cons #{a _hoQGWMnyQPAh3k2jhWKEO}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))) + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWKEQ}# + #{sym _hoQGWMnyQPAh3k2jhWKER}# + #{val _hoQGWMnyQPAh3k2jhWKES}#) (module-define! (current-module) - #{sym _85hotwsCta0JfYIjI4MoO}# + #{sym _hoQGWMnyQPAh3k2jhWKER}# (make-syntax-transformer - #{sym _85hotwsCta0JfYIjI4MoO}# - #{type _85hotwsCta0JfYIjI4MoN}# - #{val _85hotwsCta0JfYIjI4MoP}#)))) - (#{id? _85hotwsCta0JfYIjI4J3n}# - (lambda (#{x _85hotwsCta0JfYIjI4LJz}#) - (if (symbol? #{x _85hotwsCta0JfYIjI4LJz}#) + #{sym _hoQGWMnyQPAh3k2jhWKER}# + #{type _hoQGWMnyQPAh3k2jhWKEQ}# + #{val _hoQGWMnyQPAh3k2jhWKES}#)))) + (#{id? _hoQGWMnyQPAh3k2jhWHTB}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWIlN}#) + (if (symbol? #{x _hoQGWMnyQPAh3k2jhWIlN}#) #t - (if (if (vector? #{x _85hotwsCta0JfYIjI4LJz}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4LJz}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIlN}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIlN}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4LJz}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 1)) #f)))) - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - (lambda (#{ls _85hotwsCta0JfYIjI4Moc}#) - (if (null? #{ls _85hotwsCta0JfYIjI4Moc}#) + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (lambda (#{ls _hoQGWMnyQPAh3k2jhWKEf}#) + (if (null? #{ls _hoQGWMnyQPAh3k2jhWKEf}#) '() - (cons (#{gen-label _85hotwsCta0JfYIjI4J3p}#) - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - (cdr #{ls _85hotwsCta0JfYIjI4Moc}#)))))) - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - (lambda (#{ids _85hotwsCta0JfYIjI4Mod}# - #{labels _85hotwsCta0JfYIjI4Moe}# - #{w _85hotwsCta0JfYIjI4Mof}#) - (if (null? #{ids _85hotwsCta0JfYIjI4Mod}#) - #{w _85hotwsCta0JfYIjI4Mof}# - (cons (car #{w _85hotwsCta0JfYIjI4Mof}#) - (cons (let ((#{labelvec _85hotwsCta0JfYIjI4Mog}# + (cons (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#) + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (cdr #{ls _hoQGWMnyQPAh3k2jhWKEf}#)))))) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEg}# + #{labels _hoQGWMnyQPAh3k2jhWKEh}# + #{w _hoQGWMnyQPAh3k2jhWKEi}#) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWKEg}#) + #{w _hoQGWMnyQPAh3k2jhWKEi}# + (cons (car #{w _hoQGWMnyQPAh3k2jhWKEi}#) + (cons (let ((#{labelvec _hoQGWMnyQPAh3k2jhWKEj}# (list->vector - #{labels _85hotwsCta0JfYIjI4Moe}#))) - (let ((#{n _85hotwsCta0JfYIjI4Moh}# + #{labels _hoQGWMnyQPAh3k2jhWKEh}#))) + (let ((#{n _hoQGWMnyQPAh3k2jhWKEk}# (vector-length - #{labelvec _85hotwsCta0JfYIjI4Mog}#))) - (let ((#{symnamevec _85hotwsCta0JfYIjI4Moi}# - (make-vector #{n _85hotwsCta0JfYIjI4Moh}#)) - (#{marksvec _85hotwsCta0JfYIjI4Moj}# - (make-vector #{n _85hotwsCta0JfYIjI4Moh}#))) + #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))) + (let ((#{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# + (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#)) + (#{marksvec _hoQGWMnyQPAh3k2jhWKEm}# + (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#))) (begin (letrec* - ((#{f _85hotwsCta0JfYIjI4Mok}# - (lambda (#{ids _85hotwsCta0JfYIjI4Mon}# - #{i _85hotwsCta0JfYIjI4Moo}#) - (if (not (null? #{ids _85hotwsCta0JfYIjI4Mon}#)) + ((#{f _hoQGWMnyQPAh3k2jhWKEn}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEq}# + #{i _hoQGWMnyQPAh3k2jhWKEr}#) + (if (not (null? #{ids _hoQGWMnyQPAh3k2jhWKEq}#)) (call-with-values (lambda () - (let ((#{x _85hotwsCta0JfYIjI4Mor}# - (car #{ids _85hotwsCta0JfYIjI4Mon}#))) + (let ((#{x _hoQGWMnyQPAh3k2jhWKEu}# + (car #{ids _hoQGWMnyQPAh3k2jhWKEq}#))) (if (if (vector? - #{x _85hotwsCta0JfYIjI4Mor}#) + #{x _hoQGWMnyQPAh3k2jhWKEu}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Mor}#) + #{x _hoQGWMnyQPAh3k2jhWKEu}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Mor}# + #{x _hoQGWMnyQPAh3k2jhWKEu}# 0) 'syntax-object) #f) #f) (values (vector-ref - #{x _85hotwsCta0JfYIjI4Mor}# + #{x _hoQGWMnyQPAh3k2jhWKEu}# 1) - (let ((#{m1 _85hotwsCta0JfYIjI4Mo7}# - (car #{w _85hotwsCta0JfYIjI4Mof}#)) - (#{m2 _85hotwsCta0JfYIjI4Mo8}# + (let ((#{m1 _hoQGWMnyQPAh3k2jhWKE$}# + (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)) + (#{m2 _hoQGWMnyQPAh3k2jhWKE@}# (car (vector-ref - #{x _85hotwsCta0JfYIjI4Mor}# + #{x _hoQGWMnyQPAh3k2jhWKEu}# 2)))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mo8}#) - #{m1 _85hotwsCta0JfYIjI4Mo7}# + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKE@}#) + #{m1 _hoQGWMnyQPAh3k2jhWKE$}# (append - #{m1 _85hotwsCta0JfYIjI4Mo7}# - #{m2 _85hotwsCta0JfYIjI4Mo8}#)))) + #{m1 _hoQGWMnyQPAh3k2jhWKE$}# + #{m2 _hoQGWMnyQPAh3k2jhWKE@}#)))) (values - #{x _85hotwsCta0JfYIjI4Mor}# - (car #{w _85hotwsCta0JfYIjI4Mof}#))))) - (lambda (#{symname _85hotwsCta0JfYIjI4MpQ}# - #{marks _85hotwsCta0JfYIjI4MpR}#) + #{x _hoQGWMnyQPAh3k2jhWKEu}# + (car #{w _hoQGWMnyQPAh3k2jhWKEi}#))))) + (lambda (#{symname _hoQGWMnyQPAh3k2jhWKFT}# + #{marks _hoQGWMnyQPAh3k2jhWKFU}#) (begin (vector-set! - #{symnamevec _85hotwsCta0JfYIjI4Moi}# - #{i _85hotwsCta0JfYIjI4Moo}# - #{symname _85hotwsCta0JfYIjI4MpQ}#) + #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# + #{i _hoQGWMnyQPAh3k2jhWKEr}# + #{symname _hoQGWMnyQPAh3k2jhWKFT}#) (vector-set! - #{marksvec _85hotwsCta0JfYIjI4Moj}# - #{i _85hotwsCta0JfYIjI4Moo}# - #{marks _85hotwsCta0JfYIjI4MpR}#) - (#{f _85hotwsCta0JfYIjI4Mok}# - (cdr #{ids _85hotwsCta0JfYIjI4Mon}#) - (#{1+}# #{i _85hotwsCta0JfYIjI4Moo}#))))))))) - (#{f _85hotwsCta0JfYIjI4Mok}# - #{ids _85hotwsCta0JfYIjI4Mod}# + #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# + #{i _hoQGWMnyQPAh3k2jhWKEr}# + #{marks _hoQGWMnyQPAh3k2jhWKFU}#) + (#{f _hoQGWMnyQPAh3k2jhWKEn}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKEq}#) + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKEr}#))))))))) + (#{f _hoQGWMnyQPAh3k2jhWKEn}# + #{ids _hoQGWMnyQPAh3k2jhWKEg}# 0)) (vector 'ribcage - #{symnamevec _85hotwsCta0JfYIjI4Moi}# - #{marksvec _85hotwsCta0JfYIjI4Moj}# - #{labelvec _85hotwsCta0JfYIjI4Mog}#))))) - (cdr #{w _85hotwsCta0JfYIjI4Mof}#)))))) - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - (lambda (#{w1 _85hotwsCta0JfYIjI4Mpa}# - #{w2 _85hotwsCta0JfYIjI4Mpb}#) - (let ((#{m1 _85hotwsCta0JfYIjI4Mpc}# - (car #{w1 _85hotwsCta0JfYIjI4Mpa}#)) - (#{s1 _85hotwsCta0JfYIjI4Mpd}# - (cdr #{w1 _85hotwsCta0JfYIjI4Mpa}#))) - (if (null? #{m1 _85hotwsCta0JfYIjI4Mpc}#) - (if (null? #{s1 _85hotwsCta0JfYIjI4Mpd}#) - #{w2 _85hotwsCta0JfYIjI4Mpb}# - (cons (car #{w2 _85hotwsCta0JfYIjI4Mpb}#) - (let ((#{m2 _85hotwsCta0JfYIjI4Mpk}# - (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mpk}#) - #{s1 _85hotwsCta0JfYIjI4Mpd}# + #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# + #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# + #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))))) + (cdr #{w _hoQGWMnyQPAh3k2jhWKEi}#)))))) + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + (lambda (#{w1 _hoQGWMnyQPAh3k2jhWKFd}# + #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) + (let ((#{m1 _hoQGWMnyQPAh3k2jhWKFf}# + (car #{w1 _hoQGWMnyQPAh3k2jhWKFd}#)) + (#{s1 _hoQGWMnyQPAh3k2jhWKFg}# + (cdr #{w1 _hoQGWMnyQPAh3k2jhWKFd}#))) + (if (null? #{m1 _hoQGWMnyQPAh3k2jhWKFf}#) + (if (null? #{s1 _hoQGWMnyQPAh3k2jhWKFg}#) + #{w2 _hoQGWMnyQPAh3k2jhWKFe}# + (cons (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) + (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFn}# + (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFn}#) + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# (append - #{s1 _85hotwsCta0JfYIjI4Mpd}# - #{m2 _85hotwsCta0JfYIjI4Mpk}#))))) - (cons (let ((#{m2 _85hotwsCta0JfYIjI4Mpt}# - (car #{w2 _85hotwsCta0JfYIjI4Mpb}#))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mpt}#) - #{m1 _85hotwsCta0JfYIjI4Mpc}# + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{m2 _hoQGWMnyQPAh3k2jhWKFn}#))))) + (cons (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFw}# + (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFw}#) + #{m1 _hoQGWMnyQPAh3k2jhWKFf}# (append - #{m1 _85hotwsCta0JfYIjI4Mpc}# - #{m2 _85hotwsCta0JfYIjI4Mpt}#))) - (let ((#{m2 _85hotwsCta0JfYIjI4Mp2}# - (cdr #{w2 _85hotwsCta0JfYIjI4Mpb}#))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mp2}#) - #{s1 _85hotwsCta0JfYIjI4Mpd}# + #{m1 _hoQGWMnyQPAh3k2jhWKFf}# + #{m2 _hoQGWMnyQPAh3k2jhWKFw}#))) + (let ((#{m2 _hoQGWMnyQPAh3k2jhWKF5}# + (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKF5}#) + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# (append - #{s1 _85hotwsCta0JfYIjI4Mpd}# - #{m2 _85hotwsCta0JfYIjI4Mp2}#)))))))) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - (lambda (#{x _85hotwsCta0JfYIjI4Mp7}# - #{y _85hotwsCta0JfYIjI4Mp8}#) - (if (eq? #{x _85hotwsCta0JfYIjI4Mp7}# - #{y _85hotwsCta0JfYIjI4Mp8}#) - (eq? #{x _85hotwsCta0JfYIjI4Mp7}# - #{y _85hotwsCta0JfYIjI4Mp8}#) - (if (not (null? #{x _85hotwsCta0JfYIjI4Mp7}#)) - (if (not (null? #{y _85hotwsCta0JfYIjI4Mp8}#)) - (if (eq? (car #{x _85hotwsCta0JfYIjI4Mp7}#) - (car #{y _85hotwsCta0JfYIjI4Mp8}#)) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - (cdr #{x _85hotwsCta0JfYIjI4Mp7}#) - (cdr #{y _85hotwsCta0JfYIjI4Mp8}#)) + #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{m2 _hoQGWMnyQPAh3k2jhWKF5}#)))))))) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKF$}# + #{y _hoQGWMnyQPAh3k2jhWKF@}#) + (if (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# + #{y _hoQGWMnyQPAh3k2jhWKF@}#) + (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# + #{y _hoQGWMnyQPAh3k2jhWKF@}#) + (if (not (null? #{x _hoQGWMnyQPAh3k2jhWKF$}#)) + (if (not (null? #{y _hoQGWMnyQPAh3k2jhWKF@}#)) + (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWKF$}#) + (car #{y _hoQGWMnyQPAh3k2jhWKF@}#)) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (cdr #{x _hoQGWMnyQPAh3k2jhWKF$}#) + (cdr #{y _hoQGWMnyQPAh3k2jhWKF@}#)) #f) #f) #f)))) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - (lambda (#{id _85hotwsCta0JfYIjI4MqE}# - #{w _85hotwsCta0JfYIjI4MqF}#) + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWKGH}# + #{w _hoQGWMnyQPAh3k2jhWKGI}#) (letrec* - ((#{search _85hotwsCta0JfYIjI4MqG}# - (lambda (#{sym _85hotwsCta0JfYIjI4MrD}# - #{subst _85hotwsCta0JfYIjI4MrE}# - #{marks _85hotwsCta0JfYIjI4MrF}#) - (if (null? #{subst _85hotwsCta0JfYIjI4MrE}#) - (values #f #{marks _85hotwsCta0JfYIjI4MrF}#) - (let ((#{fst _85hotwsCta0JfYIjI4MrG}# - (car #{subst _85hotwsCta0JfYIjI4MrE}#))) - (if (eq? #{fst _85hotwsCta0JfYIjI4MrG}# 'shift) - (#{search _85hotwsCta0JfYIjI4MqG}# - #{sym _85hotwsCta0JfYIjI4MrD}# - (cdr #{subst _85hotwsCta0JfYIjI4MrE}#) - (cdr #{marks _85hotwsCta0JfYIjI4MrF}#)) - (let ((#{symnames _85hotwsCta0JfYIjI4MrI}# - (vector-ref #{fst _85hotwsCta0JfYIjI4MrG}# 1))) - (if (vector? #{symnames _85hotwsCta0JfYIjI4MrI}#) - (let ((#{n _85hotwsCta0JfYIjI4MrU}# + ((#{search _hoQGWMnyQPAh3k2jhWKGJ}# + (lambda (#{sym _hoQGWMnyQPAh3k2jhWKHG}# + #{subst _hoQGWMnyQPAh3k2jhWKHH}# + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (if (null? #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + (values #f #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (let ((#{fst _hoQGWMnyQPAh3k2jhWKHJ}# + (car #{subst _hoQGWMnyQPAh3k2jhWKHH}#))) + (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 'shift) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{sym _hoQGWMnyQPAh3k2jhWKHG}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + (cdr #{marks _hoQGWMnyQPAh3k2jhWKHI}#)) + (let ((#{symnames _hoQGWMnyQPAh3k2jhWKHL}# + (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 1))) + (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKHL}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWKHX}# (vector-length - #{symnames _85hotwsCta0JfYIjI4MrI}#))) + #{symnames _hoQGWMnyQPAh3k2jhWKHL}#))) (letrec* - ((#{f _85hotwsCta0JfYIjI4MrV}# - (lambda (#{i _85hotwsCta0JfYIjI4MrX}#) - (if (= #{i _85hotwsCta0JfYIjI4MrX}# - #{n _85hotwsCta0JfYIjI4MrU}#) - (#{search _85hotwsCta0JfYIjI4MqG}# - #{sym _85hotwsCta0JfYIjI4MrD}# - (cdr #{subst _85hotwsCta0JfYIjI4MrE}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) + ((#{f _hoQGWMnyQPAh3k2jhWKHY}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWKHa}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWKHa}# + #{n _hoQGWMnyQPAh3k2jhWKHX}#) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{sym _hoQGWMnyQPAh3k2jhWKHG}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) (if (if (eq? (vector-ref - #{symnames _85hotwsCta0JfYIjI4MrI}# - #{i _85hotwsCta0JfYIjI4MrX}#) - #{sym _85hotwsCta0JfYIjI4MrD}#) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - #{marks _85hotwsCta0JfYIjI4MrF}# + #{symnames _hoQGWMnyQPAh3k2jhWKHL}# + #{i _hoQGWMnyQPAh3k2jhWKHa}#) + #{sym _hoQGWMnyQPAh3k2jhWKHG}#) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + #{marks _hoQGWMnyQPAh3k2jhWKHI}# (vector-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 2) - #{i _85hotwsCta0JfYIjI4MrX}#)) + #{i _hoQGWMnyQPAh3k2jhWKHa}#)) #f) (values (vector-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 3) - #{i _85hotwsCta0JfYIjI4MrX}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) - (#{f _85hotwsCta0JfYIjI4MrV}# - (#{1+}# #{i _85hotwsCta0JfYIjI4MrX}#))))))) - (#{f _85hotwsCta0JfYIjI4MrV}# 0))) + #{i _hoQGWMnyQPAh3k2jhWKHa}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (#{f _hoQGWMnyQPAh3k2jhWKHY}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKHa}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWKHY}# 0))) (letrec* - ((#{f _85hotwsCta0JfYIjI4Mr4}# - (lambda (#{symnames _85hotwsCta0JfYIjI4Mr6}# - #{i _85hotwsCta0JfYIjI4Mr7}#) - (if (null? #{symnames _85hotwsCta0JfYIjI4Mr6}#) - (#{search _85hotwsCta0JfYIjI4MqG}# - #{sym _85hotwsCta0JfYIjI4MrD}# - (cdr #{subst _85hotwsCta0JfYIjI4MrE}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) - (if (if (eq? (car #{symnames _85hotwsCta0JfYIjI4Mr6}#) - #{sym _85hotwsCta0JfYIjI4MrD}#) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - #{marks _85hotwsCta0JfYIjI4MrF}# + ((#{f _hoQGWMnyQPAh3k2jhWKH7}# + (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKH9}# + #{i _hoQGWMnyQPAh3k2jhWKH$}#) + (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{sym _hoQGWMnyQPAh3k2jhWKHG}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (if (if (eq? (car #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) + #{sym _hoQGWMnyQPAh3k2jhWKHG}#) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + #{marks _hoQGWMnyQPAh3k2jhWKHI}# (list-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 2) - #{i _85hotwsCta0JfYIjI4Mr7}#)) + #{i _hoQGWMnyQPAh3k2jhWKH$}#)) #f) (values (list-ref (vector-ref - #{fst _85hotwsCta0JfYIjI4MrG}# + #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 3) - #{i _85hotwsCta0JfYIjI4Mr7}#) - #{marks _85hotwsCta0JfYIjI4MrF}#) - (#{f _85hotwsCta0JfYIjI4Mr4}# - (cdr #{symnames _85hotwsCta0JfYIjI4Mr6}#) - (#{1+}# #{i _85hotwsCta0JfYIjI4Mr7}#))))))) - (#{f _85hotwsCta0JfYIjI4Mr4}# - #{symnames _85hotwsCta0JfYIjI4MrI}# + #{i _hoQGWMnyQPAh3k2jhWKH$}#) + #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + (#{f _hoQGWMnyQPAh3k2jhWKH7}# + (cdr #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKH$}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWKH7}# + #{symnames _hoQGWMnyQPAh3k2jhWKHL}# 0)))))))))) - (if (symbol? #{id _85hotwsCta0JfYIjI4MqE}#) - (let ((#{t _85hotwsCta0JfYIjI4MqJ}# - (#{search _85hotwsCta0JfYIjI4MqG}# - #{id _85hotwsCta0JfYIjI4MqE}# - (cdr #{w _85hotwsCta0JfYIjI4MqF}#) - (car #{w _85hotwsCta0JfYIjI4MqF}#)))) - (if #{t _85hotwsCta0JfYIjI4MqJ}# - #{t _85hotwsCta0JfYIjI4MqJ}# - #{id _85hotwsCta0JfYIjI4MqE}#)) - (if (if (vector? #{id _85hotwsCta0JfYIjI4MqE}#) - (if (= (vector-length #{id _85hotwsCta0JfYIjI4MqE}#) + (if (symbol? #{id _hoQGWMnyQPAh3k2jhWKGH}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWKGM}# + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{id _hoQGWMnyQPAh3k2jhWKGH}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) + (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)))) + (if #{t _hoQGWMnyQPAh3k2jhWKGM}# + #{t _hoQGWMnyQPAh3k2jhWKGM}# + #{id _hoQGWMnyQPAh3k2jhWKGH}#)) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWKGH}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWKGH}#) 4) - (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 0) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 0) 'syntax-object) #f) #f) - (let ((#{id _85hotwsCta0JfYIjI4MqY}# - (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 1)) - (#{w1 _85hotwsCta0JfYIjI4MqZ}# - (vector-ref #{id _85hotwsCta0JfYIjI4MqE}# 2))) - (let ((#{marks _85hotwsCta0JfYIjI4Mqa}# - (let ((#{m1 _85hotwsCta0JfYIjI4Mqk}# - (car #{w _85hotwsCta0JfYIjI4MqF}#)) - (#{m2 _85hotwsCta0JfYIjI4Mql}# - (car #{w1 _85hotwsCta0JfYIjI4MqZ}#))) - (if (null? #{m2 _85hotwsCta0JfYIjI4Mql}#) - #{m1 _85hotwsCta0JfYIjI4Mqk}# + (let ((#{id _hoQGWMnyQPAh3k2jhWKGb}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 1)) + (#{w1 _hoQGWMnyQPAh3k2jhWKGc}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 2))) + (let ((#{marks _hoQGWMnyQPAh3k2jhWKGd}# + (let ((#{m1 _hoQGWMnyQPAh3k2jhWKGn}# + (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)) + (#{m2 _hoQGWMnyQPAh3k2jhWKGo}# + (car #{w1 _hoQGWMnyQPAh3k2jhWKGc}#))) + (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKGo}#) + #{m1 _hoQGWMnyQPAh3k2jhWKGn}# (append - #{m1 _85hotwsCta0JfYIjI4Mqk}# - #{m2 _85hotwsCta0JfYIjI4Mql}#))))) + #{m1 _hoQGWMnyQPAh3k2jhWKGn}# + #{m2 _hoQGWMnyQPAh3k2jhWKGo}#))))) (call-with-values (lambda () - (#{search _85hotwsCta0JfYIjI4MqG}# - #{id _85hotwsCta0JfYIjI4MqY}# - (cdr #{w _85hotwsCta0JfYIjI4MqF}#) - #{marks _85hotwsCta0JfYIjI4Mqa}#)) - (lambda (#{new-id _85hotwsCta0JfYIjI4Mq1}# - #{marks _85hotwsCta0JfYIjI4Mq2}#) - (if #{new-id _85hotwsCta0JfYIjI4Mq1}# - #{new-id _85hotwsCta0JfYIjI4Mq1}# - (let ((#{t _85hotwsCta0JfYIjI4Mq$}# - (#{search _85hotwsCta0JfYIjI4MqG}# - #{id _85hotwsCta0JfYIjI4MqY}# - (cdr #{w1 _85hotwsCta0JfYIjI4MqZ}#) - #{marks _85hotwsCta0JfYIjI4Mq2}#))) - (if #{t _85hotwsCta0JfYIjI4Mq$}# - #{t _85hotwsCta0JfYIjI4Mq$}# - #{id _85hotwsCta0JfYIjI4MqY}#))))))) + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{id _hoQGWMnyQPAh3k2jhWKGb}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) + #{marks _hoQGWMnyQPAh3k2jhWKGd}#)) + (lambda (#{new-id _hoQGWMnyQPAh3k2jhWKG4}# + #{marks _hoQGWMnyQPAh3k2jhWKG5}#) + (if #{new-id _hoQGWMnyQPAh3k2jhWKG4}# + #{new-id _hoQGWMnyQPAh3k2jhWKG4}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKHB}# + (#{search _hoQGWMnyQPAh3k2jhWKGJ}# + #{id _hoQGWMnyQPAh3k2jhWKGb}# + (cdr #{w1 _hoQGWMnyQPAh3k2jhWKGc}#) + #{marks _hoQGWMnyQPAh3k2jhWKG5}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKHB}# + #{t _hoQGWMnyQPAh3k2jhWKHB}# + #{id _hoQGWMnyQPAh3k2jhWKGb}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id _85hotwsCta0JfYIjI4MqE}#)))))) - (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}# - (lambda (#{w _85hotwsCta0JfYIjI4MsR}# - #{mod _85hotwsCta0JfYIjI4MsS}#) + #{id _hoQGWMnyQPAh3k2jhWKGH}#)))))) + (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# + (lambda (#{w _hoQGWMnyQPAh3k2jhWKIU}# + #{mod _hoQGWMnyQPAh3k2jhWKIV}#) (letrec* - ((#{scan _85hotwsCta0JfYIjI4MsT}# - (lambda (#{subst _85hotwsCta0JfYIjI4MsY}# - #{results _85hotwsCta0JfYIjI4MsZ}#) - (if (null? #{subst _85hotwsCta0JfYIjI4MsY}#) - #{results _85hotwsCta0JfYIjI4MsZ}# - (let ((#{fst _85hotwsCta0JfYIjI4Msa}# - (car #{subst _85hotwsCta0JfYIjI4MsY}#))) - (if (eq? #{fst _85hotwsCta0JfYIjI4Msa}# 'shift) - (#{scan _85hotwsCta0JfYIjI4MsT}# - (cdr #{subst _85hotwsCta0JfYIjI4MsY}#) - #{results _85hotwsCta0JfYIjI4MsZ}#) - (let ((#{symnames _85hotwsCta0JfYIjI4Msc}# - (vector-ref #{fst _85hotwsCta0JfYIjI4Msa}# 1)) - (#{marks _85hotwsCta0JfYIjI4Msd}# - (vector-ref #{fst _85hotwsCta0JfYIjI4Msa}# 2))) - (if (vector? #{symnames _85hotwsCta0JfYIjI4Msc}#) - (#{scan-vector-rib _85hotwsCta0JfYIjI4MsV}# - #{subst _85hotwsCta0JfYIjI4MsY}# - #{symnames _85hotwsCta0JfYIjI4Msc}# - #{marks _85hotwsCta0JfYIjI4Msd}# - #{results _85hotwsCta0JfYIjI4MsZ}#) - (#{scan-list-rib _85hotwsCta0JfYIjI4MsU}# - #{subst _85hotwsCta0JfYIjI4MsY}# - #{symnames _85hotwsCta0JfYIjI4Msc}# - #{marks _85hotwsCta0JfYIjI4Msd}# - #{results _85hotwsCta0JfYIjI4MsZ}#)))))))) - (#{scan-list-rib _85hotwsCta0JfYIjI4MsU}# - (lambda (#{subst _85hotwsCta0JfYIjI4Mt@}# - #{symnames _85hotwsCta0JfYIjI4MuA}# - #{marks _85hotwsCta0JfYIjI4MuB}# - #{results _85hotwsCta0JfYIjI4MuC}#) + ((#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (lambda (#{subst _hoQGWMnyQPAh3k2jhWKIb}# + #{results _hoQGWMnyQPAh3k2jhWKIc}#) + (if (null? #{subst _hoQGWMnyQPAh3k2jhWKIb}#) + #{results _hoQGWMnyQPAh3k2jhWKIc}# + (let ((#{fst _hoQGWMnyQPAh3k2jhWKId}# + (car #{subst _hoQGWMnyQPAh3k2jhWKIb}#))) + (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKId}# 'shift) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKIb}#) + #{results _hoQGWMnyQPAh3k2jhWKIc}#) + (let ((#{symnames _hoQGWMnyQPAh3k2jhWKIf}# + (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 1)) + (#{marks _hoQGWMnyQPAh3k2jhWKIg}# + (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 2))) + (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKIf}#) + (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# + #{subst _hoQGWMnyQPAh3k2jhWKIb}# + #{symnames _hoQGWMnyQPAh3k2jhWKIf}# + #{marks _hoQGWMnyQPAh3k2jhWKIg}# + #{results _hoQGWMnyQPAh3k2jhWKIc}#) + (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# + #{subst _hoQGWMnyQPAh3k2jhWKIb}# + #{symnames _hoQGWMnyQPAh3k2jhWKIf}# + #{marks _hoQGWMnyQPAh3k2jhWKIg}# + #{results _hoQGWMnyQPAh3k2jhWKIc}#)))))))) + (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# + (lambda (#{subst _hoQGWMnyQPAh3k2jhWKKC}# + #{symnames _hoQGWMnyQPAh3k2jhWKKD}# + #{marks _hoQGWMnyQPAh3k2jhWKKE}# + #{results _hoQGWMnyQPAh3k2jhWKKF}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4MuD}# - (lambda (#{symnames _85hotwsCta0JfYIjI4Mvn}# - #{marks _85hotwsCta0JfYIjI4Mvo}# - #{results _85hotwsCta0JfYIjI4Mvp}#) - (if (null? #{symnames _85hotwsCta0JfYIjI4Mvn}#) - (#{scan _85hotwsCta0JfYIjI4MsT}# - (cdr #{subst _85hotwsCta0JfYIjI4Mt@}#) - #{results _85hotwsCta0JfYIjI4Mvp}#) - (#{f _85hotwsCta0JfYIjI4MuD}# - (cdr #{symnames _85hotwsCta0JfYIjI4Mvn}#) - (cdr #{marks _85hotwsCta0JfYIjI4Mvo}#) - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# - (car #{symnames _85hotwsCta0JfYIjI4Mvn}#) - (let ((#{w _85hotwsCta0JfYIjI4Mvx}# - (cons (car #{marks _85hotwsCta0JfYIjI4Mvo}#) - #{subst _85hotwsCta0JfYIjI4Mt@}#))) + ((#{f _hoQGWMnyQPAh3k2jhWKKG}# + (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKLq}# + #{marks _hoQGWMnyQPAh3k2jhWKLr}# + #{results _hoQGWMnyQPAh3k2jhWKLs}#) + (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKKC}#) + #{results _hoQGWMnyQPAh3k2jhWKLs}#) + (#{f _hoQGWMnyQPAh3k2jhWKKG}# + (cdr #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) + (cdr #{marks _hoQGWMnyQPAh3k2jhWKLr}#) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) + (let ((#{w _hoQGWMnyQPAh3k2jhWKL0}# + (cons (car #{marks _hoQGWMnyQPAh3k2jhWKLr}#) + #{subst _hoQGWMnyQPAh3k2jhWKKC}#))) (cons (cons #f - (car #{w _85hotwsCta0JfYIjI4Mvx}#)) + (car #{w _hoQGWMnyQPAh3k2jhWKL0}#)) (cons 'shift - (cdr #{w _85hotwsCta0JfYIjI4Mvx}#)))) - #{mod _85hotwsCta0JfYIjI4MsS}#) - #{results _85hotwsCta0JfYIjI4Mvp}#)))))) - (#{f _85hotwsCta0JfYIjI4MuD}# - #{symnames _85hotwsCta0JfYIjI4MuA}# - #{marks _85hotwsCta0JfYIjI4MuB}# - #{results _85hotwsCta0JfYIjI4MuC}#)))) - (#{scan-vector-rib _85hotwsCta0JfYIjI4MsV}# - (lambda (#{subst _85hotwsCta0JfYIjI4Mvy}# - #{symnames _85hotwsCta0JfYIjI4Mvz}# - #{marks _85hotwsCta0JfYIjI4Mv0}# - #{results _85hotwsCta0JfYIjI4Mv1}#) - (let ((#{n _85hotwsCta0JfYIjI4Mv2}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKL0}#)))) + #{mod _hoQGWMnyQPAh3k2jhWKIV}#) + #{results _hoQGWMnyQPAh3k2jhWKLs}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWKKG}# + #{symnames _hoQGWMnyQPAh3k2jhWKKD}# + #{marks _hoQGWMnyQPAh3k2jhWKKE}# + #{results _hoQGWMnyQPAh3k2jhWKKF}#)))) + (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# + (lambda (#{subst _hoQGWMnyQPAh3k2jhWKL1}# + #{symnames _hoQGWMnyQPAh3k2jhWKL2}# + #{marks _hoQGWMnyQPAh3k2jhWKL3}# + #{results _hoQGWMnyQPAh3k2jhWKL4}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWKL5}# (vector-length - #{symnames _85hotwsCta0JfYIjI4Mvz}#))) + #{symnames _hoQGWMnyQPAh3k2jhWKL2}#))) (letrec* - ((#{f _85hotwsCta0JfYIjI4Mv3}# - (lambda (#{i _85hotwsCta0JfYIjI4MxK}# - #{results _85hotwsCta0JfYIjI4MxL}#) - (if (= #{i _85hotwsCta0JfYIjI4MxK}# - #{n _85hotwsCta0JfYIjI4Mv2}#) - (#{scan _85hotwsCta0JfYIjI4MsT}# - (cdr #{subst _85hotwsCta0JfYIjI4Mvy}#) - #{results _85hotwsCta0JfYIjI4MxL}#) - (#{f _85hotwsCta0JfYIjI4Mv3}# - (#{1+}# #{i _85hotwsCta0JfYIjI4MxK}#) - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# + ((#{f _hoQGWMnyQPAh3k2jhWKL6}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWKNN}# + #{results _hoQGWMnyQPAh3k2jhWKNO}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWKNN}# + #{n _hoQGWMnyQPAh3k2jhWKL5}#) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{subst _hoQGWMnyQPAh3k2jhWKL1}#) + #{results _hoQGWMnyQPAh3k2jhWKNO}#) + (#{f _hoQGWMnyQPAh3k2jhWKL6}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKNN}#) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (vector-ref - #{symnames _85hotwsCta0JfYIjI4Mvz}# - #{i _85hotwsCta0JfYIjI4MxK}#) - (let ((#{w _85hotwsCta0JfYIjI4MxT}# + #{symnames _hoQGWMnyQPAh3k2jhWKL2}# + #{i _hoQGWMnyQPAh3k2jhWKNN}#) + (let ((#{w _hoQGWMnyQPAh3k2jhWKNW}# (cons (vector-ref - #{marks _85hotwsCta0JfYIjI4Mv0}# - #{i _85hotwsCta0JfYIjI4MxK}#) - #{subst _85hotwsCta0JfYIjI4Mvy}#))) + #{marks _hoQGWMnyQPAh3k2jhWKL3}# + #{i _hoQGWMnyQPAh3k2jhWKNN}#) + #{subst _hoQGWMnyQPAh3k2jhWKL1}#))) (cons (cons #f - (car #{w _85hotwsCta0JfYIjI4MxT}#)) + (car #{w _hoQGWMnyQPAh3k2jhWKNW}#)) (cons 'shift - (cdr #{w _85hotwsCta0JfYIjI4MxT}#)))) - #{mod _85hotwsCta0JfYIjI4MsS}#) - #{results _85hotwsCta0JfYIjI4MxL}#)))))) - (#{f _85hotwsCta0JfYIjI4Mv3}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKNW}#)))) + #{mod _hoQGWMnyQPAh3k2jhWKIV}#) + #{results _hoQGWMnyQPAh3k2jhWKNO}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWKL6}# 0 - #{results _85hotwsCta0JfYIjI4Mv1}#)))))) - (#{scan _85hotwsCta0JfYIjI4MsT}# - (cdr #{w _85hotwsCta0JfYIjI4MsR}#) + #{results _hoQGWMnyQPAh3k2jhWKL4}#)))))) + (#{scan _hoQGWMnyQPAh3k2jhWKIW}# + (cdr #{w _hoQGWMnyQPAh3k2jhWKIU}#) '())))) - (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - (lambda (#{ids _85hotwsCta0JfYIjI4MxU}#) + (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKNX}#) (if (letrec* - ((#{all-ids? _85hotwsCta0JfYIjI4MxV}# - (lambda (#{ids _85hotwsCta0JfYIjI4Mz3}#) - (if (null? #{ids _85hotwsCta0JfYIjI4Mz3}#) - (null? #{ids _85hotwsCta0JfYIjI4Mz3}#) - (if (let ((#{x _85hotwsCta0JfYIjI4M0C}# - (car #{ids _85hotwsCta0JfYIjI4Mz3}#))) - (if (symbol? #{x _85hotwsCta0JfYIjI4M0C}#) + ((#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKP6}#) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) + (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) + (if (let ((#{x _hoQGWMnyQPAh3k2jhWKQF}# + (car #{ids _hoQGWMnyQPAh3k2jhWKP6}#))) + (if (symbol? #{x _hoQGWMnyQPAh3k2jhWKQF}#) #t - (if (if (vector? #{x _85hotwsCta0JfYIjI4M0C}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKQF}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4M0C}#) + #{x _hoQGWMnyQPAh3k2jhWKQF}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4M0C}# + #{x _hoQGWMnyQPAh3k2jhWKQF}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4M0C}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKQF}# 1)) #f))) - (#{all-ids? _85hotwsCta0JfYIjI4MxV}# - (cdr #{ids _85hotwsCta0JfYIjI4Mz3}#)) + (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKP6}#)) #f))))) - (#{all-ids? _85hotwsCta0JfYIjI4MxV}# - #{ids _85hotwsCta0JfYIjI4MxU}#)) - (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - #{ids _85hotwsCta0JfYIjI4MxU}#) + (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# + #{ids _hoQGWMnyQPAh3k2jhWKNX}#)) + (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + #{ids _hoQGWMnyQPAh3k2jhWKNX}#) #f))) - (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - (lambda (#{ids _85hotwsCta0JfYIjI4M2C}#) + (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKSF}#) (letrec* - ((#{distinct? _85hotwsCta0JfYIjI4M2D}# - (lambda (#{ids _85hotwsCta0JfYIjI4M3z}#) - (if (null? #{ids _85hotwsCta0JfYIjI4M3z}#) - (null? #{ids _85hotwsCta0JfYIjI4M3z}#) - (if (not (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}# - (car #{ids _85hotwsCta0JfYIjI4M3z}#) - (cdr #{ids _85hotwsCta0JfYIjI4M3z}#))) - (#{distinct? _85hotwsCta0JfYIjI4M2D}# - (cdr #{ids _85hotwsCta0JfYIjI4M3z}#)) + ((#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# + (lambda (#{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (if (not (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + (car #{ids _hoQGWMnyQPAh3k2jhWKT2}#) + (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#))) + (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# + (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#)) #f))))) - (#{distinct? _85hotwsCta0JfYIjI4M2D}# - #{ids _85hotwsCta0JfYIjI4M2C}#)))) - (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}# - (lambda (#{x _85hotwsCta0JfYIjI4M7F}# - #{list _85hotwsCta0JfYIjI4M7G}#) - (if (not (null? #{list _85hotwsCta0JfYIjI4M7G}#)) - (let ((#{t _85hotwsCta0JfYIjI4M7H}# - (let ((#{j _85hotwsCta0JfYIjI4M8Y}# - (car #{list _85hotwsCta0JfYIjI4M7G}#))) - (if (if (if (vector? #{x _85hotwsCta0JfYIjI4M7F}#) + (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# + #{ids _hoQGWMnyQPAh3k2jhWKSF}#)))) + (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKXI}# + #{list _hoQGWMnyQPAh3k2jhWKXJ}#) + (if (not (null? #{list _hoQGWMnyQPAh3k2jhWKXJ}#)) + (let ((#{t _hoQGWMnyQPAh3k2jhWKXK}# + (let ((#{j _hoQGWMnyQPAh3k2jhWKYb}# + (car #{list _hoQGWMnyQPAh3k2jhWKXJ}#))) + (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKXI}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4M7F}#) + #{x _hoQGWMnyQPAh3k2jhWKXI}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4M7F}# + #{x _hoQGWMnyQPAh3k2jhWKXI}# 0) 'syntax-object) #f) #f) - (if (vector? #{j _85hotwsCta0JfYIjI4M8Y}#) + (if (vector? #{j _hoQGWMnyQPAh3k2jhWKYb}#) (if (= (vector-length - #{j _85hotwsCta0JfYIjI4M8Y}#) + #{j _hoQGWMnyQPAh3k2jhWKYb}#) 4) - (eq? (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 0) + (eq? (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M7F}# 1) - (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 1)) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - (car (vector-ref #{x _85hotwsCta0JfYIjI4M7F}# 2)) - (car (vector-ref #{j _85hotwsCta0JfYIjI4M8Y}# 2))) + (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 1) + (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 1)) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 2)) + (car (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 2))) #f) - (eq? #{x _85hotwsCta0JfYIjI4M7F}# - #{j _85hotwsCta0JfYIjI4M8Y}#))))) - (if #{t _85hotwsCta0JfYIjI4M7H}# - #{t _85hotwsCta0JfYIjI4M7H}# - (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}# - #{x _85hotwsCta0JfYIjI4M7F}# - (cdr #{list _85hotwsCta0JfYIjI4M7G}#)))) + (eq? #{x _hoQGWMnyQPAh3k2jhWKXI}# + #{j _hoQGWMnyQPAh3k2jhWKYb}#))))) + (if #{t _hoQGWMnyQPAh3k2jhWKXK}# + #{t _hoQGWMnyQPAh3k2jhWKXK}# + (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + #{x _hoQGWMnyQPAh3k2jhWKXI}# + (cdr #{list _hoQGWMnyQPAh3k2jhWKXJ}#)))) #f))) - (#{wrap _85hotwsCta0JfYIjI4J4E}# - (lambda (#{x _85hotwsCta0JfYIjI4M9E}# - #{w _85hotwsCta0JfYIjI4M9F}# - #{defmod _85hotwsCta0JfYIjI4M9G}#) - (if (if (null? (car #{w _85hotwsCta0JfYIjI4M9F}#)) - (null? (cdr #{w _85hotwsCta0JfYIjI4M9F}#)) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKZH}# + #{w _hoQGWMnyQPAh3k2jhWKZI}# + #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#) + (if (if (null? (car #{w _hoQGWMnyQPAh3k2jhWKZI}#)) + (null? (cdr #{w _hoQGWMnyQPAh3k2jhWKZI}#)) #f) - #{x _85hotwsCta0JfYIjI4M9E}# - (if (if (vector? #{x _85hotwsCta0JfYIjI4M9E}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4M9E}#) + #{x _hoQGWMnyQPAh3k2jhWKZH}# + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKZH}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKZH}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 0) 'syntax-object) #f) #f) - (let ((#{expression _85hotwsCta0JfYIjI4M9U}# - (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 1)) - (#{wrap _85hotwsCta0JfYIjI4M9V}# - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4M9F}# - (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 2))) - (#{module _85hotwsCta0JfYIjI4M9W}# - (vector-ref #{x _85hotwsCta0JfYIjI4M9E}# 3))) + (let ((#{expression _hoQGWMnyQPAh3k2jhWKZX}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 1)) + (#{wrap _hoQGWMnyQPAh3k2jhWKZY}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWKZI}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 2))) + (#{module _hoQGWMnyQPAh3k2jhWKZZ}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 3))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4M9U}# - #{wrap _85hotwsCta0JfYIjI4M9V}# - #{module _85hotwsCta0JfYIjI4M9W}#)) - (if (null? #{x _85hotwsCta0JfYIjI4M9E}#) - #{x _85hotwsCta0JfYIjI4M9E}# + #{expression _hoQGWMnyQPAh3k2jhWKZX}# + #{wrap _hoQGWMnyQPAh3k2jhWKZY}# + #{module _hoQGWMnyQPAh3k2jhWKZZ}#)) + (if (null? #{x _hoQGWMnyQPAh3k2jhWKZH}#) + #{x _hoQGWMnyQPAh3k2jhWKZH}# (vector 'syntax-object - #{x _85hotwsCta0JfYIjI4M9E}# - #{w _85hotwsCta0JfYIjI4M9F}# - #{defmod _85hotwsCta0JfYIjI4M9G}#)))))) - (#{source-wrap _85hotwsCta0JfYIjI4J4F}# - (lambda (#{x _85hotwsCta0JfYIjI4M9n}# - #{w _85hotwsCta0JfYIjI4M9o}# - #{s _85hotwsCta0JfYIjI4M9p}# - #{defmod _85hotwsCta0JfYIjI4M9q}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{x _hoQGWMnyQPAh3k2jhWKZH}# + #{w _hoQGWMnyQPAh3k2jhWKZI}# + #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#)))))) + (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKZq}# + #{w _hoQGWMnyQPAh3k2jhWKZr}# + #{s _hoQGWMnyQPAh3k2jhWKZs}# + #{defmod _hoQGWMnyQPAh3k2jhWKZt}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{x _85hotwsCta0JfYIjI4M9n}#) - #{s _85hotwsCta0JfYIjI4M9p}# + (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWKZq}#) + #{s _hoQGWMnyQPAh3k2jhWKZs}# #f) (set-source-properties! - #{x _85hotwsCta0JfYIjI4M9n}# - #{s _85hotwsCta0JfYIjI4M9p}#)) - #{x _85hotwsCta0JfYIjI4M9n}#) - #{w _85hotwsCta0JfYIjI4M9o}# - #{defmod _85hotwsCta0JfYIjI4M9q}#))) - (#{expand-sequence _85hotwsCta0JfYIjI4J4G}# - (lambda (#{body _85hotwsCta0JfYIjI4PNH}# - #{r _85hotwsCta0JfYIjI4PNI}# - #{w _85hotwsCta0JfYIjI4PNJ}# - #{s _85hotwsCta0JfYIjI4PNK}# - #{mod _85hotwsCta0JfYIjI4PNL}#) - (#{build-sequence _85hotwsCta0JfYIjI4J3U}# - #{s _85hotwsCta0JfYIjI4PNK}# + #{x _hoQGWMnyQPAh3k2jhWKZq}# + #{s _hoQGWMnyQPAh3k2jhWKZs}#)) + #{x _hoQGWMnyQPAh3k2jhWKZq}#) + #{w _hoQGWMnyQPAh3k2jhWKZr}# + #{defmod _hoQGWMnyQPAh3k2jhWKZt}#))) + (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWMpK}# + #{r _hoQGWMnyQPAh3k2jhWMpL}# + #{w _hoQGWMnyQPAh3k2jhWMpM}# + #{s _hoQGWMnyQPAh3k2jhWMpN}# + #{mod _hoQGWMnyQPAh3k2jhWMpO}#) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + #{s _hoQGWMnyQPAh3k2jhWMpN}# (letrec* - ((#{dobody _85hotwsCta0JfYIjI4POb}# - (lambda (#{body _85hotwsCta0JfYIjI4PT5}# - #{r _85hotwsCta0JfYIjI4PT6}# - #{w _85hotwsCta0JfYIjI4PT7}# - #{mod _85hotwsCta0JfYIjI4PT8}#) - (if (null? #{body _85hotwsCta0JfYIjI4PT5}#) + ((#{dobody _hoQGWMnyQPAh3k2jhWMqe}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWMv8}# + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMv$}# + #{mod _hoQGWMnyQPAh3k2jhWMv@}#) + (if (null? #{body _hoQGWMnyQPAh3k2jhWMv8}#) '() - (let ((#{first _85hotwsCta0JfYIjI4PT9}# - (let ((#{e _85hotwsCta0JfYIjI4PUB}# - (car #{body _85hotwsCta0JfYIjI4PT5}#))) + (let ((#{first _hoQGWMnyQPAh3k2jhWMwA}# + (let ((#{e _hoQGWMnyQPAh3k2jhWMwE}# + (car #{body _hoQGWMnyQPAh3k2jhWMv8}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4PUB}# - #{r _85hotwsCta0JfYIjI4PT6}# - #{w _85hotwsCta0JfYIjI4PT7}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4PUB}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWMwE}# + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMv$}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWMwE}#) #f - #{mod _85hotwsCta0JfYIjI4PT8}# + #{mod _hoQGWMnyQPAh3k2jhWMv@}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4PUI}# - #{value _85hotwsCta0JfYIjI4PUJ}# - #{e _85hotwsCta0JfYIjI4PUK}# - #{w _85hotwsCta0JfYIjI4PUL}# - #{s _85hotwsCta0JfYIjI4PUM}# - #{mod _85hotwsCta0JfYIjI4PUN}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4PUI}# - #{value _85hotwsCta0JfYIjI4PUJ}# - #{e _85hotwsCta0JfYIjI4PUK}# - #{r _85hotwsCta0JfYIjI4PT6}# - #{w _85hotwsCta0JfYIjI4PUL}# - #{s _85hotwsCta0JfYIjI4PUM}# - #{mod _85hotwsCta0JfYIjI4PUN}#)))))) - (cons #{first _85hotwsCta0JfYIjI4PT9}# - (#{dobody _85hotwsCta0JfYIjI4POb}# - (cdr #{body _85hotwsCta0JfYIjI4PT5}#) - #{r _85hotwsCta0JfYIjI4PT6}# - #{w _85hotwsCta0JfYIjI4PT7}# - #{mod _85hotwsCta0JfYIjI4PT8}#))))))) - (#{dobody _85hotwsCta0JfYIjI4POb}# - #{body _85hotwsCta0JfYIjI4PNH}# - #{r _85hotwsCta0JfYIjI4PNI}# - #{w _85hotwsCta0JfYIjI4PNJ}# - #{mod _85hotwsCta0JfYIjI4PNL}#))))) - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - (lambda (#{body _85hotwsCta0JfYIjI4M98}# - #{r _85hotwsCta0JfYIjI4M99}# - #{w _85hotwsCta0JfYIjI4M9$}# - #{s _85hotwsCta0JfYIjI4M9@}# - #{m _85hotwsCta0JfYIjI4M$A}# - #{esew _85hotwsCta0JfYIjI4M$B}# - #{mod _85hotwsCta0JfYIjI4M$C}#) + (lambda (#{type _hoQGWMnyQPAh3k2jhWMwL}# + #{value _hoQGWMnyQPAh3k2jhWMwM}# + #{e _hoQGWMnyQPAh3k2jhWMwN}# + #{w _hoQGWMnyQPAh3k2jhWMwO}# + #{s _hoQGWMnyQPAh3k2jhWMwP}# + #{mod _hoQGWMnyQPAh3k2jhWMwQ}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWMwL}# + #{value _hoQGWMnyQPAh3k2jhWMwM}# + #{e _hoQGWMnyQPAh3k2jhWMwN}# + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMwO}# + #{s _hoQGWMnyQPAh3k2jhWMwP}# + #{mod _hoQGWMnyQPAh3k2jhWMwQ}#)))))) + (cons #{first _hoQGWMnyQPAh3k2jhWMwA}# + (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# + (cdr #{body _hoQGWMnyQPAh3k2jhWMv8}#) + #{r _hoQGWMnyQPAh3k2jhWMv9}# + #{w _hoQGWMnyQPAh3k2jhWMv$}# + #{mod _hoQGWMnyQPAh3k2jhWMv@}#))))))) + (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# + #{body _hoQGWMnyQPAh3k2jhWMpK}# + #{r _hoQGWMnyQPAh3k2jhWMpL}# + #{w _hoQGWMnyQPAh3k2jhWMpM}# + #{mod _hoQGWMnyQPAh3k2jhWMpO}#))))) + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWKZ@}# + #{r _hoQGWMnyQPAh3k2jhWKaA}# + #{w _hoQGWMnyQPAh3k2jhWKaB}# + #{s _hoQGWMnyQPAh3k2jhWKaC}# + #{m _hoQGWMnyQPAh3k2jhWKaD}# + #{esew _hoQGWMnyQPAh3k2jhWKaE}# + #{mod _hoQGWMnyQPAh3k2jhWKaF}#) (letrec* - ((#{scan _85hotwsCta0JfYIjI4M$D}# - (lambda (#{body _85hotwsCta0JfYIjI4NAG}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NAI}# - #{s _85hotwsCta0JfYIjI4NAJ}# - #{m _85hotwsCta0JfYIjI4NAK}# - #{esew _85hotwsCta0JfYIjI4NAL}# - #{mod _85hotwsCta0JfYIjI4NAM}# - #{exps _85hotwsCta0JfYIjI4NAN}#) - (if (null? #{body _85hotwsCta0JfYIjI4NAG}#) - #{exps _85hotwsCta0JfYIjI4NAN}# + ((#{scan _hoQGWMnyQPAh3k2jhWKaG}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWKcJ}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKcL}# + #{s _hoQGWMnyQPAh3k2jhWKcM}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKcP}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + (if (null? #{body _hoQGWMnyQPAh3k2jhWKcJ}#) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e _85hotwsCta0JfYIjI4NAO}# - (car #{body _85hotwsCta0JfYIjI4NAG}#))) - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4NAO}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NAI}# - (let ((#{t _85hotwsCta0JfYIjI4NAS}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4NAO}#))) - (if #{t _85hotwsCta0JfYIjI4NAS}# - #{t _85hotwsCta0JfYIjI4NAS}# - #{s _85hotwsCta0JfYIjI4NAJ}#)) + (let ((#{e _hoQGWMnyQPAh3k2jhWKcR}# + (car #{body _hoQGWMnyQPAh3k2jhWKcJ}#))) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWKcR}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKcL}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKcV}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWKcR}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKcV}# + #{t _hoQGWMnyQPAh3k2jhWKcV}# + #{s _hoQGWMnyQPAh3k2jhWKcM}#)) #f - #{mod _85hotwsCta0JfYIjI4NAM}# + #{mod _hoQGWMnyQPAh3k2jhWKcP}# #f))) - (lambda (#{type _85hotwsCta0JfYIjI4ND9}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{mod _85hotwsCta0JfYIjI4NEC}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWKgA}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'begin-form) - (let ((#{tmp _85hotwsCta0JfYIjI4NEH}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgK}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4ND@}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# '(_)))) - (if #{tmp _85hotwsCta0JfYIjI4NEH}# + (if #{tmp _hoQGWMnyQPAh3k2jhWKgK}# (@apply - (lambda () #{exps _85hotwsCta0JfYIjI4NAN}#) - #{tmp _85hotwsCta0JfYIjI4NEH}#) - (let ((#{tmp _85hotwsCta0JfYIjI4NEL}# + (lambda () #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + #{tmp _hoQGWMnyQPAh3k2jhWKgK}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgO}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4ND@}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# '(_ any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4NEL}# + (if #{tmp _hoQGWMnyQPAh3k2jhWKgO}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4NEP}# - #{e2 _85hotwsCta0JfYIjI4NEQ}#) - (#{scan _85hotwsCta0JfYIjI4M$D}# - (cons #{e1 _85hotwsCta0JfYIjI4NEP}# - #{e2 _85hotwsCta0JfYIjI4NEQ}#) - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{m _85hotwsCta0JfYIjI4NAK}# - #{esew _85hotwsCta0JfYIjI4NAL}# - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#)) - #{tmp _85hotwsCta0JfYIjI4NEL}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWKgS}# + #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWKgS}# + #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) + #{tmp _hoQGWMnyQPAh3k2jhWKgO}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4ND@}#))))) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + #{e _hoQGWMnyQPAh3k2jhWKgC}#))))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'local-syntax-form) - (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{mod _85hotwsCta0JfYIjI4NEC}# - (lambda (#{body _85hotwsCta0JfYIjI4NEf}# - #{r _85hotwsCta0JfYIjI4NEg}# - #{w _85hotwsCta0JfYIjI4NEh}# - #{s _85hotwsCta0JfYIjI4NEi}# - #{mod _85hotwsCta0JfYIjI4NEj}#) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEf}# - #{r _85hotwsCta0JfYIjI4NEg}# - #{w _85hotwsCta0JfYIjI4NEh}# - #{s _85hotwsCta0JfYIjI4NEi}# - #{m _85hotwsCta0JfYIjI4NAK}# - #{esew _85hotwsCta0JfYIjI4NAL}# - #{mod _85hotwsCta0JfYIjI4NEj}# - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWKgi}# + #{r _hoQGWMnyQPAh3k2jhWKgj}# + #{w _hoQGWMnyQPAh3k2jhWKgk}# + #{s _hoQGWMnyQPAh3k2jhWKgl}# + #{mod _hoQGWMnyQPAh3k2jhWKgm}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgi}# + #{r _hoQGWMnyQPAh3k2jhWKgj}# + #{w _hoQGWMnyQPAh3k2jhWKgk}# + #{s _hoQGWMnyQPAh3k2jhWKgl}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKgm}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'eval-when-form) - (let ((#{tmp _85hotwsCta0JfYIjI4NEo}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgr}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4ND@}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# '(_ each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4NEo}# + (if #{tmp _hoQGWMnyQPAh3k2jhWKgr}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4NEs}# - #{e1 _85hotwsCta0JfYIjI4NEt}# - #{e2 _85hotwsCta0JfYIjI4NEu}#) - (let ((#{when-list _85hotwsCta0JfYIjI4NEv}# - (#{parse-when-list _85hotwsCta0JfYIjI4J4J}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{x _85hotwsCta0JfYIjI4NEs}#)) - (#{body _85hotwsCta0JfYIjI4NEw}# - (cons #{e1 _85hotwsCta0JfYIjI4NEt}# - #{e2 _85hotwsCta0JfYIjI4NEu}#))) - (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWKgv}# + #{e1 _hoQGWMnyQPAh3k2jhWKgw}# + #{e2 _hoQGWMnyQPAh3k2jhWKgx}#) + (let ((#{when-list _hoQGWMnyQPAh3k2jhWKgy}# + (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{x _hoQGWMnyQPAh3k2jhWKgv}#)) + (#{body _hoQGWMnyQPAh3k2jhWKgz}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWKgw}# + #{e2 _hoQGWMnyQPAh3k2jhWKgx}#))) + (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'e) (if (memq 'eval - #{when-list _85hotwsCta0JfYIjI4NEv}#) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# (if (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#) + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) 'c&e 'e) '(eval) - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#) + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) (begin (if (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#) - (let ((#{x _85hotwsCta0JfYIjI4NF9}# - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + (let ((#{x _hoQGWMnyQPAh3k2jhWKiA}# + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'e '(eval) - #{mod _85hotwsCta0JfYIjI4NEC}#))) + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) (primitive-eval - #{x _85hotwsCta0JfYIjI4NF9}#))) + #{x _hoQGWMnyQPAh3k2jhWKiA}#))) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) (if (memq 'load - #{when-list _85hotwsCta0JfYIjI4NEv}#) - (if (let ((#{t _85hotwsCta0JfYIjI4NGX}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + (if (let ((#{t _hoQGWMnyQPAh3k2jhWKia}# (memq 'compile - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NGX}# - #{t _85hotwsCta0JfYIjI4NGX}# - (let ((#{t _85hotwsCta0JfYIjI4NHI}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKia}# + #{t _hoQGWMnyQPAh3k2jhWKia}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKjL}# (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NHI}# - #{t _85hotwsCta0JfYIjI4NHI}# - (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKjL}# + #{t _hoQGWMnyQPAh3k2jhWKjL}# + (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) (memq 'eval - #{when-list _85hotwsCta0JfYIjI4NEv}#) + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) #f))))) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'c&e '(compile load) - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#) - (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) #t - (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e)) - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'c '(load) - #{mod _85hotwsCta0JfYIjI4NEC}# - #{exps _85hotwsCta0JfYIjI4NAN}#) + #{mod _hoQGWMnyQPAh3k2jhWKgF}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (let ((#{t _85hotwsCta0JfYIjI4NJJ}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (let ((#{t _hoQGWMnyQPAh3k2jhWKlM}# (memq 'compile - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NJJ}# - #{t _85hotwsCta0JfYIjI4NJJ}# - (let ((#{t _85hotwsCta0JfYIjI4NJ6}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKlM}# + #{t _hoQGWMnyQPAh3k2jhWKlM}# + (let ((#{t _hoQGWMnyQPAh3k2jhWKl9}# (memq 'expand - #{when-list _85hotwsCta0JfYIjI4NEv}#))) - (if #{t _85hotwsCta0JfYIjI4NJ6}# - #{t _85hotwsCta0JfYIjI4NJ6}# - (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) + (if #{t _hoQGWMnyQPAh3k2jhWKl9}# + #{t _hoQGWMnyQPAh3k2jhWKl9}# + (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) (memq 'eval - #{when-list _85hotwsCta0JfYIjI4NEv}#) + #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) #f))))) (begin - (let ((#{x _85hotwsCta0JfYIjI4NL2}# - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - #{body _85hotwsCta0JfYIjI4NEw}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# + (let ((#{x _hoQGWMnyQPAh3k2jhWKn5}# + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + #{body _hoQGWMnyQPAh3k2jhWKgz}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# 'e '(eval) - #{mod _85hotwsCta0JfYIjI4NEC}#))) + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) (primitive-eval - #{x _85hotwsCta0JfYIjI4NL2}#)) + #{x _hoQGWMnyQPAh3k2jhWKn5}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#)) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#)))))) - #{tmp _85hotwsCta0JfYIjI4NEo}#) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWKgr}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4ND@}#))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + #{e _hoQGWMnyQPAh3k2jhWKgC}#))) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'define-syntax-form) #t - (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'define-syntax-parameter-form)) - (let ((#{n _85hotwsCta0JfYIjI4NMk}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}#)) - (#{r _85hotwsCta0JfYIjI4NMl}# - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - #{r _85hotwsCta0JfYIjI4NAH}#))) - (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}# 'c) + (let ((#{n _hoQGWMnyQPAh3k2jhWKon}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}#)) + (#{r _hoQGWMnyQPAh3k2jhWKoo}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{r _hoQGWMnyQPAh3k2jhWKcK}#))) + (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) (if (memq 'compile - #{esew _85hotwsCta0JfYIjI4NAL}#) - (let ((#{e _85hotwsCta0JfYIjI4NMp}# - (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - #{n _85hotwsCta0JfYIjI4NMk}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NMl}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWKos}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) (begin - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - #{e _85hotwsCta0JfYIjI4NMp}# - #{mod _85hotwsCta0JfYIjI4NEC}#) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + #{e _hoQGWMnyQPAh3k2jhWKos}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) (if (memq 'load - #{esew _85hotwsCta0JfYIjI4NAL}#) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) (values - (cons #{e _85hotwsCta0JfYIjI4NMp}# - #{exps _85hotwsCta0JfYIjI4NAN}#)) + (cons #{e _hoQGWMnyQPAh3k2jhWKos}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#)))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) (if (memq 'load - #{esew _85hotwsCta0JfYIjI4NAL}#) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) (values - (cons (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - #{n _85hotwsCta0JfYIjI4NMk}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NMl}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)) - #{exps _85hotwsCta0JfYIjI4NAN}#)) + (cons (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (eqv? #{m _85hotwsCta0JfYIjI4NAK}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) - (let ((#{e _85hotwsCta0JfYIjI4NTo}# - (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - #{n _85hotwsCta0JfYIjI4NMk}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NMl}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) + (let ((#{e _hoQGWMnyQPAh3k2jhWKvr}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) (begin - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - #{e _85hotwsCta0JfYIjI4NTo}# - #{mod _85hotwsCta0JfYIjI4NEC}#) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + #{e _hoQGWMnyQPAh3k2jhWKvr}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) (values - (cons #{e _85hotwsCta0JfYIjI4NTo}# - #{exps _85hotwsCta0JfYIjI4NAN}#)))) + (cons #{e _hoQGWMnyQPAh3k2jhWKvr}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) (begin (if (memq 'eval - #{esew _85hotwsCta0JfYIjI4NAL}#) - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - #{n _85hotwsCta0JfYIjI4NMk}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NMl}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)) - #{mod _85hotwsCta0JfYIjI4NEC}#)) + #{esew _hoQGWMnyQPAh3k2jhWKcO}#) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + #{n _hoQGWMnyQPAh3k2jhWKon}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKoo}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) (values - #{exps _85hotwsCta0JfYIjI4NAN}#))))) - (if (eqv? #{type _85hotwsCta0JfYIjI4ND9}# + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# 'define-form) - (let ((#{n _85hotwsCta0JfYIjI4Ndj}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}#))) - (let ((#{type _85hotwsCta0JfYIjI4Ndk}# - (car (let ((#{t _85hotwsCta0JfYIjI4Ndr}# - (assq #{n _85hotwsCta0JfYIjI4Ndj}# - #{r _85hotwsCta0JfYIjI4NAH}#))) - (if #{t _85hotwsCta0JfYIjI4Ndr}# - (cdr #{t _85hotwsCta0JfYIjI4Ndr}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWK5m}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}#))) + (let ((#{type _hoQGWMnyQPAh3k2jhWK5n}# + (car (let ((#{t _hoQGWMnyQPAh3k2jhWK5u}# + (assq #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{r _hoQGWMnyQPAh3k2jhWKcK}#))) + (if #{t _hoQGWMnyQPAh3k2jhWK5u}# + (cdr #{t _hoQGWMnyQPAh3k2jhWK5u}#) (if (symbol? - #{n _85hotwsCta0JfYIjI4Ndj}#) - (let ((#{t _85hotwsCta0JfYIjI4Ndx}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4Ndj}# - #{mod _85hotwsCta0JfYIjI4NEC}#))) - (if #{t _85hotwsCta0JfYIjI4Ndx}# - #{t _85hotwsCta0JfYIjI4Ndx}# + #{n _hoQGWMnyQPAh3k2jhWK5m}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWK50}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + (if #{t _hoQGWMnyQPAh3k2jhWK50}# + #{t _hoQGWMnyQPAh3k2jhWK50}# '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'global) #t - (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'core) #t - (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'macro) #t - (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'module-ref)))) (begin - (if (if (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (if (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) #t - (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e)) (if (not (module-local-variable (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}#)) + #{n _hoQGWMnyQPAh3k2jhWK5m}#)) (current-module) #f) #f) - (let ((#{old _85hotwsCta0JfYIjI4NeQ}# + (let ((#{old _hoQGWMnyQPAh3k2jhWK6T}# (module-variable (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}#))) + #{n _hoQGWMnyQPAh3k2jhWK5m}#))) (if (if (variable? - #{old _85hotwsCta0JfYIjI4NeQ}#) + #{old _hoQGWMnyQPAh3k2jhWK6T}#) (variable-bound? - #{old _85hotwsCta0JfYIjI4NeQ}#) + #{old _hoQGWMnyQPAh3k2jhWK6T}#) #f) (module-define! (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# (variable-ref - #{old _85hotwsCta0JfYIjI4NeQ}#)) + #{old _hoQGWMnyQPAh3k2jhWK6T}#)) (module-add! (current-module) - #{n _85hotwsCta0JfYIjI4Ndj}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# (make-undefined-variable))))) (values - (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) - (let ((#{x _85hotwsCta0JfYIjI4NeS}# - (#{build-global-definition _85hotwsCta0JfYIjI4J3O}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{n _85hotwsCta0JfYIjI4Ndj}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) + (let ((#{x _hoQGWMnyQPAh3k2jhWK6V}# + (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) (begin - (#{top-level-eval-hook _85hotwsCta0JfYIjI4J2@}# - #{x _85hotwsCta0JfYIjI4NeS}# - #{mod _85hotwsCta0JfYIjI4NEC}#) - #{x _85hotwsCta0JfYIjI4NeS}#)) + (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# + #{x _hoQGWMnyQPAh3k2jhWK6V}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#) + #{x _hoQGWMnyQPAh3k2jhWK6V}#)) (lambda () - (#{build-global-definition _85hotwsCta0JfYIjI4J3O}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{n _85hotwsCta0JfYIjI4Ndj}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))) - #{exps _85hotwsCta0JfYIjI4NAN}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4Ndk}# + (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{n _hoQGWMnyQPAh3k2jhWK5m}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e _85hotwsCta0JfYIjI4ND@}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)) + #{e _hoQGWMnyQPAh3k2jhWKgC}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) (syntax-violation #f "cannot define keyword at top level" - #{e _85hotwsCta0JfYIjI4ND@}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{mod _85hotwsCta0JfYIjI4NEC}#)))))) + #{e _hoQGWMnyQPAh3k2jhWKgC}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))))) (values - (cons (if (eq? #{m _85hotwsCta0JfYIjI4NAK}# + (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c&e) - (let ((#{x _85hotwsCta0JfYIjI4NlQ}# - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4ND9}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{mod _85hotwsCta0JfYIjI4NEC}#))) + (let ((#{x _hoQGWMnyQPAh3k2jhWLBT}# + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) (begin (primitive-eval - #{x _85hotwsCta0JfYIjI4NlQ}#) - #{x _85hotwsCta0JfYIjI4NlQ}#)) + #{x _hoQGWMnyQPAh3k2jhWLBT}#) + #{x _hoQGWMnyQPAh3k2jhWLBT}#)) (lambda () - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4ND9}# - #{value _85hotwsCta0JfYIjI4ND$}# - #{e _85hotwsCta0JfYIjI4ND@}# - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NEA}# - #{s _85hotwsCta0JfYIjI4NEB}# - #{mod _85hotwsCta0JfYIjI4NEC}#))) - #{exps _85hotwsCta0JfYIjI4NAN}#)))))))))) - (lambda (#{exps _85hotwsCta0JfYIjI4NlZ}#) - (#{scan _85hotwsCta0JfYIjI4M$D}# - (cdr #{body _85hotwsCta0JfYIjI4NAG}#) - #{r _85hotwsCta0JfYIjI4NAH}# - #{w _85hotwsCta0JfYIjI4NAI}# - #{s _85hotwsCta0JfYIjI4NAJ}# - #{m _85hotwsCta0JfYIjI4NAK}# - #{esew _85hotwsCta0JfYIjI4NAL}# - #{mod _85hotwsCta0JfYIjI4NAM}# - #{exps _85hotwsCta0JfYIjI4NlZ}#))))))) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{value _hoQGWMnyQPAh3k2jhWKgB}# + #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKgD}# + #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))))))) + (lambda (#{exps _hoQGWMnyQPAh3k2jhWLBc}#) + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + (cdr #{body _hoQGWMnyQPAh3k2jhWKcJ}#) + #{r _hoQGWMnyQPAh3k2jhWKcK}# + #{w _hoQGWMnyQPAh3k2jhWKcL}# + #{s _hoQGWMnyQPAh3k2jhWKcM}# + #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew _hoQGWMnyQPAh3k2jhWKcO}# + #{mod _hoQGWMnyQPAh3k2jhWKcP}# + #{exps _hoQGWMnyQPAh3k2jhWLBc}#))))))) (call-with-values (lambda () - (#{scan _85hotwsCta0JfYIjI4M$D}# - #{body _85hotwsCta0JfYIjI4M98}# - #{r _85hotwsCta0JfYIjI4M99}# - #{w _85hotwsCta0JfYIjI4M9$}# - #{s _85hotwsCta0JfYIjI4M9@}# - #{m _85hotwsCta0JfYIjI4M$A}# - #{esew _85hotwsCta0JfYIjI4M$B}# - #{mod _85hotwsCta0JfYIjI4M$C}# + (#{scan _hoQGWMnyQPAh3k2jhWKaG}# + #{body _hoQGWMnyQPAh3k2jhWKZ@}# + #{r _hoQGWMnyQPAh3k2jhWKaA}# + #{w _hoQGWMnyQPAh3k2jhWKaB}# + #{s _hoQGWMnyQPAh3k2jhWKaC}# + #{m _hoQGWMnyQPAh3k2jhWKaD}# + #{esew _hoQGWMnyQPAh3k2jhWKaE}# + #{mod _hoQGWMnyQPAh3k2jhWKaF}# '())) - (lambda (#{exps _85hotwsCta0JfYIjI4M$G}#) - (if (null? #{exps _85hotwsCta0JfYIjI4M$G}#) + (lambda (#{exps _hoQGWMnyQPAh3k2jhWKaJ}#) + (if (null? #{exps _hoQGWMnyQPAh3k2jhWKaJ}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s _85hotwsCta0JfYIjI4M9@}#) - (#{build-sequence _85hotwsCta0JfYIjI4J3U}# - #{s _85hotwsCta0JfYIjI4M9@}# + #{s _hoQGWMnyQPAh3k2jhWKaC}#) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + #{s _hoQGWMnyQPAh3k2jhWKaC}# (letrec* - ((#{lp _85hotwsCta0JfYIjI4M$u}# - (lambda (#{in _85hotwsCta0JfYIjI4NAC}# - #{out _85hotwsCta0JfYIjI4NAD}#) - (if (null? #{in _85hotwsCta0JfYIjI4NAC}#) - #{out _85hotwsCta0JfYIjI4NAD}# - (let ((#{e _85hotwsCta0JfYIjI4NAE}# - (car #{in _85hotwsCta0JfYIjI4NAC}#))) - (#{lp _85hotwsCta0JfYIjI4M$u}# - (cdr #{in _85hotwsCta0JfYIjI4NAC}#) + ((#{lp _hoQGWMnyQPAh3k2jhWKax}# + (lambda (#{in _hoQGWMnyQPAh3k2jhWKcF}# + #{out _hoQGWMnyQPAh3k2jhWKcG}#) + (if (null? #{in _hoQGWMnyQPAh3k2jhWKcF}#) + #{out _hoQGWMnyQPAh3k2jhWKcG}# + (let ((#{e _hoQGWMnyQPAh3k2jhWKcH}# + (car #{in _hoQGWMnyQPAh3k2jhWKcF}#))) + (#{lp _hoQGWMnyQPAh3k2jhWKax}# + (cdr #{in _hoQGWMnyQPAh3k2jhWKcF}#) (cons (if (procedure? - #{e _85hotwsCta0JfYIjI4NAE}#) - (#{e _85hotwsCta0JfYIjI4NAE}#) - #{e _85hotwsCta0JfYIjI4NAE}#) - #{out _85hotwsCta0JfYIjI4NAD}#))))))) - (#{lp _85hotwsCta0JfYIjI4M$u}# - #{exps _85hotwsCta0JfYIjI4M$G}# + #{e _hoQGWMnyQPAh3k2jhWKcH}#) + (#{e _hoQGWMnyQPAh3k2jhWKcH}#) + #{e _hoQGWMnyQPAh3k2jhWKcH}#) + #{out _hoQGWMnyQPAh3k2jhWKcG}#))))))) + (#{lp _hoQGWMnyQPAh3k2jhWKax}# + #{exps _hoQGWMnyQPAh3k2jhWKaJ}# '()))))))))) - (#{expand-install-global _85hotwsCta0JfYIjI4J4I}# - (lambda (#{name _85hotwsCta0JfYIjI4Nla}# - #{e _85hotwsCta0JfYIjI4Nlb}#) - (let ((#{exp _85hotwsCta0JfYIjI4Nlh}# - (let ((#{fun-exp _85hotwsCta0JfYIjI4Nlr}# + (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# + (lambda (#{name _hoQGWMnyQPAh3k2jhWLBd}# + #{e _hoQGWMnyQPAh3k2jhWLBe}#) + (let ((#{exp _hoQGWMnyQPAh3k2jhWLBk}# + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1559,416 +1559,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps _85hotwsCta0JfYIjI4Nls}# + (#{arg-exps _hoQGWMnyQPAh3k2jhWLBv}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name _85hotwsCta0JfYIjI4Nla}#) + #{name _hoQGWMnyQPAh3k2jhWLBd}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e _85hotwsCta0JfYIjI4Nlb}#))) + #{e _hoQGWMnyQPAh3k2jhWLBe}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4Nlr}# - #{arg-exps _85hotwsCta0JfYIjI4Nls}#)))) + #{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# + #{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#)))) (begin - (if (if (struct? #{exp _85hotwsCta0JfYIjI4Nlh}#) - (eq? (struct-vtable #{exp _85hotwsCta0JfYIjI4Nlh}#) + (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWLBk}#) + (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWLBk}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _85hotwsCta0JfYIjI4NmV}# - (struct-ref #{exp _85hotwsCta0JfYIjI4Nlh}# 1))) - (if (not (assq 'name #{meta _85hotwsCta0JfYIjI4NmV}#)) - (let ((#{v _85hotwsCta0JfYIjI4Nmc}# - (cons (cons 'name #{name _85hotwsCta0JfYIjI4Nla}#) - #{meta _85hotwsCta0JfYIjI4NmV}#))) + (let ((#{meta _hoQGWMnyQPAh3k2jhWLCY}# + (struct-ref #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1))) + (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWLCY}#)) + (let ((#{v _hoQGWMnyQPAh3k2jhWLCf}# + (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWLBd}#) + #{meta _hoQGWMnyQPAh3k2jhWLCY}#))) (struct-set! - #{exp _85hotwsCta0JfYIjI4Nlh}# + #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1 - #{v _85hotwsCta0JfYIjI4Nmc}#))))) + #{v _hoQGWMnyQPAh3k2jhWLCf}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name _85hotwsCta0JfYIjI4Nla}# - #{exp _85hotwsCta0JfYIjI4Nlh}#))))) - (#{parse-when-list _85hotwsCta0JfYIjI4J4J}# - (lambda (#{e _85hotwsCta0JfYIjI4Nmn}# - #{when-list _85hotwsCta0JfYIjI4Nmo}#) - (let ((#{result _85hotwsCta0JfYIjI4Nmp}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{when-list _85hotwsCta0JfYIjI4Nmo}# + #{name _hoQGWMnyQPAh3k2jhWLBd}# + #{exp _hoQGWMnyQPAh3k2jhWLBk}#))))) + (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWLCq}# + #{when-list _hoQGWMnyQPAh3k2jhWLCr}#) + (let ((#{result _hoQGWMnyQPAh3k2jhWLCs}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{when-list _hoQGWMnyQPAh3k2jhWLCr}# '(())))) (letrec* - ((#{lp _85hotwsCta0JfYIjI4Nmq}# - (lambda (#{l _85hotwsCta0JfYIjI4Nng}#) - (if (null? #{l _85hotwsCta0JfYIjI4Nng}#) - #{result _85hotwsCta0JfYIjI4Nmp}# - (if (let ((#{t _85hotwsCta0JfYIjI4Nni}# - (car #{l _85hotwsCta0JfYIjI4Nng}#))) - (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'compile) + ((#{lp _hoQGWMnyQPAh3k2jhWLCt}# + (lambda (#{l _hoQGWMnyQPAh3k2jhWLDj}#) + (if (null? #{l _hoQGWMnyQPAh3k2jhWLDj}#) + #{result _hoQGWMnyQPAh3k2jhWLCs}# + (if (let ((#{t _hoQGWMnyQPAh3k2jhWLDl}# + (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))) + (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'compile) #t - (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'load) + (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'load) #t - (if (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'eval) + (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'eval) #t - (eq? #{t _85hotwsCta0JfYIjI4Nni}# 'expand))))) - (#{lp _85hotwsCta0JfYIjI4Nmq}# - (cdr #{l _85hotwsCta0JfYIjI4Nng}#)) + (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'expand))))) + (#{lp _hoQGWMnyQPAh3k2jhWLCt}# + (cdr #{l _hoQGWMnyQPAh3k2jhWLDj}#)) (syntax-violation 'eval-when "invalid situation" - #{e _85hotwsCta0JfYIjI4Nmn}# - (car #{l _85hotwsCta0JfYIjI4Nng}#))))))) - (#{lp _85hotwsCta0JfYIjI4Nmq}# - #{result _85hotwsCta0JfYIjI4Nmp}#))))) - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - (lambda (#{e _85hotwsCta0JfYIjI4Nnk}# - #{r _85hotwsCta0JfYIjI4Nnl}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# - #{for-car? _85hotwsCta0JfYIjI4Nnq}#) - (if (symbol? #{e _85hotwsCta0JfYIjI4Nnk}#) - (let ((#{n _85hotwsCta0JfYIjI4Nnr}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}#))) - (let ((#{b _85hotwsCta0JfYIjI4Nns}# - (let ((#{t _85hotwsCta0JfYIjI4Nn0}# - (assq #{n _85hotwsCta0JfYIjI4Nnr}# - #{r _85hotwsCta0JfYIjI4Nnl}#))) - (if #{t _85hotwsCta0JfYIjI4Nn0}# - (cdr #{t _85hotwsCta0JfYIjI4Nn0}#) - (if (symbol? #{n _85hotwsCta0JfYIjI4Nnr}#) - (let ((#{t _85hotwsCta0JfYIjI4Nn6}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4Nnr}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))) - (if #{t _85hotwsCta0JfYIjI4Nn6}# - #{t _85hotwsCta0JfYIjI4Nn6}# + #{e _hoQGWMnyQPAh3k2jhWLCq}# + (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))))))) + (#{lp _hoQGWMnyQPAh3k2jhWLCt}# + #{result _hoQGWMnyQPAh3k2jhWLCs}#))))) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) + (if (symbol? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWLDu}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWLDv}# + (let ((#{t _hoQGWMnyQPAh3k2jhWLD3}# + (assq #{n _hoQGWMnyQPAh3k2jhWLDu}# + #{r _hoQGWMnyQPAh3k2jhWLDo}#))) + (if #{t _hoQGWMnyQPAh3k2jhWLD3}# + (cdr #{t _hoQGWMnyQPAh3k2jhWLD3}#) + (if (symbol? #{n _hoQGWMnyQPAh3k2jhWLDu}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWLD9}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWLDu}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))) + (if #{t _hoQGWMnyQPAh3k2jhWLD9}# + #{t _hoQGWMnyQPAh3k2jhWLD9}# '(global))) '(displaced-lexical)))))) - (let ((#{type _85hotwsCta0JfYIjI4Nnt}# - (car #{b _85hotwsCta0JfYIjI4Nns}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'lexical) + (let ((#{type _hoQGWMnyQPAh3k2jhWLDw}# + (car #{b _hoQGWMnyQPAh3k2jhWLDv}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'lexical) (values - #{type _85hotwsCta0JfYIjI4Nnt}# - (cdr #{b _85hotwsCta0JfYIjI4Nns}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'global) + #{type _hoQGWMnyQPAh3k2jhWLDw}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'global) (values - #{type _85hotwsCta0JfYIjI4Nnt}# - #{n _85hotwsCta0JfYIjI4Nnr}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4Nnt}# 'macro) - (if #{for-car? _85hotwsCta0JfYIjI4Nnq}# + #{type _hoQGWMnyQPAh3k2jhWLDw}# + #{n _hoQGWMnyQPAh3k2jhWLDu}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'macro) + (if #{for-car? _hoQGWMnyQPAh3k2jhWLDt}# (values - #{type _85hotwsCta0JfYIjI4Nnt}# - (cdr #{b _85hotwsCta0JfYIjI4Nns}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - (#{expand-macro _85hotwsCta0JfYIjI4J4O}# - (cdr #{b _85hotwsCta0JfYIjI4Nns}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{r _85hotwsCta0JfYIjI4Nnl}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - #{r _85hotwsCta0JfYIjI4Nnl}# + #{type _hoQGWMnyQPAh3k2jhWLDw}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + #{r _hoQGWMnyQPAh3k2jhWLDo}# '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# #f)) (values - #{type _85hotwsCta0JfYIjI4Nnt}# - (cdr #{b _85hotwsCta0JfYIjI4Nns}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))))))) - (if (pair? #{e _85hotwsCta0JfYIjI4Nnk}#) - (let ((#{first _85hotwsCta0JfYIjI4NoO}# - (car #{e _85hotwsCta0JfYIjI4Nnk}#))) + #{type _hoQGWMnyQPAh3k2jhWLDw}# + (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (let ((#{first _hoQGWMnyQPAh3k2jhWLER}# + (car #{e _hoQGWMnyQPAh3k2jhWLDn}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{first _85hotwsCta0JfYIjI4NoO}# - #{r _85hotwsCta0JfYIjI4Nnl}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{first _hoQGWMnyQPAh3k2jhWLER}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# #t)) - (lambda (#{ftype _85hotwsCta0JfYIjI4NoQ}# - #{fval _85hotwsCta0JfYIjI4NoR}# - #{fe _85hotwsCta0JfYIjI4NoS}# - #{fw _85hotwsCta0JfYIjI4NoT}# - #{fs _85hotwsCta0JfYIjI4NoU}# - #{fmod _85hotwsCta0JfYIjI4NoV}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'lexical) + (lambda (#{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{fe _hoQGWMnyQPAh3k2jhWLEV}# + #{fw _hoQGWMnyQPAh3k2jhWLEW}# + #{fs _hoQGWMnyQPAh3k2jhWLEX}# + #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'lexical) (values 'lexical-call - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'global) + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'global) (values 'global-call (vector 'syntax-object - #{fval _85hotwsCta0JfYIjI4NoR}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{fmod _85hotwsCta0JfYIjI4NoV}#) - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'macro) - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - (#{expand-macro _85hotwsCta0JfYIjI4J4O}# - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{r _85hotwsCta0JfYIjI4Nnl}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - #{r _85hotwsCta0JfYIjI4Nnl}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'macro) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + #{r _hoQGWMnyQPAh3k2jhWLDo}# '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nnp}# - #{for-car? _85hotwsCta0JfYIjI4Nnq}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}# + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'module-ref) (call-with-values (lambda () - (#{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{r _85hotwsCta0JfYIjI4Nnl}# - #{w _85hotwsCta0JfYIjI4Nnm}#)) - (lambda (#{e _85hotwsCta0JfYIjI4Noq}# - #{r _85hotwsCta0JfYIjI4Nor}# - #{w _85hotwsCta0JfYIjI4Nos}# - #{s _85hotwsCta0JfYIjI4Not}# - #{mod _85hotwsCta0JfYIjI4Nou}#) - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4Noq}# - #{r _85hotwsCta0JfYIjI4Nor}# - #{w _85hotwsCta0JfYIjI4Nos}# - #{s _85hotwsCta0JfYIjI4Not}# - #{rib _85hotwsCta0JfYIjI4Nno}# - #{mod _85hotwsCta0JfYIjI4Nou}# - #{for-car? _85hotwsCta0JfYIjI4Nnq}#))) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# 'core) + (#{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{w _hoQGWMnyQPAh3k2jhWLDp}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWLEt}# + #{r _hoQGWMnyQPAh3k2jhWLEu}# + #{w _hoQGWMnyQPAh3k2jhWLEv}# + #{s _hoQGWMnyQPAh3k2jhWLEw}# + #{mod _hoQGWMnyQPAh3k2jhWLEx}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLEt}# + #{r _hoQGWMnyQPAh3k2jhWLEu}# + #{w _hoQGWMnyQPAh3k2jhWLEv}# + #{s _hoQGWMnyQPAh3k2jhWLEw}# + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + #{mod _hoQGWMnyQPAh3k2jhWLEx}# + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#))) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'core) (values 'core-form - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'local-syntax) (values 'local-syntax-form - #{fval _85hotwsCta0JfYIjI4NoR}# - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{fval _hoQGWMnyQPAh3k2jhWLEU}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'begin) (values 'begin-form #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'eval-when) (values 'eval-when-form #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'define) - (let ((#{tmp _85hotwsCta0JfYIjI4No@}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFC}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4No@}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFC}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4NpD}# - #{val _85hotwsCta0JfYIjI4NpE}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLFG}# + #{val _hoQGWMnyQPAh3k2jhWLFH}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4NpD}#) + #{name _hoQGWMnyQPAh3k2jhWLFG}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4NpD}#) + #{name _hoQGWMnyQPAh3k2jhWLFG}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4NpD}#) + #{name _hoQGWMnyQPAh3k2jhWLFG}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4NpD}# + #{name _hoQGWMnyQPAh3k2jhWLFG}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4NpD}# + #{name _hoQGWMnyQPAh3k2jhWLFG}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4No@}#) + #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Npf}# - #{val _85hotwsCta0JfYIjI4Npg}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLFi}# + #{val _hoQGWMnyQPAh3k2jhWLFj}#) (values 'define-form - #{name _85hotwsCta0JfYIjI4Npf}# - #{val _85hotwsCta0JfYIjI4Npg}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4No@}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Nph}# + #{name _hoQGWMnyQPAh3k2jhWLFi}# + #{val _hoQGWMnyQPAh3k2jhWLFj}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFk}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ (any . any) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Nph}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFk}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Npl}# - #{args _85hotwsCta0JfYIjI4Npm}# - #{e1 _85hotwsCta0JfYIjI4Npn}# - #{e2 _85hotwsCta0JfYIjI4Npo}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLFo}# + #{args _hoQGWMnyQPAh3k2jhWLFp}# + #{e1 _hoQGWMnyQPAh3k2jhWLFq}# + #{e2 _hoQGWMnyQPAh3k2jhWLFr}#) (if (if (symbol? - #{name _85hotwsCta0JfYIjI4Npl}#) + #{name _hoQGWMnyQPAh3k2jhWLFo}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4Npl}#) + #{name _hoQGWMnyQPAh3k2jhWLFo}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4Npl}#) + #{name _hoQGWMnyQPAh3k2jhWLFo}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4Npl}# + #{name _hoQGWMnyQPAh3k2jhWLFo}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4Npl}# + #{name _hoQGWMnyQPAh3k2jhWLFo}# 1)) #f)) - (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# + (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# (letrec* - ((#{lvl _85hotwsCta0JfYIjI4Nr9}# - (lambda (#{vars _85hotwsCta0JfYIjI4Nr@}# - #{ls _85hotwsCta0JfYIjI4NsA}# - #{w _85hotwsCta0JfYIjI4NsB}#) - (if (pair? #{vars _85hotwsCta0JfYIjI4Nr@}#) - (#{lvl _85hotwsCta0JfYIjI4Nr9}# - (cdr #{vars _85hotwsCta0JfYIjI4Nr@}#) - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# - (car #{vars _85hotwsCta0JfYIjI4Nr@}#) - #{w _85hotwsCta0JfYIjI4NsB}# + ((#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + (lambda (#{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{ls _hoQGWMnyQPAh3k2jhWLID}# + #{w _hoQGWMnyQPAh3k2jhWLIE}#) + (if (pair? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + (cdr #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{w _hoQGWMnyQPAh3k2jhWLIE}# #f) - #{ls _85hotwsCta0JfYIjI4NsA}#) - #{w _85hotwsCta0JfYIjI4NsB}#) + #{ls _hoQGWMnyQPAh3k2jhWLID}#) + #{w _hoQGWMnyQPAh3k2jhWLIE}#) (if (if (symbol? - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) #t (if (if (vector? - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) (if (= (vector-length - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) 4) (eq? (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 1)) #f)) - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{vars _85hotwsCta0JfYIjI4Nr@}# - #{w _85hotwsCta0JfYIjI4NsB}# + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{w _hoQGWMnyQPAh3k2jhWLIE}# #f) - #{ls _85hotwsCta0JfYIjI4NsA}#) - (if (null? #{vars _85hotwsCta0JfYIjI4Nr@}#) - #{ls _85hotwsCta0JfYIjI4NsA}# + #{ls _hoQGWMnyQPAh3k2jhWLID}#) + (if (null? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{ls _hoQGWMnyQPAh3k2jhWLID}# (if (if (vector? - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) (if (= (vector-length - #{vars _85hotwsCta0JfYIjI4Nr@}#) + #{vars _hoQGWMnyQPAh3k2jhWLIC}#) 4) (eq? (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 0) 'syntax-object) #f) #f) - (#{lvl _85hotwsCta0JfYIjI4Nr9}# + (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 1) - #{ls _85hotwsCta0JfYIjI4NsA}# - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4NsB}# + #{ls _hoQGWMnyQPAh3k2jhWLID}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWLIE}# (vector-ref - #{vars _85hotwsCta0JfYIjI4Nr@}# + #{vars _hoQGWMnyQPAh3k2jhWLIC}# 2))) - (cons #{vars _85hotwsCta0JfYIjI4Nr@}# - #{ls _85hotwsCta0JfYIjI4NsA}#)))))))) - (#{lvl _85hotwsCta0JfYIjI4Nr9}# - #{args _85hotwsCta0JfYIjI4Npm}# + (cons #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{ls _hoQGWMnyQPAh3k2jhWLID}#)))))))) + (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + #{args _hoQGWMnyQPAh3k2jhWLFp}# '() '(())))) #f)) - #{tmp _85hotwsCta0JfYIjI4Nph}#) + #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Nst}# - #{args _85hotwsCta0JfYIjI4Nsu}# - #{e1 _85hotwsCta0JfYIjI4Nsv}# - #{e2 _85hotwsCta0JfYIjI4Nsw}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLIw}# + #{args _hoQGWMnyQPAh3k2jhWLIx}# + #{e1 _hoQGWMnyQPAh3k2jhWLIy}# + #{e2 _hoQGWMnyQPAh3k2jhWLIz}#) (values 'define-form - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{name _85hotwsCta0JfYIjI4Nst}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) - (let ((#{e _85hotwsCta0JfYIjI4Ns2}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{name _hoQGWMnyQPAh3k2jhWLIw}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLI5}# (cons '#(syntax-object lambda ((top) @@ -2487,60 +2487,60 @@ "1oe"))) (hygiene guile)) - (#{wrap _85hotwsCta0JfYIjI4J4E}# - (cons #{args _85hotwsCta0JfYIjI4Nsu}# - (cons #{e1 _85hotwsCta0JfYIjI4Nsv}# - #{e2 _85hotwsCta0JfYIjI4Nsw}#)) - #{w _85hotwsCta0JfYIjI4Nnm}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)))) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (cons #{args _hoQGWMnyQPAh3k2jhWLIx}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWLIy}# + #{e2 _hoQGWMnyQPAh3k2jhWLIz}#)) + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Ns2}#) - #{s _85hotwsCta0JfYIjI4Nnn}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLI5}#) + #{s _hoQGWMnyQPAh3k2jhWLDq}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Ns2}# - #{s _85hotwsCta0JfYIjI4Nnn}#)) - #{e _85hotwsCta0JfYIjI4Ns2}#)) + #{e _hoQGWMnyQPAh3k2jhWLI5}# + #{s _hoQGWMnyQPAh3k2jhWLDq}#)) + #{e _hoQGWMnyQPAh3k2jhWLI5}#)) '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Nph}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ns9}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJA}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ns9}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJA}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4NtB}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLJE}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4NtB}#) + #{name _hoQGWMnyQPAh3k2jhWLJE}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4NtB}#) + #{name _hoQGWMnyQPAh3k2jhWLJE}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4NtB}#) + #{name _hoQGWMnyQPAh3k2jhWLJE}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4NtB}# + #{name _hoQGWMnyQPAh3k2jhWLJE}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4NtB}# + #{name _hoQGWMnyQPAh3k2jhWLJE}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ns9}#) + #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Ntc}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLJf}#) (values 'define-form - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{name _85hotwsCta0JfYIjI4Ntc}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{name _hoQGWMnyQPAh3k2jhWLJf}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) '(#(syntax-object if ((top) @@ -4012,358 +4012,358 @@ "1oe"))) (hygiene guile))) '(()) - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Ns9}#) + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4Nnk}#))))))) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}#))))))) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'define-syntax) - (let ((#{tmp _85hotwsCta0JfYIjI4Ntv}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJy}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ntv}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJy}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Ntz}# - #{val _85hotwsCta0JfYIjI4Nt0}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLJ2}# + #{val _hoQGWMnyQPAh3k2jhWLJ3}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4Ntz}#) + #{name _hoQGWMnyQPAh3k2jhWLJ2}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4Ntz}#) + #{name _hoQGWMnyQPAh3k2jhWLJ2}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4Ntz}#) + #{name _hoQGWMnyQPAh3k2jhWLJ2}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4Ntz}# + #{name _hoQGWMnyQPAh3k2jhWLJ2}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4Ntz}# + #{name _hoQGWMnyQPAh3k2jhWLJ2}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ntv}#) + #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4NuP}# - #{val _85hotwsCta0JfYIjI4NuQ}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLKS}# + #{val _hoQGWMnyQPAh3k2jhWLKT}#) (values 'define-syntax-form - #{name _85hotwsCta0JfYIjI4NuP}# - #{val _85hotwsCta0JfYIjI4NuQ}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Ntv}#) + #{name _hoQGWMnyQPAh3k2jhWLKS}# + #{val _hoQGWMnyQPAh3k2jhWLKT}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4Nnk}#))) - (if (eqv? #{ftype _85hotwsCta0JfYIjI4NoQ}# + #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'define-syntax-parameter) - (let ((#{tmp _85hotwsCta0JfYIjI4Nub}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLKe}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Nnk}# + #{e _hoQGWMnyQPAh3k2jhWLDn}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Nub}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWLKe}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Nuf}# - #{val _85hotwsCta0JfYIjI4Nug}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLKi}# + #{val _hoQGWMnyQPAh3k2jhWLKj}#) (if (symbol? - #{name _85hotwsCta0JfYIjI4Nuf}#) + #{name _hoQGWMnyQPAh3k2jhWLKi}#) #t (if (if (vector? - #{name _85hotwsCta0JfYIjI4Nuf}#) + #{name _hoQGWMnyQPAh3k2jhWLKi}#) (if (= (vector-length - #{name _85hotwsCta0JfYIjI4Nuf}#) + #{name _hoQGWMnyQPAh3k2jhWLKi}#) 4) (eq? (vector-ref - #{name _85hotwsCta0JfYIjI4Nuf}# + #{name _hoQGWMnyQPAh3k2jhWLKi}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _85hotwsCta0JfYIjI4Nuf}# + #{name _hoQGWMnyQPAh3k2jhWLKi}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Nub}#) + #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4Nu7}# - #{val _85hotwsCta0JfYIjI4Nu8}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWLK$}# + #{val _hoQGWMnyQPAh3k2jhWLK@}#) (values 'define-syntax-parameter-form - #{name _85hotwsCta0JfYIjI4Nu7}# - #{val _85hotwsCta0JfYIjI4Nu8}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{tmp _85hotwsCta0JfYIjI4Nub}#) + #{name _hoQGWMnyQPAh3k2jhWLK$}# + #{val _hoQGWMnyQPAh3k2jhWLK@}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4Nnk}#))) + #{e _hoQGWMnyQPAh3k2jhWLDn}#))) (values 'call #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))))))))))))))) - (if (if (vector? #{e _85hotwsCta0JfYIjI4Nnk}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4Nnk}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))))))))))) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWLDn}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 0) 'syntax-object) #f) #f) - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 1) - #{r _85hotwsCta0JfYIjI4Nnl}# - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4Nnm}# - (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 2)) - (let ((#{t _85hotwsCta0JfYIjI4NvX}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4Nnk}#))) - (if #{t _85hotwsCta0JfYIjI4NvX}# - #{t _85hotwsCta0JfYIjI4NvX}# - #{s _85hotwsCta0JfYIjI4Nnn}#)) - #{rib _85hotwsCta0JfYIjI4Nno}# - (let ((#{t _85hotwsCta0JfYIjI4NzC}# - (vector-ref #{e _85hotwsCta0JfYIjI4Nnk}# 3))) - (if #{t _85hotwsCta0JfYIjI4NzC}# - #{t _85hotwsCta0JfYIjI4NzC}# - #{mod _85hotwsCta0JfYIjI4Nnp}#)) - #{for-car? _85hotwsCta0JfYIjI4Nnq}#) - (if (self-evaluating? #{e _85hotwsCta0JfYIjI4Nnk}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 1) + #{r _hoQGWMnyQPAh3k2jhWLDo}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 2)) + (let ((#{t _hoQGWMnyQPAh3k2jhWLLa}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + (if #{t _hoQGWMnyQPAh3k2jhWLLa}# + #{t _hoQGWMnyQPAh3k2jhWLLa}# + #{s _hoQGWMnyQPAh3k2jhWLDq}#)) + #{rib _hoQGWMnyQPAh3k2jhWLDr}# + (let ((#{t _hoQGWMnyQPAh3k2jhWLPF}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 3))) + (if #{t _hoQGWMnyQPAh3k2jhWLPF}# + #{t _hoQGWMnyQPAh3k2jhWLPF}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) + #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) + (if (self-evaluating? #{e _hoQGWMnyQPAh3k2jhWLDn}#) (values 'constant #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#) (values 'other #f - #{e _85hotwsCta0JfYIjI4Nnk}# - #{w _85hotwsCta0JfYIjI4Nnm}# - #{s _85hotwsCta0JfYIjI4Nnn}# - #{mod _85hotwsCta0JfYIjI4Nnp}#))))))) - (#{expand _85hotwsCta0JfYIjI4J4L}# - (lambda (#{e _85hotwsCta0JfYIjI4NzL}# - #{r _85hotwsCta0JfYIjI4NzM}# - #{w _85hotwsCta0JfYIjI4NzN}# - #{mod _85hotwsCta0JfYIjI4NzO}#) + #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{w _hoQGWMnyQPAh3k2jhWLDp}# + #{s _hoQGWMnyQPAh3k2jhWLDq}# + #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWLPO}# + #{r _hoQGWMnyQPAh3k2jhWLPP}# + #{w _hoQGWMnyQPAh3k2jhWLPQ}# + #{mod _hoQGWMnyQPAh3k2jhWLPR}#) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4NzL}# - #{r _85hotwsCta0JfYIjI4NzM}# - #{w _85hotwsCta0JfYIjI4NzN}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4NzL}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLPO}# + #{r _hoQGWMnyQPAh3k2jhWLPP}# + #{w _hoQGWMnyQPAh3k2jhWLPQ}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWLPO}#) #f - #{mod _85hotwsCta0JfYIjI4NzO}# + #{mod _hoQGWMnyQPAh3k2jhWLPR}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4N1p}# - #{value _85hotwsCta0JfYIjI4N1q}# - #{e _85hotwsCta0JfYIjI4N1r}# - #{w _85hotwsCta0JfYIjI4N1s}# - #{s _85hotwsCta0JfYIjI4N1t}# - #{mod _85hotwsCta0JfYIjI4N1u}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4N1p}# - #{value _85hotwsCta0JfYIjI4N1q}# - #{e _85hotwsCta0JfYIjI4N1r}# - #{r _85hotwsCta0JfYIjI4NzM}# - #{w _85hotwsCta0JfYIjI4N1s}# - #{s _85hotwsCta0JfYIjI4N1t}# - #{mod _85hotwsCta0JfYIjI4N1u}#))))) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - (lambda (#{type _85hotwsCta0JfYIjI4N1x}# - #{value _85hotwsCta0JfYIjI4N1y}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'lexical) + (lambda (#{type _hoQGWMnyQPAh3k2jhWLRs}# + #{value _hoQGWMnyQPAh3k2jhWLRt}# + #{e _hoQGWMnyQPAh3k2jhWLRu}# + #{w _hoQGWMnyQPAh3k2jhWLRv}# + #{s _hoQGWMnyQPAh3k2jhWLRw}# + #{mod _hoQGWMnyQPAh3k2jhWLRx}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWLRs}# + #{value _hoQGWMnyQPAh3k2jhWLRt}# + #{e _hoQGWMnyQPAh3k2jhWLRu}# + #{r _hoQGWMnyQPAh3k2jhWLPP}# + #{w _hoQGWMnyQPAh3k2jhWLRv}# + #{s _hoQGWMnyQPAh3k2jhWLRw}# + #{mod _hoQGWMnyQPAh3k2jhWLRx}#))))) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWLR0}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s _85hotwsCta0JfYIjI4N12}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{value _85hotwsCta0JfYIjI4N1y}#) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core) + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core) #t - (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'core-form)) - (#{value _85hotwsCta0JfYIjI4N1y}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core-form)) + (#{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'module-ref) (call-with-values (lambda () - (#{value _85hotwsCta0JfYIjI4N1y}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}#)) - (lambda (#{e _85hotwsCta0JfYIjI4N2R}# - #{r _85hotwsCta0JfYIjI4N2S}# - #{w _85hotwsCta0JfYIjI4N2T}# - #{s _85hotwsCta0JfYIjI4N2U}# - #{mod _85hotwsCta0JfYIjI4N2V}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4N2R}# - #{r _85hotwsCta0JfYIjI4N2S}# - #{w _85hotwsCta0JfYIjI4N2T}# - #{mod _85hotwsCta0JfYIjI4N2V}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (#{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWLSU}# + #{r _hoQGWMnyQPAh3k2jhWLSV}# + #{w _hoQGWMnyQPAh3k2jhWLSW}# + #{s _hoQGWMnyQPAh3k2jhWLSX}# + #{mod _hoQGWMnyQPAh3k2jhWLSY}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWLSU}# + #{r _hoQGWMnyQPAh3k2jhWLSV}# + #{w _hoQGWMnyQPAh3k2jhWLSW}# + #{mod _hoQGWMnyQPAh3k2jhWLSY}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical-call) - (#{expand-application _85hotwsCta0JfYIjI4J4N}# - (let ((#{id _85hotwsCta0JfYIjI4N3g}# - (car #{e _85hotwsCta0JfYIjI4N1z}#))) - (#{build-lexical-reference _85hotwsCta0JfYIjI4J3J}# + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (let ((#{id _hoQGWMnyQPAh3k2jhWLTj}# + (car #{e _hoQGWMnyQPAh3k2jhWLR2}#))) + (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# 'fun - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{id _85hotwsCta0JfYIjI4N3g}#) - (if (if (vector? #{id _85hotwsCta0JfYIjI4N3g}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{id _hoQGWMnyQPAh3k2jhWLTj}#) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWLTj}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4N3g}#) + #{id _hoQGWMnyQPAh3k2jhWLTj}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4N3g}# + #{id _hoQGWMnyQPAh3k2jhWLTj}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id _85hotwsCta0JfYIjI4N3g}#) - #{id _85hotwsCta0JfYIjI4N3g}#) - #{value _85hotwsCta0JfYIjI4N1y}#)) - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (syntax->datum #{id _hoQGWMnyQPAh3k2jhWLTj}#) + #{id _hoQGWMnyQPAh3k2jhWLTj}#) + #{value _hoQGWMnyQPAh3k2jhWLR1}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global-call) - (#{expand-application _85hotwsCta0JfYIjI4J4N}# - (#{build-global-reference _85hotwsCta0JfYIjI4J3M}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - (car #{e _85hotwsCta0JfYIjI4N1z}#)) - (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#) + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)) + (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) (if (= (vector-length - #{value _85hotwsCta0JfYIjI4N1y}#) + #{value _hoQGWMnyQPAh3k2jhWLR1}#) 4) (eq? (vector-ref - #{value _85hotwsCta0JfYIjI4N1y}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 1) - #{value _85hotwsCta0JfYIjI4N1y}#) - (if (if (vector? #{value _85hotwsCta0JfYIjI4N1y}#) + (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 1) + #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) (if (= (vector-length - #{value _85hotwsCta0JfYIjI4N1y}#) + #{value _hoQGWMnyQPAh3k2jhWLR1}#) 4) (eq? (vector-ref - #{value _85hotwsCta0JfYIjI4N1y}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _85hotwsCta0JfYIjI4N1y}# 3) - #{mod _85hotwsCta0JfYIjI4N13}#)) - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'constant) - (let ((#{exp _85hotwsCta0JfYIjI4N8x}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 3) + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'constant) + (let ((#{exp _hoQGWMnyQPAh3k2jhWLY0}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _85hotwsCta0JfYIjI4N12}# - #{exp _85hotwsCta0JfYIjI4N8x}#)) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'global) - (#{analyze-variable _85hotwsCta0JfYIjI4J3L}# - #{mod _85hotwsCta0JfYIjI4N13}# - #{value _85hotwsCta0JfYIjI4N1y}# - (lambda (#{mod _85hotwsCta0JfYIjI4N9V}# - #{var _85hotwsCta0JfYIjI4N9W}# - #{public? _85hotwsCta0JfYIjI4N9X}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{exp _hoQGWMnyQPAh3k2jhWLY0}#)) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global) + (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWLZY}# + #{var _hoQGWMnyQPAh3k2jhWLZZ}# + #{public? _hoQGWMnyQPAh3k2jhWLZa}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N9V}# - #{var _85hotwsCta0JfYIjI4N9W}# - #{public? _85hotwsCta0JfYIjI4N9X}#)) - (lambda (#{var _85hotwsCta0JfYIjI4N9g}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLZY}# + #{var _hoQGWMnyQPAh3k2jhWLZZ}# + #{public? _hoQGWMnyQPAh3k2jhWLZa}#)) + (lambda (#{var _hoQGWMnyQPAh3k2jhWLZj}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s _85hotwsCta0JfYIjI4N12}# - #{var _85hotwsCta0JfYIjI4N9g}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# 'call) - (#{expand-application _85hotwsCta0JfYIjI4J4N}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - (car #{e _85hotwsCta0JfYIjI4N1z}#) - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#) - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{var _hoQGWMnyQPAh3k2jhWLZj}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'call) + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (car #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'begin-form) - (let ((#{tmp _85hotwsCta0JfYIjI4N$r}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLau}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4N1z}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# '(_ any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4N$r}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLau}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4N$v}# - #{e2 _85hotwsCta0JfYIjI4N$w}#) - (#{expand-sequence _85hotwsCta0JfYIjI4J4G}# - (cons #{e1 _85hotwsCta0JfYIjI4N$v}# - #{e2 _85hotwsCta0JfYIjI4N$w}#) - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#)) - #{tmp _85hotwsCta0JfYIjI4N$r}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OAH}# + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLay}# + #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) + (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWLay}# + #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLau}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLcK}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4N1z}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# '(_)))) - (if #{tmp _85hotwsCta0JfYIjI4OAH}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLcK}# (@apply (lambda () (if (include-deprecated-features) @@ -4376,907 +4376,907 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)))) - #{tmp _85hotwsCta0JfYIjI4OAH}#) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWLcK}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4N1z}#))))) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}#))))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'local-syntax-form) - (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}# - #{value _85hotwsCta0JfYIjI4N1y}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}# - #{expand-sequence _85hotwsCta0JfYIjI4J4G}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}# + #{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'eval-when-form) - (let ((#{tmp _85hotwsCta0JfYIjI4OB2}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLd5}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4N1z}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# '(_ each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4OB2}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLd5}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4OB6}# - #{e1 _85hotwsCta0JfYIjI4OB7}# - #{e2 _85hotwsCta0JfYIjI4OB8}#) - (let ((#{when-list _85hotwsCta0JfYIjI4OB9}# - (#{parse-when-list _85hotwsCta0JfYIjI4J4J}# - #{e _85hotwsCta0JfYIjI4N1z}# - #{x _85hotwsCta0JfYIjI4OB6}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWLd9}# + #{e1 _hoQGWMnyQPAh3k2jhWLd$}# + #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) + (let ((#{when-list _hoQGWMnyQPAh3k2jhWLeA}# + (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{x _hoQGWMnyQPAh3k2jhWLd9}#))) (if (memq 'eval - #{when-list _85hotwsCta0JfYIjI4OB9}#) - (#{expand-sequence _85hotwsCta0JfYIjI4J4G}# - (cons #{e1 _85hotwsCta0JfYIjI4OB7}# - #{e2 _85hotwsCta0JfYIjI4OB8}#) - #{r _85hotwsCta0JfYIjI4N10}# - #{w _85hotwsCta0JfYIjI4N11}# - #{s _85hotwsCta0JfYIjI4N12}# - #{mod _85hotwsCta0JfYIjI4N13}#) + #{when-list _hoQGWMnyQPAh3k2jhWLeA}#) + (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWLd$}# + #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) + #{r _hoQGWMnyQPAh3k2jhWLR3}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{s _hoQGWMnyQPAh3k2jhWLR5}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp _85hotwsCta0JfYIjI4OB2}#) + #{tmp _hoQGWMnyQPAh3k2jhWLd5}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4N1z}#))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}#))) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'define-form) #t - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'define-syntax-form) #t - (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e _85hotwsCta0JfYIjI4N1z}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4N1y}# - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)) - (if (eqv? #{type _85hotwsCta0JfYIjI4N1x}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) (syntax-violation #f "unexpected syntax" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4N1z}#) - #{s _85hotwsCta0JfYIjI4N12}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{s _hoQGWMnyQPAh3k2jhWLR5}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4N1z}# - #{s _85hotwsCta0JfYIjI4N12}#)) - #{e _85hotwsCta0JfYIjI4N1z}#) - #{w _85hotwsCta0JfYIjI4N11}# - #{mod _85hotwsCta0JfYIjI4N13}#)))))))))))))))))) - (#{expand-application _85hotwsCta0JfYIjI4J4N}# - (lambda (#{x _85hotwsCta0JfYIjI4OFt}# - #{e _85hotwsCta0JfYIjI4OFu}# - #{r _85hotwsCta0JfYIjI4OFv}# - #{w _85hotwsCta0JfYIjI4OFw}# - #{s _85hotwsCta0JfYIjI4OFx}# - #{mod _85hotwsCta0JfYIjI4OFy}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OF0}# + #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{s _hoQGWMnyQPAh3k2jhWLR5}#)) + #{e _hoQGWMnyQPAh3k2jhWLR2}#) + #{w _hoQGWMnyQPAh3k2jhWLR4}# + #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))))))))))))))))) + (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWLhw}# + #{e _hoQGWMnyQPAh3k2jhWLhx}# + #{r _hoQGWMnyQPAh3k2jhWLhy}# + #{w _hoQGWMnyQPAh3k2jhWLhz}# + #{s _hoQGWMnyQPAh3k2jhWLh0}# + #{mod _hoQGWMnyQPAh3k2jhWLh1}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLh3}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4OFu}# + #{e _hoQGWMnyQPAh3k2jhWLhx}# '(any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4OF0}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLh3}# (@apply - (lambda (#{e0 _85hotwsCta0JfYIjI4OF4}# - #{e1 _85hotwsCta0JfYIjI4OF5}#) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - #{s _85hotwsCta0JfYIjI4OFx}# - #{x _85hotwsCta0JfYIjI4OFt}# - (map (lambda (#{e _85hotwsCta0JfYIjI4OHJ}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{e _85hotwsCta0JfYIjI4OHJ}# - #{r _85hotwsCta0JfYIjI4OFv}# - #{w _85hotwsCta0JfYIjI4OFw}# - #{mod _85hotwsCta0JfYIjI4OFy}#)) - #{e1 _85hotwsCta0JfYIjI4OF5}#))) - #{tmp _85hotwsCta0JfYIjI4OF0}#) + (lambda (#{e0 _hoQGWMnyQPAh3k2jhWLh7}# + #{e1 _hoQGWMnyQPAh3k2jhWLh8}#) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + #{s _hoQGWMnyQPAh3k2jhWLh0}# + #{x _hoQGWMnyQPAh3k2jhWLhw}# + (map (lambda (#{e _hoQGWMnyQPAh3k2jhWLjM}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{e _hoQGWMnyQPAh3k2jhWLjM}# + #{r _hoQGWMnyQPAh3k2jhWLhy}# + #{w _hoQGWMnyQPAh3k2jhWLhz}# + #{mod _hoQGWMnyQPAh3k2jhWLh1}#)) + #{e1 _hoQGWMnyQPAh3k2jhWLh8}#))) + #{tmp _hoQGWMnyQPAh3k2jhWLh3}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4OFu}#))))) - (#{expand-macro _85hotwsCta0JfYIjI4J4O}# - (lambda (#{p _85hotwsCta0JfYIjI4OIV}# - #{e _85hotwsCta0JfYIjI4OIW}# - #{r _85hotwsCta0JfYIjI4OIX}# - #{w _85hotwsCta0JfYIjI4OIY}# - #{s _85hotwsCta0JfYIjI4OIZ}# - #{rib _85hotwsCta0JfYIjI4OIa}# - #{mod _85hotwsCta0JfYIjI4OIb}#) + #{e _hoQGWMnyQPAh3k2jhWLhx}#))))) + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWLkY}# + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{r _hoQGWMnyQPAh3k2jhWLka}# + #{w _hoQGWMnyQPAh3k2jhWLkb}# + #{s _hoQGWMnyQPAh3k2jhWLkc}# + #{rib _hoQGWMnyQPAh3k2jhWLkd}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#) (letrec* - ((#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}# - (lambda (#{x _85hotwsCta0JfYIjI4OI9}# - #{m _85hotwsCta0JfYIjI4OI$}#) - (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#) - (let ((#{e _85hotwsCta0JfYIjI4OJC}# - (cons (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}# - (car #{x _85hotwsCta0JfYIjI4OI9}#) - #{m _85hotwsCta0JfYIjI4OI$}#) - (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}# - (cdr #{x _85hotwsCta0JfYIjI4OI9}#) - #{m _85hotwsCta0JfYIjI4OI$}#)))) + ((#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWLlA}# + #{m _hoQGWMnyQPAh3k2jhWLlB}#) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLlF}# + (cons (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (car #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{m _hoQGWMnyQPAh3k2jhWLlB}#) + (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (cdr #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{m _hoQGWMnyQPAh3k2jhWLlB}#)))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OJC}#) - #{s _85hotwsCta0JfYIjI4OIZ}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlF}#) + #{s _hoQGWMnyQPAh3k2jhWLkc}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OJC}# - #{s _85hotwsCta0JfYIjI4OIZ}#)) - #{e _85hotwsCta0JfYIjI4OJC}#)) - (if (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4OI9}#) + #{e _hoQGWMnyQPAh3k2jhWLlF}# + #{s _hoQGWMnyQPAh3k2jhWLkc}#)) + #{e _hoQGWMnyQPAh3k2jhWLlF}#)) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 0) 'syntax-object) #f) #f) - (let ((#{w _85hotwsCta0JfYIjI4OJS}# - (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 2))) - (let ((#{ms _85hotwsCta0JfYIjI4OJT}# - (car #{w _85hotwsCta0JfYIjI4OJS}#)) - (#{s _85hotwsCta0JfYIjI4OJU}# - (cdr #{w _85hotwsCta0JfYIjI4OJS}#))) - (if (if (pair? #{ms _85hotwsCta0JfYIjI4OJT}#) - (eq? (car #{ms _85hotwsCta0JfYIjI4OJT}#) #f) + (let ((#{w _hoQGWMnyQPAh3k2jhWLlV}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 2))) + (let ((#{ms _hoQGWMnyQPAh3k2jhWLlW}# + (car #{w _hoQGWMnyQPAh3k2jhWLlV}#)) + (#{s _hoQGWMnyQPAh3k2jhWLlX}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLlV}#))) + (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWLlW}#) + (eq? (car #{ms _hoQGWMnyQPAh3k2jhWLlW}#) #f) #f) - (let ((#{expression _85hotwsCta0JfYIjI4OJc}# - (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 1)) - (#{wrap _85hotwsCta0JfYIjI4OJd}# - (cons (cdr #{ms _85hotwsCta0JfYIjI4OJT}#) - (if #{rib _85hotwsCta0JfYIjI4OIa}# - (cons #{rib _85hotwsCta0JfYIjI4OIa}# - (cdr #{s _85hotwsCta0JfYIjI4OJU}#)) - (cdr #{s _85hotwsCta0JfYIjI4OJU}#)))) - (#{module _85hotwsCta0JfYIjI4OJe}# - (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3))) + (let ((#{expression _hoQGWMnyQPAh3k2jhWLlf}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 1)) + (#{wrap _hoQGWMnyQPAh3k2jhWLlg}# + (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWLlW}#) + (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# + (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# + (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)) + (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) + (#{module _hoQGWMnyQPAh3k2jhWLlh}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4OJc}# - #{wrap _85hotwsCta0JfYIjI4OJd}# - #{module _85hotwsCta0JfYIjI4OJe}#)) - (let ((#{expression _85hotwsCta0JfYIjI4OJo}# - (let ((#{e _85hotwsCta0JfYIjI4OJt}# + #{expression _hoQGWMnyQPAh3k2jhWLlf}# + #{wrap _hoQGWMnyQPAh3k2jhWLlg}# + #{module _hoQGWMnyQPAh3k2jhWLlh}#)) + (let ((#{expression _hoQGWMnyQPAh3k2jhWLlr}# + (let ((#{e _hoQGWMnyQPAh3k2jhWLlw}# (vector-ref - #{x _85hotwsCta0JfYIjI4OI9}# + #{x _hoQGWMnyQPAh3k2jhWLlA}# 1))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OJt}#) - #{s _85hotwsCta0JfYIjI4OJU}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlw}#) + #{s _hoQGWMnyQPAh3k2jhWLlX}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OJt}# - #{s _85hotwsCta0JfYIjI4OJU}#)) - #{e _85hotwsCta0JfYIjI4OJt}#))) - (#{wrap _85hotwsCta0JfYIjI4OJp}# - (cons (cons #{m _85hotwsCta0JfYIjI4OI$}# - #{ms _85hotwsCta0JfYIjI4OJT}#) - (if #{rib _85hotwsCta0JfYIjI4OIa}# - (cons #{rib _85hotwsCta0JfYIjI4OIa}# + #{e _hoQGWMnyQPAh3k2jhWLlw}# + #{s _hoQGWMnyQPAh3k2jhWLlX}#)) + #{e _hoQGWMnyQPAh3k2jhWLlw}#))) + (#{wrap _hoQGWMnyQPAh3k2jhWLls}# + (cons (cons #{m _hoQGWMnyQPAh3k2jhWLlB}# + #{ms _hoQGWMnyQPAh3k2jhWLlW}#) + (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# + (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# (cons 'shift - #{s _85hotwsCta0JfYIjI4OJU}#)) + #{s _hoQGWMnyQPAh3k2jhWLlX}#)) (cons 'shift - #{s _85hotwsCta0JfYIjI4OJU}#)))) - (#{module _85hotwsCta0JfYIjI4OJq}# - (vector-ref #{x _85hotwsCta0JfYIjI4OI9}# 3))) + #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) + (#{module _hoQGWMnyQPAh3k2jhWLlt}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4OJo}# - #{wrap _85hotwsCta0JfYIjI4OJp}# - #{module _85hotwsCta0JfYIjI4OJq}#))))) - (if (vector? #{x _85hotwsCta0JfYIjI4OI9}#) - (let ((#{n _85hotwsCta0JfYIjI4OJ5}# - (vector-length #{x _85hotwsCta0JfYIjI4OI9}#))) - (let ((#{v _85hotwsCta0JfYIjI4OJ6}# - (let ((#{e _85hotwsCta0JfYIjI4OKC}# + #{expression _hoQGWMnyQPAh3k2jhWLlr}# + #{wrap _hoQGWMnyQPAh3k2jhWLls}# + #{module _hoQGWMnyQPAh3k2jhWLlt}#))))) + (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWLl8}# + (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#))) + (let ((#{v _hoQGWMnyQPAh3k2jhWLl9}# + (let ((#{e _hoQGWMnyQPAh3k2jhWLmF}# (make-vector - #{n _85hotwsCta0JfYIjI4OJ5}#))) + #{n _hoQGWMnyQPAh3k2jhWLl8}#))) (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OKC}#) - #{x _85hotwsCta0JfYIjI4OI9}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLmF}#) + #{x _hoQGWMnyQPAh3k2jhWLlA}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OKC}# - #{x _85hotwsCta0JfYIjI4OI9}#)) - #{e _85hotwsCta0JfYIjI4OKC}#)))) + #{e _hoQGWMnyQPAh3k2jhWLmF}# + #{x _hoQGWMnyQPAh3k2jhWLlA}#)) + #{e _hoQGWMnyQPAh3k2jhWLmF}#)))) (letrec* - ((#{loop _85hotwsCta0JfYIjI4OJ7}# - (lambda (#{i _85hotwsCta0JfYIjI4OKv}#) - (if (= #{i _85hotwsCta0JfYIjI4OKv}# - #{n _85hotwsCta0JfYIjI4OJ5}#) - #{v _85hotwsCta0JfYIjI4OJ6}# + ((#{loop _hoQGWMnyQPAh3k2jhWLl$}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWLmy}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWLmy}# + #{n _hoQGWMnyQPAh3k2jhWLl8}#) + #{v _hoQGWMnyQPAh3k2jhWLl9}# (begin (vector-set! - #{v _85hotwsCta0JfYIjI4OJ6}# - #{i _85hotwsCta0JfYIjI4OKv}# - (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}# + #{v _hoQGWMnyQPAh3k2jhWLl9}# + #{i _hoQGWMnyQPAh3k2jhWLmy}# + (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# (vector-ref - #{x _85hotwsCta0JfYIjI4OI9}# - #{i _85hotwsCta0JfYIjI4OKv}#) - #{m _85hotwsCta0JfYIjI4OI$}#)) - (#{loop _85hotwsCta0JfYIjI4OJ7}# - (#{1+}# #{i _85hotwsCta0JfYIjI4OKv}#))))))) - (#{loop _85hotwsCta0JfYIjI4OJ7}# 0)))) - (if (symbol? #{x _85hotwsCta0JfYIjI4OI9}#) + #{x _hoQGWMnyQPAh3k2jhWLlA}# + #{i _hoQGWMnyQPAh3k2jhWLmy}#) + #{m _hoQGWMnyQPAh3k2jhWLlB}#)) + (#{loop _hoQGWMnyQPAh3k2jhWLl$}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWLmy}#))))))) + (#{loop _hoQGWMnyQPAh3k2jhWLl$}# 0)))) + (if (symbol? #{x _hoQGWMnyQPAh3k2jhWLlA}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s _85hotwsCta0JfYIjI4OK1}# - (cdr #{w _85hotwsCta0JfYIjI4OIY}#))) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (let ((#{s _hoQGWMnyQPAh3k2jhWLm4}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#) - #{s _85hotwsCta0JfYIjI4OK1}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{s _hoQGWMnyQPAh3k2jhWLm4}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OIW}# - #{s _85hotwsCta0JfYIjI4OK1}#)) - #{e _85hotwsCta0JfYIjI4OIW}#) - #{w _85hotwsCta0JfYIjI4OIY}# - #{mod _85hotwsCta0JfYIjI4OIb}#)) - #{x _85hotwsCta0JfYIjI4OI9}#) + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{s _hoQGWMnyQPAh3k2jhWLm4}#)) + #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{w _hoQGWMnyQPAh3k2jhWLkb}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#)) + #{x _hoQGWMnyQPAh3k2jhWLlA}#) (begin - (if (if (pair? #{x _85hotwsCta0JfYIjI4OI9}#) - #{s _85hotwsCta0JfYIjI4OIZ}# + (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{s _hoQGWMnyQPAh3k2jhWLkc}# #f) (set-source-properties! - #{x _85hotwsCta0JfYIjI4OI9}# - #{s _85hotwsCta0JfYIjI4OIZ}#)) - #{x _85hotwsCta0JfYIjI4OI9}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWLlA}# + #{s _hoQGWMnyQPAh3k2jhWLkc}#)) + #{x _hoQGWMnyQPAh3k2jhWLlA}#)))))))) (with-fluids - ((#{transformer-environment _85hotwsCta0JfYIjI4J39}# - (lambda (#{k _85hotwsCta0JfYIjI4OId}#) - (#{k _85hotwsCta0JfYIjI4OId}# - #{e _85hotwsCta0JfYIjI4OIW}# - #{r _85hotwsCta0JfYIjI4OIX}# - #{w _85hotwsCta0JfYIjI4OIY}# - #{s _85hotwsCta0JfYIjI4OIZ}# - #{rib _85hotwsCta0JfYIjI4OIa}# - #{mod _85hotwsCta0JfYIjI4OIb}#)))) - (#{rebuild-macro-output _85hotwsCta0JfYIjI4OIc}# - (#{p _85hotwsCta0JfYIjI4OIV}# - (let ((#{w _85hotwsCta0JfYIjI4OIk}# - (cons (cons #f (car #{w _85hotwsCta0JfYIjI4OIY}#)) + ((#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWLkg}#) + (#{k _hoQGWMnyQPAh3k2jhWLkg}# + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{r _hoQGWMnyQPAh3k2jhWLka}# + #{w _hoQGWMnyQPAh3k2jhWLkb}# + #{s _hoQGWMnyQPAh3k2jhWLkc}# + #{rib _hoQGWMnyQPAh3k2jhWLkd}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#)))) + (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + (#{p _hoQGWMnyQPAh3k2jhWLkY}# + (let ((#{w _hoQGWMnyQPAh3k2jhWLkn}# + (cons (cons #f (car #{w _hoQGWMnyQPAh3k2jhWLkb}#)) (cons 'shift - (cdr #{w _85hotwsCta0JfYIjI4OIY}#))))) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))))) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OIW}#) - #{s _85hotwsCta0JfYIjI4OIZ}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{s _hoQGWMnyQPAh3k2jhWLkc}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OIW}# - #{s _85hotwsCta0JfYIjI4OIZ}#)) - #{e _85hotwsCta0JfYIjI4OIW}#) - #{w _85hotwsCta0JfYIjI4OIk}# - #{mod _85hotwsCta0JfYIjI4OIb}#))) + #{e _hoQGWMnyQPAh3k2jhWLkZ}# + #{s _hoQGWMnyQPAh3k2jhWLkc}#)) + #{e _hoQGWMnyQPAh3k2jhWLkZ}#) + #{w _hoQGWMnyQPAh3k2jhWLkn}# + #{mod _hoQGWMnyQPAh3k2jhWLke}#))) (gensym "m")))))) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (lambda (#{body _85hotwsCta0JfYIjI4OLV}# - #{outer-form _85hotwsCta0JfYIjI4OLW}# - #{r _85hotwsCta0JfYIjI4OLX}# - #{w _85hotwsCta0JfYIjI4OLY}# - #{mod _85hotwsCta0JfYIjI4OLZ}#) - (let ((#{r _85hotwsCta0JfYIjI4OLa}# + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWLnY}# + #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}# + #{r _hoQGWMnyQPAh3k2jhWLna}# + #{w _hoQGWMnyQPAh3k2jhWLnb}# + #{mod _hoQGWMnyQPAh3k2jhWLnc}#) + (let ((#{r _hoQGWMnyQPAh3k2jhWLnd}# (cons '("placeholder" placeholder) - #{r _85hotwsCta0JfYIjI4OLX}#))) - (let ((#{ribcage _85hotwsCta0JfYIjI4OLb}# + #{r _hoQGWMnyQPAh3k2jhWLna}#))) + (let ((#{ribcage _hoQGWMnyQPAh3k2jhWLne}# (vector 'ribcage '() '() '()))) - (let ((#{w _85hotwsCta0JfYIjI4OLc}# - (cons (car #{w _85hotwsCta0JfYIjI4OLY}#) - (cons #{ribcage _85hotwsCta0JfYIjI4OLb}# - (cdr #{w _85hotwsCta0JfYIjI4OLY}#))))) + (let ((#{w _hoQGWMnyQPAh3k2jhWLnf}# + (cons (car #{w _hoQGWMnyQPAh3k2jhWLnb}#) + (cons #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + (cdr #{w _hoQGWMnyQPAh3k2jhWLnb}#))))) (letrec* - ((#{parse _85hotwsCta0JfYIjI4OLd}# - (lambda (#{body _85hotwsCta0JfYIjI4OLq}# - #{ids _85hotwsCta0JfYIjI4OLr}# - #{labels _85hotwsCta0JfYIjI4OLs}# - #{var-ids _85hotwsCta0JfYIjI4OLt}# - #{vars _85hotwsCta0JfYIjI4OLu}# - #{vals _85hotwsCta0JfYIjI4OLv}# - #{bindings _85hotwsCta0JfYIjI4OLw}#) - (if (null? #{body _85hotwsCta0JfYIjI4OLq}#) + ((#{parse _hoQGWMnyQPAh3k2jhWLng}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWLnt}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#) + (if (null? #{body _hoQGWMnyQPAh3k2jhWLnt}#) (syntax-violation #f "no expressions in body" - #{outer-form _85hotwsCta0JfYIjI4OLW}#) - (let ((#{e _85hotwsCta0JfYIjI4OLx}# - (cdr (car #{body _85hotwsCta0JfYIjI4OLq}#))) - (#{er _85hotwsCta0JfYIjI4OLy}# - (car (car #{body _85hotwsCta0JfYIjI4OLq}#)))) + #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLn0}# + (cdr (car #{body _hoQGWMnyQPAh3k2jhWLnt}#))) + (#{er _hoQGWMnyQPAh3k2jhWLn1}# + (car (car #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4OLx}# - #{er _85hotwsCta0JfYIjI4OLy}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLn0}# + #{er _hoQGWMnyQPAh3k2jhWLn1}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{er _85hotwsCta0JfYIjI4OLy}#) - #{ribcage _85hotwsCta0JfYIjI4OLb}# - #{mod _85hotwsCta0JfYIjI4OLZ}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{er _hoQGWMnyQPAh3k2jhWLn1}#) + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{mod _hoQGWMnyQPAh3k2jhWLnc}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4OOP}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{e _85hotwsCta0JfYIjI4OOR}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{s _85hotwsCta0JfYIjI4OOT}# - #{mod _85hotwsCta0JfYIjI4OOU}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWLqS}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{s _hoQGWMnyQPAh3k2jhWLqW}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'define-form) - (let ((#{id _85hotwsCta0JfYIjI4OOY}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (#{label _85hotwsCta0JfYIjI4OOZ}# - (#{gen-label _85hotwsCta0JfYIjI4J3p}#))) - (let ((#{var _85hotwsCta0JfYIjI4OOa}# - (let ((#{id _85hotwsCta0JfYIjI4OPU}# + (let ((#{id _hoQGWMnyQPAh3k2jhWLqb}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{label _hoQGWMnyQPAh3k2jhWLqc}# + (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) + (let ((#{var _hoQGWMnyQPAh3k2jhWLqd}# + (let ((#{id _hoQGWMnyQPAh3k2jhWLrX}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4OOY}#) + #{id _hoQGWMnyQPAh3k2jhWLqb}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4OOY}#) + #{id _hoQGWMnyQPAh3k2jhWLqb}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 1) - #{id _85hotwsCta0JfYIjI4OOY}#))) + #{id _hoQGWMnyQPAh3k2jhWLqb}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4OPU}#) + #{id _hoQGWMnyQPAh3k2jhWLrX}#) " "))))) (begin - (let ((#{update _85hotwsCta0JfYIjI4OPK}# + (let ((#{update _hoQGWMnyQPAh3k2jhWLrN}# (cons (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 1) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1 - #{update _85hotwsCta0JfYIjI4OPK}#)) - (let ((#{update _85hotwsCta0JfYIjI4OPM}# + #{update _hoQGWMnyQPAh3k2jhWLrN}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLrP}# (cons (car (vector-ref - #{id _85hotwsCta0JfYIjI4OOY}# + #{id _hoQGWMnyQPAh3k2jhWLqb}# 2)) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2 - #{update _85hotwsCta0JfYIjI4OPM}#)) - (let ((#{update _85hotwsCta0JfYIjI4OPO}# - (cons #{label _85hotwsCta0JfYIjI4OOZ}# + #{update _hoQGWMnyQPAh3k2jhWLrP}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLrR}# + (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3 - #{update _85hotwsCta0JfYIjI4OPO}#)) - (#{parse _85hotwsCta0JfYIjI4OLd}# - (cdr #{body _85hotwsCta0JfYIjI4OLq}#) - (cons #{id _85hotwsCta0JfYIjI4OOY}# - #{ids _85hotwsCta0JfYIjI4OLr}#) - (cons #{label _85hotwsCta0JfYIjI4OOZ}# - #{labels _85hotwsCta0JfYIjI4OLs}#) - (cons #{id _85hotwsCta0JfYIjI4OOY}# - #{var-ids _85hotwsCta0JfYIjI4OLt}#) - (cons #{var _85hotwsCta0JfYIjI4OOa}# - #{vars _85hotwsCta0JfYIjI4OLu}#) - (cons (cons #{er _85hotwsCta0JfYIjI4OLy}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4OOR}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - #{vals _85hotwsCta0JfYIjI4OLv}#) + #{update _hoQGWMnyQPAh3k2jhWLrR}#)) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}#) + (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}#) + (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#) + (cons #{var _hoQGWMnyQPAh3k2jhWLqd}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}#) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + #{vals _hoQGWMnyQPAh3k2jhWLny}#) (cons (cons 'lexical - #{var _85hotwsCta0JfYIjI4OOa}#) - #{bindings _85hotwsCta0JfYIjI4OLw}#))))) - (if (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + #{var _hoQGWMnyQPAh3k2jhWLqd}#) + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))))) + (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'define-syntax-form) #t - (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'define-syntax-parameter-form)) - (let ((#{id _85hotwsCta0JfYIjI4OP1}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (#{label _85hotwsCta0JfYIjI4OP2}# - (#{gen-label _85hotwsCta0JfYIjI4J3p}#))) + (let ((#{id _hoQGWMnyQPAh3k2jhWLr4}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{label _hoQGWMnyQPAh3k2jhWLr5}# + (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) (begin - (let ((#{update _85hotwsCta0JfYIjI4OQm}# + (let ((#{update _hoQGWMnyQPAh3k2jhWLsp}# (cons (vector-ref - #{id _85hotwsCta0JfYIjI4OP1}# + #{id _hoQGWMnyQPAh3k2jhWLr4}# 1) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 1 - #{update _85hotwsCta0JfYIjI4OQm}#)) - (let ((#{update _85hotwsCta0JfYIjI4OQo}# + #{update _hoQGWMnyQPAh3k2jhWLsp}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLsr}# (cons (car (vector-ref - #{id _85hotwsCta0JfYIjI4OP1}# + #{id _hoQGWMnyQPAh3k2jhWLr4}# 2)) (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 2 - #{update _85hotwsCta0JfYIjI4OQo}#)) - (let ((#{update _85hotwsCta0JfYIjI4OQq}# - (cons #{label _85hotwsCta0JfYIjI4OP2}# + #{update _hoQGWMnyQPAh3k2jhWLsr}#)) + (let ((#{update _hoQGWMnyQPAh3k2jhWLst}# + (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# (vector-ref - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3)))) (vector-set! - #{ribcage _85hotwsCta0JfYIjI4OLb}# + #{ribcage _hoQGWMnyQPAh3k2jhWLne}# 3 - #{update _85hotwsCta0JfYIjI4OQq}#)) - (#{parse _85hotwsCta0JfYIjI4OLd}# - (cdr #{body _85hotwsCta0JfYIjI4OLq}#) - (cons #{id _85hotwsCta0JfYIjI4OP1}# - #{ids _85hotwsCta0JfYIjI4OLr}#) - (cons #{label _85hotwsCta0JfYIjI4OP2}# - #{labels _85hotwsCta0JfYIjI4OLs}#) - #{var-ids _85hotwsCta0JfYIjI4OLt}# - #{vars _85hotwsCta0JfYIjI4OLu}# - #{vals _85hotwsCta0JfYIjI4OLv}# + #{update _hoQGWMnyQPAh3k2jhWLst}#)) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons #{id _hoQGWMnyQPAh3k2jhWLr4}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}#) + (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}#) + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# (cons (cons 'macro - (cons #{er _85hotwsCta0JfYIjI4OLy}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4OOR}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#))) - #{bindings _85hotwsCta0JfYIjI4OLw}#)))) - (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#))) + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'begin-form) - (let ((#{tmp _85hotwsCta0JfYIjI4OQy}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWLs1}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4OOR}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# '(_ . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4OQy}# + (if #{tmp _hoQGWMnyQPAh3k2jhWLs1}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4OQ2}#) - (#{parse _85hotwsCta0JfYIjI4OLd}# + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLs5}#) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# (letrec* - ((#{f _85hotwsCta0JfYIjI4OQ3}# - (lambda (#{forms _85hotwsCta0JfYIjI4OR2}#) - (if (null? #{forms _85hotwsCta0JfYIjI4OR2}#) - (cdr #{body _85hotwsCta0JfYIjI4OLq}#) - (cons (cons #{er _85hotwsCta0JfYIjI4OLy}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - (car #{forms _85hotwsCta0JfYIjI4OR2}#) - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (#{f _85hotwsCta0JfYIjI4OQ3}# - (cdr #{forms _85hotwsCta0JfYIjI4OR2}#))))))) - (#{f _85hotwsCta0JfYIjI4OQ3}# - #{e1 _85hotwsCta0JfYIjI4OQ2}#)) - #{ids _85hotwsCta0JfYIjI4OLr}# - #{labels _85hotwsCta0JfYIjI4OLs}# - #{var-ids _85hotwsCta0JfYIjI4OLt}# - #{vars _85hotwsCta0JfYIjI4OLu}# - #{vals _85hotwsCta0JfYIjI4OLv}# - #{bindings _85hotwsCta0JfYIjI4OLw}#)) - #{tmp _85hotwsCta0JfYIjI4OQy}#) + ((#{f _hoQGWMnyQPAh3k2jhWLs6}# + (lambda (#{forms _hoQGWMnyQPAh3k2jhWLt5}#) + (if (null? #{forms _hoQGWMnyQPAh3k2jhWLt5}#) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{forms _hoQGWMnyQPAh3k2jhWLt5}#) + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{f _hoQGWMnyQPAh3k2jhWLs6}# + (cdr #{forms _hoQGWMnyQPAh3k2jhWLt5}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWLs6}# + #{e1 _hoQGWMnyQPAh3k2jhWLs5}#)) + #{ids _hoQGWMnyQPAh3k2jhWLnu}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)) + #{tmp _hoQGWMnyQPAh3k2jhWLs1}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4OOR}#))) - (if (eqv? #{type _85hotwsCta0JfYIjI4OOP}# + #{e _hoQGWMnyQPAh3k2jhWLqU}#))) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# 'local-syntax-form) - (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}# - #{value _85hotwsCta0JfYIjI4OOQ}# - #{e _85hotwsCta0JfYIjI4OOR}# - #{er _85hotwsCta0JfYIjI4OLy}# - #{w _85hotwsCta0JfYIjI4OOS}# - #{s _85hotwsCta0JfYIjI4OOT}# - #{mod _85hotwsCta0JfYIjI4OOU}# - (lambda (#{forms _85hotwsCta0JfYIjI4OSE}# - #{er _85hotwsCta0JfYIjI4OSF}# - #{w _85hotwsCta0JfYIjI4OSG}# - #{s _85hotwsCta0JfYIjI4OSH}# - #{mod _85hotwsCta0JfYIjI4OSI}#) - (#{parse _85hotwsCta0JfYIjI4OLd}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + #{value _hoQGWMnyQPAh3k2jhWLqT}# + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{er _hoQGWMnyQPAh3k2jhWLn1}# + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{s _hoQGWMnyQPAh3k2jhWLqW}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# + (lambda (#{forms _hoQGWMnyQPAh3k2jhWLuH}# + #{er _hoQGWMnyQPAh3k2jhWLuI}# + #{w _hoQGWMnyQPAh3k2jhWLuJ}# + #{s _hoQGWMnyQPAh3k2jhWLuK}# + #{mod _hoQGWMnyQPAh3k2jhWLuL}#) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# (letrec* - ((#{f _85hotwsCta0JfYIjI4OSJ}# - (lambda (#{forms _85hotwsCta0JfYIjI4OTI}#) - (if (null? #{forms _85hotwsCta0JfYIjI4OTI}#) - (cdr #{body _85hotwsCta0JfYIjI4OLq}#) - (cons (cons #{er _85hotwsCta0JfYIjI4OSF}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - (car #{forms _85hotwsCta0JfYIjI4OTI}#) - #{w _85hotwsCta0JfYIjI4OSG}# - #{mod _85hotwsCta0JfYIjI4OSI}#)) - (#{f _85hotwsCta0JfYIjI4OSJ}# - (cdr #{forms _85hotwsCta0JfYIjI4OTI}#))))))) - (#{f _85hotwsCta0JfYIjI4OSJ}# - #{forms _85hotwsCta0JfYIjI4OSE}#)) - #{ids _85hotwsCta0JfYIjI4OLr}# - #{labels _85hotwsCta0JfYIjI4OLs}# - #{var-ids _85hotwsCta0JfYIjI4OLt}# - #{vars _85hotwsCta0JfYIjI4OLu}# - #{vals _85hotwsCta0JfYIjI4OLv}# - #{bindings _85hotwsCta0JfYIjI4OLw}#))) - (if (null? #{ids _85hotwsCta0JfYIjI4OLr}#) - (#{build-sequence _85hotwsCta0JfYIjI4J3U}# + ((#{f _hoQGWMnyQPAh3k2jhWLuM}# + (lambda (#{forms _hoQGWMnyQPAh3k2jhWLvL}#) + (if (null? #{forms _hoQGWMnyQPAh3k2jhWLvL}#) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLuI}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{forms _hoQGWMnyQPAh3k2jhWLvL}#) + #{w _hoQGWMnyQPAh3k2jhWLuJ}# + #{mod _hoQGWMnyQPAh3k2jhWLuL}#)) + (#{f _hoQGWMnyQPAh3k2jhWLuM}# + (cdr #{forms _hoQGWMnyQPAh3k2jhWLvL}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWLuM}# + #{forms _hoQGWMnyQPAh3k2jhWLuH}#)) + #{ids _hoQGWMnyQPAh3k2jhWLnu}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# + #{vars _hoQGWMnyQPAh3k2jhWLnx}# + #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))) + (if (null? #{ids _hoQGWMnyQPAh3k2jhWLnu}#) + (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# #f - (map (lambda (#{x _85hotwsCta0JfYIjI4OUJ}#) - (let ((#{e _85hotwsCta0JfYIjI4OUN}# - (cdr #{x _85hotwsCta0JfYIjI4OUJ}#)) - (#{r _85hotwsCta0JfYIjI4OUO}# - (car #{x _85hotwsCta0JfYIjI4OUJ}#))) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLwM}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWLwQ}# + (cdr #{x _hoQGWMnyQPAh3k2jhWLwM}#)) + (#{r _hoQGWMnyQPAh3k2jhWLwR}# + (car #{x _hoQGWMnyQPAh3k2jhWLwM}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4OUN}# - #{r _85hotwsCta0JfYIjI4OUO}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWLwQ}# + #{r _hoQGWMnyQPAh3k2jhWLwR}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4OUN}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWLwQ}#) #f - #{mod _85hotwsCta0JfYIjI4OOU}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4OUS}# - #{value _85hotwsCta0JfYIjI4OUT}# - #{e _85hotwsCta0JfYIjI4OUU}# - #{w _85hotwsCta0JfYIjI4OUV}# - #{s _85hotwsCta0JfYIjI4OUW}# - #{mod _85hotwsCta0JfYIjI4OUX}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4OUS}# - #{value _85hotwsCta0JfYIjI4OUT}# - #{e _85hotwsCta0JfYIjI4OUU}# - #{r _85hotwsCta0JfYIjI4OUO}# - #{w _85hotwsCta0JfYIjI4OUV}# - #{s _85hotwsCta0JfYIjI4OUW}# - #{mod _85hotwsCta0JfYIjI4OUX}#))))) - (cons (cons #{er _85hotwsCta0JfYIjI4OLy}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWLwV}# + #{value _hoQGWMnyQPAh3k2jhWLwW}# + #{e _hoQGWMnyQPAh3k2jhWLwX}# + #{w _hoQGWMnyQPAh3k2jhWLwY}# + #{s _hoQGWMnyQPAh3k2jhWLwZ}# + #{mod _hoQGWMnyQPAh3k2jhWLwa}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWLwV}# + #{value _hoQGWMnyQPAh3k2jhWLwW}# + #{e _hoQGWMnyQPAh3k2jhWLwX}# + #{r _hoQGWMnyQPAh3k2jhWLwR}# + #{w _hoQGWMnyQPAh3k2jhWLwY}# + #{s _hoQGWMnyQPAh3k2jhWLwZ}# + #{mod _hoQGWMnyQPAh3k2jhWLwa}#))))) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#) - #{s _85hotwsCta0JfYIjI4OOT}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{s _hoQGWMnyQPAh3k2jhWLqW}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OOR}# - #{s _85hotwsCta0JfYIjI4OOT}#)) - #{e _85hotwsCta0JfYIjI4OOR}#) - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (cdr #{body _85hotwsCta0JfYIjI4OLq}#)))) + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{s _hoQGWMnyQPAh3k2jhWLqW}#)) + #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) (begin - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{ids _85hotwsCta0JfYIjI4OLr}#)) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{ids _hoQGWMnyQPAh3k2jhWLnu}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form _85hotwsCta0JfYIjI4OLW}#)) + #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#)) (letrec* - ((#{loop _85hotwsCta0JfYIjI4OV8}# - (lambda (#{bs _85hotwsCta0JfYIjI4OV@}# - #{er-cache _85hotwsCta0JfYIjI4OWA}# - #{r-cache _85hotwsCta0JfYIjI4OWB}#) - (if (not (null? #{bs _85hotwsCta0JfYIjI4OV@}#)) - (let ((#{b _85hotwsCta0JfYIjI4OWC}# - (car #{bs _85hotwsCta0JfYIjI4OV@}#))) - (if (eq? (car #{b _85hotwsCta0JfYIjI4OWC}#) + ((#{loop _hoQGWMnyQPAh3k2jhWLx@}# + (lambda (#{bs _hoQGWMnyQPAh3k2jhWLyC}# + #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# + #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#) + (if (not (null? #{bs _hoQGWMnyQPAh3k2jhWLyC}#)) + (let ((#{b _hoQGWMnyQPAh3k2jhWLyF}# + (car #{bs _hoQGWMnyQPAh3k2jhWLyC}#))) + (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWLyF}#) 'macro) - (let ((#{er _85hotwsCta0JfYIjI4OWE}# - (car (cdr #{b _85hotwsCta0JfYIjI4OWC}#)))) - (let ((#{r-cache _85hotwsCta0JfYIjI4OWF}# - (if (eq? #{er _85hotwsCta0JfYIjI4OWE}# - #{er-cache _85hotwsCta0JfYIjI4OWA}#) - #{r-cache _85hotwsCta0JfYIjI4OWB}# - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - #{er _85hotwsCta0JfYIjI4OWE}#)))) + (let ((#{er _hoQGWMnyQPAh3k2jhWLyH}# + (car (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)))) + (let ((#{r-cache _hoQGWMnyQPAh3k2jhWLyI}# + (if (eq? #{er _hoQGWMnyQPAh3k2jhWLyH}# + #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#) + #{r-cache _hoQGWMnyQPAh3k2jhWLyE}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{er _hoQGWMnyQPAh3k2jhWLyH}#)))) (begin (set-cdr! - #{b _85hotwsCta0JfYIjI4OWC}# - (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - (cdr (cdr #{b _85hotwsCta0JfYIjI4OWC}#)) - #{r-cache _85hotwsCta0JfYIjI4OWF}# + #{b _hoQGWMnyQPAh3k2jhWLyF}# + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (cdr (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)) + #{r-cache _hoQGWMnyQPAh3k2jhWLyI}# '(()) - #{mod _85hotwsCta0JfYIjI4OOU}#) - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (#{loop _85hotwsCta0JfYIjI4OV8}# - (cdr #{bs _85hotwsCta0JfYIjI4OV@}#) - #{er _85hotwsCta0JfYIjI4OWE}# - #{r-cache _85hotwsCta0JfYIjI4OWF}#)))) - (#{loop _85hotwsCta0JfYIjI4OV8}# - (cdr #{bs _85hotwsCta0JfYIjI4OV@}#) - #{er-cache _85hotwsCta0JfYIjI4OWA}# - #{r-cache _85hotwsCta0JfYIjI4OWB}#))))))) - (#{loop _85hotwsCta0JfYIjI4OV8}# - #{bindings _85hotwsCta0JfYIjI4OLw}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#) + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (#{loop _hoQGWMnyQPAh3k2jhWLx@}# + (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) + #{er _hoQGWMnyQPAh3k2jhWLyH}# + #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#)))) + (#{loop _hoQGWMnyQPAh3k2jhWLx@}# + (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) + #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# + #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#))))))) + (#{loop _hoQGWMnyQPAh3k2jhWLx@}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}# #f #f)) (set-cdr! - #{r _85hotwsCta0JfYIjI4OLa}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4OLs}# - #{bindings _85hotwsCta0JfYIjI4OLw}# - (cdr #{r _85hotwsCta0JfYIjI4OLa}#))) - (#{build-letrec _85hotwsCta0JfYIjI4J3X}# + #{r _hoQGWMnyQPAh3k2jhWLnd}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWLnv}# + #{bindings _hoQGWMnyQPAh3k2jhWLnz}# + (cdr #{r _hoQGWMnyQPAh3k2jhWLnd}#))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# #f #t (reverse (map syntax->datum - #{var-ids _85hotwsCta0JfYIjI4OLt}#)) + #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#)) (reverse - #{vars _85hotwsCta0JfYIjI4OLu}#) - (map (lambda (#{x _85hotwsCta0JfYIjI4Obc}#) - (let ((#{e _85hotwsCta0JfYIjI4Obg}# - (cdr #{x _85hotwsCta0JfYIjI4Obc}#)) - (#{r _85hotwsCta0JfYIjI4Obh}# - (car #{x _85hotwsCta0JfYIjI4Obc}#))) + #{vars _hoQGWMnyQPAh3k2jhWLnx}#) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL3f}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWL3j}# + (cdr #{x _hoQGWMnyQPAh3k2jhWL3f}#)) + (#{r _hoQGWMnyQPAh3k2jhWL3k}# + (car #{x _hoQGWMnyQPAh3k2jhWL3f}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4Obg}# - #{r _85hotwsCta0JfYIjI4Obh}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWL3j}# + #{r _hoQGWMnyQPAh3k2jhWL3k}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4Obg}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWL3j}#) #f - #{mod _85hotwsCta0JfYIjI4OOU}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4Obl}# - #{value _85hotwsCta0JfYIjI4Obm}# - #{e _85hotwsCta0JfYIjI4Obn}# - #{w _85hotwsCta0JfYIjI4Obo}# - #{s _85hotwsCta0JfYIjI4Obp}# - #{mod _85hotwsCta0JfYIjI4Obq}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4Obl}# - #{value _85hotwsCta0JfYIjI4Obm}# - #{e _85hotwsCta0JfYIjI4Obn}# - #{r _85hotwsCta0JfYIjI4Obh}# - #{w _85hotwsCta0JfYIjI4Obo}# - #{s _85hotwsCta0JfYIjI4Obp}# - #{mod _85hotwsCta0JfYIjI4Obq}#))))) + (lambda (#{type _hoQGWMnyQPAh3k2jhWL3o}# + #{value _hoQGWMnyQPAh3k2jhWL3p}# + #{e _hoQGWMnyQPAh3k2jhWL3q}# + #{w _hoQGWMnyQPAh3k2jhWL3r}# + #{s _hoQGWMnyQPAh3k2jhWL3s}# + #{mod _hoQGWMnyQPAh3k2jhWL3t}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWL3o}# + #{value _hoQGWMnyQPAh3k2jhWL3p}# + #{e _hoQGWMnyQPAh3k2jhWL3q}# + #{r _hoQGWMnyQPAh3k2jhWL3k}# + #{w _hoQGWMnyQPAh3k2jhWL3r}# + #{s _hoQGWMnyQPAh3k2jhWL3s}# + #{mod _hoQGWMnyQPAh3k2jhWL3t}#))))) (reverse - #{vals _85hotwsCta0JfYIjI4OLv}#)) - (let ((#{exps _85hotwsCta0JfYIjI4Obw}# - (map (lambda (#{x _85hotwsCta0JfYIjI4Obx}#) - (let ((#{e _85hotwsCta0JfYIjI4Ob0}# - (cdr #{x _85hotwsCta0JfYIjI4Obx}#)) - (#{r _85hotwsCta0JfYIjI4Ob1}# - (car #{x _85hotwsCta0JfYIjI4Obx}#))) + #{vals _hoQGWMnyQPAh3k2jhWLny}#)) + (let ((#{exps _hoQGWMnyQPAh3k2jhWL3z}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL30}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWL33}# + (cdr #{x _hoQGWMnyQPAh3k2jhWL30}#)) + (#{r _hoQGWMnyQPAh3k2jhWL34}# + (car #{x _hoQGWMnyQPAh3k2jhWL30}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4Ob0}# - #{r _85hotwsCta0JfYIjI4Ob1}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWL33}# + #{r _hoQGWMnyQPAh3k2jhWL34}# '(()) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4Ob0}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWL33}#) #f - #{mod _85hotwsCta0JfYIjI4OOU}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4Ob5}# - #{value _85hotwsCta0JfYIjI4Ob6}# - #{e _85hotwsCta0JfYIjI4Ob7}# - #{w _85hotwsCta0JfYIjI4Ob8}# - #{s _85hotwsCta0JfYIjI4Ob9}# - #{mod _85hotwsCta0JfYIjI4Ob$}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4Ob5}# - #{value _85hotwsCta0JfYIjI4Ob6}# - #{e _85hotwsCta0JfYIjI4Ob7}# - #{r _85hotwsCta0JfYIjI4Ob1}# - #{w _85hotwsCta0JfYIjI4Ob8}# - #{s _85hotwsCta0JfYIjI4Ob9}# - #{mod _85hotwsCta0JfYIjI4Ob$}#))))) - (cons (cons #{er _85hotwsCta0JfYIjI4OLy}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWL38}# + #{value _hoQGWMnyQPAh3k2jhWL39}# + #{e _hoQGWMnyQPAh3k2jhWL3$}# + #{w _hoQGWMnyQPAh3k2jhWL3@}# + #{s _hoQGWMnyQPAh3k2jhWL4A}# + #{mod _hoQGWMnyQPAh3k2jhWL4B}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWL38}# + #{value _hoQGWMnyQPAh3k2jhWL39}# + #{e _hoQGWMnyQPAh3k2jhWL3$}# + #{r _hoQGWMnyQPAh3k2jhWL34}# + #{w _hoQGWMnyQPAh3k2jhWL3@}# + #{s _hoQGWMnyQPAh3k2jhWL4A}# + #{mod _hoQGWMnyQPAh3k2jhWL4B}#))))) + (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OOR}#) - #{s _85hotwsCta0JfYIjI4OOT}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{s _hoQGWMnyQPAh3k2jhWLqW}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OOR}# - #{s _85hotwsCta0JfYIjI4OOT}#)) - #{e _85hotwsCta0JfYIjI4OOR}#) - #{w _85hotwsCta0JfYIjI4OOS}# - #{mod _85hotwsCta0JfYIjI4OOU}#)) - (cdr #{body _85hotwsCta0JfYIjI4OLq}#))))) - (if (null? (cdr #{exps _85hotwsCta0JfYIjI4Obw}#)) - (car #{exps _85hotwsCta0JfYIjI4Obw}#) + #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{s _hoQGWMnyQPAh3k2jhWLqW}#)) + #{e _hoQGWMnyQPAh3k2jhWLqU}#) + #{w _hoQGWMnyQPAh3k2jhWLqV}# + #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) + (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#))))) + (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWL3z}#)) + (car #{exps _hoQGWMnyQPAh3k2jhWL3z}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps _85hotwsCta0JfYIjI4Obw}#))))))))))))))))) - (#{parse _85hotwsCta0JfYIjI4OLd}# - (map (lambda (#{x _85hotwsCta0JfYIjI4OLg}#) - (cons #{r _85hotwsCta0JfYIjI4OLa}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{x _85hotwsCta0JfYIjI4OLg}# - #{w _85hotwsCta0JfYIjI4OLc}# - #{mod _85hotwsCta0JfYIjI4OLZ}#))) - #{body _85hotwsCta0JfYIjI4OLV}#) + #{exps _hoQGWMnyQPAh3k2jhWL3z}#))))))))))))))))) + (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLnj}#) + (cons #{r _hoQGWMnyQPAh3k2jhWLnd}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{x _hoQGWMnyQPAh3k2jhWLnj}# + #{w _hoQGWMnyQPAh3k2jhWLnf}# + #{mod _hoQGWMnyQPAh3k2jhWLnc}#))) + #{body _hoQGWMnyQPAh3k2jhWLnY}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax _85hotwsCta0JfYIjI4J4Q}# - (lambda (#{rec? _85hotwsCta0JfYIjI4OcY}# - #{e _85hotwsCta0JfYIjI4OcZ}# - #{r _85hotwsCta0JfYIjI4Oca}# - #{w _85hotwsCta0JfYIjI4Ocb}# - #{s _85hotwsCta0JfYIjI4Occ}# - #{mod _85hotwsCta0JfYIjI4Ocd}# - #{k _85hotwsCta0JfYIjI4Oce}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ocg}# + (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# + (lambda (#{rec? _hoQGWMnyQPAh3k2jhWL4b}# + #{e _hoQGWMnyQPAh3k2jhWL4c}# + #{r _hoQGWMnyQPAh3k2jhWL4d}# + #{w _hoQGWMnyQPAh3k2jhWL4e}# + #{s _hoQGWMnyQPAh3k2jhWL4f}# + #{mod _hoQGWMnyQPAh3k2jhWL4g}# + #{k _hoQGWMnyQPAh3k2jhWL4h}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWL4j}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4OcZ}# + #{e _hoQGWMnyQPAh3k2jhWL4c}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Ocg}# + (if #{tmp _hoQGWMnyQPAh3k2jhWL4j}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Ock}# - #{val _85hotwsCta0JfYIjI4Ocl}# - #{e1 _85hotwsCta0JfYIjI4Ocm}# - #{e2 _85hotwsCta0JfYIjI4Ocn}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{id _85hotwsCta0JfYIjI4Ock}#)) + (lambda (#{id _hoQGWMnyQPAh3k2jhWL4n}# + #{val _hoQGWMnyQPAh3k2jhWL4o}# + #{e1 _hoQGWMnyQPAh3k2jhWL4p}# + #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{id _hoQGWMnyQPAh3k2jhWL4n}#)) (syntax-violation #f "duplicate bound keyword" - #{e _85hotwsCta0JfYIjI4OcZ}#) - (let ((#{labels _85hotwsCta0JfYIjI4OeB}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{id _85hotwsCta0JfYIjI4Ock}#))) - (let ((#{new-w _85hotwsCta0JfYIjI4OeC}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{id _85hotwsCta0JfYIjI4Ock}# - #{labels _85hotwsCta0JfYIjI4OeB}# - #{w _85hotwsCta0JfYIjI4Ocb}#))) - (#{k _85hotwsCta0JfYIjI4Oce}# - (cons #{e1 _85hotwsCta0JfYIjI4Ocm}# - #{e2 _85hotwsCta0JfYIjI4Ocn}#) - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4OeB}# - (let ((#{trans-r _85hotwsCta0JfYIjI4Oei}# - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - #{r _85hotwsCta0JfYIjI4Oca}#))) + #{e _hoQGWMnyQPAh3k2jhWL4c}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWL6E}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{id _hoQGWMnyQPAh3k2jhWL4n}#))) + (let ((#{new-w _hoQGWMnyQPAh3k2jhWL6F}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{id _hoQGWMnyQPAh3k2jhWL4n}# + #{labels _hoQGWMnyQPAh3k2jhWL6E}# + #{w _hoQGWMnyQPAh3k2jhWL4e}#))) + (#{k _hoQGWMnyQPAh3k2jhWL4h}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWL4p}# + #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWL6E}# + (let ((#{trans-r _hoQGWMnyQPAh3k2jhWL6l}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{r _hoQGWMnyQPAh3k2jhWL4d}#))) (begin - (if #{rec? _85hotwsCta0JfYIjI4OcY}# - #{new-w _85hotwsCta0JfYIjI4OeC}# - #{w _85hotwsCta0JfYIjI4Ocb}#) - (map (lambda (#{x _85hotwsCta0JfYIjI4Oej}#) + (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# + #{new-w _hoQGWMnyQPAh3k2jhWL6F}# + #{w _hoQGWMnyQPAh3k2jhWL4e}#) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL6m}#) (cons 'macro - (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4Oej}# - #{trans-r _85hotwsCta0JfYIjI4Oei}# + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWL6m}# + #{trans-r _hoQGWMnyQPAh3k2jhWL6l}# (values - (if #{rec? _85hotwsCta0JfYIjI4OcY}# - #{new-w _85hotwsCta0JfYIjI4OeC}# - #{w _85hotwsCta0JfYIjI4Ocb}#)) - #{mod _85hotwsCta0JfYIjI4Ocd}#) - #{mod _85hotwsCta0JfYIjI4Ocd}#))) - #{val _85hotwsCta0JfYIjI4Ocl}#))) - #{r _85hotwsCta0JfYIjI4Oca}#) - #{new-w _85hotwsCta0JfYIjI4OeC}# - #{s _85hotwsCta0JfYIjI4Occ}# - #{mod _85hotwsCta0JfYIjI4Ocd}#))))) - #{tmp _85hotwsCta0JfYIjI4Ocg}#) + (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# + #{new-w _hoQGWMnyQPAh3k2jhWL6F}# + #{w _hoQGWMnyQPAh3k2jhWL4e}#)) + #{mod _hoQGWMnyQPAh3k2jhWL4g}#) + #{mod _hoQGWMnyQPAh3k2jhWL4g}#))) + #{val _hoQGWMnyQPAh3k2jhWL4o}#))) + #{r _hoQGWMnyQPAh3k2jhWL4d}#) + #{new-w _hoQGWMnyQPAh3k2jhWL6F}# + #{s _hoQGWMnyQPAh3k2jhWL4f}# + #{mod _hoQGWMnyQPAh3k2jhWL4g}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWL4j}#) (syntax-violation #f "bad local syntax definition" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4OcZ}#) - #{s _85hotwsCta0JfYIjI4Occ}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWL4c}#) + #{s _hoQGWMnyQPAh3k2jhWL4f}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4OcZ}# - #{s _85hotwsCta0JfYIjI4Occ}#)) - #{e _85hotwsCta0JfYIjI4OcZ}#) - #{w _85hotwsCta0JfYIjI4Ocb}# - #{mod _85hotwsCta0JfYIjI4Ocd}#)))))) - (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}# - (lambda (#{expanded _85hotwsCta0JfYIjI4Oi3}# - #{mod _85hotwsCta0JfYIjI4Oi4}#) - (let ((#{p _85hotwsCta0JfYIjI4Oi5}# + #{e _hoQGWMnyQPAh3k2jhWL4c}# + #{s _hoQGWMnyQPAh3k2jhWL4f}#)) + #{e _hoQGWMnyQPAh3k2jhWL4c}#) + #{w _hoQGWMnyQPAh3k2jhWL4e}# + #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))))) + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (lambda (#{expanded _hoQGWMnyQPAh3k2jhWL$6}# + #{mod _hoQGWMnyQPAh3k2jhWL$7}#) + (let ((#{p _hoQGWMnyQPAh3k2jhWL$8}# (primitive-eval - #{expanded _85hotwsCta0JfYIjI4Oi3}#))) - (if (procedure? #{p _85hotwsCta0JfYIjI4Oi5}#) - #{p _85hotwsCta0JfYIjI4Oi5}# + #{expanded _hoQGWMnyQPAh3k2jhWL$6}#))) + (if (procedure? #{p _hoQGWMnyQPAh3k2jhWL$8}#) + #{p _hoQGWMnyQPAh3k2jhWL$8}# (syntax-violation #f "nonprocedure transformer" - #{p _85hotwsCta0JfYIjI4Oi5}#))))) - (#{ellipsis? _85hotwsCta0JfYIjI4J4T}# - (lambda (#{x _85hotwsCta0JfYIjI4KCo}#) - (if (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#) + #{p _hoQGWMnyQPAh3k2jhWL$8}#))))) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1)) #f) - (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4KCo}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4KCo}#) + (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _85hotwsCta0JfYIjI4KCo}# 1) - #{x _85hotwsCta0JfYIjI4KCo}#) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1) + #{x _hoQGWMnyQPAh3k2jhWHeC}#) (if (if (= (vector-length '#(syntax-object ... @@ -6150,10 +6150,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4KCo}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWHeC}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -6591,377 +6591,377 @@ '(()))) #f) #f))) - (#{lambda-formals _85hotwsCta0JfYIjI4J4U}# - (lambda (#{orig-args _85hotwsCta0JfYIjI4Oi$}#) + (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# + (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWL@B}#) (letrec* - ((#{req _85hotwsCta0JfYIjI4Oi@}# - (lambda (#{args _85hotwsCta0JfYIjI4OjD}# - #{rreq _85hotwsCta0JfYIjI4OjE}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OjG}# + ((#{req _hoQGWMnyQPAh3k2jhWL@C}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWL@G}# + #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWL@J}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4OjD}# + #{args _hoQGWMnyQPAh3k2jhWL@G}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4OjG}# + (if #{tmp _hoQGWMnyQPAh3k2jhWL@J}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4OjA}# - (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#) + (#{check _hoQGWMnyQPAh3k2jhWL@D}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) #f)) - #{tmp _85hotwsCta0JfYIjI4OjG}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OlB}# + #{tmp _hoQGWMnyQPAh3k2jhWL@J}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBE}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4OjD}# + #{args _hoQGWMnyQPAh3k2jhWL@G}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OlB}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMBE}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OlF}# - #{b _85hotwsCta0JfYIjI4OlG}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4OlF}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMBI}# + #{b _hoQGWMnyQPAh3k2jhWMBJ}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMBI}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4OlF}#) + #{a _hoQGWMnyQPAh3k2jhWMBI}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4OlF}#) + #{a _hoQGWMnyQPAh3k2jhWMBI}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4OlF}# + #{a _hoQGWMnyQPAh3k2jhWMBI}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4OlF}# + #{a _hoQGWMnyQPAh3k2jhWMBI}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4OlB}#) + #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Olh}# - #{b _85hotwsCta0JfYIjI4Oli}#) - (#{req _85hotwsCta0JfYIjI4Oi@}# - #{b _85hotwsCta0JfYIjI4Oli}# - (cons #{a _85hotwsCta0JfYIjI4Olh}# - #{rreq _85hotwsCta0JfYIjI4OjE}#))) - #{tmp _85hotwsCta0JfYIjI4OlB}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Olj}# - (list #{args _85hotwsCta0JfYIjI4OjD}#))) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMBk}# + #{b _hoQGWMnyQPAh3k2jhWMBl}#) + (#{req _hoQGWMnyQPAh3k2jhWL@C}# + #{b _hoQGWMnyQPAh3k2jhWMBl}# + (cons #{a _hoQGWMnyQPAh3k2jhWMBk}# + #{rreq _hoQGWMnyQPAh3k2jhWL@H}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBm}# + (list #{args _hoQGWMnyQPAh3k2jhWL@G}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4Oll}#) - (if (symbol? #{r _85hotwsCta0JfYIjI4Oll}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMBo}#) + (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMBo}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4Oll}#) + #{r _hoQGWMnyQPAh3k2jhWMBo}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4Oll}#) + #{r _hoQGWMnyQPAh3k2jhWMBo}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4Oll}# + #{r _hoQGWMnyQPAh3k2jhWMBo}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4Oll}# + #{r _hoQGWMnyQPAh3k2jhWMBo}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Olj}#) + #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4OmD}#) - (#{check _85hotwsCta0JfYIjI4OjA}# - (reverse #{rreq _85hotwsCta0JfYIjI4OjE}#) - #{r _85hotwsCta0JfYIjI4OmD}#)) - #{tmp _85hotwsCta0JfYIjI4Olj}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMCG}#) + (#{check _hoQGWMnyQPAh3k2jhWL@D}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) + #{r _hoQGWMnyQPAh3k2jhWMCG}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args _85hotwsCta0JfYIjI4Oi$}# - #{args _85hotwsCta0JfYIjI4OjD}#))))))))) - (#{check _85hotwsCta0JfYIjI4OjA}# - (lambda (#{req _85hotwsCta0JfYIjI4OoG}# - #{rest _85hotwsCta0JfYIjI4OoH}#) - (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - (if #{rest _85hotwsCta0JfYIjI4OoH}# - (cons #{rest _85hotwsCta0JfYIjI4OoH}# - #{req _85hotwsCta0JfYIjI4OoG}#) - #{req _85hotwsCta0JfYIjI4OoG}#)) + #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# + #{args _hoQGWMnyQPAh3k2jhWL@G}#))))))))) + (#{check _hoQGWMnyQPAh3k2jhWL@D}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMEJ}# + #{rest _hoQGWMnyQPAh3k2jhWMEK}#) + (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + (if #{rest _hoQGWMnyQPAh3k2jhWMEK}# + (cons #{rest _hoQGWMnyQPAh3k2jhWMEK}# + #{req _hoQGWMnyQPAh3k2jhWMEJ}#) + #{req _hoQGWMnyQPAh3k2jhWMEJ}#)) (values - #{req _85hotwsCta0JfYIjI4OoG}# + #{req _hoQGWMnyQPAh3k2jhWMEJ}# #f - #{rest _85hotwsCta0JfYIjI4OoH}# + #{rest _hoQGWMnyQPAh3k2jhWMEK}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args _85hotwsCta0JfYIjI4Oi$}#))))) - (#{req _85hotwsCta0JfYIjI4Oi@}# - #{orig-args _85hotwsCta0JfYIjI4Oi$}# + #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#))))) + (#{req _hoQGWMnyQPAh3k2jhWL@C}# + #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# '())))) - (#{expand-simple-lambda _85hotwsCta0JfYIjI4J4V}# - (lambda (#{e _85hotwsCta0JfYIjI4Op7}# - #{r _85hotwsCta0JfYIjI4Op8}# - #{w _85hotwsCta0JfYIjI4Op9}# - #{s _85hotwsCta0JfYIjI4Op$}# - #{mod _85hotwsCta0JfYIjI4Op@}# - #{req _85hotwsCta0JfYIjI4OqA}# - #{rest _85hotwsCta0JfYIjI4OqB}# - #{meta _85hotwsCta0JfYIjI4OqC}# - #{body _85hotwsCta0JfYIjI4OqD}#) - (let ((#{ids _85hotwsCta0JfYIjI4OqE}# - (if #{rest _85hotwsCta0JfYIjI4OqB}# + (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWMF$}# + #{r _hoQGWMnyQPAh3k2jhWMF@}# + #{w _hoQGWMnyQPAh3k2jhWMGA}# + #{s _hoQGWMnyQPAh3k2jhWMGB}# + #{mod _hoQGWMnyQPAh3k2jhWMGC}# + #{req _hoQGWMnyQPAh3k2jhWMGD}# + #{rest _hoQGWMnyQPAh3k2jhWMGE}# + #{meta _hoQGWMnyQPAh3k2jhWMGF}# + #{body _hoQGWMnyQPAh3k2jhWMGG}#) + (let ((#{ids _hoQGWMnyQPAh3k2jhWMGH}# + (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# (append - #{req _85hotwsCta0JfYIjI4OqA}# - (list #{rest _85hotwsCta0JfYIjI4OqB}#)) - #{req _85hotwsCta0JfYIjI4OqA}#))) - (let ((#{vars _85hotwsCta0JfYIjI4OqF}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{ids _85hotwsCta0JfYIjI4OqE}#))) - (let ((#{labels _85hotwsCta0JfYIjI4OqG}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{ids _85hotwsCta0JfYIjI4OqE}#))) - (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}# - #{s _85hotwsCta0JfYIjI4Op$}# + #{req _hoQGWMnyQPAh3k2jhWMGD}# + (list #{rest _hoQGWMnyQPAh3k2jhWMGE}#)) + #{req _hoQGWMnyQPAh3k2jhWMGD}#))) + (let ((#{vars _hoQGWMnyQPAh3k2jhWMGI}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) + (let ((#{labels _hoQGWMnyQPAh3k2jhWMGJ}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) + (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + #{s _hoQGWMnyQPAh3k2jhWMGB}# (map syntax->datum - #{req _85hotwsCta0JfYIjI4OqA}#) - (if #{rest _85hotwsCta0JfYIjI4OqB}# - (syntax->datum #{rest _85hotwsCta0JfYIjI4OqB}#) + #{req _hoQGWMnyQPAh3k2jhWMGD}#) + (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# + (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMGE}#) #f) - #{vars _85hotwsCta0JfYIjI4OqF}# - #{meta _85hotwsCta0JfYIjI4OqC}# - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - #{body _85hotwsCta0JfYIjI4OqD}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{vars _hoQGWMnyQPAh3k2jhWMGI}# + #{meta _hoQGWMnyQPAh3k2jhWMGF}# + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + #{body _hoQGWMnyQPAh3k2jhWMGG}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Op7}#) - #{s _85hotwsCta0JfYIjI4Op$}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMF$}#) + #{s _hoQGWMnyQPAh3k2jhWMGB}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Op7}# - #{s _85hotwsCta0JfYIjI4Op$}#)) - #{e _85hotwsCta0JfYIjI4Op7}#) - #{w _85hotwsCta0JfYIjI4Op9}# - #{mod _85hotwsCta0JfYIjI4Op@}#) - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{labels _85hotwsCta0JfYIjI4OqG}# - #{vars _85hotwsCta0JfYIjI4OqF}# - #{r _85hotwsCta0JfYIjI4Op8}#) - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{ids _85hotwsCta0JfYIjI4OqE}# - #{labels _85hotwsCta0JfYIjI4OqG}# - #{w _85hotwsCta0JfYIjI4Op9}#) - #{mod _85hotwsCta0JfYIjI4Op@}#))))))) - (#{lambda*-formals _85hotwsCta0JfYIjI4J4W}# - (lambda (#{orig-args _85hotwsCta0JfYIjI4OuW}#) + #{e _hoQGWMnyQPAh3k2jhWMF$}# + #{s _hoQGWMnyQPAh3k2jhWMGB}#)) + #{e _hoQGWMnyQPAh3k2jhWMF$}#) + #{w _hoQGWMnyQPAh3k2jhWMGA}# + #{mod _hoQGWMnyQPAh3k2jhWMGC}#) + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWMGJ}# + #{vars _hoQGWMnyQPAh3k2jhWMGI}# + #{r _hoQGWMnyQPAh3k2jhWMF@}#) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{ids _hoQGWMnyQPAh3k2jhWMGH}# + #{labels _hoQGWMnyQPAh3k2jhWMGJ}# + #{w _hoQGWMnyQPAh3k2jhWMGA}#) + #{mod _hoQGWMnyQPAh3k2jhWMGC}#))))))) + (#{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# + (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#) (letrec* - ((#{req _85hotwsCta0JfYIjI4OuX}# - (lambda (#{args _85hotwsCta0JfYIjI4Oue}# - #{rreq _85hotwsCta0JfYIjI4Ouf}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ouh}# + ((#{req _hoQGWMnyQPAh3k2jhWMKa}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMKh}# + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKk}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4Ouh}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMKk}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4Oub}# - (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() #f '())) - #{tmp _85hotwsCta0JfYIjI4Ouh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oun}# + #{tmp _hoQGWMnyQPAh3k2jhWMKk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKq}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Oun}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMKq}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Our}# - #{b _85hotwsCta0JfYIjI4Ous}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4Our}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMKu}# + #{b _hoQGWMnyQPAh3k2jhWMKv}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMKu}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4Our}#) + #{a _hoQGWMnyQPAh3k2jhWMKu}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4Our}#) + #{a _hoQGWMnyQPAh3k2jhWMKu}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4Our}# + #{a _hoQGWMnyQPAh3k2jhWMKu}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4Our}# + #{a _hoQGWMnyQPAh3k2jhWMKu}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Oun}#) + #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvH}# - #{b _85hotwsCta0JfYIjI4OvI}#) - (#{req _85hotwsCta0JfYIjI4OuX}# - #{b _85hotwsCta0JfYIjI4OvI}# - (cons #{a _85hotwsCta0JfYIjI4OvH}# - #{rreq _85hotwsCta0JfYIjI4Ouf}#))) - #{tmp _85hotwsCta0JfYIjI4Oun}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OvJ}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLK}# + #{b _hoQGWMnyQPAh3k2jhWMLL}#) + (#{req _hoQGWMnyQPAh3k2jhWMKa}# + #{b _hoQGWMnyQPAh3k2jhWMLL}# + (cons #{a _hoQGWMnyQPAh3k2jhWMLK}# + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLM}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OvJ}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLM}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvN}# - #{b _85hotwsCta0JfYIjI4OvO}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLQ}# + #{b _hoQGWMnyQPAh3k2jhWMLR}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4OvN}#) + #{a _hoQGWMnyQPAh3k2jhWMLQ}#) #:optional)) - #{tmp _85hotwsCta0JfYIjI4OvJ}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvP}# - #{b _85hotwsCta0JfYIjI4OvQ}#) - (#{opt _85hotwsCta0JfYIjI4OuY}# - #{b _85hotwsCta0JfYIjI4OvQ}# - (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLS}# + #{b _hoQGWMnyQPAh3k2jhWMLT}#) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + #{b _hoQGWMnyQPAh3k2jhWMLT}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '())) - #{tmp _85hotwsCta0JfYIjI4OvJ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OvT}# + #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLW}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OvT}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLW}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvX}# - #{b _85hotwsCta0JfYIjI4OvY}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLa}# + #{b _hoQGWMnyQPAh3k2jhWMLb}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4OvX}#) + #{a _hoQGWMnyQPAh3k2jhWMLa}#) #:key)) - #{tmp _85hotwsCta0JfYIjI4OvT}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OvZ}# - #{b _85hotwsCta0JfYIjI4Ova}#) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4Ova}# - (reverse #{rreq _85hotwsCta0JfYIjI4Ouf}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLc}# + #{b _hoQGWMnyQPAh3k2jhWMLd}#) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMLd}# + (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() '())) - #{tmp _85hotwsCta0JfYIjI4OvT}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ovd}# + #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLg}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oue}# + #{args _hoQGWMnyQPAh3k2jhWMKh}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ovd}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLg}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ovh}# - #{b _85hotwsCta0JfYIjI4Ovi}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLk}# + #{b _hoQGWMnyQPAh3k2jhWMLl}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4Ovh}#) + #{a _hoQGWMnyQPAh3k2jhWMLk}#) #:rest)) - #{tmp _85hotwsCta0JfYIjI4Ovd}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ovj}# - #{b _85hotwsCta0JfYIjI4Ovk}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4Ovk}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMLm}# + #{b _hoQGWMnyQPAh3k2jhWMLn}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMLn}# (reverse - #{rreq _85hotwsCta0JfYIjI4Ouf}#) + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() '())) - #{tmp _85hotwsCta0JfYIjI4Ovd}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ovn}# - (list #{args _85hotwsCta0JfYIjI4Oue}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLq}# + (list #{args _hoQGWMnyQPAh3k2jhWMKh}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4Ovp}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMLs}#) (if (symbol? - #{r _85hotwsCta0JfYIjI4Ovp}#) + #{r _hoQGWMnyQPAh3k2jhWMLs}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4Ovp}#) + #{r _hoQGWMnyQPAh3k2jhWMLs}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4Ovp}#) + #{r _hoQGWMnyQPAh3k2jhWMLs}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4Ovp}# + #{r _hoQGWMnyQPAh3k2jhWMLs}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4Ovp}# + #{r _hoQGWMnyQPAh3k2jhWMLs}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ovn}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4OwH}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4OwH}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWMMK}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMMK}# (reverse - #{rreq _85hotwsCta0JfYIjI4Ouf}#) + #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) '() '())) - #{tmp _85hotwsCta0JfYIjI4Ovn}#) + #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4Oue}#))))))))))))))) - (#{opt _85hotwsCta0JfYIjI4OuY}# - (lambda (#{args _85hotwsCta0JfYIjI4Owa}# - #{req _85hotwsCta0JfYIjI4Owb}# - #{ropt _85hotwsCta0JfYIjI4Owc}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Owe}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMKh}#))))))))))))))) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMMd}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMh}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4Owe}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMMh}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4Owb}# - (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) #f '())) - #{tmp _85hotwsCta0JfYIjI4Owe}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Owk}# + #{tmp _hoQGWMnyQPAh3k2jhWMMh}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMn}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Owk}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMMn}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Owo}# - #{b _85hotwsCta0JfYIjI4Owp}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4Owo}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMMr}# + #{b _hoQGWMnyQPAh3k2jhWMMs}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMMr}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4Owo}#) + #{a _hoQGWMnyQPAh3k2jhWMMr}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4Owo}#) + #{a _hoQGWMnyQPAh3k2jhWMMr}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4Owo}# + #{a _hoQGWMnyQPAh3k2jhWMMr}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4Owo}# + #{a _hoQGWMnyQPAh3k2jhWMMr}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Owk}#) + #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OxE}# - #{b _85hotwsCta0JfYIjI4OxF}#) - (#{opt _85hotwsCta0JfYIjI4OuY}# - #{b _85hotwsCta0JfYIjI4OxF}# - #{req _85hotwsCta0JfYIjI4Owb}# - (cons (cons #{a _85hotwsCta0JfYIjI4OxE}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNH}# + #{b _hoQGWMnyQPAh3k2jhWMNI}#) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + #{b _hoQGWMnyQPAh3k2jhWMNI}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (cons (cons #{a _hoQGWMnyQPAh3k2jhWMNH}# '(#(syntax-object #f ((top) @@ -7418,191 +7418,191 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - #{ropt _85hotwsCta0JfYIjI4Owc}#))) - #{tmp _85hotwsCta0JfYIjI4Owk}#) - (let ((#{tmp _85hotwsCta0JfYIjI4OxG}# + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNJ}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '((any any) . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4OxG}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNJ}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OxK}# - #{init _85hotwsCta0JfYIjI4OxL}# - #{b _85hotwsCta0JfYIjI4OxM}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4OxK}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNN}# + #{init _hoQGWMnyQPAh3k2jhWMNO}# + #{b _hoQGWMnyQPAh3k2jhWMNP}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMNN}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4OxK}#) + #{a _hoQGWMnyQPAh3k2jhWMNN}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4OxK}#) + #{a _hoQGWMnyQPAh3k2jhWMNN}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4OxK}# + #{a _hoQGWMnyQPAh3k2jhWMNN}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4OxK}# + #{a _hoQGWMnyQPAh3k2jhWMNN}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4OxG}#) + #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Oxn}# - #{init _85hotwsCta0JfYIjI4Oxo}# - #{b _85hotwsCta0JfYIjI4Oxp}#) - (#{opt _85hotwsCta0JfYIjI4OuY}# - #{b _85hotwsCta0JfYIjI4Oxp}# - #{req _85hotwsCta0JfYIjI4Owb}# - (cons (list #{a _85hotwsCta0JfYIjI4Oxn}# - #{init _85hotwsCta0JfYIjI4Oxo}#) - #{ropt _85hotwsCta0JfYIjI4Owc}#))) - #{tmp _85hotwsCta0JfYIjI4OxG}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oxq}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNq}# + #{init _hoQGWMnyQPAh3k2jhWMNr}# + #{b _hoQGWMnyQPAh3k2jhWMNs}#) + (#{opt _hoQGWMnyQPAh3k2jhWMKb}# + #{b _hoQGWMnyQPAh3k2jhWMNs}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (cons (list #{a _hoQGWMnyQPAh3k2jhWMNq}# + #{init _hoQGWMnyQPAh3k2jhWMNr}#) + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNt}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Oxq}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNt}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Oxu}# - #{b _85hotwsCta0JfYIjI4Oxv}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNx}# + #{b _hoQGWMnyQPAh3k2jhWMNy}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4Oxu}#) + #{a _hoQGWMnyQPAh3k2jhWMNx}#) #:key)) - #{tmp _85hotwsCta0JfYIjI4Oxq}#) + #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Oxw}# - #{b _85hotwsCta0JfYIjI4Oxx}#) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4Oxx}# - #{req _85hotwsCta0JfYIjI4Owb}# - (reverse #{ropt _85hotwsCta0JfYIjI4Owc}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMNz}# + #{b _hoQGWMnyQPAh3k2jhWMN0}#) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMN0}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# + (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) '())) - #{tmp _85hotwsCta0JfYIjI4Oxq}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ox0}# + #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMN3}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Owa}# + #{args _hoQGWMnyQPAh3k2jhWMMd}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ox0}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMN3}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ox4}# - #{b _85hotwsCta0JfYIjI4Ox5}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMN7}# + #{b _hoQGWMnyQPAh3k2jhWMN8}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4Ox4}#) + #{a _hoQGWMnyQPAh3k2jhWMN7}#) #:rest)) - #{tmp _85hotwsCta0JfYIjI4Ox0}#) + #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ox6}# - #{b _85hotwsCta0JfYIjI4Ox7}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4Ox7}# - #{req _85hotwsCta0JfYIjI4Owb}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMN9}# + #{b _hoQGWMnyQPAh3k2jhWMN$}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMN$}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# (reverse - #{ropt _85hotwsCta0JfYIjI4Owc}#) + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) '())) - #{tmp _85hotwsCta0JfYIjI4Ox0}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ox$}# - (list #{args _85hotwsCta0JfYIjI4Owa}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMOB}# + (list #{args _hoQGWMnyQPAh3k2jhWMMd}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4OyA}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMOD}#) (if (symbol? - #{r _85hotwsCta0JfYIjI4OyA}#) + #{r _hoQGWMnyQPAh3k2jhWMOD}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4OyA}#) + #{r _hoQGWMnyQPAh3k2jhWMOD}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4OyA}#) + #{r _hoQGWMnyQPAh3k2jhWMOD}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4OyA}# + #{r _hoQGWMnyQPAh3k2jhWMOD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4OyA}# + #{r _hoQGWMnyQPAh3k2jhWMOD}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ox$}#) + #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4Oye}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4Oye}# - #{req _85hotwsCta0JfYIjI4Owb}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWMOh}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMOh}# + #{req _hoQGWMnyQPAh3k2jhWMMe}# (reverse - #{ropt _85hotwsCta0JfYIjI4Owc}#) + #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) '())) - #{tmp _85hotwsCta0JfYIjI4Ox$}#) + #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4Owa}#))))))))))))))) - (#{key _85hotwsCta0JfYIjI4OuZ}# - (lambda (#{args _85hotwsCta0JfYIjI4Oyx}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# - #{rkey _85hotwsCta0JfYIjI4Oy0}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oy2}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMMd}#))))))))))))))) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMO0}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO5}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4Oy2}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMO5}# (@apply (lambda () - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# #f (cons #f - (reverse #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4Oy2}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oy8}# + (reverse #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMO5}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO@}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Oy8}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMO@}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4OzA}# - #{b _85hotwsCta0JfYIjI4OzB}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4OzA}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMPD}# + #{b _hoQGWMnyQPAh3k2jhWMPE}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPD}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4OzA}#) + #{a _hoQGWMnyQPAh3k2jhWMPD}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4OzA}#) + #{a _hoQGWMnyQPAh3k2jhWMPD}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4OzA}# + #{a _hoQGWMnyQPAh3k2jhWMPD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4OzA}# + #{a _hoQGWMnyQPAh3k2jhWMPD}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Oy8}#) + #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ozc}# - #{b _85hotwsCta0JfYIjI4Ozd}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Oze}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMPf}# + #{b _hoQGWMnyQPAh3k2jhWMPg}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPh}# (symbol->keyword (syntax->datum - #{a _85hotwsCta0JfYIjI4Ozc}#)))) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4Ozd}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# - (cons (cons #{tmp _85hotwsCta0JfYIjI4Oze}# - (cons #{a _85hotwsCta0JfYIjI4Ozc}# + #{a _hoQGWMnyQPAh3k2jhWMPf}#)))) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMPg}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (cons (cons #{tmp _hoQGWMnyQPAh3k2jhWMPh}# + (cons #{a _hoQGWMnyQPAh3k2jhWMPf}# '(#(syntax-object #f ((top) @@ -8073,916 +8073,916 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile))))) - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4Oy8}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ozh}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPk}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '((any any) . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Ozh}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMPk}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4Ozl}# - #{init _85hotwsCta0JfYIjI4Ozm}# - #{b _85hotwsCta0JfYIjI4Ozn}#) - (if (symbol? #{a _85hotwsCta0JfYIjI4Ozl}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMPo}# + #{init _hoQGWMnyQPAh3k2jhWMPp}# + #{b _hoQGWMnyQPAh3k2jhWMPq}#) + (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPo}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4Ozl}#) + #{a _hoQGWMnyQPAh3k2jhWMPo}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4Ozl}#) + #{a _hoQGWMnyQPAh3k2jhWMPo}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4Ozl}# + #{a _hoQGWMnyQPAh3k2jhWMPo}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4Ozl}# + #{a _hoQGWMnyQPAh3k2jhWMPo}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4Ozh}#) + #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O0C}# - #{init _85hotwsCta0JfYIjI4O0D}# - #{b _85hotwsCta0JfYIjI4O0E}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O0F}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMQF}# + #{init _hoQGWMnyQPAh3k2jhWMQG}# + #{b _hoQGWMnyQPAh3k2jhWMQH}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQI}# (symbol->keyword (syntax->datum - #{a _85hotwsCta0JfYIjI4O0C}#)))) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4O0E}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# - (cons (list #{tmp _85hotwsCta0JfYIjI4O0F}# - #{a _85hotwsCta0JfYIjI4O0C}# - #{init _85hotwsCta0JfYIjI4O0D}#) - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4Ozh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O0I}# + #{a _hoQGWMnyQPAh3k2jhWMQF}#)))) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMQH}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (cons (list #{tmp _hoQGWMnyQPAh3k2jhWMQI}# + #{a _hoQGWMnyQPAh3k2jhWMQF}# + #{init _hoQGWMnyQPAh3k2jhWMQG}#) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQL}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '((any any any) . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O0I}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQL}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O0M}# - #{init _85hotwsCta0JfYIjI4O0N}# - #{k _85hotwsCta0JfYIjI4O0O}# - #{b _85hotwsCta0JfYIjI4O0P}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMQP}# + #{init _hoQGWMnyQPAh3k2jhWMQQ}# + #{k _hoQGWMnyQPAh3k2jhWMQR}# + #{b _hoQGWMnyQPAh3k2jhWMQS}#) (if (if (symbol? - #{a _85hotwsCta0JfYIjI4O0M}#) + #{a _hoQGWMnyQPAh3k2jhWMQP}#) #t (if (if (vector? - #{a _85hotwsCta0JfYIjI4O0M}#) + #{a _hoQGWMnyQPAh3k2jhWMQP}#) (if (= (vector-length - #{a _85hotwsCta0JfYIjI4O0M}#) + #{a _hoQGWMnyQPAh3k2jhWMQP}#) 4) (eq? (vector-ref - #{a _85hotwsCta0JfYIjI4O0M}# + #{a _hoQGWMnyQPAh3k2jhWMQP}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _85hotwsCta0JfYIjI4O0M}# + #{a _hoQGWMnyQPAh3k2jhWMQP}# 1)) #f)) (keyword? (syntax->datum - #{k _85hotwsCta0JfYIjI4O0O}#)) + #{k _hoQGWMnyQPAh3k2jhWMQR}#)) #f)) - #{tmp _85hotwsCta0JfYIjI4O0I}#) + #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O0q}# - #{init _85hotwsCta0JfYIjI4O0r}# - #{k _85hotwsCta0JfYIjI4O0s}# - #{b _85hotwsCta0JfYIjI4O0t}#) - (#{key _85hotwsCta0JfYIjI4OuZ}# - #{b _85hotwsCta0JfYIjI4O0t}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# - (cons (list #{k _85hotwsCta0JfYIjI4O0s}# - #{a _85hotwsCta0JfYIjI4O0q}# - #{init _85hotwsCta0JfYIjI4O0r}#) - #{rkey _85hotwsCta0JfYIjI4Oy0}#))) - #{tmp _85hotwsCta0JfYIjI4O0I}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O0u}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMQt}# + #{init _hoQGWMnyQPAh3k2jhWMQu}# + #{k _hoQGWMnyQPAh3k2jhWMQv}# + #{b _hoQGWMnyQPAh3k2jhWMQw}#) + (#{key _hoQGWMnyQPAh3k2jhWMKc}# + #{b _hoQGWMnyQPAh3k2jhWMQw}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (cons (list #{k _hoQGWMnyQPAh3k2jhWMQv}# + #{a _hoQGWMnyQPAh3k2jhWMQt}# + #{init _hoQGWMnyQPAh3k2jhWMQu}#) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQx}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O0u}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQx}# (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O0y}#) + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ1}#) (eq? (syntax->datum - #{aok _85hotwsCta0JfYIjI4O0y}#) + #{aok _hoQGWMnyQPAh3k2jhWMQ1}#) #:allow-other-keys)) - #{tmp _85hotwsCta0JfYIjI4O0u}#) + #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) #f) (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O0z}#) - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ2}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# #f (cons #t (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O0u}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O02}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQ5}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O02}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQ5}# (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O06}# - #{a _85hotwsCta0JfYIjI4O07}# - #{b _85hotwsCta0JfYIjI4O08}#) + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ9}# + #{a _hoQGWMnyQPAh3k2jhWMQ$}# + #{b _hoQGWMnyQPAh3k2jhWMQ@}#) (if (eq? (syntax->datum - #{aok _85hotwsCta0JfYIjI4O06}#) + #{aok _hoQGWMnyQPAh3k2jhWMQ9}#) #:allow-other-keys) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4O07}#) + #{a _hoQGWMnyQPAh3k2jhWMQ$}#) #:rest) #f)) - #{tmp _85hotwsCta0JfYIjI4O02}#) + #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) #f) (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O09}# - #{a _85hotwsCta0JfYIjI4O0$}# - #{b _85hotwsCta0JfYIjI4O0@}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4O0@}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRA}# + #{a _hoQGWMnyQPAh3k2jhWMRB}# + #{b _hoQGWMnyQPAh3k2jhWMRC}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMRC}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #t (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O02}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O1C}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRF}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O1C}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRF}# (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O1G}# - #{r _85hotwsCta0JfYIjI4O1H}#) + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRJ}# + #{r _hoQGWMnyQPAh3k2jhWMRK}#) (if (eq? (syntax->datum - #{aok _85hotwsCta0JfYIjI4O1G}#) + #{aok _hoQGWMnyQPAh3k2jhWMRJ}#) #:allow-other-keys) (if (symbol? - #{r _85hotwsCta0JfYIjI4O1H}#) + #{r _hoQGWMnyQPAh3k2jhWMRK}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4O1H}#) + #{r _hoQGWMnyQPAh3k2jhWMRK}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4O1H}#) + #{r _hoQGWMnyQPAh3k2jhWMRK}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4O1H}# + #{r _hoQGWMnyQPAh3k2jhWMRK}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4O1H}# + #{r _hoQGWMnyQPAh3k2jhWMRK}# 1)) #f)) #f)) - #{tmp _85hotwsCta0JfYIjI4O1C}#) + #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) #f) (@apply - (lambda (#{aok _85hotwsCta0JfYIjI4O1i}# - #{r _85hotwsCta0JfYIjI4O1j}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4O1j}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRl}# + #{r _hoQGWMnyQPAh3k2jhWMRm}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMRm}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #t (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O1C}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O1m}# + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRp}# ($sc-dispatch - #{args _85hotwsCta0JfYIjI4Oyx}# + #{args _hoQGWMnyQPAh3k2jhWMO0}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4O1m}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRp}# (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O1q}# - #{b _85hotwsCta0JfYIjI4O1r}#) + (lambda (#{a _hoQGWMnyQPAh3k2jhWMRt}# + #{b _hoQGWMnyQPAh3k2jhWMRu}#) (eq? (syntax->datum - #{a _85hotwsCta0JfYIjI4O1q}#) + #{a _hoQGWMnyQPAh3k2jhWMRt}#) #:rest)) - #{tmp _85hotwsCta0JfYIjI4O1m}#) + #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) #f) (@apply - (lambda (#{a _85hotwsCta0JfYIjI4O1s}# - #{b _85hotwsCta0JfYIjI4O1t}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{b _85hotwsCta0JfYIjI4O1t}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{a _hoQGWMnyQPAh3k2jhWMRv}# + #{b _hoQGWMnyQPAh3k2jhWMRw}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{b _hoQGWMnyQPAh3k2jhWMRw}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #f (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O1m}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O1w}# - (list #{args _85hotwsCta0JfYIjI4Oyx}#))) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRz}# + (list #{args _hoQGWMnyQPAh3k2jhWMO0}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O1y}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMR1}#) (if (symbol? - #{r _85hotwsCta0JfYIjI4O1y}#) + #{r _hoQGWMnyQPAh3k2jhWMR1}#) #t (if (if (vector? - #{r _85hotwsCta0JfYIjI4O1y}#) + #{r _hoQGWMnyQPAh3k2jhWMR1}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4O1y}#) + #{r _hoQGWMnyQPAh3k2jhWMR1}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4O1y}# + #{r _hoQGWMnyQPAh3k2jhWMR1}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _85hotwsCta0JfYIjI4O1y}# + #{r _hoQGWMnyQPAh3k2jhWMR1}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4O1w}#) + #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O2Q}#) - (#{rest _85hotwsCta0JfYIjI4Oua}# - #{r _85hotwsCta0JfYIjI4O2Q}# - #{req _85hotwsCta0JfYIjI4Oyy}# - #{opt _85hotwsCta0JfYIjI4Oyz}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWMST}#) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + #{r _hoQGWMnyQPAh3k2jhWMST}# + #{req _hoQGWMnyQPAh3k2jhWMO1}# + #{opt _hoQGWMnyQPAh3k2jhWMO2}# (cons #f (reverse - #{rkey _85hotwsCta0JfYIjI4Oy0}#)))) - #{tmp _85hotwsCta0JfYIjI4O1w}#) + #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4Oyx}#))))))))))))))))))))) - (#{rest _85hotwsCta0JfYIjI4Oua}# - (lambda (#{args _85hotwsCta0JfYIjI4O2s}# - #{req _85hotwsCta0JfYIjI4O2t}# - #{opt _85hotwsCta0JfYIjI4O2u}# - #{kw _85hotwsCta0JfYIjI4O2v}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O2x}# - (list #{args _85hotwsCta0JfYIjI4O2s}#))) + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMO0}#))))))))))))))))))))) + (#{rest _hoQGWMnyQPAh3k2jhWMKd}# + (lambda (#{args _hoQGWMnyQPAh3k2jhWMSv}# + #{req _hoQGWMnyQPAh3k2jhWMSw}# + #{opt _hoQGWMnyQPAh3k2jhWMSx}# + #{kw _hoQGWMnyQPAh3k2jhWMSy}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMS0}# + (list #{args _hoQGWMnyQPAh3k2jhWMSv}#))) (if (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O2z}#) - (if (symbol? #{r _85hotwsCta0JfYIjI4O2z}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMS2}#) + (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMS2}#) #t - (if (if (vector? #{r _85hotwsCta0JfYIjI4O2z}#) + (if (if (vector? #{r _hoQGWMnyQPAh3k2jhWMS2}#) (if (= (vector-length - #{r _85hotwsCta0JfYIjI4O2z}#) + #{r _hoQGWMnyQPAh3k2jhWMS2}#) 4) (eq? (vector-ref - #{r _85hotwsCta0JfYIjI4O2z}# + #{r _hoQGWMnyQPAh3k2jhWMS2}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r _85hotwsCta0JfYIjI4O2z}# 1)) + (vector-ref #{r _hoQGWMnyQPAh3k2jhWMS2}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4O2x}#) + #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) (@apply - (lambda (#{r _85hotwsCta0JfYIjI4O3R}#) - (#{check _85hotwsCta0JfYIjI4Oub}# - #{req _85hotwsCta0JfYIjI4O2t}# - #{opt _85hotwsCta0JfYIjI4O2u}# - #{r _85hotwsCta0JfYIjI4O3R}# - #{kw _85hotwsCta0JfYIjI4O2v}#)) - #{tmp _85hotwsCta0JfYIjI4O2x}#) + (lambda (#{r _hoQGWMnyQPAh3k2jhWMTU}#) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + #{req _hoQGWMnyQPAh3k2jhWMSw}# + #{opt _hoQGWMnyQPAh3k2jhWMSx}# + #{r _hoQGWMnyQPAh3k2jhWMTU}# + #{kw _hoQGWMnyQPAh3k2jhWMSy}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args _85hotwsCta0JfYIjI4OuW}# - #{args _85hotwsCta0JfYIjI4O2s}#))))) - (#{check _85hotwsCta0JfYIjI4Oub}# - (lambda (#{req _85hotwsCta0JfYIjI4O3V}# - #{opt _85hotwsCta0JfYIjI4O3W}# - #{rest _85hotwsCta0JfYIjI4O3X}# - #{kw _85hotwsCta0JfYIjI4O3Y}#) - (if (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{args _hoQGWMnyQPAh3k2jhWMSv}#))))) + (#{check _hoQGWMnyQPAh3k2jhWMKe}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMTY}# + #{opt _hoQGWMnyQPAh3k2jhWMTZ}# + #{rest _hoQGWMnyQPAh3k2jhWMTa}# + #{kw _hoQGWMnyQPAh3k2jhWMTb}#) + (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# (append - #{req _85hotwsCta0JfYIjI4O3V}# - (map car #{opt _85hotwsCta0JfYIjI4O3W}#) - (if #{rest _85hotwsCta0JfYIjI4O3X}# - (list #{rest _85hotwsCta0JfYIjI4O3X}#) + #{req _hoQGWMnyQPAh3k2jhWMTY}# + (map car #{opt _hoQGWMnyQPAh3k2jhWMTZ}#) + (if #{rest _hoQGWMnyQPAh3k2jhWMTa}# + (list #{rest _hoQGWMnyQPAh3k2jhWMTa}#) '()) - (if (pair? #{kw _85hotwsCta0JfYIjI4O3Y}#) - (map cadr (cdr #{kw _85hotwsCta0JfYIjI4O3Y}#)) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMTb}#) + (map cadr (cdr #{kw _hoQGWMnyQPAh3k2jhWMTb}#)) '()))) (values - #{req _85hotwsCta0JfYIjI4O3V}# - #{opt _85hotwsCta0JfYIjI4O3W}# - #{rest _85hotwsCta0JfYIjI4O3X}# - #{kw _85hotwsCta0JfYIjI4O3Y}#) + #{req _hoQGWMnyQPAh3k2jhWMTY}# + #{opt _hoQGWMnyQPAh3k2jhWMTZ}# + #{rest _hoQGWMnyQPAh3k2jhWMTa}# + #{kw _hoQGWMnyQPAh3k2jhWMTb}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args _85hotwsCta0JfYIjI4OuW}#))))) - (#{req _85hotwsCta0JfYIjI4OuX}# - #{orig-args _85hotwsCta0JfYIjI4OuW}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#))))) + (#{req _hoQGWMnyQPAh3k2jhWMKa}# + #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# '())))) - (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}# - (lambda (#{e _85hotwsCta0JfYIjI4O5M}# - #{r _85hotwsCta0JfYIjI4O5N}# - #{w _85hotwsCta0JfYIjI4O5O}# - #{s _85hotwsCta0JfYIjI4O5P}# - #{mod _85hotwsCta0JfYIjI4O5Q}# - #{get-formals _85hotwsCta0JfYIjI4O5R}# - #{clauses _85hotwsCta0JfYIjI4O5S}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWMVP}# + #{r _hoQGWMnyQPAh3k2jhWMVQ}# + #{w _hoQGWMnyQPAh3k2jhWMVR}# + #{s _hoQGWMnyQPAh3k2jhWMVS}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}# + #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}#) (letrec* - ((#{parse-req _85hotwsCta0JfYIjI4O5T}# - (lambda (#{req _85hotwsCta0JfYIjI4O7S}# - #{opt _85hotwsCta0JfYIjI4O7T}# - #{rest _85hotwsCta0JfYIjI4O7U}# - #{kw _85hotwsCta0JfYIjI4O7V}# - #{body _85hotwsCta0JfYIjI4O7W}#) - (let ((#{vars _85hotwsCta0JfYIjI4O7X}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{req _85hotwsCta0JfYIjI4O7S}#)) - (#{labels _85hotwsCta0JfYIjI4O7Y}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{req _85hotwsCta0JfYIjI4O7S}#))) - (let ((#{r* _85hotwsCta0JfYIjI4O7Z}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{labels _85hotwsCta0JfYIjI4O7Y}# - #{vars _85hotwsCta0JfYIjI4O7X}# - #{r _85hotwsCta0JfYIjI4O5N}#)) - (#{w* _85hotwsCta0JfYIjI4O7a}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{req _85hotwsCta0JfYIjI4O7S}# - #{labels _85hotwsCta0JfYIjI4O7Y}# - #{w _85hotwsCta0JfYIjI4O5O}#))) - (#{parse-opt _85hotwsCta0JfYIjI4O5U}# + ((#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMXV}# + #{opt _hoQGWMnyQPAh3k2jhWMXW}# + #{rest _hoQGWMnyQPAh3k2jhWMXX}# + #{kw _hoQGWMnyQPAh3k2jhWMXY}# + #{body _hoQGWMnyQPAh3k2jhWMXZ}#) + (let ((#{vars _hoQGWMnyQPAh3k2jhWMXa}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{req _hoQGWMnyQPAh3k2jhWMXV}#)) + (#{labels _hoQGWMnyQPAh3k2jhWMXb}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{req _hoQGWMnyQPAh3k2jhWMXV}#))) + (let ((#{r* _hoQGWMnyQPAh3k2jhWMXc}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWMXb}# + #{vars _hoQGWMnyQPAh3k2jhWMXa}# + #{r _hoQGWMnyQPAh3k2jhWMVQ}#)) + (#{w* _hoQGWMnyQPAh3k2jhWMXd}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{req _hoQGWMnyQPAh3k2jhWMXV}# + #{labels _hoQGWMnyQPAh3k2jhWMXb}# + #{w _hoQGWMnyQPAh3k2jhWMVR}#))) + (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# (map syntax->datum - #{req _85hotwsCta0JfYIjI4O7S}#) - #{opt _85hotwsCta0JfYIjI4O7T}# - #{rest _85hotwsCta0JfYIjI4O7U}# - #{kw _85hotwsCta0JfYIjI4O7V}# - #{body _85hotwsCta0JfYIjI4O7W}# - (reverse #{vars _85hotwsCta0JfYIjI4O7X}#) - #{r* _85hotwsCta0JfYIjI4O7Z}# - #{w* _85hotwsCta0JfYIjI4O7a}# + #{req _hoQGWMnyQPAh3k2jhWMXV}#) + #{opt _hoQGWMnyQPAh3k2jhWMXW}# + #{rest _hoQGWMnyQPAh3k2jhWMXX}# + #{kw _hoQGWMnyQPAh3k2jhWMXY}# + #{body _hoQGWMnyQPAh3k2jhWMXZ}# + (reverse #{vars _hoQGWMnyQPAh3k2jhWMXa}#) + #{r* _hoQGWMnyQPAh3k2jhWMXc}# + #{w* _hoQGWMnyQPAh3k2jhWMXd}# '() '()))))) - (#{parse-opt _85hotwsCta0JfYIjI4O5U}# - (lambda (#{req _85hotwsCta0JfYIjI4O$K}# - #{opt _85hotwsCta0JfYIjI4O$L}# - #{rest _85hotwsCta0JfYIjI4O$M}# - #{kw _85hotwsCta0JfYIjI4O$N}# - #{body _85hotwsCta0JfYIjI4O$O}# - #{vars _85hotwsCta0JfYIjI4O$P}# - #{r* _85hotwsCta0JfYIjI4O$Q}# - #{w* _85hotwsCta0JfYIjI4O$R}# - #{out _85hotwsCta0JfYIjI4O$S}# - #{inits _85hotwsCta0JfYIjI4O$T}#) - (if (pair? #{opt _85hotwsCta0JfYIjI4O$L}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O$U}# - (car #{opt _85hotwsCta0JfYIjI4O$L}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4O$V}# + (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMaN}# + #{opt _hoQGWMnyQPAh3k2jhWMaO}# + #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{kw _hoQGWMnyQPAh3k2jhWMaQ}# + #{body _hoQGWMnyQPAh3k2jhWMaR}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}# + #{r* _hoQGWMnyQPAh3k2jhWMaT}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}# + #{out _hoQGWMnyQPAh3k2jhWMaV}# + #{inits _hoQGWMnyQPAh3k2jhWMaW}#) + (if (pair? #{opt _hoQGWMnyQPAh3k2jhWMaO}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaX}# + (car #{opt _hoQGWMnyQPAh3k2jhWMaO}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaY}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4O$U}# + #{tmp _hoQGWMnyQPAh3k2jhWMaX}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4O$V}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMaY}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4O$X}# - #{i _85hotwsCta0JfYIjI4O$Y}#) - (let ((#{v _85hotwsCta0JfYIjI4O$Z}# - (let ((#{id _85hotwsCta0JfYIjI4O$h}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWMaa}# + #{i _hoQGWMnyQPAh3k2jhWMab}#) + (let ((#{v _hoQGWMnyQPAh3k2jhWMac}# + (let ((#{id _hoQGWMnyQPAh3k2jhWMak}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4O$X}#) + #{id _hoQGWMnyQPAh3k2jhWMaa}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4O$X}#) + #{id _hoQGWMnyQPAh3k2jhWMaa}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4O$X}# + #{id _hoQGWMnyQPAh3k2jhWMaa}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4O$X}# + #{id _hoQGWMnyQPAh3k2jhWMaa}# 1) - #{id _85hotwsCta0JfYIjI4O$X}#))) + #{id _hoQGWMnyQPAh3k2jhWMaa}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4O$h}#) + #{id _hoQGWMnyQPAh3k2jhWMak}#) " "))))) - (let ((#{l _85hotwsCta0JfYIjI4O$a}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - (list #{v _85hotwsCta0JfYIjI4O$Z}#)))) - (let ((#{r** _85hotwsCta0JfYIjI4O$b}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{l _85hotwsCta0JfYIjI4O$a}# - (list #{v _85hotwsCta0JfYIjI4O$Z}#) - #{r* _85hotwsCta0JfYIjI4O$Q}#))) - (let ((#{w** _85hotwsCta0JfYIjI4O$c}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - (list #{id _85hotwsCta0JfYIjI4O$X}#) - #{l _85hotwsCta0JfYIjI4O$a}# - #{w* _85hotwsCta0JfYIjI4O$R}#))) - (#{parse-opt _85hotwsCta0JfYIjI4O5U}# - #{req _85hotwsCta0JfYIjI4O$K}# - (cdr #{opt _85hotwsCta0JfYIjI4O$L}#) - #{rest _85hotwsCta0JfYIjI4O$M}# - #{kw _85hotwsCta0JfYIjI4O$N}# - #{body _85hotwsCta0JfYIjI4O$O}# - (cons #{v _85hotwsCta0JfYIjI4O$Z}# - #{vars _85hotwsCta0JfYIjI4O$P}#) - #{r** _85hotwsCta0JfYIjI4O$b}# - #{w** _85hotwsCta0JfYIjI4O$c}# + (let ((#{l _hoQGWMnyQPAh3k2jhWMad}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (list #{v _hoQGWMnyQPAh3k2jhWMac}#)))) + (let ((#{r** _hoQGWMnyQPAh3k2jhWMae}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{l _hoQGWMnyQPAh3k2jhWMad}# + (list #{v _hoQGWMnyQPAh3k2jhWMac}#) + #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) + (let ((#{w** _hoQGWMnyQPAh3k2jhWMaf}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{l _hoQGWMnyQPAh3k2jhWMad}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) + (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# + #{req _hoQGWMnyQPAh3k2jhWMaN}# + (cdr #{opt _hoQGWMnyQPAh3k2jhWMaO}#) + #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{kw _hoQGWMnyQPAh3k2jhWMaQ}# + #{body _hoQGWMnyQPAh3k2jhWMaR}# + (cons #{v _hoQGWMnyQPAh3k2jhWMac}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}#) + #{r** _hoQGWMnyQPAh3k2jhWMae}# + #{w** _hoQGWMnyQPAh3k2jhWMaf}# (cons (syntax->datum - #{id _85hotwsCta0JfYIjI4O$X}#) - #{out _85hotwsCta0JfYIjI4O$S}#) - (cons (#{expand _85hotwsCta0JfYIjI4J4L}# - #{i _85hotwsCta0JfYIjI4O$Y}# - #{r* _85hotwsCta0JfYIjI4O$Q}# - #{w* _85hotwsCta0JfYIjI4O$R}# - #{mod _85hotwsCta0JfYIjI4O5Q}#) - #{inits _85hotwsCta0JfYIjI4O$T}#))))))) - #{tmp _85hotwsCta0JfYIjI4O$V}#) + #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{i _hoQGWMnyQPAh3k2jhWMab}# + #{r* _hoQGWMnyQPAh3k2jhWMaT}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#) + #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWMaY}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4O$U}#)))) - (if #{rest _85hotwsCta0JfYIjI4O$M}# - (let ((#{v _85hotwsCta0JfYIjI4PCG}# - (let ((#{id _85hotwsCta0JfYIjI4PCQ}# + #{tmp _hoQGWMnyQPAh3k2jhWMaX}#)))) + (if #{rest _hoQGWMnyQPAh3k2jhWMaP}# + (let ((#{v _hoQGWMnyQPAh3k2jhWMeJ}# + (let ((#{id _hoQGWMnyQPAh3k2jhWMeT}# (if (if (vector? - #{rest _85hotwsCta0JfYIjI4O$M}#) + #{rest _hoQGWMnyQPAh3k2jhWMaP}#) (if (= (vector-length - #{rest _85hotwsCta0JfYIjI4O$M}#) + #{rest _hoQGWMnyQPAh3k2jhWMaP}#) 4) (eq? (vector-ref - #{rest _85hotwsCta0JfYIjI4O$M}# + #{rest _hoQGWMnyQPAh3k2jhWMaP}# 0) 'syntax-object) #f) #f) (vector-ref - #{rest _85hotwsCta0JfYIjI4O$M}# + #{rest _hoQGWMnyQPAh3k2jhWMaP}# 1) - #{rest _85hotwsCta0JfYIjI4O$M}#))) + #{rest _hoQGWMnyQPAh3k2jhWMaP}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4PCQ}#) + #{id _hoQGWMnyQPAh3k2jhWMeT}#) " "))))) - (let ((#{l _85hotwsCta0JfYIjI4PCH}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - (list #{v _85hotwsCta0JfYIjI4PCG}#)))) - (let ((#{r* _85hotwsCta0JfYIjI4PCI}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{l _85hotwsCta0JfYIjI4PCH}# - (list #{v _85hotwsCta0JfYIjI4PCG}#) - #{r* _85hotwsCta0JfYIjI4O$Q}#))) - (let ((#{w* _85hotwsCta0JfYIjI4PCJ}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - (list #{rest _85hotwsCta0JfYIjI4O$M}#) - #{l _85hotwsCta0JfYIjI4PCH}# - #{w* _85hotwsCta0JfYIjI4O$R}#))) - (#{parse-kw _85hotwsCta0JfYIjI4O5V}# - #{req _85hotwsCta0JfYIjI4O$K}# - (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#) - (reverse #{out _85hotwsCta0JfYIjI4O$S}#) + (let ((#{l _hoQGWMnyQPAh3k2jhWMeK}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#)))) + (let ((#{r* _hoQGWMnyQPAh3k2jhWMeL}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{l _hoQGWMnyQPAh3k2jhWMeK}# + (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#) + #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) + (let ((#{w* _hoQGWMnyQPAh3k2jhWMeM}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + #{l _hoQGWMnyQPAh3k2jhWMeK}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + #{req _hoQGWMnyQPAh3k2jhWMaN}# + (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) #f) - (syntax->datum #{rest _85hotwsCta0JfYIjI4O$M}#) - (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#) - (cdr #{kw _85hotwsCta0JfYIjI4O$N}#) - #{kw _85hotwsCta0JfYIjI4O$N}#) - #{body _85hotwsCta0JfYIjI4O$O}# - (cons #{v _85hotwsCta0JfYIjI4PCG}# - #{vars _85hotwsCta0JfYIjI4O$P}#) - #{r* _85hotwsCta0JfYIjI4PCI}# - #{w* _85hotwsCta0JfYIjI4PCJ}# - (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#) - (car #{kw _85hotwsCta0JfYIjI4O$N}#) + (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{body _hoQGWMnyQPAh3k2jhWMaR}# + (cons #{v _hoQGWMnyQPAh3k2jhWMeJ}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}#) + #{r* _hoQGWMnyQPAh3k2jhWMeL}# + #{w* _hoQGWMnyQPAh3k2jhWMeM}# + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) #f) '() - #{inits _85hotwsCta0JfYIjI4O$T}#))))) - (#{parse-kw _85hotwsCta0JfYIjI4O5V}# - #{req _85hotwsCta0JfYIjI4O$K}# - (if (pair? #{out _85hotwsCta0JfYIjI4O$S}#) - (reverse #{out _85hotwsCta0JfYIjI4O$S}#) + #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + #{req _hoQGWMnyQPAh3k2jhWMaN}# + (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) #f) #f - (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#) - (cdr #{kw _85hotwsCta0JfYIjI4O$N}#) - #{kw _85hotwsCta0JfYIjI4O$N}#) - #{body _85hotwsCta0JfYIjI4O$O}# - #{vars _85hotwsCta0JfYIjI4O$P}# - #{r* _85hotwsCta0JfYIjI4O$Q}# - #{w* _85hotwsCta0JfYIjI4O$R}# - (if (pair? #{kw _85hotwsCta0JfYIjI4O$N}#) - (car #{kw _85hotwsCta0JfYIjI4O$N}#) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + #{body _hoQGWMnyQPAh3k2jhWMaR}# + #{vars _hoQGWMnyQPAh3k2jhWMaS}# + #{r* _hoQGWMnyQPAh3k2jhWMaT}# + #{w* _hoQGWMnyQPAh3k2jhWMaU}# + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) #f) '() - #{inits _85hotwsCta0JfYIjI4O$T}#))))) - (#{parse-kw _85hotwsCta0JfYIjI4O5V}# - (lambda (#{req _85hotwsCta0JfYIjI4PEy}# - #{opt _85hotwsCta0JfYIjI4PEz}# - #{rest _85hotwsCta0JfYIjI4PE0}# - #{kw _85hotwsCta0JfYIjI4PE1}# - #{body _85hotwsCta0JfYIjI4PE2}# - #{vars _85hotwsCta0JfYIjI4PE3}# - #{r* _85hotwsCta0JfYIjI4PE4}# - #{w* _85hotwsCta0JfYIjI4PE5}# - #{aok _85hotwsCta0JfYIjI4PE6}# - #{out _85hotwsCta0JfYIjI4PE7}# - #{inits _85hotwsCta0JfYIjI4PE8}#) - (if (pair? #{kw _85hotwsCta0JfYIjI4PE1}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PE9}# - (car #{kw _85hotwsCta0JfYIjI4PE1}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PE$}# + #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMg1}# + #{opt _hoQGWMnyQPAh3k2jhWMg2}# + #{rest _hoQGWMnyQPAh3k2jhWMg3}# + #{kw _hoQGWMnyQPAh3k2jhWMg4}# + #{body _hoQGWMnyQPAh3k2jhWMg5}# + #{vars _hoQGWMnyQPAh3k2jhWMg6}# + #{r* _hoQGWMnyQPAh3k2jhWMg7}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}# + #{aok _hoQGWMnyQPAh3k2jhWMg9}# + #{out _hoQGWMnyQPAh3k2jhWMg$}# + #{inits _hoQGWMnyQPAh3k2jhWMg@}#) + (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMg4}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhA}# + (car #{kw _hoQGWMnyQPAh3k2jhWMg4}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhB}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PE9}# + #{tmp _hoQGWMnyQPAh3k2jhWMhA}# '(any any any)))) - (if #{tmp _85hotwsCta0JfYIjI4PE$}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMhB}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PFA}# - #{id _85hotwsCta0JfYIjI4PFB}# - #{i _85hotwsCta0JfYIjI4PFC}#) - (let ((#{v _85hotwsCta0JfYIjI4PFD}# - (let ((#{id _85hotwsCta0JfYIjI4PFL}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWMhD}# + #{id _hoQGWMnyQPAh3k2jhWMhE}# + #{i _hoQGWMnyQPAh3k2jhWMhF}#) + (let ((#{v _hoQGWMnyQPAh3k2jhWMhG}# + (let ((#{id _hoQGWMnyQPAh3k2jhWMhO}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4PFB}#) + #{id _hoQGWMnyQPAh3k2jhWMhE}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4PFB}#) + #{id _hoQGWMnyQPAh3k2jhWMhE}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4PFB}# + #{id _hoQGWMnyQPAh3k2jhWMhE}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4PFB}# + #{id _hoQGWMnyQPAh3k2jhWMhE}# 1) - #{id _85hotwsCta0JfYIjI4PFB}#))) + #{id _hoQGWMnyQPAh3k2jhWMhE}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4PFL}#) + #{id _hoQGWMnyQPAh3k2jhWMhO}#) " "))))) - (let ((#{l _85hotwsCta0JfYIjI4PFE}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - (list #{v _85hotwsCta0JfYIjI4PFD}#)))) - (let ((#{r** _85hotwsCta0JfYIjI4PFF}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{l _85hotwsCta0JfYIjI4PFE}# - (list #{v _85hotwsCta0JfYIjI4PFD}#) - #{r* _85hotwsCta0JfYIjI4PE4}#))) - (let ((#{w** _85hotwsCta0JfYIjI4PFG}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - (list #{id _85hotwsCta0JfYIjI4PFB}#) - #{l _85hotwsCta0JfYIjI4PFE}# - #{w* _85hotwsCta0JfYIjI4PE5}#))) - (#{parse-kw _85hotwsCta0JfYIjI4O5V}# - #{req _85hotwsCta0JfYIjI4PEy}# - #{opt _85hotwsCta0JfYIjI4PEz}# - #{rest _85hotwsCta0JfYIjI4PE0}# - (cdr #{kw _85hotwsCta0JfYIjI4PE1}#) - #{body _85hotwsCta0JfYIjI4PE2}# - (cons #{v _85hotwsCta0JfYIjI4PFD}# - #{vars _85hotwsCta0JfYIjI4PE3}#) - #{r** _85hotwsCta0JfYIjI4PFF}# - #{w** _85hotwsCta0JfYIjI4PFG}# - #{aok _85hotwsCta0JfYIjI4PE6}# + (let ((#{l _hoQGWMnyQPAh3k2jhWMhH}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + (list #{v _hoQGWMnyQPAh3k2jhWMhG}#)))) + (let ((#{r** _hoQGWMnyQPAh3k2jhWMhI}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{l _hoQGWMnyQPAh3k2jhWMhH}# + (list #{v _hoQGWMnyQPAh3k2jhWMhG}#) + #{r* _hoQGWMnyQPAh3k2jhWMg7}#))) + (let ((#{w** _hoQGWMnyQPAh3k2jhWMhJ}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{l _hoQGWMnyQPAh3k2jhWMhH}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}#))) + (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# + #{req _hoQGWMnyQPAh3k2jhWMg1}# + #{opt _hoQGWMnyQPAh3k2jhWMg2}# + #{rest _hoQGWMnyQPAh3k2jhWMg3}# + (cdr #{kw _hoQGWMnyQPAh3k2jhWMg4}#) + #{body _hoQGWMnyQPAh3k2jhWMg5}# + (cons #{v _hoQGWMnyQPAh3k2jhWMhG}# + #{vars _hoQGWMnyQPAh3k2jhWMg6}#) + #{r** _hoQGWMnyQPAh3k2jhWMhI}# + #{w** _hoQGWMnyQPAh3k2jhWMhJ}# + #{aok _hoQGWMnyQPAh3k2jhWMg9}# (cons (list (syntax->datum - #{k _85hotwsCta0JfYIjI4PFA}#) + #{k _hoQGWMnyQPAh3k2jhWMhD}#) (syntax->datum - #{id _85hotwsCta0JfYIjI4PFB}#) - #{v _85hotwsCta0JfYIjI4PFD}#) - #{out _85hotwsCta0JfYIjI4PE7}#) - (cons (#{expand _85hotwsCta0JfYIjI4J4L}# - #{i _85hotwsCta0JfYIjI4PFC}# - #{r* _85hotwsCta0JfYIjI4PE4}# - #{w* _85hotwsCta0JfYIjI4PE5}# - #{mod _85hotwsCta0JfYIjI4O5Q}#) - #{inits _85hotwsCta0JfYIjI4PE8}#))))))) - #{tmp _85hotwsCta0JfYIjI4PE$}#) + #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{v _hoQGWMnyQPAh3k2jhWMhG}#) + #{out _hoQGWMnyQPAh3k2jhWMg$}#) + (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{i _hoQGWMnyQPAh3k2jhWMhF}# + #{r* _hoQGWMnyQPAh3k2jhWMg7}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#) + #{inits _hoQGWMnyQPAh3k2jhWMg@}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWMhB}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PE9}#)))) - (#{parse-body _85hotwsCta0JfYIjI4O5W}# - #{req _85hotwsCta0JfYIjI4PEy}# - #{opt _85hotwsCta0JfYIjI4PEz}# - #{rest _85hotwsCta0JfYIjI4PE0}# - (if (if #{aok _85hotwsCta0JfYIjI4PE6}# - #{aok _85hotwsCta0JfYIjI4PE6}# - (pair? #{out _85hotwsCta0JfYIjI4PE7}#)) - (cons #{aok _85hotwsCta0JfYIjI4PE6}# - (reverse #{out _85hotwsCta0JfYIjI4PE7}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMhA}#)))) + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + #{req _hoQGWMnyQPAh3k2jhWMg1}# + #{opt _hoQGWMnyQPAh3k2jhWMg2}# + #{rest _hoQGWMnyQPAh3k2jhWMg3}# + (if (if #{aok _hoQGWMnyQPAh3k2jhWMg9}# + #{aok _hoQGWMnyQPAh3k2jhWMg9}# + (pair? #{out _hoQGWMnyQPAh3k2jhWMg$}#)) + (cons #{aok _hoQGWMnyQPAh3k2jhWMg9}# + (reverse #{out _hoQGWMnyQPAh3k2jhWMg$}#)) #f) - #{body _85hotwsCta0JfYIjI4PE2}# - (reverse #{vars _85hotwsCta0JfYIjI4PE3}#) - #{r* _85hotwsCta0JfYIjI4PE4}# - #{w* _85hotwsCta0JfYIjI4PE5}# - (reverse #{inits _85hotwsCta0JfYIjI4PE8}#) + #{body _hoQGWMnyQPAh3k2jhWMg5}# + (reverse #{vars _hoQGWMnyQPAh3k2jhWMg6}#) + #{r* _hoQGWMnyQPAh3k2jhWMg7}# + #{w* _hoQGWMnyQPAh3k2jhWMg8}# + (reverse #{inits _hoQGWMnyQPAh3k2jhWMg@}#) '())))) - (#{parse-body _85hotwsCta0JfYIjI4O5W}# - (lambda (#{req _85hotwsCta0JfYIjI4PI5}# - #{opt _85hotwsCta0JfYIjI4PI6}# - #{rest _85hotwsCta0JfYIjI4PI7}# - #{kw _85hotwsCta0JfYIjI4PI8}# - #{body _85hotwsCta0JfYIjI4PI9}# - #{vars _85hotwsCta0JfYIjI4PI$}# - #{r* _85hotwsCta0JfYIjI4PI@}# - #{w* _85hotwsCta0JfYIjI4PJA}# - #{inits _85hotwsCta0JfYIjI4PJB}# - #{meta _85hotwsCta0JfYIjI4PJC}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PJE}# + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + (lambda (#{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlH}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4PI9}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# '(any any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PJE}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMlH}# (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4PJI}# - #{e1 _85hotwsCta0JfYIjI4PJJ}# - #{e2 _85hotwsCta0JfYIjI4PJK}#) + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlL}# + #{e1 _hoQGWMnyQPAh3k2jhWMlM}# + #{e2 _hoQGWMnyQPAh3k2jhWMlN}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PJI}#))) - #{tmp _85hotwsCta0JfYIjI4PJE}#) + #{docstring _hoQGWMnyQPAh3k2jhWMlL}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) #f) (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4PJL}# - #{e1 _85hotwsCta0JfYIjI4PJM}# - #{e2 _85hotwsCta0JfYIjI4PJN}#) - (#{parse-body _85hotwsCta0JfYIjI4O5W}# - #{req _85hotwsCta0JfYIjI4PI5}# - #{opt _85hotwsCta0JfYIjI4PI6}# - #{rest _85hotwsCta0JfYIjI4PI7}# - #{kw _85hotwsCta0JfYIjI4PI8}# - (cons #{e1 _85hotwsCta0JfYIjI4PJM}# - #{e2 _85hotwsCta0JfYIjI4PJN}#) - #{vars _85hotwsCta0JfYIjI4PI$}# - #{r* _85hotwsCta0JfYIjI4PI@}# - #{w* _85hotwsCta0JfYIjI4PJA}# - #{inits _85hotwsCta0JfYIjI4PJB}# + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlO}# + #{e1 _hoQGWMnyQPAh3k2jhWMlP}# + #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + #{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMlP}# + #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# (append - #{meta _85hotwsCta0JfYIjI4PJC}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}# (list (cons 'documentation (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PJL}#)))))) - #{tmp _85hotwsCta0JfYIjI4PJE}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PJO}# + #{docstring _hoQGWMnyQPAh3k2jhWMlO}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlR}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4PI9}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PJO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMlR}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PJS}# - #{v _85hotwsCta0JfYIjI4PJT}# - #{e1 _85hotwsCta0JfYIjI4PJU}# - #{e2 _85hotwsCta0JfYIjI4PJV}#) - (#{parse-body _85hotwsCta0JfYIjI4O5W}# - #{req _85hotwsCta0JfYIjI4PI5}# - #{opt _85hotwsCta0JfYIjI4PI6}# - #{rest _85hotwsCta0JfYIjI4PI7}# - #{kw _85hotwsCta0JfYIjI4PI8}# - (cons #{e1 _85hotwsCta0JfYIjI4PJU}# - #{e2 _85hotwsCta0JfYIjI4PJV}#) - #{vars _85hotwsCta0JfYIjI4PI$}# - #{r* _85hotwsCta0JfYIjI4PI@}# - #{w* _85hotwsCta0JfYIjI4PJA}# - #{inits _85hotwsCta0JfYIjI4PJB}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWMlV}# + #{v _hoQGWMnyQPAh3k2jhWMlW}# + #{e1 _hoQGWMnyQPAh3k2jhWMlX}# + #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) + (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# + #{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMlX}# + #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# (append - #{meta _85hotwsCta0JfYIjI4PJC}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}# (syntax->datum (map cons - #{k _85hotwsCta0JfYIjI4PJS}# - #{v _85hotwsCta0JfYIjI4PJT}#))))) - #{tmp _85hotwsCta0JfYIjI4PJO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PJW}# + #{k _hoQGWMnyQPAh3k2jhWMlV}# + #{v _hoQGWMnyQPAh3k2jhWMlW}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWMlR}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlZ}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4PI9}# + #{body _hoQGWMnyQPAh3k2jhWMlA}# '(any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PJW}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMlZ}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4PJa}# - #{e2 _85hotwsCta0JfYIjI4PJb}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMld}# + #{e2 _hoQGWMnyQPAh3k2jhWMle}#) (values - #{meta _85hotwsCta0JfYIjI4PJC}# - #{req _85hotwsCta0JfYIjI4PI5}# - #{opt _85hotwsCta0JfYIjI4PI6}# - #{rest _85hotwsCta0JfYIjI4PI7}# - #{kw _85hotwsCta0JfYIjI4PI8}# - #{inits _85hotwsCta0JfYIjI4PJB}# - #{vars _85hotwsCta0JfYIjI4PI$}# - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{e1 _85hotwsCta0JfYIjI4PJa}# - #{e2 _85hotwsCta0JfYIjI4PJb}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{meta _hoQGWMnyQPAh3k2jhWMlF}# + #{req _hoQGWMnyQPAh3k2jhWMk8}# + #{opt _hoQGWMnyQPAh3k2jhWMk9}# + #{rest _hoQGWMnyQPAh3k2jhWMk$}# + #{kw _hoQGWMnyQPAh3k2jhWMk@}# + #{inits _hoQGWMnyQPAh3k2jhWMlE}# + #{vars _hoQGWMnyQPAh3k2jhWMlB}# + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMld}# + #{e2 _hoQGWMnyQPAh3k2jhWMle}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4O5M}#) - #{s _85hotwsCta0JfYIjI4O5P}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMVP}#) + #{s _hoQGWMnyQPAh3k2jhWMVS}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4O5M}# - #{s _85hotwsCta0JfYIjI4O5P}#)) - #{e _85hotwsCta0JfYIjI4O5M}#) - #{w _85hotwsCta0JfYIjI4O5O}# - #{mod _85hotwsCta0JfYIjI4O5Q}#) - #{r* _85hotwsCta0JfYIjI4PI@}# - #{w* _85hotwsCta0JfYIjI4PJA}# - #{mod _85hotwsCta0JfYIjI4O5Q}#))) - #{tmp _85hotwsCta0JfYIjI4PJW}#) + #{e _hoQGWMnyQPAh3k2jhWMVP}# + #{s _hoQGWMnyQPAh3k2jhWMVS}#)) + #{e _hoQGWMnyQPAh3k2jhWMVP}#) + #{w _hoQGWMnyQPAh3k2jhWMVR}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#) + #{r* _hoQGWMnyQPAh3k2jhWMlC}# + #{w* _hoQGWMnyQPAh3k2jhWMlD}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#) (syntax-violation #f "source expression failed to match any pattern" - #{body _85hotwsCta0JfYIjI4PI9}#)))))))))) - (let ((#{tmp _85hotwsCta0JfYIjI4O5Y}# + #{body _hoQGWMnyQPAh3k2jhWMlA}#)))))))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVb}# ($sc-dispatch - #{clauses _85hotwsCta0JfYIjI4O5S}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4O5Y}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMVb}# (@apply (lambda () (values '() #f)) - #{tmp _85hotwsCta0JfYIjI4O5Y}#) - (let ((#{tmp _85hotwsCta0JfYIjI4O5c}# + #{tmp _hoQGWMnyQPAh3k2jhWMVb}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVf}# ($sc-dispatch - #{clauses _85hotwsCta0JfYIjI4O5S}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _85hotwsCta0JfYIjI4O5c}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMVf}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4O5g}# - #{e1 _85hotwsCta0JfYIjI4O5h}# - #{e2 _85hotwsCta0JfYIjI4O5i}# - #{args* _85hotwsCta0JfYIjI4O5j}# - #{e1* _85hotwsCta0JfYIjI4O5k}# - #{e2* _85hotwsCta0JfYIjI4O5l}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWMVj}# + #{e1 _hoQGWMnyQPAh3k2jhWMVk}# + #{e2 _hoQGWMnyQPAh3k2jhWMVl}# + #{args* _hoQGWMnyQPAh3k2jhWMVm}# + #{e1* _hoQGWMnyQPAh3k2jhWMVn}# + #{e2* _hoQGWMnyQPAh3k2jhWMVo}#) (call-with-values (lambda () - (#{get-formals _85hotwsCta0JfYIjI4O5R}# - #{args _85hotwsCta0JfYIjI4O5g}#)) - (lambda (#{req _85hotwsCta0JfYIjI4O5m}# - #{opt _85hotwsCta0JfYIjI4O5n}# - #{rest _85hotwsCta0JfYIjI4O5o}# - #{kw _85hotwsCta0JfYIjI4O5p}#) + (#{get-formals _hoQGWMnyQPAh3k2jhWMVU}# + #{args _hoQGWMnyQPAh3k2jhWMVj}#)) + (lambda (#{req _hoQGWMnyQPAh3k2jhWMVp}# + #{opt _hoQGWMnyQPAh3k2jhWMVq}# + #{rest _hoQGWMnyQPAh3k2jhWMVr}# + #{kw _hoQGWMnyQPAh3k2jhWMVs}#) (call-with-values (lambda () - (#{parse-req _85hotwsCta0JfYIjI4O5T}# - #{req _85hotwsCta0JfYIjI4O5m}# - #{opt _85hotwsCta0JfYIjI4O5n}# - #{rest _85hotwsCta0JfYIjI4O5o}# - #{kw _85hotwsCta0JfYIjI4O5p}# - (cons #{e1 _85hotwsCta0JfYIjI4O5h}# - #{e2 _85hotwsCta0JfYIjI4O5i}#))) - (lambda (#{meta _85hotwsCta0JfYIjI4O6m}# - #{req _85hotwsCta0JfYIjI4O6n}# - #{opt _85hotwsCta0JfYIjI4O6o}# - #{rest _85hotwsCta0JfYIjI4O6p}# - #{kw _85hotwsCta0JfYIjI4O6q}# - #{inits _85hotwsCta0JfYIjI4O6r}# - #{vars _85hotwsCta0JfYIjI4O6s}# - #{body _85hotwsCta0JfYIjI4O6t}#) + (#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# + #{req _hoQGWMnyQPAh3k2jhWMVp}# + #{opt _hoQGWMnyQPAh3k2jhWMVq}# + #{rest _hoQGWMnyQPAh3k2jhWMVr}# + #{kw _hoQGWMnyQPAh3k2jhWMVs}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMVk}# + #{e2 _hoQGWMnyQPAh3k2jhWMVl}#))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWMWp}# + #{req _hoQGWMnyQPAh3k2jhWMWq}# + #{opt _hoQGWMnyQPAh3k2jhWMWr}# + #{rest _hoQGWMnyQPAh3k2jhWMWs}# + #{kw _hoQGWMnyQPAh3k2jhWMWt}# + #{inits _hoQGWMnyQPAh3k2jhWMWu}# + #{vars _hoQGWMnyQPAh3k2jhWMWv}# + #{body _hoQGWMnyQPAh3k2jhWMWw}#) (call-with-values (lambda () - (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}# - #{e _85hotwsCta0JfYIjI4O5M}# - #{r _85hotwsCta0JfYIjI4O5N}# - #{w _85hotwsCta0JfYIjI4O5O}# - #{s _85hotwsCta0JfYIjI4O5P}# - #{mod _85hotwsCta0JfYIjI4O5Q}# - #{get-formals _85hotwsCta0JfYIjI4O5R}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4Jns _85hotwsCta0JfYIjI4O6u}# - #{tmp _85hotwsCta0JfYIjI4Jnr _85hotwsCta0JfYIjI4O6v}# - #{tmp _85hotwsCta0JfYIjI4Jnq _85hotwsCta0JfYIjI4O6w}#) - (cons #{tmp _85hotwsCta0JfYIjI4Jnq _85hotwsCta0JfYIjI4O6w}# - (cons #{tmp _85hotwsCta0JfYIjI4Jnr _85hotwsCta0JfYIjI4O6v}# - #{tmp _85hotwsCta0JfYIjI4Jns _85hotwsCta0JfYIjI4O6u}#))) - #{e2* _85hotwsCta0JfYIjI4O5l}# - #{e1* _85hotwsCta0JfYIjI4O5k}# - #{args* _85hotwsCta0JfYIjI4O5j}#))) - (lambda (#{meta* _85hotwsCta0JfYIjI4O6x}# - #{else* _85hotwsCta0JfYIjI4O6y}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWMVP}# + #{r _hoQGWMnyQPAh3k2jhWMVQ}# + #{w _hoQGWMnyQPAh3k2jhWMVR}# + #{s _hoQGWMnyQPAh3k2jhWMVS}# + #{mod _hoQGWMnyQPAh3k2jhWMVT}# + #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}# + #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# + #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#) + (cons #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}# + (cons #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# + #{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#))) + #{e2* _hoQGWMnyQPAh3k2jhWMVo}# + #{e1* _hoQGWMnyQPAh3k2jhWMVn}# + #{args* _hoQGWMnyQPAh3k2jhWMVm}#))) + (lambda (#{meta* _hoQGWMnyQPAh3k2jhWMW0}# + #{else* _hoQGWMnyQPAh3k2jhWMW1}#) (values (append - #{meta _85hotwsCta0JfYIjI4O6m}# - #{meta* _85hotwsCta0JfYIjI4O6x}#) + #{meta _hoQGWMnyQPAh3k2jhWMWp}# + #{meta* _hoQGWMnyQPAh3k2jhWMW0}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s _85hotwsCta0JfYIjI4O5P}# - #{req _85hotwsCta0JfYIjI4O6n}# - #{opt _85hotwsCta0JfYIjI4O6o}# - #{rest _85hotwsCta0JfYIjI4O6p}# - #{kw _85hotwsCta0JfYIjI4O6q}# - #{inits _85hotwsCta0JfYIjI4O6r}# - #{vars _85hotwsCta0JfYIjI4O6s}# - #{body _85hotwsCta0JfYIjI4O6t}# - #{else* _85hotwsCta0JfYIjI4O6y}#))))))))) - #{tmp _85hotwsCta0JfYIjI4O5c}#) + #{s _hoQGWMnyQPAh3k2jhWMVS}# + #{req _hoQGWMnyQPAh3k2jhWMWq}# + #{opt _hoQGWMnyQPAh3k2jhWMWr}# + #{rest _hoQGWMnyQPAh3k2jhWMWs}# + #{kw _hoQGWMnyQPAh3k2jhWMWt}# + #{inits _hoQGWMnyQPAh3k2jhWMWu}# + #{vars _hoQGWMnyQPAh3k2jhWMWv}# + #{body _hoQGWMnyQPAh3k2jhWMWw}# + #{else* _hoQGWMnyQPAh3k2jhWMW1}#))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWMVf}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses _85hotwsCta0JfYIjI4O5S}#)))))))) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - (lambda (#{x _85hotwsCta0JfYIjI4PKA}# - #{w _85hotwsCta0JfYIjI4PKB}#) - (if (memq 'top (car #{w _85hotwsCta0JfYIjI4PKB}#)) - #{x _85hotwsCta0JfYIjI4PKA}# + #{clauses _hoQGWMnyQPAh3k2jhWMVV}#)))))))) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMmD}# + #{w _hoQGWMnyQPAh3k2jhWMmE}#) + (if (memq 'top (car #{w _hoQGWMnyQPAh3k2jhWMmE}#)) + #{x _hoQGWMnyQPAh3k2jhWMmD}# (letrec* - ((#{f _85hotwsCta0JfYIjI4PKC}# - (lambda (#{x _85hotwsCta0JfYIjI4PKF}#) - (if (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4PKF}#) + ((#{f _hoQGWMnyQPAh3k2jhWMmF}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMmI}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWMmI}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 0) 'syntax-object) #f) #f) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 1) - (vector-ref #{x _85hotwsCta0JfYIjI4PKF}# 2)) - (if (pair? #{x _85hotwsCta0JfYIjI4PKF}#) - (let ((#{a _85hotwsCta0JfYIjI4PKY}# - (#{f _85hotwsCta0JfYIjI4PKC}# - (car #{x _85hotwsCta0JfYIjI4PKF}#))) - (#{d _85hotwsCta0JfYIjI4PKZ}# - (#{f _85hotwsCta0JfYIjI4PKC}# - (cdr #{x _85hotwsCta0JfYIjI4PKF}#)))) - (if (if (eq? #{a _85hotwsCta0JfYIjI4PKY}# - (car #{x _85hotwsCta0JfYIjI4PKF}#)) - (eq? #{d _85hotwsCta0JfYIjI4PKZ}# - (cdr #{x _85hotwsCta0JfYIjI4PKF}#)) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 1) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 2)) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWMmI}#) + (let ((#{a _hoQGWMnyQPAh3k2jhWMmb}# + (#{f _hoQGWMnyQPAh3k2jhWMmF}# + (car #{x _hoQGWMnyQPAh3k2jhWMmI}#))) + (#{d _hoQGWMnyQPAh3k2jhWMmc}# + (#{f _hoQGWMnyQPAh3k2jhWMmF}# + (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)))) + (if (if (eq? #{a _hoQGWMnyQPAh3k2jhWMmb}# + (car #{x _hoQGWMnyQPAh3k2jhWMmI}#)) + (eq? #{d _hoQGWMnyQPAh3k2jhWMmc}# + (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)) #f) - #{x _85hotwsCta0JfYIjI4PKF}# - (cons #{a _85hotwsCta0JfYIjI4PKY}# - #{d _85hotwsCta0JfYIjI4PKZ}#))) - (if (vector? #{x _85hotwsCta0JfYIjI4PKF}#) - (let ((#{old _85hotwsCta0JfYIjI4PKc}# - (vector->list #{x _85hotwsCta0JfYIjI4PKF}#))) - (let ((#{new _85hotwsCta0JfYIjI4PKd}# - (map #{f _85hotwsCta0JfYIjI4PKC}# - #{old _85hotwsCta0JfYIjI4PKc}#))) + #{x _hoQGWMnyQPAh3k2jhWMmI}# + (cons #{a _hoQGWMnyQPAh3k2jhWMmb}# + #{d _hoQGWMnyQPAh3k2jhWMmc}#))) + (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) + (let ((#{old _hoQGWMnyQPAh3k2jhWMmf}# + (vector->list #{x _hoQGWMnyQPAh3k2jhWMmI}#))) + (let ((#{new _hoQGWMnyQPAh3k2jhWMmg}# + (map #{f _hoQGWMnyQPAh3k2jhWMmF}# + #{old _hoQGWMnyQPAh3k2jhWMmf}#))) (letrec* - ((#{lp _85hotwsCta0JfYIjI4PKe}# - (lambda (#{l1 _85hotwsCta0JfYIjI4PLq}# - #{l2 _85hotwsCta0JfYIjI4PLr}#) - (if (null? #{l1 _85hotwsCta0JfYIjI4PLq}#) - #{x _85hotwsCta0JfYIjI4PKF}# - (if (eq? (car #{l1 _85hotwsCta0JfYIjI4PLq}#) - (car #{l2 _85hotwsCta0JfYIjI4PLr}#)) - (#{lp _85hotwsCta0JfYIjI4PKe}# - (cdr #{l1 _85hotwsCta0JfYIjI4PLq}#) - (cdr #{l2 _85hotwsCta0JfYIjI4PLr}#)) + ((#{lp _hoQGWMnyQPAh3k2jhWMmh}# + (lambda (#{l1 _hoQGWMnyQPAh3k2jhWMnt}# + #{l2 _hoQGWMnyQPAh3k2jhWMnu}#) + (if (null? #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) + #{x _hoQGWMnyQPAh3k2jhWMmI}# + (if (eq? (car #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) + (car #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) + (#{lp _hoQGWMnyQPAh3k2jhWMmh}# + (cdr #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) + (cdr #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) (list->vector - #{new _85hotwsCta0JfYIjI4PKd}#)))))) - (#{lp _85hotwsCta0JfYIjI4PKe}# - #{old _85hotwsCta0JfYIjI4PKc}# - #{new _85hotwsCta0JfYIjI4PKd}#)))) - #{x _85hotwsCta0JfYIjI4PKF}#)))))) - (#{f _85hotwsCta0JfYIjI4PKC}# - #{x _85hotwsCta0JfYIjI4PKA}#))))) - (#{gen-var _85hotwsCta0JfYIjI4J4Z}# - (lambda (#{id _85hotwsCta0JfYIjI4O7e}#) - (let ((#{id _85hotwsCta0JfYIjI4O7f}# - (if (if (vector? #{id _85hotwsCta0JfYIjI4O7e}#) - (if (= (vector-length #{id _85hotwsCta0JfYIjI4O7e}#) + #{new _hoQGWMnyQPAh3k2jhWMmg}#)))))) + (#{lp _hoQGWMnyQPAh3k2jhWMmh}# + #{old _hoQGWMnyQPAh3k2jhWMmf}# + #{new _hoQGWMnyQPAh3k2jhWMmg}#)))) + #{x _hoQGWMnyQPAh3k2jhWMmI}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWMmF}# + #{x _hoQGWMnyQPAh3k2jhWMmD}#))))) + (#{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWMXh}#) + (let ((#{id _hoQGWMnyQPAh3k2jhWMXi}# + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWMXh}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWMXh}#) 4) - (eq? (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 0) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _85hotwsCta0JfYIjI4O7e}# 1) - #{id _85hotwsCta0JfYIjI4O7e}#))) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 1) + #{id _hoQGWMnyQPAh3k2jhWMXh}#))) (gensym (string-append - (symbol->string #{id _85hotwsCta0JfYIjI4O7f}#) + (symbol->string #{id _hoQGWMnyQPAh3k2jhWMXi}#) " ")))))) (begin - (set! #{gen-label _85hotwsCta0JfYIjI4J3p}# - (let ((#{i _85hotwsCta0JfYIjI4MoZ}# 0)) + (set! #{gen-label _hoQGWMnyQPAh3k2jhWHTD}# + (let ((#{i _hoQGWMnyQPAh3k2jhWKEc}# 0)) (lambda () - (let ((#{n _85hotwsCta0JfYIjI4Moa}# - #{i _85hotwsCta0JfYIjI4MoZ}#)) + (let ((#{n _hoQGWMnyQPAh3k2jhWKEd}# + #{i _hoQGWMnyQPAh3k2jhWKEc}#)) (begin - (set! #{i _85hotwsCta0JfYIjI4MoZ}# - (#{1+}# #{n _85hotwsCta0JfYIjI4Moa}#)) - (number->string #{n _85hotwsCta0JfYIjI4Moa}# 36)))))) - (set! #{transformer-environment _85hotwsCta0JfYIjI4J39}# + (set! #{i _hoQGWMnyQPAh3k2jhWKEc}# + (#{1+}# #{n _hoQGWMnyQPAh3k2jhWKEd}#)) + (number->string #{n _hoQGWMnyQPAh3k2jhWKEd}# 36)))))) + (set! #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# (make-fluid - (lambda (#{k _85hotwsCta0JfYIjI4MNY}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWJpb}#) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8998,1500 +8998,1500 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'syntax-parameterize - (lambda (#{e _85hotwsCta0JfYIjI4J6S}# - #{r _85hotwsCta0JfYIjI4J6T}# - #{w _85hotwsCta0JfYIjI4J6U}# - #{s _85hotwsCta0JfYIjI4J6V}# - #{mod _85hotwsCta0JfYIjI4J6W}#) - (let ((#{tmp _85hotwsCta0JfYIjI4J6Y}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHVs}# + #{r _hoQGWMnyQPAh3k2jhWHVt}# + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{s _hoQGWMnyQPAh3k2jhWHVv}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHVy}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4J6S}# + #{e _hoQGWMnyQPAh3k2jhWHVs}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4J6Y}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHVy}# (@apply - (lambda (#{var _85hotwsCta0JfYIjI4J6c}# - #{val _85hotwsCta0JfYIjI4J6d}# - #{e1 _85hotwsCta0JfYIjI4J6e}# - #{e2 _85hotwsCta0JfYIjI4J6f}#) - (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{var _85hotwsCta0JfYIjI4J6c}#)) - #{tmp _85hotwsCta0JfYIjI4J6Y}#) + (lambda (#{var _hoQGWMnyQPAh3k2jhWHV2}# + #{val _hoQGWMnyQPAh3k2jhWHV3}# + #{e1 _hoQGWMnyQPAh3k2jhWHV4}# + #{e2 _hoQGWMnyQPAh3k2jhWHV5}#) + (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{var _hoQGWMnyQPAh3k2jhWHV2}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) #f) (@apply - (lambda (#{var _85hotwsCta0JfYIjI4J7t}# - #{val _85hotwsCta0JfYIjI4J7u}# - #{e1 _85hotwsCta0JfYIjI4J7v}# - #{e2 _85hotwsCta0JfYIjI4J7w}#) - (let ((#{names _85hotwsCta0JfYIjI4J7x}# - (map (lambda (#{x _85hotwsCta0JfYIjI4J8j}#) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4J8j}# - #{w _85hotwsCta0JfYIjI4J6U}#)) - #{var _85hotwsCta0JfYIjI4J7t}#))) + (lambda (#{var _hoQGWMnyQPAh3k2jhWHXH}# + #{val _hoQGWMnyQPAh3k2jhWHXI}# + #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# + #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) + (let ((#{names _hoQGWMnyQPAh3k2jhWHXL}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHX9}#) + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWHX9}# + #{w _hoQGWMnyQPAh3k2jhWHVu}#)) + #{var _hoQGWMnyQPAh3k2jhWHXH}#))) (begin (for-each - (lambda (#{id _85hotwsCta0JfYIjI4J7y}# - #{n _85hotwsCta0JfYIjI4J7z}#) - (let ((#{atom-key _85hotwsCta0JfYIjI4J70}# - (car (let ((#{t _85hotwsCta0JfYIjI4J77}# - (assq #{n _85hotwsCta0JfYIjI4J7z}# - #{r _85hotwsCta0JfYIjI4J6T}#))) - (if #{t _85hotwsCta0JfYIjI4J77}# - (cdr #{t _85hotwsCta0JfYIjI4J77}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWHXM}# + #{n _hoQGWMnyQPAh3k2jhWHXN}#) + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHXO}# + (car (let ((#{t _hoQGWMnyQPAh3k2jhWHXV}# + (assq #{n _hoQGWMnyQPAh3k2jhWHXN}# + #{r _hoQGWMnyQPAh3k2jhWHVt}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHXV}# + (cdr #{t _hoQGWMnyQPAh3k2jhWHXV}#) (if (symbol? - #{n _85hotwsCta0JfYIjI4J7z}#) - (let ((#{t _85hotwsCta0JfYIjI4J8A}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4J7z}# - #{mod _85hotwsCta0JfYIjI4J6W}#))) - (if #{t _85hotwsCta0JfYIjI4J8A}# - #{t _85hotwsCta0JfYIjI4J8A}# + #{n _hoQGWMnyQPAh3k2jhWHXN}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWHXa}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWHXN}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHXa}# + #{t _hoQGWMnyQPAh3k2jhWHXa}# '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4J70}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHXO}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e _85hotwsCta0JfYIjI4J6S}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{e _hoQGWMnyQPAh3k2jhWHVs}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{id _85hotwsCta0JfYIjI4J7y}#) - #{s _85hotwsCta0JfYIjI4J6V}# + (if (if (pair? #{id _hoQGWMnyQPAh3k2jhWHXM}#) + #{s _hoQGWMnyQPAh3k2jhWHVv}# #f) (set-source-properties! - #{id _85hotwsCta0JfYIjI4J7y}# - #{s _85hotwsCta0JfYIjI4J6V}#)) - #{id _85hotwsCta0JfYIjI4J7y}#) - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#))))) - #{var _85hotwsCta0JfYIjI4J7t}# - #{names _85hotwsCta0JfYIjI4J7x}#) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{e1 _85hotwsCta0JfYIjI4J7v}# - #{e2 _85hotwsCta0JfYIjI4J7w}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{id _hoQGWMnyQPAh3k2jhWHXM}# + #{s _hoQGWMnyQPAh3k2jhWHVv}#)) + #{id _hoQGWMnyQPAh3k2jhWHXM}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))) + #{var _hoQGWMnyQPAh3k2jhWHXH}# + #{names _hoQGWMnyQPAh3k2jhWHXL}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# + #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#) - #{s _85hotwsCta0JfYIjI4J6V}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{s _hoQGWMnyQPAh3k2jhWHVv}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4J6S}# - #{s _85hotwsCta0JfYIjI4J6V}#)) - #{e _85hotwsCta0JfYIjI4J6S}#) - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#) - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{names _85hotwsCta0JfYIjI4J7x}# - (let ((#{trans-r _85hotwsCta0JfYIjI4J95}# - (#{macros-only-env _85hotwsCta0JfYIjI4J3j}# - #{r _85hotwsCta0JfYIjI4J6T}#))) - (map (lambda (#{x _85hotwsCta0JfYIjI4J96}#) + #{e _hoQGWMnyQPAh3k2jhWHVs}# + #{s _hoQGWMnyQPAh3k2jhWHVv}#)) + #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#) + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{names _hoQGWMnyQPAh3k2jhWHXL}# + (let ((#{trans-r _hoQGWMnyQPAh3k2jhWHZT}# + (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# + #{r _hoQGWMnyQPAh3k2jhWHVt}#))) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHZU}#) (cons 'macro - (#{eval-local-transformer _85hotwsCta0JfYIjI4J4R}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4J96}# - #{trans-r _85hotwsCta0JfYIjI4J95}# - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#) - #{mod _85hotwsCta0JfYIjI4J6W}#))) - #{val _85hotwsCta0JfYIjI4J7u}#)) - #{r _85hotwsCta0JfYIjI4J6T}#) - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#)))) - #{tmp _85hotwsCta0JfYIjI4J6Y}#) + (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWHZU}# + #{trans-r _hoQGWMnyQPAh3k2jhWHZT}# + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#) + #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) + #{val _hoQGWMnyQPAh3k2jhWHXI}#)) + #{r _hoQGWMnyQPAh3k2jhWHVt}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4J6S}#) - #{s _85hotwsCta0JfYIjI4J6V}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{s _hoQGWMnyQPAh3k2jhWHVv}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4J6S}# - #{s _85hotwsCta0JfYIjI4J6V}#)) - #{e _85hotwsCta0JfYIjI4J6S}#) - #{w _85hotwsCta0JfYIjI4J6U}# - #{mod _85hotwsCta0JfYIjI4J6W}#)))))) + #{e _hoQGWMnyQPAh3k2jhWHVs}# + #{s _hoQGWMnyQPAh3k2jhWHVv}#)) + #{e _hoQGWMnyQPAh3k2jhWHVs}#) + #{w _hoQGWMnyQPAh3k2jhWHVu}# + #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e _85hotwsCta0JfYIjI4KBL}# - #{r _85hotwsCta0JfYIjI4KBM}# - #{w _85hotwsCta0JfYIjI4KBN}# - #{s _85hotwsCta0JfYIjI4KBO}# - #{mod _85hotwsCta0JfYIjI4KBP}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KBR}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHcl}# + #{r _hoQGWMnyQPAh3k2jhWHcm}# + #{w _hoQGWMnyQPAh3k2jhWHcn}# + #{s _hoQGWMnyQPAh3k2jhWHco}# + #{mod _hoQGWMnyQPAh3k2jhWHcp}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHcr}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KBL}# + #{e _hoQGWMnyQPAh3k2jhWHcl}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4KBR}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHcr}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4KBU}#) - (let ((#{exp _85hotwsCta0JfYIjI4KBY}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{e _85hotwsCta0JfYIjI4KBU}# - #{w _85hotwsCta0JfYIjI4KBN}#))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHcu}#) + (let ((#{exp _hoQGWMnyQPAh3k2jhWHcy}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{e _hoQGWMnyQPAh3k2jhWHcu}# + #{w _hoQGWMnyQPAh3k2jhWHcn}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _85hotwsCta0JfYIjI4KBO}# - #{exp _85hotwsCta0JfYIjI4KBY}#))) - #{tmp _85hotwsCta0JfYIjI4KBR}#) + #{s _hoQGWMnyQPAh3k2jhWHco}# + #{exp _hoQGWMnyQPAh3k2jhWHcy}#))) + #{tmp _hoQGWMnyQPAh3k2jhWHcr}#) (syntax-violation 'quote "bad syntax" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KBL}#) - #{s _85hotwsCta0JfYIjI4KBO}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHcl}#) + #{s _hoQGWMnyQPAh3k2jhWHco}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KBL}# - #{s _85hotwsCta0JfYIjI4KBO}#)) - #{e _85hotwsCta0JfYIjI4KBL}#) - #{w _85hotwsCta0JfYIjI4KBN}# - #{mod _85hotwsCta0JfYIjI4KBP}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHcl}# + #{s _hoQGWMnyQPAh3k2jhWHco}#)) + #{e _hoQGWMnyQPAh3k2jhWHcl}#) + #{w _hoQGWMnyQPAh3k2jhWHcn}# + #{mod _hoQGWMnyQPAh3k2jhWHcp}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'syntax (letrec* - ((#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - (lambda (#{src _85hotwsCta0JfYIjI4KGa}# - #{e _85hotwsCta0JfYIjI4KGb}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#) - (if (if (symbol? #{e _85hotwsCta0JfYIjI4KGb}#) + ((#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWHh0}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#) + (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWHh1}#) #t - (if (if (vector? #{e _85hotwsCta0JfYIjI4KGb}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4KGb}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWHh1}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWHh1}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e _85hotwsCta0JfYIjI4KGb}# 1)) + (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 1)) #f)) - (let ((#{label _85hotwsCta0JfYIjI4KG6}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{e _85hotwsCta0JfYIjI4KGb}# + (let ((#{label _hoQGWMnyQPAh3k2jhWHiU}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(())))) - (let ((#{b _85hotwsCta0JfYIjI4KG7}# - (let ((#{t _85hotwsCta0JfYIjI4KHC}# - (assq #{label _85hotwsCta0JfYIjI4KG6}# - #{r _85hotwsCta0JfYIjI4KGc}#))) - (if #{t _85hotwsCta0JfYIjI4KHC}# - (cdr #{t _85hotwsCta0JfYIjI4KHC}#) - (if (symbol? #{label _85hotwsCta0JfYIjI4KG6}#) - (let ((#{t _85hotwsCta0JfYIjI4KHI}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{label _85hotwsCta0JfYIjI4KG6}# - #{mod _85hotwsCta0JfYIjI4KGf}#))) - (if #{t _85hotwsCta0JfYIjI4KHI}# - #{t _85hotwsCta0JfYIjI4KHI}# + (let ((#{b _hoQGWMnyQPAh3k2jhWHiV}# + (let ((#{t _hoQGWMnyQPAh3k2jhWHic}# + (assq #{label _hoQGWMnyQPAh3k2jhWHiU}# + #{r _hoQGWMnyQPAh3k2jhWHh2}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHic}# + (cdr #{t _hoQGWMnyQPAh3k2jhWHic}#) + (if (symbol? #{label _hoQGWMnyQPAh3k2jhWHiU}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWHii}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{label _hoQGWMnyQPAh3k2jhWHiU}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#))) + (if #{t _hoQGWMnyQPAh3k2jhWHii}# + #{t _hoQGWMnyQPAh3k2jhWHii}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b _85hotwsCta0JfYIjI4KG7}#) 'syntax) + (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWHiV}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev _85hotwsCta0JfYIjI4KHR}# - (cdr #{b _85hotwsCta0JfYIjI4KG7}#))) - (#{gen-ref _85hotwsCta0JfYIjI4KE1}# - #{src _85hotwsCta0JfYIjI4KGa}# - (car #{var.lev _85hotwsCta0JfYIjI4KHR}#) - (cdr #{var.lev _85hotwsCta0JfYIjI4KHR}#) - #{maps _85hotwsCta0JfYIjI4KGd}#))) - (lambda (#{var _85hotwsCta0JfYIjI4KHV}# - #{maps _85hotwsCta0JfYIjI4KHW}#) + (let ((#{var.lev _hoQGWMnyQPAh3k2jhWHir}# + (cdr #{b _hoQGWMnyQPAh3k2jhWHiV}#))) + (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + (car #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) + (cdr #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) + #{maps _hoQGWMnyQPAh3k2jhWHh3}#))) + (lambda (#{var _hoQGWMnyQPAh3k2jhWHiv}# + #{maps _hoQGWMnyQPAh3k2jhWHiw}#) (values - (list 'ref #{var _85hotwsCta0JfYIjI4KHV}#) - #{maps _85hotwsCta0JfYIjI4KHW}#))) - (if (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{e _85hotwsCta0JfYIjI4KGb}#) + (list 'ref #{var _hoQGWMnyQPAh3k2jhWHiv}#) + #{maps _hoQGWMnyQPAh3k2jhWHiw}#))) + (if (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{e _hoQGWMnyQPAh3k2jhWHh1}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src _85hotwsCta0JfYIjI4KGa}#) + #{src _hoQGWMnyQPAh3k2jhWHh0}#) (values - (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#) - #{maps _85hotwsCta0JfYIjI4KGd}#))))) - (let ((#{tmp _85hotwsCta0JfYIjI4KHY}# + (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) + #{maps _hoQGWMnyQPAh3k2jhWHh3}#))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHiy}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KHY}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHiy}# (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KHc}# - #{e _85hotwsCta0JfYIjI4KHd}#) - (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{dots _85hotwsCta0JfYIjI4KHc}#)) - #{tmp _85hotwsCta0JfYIjI4KHY}#) + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi2}# + #{e _hoQGWMnyQPAh3k2jhWHi3}#) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{dots _hoQGWMnyQPAh3k2jhWHi2}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) #f) (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KHe}# - #{e _85hotwsCta0JfYIjI4KHf}#) - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{e _85hotwsCta0JfYIjI4KHf}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - (lambda (#{x _85hotwsCta0JfYIjI4KHg}#) #f) - #{mod _85hotwsCta0JfYIjI4KGf}#)) - #{tmp _85hotwsCta0JfYIjI4KHY}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KHh}# + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi4}# + #{e _hoQGWMnyQPAh3k2jhWHi5}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{e _hoQGWMnyQPAh3k2jhWHi5}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWHi6}#) #f) + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHi7}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(any any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KHh}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHi7}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KHl}# - #{dots _85hotwsCta0JfYIjI4KHm}# - #{y _85hotwsCta0JfYIjI4KHn}#) - (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{dots _85hotwsCta0JfYIjI4KHm}#)) - #{tmp _85hotwsCta0JfYIjI4KHh}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHi@}# + #{dots _hoQGWMnyQPAh3k2jhWHjA}# + #{y _hoQGWMnyQPAh3k2jhWHjB}#) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{dots _hoQGWMnyQPAh3k2jhWHjA}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) #f) (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KHo}# - #{dots _85hotwsCta0JfYIjI4KHp}# - #{y _85hotwsCta0JfYIjI4KHq}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjC}# + #{dots _hoQGWMnyQPAh3k2jhWHjD}# + #{y _hoQGWMnyQPAh3k2jhWHjE}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4KHr}# - (lambda (#{y _85hotwsCta0JfYIjI4KHz}# - #{k _85hotwsCta0JfYIjI4KH0}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KH2}# + ((#{f _hoQGWMnyQPAh3k2jhWHjF}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWHjN}# + #{k _hoQGWMnyQPAh3k2jhWHjO}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHjQ}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4KHz}# + #{y _hoQGWMnyQPAh3k2jhWHjN}# '(any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KH2}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHjQ}# (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KH6}# - #{y _85hotwsCta0JfYIjI4KH7}#) - (#{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{dots _85hotwsCta0JfYIjI4KH6}#)) - #{tmp _85hotwsCta0JfYIjI4KH2}#) + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjU}# + #{y _hoQGWMnyQPAh3k2jhWHjV}#) + (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{dots _hoQGWMnyQPAh3k2jhWHjU}#)) + #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) #f) (@apply - (lambda (#{dots _85hotwsCta0JfYIjI4KH8}# - #{y _85hotwsCta0JfYIjI4KH9}#) - (#{f _85hotwsCta0JfYIjI4KHr}# - #{y _85hotwsCta0JfYIjI4KH9}# - (lambda (#{maps _85hotwsCta0JfYIjI4KH$}#) + (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjW}# + #{y _hoQGWMnyQPAh3k2jhWHjX}#) + (#{f _hoQGWMnyQPAh3k2jhWHjF}# + #{y _hoQGWMnyQPAh3k2jhWHjX}# + (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjY}#) (call-with-values (lambda () - (#{k _85hotwsCta0JfYIjI4KH0}# + (#{k _hoQGWMnyQPAh3k2jhWHjO}# (cons '() - #{maps _85hotwsCta0JfYIjI4KH$}#))) - (lambda (#{x _85hotwsCta0JfYIjI4KH@}# - #{maps _85hotwsCta0JfYIjI4KIA}#) - (if (null? (car #{maps _85hotwsCta0JfYIjI4KIA}#)) + #{maps _hoQGWMnyQPAh3k2jhWHjY}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjZ}# + #{maps _hoQGWMnyQPAh3k2jhWHja}#) + (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHja}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _85hotwsCta0JfYIjI4KGa}#) + #{src _hoQGWMnyQPAh3k2jhWHh0}#) (values - (let ((#{map-env _85hotwsCta0JfYIjI4KIE}# - (car #{maps _85hotwsCta0JfYIjI4KIA}#))) + (let ((#{map-env _hoQGWMnyQPAh3k2jhWHje}# + (car #{maps _hoQGWMnyQPAh3k2jhWHja}#))) (list 'apply '(primitive append) - (#{gen-map _85hotwsCta0JfYIjI4KE3}# - #{x _85hotwsCta0JfYIjI4KH@}# - #{map-env _85hotwsCta0JfYIjI4KIE}#))) - (cdr #{maps _85hotwsCta0JfYIjI4KIA}#)))))))) - #{tmp _85hotwsCta0JfYIjI4KH2}#) + (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# + #{x _hoQGWMnyQPAh3k2jhWHjZ}# + #{map-env _hoQGWMnyQPAh3k2jhWHje}#))) + (cdr #{maps _hoQGWMnyQPAh3k2jhWHja}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{y _85hotwsCta0JfYIjI4KHz}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{y _85hotwsCta0JfYIjI4KIH}# - #{maps _85hotwsCta0JfYIjI4KII}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{y _hoQGWMnyQPAh3k2jhWHjN}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWHjh}# + #{maps _hoQGWMnyQPAh3k2jhWHji}#) (call-with-values (lambda () - (#{k _85hotwsCta0JfYIjI4KH0}# - #{maps _85hotwsCta0JfYIjI4KII}#)) - (lambda (#{x _85hotwsCta0JfYIjI4KIJ}# - #{maps _85hotwsCta0JfYIjI4KIK}#) + (#{k _hoQGWMnyQPAh3k2jhWHjO}# + #{maps _hoQGWMnyQPAh3k2jhWHji}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjj}# + #{maps _hoQGWMnyQPAh3k2jhWHjk}#) (values (if (equal? - #{y _85hotwsCta0JfYIjI4KIH}# + #{y _hoQGWMnyQPAh3k2jhWHjh}# ''()) - #{x _85hotwsCta0JfYIjI4KIJ}# + #{x _hoQGWMnyQPAh3k2jhWHjj}# (list 'append - #{x _85hotwsCta0JfYIjI4KIJ}# - #{y _85hotwsCta0JfYIjI4KIH}#)) - #{maps _85hotwsCta0JfYIjI4KIK}#)))))))))) - (#{f _85hotwsCta0JfYIjI4KHr}# - #{y _85hotwsCta0JfYIjI4KHq}# - (lambda (#{maps _85hotwsCta0JfYIjI4KHu}#) + #{x _hoQGWMnyQPAh3k2jhWHjj}# + #{y _hoQGWMnyQPAh3k2jhWHjh}#)) + #{maps _hoQGWMnyQPAh3k2jhWHjk}#)))))))))) + (#{f _hoQGWMnyQPAh3k2jhWHjF}# + #{y _hoQGWMnyQPAh3k2jhWHjE}# + (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjI}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{x _85hotwsCta0JfYIjI4KHo}# - #{r _85hotwsCta0JfYIjI4KGc}# + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{x _hoQGWMnyQPAh3k2jhWHjC}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# (cons '() - #{maps _85hotwsCta0JfYIjI4KHu}#) - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{x _85hotwsCta0JfYIjI4KHv}# - #{maps _85hotwsCta0JfYIjI4KHw}#) - (if (null? (car #{maps _85hotwsCta0JfYIjI4KHw}#)) + #{maps _hoQGWMnyQPAh3k2jhWHjI}#) + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHjJ}# + #{maps _hoQGWMnyQPAh3k2jhWHjK}#) + (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _85hotwsCta0JfYIjI4KGa}#) + #{src _hoQGWMnyQPAh3k2jhWHh0}#) (values - (#{gen-map _85hotwsCta0JfYIjI4KE3}# - #{x _85hotwsCta0JfYIjI4KHv}# - (car #{maps _85hotwsCta0JfYIjI4KHw}#)) - (cdr #{maps _85hotwsCta0JfYIjI4KHw}#))))))))) - #{tmp _85hotwsCta0JfYIjI4KHh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KIa}# + (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# + #{x _hoQGWMnyQPAh3k2jhWHjJ}# + (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) + (cdr #{maps _hoQGWMnyQPAh3k2jhWHjK}#))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHj0}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4KIa}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHj0}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KIe}# - #{y _85hotwsCta0JfYIjI4KIf}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHj4}# + #{y _hoQGWMnyQPAh3k2jhWHj5}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{x _85hotwsCta0JfYIjI4KIe}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{x _85hotwsCta0JfYIjI4KIg}# - #{maps _85hotwsCta0JfYIjI4KIh}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{x _hoQGWMnyQPAh3k2jhWHj4}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHj6}# + #{maps _hoQGWMnyQPAh3k2jhWHj7}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - #{y _85hotwsCta0JfYIjI4KIf}# - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KIh}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{y _85hotwsCta0JfYIjI4KIi}# - #{maps _85hotwsCta0JfYIjI4KIj}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + #{y _hoQGWMnyQPAh3k2jhWHj5}# + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHj7}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWHj8}# + #{maps _hoQGWMnyQPAh3k2jhWHj9}#) (values - (let ((#{atom-key _85hotwsCta0JfYIjI4KIo}# - (car #{y _85hotwsCta0JfYIjI4KIi}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}# + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHkC}# + (car #{y _hoQGWMnyQPAh3k2jhWHj8}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# 'quote) - (if (eq? (car #{x _85hotwsCta0JfYIjI4KIg}#) + (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHj6}#) 'quote) (list 'quote - (cons (car (cdr #{x _85hotwsCta0JfYIjI4KIg}#)) - (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#)))) - (if (eq? (car (cdr #{y _85hotwsCta0JfYIjI4KIi}#)) + (cons (car (cdr #{x _hoQGWMnyQPAh3k2jhWHj6}#)) + (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) + (if (eq? (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)) '()) (list 'list - #{x _85hotwsCta0JfYIjI4KIg}#) + #{x _hoQGWMnyQPAh3k2jhWHj6}#) (list 'cons - #{x _85hotwsCta0JfYIjI4KIg}# - #{y _85hotwsCta0JfYIjI4KIi}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KIo}# + #{x _hoQGWMnyQPAh3k2jhWHj6}# + #{y _hoQGWMnyQPAh3k2jhWHj8}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# 'list) (cons 'list - (cons #{x _85hotwsCta0JfYIjI4KIg}# - (cdr #{y _85hotwsCta0JfYIjI4KIi}#))) + (cons #{x _hoQGWMnyQPAh3k2jhWHj6}# + (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))) (list 'cons - #{x _85hotwsCta0JfYIjI4KIg}# - #{y _85hotwsCta0JfYIjI4KIi}#)))) - #{maps _85hotwsCta0JfYIjI4KIj}#)))))) - #{tmp _85hotwsCta0JfYIjI4KIa}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KJF}# + #{x _hoQGWMnyQPAh3k2jhWHj6}# + #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) + #{maps _hoQGWMnyQPAh3k2jhWHj9}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWHj0}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHkf}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KGb}# + #{e _hoQGWMnyQPAh3k2jhWHh1}# '#(vector (any . each-any))))) - (if #{tmp _85hotwsCta0JfYIjI4KJF}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHkf}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4KJJ}# - #{e2 _85hotwsCta0JfYIjI4KJK}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWHkj}# + #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{src _85hotwsCta0JfYIjI4KGa}# - (cons #{e1 _85hotwsCta0JfYIjI4KJJ}# - #{e2 _85hotwsCta0JfYIjI4KJK}#) - #{r _85hotwsCta0JfYIjI4KGc}# - #{maps _85hotwsCta0JfYIjI4KGd}# - #{ellipsis? _85hotwsCta0JfYIjI4KGe}# - #{mod _85hotwsCta0JfYIjI4KGf}#)) - (lambda (#{e _85hotwsCta0JfYIjI4KJL}# - #{maps _85hotwsCta0JfYIjI4KJM}#) + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{src _hoQGWMnyQPAh3k2jhWHh0}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHkj}# + #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) + #{r _hoQGWMnyQPAh3k2jhWHh2}# + #{maps _hoQGWMnyQPAh3k2jhWHh3}# + #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# + #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHkl}# + #{maps _hoQGWMnyQPAh3k2jhWHkm}#) (values - (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#) + (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) 'list) (cons 'vector - (cdr #{e _85hotwsCta0JfYIjI4KJL}#)) - (if (eq? (car #{e _85hotwsCta0JfYIjI4KJL}#) + (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)) + (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) 'quote) (list 'quote (list->vector - (car (cdr #{e _85hotwsCta0JfYIjI4KJL}#)))) + (car (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)))) (list 'list->vector - #{e _85hotwsCta0JfYIjI4KJL}#))) - #{maps _85hotwsCta0JfYIjI4KJM}#)))) - #{tmp _85hotwsCta0JfYIjI4KJF}#) + #{e _hoQGWMnyQPAh3k2jhWHkl}#))) + #{maps _hoQGWMnyQPAh3k2jhWHkm}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHkf}#) (values - (list 'quote #{e _85hotwsCta0JfYIjI4KGb}#) - #{maps _85hotwsCta0JfYIjI4KGd}#)))))))))))) - (#{gen-ref _85hotwsCta0JfYIjI4KE1}# - (lambda (#{src _85hotwsCta0JfYIjI4KJn}# - #{var _85hotwsCta0JfYIjI4KJo}# - #{level _85hotwsCta0JfYIjI4KJp}# - #{maps _85hotwsCta0JfYIjI4KJq}#) - (if (= #{level _85hotwsCta0JfYIjI4KJp}# 0) + (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) + #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))))))))))) + (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# + (lambda (#{src _hoQGWMnyQPAh3k2jhWHlB}# + #{var _hoQGWMnyQPAh3k2jhWHlC}# + #{level _hoQGWMnyQPAh3k2jhWHlD}# + #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + (if (= #{level _hoQGWMnyQPAh3k2jhWHlD}# 0) (values - #{var _85hotwsCta0JfYIjI4KJo}# - #{maps _85hotwsCta0JfYIjI4KJq}#) - (if (null? #{maps _85hotwsCta0JfYIjI4KJq}#) + #{var _hoQGWMnyQPAh3k2jhWHlC}# + #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + (if (null? #{maps _hoQGWMnyQPAh3k2jhWHlE}#) (syntax-violation 'syntax "missing ellipsis" - #{src _85hotwsCta0JfYIjI4KJn}#) + #{src _hoQGWMnyQPAh3k2jhWHlB}#) (call-with-values (lambda () - (#{gen-ref _85hotwsCta0JfYIjI4KE1}# - #{src _85hotwsCta0JfYIjI4KJn}# - #{var _85hotwsCta0JfYIjI4KJo}# - (#{1-}# #{level _85hotwsCta0JfYIjI4KJp}#) - (cdr #{maps _85hotwsCta0JfYIjI4KJq}#))) - (lambda (#{outer-var _85hotwsCta0JfYIjI4KJr}# - #{outer-maps _85hotwsCta0JfYIjI4KJs}#) - (let ((#{b _85hotwsCta0JfYIjI4KJt}# - (assq #{outer-var _85hotwsCta0JfYIjI4KJr}# - (car #{maps _85hotwsCta0JfYIjI4KJq}#)))) - (if #{b _85hotwsCta0JfYIjI4KJt}# + (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# + #{src _hoQGWMnyQPAh3k2jhWHlB}# + #{var _hoQGWMnyQPAh3k2jhWHlC}# + (#{1-}# #{level _hoQGWMnyQPAh3k2jhWHlD}#) + (cdr #{maps _hoQGWMnyQPAh3k2jhWHlE}#))) + (lambda (#{outer-var _hoQGWMnyQPAh3k2jhWHlF}# + #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#) + (let ((#{b _hoQGWMnyQPAh3k2jhWHlH}# + (assq #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# + (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)))) + (if #{b _hoQGWMnyQPAh3k2jhWHlH}# (values - (cdr #{b _85hotwsCta0JfYIjI4KJt}#) - #{maps _85hotwsCta0JfYIjI4KJq}#) - (let ((#{inner-var _85hotwsCta0JfYIjI4KJv}# + (cdr #{b _hoQGWMnyQPAh3k2jhWHlH}#) + #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + (let ((#{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var _85hotwsCta0JfYIjI4KJv}# - (cons (cons (cons #{outer-var _85hotwsCta0JfYIjI4KJr}# - #{inner-var _85hotwsCta0JfYIjI4KJv}#) - (car #{maps _85hotwsCta0JfYIjI4KJq}#)) - #{outer-maps _85hotwsCta0JfYIjI4KJs}#))))))))))) - (#{gen-map _85hotwsCta0JfYIjI4KE3}# - (lambda (#{e _85hotwsCta0JfYIjI4KJ9}# - #{map-env _85hotwsCta0JfYIjI4KJ$}#) - (let ((#{formals _85hotwsCta0JfYIjI4KJ@}# - (map cdr #{map-env _85hotwsCta0JfYIjI4KJ$}#)) - (#{actuals _85hotwsCta0JfYIjI4KKA}# - (map (lambda (#{x _85hotwsCta0JfYIjI4KKC}#) - (list 'ref (car #{x _85hotwsCta0JfYIjI4KKC}#))) - #{map-env _85hotwsCta0JfYIjI4KJ$}#))) - (if (eq? (car #{e _85hotwsCta0JfYIjI4KJ9}#) 'ref) - (car #{actuals _85hotwsCta0JfYIjI4KKA}#) + #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# + (cons (cons (cons #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# + #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#) + (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)) + #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#))))))))))) + (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHlX}# + #{map-env _hoQGWMnyQPAh3k2jhWHlY}#) + (let ((#{formals _hoQGWMnyQPAh3k2jhWHlZ}# + (map cdr #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)) + (#{actuals _hoQGWMnyQPAh3k2jhWHla}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHlc}#) + (list 'ref (car #{x _hoQGWMnyQPAh3k2jhWHlc}#))) + #{map-env _hoQGWMnyQPAh3k2jhWHlY}#))) + (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHlX}#) 'ref) + (car #{actuals _hoQGWMnyQPAh3k2jhWHla}#) (if (and-map - (lambda (#{x _85hotwsCta0JfYIjI4KKD}#) - (if (eq? (car #{x _85hotwsCta0JfYIjI4KKD}#) 'ref) - (memq (car (cdr #{x _85hotwsCta0JfYIjI4KKD}#)) - #{formals _85hotwsCta0JfYIjI4KJ@}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHld}#) + (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHld}#) 'ref) + (memq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHld}#)) + #{formals _hoQGWMnyQPAh3k2jhWHlZ}#) #f)) - (cdr #{e _85hotwsCta0JfYIjI4KJ9}#)) + (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)) (cons 'map (cons (list 'primitive - (car #{e _85hotwsCta0JfYIjI4KJ9}#)) - (map (let ((#{r _85hotwsCta0JfYIjI4KKF}# + (car #{e _hoQGWMnyQPAh3k2jhWHlX}#)) + (map (let ((#{r _hoQGWMnyQPAh3k2jhWHlf}# (map cons - #{formals _85hotwsCta0JfYIjI4KJ@}# - #{actuals _85hotwsCta0JfYIjI4KKA}#))) - (lambda (#{x _85hotwsCta0JfYIjI4KKG}#) - (cdr (assq (car (cdr #{x _85hotwsCta0JfYIjI4KKG}#)) - #{r _85hotwsCta0JfYIjI4KKF}#)))) - (cdr #{e _85hotwsCta0JfYIjI4KJ9}#)))) + #{formals _hoQGWMnyQPAh3k2jhWHlZ}# + #{actuals _hoQGWMnyQPAh3k2jhWHla}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHlg}#) + (cdr (assq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHlg}#)) + #{r _hoQGWMnyQPAh3k2jhWHlf}#)))) + (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)))) (cons 'map (cons (list 'lambda - #{formals _85hotwsCta0JfYIjI4KJ@}# - #{e _85hotwsCta0JfYIjI4KJ9}#) - #{actuals _85hotwsCta0JfYIjI4KKA}#))))))) - (#{regen _85hotwsCta0JfYIjI4KE7}# - (lambda (#{x _85hotwsCta0JfYIjI4KKI}#) - (let ((#{atom-key _85hotwsCta0JfYIjI4KKJ}# - (car #{x _85hotwsCta0JfYIjI4KKI}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'ref) - (let ((#{name _85hotwsCta0JfYIjI4KKT}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))) - (#{var _85hotwsCta0JfYIjI4KKU}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + #{formals _hoQGWMnyQPAh3k2jhWHlZ}# + #{e _hoQGWMnyQPAh3k2jhWHlX}#) + #{actuals _hoQGWMnyQPAh3k2jhWHla}#))))))) + (#{regen _hoQGWMnyQPAh3k2jhWHgV}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWHli}#) + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHlj}# + (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'ref) + (let ((#{name _hoQGWMnyQPAh3k2jhWHlt}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (#{var _hoQGWMnyQPAh3k2jhWHlu}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name _85hotwsCta0JfYIjI4KKT}# - #{var _85hotwsCta0JfYIjI4KKU}#)) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# + #{name _hoQGWMnyQPAh3k2jhWHlt}# + #{var _hoQGWMnyQPAh3k2jhWHlu}#)) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'primitive) - (let ((#{name _85hotwsCta0JfYIjI4KKg}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + (let ((#{name _hoQGWMnyQPAh3k2jhWHl6}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _85hotwsCta0JfYIjI4KKg}#) + #{name _hoQGWMnyQPAh3k2jhWHl6}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _85hotwsCta0JfYIjI4KKg}# + #{name _hoQGWMnyQPAh3k2jhWHl6}# #f))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# 'quote) - (let ((#{exp _85hotwsCta0JfYIjI4KKy}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'quote) + (let ((#{exp _hoQGWMnyQPAh3k2jhWHmM}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp _85hotwsCta0JfYIjI4KKy}#)) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4KKJ}# + #{exp _hoQGWMnyQPAh3k2jhWHmM}#)) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'lambda) - (if (list? (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))) - (let ((#{req _85hotwsCta0JfYIjI4KK9}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))) - (#{vars _85hotwsCta0JfYIjI4KK@}# - (car (cdr #{x _85hotwsCta0JfYIjI4KKI}#))) - (#{exp _85hotwsCta0JfYIjI4KLB}# - (#{regen _85hotwsCta0JfYIjI4KE7}# - (car (cdr (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))))) - (let ((#{body _85hotwsCta0JfYIjI4KLG}# + (if (list? (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (let ((#{req _hoQGWMnyQPAh3k2jhWHmX}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (#{vars _hoQGWMnyQPAh3k2jhWHmZ}# + (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) + (#{exp _hoQGWMnyQPAh3k2jhWHmb}# + (#{regen _hoQGWMnyQPAh3k2jhWHgV}# + (car (cdr (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))))) + (let ((#{body _hoQGWMnyQPAh3k2jhWHmg}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _85hotwsCta0JfYIjI4KK9}# + #{req _hoQGWMnyQPAh3k2jhWHmX}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4KK@}# - #{exp _85hotwsCta0JfYIjI4KLB}# + #{vars _hoQGWMnyQPAh3k2jhWHmZ}# + #{exp _hoQGWMnyQPAh3k2jhWHmb}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _85hotwsCta0JfYIjI4KLG}#))) + #{body _hoQGWMnyQPAh3k2jhWHmg}#))) (error "how did we get here" - #{x _85hotwsCta0JfYIjI4KKI}#)) - (let ((#{fun-exp _85hotwsCta0JfYIjI4KLW}# - (let ((#{name _85hotwsCta0JfYIjI4KLf}# - (car #{x _85hotwsCta0JfYIjI4KKI}#))) + #{x _hoQGWMnyQPAh3k2jhWHli}#)) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# + (let ((#{name _hoQGWMnyQPAh3k2jhWHm5}# + (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _85hotwsCta0JfYIjI4KLf}#) + #{name _hoQGWMnyQPAh3k2jhWHm5}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _85hotwsCta0JfYIjI4KLf}# + #{name _hoQGWMnyQPAh3k2jhWHm5}# #f)))) - (#{arg-exps _85hotwsCta0JfYIjI4KLX}# - (map #{regen _85hotwsCta0JfYIjI4KE7}# - (cdr #{x _85hotwsCta0JfYIjI4KKI}#)))) + (#{arg-exps _hoQGWMnyQPAh3k2jhWHmx}# + (map #{regen _hoQGWMnyQPAh3k2jhWHgV}# + (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4KLW}# - #{arg-exps _85hotwsCta0JfYIjI4KLX}#)))))))))) - (lambda (#{e _85hotwsCta0JfYIjI4KE8}# - #{r _85hotwsCta0JfYIjI4KE9}# - #{w _85hotwsCta0JfYIjI4KE$}# - #{s _85hotwsCta0JfYIjI4KE@}# - #{mod _85hotwsCta0JfYIjI4KFA}#) - (let ((#{e _85hotwsCta0JfYIjI4KFB}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + #{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# + #{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#)))))))))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHgW}# + #{r _hoQGWMnyQPAh3k2jhWHgX}# + #{w _hoQGWMnyQPAh3k2jhWHgY}# + #{s _hoQGWMnyQPAh3k2jhWHgZ}# + #{mod _hoQGWMnyQPAh3k2jhWHga}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWHgb}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KE8}#) - #{s _85hotwsCta0JfYIjI4KE@}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHgW}#) + #{s _hoQGWMnyQPAh3k2jhWHgZ}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KE8}# - #{s _85hotwsCta0JfYIjI4KE@}#)) - #{e _85hotwsCta0JfYIjI4KE8}#) - #{w _85hotwsCta0JfYIjI4KE$}# - #{mod _85hotwsCta0JfYIjI4KFA}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4KFD}# + #{e _hoQGWMnyQPAh3k2jhWHgW}# + #{s _hoQGWMnyQPAh3k2jhWHgZ}#)) + #{e _hoQGWMnyQPAh3k2jhWHgW}#) + #{w _hoQGWMnyQPAh3k2jhWHgY}# + #{mod _hoQGWMnyQPAh3k2jhWHga}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHgd}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KFB}# + #{e _hoQGWMnyQPAh3k2jhWHgb}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4KFD}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHgd}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4KFc}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWHg2}#) (call-with-values (lambda () - (#{gen-syntax _85hotwsCta0JfYIjI4KE0}# - #{e _85hotwsCta0JfYIjI4KFB}# - #{x _85hotwsCta0JfYIjI4KFc}# - #{r _85hotwsCta0JfYIjI4KE9}# + (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# + #{e _hoQGWMnyQPAh3k2jhWHgb}# + #{x _hoQGWMnyQPAh3k2jhWHg2}# + #{r _hoQGWMnyQPAh3k2jhWHgX}# '() - #{ellipsis? _85hotwsCta0JfYIjI4J4T}# - #{mod _85hotwsCta0JfYIjI4KFA}#)) - (lambda (#{e _85hotwsCta0JfYIjI4KGS}# - #{maps _85hotwsCta0JfYIjI4KGT}#) - (#{regen _85hotwsCta0JfYIjI4KE7}# - #{e _85hotwsCta0JfYIjI4KGS}#)))) - #{tmp _85hotwsCta0JfYIjI4KFD}#) + #{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# + #{mod _hoQGWMnyQPAh3k2jhWHga}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWHhs}# + #{maps _hoQGWMnyQPAh3k2jhWHht}#) + (#{regen _hoQGWMnyQPAh3k2jhWHgV}# + #{e _hoQGWMnyQPAh3k2jhWHhs}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHgd}#) (syntax-violation 'syntax "bad `syntax' form" - #{e _85hotwsCta0JfYIjI4KFB}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHgb}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'lambda - (lambda (#{e _85hotwsCta0JfYIjI4KOc}# - #{r _85hotwsCta0JfYIjI4KOd}# - #{w _85hotwsCta0JfYIjI4KOe}# - #{s _85hotwsCta0JfYIjI4KOf}# - #{mod _85hotwsCta0JfYIjI4KOg}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KOi}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHp2}# + #{r _hoQGWMnyQPAh3k2jhWHp3}# + #{w _hoQGWMnyQPAh3k2jhWHp4}# + #{s _hoQGWMnyQPAh3k2jhWHp5}# + #{mod _hoQGWMnyQPAh3k2jhWHp6}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHp8}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KOc}# + #{e _hoQGWMnyQPAh3k2jhWHp2}# '(_ any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4KOi}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHp8}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KOm}# - #{e1 _85hotwsCta0JfYIjI4KOn}# - #{e2 _85hotwsCta0JfYIjI4KOo}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWHqA}# + #{e1 _hoQGWMnyQPAh3k2jhWHqB}# + #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) (call-with-values (lambda () - (#{lambda-formals _85hotwsCta0JfYIjI4J4U}# - #{args _85hotwsCta0JfYIjI4KOm}#)) - (lambda (#{req _85hotwsCta0JfYIjI4KOr}# - #{opt _85hotwsCta0JfYIjI4KOs}# - #{rest _85hotwsCta0JfYIjI4KOt}# - #{kw _85hotwsCta0JfYIjI4KOu}#) + (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# + #{args _hoQGWMnyQPAh3k2jhWHqA}#)) + (lambda (#{req _hoQGWMnyQPAh3k2jhWHqF}# + #{opt _hoQGWMnyQPAh3k2jhWHqG}# + #{rest _hoQGWMnyQPAh3k2jhWHqH}# + #{kw _hoQGWMnyQPAh3k2jhWHqI}#) (letrec* - ((#{lp _85hotwsCta0JfYIjI4KOv}# - (lambda (#{body _85hotwsCta0JfYIjI4KOy}# - #{meta _85hotwsCta0JfYIjI4KOz}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KO1}# + ((#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (lambda (#{body _hoQGWMnyQPAh3k2jhWHqM}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqP}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4KOy}# + #{body _hoQGWMnyQPAh3k2jhWHqM}# '(any any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KO1}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWHqP}# (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4KO5}# - #{e1 _85hotwsCta0JfYIjI4KO6}# - #{e2 _85hotwsCta0JfYIjI4KO7}#) + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqT}# + #{e1 _hoQGWMnyQPAh3k2jhWHqU}# + #{e2 _hoQGWMnyQPAh3k2jhWHqV}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4KO5}#))) - #{tmp _85hotwsCta0JfYIjI4KO1}#) + #{docstring _hoQGWMnyQPAh3k2jhWHqT}#))) + #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) #f) (@apply - (lambda (#{docstring _85hotwsCta0JfYIjI4KO8}# - #{e1 _85hotwsCta0JfYIjI4KO9}# - #{e2 _85hotwsCta0JfYIjI4KO$}#) - (#{lp _85hotwsCta0JfYIjI4KOv}# - (cons #{e1 _85hotwsCta0JfYIjI4KO9}# - #{e2 _85hotwsCta0JfYIjI4KO$}#) + (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqW}# + #{e1 _hoQGWMnyQPAh3k2jhWHqX}# + #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) + (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHqX}# + #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) (append - #{meta _85hotwsCta0JfYIjI4KOz}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}# (list (cons 'documentation (syntax->datum - #{docstring _85hotwsCta0JfYIjI4KO8}#)))))) - #{tmp _85hotwsCta0JfYIjI4KO1}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KO@}# + #{docstring _hoQGWMnyQPAh3k2jhWHqW}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqZ}# ($sc-dispatch - #{body _85hotwsCta0JfYIjI4KOy}# + #{body _hoQGWMnyQPAh3k2jhWHqM}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4KO@}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHqZ}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4KPD}# - #{v _85hotwsCta0JfYIjI4KPE}# - #{e1 _85hotwsCta0JfYIjI4KPF}# - #{e2 _85hotwsCta0JfYIjI4KPG}#) - (#{lp _85hotwsCta0JfYIjI4KOv}# - (cons #{e1 _85hotwsCta0JfYIjI4KPF}# - #{e2 _85hotwsCta0JfYIjI4KPG}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWHqd}# + #{v _hoQGWMnyQPAh3k2jhWHqe}# + #{e1 _hoQGWMnyQPAh3k2jhWHqf}# + #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) + (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHqf}# + #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) (append - #{meta _85hotwsCta0JfYIjI4KOz}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}# (syntax->datum (map cons - #{k _85hotwsCta0JfYIjI4KPD}# - #{v _85hotwsCta0JfYIjI4KPE}#))))) - #{tmp _85hotwsCta0JfYIjI4KO@}#) - (#{expand-simple-lambda _85hotwsCta0JfYIjI4J4V}# - #{e _85hotwsCta0JfYIjI4KOc}# - #{r _85hotwsCta0JfYIjI4KOd}# - #{w _85hotwsCta0JfYIjI4KOe}# - #{s _85hotwsCta0JfYIjI4KOf}# - #{mod _85hotwsCta0JfYIjI4KOg}# - #{req _85hotwsCta0JfYIjI4KOr}# - #{rest _85hotwsCta0JfYIjI4KOt}# - #{meta _85hotwsCta0JfYIjI4KOz}# - #{body _85hotwsCta0JfYIjI4KOy}#)))))))) - (#{lp _85hotwsCta0JfYIjI4KOv}# - (cons #{e1 _85hotwsCta0JfYIjI4KOn}# - #{e2 _85hotwsCta0JfYIjI4KOo}#) + #{k _hoQGWMnyQPAh3k2jhWHqd}# + #{v _hoQGWMnyQPAh3k2jhWHqe}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#) + (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# + #{e _hoQGWMnyQPAh3k2jhWHp2}# + #{r _hoQGWMnyQPAh3k2jhWHp3}# + #{w _hoQGWMnyQPAh3k2jhWHp4}# + #{s _hoQGWMnyQPAh3k2jhWHp5}# + #{mod _hoQGWMnyQPAh3k2jhWHp6}# + #{req _hoQGWMnyQPAh3k2jhWHqF}# + #{rest _hoQGWMnyQPAh3k2jhWHqH}# + #{meta _hoQGWMnyQPAh3k2jhWHqN}# + #{body _hoQGWMnyQPAh3k2jhWHqM}#)))))))) + (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHqB}# + #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) '()))))) - #{tmp _85hotwsCta0JfYIjI4KOi}#) + #{tmp _hoQGWMnyQPAh3k2jhWHp8}#) (syntax-violation 'lambda "bad lambda" - #{e _85hotwsCta0JfYIjI4KOc}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHp2}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'lambda* - (lambda (#{e _85hotwsCta0JfYIjI4KTj}# - #{r _85hotwsCta0JfYIjI4KTk}# - #{w _85hotwsCta0JfYIjI4KTl}# - #{s _85hotwsCta0JfYIjI4KTm}# - #{mod _85hotwsCta0JfYIjI4KTn}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KTp}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHu9}# + #{r _hoQGWMnyQPAh3k2jhWHu$}# + #{w _hoQGWMnyQPAh3k2jhWHu@}# + #{s _hoQGWMnyQPAh3k2jhWHvA}# + #{mod _hoQGWMnyQPAh3k2jhWHvB}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHvD}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KTj}# + #{e _hoQGWMnyQPAh3k2jhWHu9}# '(_ any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4KTp}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHvD}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KTt}# - #{e1 _85hotwsCta0JfYIjI4KTu}# - #{e2 _85hotwsCta0JfYIjI4KTv}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWHvH}# + #{e1 _hoQGWMnyQPAh3k2jhWHvI}# + #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#) (call-with-values (lambda () - (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}# - #{e _85hotwsCta0JfYIjI4KTj}# - #{r _85hotwsCta0JfYIjI4KTk}# - #{w _85hotwsCta0JfYIjI4KTl}# - #{s _85hotwsCta0JfYIjI4KTm}# - #{mod _85hotwsCta0JfYIjI4KTn}# - #{lambda*-formals _85hotwsCta0JfYIjI4J4W}# - (list (cons #{args _85hotwsCta0JfYIjI4KTt}# - (cons #{e1 _85hotwsCta0JfYIjI4KTu}# - #{e2 _85hotwsCta0JfYIjI4KTv}#))))) - (lambda (#{meta _85hotwsCta0JfYIjI4KTy}# - #{lcase _85hotwsCta0JfYIjI4KTz}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWHu9}# + #{r _hoQGWMnyQPAh3k2jhWHu$}# + #{w _hoQGWMnyQPAh3k2jhWHu@}# + #{s _hoQGWMnyQPAh3k2jhWHvA}# + #{mod _hoQGWMnyQPAh3k2jhWHvB}# + #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# + (list (cons #{args _hoQGWMnyQPAh3k2jhWHvH}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHvI}# + #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#))))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWHvM}# + #{lcase _hoQGWMnyQPAh3k2jhWHvN}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _85hotwsCta0JfYIjI4KTm}# - #{meta _85hotwsCta0JfYIjI4KTy}# - #{lcase _85hotwsCta0JfYIjI4KTz}#)))) - #{tmp _85hotwsCta0JfYIjI4KTp}#) + #{s _hoQGWMnyQPAh3k2jhWHvA}# + #{meta _hoQGWMnyQPAh3k2jhWHvM}# + #{lcase _hoQGWMnyQPAh3k2jhWHvN}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHvD}#) (syntax-violation 'lambda "bad lambda*" - #{e _85hotwsCta0JfYIjI4KTj}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHu9}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'case-lambda - (lambda (#{e _85hotwsCta0JfYIjI4KWd}# - #{r _85hotwsCta0JfYIjI4KWe}# - #{w _85hotwsCta0JfYIjI4KWf}# - #{s _85hotwsCta0JfYIjI4KWg}# - #{mod _85hotwsCta0JfYIjI4KWh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KWj}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWHx3}# + #{r _hoQGWMnyQPAh3k2jhWHx4}# + #{w _hoQGWMnyQPAh3k2jhWHx5}# + #{s _hoQGWMnyQPAh3k2jhWHx6}# + #{mod _hoQGWMnyQPAh3k2jhWHx7}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWHx9}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KWd}# + #{e _hoQGWMnyQPAh3k2jhWHx3}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _85hotwsCta0JfYIjI4KWj}# + (if #{tmp _hoQGWMnyQPAh3k2jhWHx9}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KWn}# - #{e1 _85hotwsCta0JfYIjI4KWo}# - #{e2 _85hotwsCta0JfYIjI4KWp}# - #{args* _85hotwsCta0JfYIjI4KWq}# - #{e1* _85hotwsCta0JfYIjI4KWr}# - #{e2* _85hotwsCta0JfYIjI4KWs}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWHyB}# + #{e1 _hoQGWMnyQPAh3k2jhWHyC}# + #{e2 _hoQGWMnyQPAh3k2jhWHyD}# + #{args* _hoQGWMnyQPAh3k2jhWHyE}# + #{e1* _hoQGWMnyQPAh3k2jhWHyF}# + #{e2* _hoQGWMnyQPAh3k2jhWHyG}#) (call-with-values (lambda () - (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}# - #{e _85hotwsCta0JfYIjI4KWd}# - #{r _85hotwsCta0JfYIjI4KWe}# - #{w _85hotwsCta0JfYIjI4KWf}# - #{s _85hotwsCta0JfYIjI4KWg}# - #{mod _85hotwsCta0JfYIjI4KWh}# - #{lambda-formals _85hotwsCta0JfYIjI4J4U}# - (cons (cons #{args _85hotwsCta0JfYIjI4KWn}# - (cons #{e1 _85hotwsCta0JfYIjI4KWo}# - #{e2 _85hotwsCta0JfYIjI4KWp}#)) - (map (lambda (#{tmp _85hotwsCta0JfYIjI4Jsf _85hotwsCta0JfYIjI4KWv}# - #{tmp _85hotwsCta0JfYIjI4Jse _85hotwsCta0JfYIjI4KWw}# - #{tmp _85hotwsCta0JfYIjI4Jsd _85hotwsCta0JfYIjI4KWx}#) - (cons #{tmp _85hotwsCta0JfYIjI4Jsd _85hotwsCta0JfYIjI4KWx}# - (cons #{tmp _85hotwsCta0JfYIjI4Jse _85hotwsCta0JfYIjI4KWw}# - #{tmp _85hotwsCta0JfYIjI4Jsf _85hotwsCta0JfYIjI4KWv}#))) - #{e2* _85hotwsCta0JfYIjI4KWs}# - #{e1* _85hotwsCta0JfYIjI4KWr}# - #{args* _85hotwsCta0JfYIjI4KWq}#)))) - (lambda (#{meta _85hotwsCta0JfYIjI4KWy}# - #{lcase _85hotwsCta0JfYIjI4KWz}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWHx3}# + #{r _hoQGWMnyQPAh3k2jhWHx4}# + #{w _hoQGWMnyQPAh3k2jhWHx5}# + #{s _hoQGWMnyQPAh3k2jhWHx6}# + #{mod _hoQGWMnyQPAh3k2jhWHx7}# + #{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# + (cons (cons #{args _hoQGWMnyQPAh3k2jhWHyB}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWHyC}# + #{e2 _hoQGWMnyQPAh3k2jhWHyD}#)) + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}# + #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# + #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#) + (cons #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}# + (cons #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# + #{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#))) + #{e2* _hoQGWMnyQPAh3k2jhWHyG}# + #{e1* _hoQGWMnyQPAh3k2jhWHyF}# + #{args* _hoQGWMnyQPAh3k2jhWHyE}#)))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWHyM}# + #{lcase _hoQGWMnyQPAh3k2jhWHyN}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _85hotwsCta0JfYIjI4KWg}# - #{meta _85hotwsCta0JfYIjI4KWy}# - #{lcase _85hotwsCta0JfYIjI4KWz}#)))) - #{tmp _85hotwsCta0JfYIjI4KWj}#) + #{s _hoQGWMnyQPAh3k2jhWHx6}# + #{meta _hoQGWMnyQPAh3k2jhWHyM}# + #{lcase _hoQGWMnyQPAh3k2jhWHyN}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWHx9}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e _85hotwsCta0JfYIjI4KWd}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWHx3}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'case-lambda* - (lambda (#{e _85hotwsCta0JfYIjI4KZV}# - #{r _85hotwsCta0JfYIjI4KZW}# - #{w _85hotwsCta0JfYIjI4KZX}# - #{s _85hotwsCta0JfYIjI4KZY}# - #{mod _85hotwsCta0JfYIjI4KZZ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KZb}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWH0v}# + #{r _hoQGWMnyQPAh3k2jhWH0w}# + #{w _hoQGWMnyQPAh3k2jhWH0x}# + #{s _hoQGWMnyQPAh3k2jhWH0y}# + #{mod _hoQGWMnyQPAh3k2jhWH0z}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWH01}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KZV}# + #{e _hoQGWMnyQPAh3k2jhWH0v}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _85hotwsCta0JfYIjI4KZb}# + (if #{tmp _hoQGWMnyQPAh3k2jhWH01}# (@apply - (lambda (#{args _85hotwsCta0JfYIjI4KZf}# - #{e1 _85hotwsCta0JfYIjI4KZg}# - #{e2 _85hotwsCta0JfYIjI4KZh}# - #{args* _85hotwsCta0JfYIjI4KZi}# - #{e1* _85hotwsCta0JfYIjI4KZj}# - #{e2* _85hotwsCta0JfYIjI4KZk}#) + (lambda (#{args _hoQGWMnyQPAh3k2jhWH05}# + #{e1 _hoQGWMnyQPAh3k2jhWH06}# + #{e2 _hoQGWMnyQPAh3k2jhWH07}# + #{args* _hoQGWMnyQPAh3k2jhWH08}# + #{e1* _hoQGWMnyQPAh3k2jhWH09}# + #{e2* _hoQGWMnyQPAh3k2jhWH0$}#) (call-with-values (lambda () - (#{expand-lambda-case _85hotwsCta0JfYIjI4J4X}# - #{e _85hotwsCta0JfYIjI4KZV}# - #{r _85hotwsCta0JfYIjI4KZW}# - #{w _85hotwsCta0JfYIjI4KZX}# - #{s _85hotwsCta0JfYIjI4KZY}# - #{mod _85hotwsCta0JfYIjI4KZZ}# - #{lambda*-formals _85hotwsCta0JfYIjI4J4W}# - (cons (cons #{args _85hotwsCta0JfYIjI4KZf}# - (cons #{e1 _85hotwsCta0JfYIjI4KZg}# - #{e2 _85hotwsCta0JfYIjI4KZh}#)) - (map (lambda (#{tmp _85hotwsCta0JfYIjI4Js0 _85hotwsCta0JfYIjI4KZn}# - #{tmp _85hotwsCta0JfYIjI4Jsz _85hotwsCta0JfYIjI4KZo}# - #{tmp _85hotwsCta0JfYIjI4Jsy _85hotwsCta0JfYIjI4KZp}#) - (cons #{tmp _85hotwsCta0JfYIjI4Jsy _85hotwsCta0JfYIjI4KZp}# - (cons #{tmp _85hotwsCta0JfYIjI4Jsz _85hotwsCta0JfYIjI4KZo}# - #{tmp _85hotwsCta0JfYIjI4Js0 _85hotwsCta0JfYIjI4KZn}#))) - #{e2* _85hotwsCta0JfYIjI4KZk}# - #{e1* _85hotwsCta0JfYIjI4KZj}# - #{args* _85hotwsCta0JfYIjI4KZi}#)))) - (lambda (#{meta _85hotwsCta0JfYIjI4KZq}# - #{lcase _85hotwsCta0JfYIjI4KZr}#) + (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# + #{e _hoQGWMnyQPAh3k2jhWH0v}# + #{r _hoQGWMnyQPAh3k2jhWH0w}# + #{w _hoQGWMnyQPAh3k2jhWH0x}# + #{s _hoQGWMnyQPAh3k2jhWH0y}# + #{mod _hoQGWMnyQPAh3k2jhWH0z}# + #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# + (cons (cons #{args _hoQGWMnyQPAh3k2jhWH05}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWH06}# + #{e2 _hoQGWMnyQPAh3k2jhWH07}#)) + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}# + #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# + #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#) + (cons #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}# + (cons #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# + #{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#))) + #{e2* _hoQGWMnyQPAh3k2jhWH0$}# + #{e1* _hoQGWMnyQPAh3k2jhWH09}# + #{args* _hoQGWMnyQPAh3k2jhWH08}#)))) + (lambda (#{meta _hoQGWMnyQPAh3k2jhWH1E}# + #{lcase _hoQGWMnyQPAh3k2jhWH1F}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _85hotwsCta0JfYIjI4KZY}# - #{meta _85hotwsCta0JfYIjI4KZq}# - #{lcase _85hotwsCta0JfYIjI4KZr}#)))) - #{tmp _85hotwsCta0JfYIjI4KZb}#) + #{s _hoQGWMnyQPAh3k2jhWH0y}# + #{meta _hoQGWMnyQPAh3k2jhWH1E}# + #{lcase _hoQGWMnyQPAh3k2jhWH1F}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWH01}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e _85hotwsCta0JfYIjI4KZV}#))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWH0v}#))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'let (letrec* - ((#{expand-let _85hotwsCta0JfYIjI4Kcq}# - (lambda (#{e _85hotwsCta0JfYIjI4Ke@}# - #{r _85hotwsCta0JfYIjI4KfA}# - #{w _85hotwsCta0JfYIjI4KfB}# - #{s _85hotwsCta0JfYIjI4KfC}# - #{mod _85hotwsCta0JfYIjI4KfD}# - #{constructor _85hotwsCta0JfYIjI4KfE}# - #{ids _85hotwsCta0JfYIjI4KfF}# - #{vals _85hotwsCta0JfYIjI4KfG}# - #{exps _85hotwsCta0JfYIjI4KfH}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{ids _85hotwsCta0JfYIjI4KfF}#)) + ((#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWH6Z}# + #{r _hoQGWMnyQPAh3k2jhWH6a}# + #{w _hoQGWMnyQPAh3k2jhWH6b}# + #{s _hoQGWMnyQPAh3k2jhWH6c}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}# + #{constructor _hoQGWMnyQPAh3k2jhWH6e}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}# + #{vals _hoQGWMnyQPAh3k2jhWH6g}# + #{exps _hoQGWMnyQPAh3k2jhWH6h}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) (syntax-violation 'let "duplicate bound variable" - #{e _85hotwsCta0JfYIjI4Ke@}#) - (let ((#{labels _85hotwsCta0JfYIjI4KgV}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{ids _85hotwsCta0JfYIjI4KfF}#)) - (#{new-vars _85hotwsCta0JfYIjI4KgW}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{ids _85hotwsCta0JfYIjI4KfF}#))) - (let ((#{nw _85hotwsCta0JfYIjI4KgX}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{ids _85hotwsCta0JfYIjI4KfF}# - #{labels _85hotwsCta0JfYIjI4KgV}# - #{w _85hotwsCta0JfYIjI4KfB}#)) - (#{nr _85hotwsCta0JfYIjI4KgY}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{labels _85hotwsCta0JfYIjI4KgV}# - #{new-vars _85hotwsCta0JfYIjI4KgW}# - #{r _85hotwsCta0JfYIjI4KfA}#))) - (#{constructor _85hotwsCta0JfYIjI4KfE}# - #{s _85hotwsCta0JfYIjI4KfC}# + #{e _hoQGWMnyQPAh3k2jhWH6Z}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWH7v}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWH7w}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#))) + (let ((#{nw _hoQGWMnyQPAh3k2jhWH7x}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}# + #{labels _hoQGWMnyQPAh3k2jhWH7v}# + #{w _hoQGWMnyQPAh3k2jhWH6b}#)) + (#{nr _hoQGWMnyQPAh3k2jhWH7y}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWH7v}# + #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# + #{r _hoQGWMnyQPAh3k2jhWH6a}#))) + (#{constructor _hoQGWMnyQPAh3k2jhWH6e}# + #{s _hoQGWMnyQPAh3k2jhWH6c}# (map syntax->datum - #{ids _85hotwsCta0JfYIjI4KfF}#) - #{new-vars _85hotwsCta0JfYIjI4KgW}# - (map (lambda (#{x _85hotwsCta0JfYIjI4Kgp}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4Kgp}# - #{r _85hotwsCta0JfYIjI4KfA}# - #{w _85hotwsCta0JfYIjI4KfB}# - #{mod _85hotwsCta0JfYIjI4KfD}#)) - #{vals _85hotwsCta0JfYIjI4KfG}#) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - #{exps _85hotwsCta0JfYIjI4KfH}# - (#{source-wrap _85hotwsCta0JfYIjI4J4F}# - #{e _85hotwsCta0JfYIjI4Ke@}# - #{nw _85hotwsCta0JfYIjI4KgX}# - #{s _85hotwsCta0JfYIjI4KfC}# - #{mod _85hotwsCta0JfYIjI4KfD}#) - #{nr _85hotwsCta0JfYIjI4KgY}# - #{nw _85hotwsCta0JfYIjI4KgX}# - #{mod _85hotwsCta0JfYIjI4KfD}#)))))))) - (lambda (#{e _85hotwsCta0JfYIjI4Kcr}# - #{r _85hotwsCta0JfYIjI4Kcs}# - #{w _85hotwsCta0JfYIjI4Kct}# - #{s _85hotwsCta0JfYIjI4Kcu}# - #{mod _85hotwsCta0JfYIjI4Kcv}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Kcx}# + #{ids _hoQGWMnyQPAh3k2jhWH6f}#) + #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWH8D}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWH8D}# + #{r _hoQGWMnyQPAh3k2jhWH6a}# + #{w _hoQGWMnyQPAh3k2jhWH6b}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}#)) + #{vals _hoQGWMnyQPAh3k2jhWH6g}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + #{exps _hoQGWMnyQPAh3k2jhWH6h}# + (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# + #{e _hoQGWMnyQPAh3k2jhWH6Z}# + #{nw _hoQGWMnyQPAh3k2jhWH7x}# + #{s _hoQGWMnyQPAh3k2jhWH6c}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}#) + #{nr _hoQGWMnyQPAh3k2jhWH7y}# + #{nw _hoQGWMnyQPAh3k2jhWH7x}# + #{mod _hoQGWMnyQPAh3k2jhWH6d}#)))))))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWH4F}# + #{r _hoQGWMnyQPAh3k2jhWH4G}# + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{s _hoQGWMnyQPAh3k2jhWH4I}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWH4L}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Kcr}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Kcx}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWH4L}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Kc1}# - #{val _85hotwsCta0JfYIjI4Kc2}# - #{e1 _85hotwsCta0JfYIjI4Kc3}# - #{e2 _85hotwsCta0JfYIjI4Kc4}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWH4P}# + #{val _hoQGWMnyQPAh3k2jhWH4Q}# + #{e1 _hoQGWMnyQPAh3k2jhWH4R}# + #{e2 _hoQGWMnyQPAh3k2jhWH4S}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4Kc1}#)) - #{tmp _85hotwsCta0JfYIjI4Kcx}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWH4P}#)) + #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KdI}# - #{val _85hotwsCta0JfYIjI4KdJ}# - #{e1 _85hotwsCta0JfYIjI4KdK}# - #{e2 _85hotwsCta0JfYIjI4KdL}#) - (#{expand-let _85hotwsCta0JfYIjI4Kcq}# - #{e _85hotwsCta0JfYIjI4Kcr}# - #{r _85hotwsCta0JfYIjI4Kcs}# - #{w _85hotwsCta0JfYIjI4Kct}# - #{s _85hotwsCta0JfYIjI4Kcu}# - #{mod _85hotwsCta0JfYIjI4Kcv}# - #{build-let _85hotwsCta0JfYIjI4J3V}# - #{id _85hotwsCta0JfYIjI4KdI}# - #{val _85hotwsCta0JfYIjI4KdJ}# - (cons #{e1 _85hotwsCta0JfYIjI4KdK}# - #{e2 _85hotwsCta0JfYIjI4KdL}#))) - #{tmp _85hotwsCta0JfYIjI4Kcx}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Kdp}# + (lambda (#{id _hoQGWMnyQPAh3k2jhWH4i}# + #{val _hoQGWMnyQPAh3k2jhWH4j}# + #{e1 _hoQGWMnyQPAh3k2jhWH4k}# + #{e2 _hoQGWMnyQPAh3k2jhWH4l}#) + (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{r _hoQGWMnyQPAh3k2jhWH4G}# + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{s _hoQGWMnyQPAh3k2jhWH4I}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}# + #{build-let _hoQGWMnyQPAh3k2jhWHSv}# + #{id _hoQGWMnyQPAh3k2jhWH4i}# + #{val _hoQGWMnyQPAh3k2jhWH4j}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWH4k}# + #{e2 _hoQGWMnyQPAh3k2jhWH4l}#))) + #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWH5D}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Kcr}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Kdp}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWH5D}# (@apply - (lambda (#{f _85hotwsCta0JfYIjI4Kdt}# - #{id _85hotwsCta0JfYIjI4Kdu}# - #{val _85hotwsCta0JfYIjI4Kdv}# - #{e1 _85hotwsCta0JfYIjI4Kdw}# - #{e2 _85hotwsCta0JfYIjI4Kdx}#) - (if (if (symbol? #{f _85hotwsCta0JfYIjI4Kdt}#) + (lambda (#{f _hoQGWMnyQPAh3k2jhWH5H}# + #{id _hoQGWMnyQPAh3k2jhWH5I}# + #{val _hoQGWMnyQPAh3k2jhWH5J}# + #{e1 _hoQGWMnyQPAh3k2jhWH5K}# + #{e2 _hoQGWMnyQPAh3k2jhWH5L}#) + (if (if (symbol? #{f _hoQGWMnyQPAh3k2jhWH5H}#) #t (if (if (vector? - #{f _85hotwsCta0JfYIjI4Kdt}#) + #{f _hoQGWMnyQPAh3k2jhWH5H}#) (if (= (vector-length - #{f _85hotwsCta0JfYIjI4Kdt}#) + #{f _hoQGWMnyQPAh3k2jhWH5H}#) 4) (eq? (vector-ref - #{f _85hotwsCta0JfYIjI4Kdt}# + #{f _hoQGWMnyQPAh3k2jhWH5H}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{f _85hotwsCta0JfYIjI4Kdt}# + #{f _hoQGWMnyQPAh3k2jhWH5H}# 1)) #f)) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4Kdu}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWH5I}#) #f)) - #{tmp _85hotwsCta0JfYIjI4Kdp}#) + #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) #f) (@apply - (lambda (#{f _85hotwsCta0JfYIjI4Keb}# - #{id _85hotwsCta0JfYIjI4Kec}# - #{val _85hotwsCta0JfYIjI4Ked}# - #{e1 _85hotwsCta0JfYIjI4Kee}# - #{e2 _85hotwsCta0JfYIjI4Kef}#) - (#{expand-let _85hotwsCta0JfYIjI4Kcq}# - #{e _85hotwsCta0JfYIjI4Kcr}# - #{r _85hotwsCta0JfYIjI4Kcs}# - #{w _85hotwsCta0JfYIjI4Kct}# - #{s _85hotwsCta0JfYIjI4Kcu}# - #{mod _85hotwsCta0JfYIjI4Kcv}# - #{build-named-let _85hotwsCta0JfYIjI4J3W}# - (cons #{f _85hotwsCta0JfYIjI4Keb}# - #{id _85hotwsCta0JfYIjI4Kec}#) - #{val _85hotwsCta0JfYIjI4Ked}# - (cons #{e1 _85hotwsCta0JfYIjI4Kee}# - #{e2 _85hotwsCta0JfYIjI4Kef}#))) - #{tmp _85hotwsCta0JfYIjI4Kdp}#) + (lambda (#{f _hoQGWMnyQPAh3k2jhWH51}# + #{id _hoQGWMnyQPAh3k2jhWH52}# + #{val _hoQGWMnyQPAh3k2jhWH53}# + #{e1 _hoQGWMnyQPAh3k2jhWH54}# + #{e2 _hoQGWMnyQPAh3k2jhWH55}#) + (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{r _hoQGWMnyQPAh3k2jhWH4G}# + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{s _hoQGWMnyQPAh3k2jhWH4I}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}# + #{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# + (cons #{f _hoQGWMnyQPAh3k2jhWH51}# + #{id _hoQGWMnyQPAh3k2jhWH52}#) + #{val _hoQGWMnyQPAh3k2jhWH53}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWH54}# + #{e2 _hoQGWMnyQPAh3k2jhWH55}#))) + #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) (syntax-violation 'let "bad let" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Kcr}#) - #{s _85hotwsCta0JfYIjI4Kcu}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWH4F}#) + #{s _hoQGWMnyQPAh3k2jhWH4I}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Kcr}# - #{s _85hotwsCta0JfYIjI4Kcu}#)) - #{e _85hotwsCta0JfYIjI4Kcr}#) - #{w _85hotwsCta0JfYIjI4Kct}# - #{mod _85hotwsCta0JfYIjI4Kcv}#))))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{s _hoQGWMnyQPAh3k2jhWH4I}#)) + #{e _hoQGWMnyQPAh3k2jhWH4F}#) + #{w _hoQGWMnyQPAh3k2jhWH4H}# + #{mod _hoQGWMnyQPAh3k2jhWH4J}#))))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'letrec - (lambda (#{e _85hotwsCta0JfYIjI4Km3}# - #{r _85hotwsCta0JfYIjI4Km4}# - #{w _85hotwsCta0JfYIjI4Km5}# - #{s _85hotwsCta0JfYIjI4Km6}# - #{mod _85hotwsCta0JfYIjI4Km7}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Km9}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWICR}# + #{r _hoQGWMnyQPAh3k2jhWICS}# + #{w _hoQGWMnyQPAh3k2jhWICT}# + #{s _hoQGWMnyQPAh3k2jhWICU}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWICX}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4Km3}# + #{e _hoQGWMnyQPAh3k2jhWICR}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4Km9}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWICX}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KnB}# - #{val _85hotwsCta0JfYIjI4KnC}# - #{e1 _85hotwsCta0JfYIjI4KnD}# - #{e2 _85hotwsCta0JfYIjI4KnE}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWICb}# + #{val _hoQGWMnyQPAh3k2jhWICc}# + #{e1 _hoQGWMnyQPAh3k2jhWICd}# + #{e2 _hoQGWMnyQPAh3k2jhWICe}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4KnB}#)) - #{tmp _85hotwsCta0JfYIjI4Km9}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWICb}#)) + #{tmp _hoQGWMnyQPAh3k2jhWICX}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KnU}# - #{val _85hotwsCta0JfYIjI4KnV}# - #{e1 _85hotwsCta0JfYIjI4KnW}# - #{e2 _85hotwsCta0JfYIjI4KnX}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{id _85hotwsCta0JfYIjI4KnU}#)) + (lambda (#{id _hoQGWMnyQPAh3k2jhWICu}# + #{val _hoQGWMnyQPAh3k2jhWICv}# + #{e1 _hoQGWMnyQPAh3k2jhWICw}# + #{e2 _hoQGWMnyQPAh3k2jhWICx}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{id _hoQGWMnyQPAh3k2jhWICu}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e _85hotwsCta0JfYIjI4Km3}#) - (let ((#{labels _85hotwsCta0JfYIjI4Kox}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{id _85hotwsCta0JfYIjI4KnU}#)) - (#{new-vars _85hotwsCta0JfYIjI4Koy}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{id _85hotwsCta0JfYIjI4KnU}#))) - (let ((#{w _85hotwsCta0JfYIjI4Koz}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{id _85hotwsCta0JfYIjI4KnU}# - #{labels _85hotwsCta0JfYIjI4Kox}# - #{w _85hotwsCta0JfYIjI4Km5}#)) - (#{r _85hotwsCta0JfYIjI4Ko0}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{labels _85hotwsCta0JfYIjI4Kox}# - #{new-vars _85hotwsCta0JfYIjI4Koy}# - #{r _85hotwsCta0JfYIjI4Km4}#))) - (#{build-letrec _85hotwsCta0JfYIjI4J3X}# - #{s _85hotwsCta0JfYIjI4Km6}# + #{e _hoQGWMnyQPAh3k2jhWICR}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWIEL}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{id _hoQGWMnyQPAh3k2jhWICu}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWIEM}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{id _hoQGWMnyQPAh3k2jhWICu}#))) + (let ((#{w _hoQGWMnyQPAh3k2jhWIEN}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{id _hoQGWMnyQPAh3k2jhWICu}# + #{labels _hoQGWMnyQPAh3k2jhWIEL}# + #{w _hoQGWMnyQPAh3k2jhWICT}#)) + (#{r _hoQGWMnyQPAh3k2jhWIEO}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWIEL}# + #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# + #{r _hoQGWMnyQPAh3k2jhWICS}#))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + #{s _hoQGWMnyQPAh3k2jhWICU}# #f - (map syntax->datum #{id _85hotwsCta0JfYIjI4KnU}#) - #{new-vars _85hotwsCta0JfYIjI4Koy}# - (map (lambda (#{x _85hotwsCta0JfYIjI4KqF}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4KqF}# - #{r _85hotwsCta0JfYIjI4Ko0}# - #{w _85hotwsCta0JfYIjI4Koz}# - #{mod _85hotwsCta0JfYIjI4Km7}#)) - #{val _85hotwsCta0JfYIjI4KnV}#) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{e1 _85hotwsCta0JfYIjI4KnW}# - #{e2 _85hotwsCta0JfYIjI4KnX}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWICu}#) + #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIFf}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWIFf}# + #{r _hoQGWMnyQPAh3k2jhWIEO}# + #{w _hoQGWMnyQPAh3k2jhWIEN}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#)) + #{val _hoQGWMnyQPAh3k2jhWICv}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWICw}# + #{e2 _hoQGWMnyQPAh3k2jhWICx}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#) - #{s _85hotwsCta0JfYIjI4Km6}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{s _hoQGWMnyQPAh3k2jhWICU}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Km3}# - #{s _85hotwsCta0JfYIjI4Km6}#)) - #{e _85hotwsCta0JfYIjI4Km3}#) - #{w _85hotwsCta0JfYIjI4Koz}# - #{mod _85hotwsCta0JfYIjI4Km7}#) - #{r _85hotwsCta0JfYIjI4Ko0}# - #{w _85hotwsCta0JfYIjI4Koz}# - #{mod _85hotwsCta0JfYIjI4Km7}#)))))) - #{tmp _85hotwsCta0JfYIjI4Km9}#) + #{e _hoQGWMnyQPAh3k2jhWICR}# + #{s _hoQGWMnyQPAh3k2jhWICU}#)) + #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{w _hoQGWMnyQPAh3k2jhWIEN}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#) + #{r _hoQGWMnyQPAh3k2jhWIEO}# + #{w _hoQGWMnyQPAh3k2jhWIEN}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWICX}#) (syntax-violation 'letrec "bad letrec" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4Km3}#) - #{s _85hotwsCta0JfYIjI4Km6}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{s _hoQGWMnyQPAh3k2jhWICU}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4Km3}# - #{s _85hotwsCta0JfYIjI4Km6}#)) - #{e _85hotwsCta0JfYIjI4Km3}#) - #{w _85hotwsCta0JfYIjI4Km5}# - #{mod _85hotwsCta0JfYIjI4Km7}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWICR}# + #{s _hoQGWMnyQPAh3k2jhWICU}#)) + #{e _hoQGWMnyQPAh3k2jhWICR}#) + #{w _hoQGWMnyQPAh3k2jhWICT}# + #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'letrec* - (lambda (#{e _85hotwsCta0JfYIjI4KwI}# - #{r _85hotwsCta0JfYIjI4KwJ}# - #{w _85hotwsCta0JfYIjI4KwK}# - #{s _85hotwsCta0JfYIjI4KwL}# - #{mod _85hotwsCta0JfYIjI4KwM}#) - (let ((#{tmp _85hotwsCta0JfYIjI4KwO}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWILi}# + #{r _hoQGWMnyQPAh3k2jhWILj}# + #{w _hoQGWMnyQPAh3k2jhWILk}# + #{s _hoQGWMnyQPAh3k2jhWILl}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWILo}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4KwI}# + #{e _hoQGWMnyQPAh3k2jhWILi}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4KwO}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWILo}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4KwS}# - #{val _85hotwsCta0JfYIjI4KwT}# - #{e1 _85hotwsCta0JfYIjI4KwU}# - #{e2 _85hotwsCta0JfYIjI4KwV}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWILs}# + #{val _hoQGWMnyQPAh3k2jhWILt}# + #{e1 _hoQGWMnyQPAh3k2jhWILu}# + #{e2 _hoQGWMnyQPAh3k2jhWILv}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{id _85hotwsCta0JfYIjI4KwS}#)) - #{tmp _85hotwsCta0JfYIjI4KwO}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{id _hoQGWMnyQPAh3k2jhWILs}#)) + #{tmp _hoQGWMnyQPAh3k2jhWILo}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Kwl}# - #{val _85hotwsCta0JfYIjI4Kwm}# - #{e1 _85hotwsCta0JfYIjI4Kwn}# - #{e2 _85hotwsCta0JfYIjI4Kwo}#) - (if (not (#{valid-bound-ids? _85hotwsCta0JfYIjI4J4B}# - #{id _85hotwsCta0JfYIjI4Kwl}#)) + (lambda (#{id _hoQGWMnyQPAh3k2jhWIL@}# + #{val _hoQGWMnyQPAh3k2jhWIMA}# + #{e1 _hoQGWMnyQPAh3k2jhWIMB}# + #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) + (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + #{id _hoQGWMnyQPAh3k2jhWIL@}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e _85hotwsCta0JfYIjI4KwI}#) - (let ((#{labels _85hotwsCta0JfYIjI4KyC}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{id _85hotwsCta0JfYIjI4Kwl}#)) - (#{new-vars _85hotwsCta0JfYIjI4KyD}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{id _85hotwsCta0JfYIjI4Kwl}#))) - (let ((#{w _85hotwsCta0JfYIjI4KyE}# - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{id _85hotwsCta0JfYIjI4Kwl}# - #{labels _85hotwsCta0JfYIjI4KyC}# - #{w _85hotwsCta0JfYIjI4KwK}#)) - (#{r _85hotwsCta0JfYIjI4KyF}# - (#{extend-var-env _85hotwsCta0JfYIjI4J3i}# - #{labels _85hotwsCta0JfYIjI4KyC}# - #{new-vars _85hotwsCta0JfYIjI4KyD}# - #{r _85hotwsCta0JfYIjI4KwJ}#))) - (#{build-letrec _85hotwsCta0JfYIjI4J3X}# - #{s _85hotwsCta0JfYIjI4KwL}# + #{e _hoQGWMnyQPAh3k2jhWILi}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWINc}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{id _hoQGWMnyQPAh3k2jhWIL@}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWINd}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{id _hoQGWMnyQPAh3k2jhWIL@}#))) + (let ((#{w _hoQGWMnyQPAh3k2jhWINe}# + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{id _hoQGWMnyQPAh3k2jhWIL@}# + #{labels _hoQGWMnyQPAh3k2jhWINc}# + #{w _hoQGWMnyQPAh3k2jhWILk}#)) + (#{r _hoQGWMnyQPAh3k2jhWINf}# + (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# + #{labels _hoQGWMnyQPAh3k2jhWINc}# + #{new-vars _hoQGWMnyQPAh3k2jhWINd}# + #{r _hoQGWMnyQPAh3k2jhWILj}#))) + (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + #{s _hoQGWMnyQPAh3k2jhWILl}# #t - (map syntax->datum #{id _85hotwsCta0JfYIjI4Kwl}#) - #{new-vars _85hotwsCta0JfYIjI4KyD}# - (map (lambda (#{x _85hotwsCta0JfYIjI4KzW}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4KzW}# - #{r _85hotwsCta0JfYIjI4KyF}# - #{w _85hotwsCta0JfYIjI4KyE}# - #{mod _85hotwsCta0JfYIjI4KwM}#)) - #{val _85hotwsCta0JfYIjI4Kwm}#) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{e1 _85hotwsCta0JfYIjI4Kwn}# - #{e2 _85hotwsCta0JfYIjI4Kwo}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWIL@}#) + #{new-vars _hoQGWMnyQPAh3k2jhWINd}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIOw}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWIOw}# + #{r _hoQGWMnyQPAh3k2jhWINf}# + #{w _hoQGWMnyQPAh3k2jhWINe}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#)) + #{val _hoQGWMnyQPAh3k2jhWIMA}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWIMB}# + #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#) - #{s _85hotwsCta0JfYIjI4KwL}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{s _hoQGWMnyQPAh3k2jhWILl}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KwI}# - #{s _85hotwsCta0JfYIjI4KwL}#)) - #{e _85hotwsCta0JfYIjI4KwI}#) - #{w _85hotwsCta0JfYIjI4KyE}# - #{mod _85hotwsCta0JfYIjI4KwM}#) - #{r _85hotwsCta0JfYIjI4KyF}# - #{w _85hotwsCta0JfYIjI4KyE}# - #{mod _85hotwsCta0JfYIjI4KwM}#)))))) - #{tmp _85hotwsCta0JfYIjI4KwO}#) + #{e _hoQGWMnyQPAh3k2jhWILi}# + #{s _hoQGWMnyQPAh3k2jhWILl}#)) + #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{w _hoQGWMnyQPAh3k2jhWINe}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#) + #{r _hoQGWMnyQPAh3k2jhWINf}# + #{w _hoQGWMnyQPAh3k2jhWINe}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWILo}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4KwI}#) - #{s _85hotwsCta0JfYIjI4KwL}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{s _hoQGWMnyQPAh3k2jhWILl}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4KwI}# - #{s _85hotwsCta0JfYIjI4KwL}#)) - #{e _85hotwsCta0JfYIjI4KwI}#) - #{w _85hotwsCta0JfYIjI4KwK}# - #{mod _85hotwsCta0JfYIjI4KwM}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWILi}# + #{s _hoQGWMnyQPAh3k2jhWILl}#)) + #{e _hoQGWMnyQPAh3k2jhWILi}#) + #{w _hoQGWMnyQPAh3k2jhWILk}# + #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'set! - (lambda (#{e _85hotwsCta0JfYIjI4K6A}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{s _85hotwsCta0JfYIjI4K6D}# - #{mod _85hotwsCta0JfYIjI4K6E}#) - (let ((#{tmp _85hotwsCta0JfYIjI4K6G}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIVa}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIVg}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4K6A}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4K6G}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWIVg}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4K6K}# - #{val _85hotwsCta0JfYIjI4K6L}#) - (if (symbol? #{id _85hotwsCta0JfYIjI4K6K}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWIVk}# + #{val _hoQGWMnyQPAh3k2jhWIVl}#) + (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIVk}#) #t - (if (if (vector? #{id _85hotwsCta0JfYIjI4K6K}#) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIVk}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4K6K}#) + #{id _hoQGWMnyQPAh3k2jhWIVk}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4K6K}# + #{id _hoQGWMnyQPAh3k2jhWIVk}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _85hotwsCta0JfYIjI4K6K}# 1)) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWIVk}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4K6G}#) + #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4K6m}# - #{val _85hotwsCta0JfYIjI4K6n}#) - (let ((#{n _85hotwsCta0JfYIjI4K6o}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{id _85hotwsCta0JfYIjI4K6m}# - #{w _85hotwsCta0JfYIjI4K6C}#)) - (#{id-mod _85hotwsCta0JfYIjI4K6p}# - (if (if (vector? #{id _85hotwsCta0JfYIjI4K6m}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWIWA}# + #{val _hoQGWMnyQPAh3k2jhWIWB}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWIWC}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{w _hoQGWMnyQPAh3k2jhWIVc}#)) + (#{id-mod _hoQGWMnyQPAh3k2jhWIWD}# + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIWA}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4K6m}#) + #{id _hoQGWMnyQPAh3k2jhWIWA}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4K6m}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _85hotwsCta0JfYIjI4K6m}# 3) - #{mod _85hotwsCta0JfYIjI4K6E}#))) - (let ((#{b _85hotwsCta0JfYIjI4K6q}# - (let ((#{t _85hotwsCta0JfYIjI4K7T}# - (assq #{n _85hotwsCta0JfYIjI4K6o}# - #{r _85hotwsCta0JfYIjI4K6B}#))) - (if #{t _85hotwsCta0JfYIjI4K7T}# - (cdr #{t _85hotwsCta0JfYIjI4K7T}#) - (if (symbol? #{n _85hotwsCta0JfYIjI4K6o}#) - (let ((#{t _85hotwsCta0JfYIjI4K7Y}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4K6o}# - #{id-mod _85hotwsCta0JfYIjI4K6p}#))) - (if #{t _85hotwsCta0JfYIjI4K7Y}# - #{t _85hotwsCta0JfYIjI4K7Y}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWIWA}# 3) + #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWIWE}# + (let ((#{t _hoQGWMnyQPAh3k2jhWIWt}# + (assq #{n _hoQGWMnyQPAh3k2jhWIWC}# + #{r _hoQGWMnyQPAh3k2jhWIVb}#))) + (if #{t _hoQGWMnyQPAh3k2jhWIWt}# + (cdr #{t _hoQGWMnyQPAh3k2jhWIWt}#) + (if (symbol? #{n _hoQGWMnyQPAh3k2jhWIWC}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWIWy}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWIWC}# + #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#))) + (if #{t _hoQGWMnyQPAh3k2jhWIWy}# + #{t _hoQGWMnyQPAh3k2jhWIWy}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key _85hotwsCta0JfYIjI4K6r}# - (car #{b _85hotwsCta0JfYIjI4K6q}#))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}# + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (car #{b _hoQGWMnyQPAh3k2jhWIWE}#))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# 'lexical) - (#{build-lexical-assignment _85hotwsCta0JfYIjI4J3K}# - #{s _85hotwsCta0JfYIjI4K6D}# - (syntax->datum #{id _85hotwsCta0JfYIjI4K6m}#) - (cdr #{b _85hotwsCta0JfYIjI4K6q}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{val _85hotwsCta0JfYIjI4K6n}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}# + (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIWA}#) + (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWIWB}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# 'global) - (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}# - #{s _85hotwsCta0JfYIjI4K6D}# - #{n _85hotwsCta0JfYIjI4K6o}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{val _85hotwsCta0JfYIjI4K6n}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#) - #{id-mod _85hotwsCta0JfYIjI4K6p}#) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}# + (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + #{n _hoQGWMnyQPAh3k2jhWIWC}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWIWB}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# 'macro) - (let ((#{p _85hotwsCta0JfYIjI4LAS}# - (cdr #{b _85hotwsCta0JfYIjI4K6q}#))) + (let ((#{p _hoQGWMnyQPAh3k2jhWIbs}# + (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#))) (if (procedure-property - #{p _85hotwsCta0JfYIjI4LAS}# + #{p _hoQGWMnyQPAh3k2jhWIbs}# 'variable-transformer) - (#{expand _85hotwsCta0JfYIjI4J4L}# - (#{expand-macro _85hotwsCta0JfYIjI4J4O}# - #{p _85hotwsCta0JfYIjI4LAS}# - #{e _85hotwsCta0JfYIjI4K6A}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{s _85hotwsCta0JfYIjI4K6D}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# + #{p _hoQGWMnyQPAh3k2jhWIbs}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# #f - #{mod _85hotwsCta0JfYIjI4K6E}#) - #{r _85hotwsCta0JfYIjI4K6B}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + #{r _hoQGWMnyQPAh3k2jhWIVb}# '(()) - #{mod _85hotwsCta0JfYIjI4K6E}#) + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4K6A}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{id _85hotwsCta0JfYIjI4K6m}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{id-mod _85hotwsCta0JfYIjI4K6p}#)))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4K6r}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{id _85hotwsCta0JfYIjI4K6m}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) (syntax-violation 'set! "bad set!" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#) - #{s _85hotwsCta0JfYIjI4K6D}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{s _hoQGWMnyQPAh3k2jhWIVd}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4K6A}# - #{s _85hotwsCta0JfYIjI4K6D}#)) - #{e _85hotwsCta0JfYIjI4K6A}#) - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)))))))))) - #{tmp _85hotwsCta0JfYIjI4K6G}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LBx}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{s _hoQGWMnyQPAh3k2jhWIVd}#)) + #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdL}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4K6A}# + #{e _hoQGWMnyQPAh3k2jhWIVa}# '(_ (any . each-any) any)))) - (if #{tmp _85hotwsCta0JfYIjI4LBx}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIdL}# (@apply - (lambda (#{head _85hotwsCta0JfYIjI4LB1}# - #{tail _85hotwsCta0JfYIjI4LB2}# - #{val _85hotwsCta0JfYIjI4LB3}#) + (lambda (#{head _hoQGWMnyQPAh3k2jhWIdP}# + #{tail _hoQGWMnyQPAh3k2jhWIdQ}# + #{val _hoQGWMnyQPAh3k2jhWIdR}#) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{head _85hotwsCta0JfYIjI4LB1}# - #{r _85hotwsCta0JfYIjI4K6B}# + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{head _hoQGWMnyQPAh3k2jhWIdP}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# '(()) #f #f - #{mod _85hotwsCta0JfYIjI4K6E}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}# #t)) - (lambda (#{type _85hotwsCta0JfYIjI4LB6}# - #{value _85hotwsCta0JfYIjI4LB7}# - #{ee _85hotwsCta0JfYIjI4LB8}# - #{ww _85hotwsCta0JfYIjI4LB9}# - #{ss _85hotwsCta0JfYIjI4LB$}# - #{modmod _85hotwsCta0JfYIjI4LB@}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4LB6}# + (lambda (#{type _hoQGWMnyQPAh3k2jhWIdU}# + #{value _hoQGWMnyQPAh3k2jhWIdV}# + #{ee _hoQGWMnyQPAh3k2jhWIdW}# + #{ww _hoQGWMnyQPAh3k2jhWIdX}# + #{ss _hoQGWMnyQPAh3k2jhWIdY}# + #{modmod _hoQGWMnyQPAh3k2jhWIdZ}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWIdU}# 'module-ref) - (let ((#{val _85hotwsCta0JfYIjI4LCD}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{val _85hotwsCta0JfYIjI4LB3}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#))) + (let ((#{val _hoQGWMnyQPAh3k2jhWIdd}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWIdR}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) (call-with-values (lambda () - (#{value _85hotwsCta0JfYIjI4LB7}# - (cons #{head _85hotwsCta0JfYIjI4LB1}# - #{tail _85hotwsCta0JfYIjI4LB2}#) - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}#)) - (lambda (#{e _85hotwsCta0JfYIjI4LCE}# - #{r _85hotwsCta0JfYIjI4LCF}# - #{w _85hotwsCta0JfYIjI4LCG}# - #{s* _85hotwsCta0JfYIjI4LCH}# - #{mod _85hotwsCta0JfYIjI4LCI}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LCK}# - (list #{e _85hotwsCta0JfYIjI4LCE}#))) + (#{value _hoQGWMnyQPAh3k2jhWIdV}# + (cons #{head _hoQGWMnyQPAh3k2jhWIdP}# + #{tail _hoQGWMnyQPAh3k2jhWIdQ}#) + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}#)) + (lambda (#{e _hoQGWMnyQPAh3k2jhWIde}# + #{r _hoQGWMnyQPAh3k2jhWIdf}# + #{w _hoQGWMnyQPAh3k2jhWIdg}# + #{s* _hoQGWMnyQPAh3k2jhWIdh}# + #{mod _hoQGWMnyQPAh3k2jhWIdi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdk}# + (list #{e _hoQGWMnyQPAh3k2jhWIde}#))) (if (@apply - (lambda (#{e _85hotwsCta0JfYIjI4LCM}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWIdm}#) (if (symbol? - #{e _85hotwsCta0JfYIjI4LCM}#) + #{e _hoQGWMnyQPAh3k2jhWIdm}#) #t (if (if (vector? - #{e _85hotwsCta0JfYIjI4LCM}#) + #{e _hoQGWMnyQPAh3k2jhWIdm}#) (if (= (vector-length - #{e _85hotwsCta0JfYIjI4LCM}#) + #{e _hoQGWMnyQPAh3k2jhWIdm}#) 4) (eq? (vector-ref - #{e _85hotwsCta0JfYIjI4LCM}# + #{e _hoQGWMnyQPAh3k2jhWIdm}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _85hotwsCta0JfYIjI4LCM}# + #{e _hoQGWMnyQPAh3k2jhWIdm}# 1)) #f))) - #{tmp _85hotwsCta0JfYIjI4LCK}#) + #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) (@apply - (lambda (#{e _85hotwsCta0JfYIjI4LCq}#) - (#{build-global-assignment _85hotwsCta0JfYIjI4J3N}# - #{s _85hotwsCta0JfYIjI4K6D}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIeE}#) + (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# (syntax->datum - #{e _85hotwsCta0JfYIjI4LCq}#) - #{val _85hotwsCta0JfYIjI4LCD}# - #{mod _85hotwsCta0JfYIjI4LCI}#)) - #{tmp _85hotwsCta0JfYIjI4LCK}#) + #{e _hoQGWMnyQPAh3k2jhWIeE}#) + #{val _hoQGWMnyQPAh3k2jhWIdd}# + #{mod _hoQGWMnyQPAh3k2jhWIdi}#)) + #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LCE}#)))))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - #{s _85hotwsCta0JfYIjI4K6D}# - (let ((#{e _85hotwsCta0JfYIjI4LGL}# + #{e _hoQGWMnyQPAh3k2jhWIde}#)))))) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + #{s _hoQGWMnyQPAh3k2jhWIVd}# + (let ((#{e _hoQGWMnyQPAh3k2jhWIhl}# (list '#(syntax-object setter ((top) @@ -10956,121 +10956,121 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{head _85hotwsCta0JfYIjI4LB1}#))) + #{head _hoQGWMnyQPAh3k2jhWIdP}#))) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4LGL}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4LGL}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWIhl}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWIhl}#) #f - #{mod _85hotwsCta0JfYIjI4K6E}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4LGS}# - #{value _85hotwsCta0JfYIjI4LGT}# - #{e _85hotwsCta0JfYIjI4LGU}# - #{w _85hotwsCta0JfYIjI4LGV}# - #{s _85hotwsCta0JfYIjI4LGW}# - #{mod _85hotwsCta0JfYIjI4LGX}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4LGS}# - #{value _85hotwsCta0JfYIjI4LGT}# - #{e _85hotwsCta0JfYIjI4LGU}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4LGV}# - #{s _85hotwsCta0JfYIjI4LGW}# - #{mod _85hotwsCta0JfYIjI4LGX}#)))) - (map (lambda (#{e _85hotwsCta0JfYIjI4LGb}#) + (lambda (#{type _hoQGWMnyQPAh3k2jhWIhs}# + #{value _hoQGWMnyQPAh3k2jhWIht}# + #{e _hoQGWMnyQPAh3k2jhWIhu}# + #{w _hoQGWMnyQPAh3k2jhWIhv}# + #{s _hoQGWMnyQPAh3k2jhWIhw}# + #{mod _hoQGWMnyQPAh3k2jhWIhx}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWIhs}# + #{value _hoQGWMnyQPAh3k2jhWIht}# + #{e _hoQGWMnyQPAh3k2jhWIhu}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIhv}# + #{s _hoQGWMnyQPAh3k2jhWIhw}# + #{mod _hoQGWMnyQPAh3k2jhWIhx}#)))) + (map (lambda (#{e _hoQGWMnyQPAh3k2jhWIh1}#) (call-with-values (lambda () - (#{syntax-type _85hotwsCta0JfYIjI4J4K}# - #{e _85hotwsCta0JfYIjI4LGb}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4K6C}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{e _85hotwsCta0JfYIjI4LGb}#) + (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# + #{e _hoQGWMnyQPAh3k2jhWIh1}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIVc}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{e _hoQGWMnyQPAh3k2jhWIh1}#) #f - #{mod _85hotwsCta0JfYIjI4K6E}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}# #f)) - (lambda (#{type _85hotwsCta0JfYIjI4LGq}# - #{value _85hotwsCta0JfYIjI4LGr}# - #{e _85hotwsCta0JfYIjI4LGs}# - #{w _85hotwsCta0JfYIjI4LGt}# - #{s _85hotwsCta0JfYIjI4LGu}# - #{mod _85hotwsCta0JfYIjI4LGv}#) - (#{expand-expr _85hotwsCta0JfYIjI4J4M}# - #{type _85hotwsCta0JfYIjI4LGq}# - #{value _85hotwsCta0JfYIjI4LGr}# - #{e _85hotwsCta0JfYIjI4LGs}# - #{r _85hotwsCta0JfYIjI4K6B}# - #{w _85hotwsCta0JfYIjI4LGt}# - #{s _85hotwsCta0JfYIjI4LGu}# - #{mod _85hotwsCta0JfYIjI4LGv}#)))) + (lambda (#{type _hoQGWMnyQPAh3k2jhWIiE}# + #{value _hoQGWMnyQPAh3k2jhWIiF}# + #{e _hoQGWMnyQPAh3k2jhWIiG}# + #{w _hoQGWMnyQPAh3k2jhWIiH}# + #{s _hoQGWMnyQPAh3k2jhWIiI}# + #{mod _hoQGWMnyQPAh3k2jhWIiJ}#) + (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# + #{type _hoQGWMnyQPAh3k2jhWIiE}# + #{value _hoQGWMnyQPAh3k2jhWIiF}# + #{e _hoQGWMnyQPAh3k2jhWIiG}# + #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{w _hoQGWMnyQPAh3k2jhWIiH}# + #{s _hoQGWMnyQPAh3k2jhWIiI}# + #{mod _hoQGWMnyQPAh3k2jhWIiJ}#)))) (append - #{tail _85hotwsCta0JfYIjI4LB2}# - (list #{val _85hotwsCta0JfYIjI4LB3}#)))))))) - #{tmp _85hotwsCta0JfYIjI4LBx}#) + #{tail _hoQGWMnyQPAh3k2jhWIdQ}# + (list #{val _hoQGWMnyQPAh3k2jhWIdR}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWIdL}#) (syntax-violation 'set! "bad set!" - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4K6A}#) - #{s _85hotwsCta0JfYIjI4K6D}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{s _hoQGWMnyQPAh3k2jhWIVd}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4K6A}# - #{s _85hotwsCta0JfYIjI4K6D}#)) - #{e _85hotwsCta0JfYIjI4K6A}#) - #{w _85hotwsCta0JfYIjI4K6C}# - #{mod _85hotwsCta0JfYIjI4K6E}#)))))))) + #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{s _hoQGWMnyQPAh3k2jhWIVd}#)) + #{e _hoQGWMnyQPAh3k2jhWIVa}#) + #{w _hoQGWMnyQPAh3k2jhWIVc}# + #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e _85hotwsCta0JfYIjI4LHa}# - #{r _85hotwsCta0JfYIjI4LHb}# - #{w _85hotwsCta0JfYIjI4LHc}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LHe}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIi0}# + #{r _hoQGWMnyQPAh3k2jhWIi1}# + #{w _hoQGWMnyQPAh3k2jhWIi2}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIi4}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LHa}# + #{e _hoQGWMnyQPAh3k2jhWIi0}# '(_ each-any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4LHe}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWIi4}# (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LHh}# - #{id _85hotwsCta0JfYIjI4LHi}#) + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIi7}# + #{id _hoQGWMnyQPAh3k2jhWIi8}#) (if (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{mod _85hotwsCta0JfYIjI4LHh}#) - (if (symbol? #{id _85hotwsCta0JfYIjI4LHi}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{mod _hoQGWMnyQPAh3k2jhWIi7}#) + (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIi8}#) #t - (if (if (vector? #{id _85hotwsCta0JfYIjI4LHi}#) + (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIi8}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4LHi}#) + #{id _hoQGWMnyQPAh3k2jhWIi8}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4LHi}# + #{id _hoQGWMnyQPAh3k2jhWIi8}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _85hotwsCta0JfYIjI4LHi}# 1)) + (vector-ref #{id _hoQGWMnyQPAh3k2jhWIi8}# 1)) #f)) #f)) - #{tmp _85hotwsCta0JfYIjI4LHe}#) + #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) #f) (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LIK}# - #{id _85hotwsCta0JfYIjI4LIL}#) + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIjk}# + #{id _hoQGWMnyQPAh3k2jhWIjl}#) (values - (syntax->datum #{id _85hotwsCta0JfYIjI4LIL}#) - #{r _85hotwsCta0JfYIjI4LHb}# - #{w _85hotwsCta0JfYIjI4LHc}# + (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIjl}#) + #{r _hoQGWMnyQPAh3k2jhWIi1}# + #{w _hoQGWMnyQPAh3k2jhWIi2}# #f (syntax->datum (cons '#(syntax-object @@ -11513,88 +11513,88 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{mod _85hotwsCta0JfYIjI4LIK}#)))) - #{tmp _85hotwsCta0JfYIjI4LHe}#) + #{mod _hoQGWMnyQPAh3k2jhWIjk}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LHa}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWIi0}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'module-ref '@@ - (lambda (#{e _85hotwsCta0JfYIjI4LJn}# - #{r _85hotwsCta0JfYIjI4LJo}# - #{w _85hotwsCta0JfYIjI4LJp}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWIlB}# + #{r _hoQGWMnyQPAh3k2jhWIlC}# + #{w _hoQGWMnyQPAh3k2jhWIlD}#) (letrec* - ((#{remodulate _85hotwsCta0JfYIjI4LJq}# - (lambda (#{x _85hotwsCta0JfYIjI4LKN}# - #{mod _85hotwsCta0JfYIjI4LKO}#) - (if (pair? #{x _85hotwsCta0JfYIjI4LKN}#) - (cons (#{remodulate _85hotwsCta0JfYIjI4LJq}# - (car #{x _85hotwsCta0JfYIjI4LKN}#) - #{mod _85hotwsCta0JfYIjI4LKO}#) - (#{remodulate _85hotwsCta0JfYIjI4LJq}# - (cdr #{x _85hotwsCta0JfYIjI4LKN}#) - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (if (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4LKN}#) + ((#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWIln}# + #{mod _hoQGWMnyQPAh3k2jhWIlo}#) + (if (pair? #{x _hoQGWMnyQPAh3k2jhWIln}#) + (cons (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (car #{x _hoQGWMnyQPAh3k2jhWIln}#) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#) + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (cdr #{x _hoQGWMnyQPAh3k2jhWIln}#) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 0) 'syntax-object) #f) #f) - (let ((#{expression _85hotwsCta0JfYIjI4LKc}# - (#{remodulate _85hotwsCta0JfYIjI4LJq}# - (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 1) - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (#{wrap _85hotwsCta0JfYIjI4LKd}# - (vector-ref #{x _85hotwsCta0JfYIjI4LKN}# 2))) + (let ((#{expression _hoQGWMnyQPAh3k2jhWIl2}# + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 1) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (#{wrap _hoQGWMnyQPAh3k2jhWIl3}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 2))) (vector 'syntax-object - #{expression _85hotwsCta0JfYIjI4LKc}# - #{wrap _85hotwsCta0JfYIjI4LKd}# - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (if (vector? #{x _85hotwsCta0JfYIjI4LKN}#) - (let ((#{n _85hotwsCta0JfYIjI4LKl}# - (vector-length #{x _85hotwsCta0JfYIjI4LKN}#))) - (let ((#{v _85hotwsCta0JfYIjI4LKm}# - (make-vector #{n _85hotwsCta0JfYIjI4LKl}#))) + #{expression _hoQGWMnyQPAh3k2jhWIl2}# + #{wrap _hoQGWMnyQPAh3k2jhWIl3}# + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) + (let ((#{n _hoQGWMnyQPAh3k2jhWIl@}# + (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#))) + (let ((#{v _hoQGWMnyQPAh3k2jhWImA}# + (make-vector #{n _hoQGWMnyQPAh3k2jhWIl@}#))) (letrec* - ((#{loop _85hotwsCta0JfYIjI4LKn}# - (lambda (#{i _85hotwsCta0JfYIjI4LLW}#) - (if (= #{i _85hotwsCta0JfYIjI4LLW}# - #{n _85hotwsCta0JfYIjI4LKl}#) - #{v _85hotwsCta0JfYIjI4LKm}# + ((#{loop _hoQGWMnyQPAh3k2jhWImB}# + (lambda (#{i _hoQGWMnyQPAh3k2jhWImw}#) + (if (= #{i _hoQGWMnyQPAh3k2jhWImw}# + #{n _hoQGWMnyQPAh3k2jhWIl@}#) + #{v _hoQGWMnyQPAh3k2jhWImA}# (begin (vector-set! - #{v _85hotwsCta0JfYIjI4LKm}# - #{i _85hotwsCta0JfYIjI4LLW}# - (#{remodulate _85hotwsCta0JfYIjI4LJq}# + #{v _hoQGWMnyQPAh3k2jhWImA}# + #{i _hoQGWMnyQPAh3k2jhWImw}# + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# (vector-ref - #{x _85hotwsCta0JfYIjI4LKN}# - #{i _85hotwsCta0JfYIjI4LLW}#) - #{mod _85hotwsCta0JfYIjI4LKO}#)) - (#{loop _85hotwsCta0JfYIjI4LKn}# - (#{1+}# #{i _85hotwsCta0JfYIjI4LLW}#))))))) - (#{loop _85hotwsCta0JfYIjI4LKn}# 0)))) - #{x _85hotwsCta0JfYIjI4LKN}#)))))) - (let ((#{tmp _85hotwsCta0JfYIjI4LJs}# + #{x _hoQGWMnyQPAh3k2jhWIln}# + #{i _hoQGWMnyQPAh3k2jhWImw}#) + #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) + (#{loop _hoQGWMnyQPAh3k2jhWImB}# + (#{1+}# #{i _hoQGWMnyQPAh3k2jhWImw}#))))))) + (#{loop _hoQGWMnyQPAh3k2jhWImB}# 0)))) + #{x _hoQGWMnyQPAh3k2jhWIln}#)))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIlG}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LJn}# + #{e _hoQGWMnyQPAh3k2jhWIlB}# '(_ each-any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4LJs}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWIlG}# (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LJw}# - #{exp _85hotwsCta0JfYIjI4LJx}#) + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlK}# + #{exp _hoQGWMnyQPAh3k2jhWIlL}#) (and-map - #{id? _85hotwsCta0JfYIjI4J3n}# - #{mod _85hotwsCta0JfYIjI4LJw}#)) - #{tmp _85hotwsCta0JfYIjI4LJs}#) + #{id? _hoQGWMnyQPAh3k2jhWHTB}# + #{mod _hoQGWMnyQPAh3k2jhWIlK}#)) + #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) #f) (@apply - (lambda (#{mod _85hotwsCta0JfYIjI4LKB}# - #{exp _85hotwsCta0JfYIjI4LKC}#) - (let ((#{mod _85hotwsCta0JfYIjI4LKD}# + (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlb}# + #{exp _hoQGWMnyQPAh3k2jhWIlc}#) + (let ((#{mod _hoQGWMnyQPAh3k2jhWIld}# (syntax->datum (cons '#(syntax-object private @@ -12036,140 +12036,140 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{mod _85hotwsCta0JfYIjI4LKB}#)))) + #{mod _hoQGWMnyQPAh3k2jhWIlb}#)))) (values - (#{remodulate _85hotwsCta0JfYIjI4LJq}# - #{exp _85hotwsCta0JfYIjI4LKC}# - #{mod _85hotwsCta0JfYIjI4LKD}#) - #{r _85hotwsCta0JfYIjI4LJo}# - #{w _85hotwsCta0JfYIjI4LJp}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{exp _85hotwsCta0JfYIjI4LKC}#) - #{mod _85hotwsCta0JfYIjI4LKD}#))) - #{tmp _85hotwsCta0JfYIjI4LJs}#) + (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + #{exp _hoQGWMnyQPAh3k2jhWIlc}# + #{mod _hoQGWMnyQPAh3k2jhWIld}#) + #{r _hoQGWMnyQPAh3k2jhWIlC}# + #{w _hoQGWMnyQPAh3k2jhWIlD}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{exp _hoQGWMnyQPAh3k2jhWIlc}#) + #{mod _hoQGWMnyQPAh3k2jhWIld}#))) + #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LJn}#)))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWIlB}#)))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'if - (lambda (#{e _85hotwsCta0JfYIjI4LM7}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{s _85hotwsCta0JfYIjI4LM$}# - #{mod _85hotwsCta0JfYIjI4LM@}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LNB}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIoV}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{s _hoQGWMnyQPAh3k2jhWIoY}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIob}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LM7}# + #{e _hoQGWMnyQPAh3k2jhWIoV}# '(_ any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LNB}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIob}# (@apply - (lambda (#{test _85hotwsCta0JfYIjI4LNF}# - #{then _85hotwsCta0JfYIjI4LNG}#) - (#{build-conditional _85hotwsCta0JfYIjI4J3H}# - #{s _85hotwsCta0JfYIjI4LM$}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{test _85hotwsCta0JfYIjI4LNF}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{mod _85hotwsCta0JfYIjI4LM@}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{then _85hotwsCta0JfYIjI4LNG}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{mod _85hotwsCta0JfYIjI4LM@}#) + (lambda (#{test _hoQGWMnyQPAh3k2jhWIof}# + #{then _hoQGWMnyQPAh3k2jhWIog}#) + (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# + #{s _hoQGWMnyQPAh3k2jhWIoY}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{test _hoQGWMnyQPAh3k2jhWIof}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{then _hoQGWMnyQPAh3k2jhWIog}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp _85hotwsCta0JfYIjI4LNB}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LQn}# + #{tmp _hoQGWMnyQPAh3k2jhWIob}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIsB}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LM7}# + #{e _hoQGWMnyQPAh3k2jhWIoV}# '(_ any any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LQn}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIsB}# (@apply - (lambda (#{test _85hotwsCta0JfYIjI4LQr}# - #{then _85hotwsCta0JfYIjI4LQs}# - #{else _85hotwsCta0JfYIjI4LQt}#) - (#{build-conditional _85hotwsCta0JfYIjI4J3H}# - #{s _85hotwsCta0JfYIjI4LM$}# - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{test _85hotwsCta0JfYIjI4LQr}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{mod _85hotwsCta0JfYIjI4LM@}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{then _85hotwsCta0JfYIjI4LQs}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{mod _85hotwsCta0JfYIjI4LM@}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{else _85hotwsCta0JfYIjI4LQt}# - #{r _85hotwsCta0JfYIjI4LM8}# - #{w _85hotwsCta0JfYIjI4LM9}# - #{mod _85hotwsCta0JfYIjI4LM@}#))) - #{tmp _85hotwsCta0JfYIjI4LQn}#) + (lambda (#{test _hoQGWMnyQPAh3k2jhWIsF}# + #{then _hoQGWMnyQPAh3k2jhWIsG}# + #{else _hoQGWMnyQPAh3k2jhWIsH}#) + (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# + #{s _hoQGWMnyQPAh3k2jhWIoY}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{test _hoQGWMnyQPAh3k2jhWIsF}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{then _hoQGWMnyQPAh3k2jhWIsG}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{else _hoQGWMnyQPAh3k2jhWIsH}# + #{r _hoQGWMnyQPAh3k2jhWIoW}# + #{w _hoQGWMnyQPAh3k2jhWIoX}# + #{mod _hoQGWMnyQPAh3k2jhWIoZ}#))) + #{tmp _hoQGWMnyQPAh3k2jhWIsB}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LM7}#))))))) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + #{e _hoQGWMnyQPAh3k2jhWIoV}#))))))) + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'with-fluids - (lambda (#{e _85hotwsCta0JfYIjI4LW8}# - #{r _85hotwsCta0JfYIjI4LW9}# - #{w _85hotwsCta0JfYIjI4LW$}# - #{s _85hotwsCta0JfYIjI4LW@}# - #{mod _85hotwsCta0JfYIjI4LXA}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LXC}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWIyW}# + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{s _hoQGWMnyQPAh3k2jhWIyZ}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWIyc}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LW8}# + #{e _hoQGWMnyQPAh3k2jhWIyW}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4LXC}# + (if #{tmp _hoQGWMnyQPAh3k2jhWIyc}# (@apply - (lambda (#{fluid _85hotwsCta0JfYIjI4LXG}# - #{val _85hotwsCta0JfYIjI4LXH}# - #{b _85hotwsCta0JfYIjI4LXI}# - #{b* _85hotwsCta0JfYIjI4LXJ}#) - (#{build-dynlet _85hotwsCta0JfYIjI4J3I}# - #{s _85hotwsCta0JfYIjI4LW@}# - (map (lambda (#{x _85hotwsCta0JfYIjI4LYa}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4LYa}# - #{r _85hotwsCta0JfYIjI4LW9}# - #{w _85hotwsCta0JfYIjI4LW$}# - #{mod _85hotwsCta0JfYIjI4LXA}#)) - #{fluid _85hotwsCta0JfYIjI4LXG}#) - (map (lambda (#{x _85hotwsCta0JfYIjI4LZg}#) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{x _85hotwsCta0JfYIjI4LZg}# - #{r _85hotwsCta0JfYIjI4LW9}# - #{w _85hotwsCta0JfYIjI4LW$}# - #{mod _85hotwsCta0JfYIjI4LXA}#)) - #{val _85hotwsCta0JfYIjI4LXH}#) - (#{expand-body _85hotwsCta0JfYIjI4J4P}# - (cons #{b _85hotwsCta0JfYIjI4LXI}# - #{b* _85hotwsCta0JfYIjI4LXJ}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (lambda (#{fluid _hoQGWMnyQPAh3k2jhWIyg}# + #{val _hoQGWMnyQPAh3k2jhWIyh}# + #{b _hoQGWMnyQPAh3k2jhWIyi}# + #{b* _hoQGWMnyQPAh3k2jhWIyj}#) + (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# + #{s _hoQGWMnyQPAh3k2jhWIyZ}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIz0}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWIz0}# + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#)) + #{fluid _hoQGWMnyQPAh3k2jhWIyg}#) + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWI06}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{x _hoQGWMnyQPAh3k2jhWI06}# + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#)) + #{val _hoQGWMnyQPAh3k2jhWIyh}#) + (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# + (cons #{b _hoQGWMnyQPAh3k2jhWIyi}# + #{b* _hoQGWMnyQPAh3k2jhWIyj}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4LW8}#) - #{s _85hotwsCta0JfYIjI4LW@}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIyW}#) + #{s _hoQGWMnyQPAh3k2jhWIyZ}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4LW8}# - #{s _85hotwsCta0JfYIjI4LW@}#)) - #{e _85hotwsCta0JfYIjI4LW8}#) - #{w _85hotwsCta0JfYIjI4LW$}# - #{mod _85hotwsCta0JfYIjI4LXA}#) - #{r _85hotwsCta0JfYIjI4LW9}# - #{w _85hotwsCta0JfYIjI4LW$}# - #{mod _85hotwsCta0JfYIjI4LXA}#))) - #{tmp _85hotwsCta0JfYIjI4LXC}#) + #{e _hoQGWMnyQPAh3k2jhWIyW}# + #{s _hoQGWMnyQPAh3k2jhWIyZ}#)) + #{e _hoQGWMnyQPAh3k2jhWIyW}#) + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#) + #{r _hoQGWMnyQPAh3k2jhWIyX}# + #{w _hoQGWMnyQPAh3k2jhWIyY}# + #{mod _hoQGWMnyQPAh3k2jhWIya}#))) + #{tmp _hoQGWMnyQPAh3k2jhWIyc}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LW8}#))))) + #{e _hoQGWMnyQPAh3k2jhWIyW}#))))) (module-define! (current-module) 'begin @@ -12199,100 +12199,100 @@ 'eval-when 'eval-when '())) - (#{global-extend _85hotwsCta0JfYIjI4J3l}# + (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# 'core 'syntax-case (letrec* - ((#{convert-pattern _85hotwsCta0JfYIjI4LfQ}# - (lambda (#{pattern _85hotwsCta0JfYIjI4L4L}# - #{keys _85hotwsCta0JfYIjI4L4M}#) + ((#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# + (lambda (#{pattern _hoQGWMnyQPAh3k2jhWJTl}# + #{keys _hoQGWMnyQPAh3k2jhWJTm}#) (letrec* - ((#{cvt* _85hotwsCta0JfYIjI4L4N}# - (lambda (#{p* _85hotwsCta0JfYIjI4MB9}# - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MB@}#) - (if (not (pair? #{p* _85hotwsCta0JfYIjI4MB9}#)) - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{p* _85hotwsCta0JfYIjI4MB9}# - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MB@}#) + ((#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# + (lambda (#{p* _hoQGWMnyQPAh3k2jhWJdX}# + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) + (if (not (pair? #{p* _hoQGWMnyQPAh3k2jhWJdX}#)) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{p* _hoQGWMnyQPAh3k2jhWJdX}# + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) (call-with-values (lambda () - (#{cvt* _85hotwsCta0JfYIjI4L4N}# - (cdr #{p* _85hotwsCta0JfYIjI4MB9}#) - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MB@}#)) - (lambda (#{y _85hotwsCta0JfYIjI4MCC}# - #{ids _85hotwsCta0JfYIjI4MCD}#) + (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# + (cdr #{p* _hoQGWMnyQPAh3k2jhWJdX}#) + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWJdc}# + #{ids _hoQGWMnyQPAh3k2jhWJdd}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - (car #{p* _85hotwsCta0JfYIjI4MB9}#) - #{n _85hotwsCta0JfYIjI4MB$}# - #{ids _85hotwsCta0JfYIjI4MCD}#)) - (lambda (#{x _85hotwsCta0JfYIjI4MCG}# - #{ids _85hotwsCta0JfYIjI4MCH}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + (car #{p* _hoQGWMnyQPAh3k2jhWJdX}#) + #{n _hoQGWMnyQPAh3k2jhWJdY}# + #{ids _hoQGWMnyQPAh3k2jhWJdd}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJdg}# + #{ids _hoQGWMnyQPAh3k2jhWJdh}#) (values - (cons #{x _85hotwsCta0JfYIjI4MCG}# - #{y _85hotwsCta0JfYIjI4MCC}#) - #{ids _85hotwsCta0JfYIjI4MCH}#)))))))) - (#{v-reverse _85hotwsCta0JfYIjI4L4O}# - (lambda (#{x _85hotwsCta0JfYIjI4MCI}#) + (cons #{x _hoQGWMnyQPAh3k2jhWJdg}# + #{y _hoQGWMnyQPAh3k2jhWJdc}#) + #{ids _hoQGWMnyQPAh3k2jhWJdh}#)))))))) + (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJdi}#) (letrec* - ((#{loop _85hotwsCta0JfYIjI4MCJ}# - (lambda (#{r _85hotwsCta0JfYIjI4MDZ}# - #{x _85hotwsCta0JfYIjI4MDa}#) - (if (not (pair? #{x _85hotwsCta0JfYIjI4MDa}#)) + ((#{loop _hoQGWMnyQPAh3k2jhWJdj}# + (lambda (#{r _hoQGWMnyQPAh3k2jhWJez}# + #{x _hoQGWMnyQPAh3k2jhWJe0}#) + (if (not (pair? #{x _hoQGWMnyQPAh3k2jhWJe0}#)) (values - #{r _85hotwsCta0JfYIjI4MDZ}# - #{x _85hotwsCta0JfYIjI4MDa}#) - (#{loop _85hotwsCta0JfYIjI4MCJ}# - (cons (car #{x _85hotwsCta0JfYIjI4MDa}#) - #{r _85hotwsCta0JfYIjI4MDZ}#) - (cdr #{x _85hotwsCta0JfYIjI4MDa}#)))))) - (#{loop _85hotwsCta0JfYIjI4MCJ}# + #{r _hoQGWMnyQPAh3k2jhWJez}# + #{x _hoQGWMnyQPAh3k2jhWJe0}#) + (#{loop _hoQGWMnyQPAh3k2jhWJdj}# + (cons (car #{x _hoQGWMnyQPAh3k2jhWJe0}#) + #{r _hoQGWMnyQPAh3k2jhWJez}#) + (cdr #{x _hoQGWMnyQPAh3k2jhWJe0}#)))))) + (#{loop _hoQGWMnyQPAh3k2jhWJdj}# '() - #{x _85hotwsCta0JfYIjI4MCI}#)))) - (#{cvt _85hotwsCta0JfYIjI4L4P}# - (lambda (#{p _85hotwsCta0JfYIjI4L4S}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#) - (if (if (symbol? #{p _85hotwsCta0JfYIjI4L4S}#) + #{x _hoQGWMnyQPAh3k2jhWJdi}#)))) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWJTs}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#) + (if (if (symbol? #{p _hoQGWMnyQPAh3k2jhWJTs}#) #t - (if (if (vector? #{p _85hotwsCta0JfYIjI4L4S}#) + (if (if (vector? #{p _hoQGWMnyQPAh3k2jhWJTs}#) (if (= (vector-length - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) 4) (eq? (vector-ref - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{p _85hotwsCta0JfYIjI4L4S}# 1)) + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJTs}# 1)) #f)) - (if (#{bound-id-member? _85hotwsCta0JfYIjI4J4D}# - #{p _85hotwsCta0JfYIjI4L4S}# - #{keys _85hotwsCta0JfYIjI4L4M}#) + (if (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{keys _hoQGWMnyQPAh3k2jhWJTm}#) (values - (vector 'free-id #{p _85hotwsCta0JfYIjI4L4S}#) - #{ids _85hotwsCta0JfYIjI4L4U}#) + (vector 'free-id #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{ids _hoQGWMnyQPAh3k2jhWJTu}#) (if (if (eq? (if (if (vector? - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) (if (= (vector-length - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) 4) (eq? (vector-ref - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# 0) 'syntax-object) #f) #f) (vector-ref - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# 1) - #{p _85hotwsCta0JfYIjI4L4S}#) + #{p _hoQGWMnyQPAh3k2jhWJTs}#) (if (if (= (vector-length '#(syntax-object _ @@ -13206,10 +13206,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{p _85hotwsCta0JfYIjI4L4S}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object _ ((top) @@ -13663,51 +13663,51 @@ (hygiene guile)) '(()))) #f) - (values '_ #{ids _85hotwsCta0JfYIjI4L4U}#) + (values '_ #{ids _hoQGWMnyQPAh3k2jhWJTu}#) (values 'any - (cons (cons #{p _85hotwsCta0JfYIjI4L4S}# - #{n _85hotwsCta0JfYIjI4L4T}#) - #{ids _85hotwsCta0JfYIjI4L4U}#)))) - (let ((#{tmp _85hotwsCta0JfYIjI4L9U}# + (cons (cons #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{n _hoQGWMnyQPAh3k2jhWJTt}#) + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJYu}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4L9U}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWJYu}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4L9Y}# - #{dots _85hotwsCta0JfYIjI4L9Z}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJYy}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 1)) #f) (if (eq? (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _85hotwsCta0JfYIjI4L9Z}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# 1) - #{dots _85hotwsCta0JfYIjI4L9Z}#) + #{dots _hoQGWMnyQPAh3k2jhWJYz}#) (if (if (= (vector-length '#(syntax-object ... @@ -14598,10 +14598,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{dots _85hotwsCta0JfYIjI4L9Z}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{dots _hoQGWMnyQPAh3k2jhWJYz}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -15042,68 +15042,68 @@ '(()))) #f) #f)) - #{tmp _85hotwsCta0JfYIjI4L9U}#) + #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) #f) (@apply - (lambda (#{x _85hotwsCta0JfYIjI4L$9}# - #{dots _85hotwsCta0JfYIjI4L$$}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJaX}# + #{dots _hoQGWMnyQPAh3k2jhWJaY}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4L$9}# - (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#) - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{p _85hotwsCta0JfYIjI4L$@}# - #{ids _85hotwsCta0JfYIjI4L@A}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJaX}# + (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{p _hoQGWMnyQPAh3k2jhWJaZ}# + #{ids _hoQGWMnyQPAh3k2jhWJaa}#) (values - (if (eq? #{p _85hotwsCta0JfYIjI4L$@}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJaZ}# 'any) 'each-any (vector 'each - #{p _85hotwsCta0JfYIjI4L$@}#)) - #{ids _85hotwsCta0JfYIjI4L@A}#)))) - #{tmp _85hotwsCta0JfYIjI4L9U}#) - (let ((#{tmp _85hotwsCta0JfYIjI4L@B}# + #{p _hoQGWMnyQPAh3k2jhWJaZ}#)) + #{ids _hoQGWMnyQPAh3k2jhWJaa}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJab}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(any any . any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4L@B}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWJab}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4L@F}# - #{dots _85hotwsCta0JfYIjI4L@G}# - #{ys _85hotwsCta0JfYIjI4L@H}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJaf}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{ys _hoQGWMnyQPAh3k2jhWJah}#) (if (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 1)) #f) (if (eq? (if (if (vector? - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) (if (= (vector-length - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) 4) (eq? (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _85hotwsCta0JfYIjI4L@G}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# 1) - #{dots _85hotwsCta0JfYIjI4L@G}#) + #{dots _hoQGWMnyQPAh3k2jhWJag}#) (if (if (= (vector-length '#(syntax-object ... @@ -15996,10 +15996,10 @@ "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{dots _85hotwsCta0JfYIjI4L@G}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{dots _hoQGWMnyQPAh3k2jhWJag}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -16440,131 +16440,131 @@ '(()))) #f) #f)) - #{tmp _85hotwsCta0JfYIjI4L@B}#) + #{tmp _hoQGWMnyQPAh3k2jhWJab}#) #f) (@apply - (lambda (#{x _85hotwsCta0JfYIjI4MAr}# - #{dots _85hotwsCta0JfYIjI4MAs}# - #{ys _85hotwsCta0JfYIjI4MAt}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJcF}# + #{dots _hoQGWMnyQPAh3k2jhWJcG}# + #{ys _hoQGWMnyQPAh3k2jhWJcH}#) (call-with-values (lambda () - (#{cvt* _85hotwsCta0JfYIjI4L4N}# - #{ys _85hotwsCta0JfYIjI4MAt}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{ys _85hotwsCta0JfYIjI4MAw}# - #{ids _85hotwsCta0JfYIjI4MAx}#) + (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# + #{ys _hoQGWMnyQPAh3k2jhWJcH}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcK}# + #{ids _hoQGWMnyQPAh3k2jhWJcL}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4MAr}# - (#{1+}# #{n _85hotwsCta0JfYIjI4L4T}#) - #{ids _85hotwsCta0JfYIjI4MAx}#)) - (lambda (#{x _85hotwsCta0JfYIjI4MAy}# - #{ids _85hotwsCta0JfYIjI4MAz}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJcF}# + (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) + #{ids _hoQGWMnyQPAh3k2jhWJcL}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJcM}# + #{ids _hoQGWMnyQPAh3k2jhWJcN}#) (call-with-values (lambda () - (#{v-reverse _85hotwsCta0JfYIjI4L4O}# - #{ys _85hotwsCta0JfYIjI4MAw}#)) - (lambda (#{ys _85hotwsCta0JfYIjI4MBU}# - #{e _85hotwsCta0JfYIjI4MBV}#) + (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# + #{ys _hoQGWMnyQPAh3k2jhWJcK}#)) + (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcu}# + #{e _hoQGWMnyQPAh3k2jhWJcv}#) (values (vector 'each+ - #{x _85hotwsCta0JfYIjI4MAy}# - #{ys _85hotwsCta0JfYIjI4MBU}# - #{e _85hotwsCta0JfYIjI4MBV}#) - #{ids _85hotwsCta0JfYIjI4MAz}#)))))))) - #{tmp _85hotwsCta0JfYIjI4L@B}#) - (let ((#{tmp _85hotwsCta0JfYIjI4MBW}# + #{x _hoQGWMnyQPAh3k2jhWJcM}# + #{ys _hoQGWMnyQPAh3k2jhWJcu}# + #{e _hoQGWMnyQPAh3k2jhWJcv}#) + #{ids _hoQGWMnyQPAh3k2jhWJcN}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWJab}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJcw}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4MBW}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJcw}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4MBa}# - #{y _85hotwsCta0JfYIjI4MBb}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJc0}# + #{y _hoQGWMnyQPAh3k2jhWJc1}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{y _85hotwsCta0JfYIjI4MBb}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{y _85hotwsCta0JfYIjI4MBc}# - #{ids _85hotwsCta0JfYIjI4MBd}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{y _hoQGWMnyQPAh3k2jhWJc1}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{y _hoQGWMnyQPAh3k2jhWJc2}# + #{ids _hoQGWMnyQPAh3k2jhWJc3}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4MBa}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4MBd}#)) - (lambda (#{x _85hotwsCta0JfYIjI4MBe}# - #{ids _85hotwsCta0JfYIjI4MBf}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJc0}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJc3}#)) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJc4}# + #{ids _hoQGWMnyQPAh3k2jhWJc5}#) (values - (cons #{x _85hotwsCta0JfYIjI4MBe}# - #{y _85hotwsCta0JfYIjI4MBc}#) - #{ids _85hotwsCta0JfYIjI4MBf}#)))))) - #{tmp _85hotwsCta0JfYIjI4MBW}#) - (let ((#{tmp _85hotwsCta0JfYIjI4MBg}# + (cons #{x _hoQGWMnyQPAh3k2jhWJc4}# + #{y _hoQGWMnyQPAh3k2jhWJc2}#) + #{ids _hoQGWMnyQPAh3k2jhWJc5}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWJcw}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc6}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4MBg}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJc6}# (@apply (lambda () (values '() - #{ids _85hotwsCta0JfYIjI4L4U}#)) - #{tmp _85hotwsCta0JfYIjI4MBg}#) - (let ((#{tmp _85hotwsCta0JfYIjI4MBk}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + #{tmp _hoQGWMnyQPAh3k2jhWJc6}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc$}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4L4S}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '#(vector each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4MBk}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJc$}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4MBo}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJdC}#) (call-with-values (lambda () - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{x _85hotwsCta0JfYIjI4MBo}# - #{n _85hotwsCta0JfYIjI4L4T}# - #{ids _85hotwsCta0JfYIjI4L4U}#)) - (lambda (#{p _85hotwsCta0JfYIjI4MBp}# - #{ids _85hotwsCta0JfYIjI4MBq}#) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{x _hoQGWMnyQPAh3k2jhWJdC}# + #{n _hoQGWMnyQPAh3k2jhWJTt}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) + (lambda (#{p _hoQGWMnyQPAh3k2jhWJdD}# + #{ids _hoQGWMnyQPAh3k2jhWJdE}#) (values (vector 'vector - #{p _85hotwsCta0JfYIjI4MBp}#) - #{ids _85hotwsCta0JfYIjI4MBq}#)))) - #{tmp _85hotwsCta0JfYIjI4MBk}#) + #{p _hoQGWMnyQPAh3k2jhWJdD}#) + #{ids _hoQGWMnyQPAh3k2jhWJdE}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWJc$}#) (values (vector 'atom - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{p _85hotwsCta0JfYIjI4L4S}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{p _hoQGWMnyQPAh3k2jhWJTs}# '(()))) - #{ids _85hotwsCta0JfYIjI4L4U}#))))))))))))))) - (#{cvt _85hotwsCta0JfYIjI4L4P}# - #{pattern _85hotwsCta0JfYIjI4L4L}# + #{ids _hoQGWMnyQPAh3k2jhWJTu}#))))))))))))))) + (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# + #{pattern _hoQGWMnyQPAh3k2jhWJTl}# 0 '())))) - (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}# - (lambda (#{pvars _85hotwsCta0JfYIjI4MDb}# - #{exp _85hotwsCta0JfYIjI4MDc}# - #{y _85hotwsCta0JfYIjI4MDd}# - #{r _85hotwsCta0JfYIjI4MDe}# - #{mod _85hotwsCta0JfYIjI4MDf}#) - (let ((#{ids _85hotwsCta0JfYIjI4MDg}# - (map car #{pvars _85hotwsCta0JfYIjI4MDb}#))) + (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# + (lambda (#{pvars _hoQGWMnyQPAh3k2jhWJe1}# + #{exp _hoQGWMnyQPAh3k2jhWJe2}# + #{y _hoQGWMnyQPAh3k2jhWJe3}# + #{r _hoQGWMnyQPAh3k2jhWJe4}# + #{mod _hoQGWMnyQPAh3k2jhWJe5}#) + (let ((#{ids _hoQGWMnyQPAh3k2jhWJe6}# + (map car #{pvars _hoQGWMnyQPAh3k2jhWJe1}#))) (begin - (map cdr #{pvars _85hotwsCta0JfYIjI4MDb}#) - (let ((#{labels _85hotwsCta0JfYIjI4MDi}# - (#{gen-labels _85hotwsCta0JfYIjI4J3q}# - #{ids _85hotwsCta0JfYIjI4MDg}#)) - (#{new-vars _85hotwsCta0JfYIjI4MDj}# - (map #{gen-var _85hotwsCta0JfYIjI4J4Z}# - #{ids _85hotwsCta0JfYIjI4MDg}#))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# + (map cdr #{pvars _hoQGWMnyQPAh3k2jhWJe1}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWJe8}# + (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# + #{ids _hoQGWMnyQPAh3k2jhWJe6}#)) + (#{new-vars _hoQGWMnyQPAh3k2jhWJe9}# + (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# + #{ids _hoQGWMnyQPAh3k2jhWJe6}#))) + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -16577,89 +16577,89 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}# + (list (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# #f (map syntax->datum - #{ids _85hotwsCta0JfYIjI4MDg}#) + #{ids _hoQGWMnyQPAh3k2jhWJe6}#) #f - #{new-vars _85hotwsCta0JfYIjI4MDj}# + #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# '() - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{exp _85hotwsCta0JfYIjI4MDc}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4MDi}# - (map (lambda (#{var _85hotwsCta0JfYIjI4MIi}# - #{level _85hotwsCta0JfYIjI4MIj}#) + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{exp _hoQGWMnyQPAh3k2jhWJe2}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWJe8}# + (map (lambda (#{var _hoQGWMnyQPAh3k2jhWJj8}# + #{level _hoQGWMnyQPAh3k2jhWJj9}#) (cons 'syntax - (cons #{var _85hotwsCta0JfYIjI4MIi}# - #{level _85hotwsCta0JfYIjI4MIj}#))) - #{new-vars _85hotwsCta0JfYIjI4MDj}# + (cons #{var _hoQGWMnyQPAh3k2jhWJj8}# + #{level _hoQGWMnyQPAh3k2jhWJj9}#))) + #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# (map cdr - #{pvars _85hotwsCta0JfYIjI4MDb}#)) - #{r _85hotwsCta0JfYIjI4MDe}#) - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - #{ids _85hotwsCta0JfYIjI4MDg}# - #{labels _85hotwsCta0JfYIjI4MDi}# + #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)) + #{r _hoQGWMnyQPAh3k2jhWJe4}#) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + #{ids _hoQGWMnyQPAh3k2jhWJe6}# + #{labels _hoQGWMnyQPAh3k2jhWJe8}# '(())) - #{mod _85hotwsCta0JfYIjI4MDf}#)) - #{y _85hotwsCta0JfYIjI4MDd}#))))))) - (#{gen-clause _85hotwsCta0JfYIjI4LfS}# - (lambda (#{x _85hotwsCta0JfYIjI4LuX}# - #{keys _85hotwsCta0JfYIjI4LuY}# - #{clauses _85hotwsCta0JfYIjI4LuZ}# - #{r _85hotwsCta0JfYIjI4Lua}# - #{pat _85hotwsCta0JfYIjI4Lub}# - #{fender _85hotwsCta0JfYIjI4Luc}# - #{exp _85hotwsCta0JfYIjI4Lud}# - #{mod _85hotwsCta0JfYIjI4Lue}#) + #{mod _hoQGWMnyQPAh3k2jhWJe5}#)) + #{y _hoQGWMnyQPAh3k2jhWJe3}#))))))) + (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJJx}# + #{keys _hoQGWMnyQPAh3k2jhWJJy}# + #{clauses _hoQGWMnyQPAh3k2jhWJJz}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{pat _hoQGWMnyQPAh3k2jhWJJ1}# + #{fender _hoQGWMnyQPAh3k2jhWJJ2}# + #{exp _hoQGWMnyQPAh3k2jhWJJ3}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#) (call-with-values (lambda () - (#{convert-pattern _85hotwsCta0JfYIjI4LfQ}# - #{pat _85hotwsCta0JfYIjI4Lub}# - #{keys _85hotwsCta0JfYIjI4LuY}#)) - (lambda (#{p _85hotwsCta0JfYIjI4Lw5}# - #{pvars _85hotwsCta0JfYIjI4Lw6}#) - (if (not (#{distinct-bound-ids? _85hotwsCta0JfYIjI4J4C}# - (map car #{pvars _85hotwsCta0JfYIjI4Lw6}#))) + (#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# + #{pat _hoQGWMnyQPAh3k2jhWJJ1}# + #{keys _hoQGWMnyQPAh3k2jhWJJy}#)) + (lambda (#{p _hoQGWMnyQPAh3k2jhWJMT}# + #{pvars _hoQGWMnyQPAh3k2jhWJMU}#) + (if (not (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + (map car #{pvars _hoQGWMnyQPAh3k2jhWJMU}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat _85hotwsCta0JfYIjI4Lub}#) + #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) (if (not (and-map - (lambda (#{x _85hotwsCta0JfYIjI4Lyu}#) - (not (let ((#{x _85hotwsCta0JfYIjI4Lyy}# - (car #{x _85hotwsCta0JfYIjI4Lyu}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJOI}#) + (not (let ((#{x _hoQGWMnyQPAh3k2jhWJOM}# + (car #{x _hoQGWMnyQPAh3k2jhWJOI}#))) (if (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 1)) #f) (if (eq? (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _85hotwsCta0JfYIjI4Lyy}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# 1) - #{x _85hotwsCta0JfYIjI4Lyy}#) + #{x _hoQGWMnyQPAh3k2jhWJOM}#) (if (if (= (vector-length '#(syntax-object ... @@ -17552,10 +17552,10 @@ "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4Lyy}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWJOM}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -17996,44 +17996,44 @@ '(()))) #f) #f)))) - #{pvars _85hotwsCta0JfYIjI4Lw6}#)) + #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat _85hotwsCta0JfYIjI4Lub}#) - (let ((#{y _85hotwsCta0JfYIjI4Lz$}# + #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) + (let ((#{y _hoQGWMnyQPAh3k2jhWJPY}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# #f - (let ((#{req _85hotwsCta0JfYIjI4L2N}# (list 'tmp)) - (#{vars _85hotwsCta0JfYIjI4L2P}# - (list #{y _85hotwsCta0JfYIjI4Lz$}#)) - (#{exp _85hotwsCta0JfYIjI4L2R}# - (let ((#{y _85hotwsCta0JfYIjI4L2i}# + (let ((#{req _hoQGWMnyQPAh3k2jhWJRn}# (list 'tmp)) + (#{vars _hoQGWMnyQPAh3k2jhWJRp}# + (list #{y _hoQGWMnyQPAh3k2jhWJPY}#)) + (#{exp _hoQGWMnyQPAh3k2jhWJRr}# + (let ((#{y _hoQGWMnyQPAh3k2jhWJR8}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y _85hotwsCta0JfYIjI4Lz$}#))) - (let ((#{test-exp _85hotwsCta0JfYIjI4L2m}# - (let ((#{tmp _85hotwsCta0JfYIjI4L2v}# + #{y _hoQGWMnyQPAh3k2jhWJPY}#))) + (let ((#{test-exp _hoQGWMnyQPAh3k2jhWJSA}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJSJ}# ($sc-dispatch - #{fender _85hotwsCta0JfYIjI4Luc}# + #{fender _hoQGWMnyQPAh3k2jhWJJ2}# '#(atom #t)))) - (if #{tmp _85hotwsCta0JfYIjI4L2v}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJSJ}# (@apply (lambda () - #{y _85hotwsCta0JfYIjI4L2i}#) - #{tmp _85hotwsCta0JfYIjI4L2v}#) - (let ((#{then-exp _85hotwsCta0JfYIjI4L3B}# - (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}# - #{pvars _85hotwsCta0JfYIjI4Lw6}# - #{fender _85hotwsCta0JfYIjI4Luc}# - #{y _85hotwsCta0JfYIjI4L2i}# - #{r _85hotwsCta0JfYIjI4Lua}# - #{mod _85hotwsCta0JfYIjI4Lue}#)) - (#{else-exp _85hotwsCta0JfYIjI4L3C}# + #{y _hoQGWMnyQPAh3k2jhWJR8}#) + #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#) + (let ((#{then-exp _hoQGWMnyQPAh3k2jhWJSb}# + (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# + #{pvars _hoQGWMnyQPAh3k2jhWJMU}# + #{fender _hoQGWMnyQPAh3k2jhWJJ2}# + #{y _hoQGWMnyQPAh3k2jhWJR8}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) + (#{else-exp _hoQGWMnyQPAh3k2jhWJSc}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -18045,48 +18045,48 @@ %expanded-vtables 10) #f - #{y _85hotwsCta0JfYIjI4L2i}# - #{then-exp _85hotwsCta0JfYIjI4L3B}# - #{else-exp _85hotwsCta0JfYIjI4L3C}#))))) - (#{then-exp _85hotwsCta0JfYIjI4L2n}# - (#{build-dispatch-call _85hotwsCta0JfYIjI4LfR}# - #{pvars _85hotwsCta0JfYIjI4Lw6}# - #{exp _85hotwsCta0JfYIjI4Lud}# - #{y _85hotwsCta0JfYIjI4L2i}# - #{r _85hotwsCta0JfYIjI4Lua}# - #{mod _85hotwsCta0JfYIjI4Lue}#)) - (#{else-exp _85hotwsCta0JfYIjI4L2o}# - (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}# - #{x _85hotwsCta0JfYIjI4LuX}# - #{keys _85hotwsCta0JfYIjI4LuY}# - #{clauses _85hotwsCta0JfYIjI4LuZ}# - #{r _85hotwsCta0JfYIjI4Lua}# - #{mod _85hotwsCta0JfYIjI4Lue}#))) + #{y _hoQGWMnyQPAh3k2jhWJR8}# + #{then-exp _hoQGWMnyQPAh3k2jhWJSb}# + #{else-exp _hoQGWMnyQPAh3k2jhWJSc}#))))) + (#{then-exp _hoQGWMnyQPAh3k2jhWJSB}# + (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# + #{pvars _hoQGWMnyQPAh3k2jhWJMU}# + #{exp _hoQGWMnyQPAh3k2jhWJJ3}# + #{y _hoQGWMnyQPAh3k2jhWJR8}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) + (#{else-exp _hoQGWMnyQPAh3k2jhWJSC}# + (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# + #{x _hoQGWMnyQPAh3k2jhWJJx}# + #{keys _hoQGWMnyQPAh3k2jhWJJy}# + #{clauses _hoQGWMnyQPAh3k2jhWJJz}# + #{r _hoQGWMnyQPAh3k2jhWJJ0}# + #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp _85hotwsCta0JfYIjI4L2m}# - #{then-exp _85hotwsCta0JfYIjI4L2n}# - #{else-exp _85hotwsCta0JfYIjI4L2o}#))))) - (let ((#{body _85hotwsCta0JfYIjI4L2W}# + #{test-exp _hoQGWMnyQPAh3k2jhWJSA}# + #{then-exp _hoQGWMnyQPAh3k2jhWJSB}# + #{else-exp _hoQGWMnyQPAh3k2jhWJSC}#))))) + (let ((#{body _hoQGWMnyQPAh3k2jhWJRw}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _85hotwsCta0JfYIjI4L2N}# + #{req _hoQGWMnyQPAh3k2jhWJRn}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4L2P}# - #{exp _85hotwsCta0JfYIjI4L2R}# + #{vars _hoQGWMnyQPAh3k2jhWJRp}# + #{exp _hoQGWMnyQPAh3k2jhWJRr}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _85hotwsCta0JfYIjI4L2W}#))) - (list (if (eq? #{p _85hotwsCta0JfYIjI4Lw5}# 'any) - (let ((#{fun-exp _85hotwsCta0JfYIjI4L3Y}# + #{body _hoQGWMnyQPAh3k2jhWJRw}#))) + (list (if (eq? #{p _hoQGWMnyQPAh3k2jhWJMT}# 'any) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# (if (equal? (module-name (current-module)) '(guile)) @@ -18100,14 +18100,14 @@ '(guile) 'list #f))) - (#{arg-exps _85hotwsCta0JfYIjI4L3Z}# - (list #{x _85hotwsCta0JfYIjI4LuX}#))) + (#{arg-exps _hoQGWMnyQPAh3k2jhWJSz}# + (list #{x _hoQGWMnyQPAh3k2jhWJJx}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4L3Y}# - #{arg-exps _85hotwsCta0JfYIjI4L3Z}#)) - (let ((#{fun-exp _85hotwsCta0JfYIjI4L3w}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#)) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# (if (equal? (module-name (current-module)) '(guile)) @@ -18121,27 +18121,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps _85hotwsCta0JfYIjI4L3x}# - (list #{x _85hotwsCta0JfYIjI4LuX}# + (#{arg-exps _hoQGWMnyQPAh3k2jhWJTL}# + (list #{x _hoQGWMnyQPAh3k2jhWJJx}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p _85hotwsCta0JfYIjI4Lw5}#)))) + #{p _hoQGWMnyQPAh3k2jhWJMT}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4L3w}# - #{arg-exps _85hotwsCta0JfYIjI4L3x}#)))))))))))) - (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}# - (lambda (#{x _85hotwsCta0JfYIjI4Lli}# - #{keys _85hotwsCta0JfYIjI4Llj}# - #{clauses _85hotwsCta0JfYIjI4Llk}# - #{r _85hotwsCta0JfYIjI4Lll}# - #{mod _85hotwsCta0JfYIjI4Llm}#) - (if (null? #{clauses _85hotwsCta0JfYIjI4Llk}#) - (let ((#{fun-exp _85hotwsCta0JfYIjI4Llr}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#)))))))))))) + (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJA8}# + #{keys _hoQGWMnyQPAh3k2jhWJA9}# + #{clauses _hoQGWMnyQPAh3k2jhWJA$}# + #{r _hoQGWMnyQPAh3k2jhWJA@}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#) + (if (null? #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) + (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -18153,7 +18153,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps _85hotwsCta0JfYIjI4Lls}# + (#{arg-exps _hoQGWMnyQPAh3k2jhWJBG}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -18162,77 +18162,77 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x _85hotwsCta0JfYIjI4Lli}#))) + #{x _hoQGWMnyQPAh3k2jhWJA8}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _85hotwsCta0JfYIjI4Llr}# - #{arg-exps _85hotwsCta0JfYIjI4Lls}#)) - (let ((#{tmp _85hotwsCta0JfYIjI4LmN}# - (car #{clauses _85hotwsCta0JfYIjI4Llk}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4LmO}# + #{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# + #{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#)) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBn}# + (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBo}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4LmN}# + #{tmp _hoQGWMnyQPAh3k2jhWJBn}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LmO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJBo}# (@apply - (lambda (#{pat _85hotwsCta0JfYIjI4LmQ}# - #{exp _85hotwsCta0JfYIjI4LmR}#) - (if (if (if (symbol? #{pat _85hotwsCta0JfYIjI4LmQ}#) + (lambda (#{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}#) + (if (if (if (symbol? #{pat _hoQGWMnyQPAh3k2jhWJBq}#) #t (if (if (vector? - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (= (vector-length - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) 4) (eq? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 1)) #f)) (and-map - (lambda (#{x _85hotwsCta0JfYIjI4Lms}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJCG}#) (not (if (eq? (if (if (vector? - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (= (vector-length - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) 4) (eq? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 1) - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lms}#) + #{x _hoQGWMnyQPAh3k2jhWJCG}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lms}#) + #{x _hoQGWMnyQPAh3k2jhWJCG}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lms}# + #{x _hoQGWMnyQPAh3k2jhWJCG}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _85hotwsCta0JfYIjI4Lms}# + #{x _hoQGWMnyQPAh3k2jhWJCG}# 1) - #{x _85hotwsCta0JfYIjI4Lms}#)) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{x _hoQGWMnyQPAh3k2jhWJCG}#)) + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4Lms}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWJCG}# '(()))) #f))) (cons '#(syntax-object @@ -18686,7 +18686,7 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)) - #{keys _85hotwsCta0JfYIjI4Llj}#)) + #{keys _hoQGWMnyQPAh3k2jhWJA9}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -20546,7 +20546,7 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object pad ((top) @@ -21003,7 +21003,7 @@ ("1og" "1of" "1oe"))) (hygiene guile)) '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object _ ((top) @@ -21461,168 +21461,168 @@ (hygiene guile)) '(()))) #f) - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{exp _85hotwsCta0JfYIjI4LmR}# - #{r _85hotwsCta0JfYIjI4Lll}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}# + #{r _hoQGWMnyQPAh3k2jhWJA@}# '(()) - #{mod _85hotwsCta0JfYIjI4Llm}#) - (let ((#{labels _85hotwsCta0JfYIjI4Lpc}# - (list (#{gen-label _85hotwsCta0JfYIjI4J3p}#))) - (#{var _85hotwsCta0JfYIjI4Lpd}# - (let ((#{id _85hotwsCta0JfYIjI4LqD}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#) + (let ((#{labels _hoQGWMnyQPAh3k2jhWJE2}# + (list (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) + (#{var _hoQGWMnyQPAh3k2jhWJE3}# + (let ((#{id _hoQGWMnyQPAh3k2jhWJFd}# (if (if (vector? - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) (if (= (vector-length - #{pat _85hotwsCta0JfYIjI4LmQ}#) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#) 4) (eq? (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# 1) - #{pat _85hotwsCta0JfYIjI4LmQ}#))) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#))) (gensym (string-append (symbol->string - #{id _85hotwsCta0JfYIjI4LqD}#) + #{id _hoQGWMnyQPAh3k2jhWJFd}#) " "))))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# #f - (#{build-simple-lambda _85hotwsCta0JfYIjI4J3P}# + (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# #f (list (syntax->datum - #{pat _85hotwsCta0JfYIjI4LmQ}#)) + #{pat _hoQGWMnyQPAh3k2jhWJBq}#)) #f - (list #{var _85hotwsCta0JfYIjI4Lpd}#) + (list #{var _hoQGWMnyQPAh3k2jhWJE3}#) '() - (#{expand _85hotwsCta0JfYIjI4J4L}# - #{exp _85hotwsCta0JfYIjI4LmR}# - (#{extend-env _85hotwsCta0JfYIjI4J3h}# - #{labels _85hotwsCta0JfYIjI4Lpc}# + (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}# + (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# + #{labels _hoQGWMnyQPAh3k2jhWJE2}# (list (cons 'syntax - (cons #{var _85hotwsCta0JfYIjI4Lpd}# + (cons #{var _hoQGWMnyQPAh3k2jhWJE3}# 0))) - #{r _85hotwsCta0JfYIjI4Lll}#) - (#{make-binding-wrap _85hotwsCta0JfYIjI4J31}# - (list #{pat _85hotwsCta0JfYIjI4LmQ}#) - #{labels _85hotwsCta0JfYIjI4Lpc}# + #{r _hoQGWMnyQPAh3k2jhWJA@}#) + (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# + (list #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{labels _hoQGWMnyQPAh3k2jhWJE2}# '(())) - #{mod _85hotwsCta0JfYIjI4Llm}#)) - (list #{x _85hotwsCta0JfYIjI4Lli}#)))) - (#{gen-clause _85hotwsCta0JfYIjI4LfS}# - #{x _85hotwsCta0JfYIjI4Lli}# - #{keys _85hotwsCta0JfYIjI4Llj}# - (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#) - #{r _85hotwsCta0JfYIjI4Lll}# - #{pat _85hotwsCta0JfYIjI4LmQ}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) + (list #{x _hoQGWMnyQPAh3k2jhWJA8}#)))) + (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# + #{x _hoQGWMnyQPAh3k2jhWJA8}# + #{keys _hoQGWMnyQPAh3k2jhWJA9}# + (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) + #{r _hoQGWMnyQPAh3k2jhWJA@}# + #{pat _hoQGWMnyQPAh3k2jhWJBq}# #t - #{exp _85hotwsCta0JfYIjI4LmR}# - #{mod _85hotwsCta0JfYIjI4Llm}#))) - #{tmp _85hotwsCta0JfYIjI4LmO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4LuP}# + #{exp _hoQGWMnyQPAh3k2jhWJBr}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#))) + #{tmp _hoQGWMnyQPAh3k2jhWJBo}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWJJp}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4LmN}# + #{tmp _hoQGWMnyQPAh3k2jhWJBn}# '(any any any)))) - (if #{tmp _85hotwsCta0JfYIjI4LuP}# + (if #{tmp _hoQGWMnyQPAh3k2jhWJJp}# (@apply - (lambda (#{pat _85hotwsCta0JfYIjI4LuR}# - #{fender _85hotwsCta0JfYIjI4LuS}# - #{exp _85hotwsCta0JfYIjI4LuT}#) - (#{gen-clause _85hotwsCta0JfYIjI4LfS}# - #{x _85hotwsCta0JfYIjI4Lli}# - #{keys _85hotwsCta0JfYIjI4Llj}# - (cdr #{clauses _85hotwsCta0JfYIjI4Llk}#) - #{r _85hotwsCta0JfYIjI4Lll}# - #{pat _85hotwsCta0JfYIjI4LuR}# - #{fender _85hotwsCta0JfYIjI4LuS}# - #{exp _85hotwsCta0JfYIjI4LuT}# - #{mod _85hotwsCta0JfYIjI4Llm}#)) - #{tmp _85hotwsCta0JfYIjI4LuP}#) + (lambda (#{pat _hoQGWMnyQPAh3k2jhWJJr}# + #{fender _hoQGWMnyQPAh3k2jhWJJs}# + #{exp _hoQGWMnyQPAh3k2jhWJJt}#) + (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# + #{x _hoQGWMnyQPAh3k2jhWJA8}# + #{keys _hoQGWMnyQPAh3k2jhWJA9}# + (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) + #{r _hoQGWMnyQPAh3k2jhWJA@}# + #{pat _hoQGWMnyQPAh3k2jhWJJr}# + #{fender _hoQGWMnyQPAh3k2jhWJJs}# + #{exp _hoQGWMnyQPAh3k2jhWJJt}# + #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) + #{tmp _hoQGWMnyQPAh3k2jhWJJp}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses _85hotwsCta0JfYIjI4Llk}#))))))))))) - (lambda (#{e _85hotwsCta0JfYIjI4LfU}# - #{r _85hotwsCta0JfYIjI4LfV}# - #{w _85hotwsCta0JfYIjI4LfW}# - #{s _85hotwsCta0JfYIjI4LfX}# - #{mod _85hotwsCta0JfYIjI4LfY}#) - (let ((#{e _85hotwsCta0JfYIjI4LfZ}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))))))))))) + (lambda (#{e _hoQGWMnyQPAh3k2jhWI6u}# + #{r _hoQGWMnyQPAh3k2jhWI6v}# + #{w _hoQGWMnyQPAh3k2jhWI6w}# + #{s _hoQGWMnyQPAh3k2jhWI6x}# + #{mod _hoQGWMnyQPAh3k2jhWI6y}#) + (let ((#{e _hoQGWMnyQPAh3k2jhWI6z}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (begin - (if (if (pair? #{e _85hotwsCta0JfYIjI4LfU}#) - #{s _85hotwsCta0JfYIjI4LfX}# + (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWI6u}#) + #{s _hoQGWMnyQPAh3k2jhWI6x}# #f) (set-source-properties! - #{e _85hotwsCta0JfYIjI4LfU}# - #{s _85hotwsCta0JfYIjI4LfX}#)) - #{e _85hotwsCta0JfYIjI4LfU}#) - #{w _85hotwsCta0JfYIjI4LfW}# - #{mod _85hotwsCta0JfYIjI4LfY}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Lfb}# + #{e _hoQGWMnyQPAh3k2jhWI6u}# + #{s _hoQGWMnyQPAh3k2jhWI6x}#)) + #{e _hoQGWMnyQPAh3k2jhWI6u}#) + #{w _hoQGWMnyQPAh3k2jhWI6w}# + #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWI61}# ($sc-dispatch - #{e _85hotwsCta0JfYIjI4LfZ}# + #{e _hoQGWMnyQPAh3k2jhWI6z}# '(_ any each-any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Lfb}# + (if #{tmp _hoQGWMnyQPAh3k2jhWI61}# (@apply - (lambda (#{val _85hotwsCta0JfYIjI4Lf0}# - #{key _85hotwsCta0JfYIjI4Lf1}# - #{m _85hotwsCta0JfYIjI4Lf2}#) + (lambda (#{val _hoQGWMnyQPAh3k2jhWI7O}# + #{key _hoQGWMnyQPAh3k2jhWI7P}# + #{m _hoQGWMnyQPAh3k2jhWI7Q}#) (if (and-map - (lambda (#{x _85hotwsCta0JfYIjI4Lf3}#) - (if (if (symbol? #{x _85hotwsCta0JfYIjI4Lf3}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWI7R}#) + (if (if (symbol? #{x _hoQGWMnyQPAh3k2jhWI7R}#) #t (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 1)) #f)) (not (if (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 1)) #f) (if (eq? (if (if (vector? - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (= (vector-length - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) 4) (eq? (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _85hotwsCta0JfYIjI4Lf3}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# 1) - #{x _85hotwsCta0JfYIjI4Lf3}#) + #{x _hoQGWMnyQPAh3k2jhWI7R}#) (if (if (= (vector-length '#(syntax-object ... @@ -22513,10 +22513,10 @@ ((top) (top) (top)) ("1og" "1of" "1oe"))) (hygiene guile)))) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4Lf3}# + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWI7R}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# '#(syntax-object ... ((top) @@ -22958,873 +22958,891 @@ #f) #f)) #f)) - #{key _85hotwsCta0JfYIjI4Lf1}#) - (let ((#{x _85hotwsCta0JfYIjI4Lh1}# + #{key _hoQGWMnyQPAh3k2jhWI7P}#) + (let ((#{x _hoQGWMnyQPAh3k2jhWI9P}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _85hotwsCta0JfYIjI4J3G}# - #{s _85hotwsCta0JfYIjI4LfX}# - (let ((#{req _85hotwsCta0JfYIjI4Lj3}# (list 'tmp)) - (#{vars _85hotwsCta0JfYIjI4Lj5}# - (list #{x _85hotwsCta0JfYIjI4Lh1}#)) - (#{exp _85hotwsCta0JfYIjI4Lj7}# - (#{gen-syntax-case _85hotwsCta0JfYIjI4LfT}# + (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + #{s _hoQGWMnyQPAh3k2jhWI6x}# + (let ((#{req _hoQGWMnyQPAh3k2jhWI@R}# (list 'tmp)) + (#{vars _hoQGWMnyQPAh3k2jhWI@T}# + (list #{x _hoQGWMnyQPAh3k2jhWI9P}#)) + (#{exp _hoQGWMnyQPAh3k2jhWI@V}# + (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x _85hotwsCta0JfYIjI4Lh1}#) - #{key _85hotwsCta0JfYIjI4Lf1}# - #{m _85hotwsCta0JfYIjI4Lf2}# - #{r _85hotwsCta0JfYIjI4LfV}# - #{mod _85hotwsCta0JfYIjI4LfY}#))) - (let ((#{body _85hotwsCta0JfYIjI4LkA}# + #{x _hoQGWMnyQPAh3k2jhWI9P}#) + #{key _hoQGWMnyQPAh3k2jhWI7P}# + #{m _hoQGWMnyQPAh3k2jhWI7Q}# + #{r _hoQGWMnyQPAh3k2jhWI6v}# + #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) + (let ((#{body _hoQGWMnyQPAh3k2jhWI@a}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _85hotwsCta0JfYIjI4Lj3}# + #{req _hoQGWMnyQPAh3k2jhWI@R}# #f #f #f '() - #{vars _85hotwsCta0JfYIjI4Lj5}# - #{exp _85hotwsCta0JfYIjI4Lj7}# + #{vars _hoQGWMnyQPAh3k2jhWI@T}# + #{exp _hoQGWMnyQPAh3k2jhWI@V}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _85hotwsCta0JfYIjI4LkA}#))) - (list (#{expand _85hotwsCta0JfYIjI4J4L}# - #{val _85hotwsCta0JfYIjI4Lf0}# - #{r _85hotwsCta0JfYIjI4LfV}# + #{body _hoQGWMnyQPAh3k2jhWI@a}#))) + (list (#{expand _hoQGWMnyQPAh3k2jhWHTl}# + #{val _hoQGWMnyQPAh3k2jhWI7O}# + #{r _hoQGWMnyQPAh3k2jhWI6v}# '(()) - #{mod _85hotwsCta0JfYIjI4LfY}#)))) + #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e _85hotwsCta0JfYIjI4LfZ}#))) - #{tmp _85hotwsCta0JfYIjI4Lfb}#) + #{e _hoQGWMnyQPAh3k2jhWI6z}#))) + #{tmp _hoQGWMnyQPAh3k2jhWI61}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _85hotwsCta0JfYIjI4LfZ}#))))))) + #{e _hoQGWMnyQPAh3k2jhWI6z}#))))))) (set! macroexpand (lambda* - (#{x _85hotwsCta0JfYIjI4MJo}# + (#{x _hoQGWMnyQPAh3k2jhWJlC}# #:optional - (#{m _85hotwsCta0JfYIjI4MJp}# 'e) - (#{esew _85hotwsCta0JfYIjI4MJq}# '(eval))) - (#{expand-top-sequence _85hotwsCta0JfYIjI4J4H}# - (list #{x _85hotwsCta0JfYIjI4MJo}#) + (#{m _hoQGWMnyQPAh3k2jhWJlD}# 'e) + (#{esew _hoQGWMnyQPAh3k2jhWJlE}# '(eval))) + (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# + (list #{x _hoQGWMnyQPAh3k2jhWJlC}#) '() '((top)) #f - #{m _85hotwsCta0JfYIjI4MJp}# - #{esew _85hotwsCta0JfYIjI4MJq}# + #{m _hoQGWMnyQPAh3k2jhWJlD}# + #{esew _hoQGWMnyQPAh3k2jhWJlE}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x _85hotwsCta0JfYIjI4MJt}#) - (if (if (vector? #{x _85hotwsCta0JfYIjI4MJt}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MJt}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJlH}#) + (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJlH}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJlH}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MJt}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 1)) #f))) (set! datum->syntax - (lambda (#{id _85hotwsCta0JfYIjI4MKG}# - #{datum _85hotwsCta0JfYIjI4MKH}#) - (let ((#{wrap _85hotwsCta0JfYIjI4MKM}# - (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 2)) - (#{module _85hotwsCta0JfYIjI4MKN}# - (vector-ref #{id _85hotwsCta0JfYIjI4MKG}# 3))) + (lambda (#{id _hoQGWMnyQPAh3k2jhWJlg}# + #{datum _hoQGWMnyQPAh3k2jhWJlh}#) + (let ((#{wrap _hoQGWMnyQPAh3k2jhWJlm}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 2)) + (#{module _hoQGWMnyQPAh3k2jhWJln}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 3))) (vector 'syntax-object - #{datum _85hotwsCta0JfYIjI4MKH}# - #{wrap _85hotwsCta0JfYIjI4MKM}# - #{module _85hotwsCta0JfYIjI4MKN}#)))) + #{datum _hoQGWMnyQPAh3k2jhWJlh}# + #{wrap _hoQGWMnyQPAh3k2jhWJlm}# + #{module _hoQGWMnyQPAh3k2jhWJln}#)))) (set! syntax->datum - (lambda (#{x _85hotwsCta0JfYIjI4MKU}#) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{x _85hotwsCta0JfYIjI4MKU}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWJlu}#) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{x _hoQGWMnyQPAh3k2jhWJlu}# '(())))) (set! syntax-source - (lambda (#{x _85hotwsCta0JfYIjI4MKX}#) - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - #{x _85hotwsCta0JfYIjI4MKX}#))) - (set! syntax-local-binding - (lambda (#{id _85hotwsCta0JfYIjI4MMw}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJlx}#) + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + #{x _hoQGWMnyQPAh3k2jhWJlx}#))) + (set! syntax-module + (lambda (#{id _hoQGWMnyQPAh3k2jhWJoK}#) (begin - (if (not (if (if (vector? #{id _85hotwsCta0JfYIjI4MMw}#) - (if (= (vector-length #{id _85hotwsCta0JfYIjI4MMw}#) + (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoK}#) + (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoK}#) 4) - (eq? (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 0) + (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1)) + (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 _85hotwsCta0JfYIjI4MMw}#)) + #{id _hoQGWMnyQPAh3k2jhWJoz}#)) ((fluid-ref - #{transformer-environment _85hotwsCta0JfYIjI4J39}#) - (lambda (#{e _85hotwsCta0JfYIjI4MNZ}# - #{r _85hotwsCta0JfYIjI4MNa}# - #{w _85hotwsCta0JfYIjI4MNb}# - #{s _85hotwsCta0JfYIjI4MNc}# - #{rib _85hotwsCta0JfYIjI4MNd}# - #{mod _85hotwsCta0JfYIjI4MNe}#) + #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWJpc}# + #{r _hoQGWMnyQPAh3k2jhWJpd}# + #{w _hoQGWMnyQPAh3k2jhWJpe}# + #{s _hoQGWMnyQPAh3k2jhWJpf}# + #{rib _hoQGWMnyQPAh3k2jhWJpg}# + #{mod _hoQGWMnyQPAh3k2jhWJph}#) (call-with-values (lambda () - (let ((#{id _85hotwsCta0JfYIjI4MNh}# - (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 1)) - (#{w _85hotwsCta0JfYIjI4MNi}# - (let ((#{w _85hotwsCta0JfYIjI4MNt}# + (let ((#{id _hoQGWMnyQPAh3k2jhWJpk}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) + (#{w _hoQGWMnyQPAh3k2jhWJpl}# + (let ((#{w _hoQGWMnyQPAh3k2jhWJpw}# (vector-ref - #{id _85hotwsCta0JfYIjI4MMw}# + #{id _hoQGWMnyQPAh3k2jhWJoz}# 2))) - (let ((#{ms _85hotwsCta0JfYIjI4MNu}# - (car #{w _85hotwsCta0JfYIjI4MNt}#)) - (#{s _85hotwsCta0JfYIjI4MNv}# - (cdr #{w _85hotwsCta0JfYIjI4MNt}#))) - (if (if (pair? #{ms _85hotwsCta0JfYIjI4MNu}#) - (eq? (car #{ms _85hotwsCta0JfYIjI4MNu}#) + (let ((#{ms _hoQGWMnyQPAh3k2jhWJpx}# + (car #{w _hoQGWMnyQPAh3k2jhWJpw}#)) + (#{s _hoQGWMnyQPAh3k2jhWJpy}# + (cdr #{w _hoQGWMnyQPAh3k2jhWJpw}#))) + (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWJpx}#) + (eq? (car #{ms _hoQGWMnyQPAh3k2jhWJpx}#) #f) #f) - (cons (cdr #{ms _85hotwsCta0JfYIjI4MNu}#) - (if #{rib _85hotwsCta0JfYIjI4MNd}# - (cons #{rib _85hotwsCta0JfYIjI4MNd}# - (cdr #{s _85hotwsCta0JfYIjI4MNv}#)) - (cdr #{s _85hotwsCta0JfYIjI4MNv}#))) - (cons #{ms _85hotwsCta0JfYIjI4MNu}# - (if #{rib _85hotwsCta0JfYIjI4MNd}# - (cons #{rib _85hotwsCta0JfYIjI4MNd}# - #{s _85hotwsCta0JfYIjI4MNv}#) - #{s _85hotwsCta0JfYIjI4MNv}#)))))) - (#{mod _85hotwsCta0JfYIjI4MNk}# - (vector-ref #{id _85hotwsCta0JfYIjI4MMw}# 3))) - (let ((#{n _85hotwsCta0JfYIjI4MNn}# - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{id _85hotwsCta0JfYIjI4MNh}# - #{w _85hotwsCta0JfYIjI4MNi}#))) - (if (symbol? #{n _85hotwsCta0JfYIjI4MNn}#) - (let ((#{mod _85hotwsCta0JfYIjI4MN1}# + (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWJpx}#) + (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# + (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# + (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#)) + (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#))) + (cons #{ms _hoQGWMnyQPAh3k2jhWJpx}# + (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# + (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# + #{s _hoQGWMnyQPAh3k2jhWJpy}#) + #{s _hoQGWMnyQPAh3k2jhWJpy}#)))))) + (#{mod _hoQGWMnyQPAh3k2jhWJpn}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 3))) + (let ((#{n _hoQGWMnyQPAh3k2jhWJpq}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# + #{w _hoQGWMnyQPAh3k2jhWJpl}#))) + (if (symbol? #{n _hoQGWMnyQPAh3k2jhWJpq}#) + (let ((#{mod _hoQGWMnyQPAh3k2jhWJp4}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4MNh}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _85hotwsCta0JfYIjI4MNh}# 3) - #{mod _85hotwsCta0JfYIjI4MNk}#))) - (let ((#{b _85hotwsCta0JfYIjI4MN2}# - (let ((#{t _85hotwsCta0JfYIjI4MN3}# - (#{get-global-definition-hook _85hotwsCta0JfYIjI4J3C}# - #{n _85hotwsCta0JfYIjI4MNn}# - #{mod _85hotwsCta0JfYIjI4MN1}#))) - (if #{t _85hotwsCta0JfYIjI4MN3}# - #{t _85hotwsCta0JfYIjI4MN3}# + (vector-ref #{id _hoQGWMnyQPAh3k2jhWJpk}# 3) + #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWJp5}# + (let ((#{t _hoQGWMnyQPAh3k2jhWJp6}# + (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# + #{n _hoQGWMnyQPAh3k2jhWJpq}# + #{mod _hoQGWMnyQPAh3k2jhWJp4}#))) + (if #{t _hoQGWMnyQPAh3k2jhWJp6}# + #{t _hoQGWMnyQPAh3k2jhWJp6}# '(global))))) - (if (eq? (car #{b _85hotwsCta0JfYIjI4MN2}#) + (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) 'global) (values 'global - #{n _85hotwsCta0JfYIjI4MNn}# - #{mod _85hotwsCta0JfYIjI4MN1}#) + #{n _hoQGWMnyQPAh3k2jhWJpq}# + #{mod _hoQGWMnyQPAh3k2jhWJp4}#) (values - (car #{b _85hotwsCta0JfYIjI4MN2}#) - (cdr #{b _85hotwsCta0JfYIjI4MN2}#) - #{mod _85hotwsCta0JfYIjI4MN1}#)))) - (if (string? #{n _85hotwsCta0JfYIjI4MNn}#) - (let ((#{mod _85hotwsCta0JfYIjI4MOR}# + (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) + (cdr #{b _hoQGWMnyQPAh3k2jhWJp5}#) + #{mod _hoQGWMnyQPAh3k2jhWJp4}#)))) + (if (string? #{n _hoQGWMnyQPAh3k2jhWJpq}#) + (let ((#{mod _hoQGWMnyQPAh3k2jhWJqU}# (if (if (vector? - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) (if (= (vector-length - #{id _85hotwsCta0JfYIjI4MNh}#) + #{id _hoQGWMnyQPAh3k2jhWJpk}#) 4) (eq? (vector-ref - #{id _85hotwsCta0JfYIjI4MNh}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _85hotwsCta0JfYIjI4MNh}# + #{id _hoQGWMnyQPAh3k2jhWJpk}# 3) - #{mod _85hotwsCta0JfYIjI4MNk}#))) - (let ((#{b _85hotwsCta0JfYIjI4MOS}# - (let ((#{t _85hotwsCta0JfYIjI4MOT}# + #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) + (let ((#{b _hoQGWMnyQPAh3k2jhWJqV}# + (let ((#{t _hoQGWMnyQPAh3k2jhWJqW}# (assq-ref - #{r _85hotwsCta0JfYIjI4MNa}# - #{n _85hotwsCta0JfYIjI4MNn}#))) - (if #{t _85hotwsCta0JfYIjI4MOT}# - #{t _85hotwsCta0JfYIjI4MOT}# + #{r _hoQGWMnyQPAh3k2jhWJpd}# + #{n _hoQGWMnyQPAh3k2jhWJpq}#))) + (if #{t _hoQGWMnyQPAh3k2jhWJqW}# + #{t _hoQGWMnyQPAh3k2jhWJqW}# '(displaced-lexical))))) (values - (car #{b _85hotwsCta0JfYIjI4MOS}#) - (cdr #{b _85hotwsCta0JfYIjI4MOS}#) - #{mod _85hotwsCta0JfYIjI4MOR}#))) + (car #{b _hoQGWMnyQPAh3k2jhWJqV}#) + (cdr #{b _hoQGWMnyQPAh3k2jhWJqV}#) + #{mod _hoQGWMnyQPAh3k2jhWJqU}#))) (error "unexpected id-var-name" - #{id _85hotwsCta0JfYIjI4MNh}# - #{w _85hotwsCta0JfYIjI4MNi}# - #{n _85hotwsCta0JfYIjI4MNn}#)))))) - (lambda (#{type _85hotwsCta0JfYIjI4MOg}# - #{value _85hotwsCta0JfYIjI4MOh}# - #{mod _85hotwsCta0JfYIjI4MOi}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'lexical) + #{id _hoQGWMnyQPAh3k2jhWJpk}# + #{w _hoQGWMnyQPAh3k2jhWJpl}# + #{n _hoQGWMnyQPAh3k2jhWJpq}#)))))) + (lambda (#{type _hoQGWMnyQPAh3k2jhWJqj}# + #{value _hoQGWMnyQPAh3k2jhWJqk}# + #{mod _hoQGWMnyQPAh3k2jhWJql}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'lexical) (values 'lexical - #{value _85hotwsCta0JfYIjI4MOh}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'macro) - (values 'macro #{value _85hotwsCta0JfYIjI4MOh}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'syntax) + #{value _hoQGWMnyQPAh3k2jhWJqk}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'macro) + (values 'macro #{value _hoQGWMnyQPAh3k2jhWJqk}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'syntax) (values 'pattern-variable - #{value _85hotwsCta0JfYIjI4MOh}#) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# + #{value _hoQGWMnyQPAh3k2jhWJqk}#) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? #{type _85hotwsCta0JfYIjI4MOg}# 'global) + (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'global) (values 'global - (cons #{value _85hotwsCta0JfYIjI4MOh}# - (cdr #{mod _85hotwsCta0JfYIjI4MOi}#))) + (cons #{value _hoQGWMnyQPAh3k2jhWJqk}# + (cdr #{mod _hoQGWMnyQPAh3k2jhWJql}#))) (values 'other #f))))))))))))) (set! syntax-locally-bound-identifiers - (lambda (#{x _85hotwsCta0JfYIjI4MOt}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJqw}#) (begin - (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MOt}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MOt}#) + (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJqw}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJqw}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 1)) #f)) (syntax-violation 'syntax-locally-bound-identifiers "invalid argument" - #{x _85hotwsCta0JfYIjI4MOt}#)) - (#{locally-bound-identifiers _85hotwsCta0JfYIjI4J37}# - (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 2) - (vector-ref #{x _85hotwsCta0JfYIjI4MOt}# 3))))) + #{x _hoQGWMnyQPAh3k2jhWJqw}#)) + (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 2) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 3))))) (set! generate-temporaries - (lambda (#{ls _85hotwsCta0JfYIjI4MQY}#) + (lambda (#{ls _hoQGWMnyQPAh3k2jhWJsb}#) (begin - (if (not (list? #{ls _85hotwsCta0JfYIjI4MQY}#)) + (if (not (list? #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls _85hotwsCta0JfYIjI4MQY}#)) - (let ((#{mod _85hotwsCta0JfYIjI4MQg}# + #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) + (let ((#{mod _hoQGWMnyQPAh3k2jhWJsj}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x _85hotwsCta0JfYIjI4MQh}#) - (#{wrap _85hotwsCta0JfYIjI4J4E}# + (map (lambda (#{x _hoQGWMnyQPAh3k2jhWJsk}#) + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# (gensym) '((top)) - #{mod _85hotwsCta0JfYIjI4MQg}#)) - #{ls _85hotwsCta0JfYIjI4MQY}#))))) + #{mod _hoQGWMnyQPAh3k2jhWJsj}#)) + #{ls _hoQGWMnyQPAh3k2jhWJsb}#))))) (set! free-identifier=? - (lambda (#{x _85hotwsCta0JfYIjI4MQl}# - #{y _85hotwsCta0JfYIjI4MQm}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJso}# + #{y _hoQGWMnyQPAh3k2jhWJsp}#) (begin - (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#) + (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x _85hotwsCta0JfYIjI4MQl}#)) - (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#) + #{x _hoQGWMnyQPAh3k2jhWJso}#)) + (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1)) + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y _85hotwsCta0JfYIjI4MQm}#)) - (if (eq? (if (if (vector? #{x _85hotwsCta0JfYIjI4MQl}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MQl}#) + #{y _hoQGWMnyQPAh3k2jhWJsp}#)) + (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _85hotwsCta0JfYIjI4MQl}# 1) - #{x _85hotwsCta0JfYIjI4MQl}#) - (if (if (vector? #{y _85hotwsCta0JfYIjI4MQm}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MQm}#) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1) + #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) 'syntax-object) #f) #f) - (vector-ref #{y _85hotwsCta0JfYIjI4MQm}# 1) - #{y _85hotwsCta0JfYIjI4MQm}#)) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{x _85hotwsCta0JfYIjI4MQl}# + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1) + #{y _hoQGWMnyQPAh3k2jhWJsp}#)) + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{x _hoQGWMnyQPAh3k2jhWJso}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{y _85hotwsCta0JfYIjI4MQm}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{y _hoQGWMnyQPAh3k2jhWJsp}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x _85hotwsCta0JfYIjI4MS8}# - #{y _85hotwsCta0JfYIjI4MS9}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWJu@}# + #{y _hoQGWMnyQPAh3k2jhWJvA}#) (begin - (if (not (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#) + (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1)) + (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x _85hotwsCta0JfYIjI4MS8}#)) - (if (not (if (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#) + #{x _hoQGWMnyQPAh3k2jhWJu@}#)) + (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1)) + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y _85hotwsCta0JfYIjI4MS9}#)) - (if (if (if (vector? #{x _85hotwsCta0JfYIjI4MS8}#) - (if (= (vector-length #{x _85hotwsCta0JfYIjI4MS8}#) + #{y _hoQGWMnyQPAh3k2jhWJvA}#)) + (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) + (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) 4) - (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 0) + (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) 'syntax-object) #f) #f) - (if (vector? #{y _85hotwsCta0JfYIjI4MS9}#) - (if (= (vector-length #{y _85hotwsCta0JfYIjI4MS9}#) + (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) 4) - (eq? (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 0) + (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 1) - (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 1)) - (#{same-marks? _85hotwsCta0JfYIjI4J35}# - (car (vector-ref #{x _85hotwsCta0JfYIjI4MS8}# 2)) - (car (vector-ref #{y _85hotwsCta0JfYIjI4MS9}# 2))) + (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1) + (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) + (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# + (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 2)) + (car (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 2))) #f) - (eq? #{x _85hotwsCta0JfYIjI4MS8}# - #{y _85hotwsCta0JfYIjI4MS9}#))))) + (eq? #{x _hoQGWMnyQPAh3k2jhWJu@}# + #{y _hoQGWMnyQPAh3k2jhWJvA}#))))) (set! syntax-violation (lambda* - (#{who _85hotwsCta0JfYIjI4MVC}# - #{message _85hotwsCta0JfYIjI4MVD}# - #{form _85hotwsCta0JfYIjI4MVE}# + (#{who _hoQGWMnyQPAh3k2jhWJxF}# + #{message _hoQGWMnyQPAh3k2jhWJxG}# + #{form _hoQGWMnyQPAh3k2jhWJxH}# #:optional - (#{subform _85hotwsCta0JfYIjI4MVF}# #f)) + (#{subform _hoQGWMnyQPAh3k2jhWJxI}# #f)) (begin - (if (not (if (not #{who _85hotwsCta0JfYIjI4MVC}#) - (not #{who _85hotwsCta0JfYIjI4MVC}#) - (let ((#{t _85hotwsCta0JfYIjI4MVX}# - (string? #{who _85hotwsCta0JfYIjI4MVC}#))) - (if #{t _85hotwsCta0JfYIjI4MVX}# - #{t _85hotwsCta0JfYIjI4MVX}# - (symbol? #{who _85hotwsCta0JfYIjI4MVC}#))))) + (if (not (if (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) + (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) + (let ((#{t _hoQGWMnyQPAh3k2jhWJxa}# + (string? #{who _hoQGWMnyQPAh3k2jhWJxF}#))) + (if #{t _hoQGWMnyQPAh3k2jhWJxa}# + #{t _hoQGWMnyQPAh3k2jhWJxa}# + (symbol? #{who _hoQGWMnyQPAh3k2jhWJxF}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who _85hotwsCta0JfYIjI4MVC}#)) - (if (not (string? #{message _85hotwsCta0JfYIjI4MVD}#)) + #{who _hoQGWMnyQPAh3k2jhWJxF}#)) + (if (not (string? #{message _hoQGWMnyQPAh3k2jhWJxG}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message _85hotwsCta0JfYIjI4MVD}#)) + #{message _hoQGWMnyQPAh3k2jhWJxG}#)) (throw 'syntax-error - #{who _85hotwsCta0JfYIjI4MVC}# - #{message _85hotwsCta0JfYIjI4MVD}# - (#{source-annotation _85hotwsCta0JfYIjI4J3g}# - (if #{form _85hotwsCta0JfYIjI4MVE}# - #{form _85hotwsCta0JfYIjI4MVE}# - #{subform _85hotwsCta0JfYIjI4MVF}#)) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{form _85hotwsCta0JfYIjI4MVE}# + #{who _hoQGWMnyQPAh3k2jhWJxF}# + #{message _hoQGWMnyQPAh3k2jhWJxG}# + (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# + (if #{form _hoQGWMnyQPAh3k2jhWJxH}# + #{form _hoQGWMnyQPAh3k2jhWJxH}# + #{subform _hoQGWMnyQPAh3k2jhWJxI}#)) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{form _hoQGWMnyQPAh3k2jhWJxH}# '(())) - (if #{subform _85hotwsCta0JfYIjI4MVF}# - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{subform _85hotwsCta0JfYIjI4MVF}# + (if #{subform _hoQGWMnyQPAh3k2jhWJxI}# + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{subform _hoQGWMnyQPAh3k2jhWJxI}# '(())) #f))))) (letrec* - ((#{match-each _85hotwsCta0JfYIjI4MYi}# - (lambda (#{e _85hotwsCta0JfYIjI4Mht}# - #{p _85hotwsCta0JfYIjI4Mhu}# - #{w _85hotwsCta0JfYIjI4Mhv}# - #{mod _85hotwsCta0JfYIjI4Mhw}#) - (if (pair? #{e _85hotwsCta0JfYIjI4Mht}#) - (let ((#{first _85hotwsCta0JfYIjI4Mhx}# - (#{match _85hotwsCta0JfYIjI4MYo}# - (car #{e _85hotwsCta0JfYIjI4Mht}#) - #{p _85hotwsCta0JfYIjI4Mhu}# - #{w _85hotwsCta0JfYIjI4Mhv}# + ((#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9w}# + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# + #{mod _hoQGWMnyQPAh3k2jhWJ9z}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (let ((#{first _hoQGWMnyQPAh3k2jhWJ90}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# '() - #{mod _85hotwsCta0JfYIjI4Mhw}#))) - (if #{first _85hotwsCta0JfYIjI4Mhx}# - (let ((#{rest _85hotwsCta0JfYIjI4Mh0}# - (#{match-each _85hotwsCta0JfYIjI4MYi}# - (cdr #{e _85hotwsCta0JfYIjI4Mht}#) - #{p _85hotwsCta0JfYIjI4Mhu}# - #{w _85hotwsCta0JfYIjI4Mhv}# - #{mod _85hotwsCta0JfYIjI4Mhw}#))) - (if #{rest _85hotwsCta0JfYIjI4Mh0}# - (cons #{first _85hotwsCta0JfYIjI4Mhx}# - #{rest _85hotwsCta0JfYIjI4Mh0}#) + #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) + (if #{first _hoQGWMnyQPAh3k2jhWJ90}# + (let ((#{rest _hoQGWMnyQPAh3k2jhWJ93}# + (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# + #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) + (if #{rest _hoQGWMnyQPAh3k2jhWJ93}# + (cons #{first _hoQGWMnyQPAh3k2jhWJ90}# + #{rest _hoQGWMnyQPAh3k2jhWJ93}#) #f)) #f)) - (if (null? #{e _85hotwsCta0JfYIjI4Mht}#) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) '() - (if (if (vector? #{e _85hotwsCta0JfYIjI4Mht}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4Mht}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9w}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 0) 'syntax-object) #f) #f) - (#{match-each _85hotwsCta0JfYIjI4MYi}# - (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 1) - #{p _85hotwsCta0JfYIjI4Mhu}# - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4Mhv}# - (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 2)) - (vector-ref #{e _85hotwsCta0JfYIjI4Mht}# 3)) + (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 1) + #{p _hoQGWMnyQPAh3k2jhWJ9x}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ9y}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 2)) + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 3)) #f))))) - (#{match-each-any _85hotwsCta0JfYIjI4MYk}# - (lambda (#{e _85hotwsCta0JfYIjI4MiQ}# - #{w _85hotwsCta0JfYIjI4MiR}# - #{mod _85hotwsCta0JfYIjI4MiS}#) - (if (pair? #{e _85hotwsCta0JfYIjI4MiQ}#) - (let ((#{l _85hotwsCta0JfYIjI4MiT}# - (#{match-each-any _85hotwsCta0JfYIjI4MYk}# - (cdr #{e _85hotwsCta0JfYIjI4MiQ}#) - #{w _85hotwsCta0JfYIjI4MiR}# - #{mod _85hotwsCta0JfYIjI4MiS}#))) - (if #{l _85hotwsCta0JfYIjI4MiT}# - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# - (car #{e _85hotwsCta0JfYIjI4MiQ}#) - #{w _85hotwsCta0JfYIjI4MiR}# - #{mod _85hotwsCta0JfYIjI4MiS}#) - #{l _85hotwsCta0JfYIjI4MiT}#) + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ$T}# + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (let ((#{l _hoQGWMnyQPAh3k2jhWJ$W}# + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#))) + (if #{l _hoQGWMnyQPAh3k2jhWJ$W}# + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) + #{l _hoQGWMnyQPAh3k2jhWJ$W}#) #f)) - (if (null? #{e _85hotwsCta0JfYIjI4MiQ}#) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) '() - (if (if (vector? #{e _85hotwsCta0JfYIjI4MiQ}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4MiQ}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ$T}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 0) 'syntax-object) #f) #f) - (#{match-each-any _85hotwsCta0JfYIjI4MYk}# - (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 1) - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4MiR}# - (vector-ref #{e _85hotwsCta0JfYIjI4MiQ}# 2)) - #{mod _85hotwsCta0JfYIjI4MiS}#) + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 1) + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ$U}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 2)) + #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) #f))))) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (lambda (#{p _85hotwsCta0JfYIjI4Mir}# - #{r _85hotwsCta0JfYIjI4Mis}#) - (if (null? #{p _85hotwsCta0JfYIjI4Mir}#) - #{r _85hotwsCta0JfYIjI4Mis}# - (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# '_) - #{r _85hotwsCta0JfYIjI4Mis}# - (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# 'any) - (cons '() #{r _85hotwsCta0JfYIjI4Mis}#) - (if (pair? #{p _85hotwsCta0JfYIjI4Mir}#) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (car #{p _85hotwsCta0JfYIjI4Mir}#) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (cdr #{p _85hotwsCta0JfYIjI4Mir}#) - #{r _85hotwsCta0JfYIjI4Mis}#)) - (if (eq? #{p _85hotwsCta0JfYIjI4Mir}# 'each-any) - (cons '() #{r _85hotwsCta0JfYIjI4Mis}#) - (let ((#{atom-key _85hotwsCta0JfYIjI4Mit}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 0))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# 'each) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1) - #{r _85hotwsCta0JfYIjI4Mis}#) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWJ$u}# + #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (if (null? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + #{r _hoQGWMnyQPAh3k2jhWJ$v}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# '_) + #{r _hoQGWMnyQPAh3k2jhWJ$v}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'any) + (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (car #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (cdr #{p _hoQGWMnyQPAh3k2jhWJ$u}#) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#)) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'each-any) + (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 0))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each+) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# (reverse - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 2)) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 3) - #{r _85hotwsCta0JfYIjI4Mis}#))) - (if (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 2)) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 3) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#))) + (if (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'free-id) #t - (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'atom)) - #{r _85hotwsCta0JfYIjI4Mis}# - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4Mit}# + #{r _hoQGWMnyQPAh3k2jhWJ$v}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'vector) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4Mir}# 1) - #{r _85hotwsCta0JfYIjI4Mis}#))))))))))))) - (#{combine _85hotwsCta0JfYIjI4MYm}# - (lambda (#{r* _85hotwsCta0JfYIjI4MjA}# - #{r _85hotwsCta0JfYIjI4MjB}#) - (if (null? (car #{r* _85hotwsCta0JfYIjI4MjA}#)) - #{r _85hotwsCta0JfYIjI4MjB}# - (cons (map car #{r* _85hotwsCta0JfYIjI4MjA}#) - (#{combine _85hotwsCta0JfYIjI4MYm}# - (map cdr #{r* _85hotwsCta0JfYIjI4MjA}#) - #{r _85hotwsCta0JfYIjI4MjB}#))))) - (#{match* _85hotwsCta0JfYIjI4MYn}# - (lambda (#{e _85hotwsCta0JfYIjI4MZF}# - #{p _85hotwsCta0JfYIjI4MZG}# - #{w _85hotwsCta0JfYIjI4MZH}# - #{r _85hotwsCta0JfYIjI4MZI}# - #{mod _85hotwsCta0JfYIjI4MZJ}#) - (if (null? #{p _85hotwsCta0JfYIjI4MZG}#) - (if (null? #{e _85hotwsCta0JfYIjI4MZF}#) - #{r _85hotwsCta0JfYIjI4MZI}# + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) + #{r _hoQGWMnyQPAh3k2jhWJ$v}#))))))))))))) + (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# + (lambda (#{r* _hoQGWMnyQPAh3k2jhWJ@D}# + #{r _hoQGWMnyQPAh3k2jhWJ@E}#) + (if (null? (car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)) + #{r _hoQGWMnyQPAh3k2jhWJ@E}# + (cons (map car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) + (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# + (map cdr #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) + #{r _hoQGWMnyQPAh3k2jhWJ@E}#))))) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + (if (null? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + #{r _hoQGWMnyQPAh3k2jhWJ1L}# #f) - (if (pair? #{p _85hotwsCta0JfYIjI4MZG}#) - (if (pair? #{e _85hotwsCta0JfYIjI4MZF}#) - (#{match _85hotwsCta0JfYIjI4MYo}# - (car #{e _85hotwsCta0JfYIjI4MZF}#) - (car #{p _85hotwsCta0JfYIjI4MZG}#) - #{w _85hotwsCta0JfYIjI4MZH}# - (#{match _85hotwsCta0JfYIjI4MYo}# - (cdr #{e _85hotwsCta0JfYIjI4MZF}#) - (cdr #{p _85hotwsCta0JfYIjI4MZG}#) - #{w _85hotwsCta0JfYIjI4MZH}# - #{r _85hotwsCta0JfYIjI4MZI}# - #{mod _85hotwsCta0JfYIjI4MZJ}#) - #{mod _85hotwsCta0JfYIjI4MZJ}#) + (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (car #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (cdr #{p _hoQGWMnyQPAh3k2jhWJ1J}#) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) #f) - (if (eq? #{p _85hotwsCta0JfYIjI4MZG}# 'each-any) - (let ((#{l _85hotwsCta0JfYIjI4MZO}# - (#{match-each-any _85hotwsCta0JfYIjI4MYk}# - #{e _85hotwsCta0JfYIjI4MZF}# - #{w _85hotwsCta0JfYIjI4MZH}# - #{mod _85hotwsCta0JfYIjI4MZJ}#))) - (if #{l _85hotwsCta0JfYIjI4MZO}# - (cons #{l _85hotwsCta0JfYIjI4MZO}# - #{r _85hotwsCta0JfYIjI4MZI}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ1J}# 'each-any) + (let ((#{l _hoQGWMnyQPAh3k2jhWJ1R}# + (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (if #{l _hoQGWMnyQPAh3k2jhWJ1R}# + (cons #{l _hoQGWMnyQPAh3k2jhWJ1R}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}#) #f)) - (let ((#{atom-key _85hotwsCta0JfYIjI4MZT}# - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 0))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each) - (if (null? #{e _85hotwsCta0JfYIjI4MZF}#) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1) - #{r _85hotwsCta0JfYIjI4MZI}#) - (let ((#{l _85hotwsCta0JfYIjI4MZa}# - (#{match-each _85hotwsCta0JfYIjI4MYi}# - #{e _85hotwsCta0JfYIjI4MZF}# - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1) - #{w _85hotwsCta0JfYIjI4MZH}# - #{mod _85hotwsCta0JfYIjI4MZJ}#))) - (if #{l _85hotwsCta0JfYIjI4MZa}# + (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 0))) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each) + (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + #{r _hoQGWMnyQPAh3k2jhWJ1L}#) + (let ((#{l _hoQGWMnyQPAh3k2jhWJ1d}# + (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (if #{l _hoQGWMnyQPAh3k2jhWJ1d}# (letrec* - ((#{collect _85hotwsCta0JfYIjI4MZd}# - (lambda (#{l _85hotwsCta0JfYIjI4MaQ}#) - (if (null? (car #{l _85hotwsCta0JfYIjI4MaQ}#)) - #{r _85hotwsCta0JfYIjI4MZI}# + ((#{collect _hoQGWMnyQPAh3k2jhWJ1g}# + (lambda (#{l _hoQGWMnyQPAh3k2jhWJ2T}#) + (if (null? (car #{l _hoQGWMnyQPAh3k2jhWJ2T}#)) + #{r _hoQGWMnyQPAh3k2jhWJ1L}# (cons (map car - #{l _85hotwsCta0JfYIjI4MaQ}#) - (#{collect _85hotwsCta0JfYIjI4MZd}# + #{l _hoQGWMnyQPAh3k2jhWJ2T}#) + (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# (map cdr - #{l _85hotwsCta0JfYIjI4MaQ}#))))))) - (#{collect _85hotwsCta0JfYIjI4MZd}# - #{l _85hotwsCta0JfYIjI4MZa}#)) + #{l _hoQGWMnyQPAh3k2jhWJ2T}#))))))) + (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# + #{l _hoQGWMnyQPAh3k2jhWJ1d}#)) #f))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'each+) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each+) (call-with-values (lambda () - (let ((#{x-pat _85hotwsCta0JfYIjI4MaZ}# + (let ((#{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1)) - (#{y-pat _85hotwsCta0JfYIjI4Maa}# + (#{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 2)) - (#{z-pat _85hotwsCta0JfYIjI4Mab}# + (#{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 3))) (letrec* - ((#{f _85hotwsCta0JfYIjI4Maf}# - (lambda (#{e _85hotwsCta0JfYIjI4Mah}# - #{w _85hotwsCta0JfYIjI4Mai}#) - (if (pair? #{e _85hotwsCta0JfYIjI4Mah}#) + ((#{f _hoQGWMnyQPAh3k2jhWJ2i}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}#) + (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ2k}#) (call-with-values (lambda () - (#{f _85hotwsCta0JfYIjI4Maf}# - (cdr #{e _85hotwsCta0JfYIjI4Mah}#) - #{w _85hotwsCta0JfYIjI4Mai}#)) - (lambda (#{xr* _85hotwsCta0JfYIjI4Maj}# - #{y-pat _85hotwsCta0JfYIjI4Mak}# - #{r _85hotwsCta0JfYIjI4Mal}#) - (if #{r _85hotwsCta0JfYIjI4Mal}# - (if (null? #{y-pat _85hotwsCta0JfYIjI4Mak}#) - (let ((#{xr _85hotwsCta0JfYIjI4Mam}# - (#{match _85hotwsCta0JfYIjI4MYo}# - (car #{e _85hotwsCta0JfYIjI4Mah}#) - #{x-pat _85hotwsCta0JfYIjI4MaZ}# - #{w _85hotwsCta0JfYIjI4Mai}# + (#{f _hoQGWMnyQPAh3k2jhWJ2i}# + (cdr #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{w _hoQGWMnyQPAh3k2jhWJ2l}#)) + (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ2m}# + #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# + #{r _hoQGWMnyQPAh3k2jhWJ2o}#) + (if #{r _hoQGWMnyQPAh3k2jhWJ2o}# + (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) + (let ((#{xr _hoQGWMnyQPAh3k2jhWJ2p}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}# '() - #{mod _85hotwsCta0JfYIjI4MZJ}#))) - (if #{xr _85hotwsCta0JfYIjI4Mam}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (if #{xr _hoQGWMnyQPAh3k2jhWJ2p}# (values - (cons #{xr _85hotwsCta0JfYIjI4Mam}# - #{xr* _85hotwsCta0JfYIjI4Maj}#) - #{y-pat _85hotwsCta0JfYIjI4Mak}# - #{r _85hotwsCta0JfYIjI4Mal}#) + (cons #{xr _hoQGWMnyQPAh3k2jhWJ2p}# + #{xr* _hoQGWMnyQPAh3k2jhWJ2m}#) + #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# + #{r _hoQGWMnyQPAh3k2jhWJ2o}#) (values #f #f #f))) (values '() - (cdr #{y-pat _85hotwsCta0JfYIjI4Mak}#) - (#{match _85hotwsCta0JfYIjI4MYo}# - (car #{e _85hotwsCta0JfYIjI4Mah}#) - (car #{y-pat _85hotwsCta0JfYIjI4Mak}#) - #{w _85hotwsCta0JfYIjI4Mai}# - #{r _85hotwsCta0JfYIjI4Mal}# - #{mod _85hotwsCta0JfYIjI4MZJ}#))) + (cdr #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + (car #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) + #{w _hoQGWMnyQPAh3k2jhWJ2l}# + #{r _hoQGWMnyQPAh3k2jhWJ2o}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) (values #f #f #f)))) (if (if (vector? - #{e _85hotwsCta0JfYIjI4Mah}#) + #{e _hoQGWMnyQPAh3k2jhWJ2k}#) (if (= (vector-length - #{e _85hotwsCta0JfYIjI4Mah}#) + #{e _hoQGWMnyQPAh3k2jhWJ2k}#) 4) (eq? (vector-ref - #{e _85hotwsCta0JfYIjI4Mah}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}# 0) 'syntax-object) #f) #f) - (#{f _85hotwsCta0JfYIjI4Maf}# + (#{f _hoQGWMnyQPAh3k2jhWJ2i}# (vector-ref - #{e _85hotwsCta0JfYIjI4Mah}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}# 1) - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4Mai}# - #{e _85hotwsCta0JfYIjI4Mah}#)) + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}#)) (values '() - #{y-pat _85hotwsCta0JfYIjI4Maa}# - (#{match _85hotwsCta0JfYIjI4MYo}# - #{e _85hotwsCta0JfYIjI4Mah}# - #{z-pat _85hotwsCta0JfYIjI4Mab}# - #{w _85hotwsCta0JfYIjI4Mai}# - #{r _85hotwsCta0JfYIjI4MZI}# - #{mod _85hotwsCta0JfYIjI4MZJ}#))))))) - (#{f _85hotwsCta0JfYIjI4Maf}# - #{e _85hotwsCta0JfYIjI4MZF}# - #{w _85hotwsCta0JfYIjI4MZH}#)))) - (lambda (#{xr* _85hotwsCta0JfYIjI4MbA}# - #{y-pat _85hotwsCta0JfYIjI4MbB}# - #{r _85hotwsCta0JfYIjI4MbC}#) - (if #{r _85hotwsCta0JfYIjI4MbC}# - (if (null? #{y-pat _85hotwsCta0JfYIjI4MbB}#) - (if (null? #{xr* _85hotwsCta0JfYIjI4MbA}#) - (#{match-empty _85hotwsCta0JfYIjI4MYl}# + #{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + #{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# + #{w _hoQGWMnyQPAh3k2jhWJ2l}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWJ2i}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}#)))) + (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ3D}# + #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}# + #{r _hoQGWMnyQPAh3k2jhWJ3F}#) + (if #{r _hoQGWMnyQPAh3k2jhWJ3F}# + (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#) + (if (null? #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#) + (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{r _85hotwsCta0JfYIjI4MbC}#) - (#{combine _85hotwsCta0JfYIjI4MYm}# - #{xr* _85hotwsCta0JfYIjI4MbA}# - #{r _85hotwsCta0JfYIjI4MbC}#)) + #{r _hoQGWMnyQPAh3k2jhWJ3F}#) + (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# + #{xr* _hoQGWMnyQPAh3k2jhWJ3D}# + #{r _hoQGWMnyQPAh3k2jhWJ3F}#)) #f) #f))) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'free-id) - (if (if (symbol? #{e _85hotwsCta0JfYIjI4MZF}#) + (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) #t - (if (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) (if (= (vector-length - #{e _85hotwsCta0JfYIjI4MZF}#) + #{e _hoQGWMnyQPAh3k2jhWJ1I}#) 4) (eq? (vector-ref - #{e _85hotwsCta0JfYIjI4MZF}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _85hotwsCta0JfYIjI4MZF}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# 1)) #f)) - (if (let ((#{i _85hotwsCta0JfYIjI4MgN}# - (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4MZF}# - #{w _85hotwsCta0JfYIjI4MZH}# - #{mod _85hotwsCta0JfYIjI4MZJ}#)) - (#{j _85hotwsCta0JfYIjI4MgO}# + (if (let ((#{i _hoQGWMnyQPAh3k2jhWJ8Q}# + (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)) + (#{j _hoQGWMnyQPAh3k2jhWJ8R}# (vector-ref - #{p _85hotwsCta0JfYIjI4MZG}# + #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1))) (if (eq? (if (if (vector? - #{i _85hotwsCta0JfYIjI4MgN}#) + #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) (if (= (vector-length - #{i _85hotwsCta0JfYIjI4MgN}#) + #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) 4) (eq? (vector-ref - #{i _85hotwsCta0JfYIjI4MgN}# + #{i _hoQGWMnyQPAh3k2jhWJ8Q}# 0) 'syntax-object) #f) #f) (vector-ref - #{i _85hotwsCta0JfYIjI4MgN}# + #{i _hoQGWMnyQPAh3k2jhWJ8Q}# 1) - #{i _85hotwsCta0JfYIjI4MgN}#) + #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) (if (if (vector? - #{j _85hotwsCta0JfYIjI4MgO}#) + #{j _hoQGWMnyQPAh3k2jhWJ8R}#) (if (= (vector-length - #{j _85hotwsCta0JfYIjI4MgO}#) + #{j _hoQGWMnyQPAh3k2jhWJ8R}#) 4) (eq? (vector-ref - #{j _85hotwsCta0JfYIjI4MgO}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}# 0) 'syntax-object) #f) #f) (vector-ref - #{j _85hotwsCta0JfYIjI4MgO}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}# 1) - #{j _85hotwsCta0JfYIjI4MgO}#)) - (eq? (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{i _85hotwsCta0JfYIjI4MgN}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}#)) + (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{i _hoQGWMnyQPAh3k2jhWJ8Q}# '(())) - (#{id-var-name _85hotwsCta0JfYIjI4J36}# - #{j _85hotwsCta0JfYIjI4MgO}# + (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + #{j _hoQGWMnyQPAh3k2jhWJ8R}# '(()))) #f)) - #{r _85hotwsCta0JfYIjI4MZI}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# #f) #f) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# 'atom) + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'atom) (if (equal? - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1) - (#{strip _85hotwsCta0JfYIjI4J4Y}# - #{e _85hotwsCta0JfYIjI4MZF}# - #{w _85hotwsCta0JfYIjI4MZH}#)) - #{r _85hotwsCta0JfYIjI4MZI}# + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + (#{strip _hoQGWMnyQPAh3k2jhWHTy}# + #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{w _hoQGWMnyQPAh3k2jhWJ1K}#)) + #{r _hoQGWMnyQPAh3k2jhWJ1L}# #f) - (if (eqv? #{atom-key _85hotwsCta0JfYIjI4MZT}# + (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'vector) - (if (vector? #{e _85hotwsCta0JfYIjI4MZF}#) - (#{match _85hotwsCta0JfYIjI4MYo}# - (vector->list #{e _85hotwsCta0JfYIjI4MZF}#) - (vector-ref #{p _85hotwsCta0JfYIjI4MZG}# 1) - #{w _85hotwsCta0JfYIjI4MZH}# - #{r _85hotwsCta0JfYIjI4MZI}# - #{mod _85hotwsCta0JfYIjI4MZJ}#) + (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (vector->list #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) + #{w _hoQGWMnyQPAh3k2jhWJ1K}# + #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) #f)))))))))))) - (#{match _85hotwsCta0JfYIjI4MYo}# - (lambda (#{e _85hotwsCta0JfYIjI4MhK}# - #{p _85hotwsCta0JfYIjI4MhL}# - #{w _85hotwsCta0JfYIjI4MhM}# - #{r _85hotwsCta0JfYIjI4MhN}# - #{mod _85hotwsCta0JfYIjI4MhO}#) - (if (not #{r _85hotwsCta0JfYIjI4MhN}#) + (#{match _hoQGWMnyQPAh3k2jhWJ0r}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9N}# + #{p _hoQGWMnyQPAh3k2jhWJ9O}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) + (if (not #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) #f - (if (eq? #{p _85hotwsCta0JfYIjI4MhL}# '_) - #{r _85hotwsCta0JfYIjI4MhN}# - (if (eq? #{p _85hotwsCta0JfYIjI4MhL}# 'any) - (cons (#{wrap _85hotwsCta0JfYIjI4J4E}# - #{e _85hotwsCta0JfYIjI4MhK}# - #{w _85hotwsCta0JfYIjI4MhM}# - #{mod _85hotwsCta0JfYIjI4MhO}#) - #{r _85hotwsCta0JfYIjI4MhN}#) - (if (if (vector? #{e _85hotwsCta0JfYIjI4MhK}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4MhK}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# '_) + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# 'any) + (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e _hoQGWMnyQPAh3k2jhWJ9N}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) + #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9N}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9N}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 0) 'syntax-object) #f) #f) - (#{match* _85hotwsCta0JfYIjI4MYn}# - (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 1) - #{p _85hotwsCta0JfYIjI4MhL}# - (#{join-wraps _85hotwsCta0JfYIjI4J33}# - #{w _85hotwsCta0JfYIjI4MhM}# - (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 2)) - #{r _85hotwsCta0JfYIjI4MhN}# - (vector-ref #{e _85hotwsCta0JfYIjI4MhK}# 3)) - (#{match* _85hotwsCta0JfYIjI4MYn}# - #{e _85hotwsCta0JfYIjI4MhK}# - #{p _85hotwsCta0JfYIjI4MhL}# - #{w _85hotwsCta0JfYIjI4MhM}# - #{r _85hotwsCta0JfYIjI4MhN}# - #{mod _85hotwsCta0JfYIjI4MhO}#)))))))) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 1) + #{p _hoQGWMnyQPAh3k2jhWJ9O}# + (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 2)) + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 3)) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + #{e _hoQGWMnyQPAh3k2jhWJ9N}# + #{p _hoQGWMnyQPAh3k2jhWJ9O}# + #{w _hoQGWMnyQPAh3k2jhWJ9P}# + #{r _hoQGWMnyQPAh3k2jhWJ9Q}# + #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)))))))) (set! $sc-dispatch - (lambda (#{e _85hotwsCta0JfYIjI4MYp}# - #{p _85hotwsCta0JfYIjI4MYq}#) - (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# 'any) - (list #{e _85hotwsCta0JfYIjI4MYp}#) - (if (eq? #{p _85hotwsCta0JfYIjI4MYq}# '_) + (lambda (#{e _hoQGWMnyQPAh3k2jhWJ0s}# + #{p _hoQGWMnyQPAh3k2jhWJ0t}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# 'any) + (list #{e _hoQGWMnyQPAh3k2jhWJ0s}#) + (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# '_) '() - (if (if (vector? #{e _85hotwsCta0JfYIjI4MYp}#) - (if (= (vector-length #{e _85hotwsCta0JfYIjI4MYp}#) + (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ0s}#) + (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ0s}#) 4) - (eq? (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 0) + (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 0) 'syntax-object) #f) #f) - (#{match* _85hotwsCta0JfYIjI4MYn}# - (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 1) - #{p _85hotwsCta0JfYIjI4MYq}# - (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 2) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 1) + #{p _hoQGWMnyQPAh3k2jhWJ0t}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 2) '() - (vector-ref #{e _85hotwsCta0JfYIjI4MYp}# 3)) - (#{match* _85hotwsCta0JfYIjI4MYn}# - #{e _85hotwsCta0JfYIjI4MYp}# - #{p _85hotwsCta0JfYIjI4MYq}# + (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 3)) + (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# + #{e _hoQGWMnyQPAh3k2jhWJ0s}# + #{p _hoQGWMnyQPAh3k2jhWJ0t}# '(()) '() #f)))))))))) @@ -23833,82 +23851,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PUl}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PUn}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMwo}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMwq}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PUl}# + #{x _hoQGWMnyQPAh3k2jhWMwo}# '(_ () any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PUn}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMwq}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4PUr}# - #{e2 _85hotwsCta0JfYIjI4PUs}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMwu}# + #{e2 _hoQGWMnyQPAh3k2jhWMwv}#) (cons '#(syntax-object let ((top) - #(ribcage #(e1 e2) #((top) (top)) #("2zm" "2zn")) + #(ribcage #(e1 e2) #((top) (top)) #("2zo" "2zp")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PUr}# - #{e2 _85hotwsCta0JfYIjI4PUs}#)))) - #{tmp _85hotwsCta0JfYIjI4PUn}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PUt}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMwu}# + #{e2 _hoQGWMnyQPAh3k2jhWMwv}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMwq}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMww}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PUl}# + #{x _hoQGWMnyQPAh3k2jhWMwo}# '(_ ((any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PUt}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMww}# (@apply - (lambda (#{out _85hotwsCta0JfYIjI4PUx}# - #{in _85hotwsCta0JfYIjI4PUy}# - #{e1 _85hotwsCta0JfYIjI4PUz}# - #{e2 _85hotwsCta0JfYIjI4PU0}#) + (lambda (#{out _hoQGWMnyQPAh3k2jhWMw0}# + #{in _hoQGWMnyQPAh3k2jhWMw1}# + #{e1 _hoQGWMnyQPAh3k2jhWMw2}# + #{e2 _hoQGWMnyQPAh3k2jhWMw3}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zo" "2zp" "2zq" "2zr")) + #("2zq" "2zr" "2zs" "2zt")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) - #{in _85hotwsCta0JfYIjI4PUy}# + #{in _hoQGWMnyQPAh3k2jhWMw1}# '() - (list #{out _85hotwsCta0JfYIjI4PUx}# + (list #{out _hoQGWMnyQPAh3k2jhWMw0}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zo" "2zp" "2zq" "2zr")) + #("2zq" "2zr" "2zs" "2zt")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PUz}# - #{e2 _85hotwsCta0JfYIjI4PU0}#)))))) - #{tmp _85hotwsCta0JfYIjI4PUt}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PU1}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMw2}# + #{e2 _hoQGWMnyQPAh3k2jhWMw3}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMww}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMw4}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PUl}# + #{x _hoQGWMnyQPAh3k2jhWMwo}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PU1}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMw4}# (@apply - (lambda (#{out _85hotwsCta0JfYIjI4PU5}# - #{in _85hotwsCta0JfYIjI4PU6}# - #{e1 _85hotwsCta0JfYIjI4PU7}# - #{e2 _85hotwsCta0JfYIjI4PU8}#) + (lambda (#{out _hoQGWMnyQPAh3k2jhWMw8}# + #{in _hoQGWMnyQPAh3k2jhWMw9}# + #{e1 _hoQGWMnyQPAh3k2jhWMw$}# + #{e2 _hoQGWMnyQPAh3k2jhWMw@}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zs" "2zt" "2zu" "2zv")) + #("2zu" "2zv" "2zw" "2zx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '#(syntax-object list @@ -23916,56 +23934,56 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zs" "2zt" "2zu" "2zv")) + #("2zu" "2zv" "2zw" "2zx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) - #{in _85hotwsCta0JfYIjI4PU6}#) + #{in _hoQGWMnyQPAh3k2jhWMw9}#) '() - (list #{out _85hotwsCta0JfYIjI4PU5}# + (list #{out _hoQGWMnyQPAh3k2jhWMw8}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zs" "2zt" "2zu" "2zv")) + #("2zu" "2zv" "2zw" "2zx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zl"))) + #(ribcage #(x) #((top)) #("2zn"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PU7}# - #{e2 _85hotwsCta0JfYIjI4PU8}#)))))) - #{tmp _85hotwsCta0JfYIjI4PU1}#) + (cons #{e1 _hoQGWMnyQPAh3k2jhWMw$}# + #{e2 _hoQGWMnyQPAh3k2jhWMw@}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMw4}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PUl}#)))))))))) + #{x _hoQGWMnyQPAh3k2jhWMwo}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PVj}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PVl}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMxm}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxo}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PVj}# + #{x _hoQGWMnyQPAh3k2jhWMxm}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp _85hotwsCta0JfYIjI4PVl}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMxo}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PVp}# - #{keyword _85hotwsCta0JfYIjI4PVq}# - #{pattern _85hotwsCta0JfYIjI4PVr}# - #{template _85hotwsCta0JfYIjI4PVs}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWMxs}# + #{keyword _hoQGWMnyQPAh3k2jhWMxt}# + #{pattern _hoQGWMnyQPAh3k2jhWMxu}# + #{template _hoQGWMnyQPAh3k2jhWMxv}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) '(#(syntax-object x @@ -23973,9 +23991,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) (vector '(#(syntax-object @@ -23984,9 +24002,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) . #(syntax-object @@ -23995,9 +24013,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24005,20 +24023,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PVr}#)) + #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) (cons '#(syntax-object x @@ -24026,13 +24044,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zx" "2zy" "2zz" "300")) + #("2zz" "300" "301" "302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - (cons #{k _85hotwsCta0JfYIjI4PVp}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}# - #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#) + (cons #{k _hoQGWMnyQPAh3k2jhWMxs}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}# + #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) (list (cons '#(syntax-object dummy ((top) @@ -24045,10 +24063,10 @@ (top) (top) (top)) - #("2zx" - "2zy" - "2zz" - "300")) + #("2zz" + "300" + "301" + "302")) #(ribcage () () @@ -24056,9 +24074,9 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVS _85hotwsCta0JfYIjI4PVu}#) + #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) (list '#(syntax-object syntax ((top) @@ -24071,10 +24089,10 @@ (top) (top) (top)) - #("2zx" - "2zy" - "2zz" - "300")) + #("2zz" + "300" + "301" + "302")) #(ribcage () () @@ -24082,43 +24100,43 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVT _85hotwsCta0JfYIjI4PVt}#))) - #{template _85hotwsCta0JfYIjI4PVs}# - #{pattern _85hotwsCta0JfYIjI4PVr}#)))))) - #{tmp _85hotwsCta0JfYIjI4PVl}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PVv}# + #{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#))) + #{template _hoQGWMnyQPAh3k2jhWMxv}# + #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMxo}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxy}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PVj}# + #{x _hoQGWMnyQPAh3k2jhWMxm}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp _85hotwsCta0JfYIjI4PVv}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMxy}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PVz}# - #{docstring _85hotwsCta0JfYIjI4PV0}# - #{keyword _85hotwsCta0JfYIjI4PV1}# - #{pattern _85hotwsCta0JfYIjI4PV2}# - #{template _85hotwsCta0JfYIjI4PV3}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWMx2}# + #{docstring _hoQGWMnyQPAh3k2jhWMx3}# + #{keyword _hoQGWMnyQPAh3k2jhWMx4}# + #{pattern _hoQGWMnyQPAh3k2jhWMx5}# + #{template _hoQGWMnyQPAh3k2jhWMx6}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PV0}#))) - #{tmp _85hotwsCta0JfYIjI4PVv}#) + #{docstring _hoQGWMnyQPAh3k2jhWMx3}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) #f) (@apply - (lambda (#{k _85hotwsCta0JfYIjI4PV4}# - #{docstring _85hotwsCta0JfYIjI4PV5}# - #{keyword _85hotwsCta0JfYIjI4PV6}# - #{pattern _85hotwsCta0JfYIjI4PV7}# - #{template _85hotwsCta0JfYIjI4PV8}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWMx7}# + #{docstring _hoQGWMnyQPAh3k2jhWMx8}# + #{keyword _hoQGWMnyQPAh3k2jhWMx9}# + #{pattern _hoQGWMnyQPAh3k2jhWMx$}# + #{template _hoQGWMnyQPAh3k2jhWMx@}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) '(#(syntax-object x @@ -24126,11 +24144,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) - #{docstring _85hotwsCta0JfYIjI4PV5}# + #{docstring _hoQGWMnyQPAh3k2jhWMx8}# (vector '(#(syntax-object macro-type @@ -24138,9 +24156,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) . #(syntax-object @@ -24149,9 +24167,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24159,20 +24177,20 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PV7}#)) + #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) (cons '#(syntax-object x @@ -24184,13 +24202,13 @@ pattern template) #((top) (top) (top) (top) (top)) - #("306" "307" "308" "309" "30a")) + #("308" "309" "30a" "30b" "30c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zw"))) + #(ribcage #(x) #((top)) #("2zy"))) (hygiene guile)) - (cons #{k _85hotwsCta0JfYIjI4PV4}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}# - #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#) + (cons #{k _hoQGWMnyQPAh3k2jhWMx7}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}# + #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) (list (cons '#(syntax-object dummy ((top) @@ -24205,11 +24223,11 @@ (top) (top) (top)) - #("306" - "307" - "308" + #("308" "309" - "30a")) + "30a" + "30b" + "30c")) #(ribcage () () @@ -24217,10 +24235,10 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVh _85hotwsCta0JfYIjI4PV$}#) + #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) (list '#(syntax-object syntax ((top) @@ -24235,11 +24253,11 @@ (top) (top) (top)) - #("306" - "307" - "308" + #("308" "309" - "30a")) + "30a" + "30b" + "30c")) #(ribcage () () @@ -24247,52 +24265,52 @@ #(ribcage #(x) #((top)) - #("2zw"))) + #("2zy"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PVi _85hotwsCta0JfYIjI4PV9}#))) - #{template _85hotwsCta0JfYIjI4PV8}# - #{pattern _85hotwsCta0JfYIjI4PV7}#)))))) - #{tmp _85hotwsCta0JfYIjI4PVv}#) + #{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#))) + #{template _hoQGWMnyQPAh3k2jhWMx@}# + #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PVj}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWMxm}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PWX}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PWZ}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMya}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyc}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PWX}# + #{x _hoQGWMnyQPAh3k2jhWMya}# '(_ (any . any) any)))) - (if #{tmp _85hotwsCta0JfYIjI4PWZ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMyc}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4PWd}# - #{pattern _85hotwsCta0JfYIjI4PWe}# - #{template _85hotwsCta0JfYIjI4PWf}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWMyg}# + #{pattern _hoQGWMnyQPAh3k2jhWMyh}# + #{template _hoQGWMnyQPAh3k2jhWMyi}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30c" "30d" "30e")) + #("30e" "30f" "30g")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) - #{name _85hotwsCta0JfYIjI4PWd}# + #{name _hoQGWMnyQPAh3k2jhWMyg}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30c" "30d" "30e")) + #("30e" "30f" "30g")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -24301,56 +24319,56 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("30c" "30d" "30e")) + #("30e" "30f" "30g")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PWe}#) - #{template _85hotwsCta0JfYIjI4PWf}#)))) - #{tmp _85hotwsCta0JfYIjI4PWZ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PWg}# + #{pattern _hoQGWMnyQPAh3k2jhWMyh}#) + #{template _hoQGWMnyQPAh3k2jhWMyi}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMyc}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyj}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PWX}# + #{x _hoQGWMnyQPAh3k2jhWMya}# '(_ (any . any) any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PWg}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMyj}# (@apply - (lambda (#{name _85hotwsCta0JfYIjI4PWk}# - #{pattern _85hotwsCta0JfYIjI4PWl}# - #{docstring _85hotwsCta0JfYIjI4PWm}# - #{template _85hotwsCta0JfYIjI4PWn}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWMyn}# + #{pattern _hoQGWMnyQPAh3k2jhWMyo}# + #{docstring _hoQGWMnyQPAh3k2jhWMyp}# + #{template _hoQGWMnyQPAh3k2jhWMyq}#) (string? (syntax->datum - #{docstring _85hotwsCta0JfYIjI4PWm}#))) - #{tmp _85hotwsCta0JfYIjI4PWg}#) + #{docstring _hoQGWMnyQPAh3k2jhWMyp}#))) + #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) #f) (@apply - (lambda (#{name _85hotwsCta0JfYIjI4PWo}# - #{pattern _85hotwsCta0JfYIjI4PWp}# - #{docstring _85hotwsCta0JfYIjI4PWq}# - #{template _85hotwsCta0JfYIjI4PWr}#) + (lambda (#{name _hoQGWMnyQPAh3k2jhWMyr}# + #{pattern _hoQGWMnyQPAh3k2jhWMys}# + #{docstring _hoQGWMnyQPAh3k2jhWMyt}# + #{template _hoQGWMnyQPAh3k2jhWMyu}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30j" "30k" "30l" "30m")) + #("30l" "30m" "30n" "30o")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) - #{name _85hotwsCta0JfYIjI4PWo}# + #{name _hoQGWMnyQPAh3k2jhWMyr}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30j" "30k" "30l" "30m")) + #("30l" "30m" "30n" "30o")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30b"))) + #(ribcage #(x) #((top)) #("30d"))) (hygiene guile)) '() - #{docstring _85hotwsCta0JfYIjI4PWq}# + #{docstring _hoQGWMnyQPAh3k2jhWMyt}# (list (cons '#(syntax-object _ ((top) @@ -24360,52 +24378,52 @@ docstring template) #((top) (top) (top) (top)) - #("30j" "30k" "30l" "30m")) + #("30l" "30m" "30n" "30o")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("30b"))) + #("30d"))) (hygiene guile)) - #{pattern _85hotwsCta0JfYIjI4PWp}#) - #{template _85hotwsCta0JfYIjI4PWr}#)))) - #{tmp _85hotwsCta0JfYIjI4PWg}#) + #{pattern _hoQGWMnyQPAh3k2jhWMys}#) + #{template _hoQGWMnyQPAh3k2jhWMyu}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PWX}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWMya}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PXN}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PXP}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWMzQ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzS}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PXN}# + #{x _hoQGWMnyQPAh3k2jhWMzQ}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PXP}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWMzS}# (@apply - (lambda (#{let* _85hotwsCta0JfYIjI4PXT}# - #{x _85hotwsCta0JfYIjI4PXU}# - #{v _85hotwsCta0JfYIjI4PXV}# - #{e1 _85hotwsCta0JfYIjI4PXW}# - #{e2 _85hotwsCta0JfYIjI4PXX}#) + (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzW}# + #{x _hoQGWMnyQPAh3k2jhWMzX}# + #{v _hoQGWMnyQPAh3k2jhWMzY}# + #{e1 _hoQGWMnyQPAh3k2jhWMzZ}# + #{e2 _hoQGWMnyQPAh3k2jhWMza}#) (and-map identifier? - #{x _85hotwsCta0JfYIjI4PXU}#)) - #{tmp _85hotwsCta0JfYIjI4PXP}#) + #{x _hoQGWMnyQPAh3k2jhWMzX}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) #f) (@apply - (lambda (#{let* _85hotwsCta0JfYIjI4PXY}# - #{x _85hotwsCta0JfYIjI4PXZ}# - #{v _85hotwsCta0JfYIjI4PXa}# - #{e1 _85hotwsCta0JfYIjI4PXb}# - #{e2 _85hotwsCta0JfYIjI4PXc}#) + (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzb}# + #{x _hoQGWMnyQPAh3k2jhWMzc}# + #{v _hoQGWMnyQPAh3k2jhWMzd}# + #{e1 _hoQGWMnyQPAh3k2jhWMze}# + #{e2 _hoQGWMnyQPAh3k2jhWMzf}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4PXd}# - (lambda (#{bindings _85hotwsCta0JfYIjI4PXg}#) - (if (null? #{bindings _85hotwsCta0JfYIjI4PXg}#) + ((#{f _hoQGWMnyQPAh3k2jhWMzg}# + (lambda (#{bindings _hoQGWMnyQPAh3k2jhWMzj}#) + (if (null? #{bindings _hoQGWMnyQPAh3k2jhWMzj}#) (cons '#(syntax-object let ((top) @@ -24413,29 +24431,29 @@ #(ribcage #(f bindings) #((top) (top)) - #("30y" "30z")) + #("310" "311")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30t" "30u" "30v" "30w" "30x")) + #("30v" "30w" "30x" "30y" "30z")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30n"))) + #(ribcage #(x) #((top)) #("30p"))) (hygiene guile)) (cons '() - (cons #{e1 _85hotwsCta0JfYIjI4PXb}# - #{e2 _85hotwsCta0JfYIjI4PXc}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PXh}# - (list (#{f _85hotwsCta0JfYIjI4PXd}# - (cdr #{bindings _85hotwsCta0JfYIjI4PXg}#)) - (car #{bindings _85hotwsCta0JfYIjI4PXg}#)))) - (let ((#{tmp _85hotwsCta0JfYIjI4PXi}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWMze}# + #{e2 _hoQGWMnyQPAh3k2jhWMzf}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzk}# + (list (#{f _hoQGWMnyQPAh3k2jhWMzg}# + (cdr #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)) + (car #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzl}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PXh}# + #{tmp _hoQGWMnyQPAh3k2jhWMzk}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4PXi}# + (if #{tmp _hoQGWMnyQPAh3k2jhWMzl}# (@apply - (lambda (#{body _85hotwsCta0JfYIjI4PXk}# - #{binding _85hotwsCta0JfYIjI4PXl}#) + (lambda (#{body _hoQGWMnyQPAh3k2jhWMzn}# + #{binding _hoQGWMnyQPAh3k2jhWMzo}#) (list '#(syntax-object let ((top) @@ -24443,102 +24461,102 @@ #(ribcage #(body binding) #((top) (top)) - #("310" "311")) + #("312" "313")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("30y" "30z")) + #("310" "311")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30t" "30u" "30v" "30w" "30x")) + #("30v" "30w" "30x" "30y" "30z")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30n"))) + #(ribcage #(x) #((top)) #("30p"))) (hygiene guile)) - (list #{binding _85hotwsCta0JfYIjI4PXl}#) - #{body _85hotwsCta0JfYIjI4PXk}#)) - #{tmp _85hotwsCta0JfYIjI4PXi}#) + (list #{binding _hoQGWMnyQPAh3k2jhWMzo}#) + #{body _hoQGWMnyQPAh3k2jhWMzn}#)) + #{tmp _hoQGWMnyQPAh3k2jhWMzl}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PXh}#)))))))) - (#{f _85hotwsCta0JfYIjI4PXd}# + #{tmp _hoQGWMnyQPAh3k2jhWMzk}#)))))))) + (#{f _hoQGWMnyQPAh3k2jhWMzg}# (map list - #{x _85hotwsCta0JfYIjI4PXZ}# - #{v _85hotwsCta0JfYIjI4PXa}#)))) - #{tmp _85hotwsCta0JfYIjI4PXP}#) + #{x _hoQGWMnyQPAh3k2jhWMzc}# + #{v _hoQGWMnyQPAh3k2jhWMzd}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PXN}#)))))) + #{x _hoQGWMnyQPAh3k2jhWMzQ}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x _85hotwsCta0JfYIjI4PYR}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYT}# + (lambda (#{orig-x _hoQGWMnyQPAh3k2jhWM0U}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0W}# ($sc-dispatch - #{orig-x _85hotwsCta0JfYIjI4PYR}# + #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PYT}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0W}# (@apply - (lambda (#{var _85hotwsCta0JfYIjI4PYX}# - #{init _85hotwsCta0JfYIjI4PYY}# - #{step _85hotwsCta0JfYIjI4PYZ}# - #{e0 _85hotwsCta0JfYIjI4PYa}# - #{e1 _85hotwsCta0JfYIjI4PYb}# - #{c _85hotwsCta0JfYIjI4PYc}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYd}# - (map (lambda (#{v _85hotwsCta0JfYIjI4PYg}# - #{s _85hotwsCta0JfYIjI4PYh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYj}# + (lambda (#{var _hoQGWMnyQPAh3k2jhWM0a}# + #{init _hoQGWMnyQPAh3k2jhWM0b}# + #{step _hoQGWMnyQPAh3k2jhWM0c}# + #{e0 _hoQGWMnyQPAh3k2jhWM0d}# + #{e1 _hoQGWMnyQPAh3k2jhWM0e}# + #{c _hoQGWMnyQPAh3k2jhWM0f}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0g}# + (map (lambda (#{v _hoQGWMnyQPAh3k2jhWM0j}# + #{s _hoQGWMnyQPAh3k2jhWM0k}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0m}# ($sc-dispatch - #{s _85hotwsCta0JfYIjI4PYh}# + #{s _hoQGWMnyQPAh3k2jhWM0k}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4PYj}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0m}# (@apply - (lambda () #{v _85hotwsCta0JfYIjI4PYg}#) - #{tmp _85hotwsCta0JfYIjI4PYj}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYm}# + (lambda () #{v _hoQGWMnyQPAh3k2jhWM0j}#) + #{tmp _hoQGWMnyQPAh3k2jhWM0m}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0p}# ($sc-dispatch - #{s _85hotwsCta0JfYIjI4PYh}# + #{s _hoQGWMnyQPAh3k2jhWM0k}# '(any)))) - (if #{tmp _85hotwsCta0JfYIjI4PYm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0p}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4PYp}#) - #{e _85hotwsCta0JfYIjI4PYp}#) - #{tmp _85hotwsCta0JfYIjI4PYm}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWM0s}#) + #{e _hoQGWMnyQPAh3k2jhWM0s}#) + #{tmp _hoQGWMnyQPAh3k2jhWM0p}#) (syntax-violation 'do "bad step expression" - #{orig-x _85hotwsCta0JfYIjI4PYR}# - #{s _85hotwsCta0JfYIjI4PYh}#)))))) - #{var _85hotwsCta0JfYIjI4PYX}# - #{step _85hotwsCta0JfYIjI4PYZ}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PYe}# + #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# + #{s _hoQGWMnyQPAh3k2jhWM0k}#)))))) + #{var _hoQGWMnyQPAh3k2jhWM0a}# + #{step _hoQGWMnyQPAh3k2jhWM0c}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0h}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PYd}# + #{tmp _hoQGWMnyQPAh3k2jhWM0g}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PYe}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM0h}# (@apply - (lambda (#{step _85hotwsCta0JfYIjI4PYv}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PYx}# + (lambda (#{step _hoQGWMnyQPAh3k2jhWM0y}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM00}# ($sc-dispatch - #{e1 _85hotwsCta0JfYIjI4PYb}# + #{e1 _hoQGWMnyQPAh3k2jhWM0e}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4PYx}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM00}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("319")) + #(ribcage #(step) #((top)) #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24547,23 +24565,23 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("319")) + #(ribcage #(step) #((top)) #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24572,21 +24590,21 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (map list - #{var _85hotwsCta0JfYIjI4PYX}# - #{init _85hotwsCta0JfYIjI4PYY}#) + #{var _hoQGWMnyQPAh3k2jhWM0a}# + #{init _hoQGWMnyQPAh3k2jhWM0b}#) (list '#(syntax-object if ((top) @@ -24594,7 +24612,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24603,17 +24621,17 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (list '#(syntax-object not @@ -24622,7 +24640,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24636,19 +24654,19 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{e0 _85hotwsCta0JfYIjI4PYa}#) + #{e0 _hoQGWMnyQPAh3k2jhWM0d}#) (cons '#(syntax-object begin ((top) @@ -24656,7 +24674,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24670,20 +24688,20 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (append - #{c _85hotwsCta0JfYIjI4PYc}# + #{c _hoQGWMnyQPAh3k2jhWM0f}# (list (cons '#(syntax-object doloop ((top) @@ -24694,7 +24712,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24708,12 +24726,12 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () @@ -24721,31 +24739,31 @@ #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{step _85hotwsCta0JfYIjI4PYv}#))))))) - #{tmp _85hotwsCta0JfYIjI4PYx}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PY1}# + #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM00}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM04}# ($sc-dispatch - #{e1 _85hotwsCta0JfYIjI4PYb}# + #{e1 _hoQGWMnyQPAh3k2jhWM0e}# '(any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PY1}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM04}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4PY5}# - #{e2 _85hotwsCta0JfYIjI4PY6}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWM08}# + #{e2 _hoQGWMnyQPAh3k2jhWM09}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24754,17 +24772,17 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) '#(syntax-object doloop @@ -24772,12 +24790,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24786,33 +24804,33 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (map list - #{var _85hotwsCta0JfYIjI4PYX}# - #{init _85hotwsCta0JfYIjI4PYY}#) + #{var _hoQGWMnyQPAh3k2jhWM0a}# + #{init _hoQGWMnyQPAh3k2jhWM0b}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24821,31 +24839,31 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{e0 _85hotwsCta0JfYIjI4PYa}# + #{e0 _hoQGWMnyQPAh3k2jhWM0d}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24859,32 +24877,32 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4PY5}# - #{e2 _85hotwsCta0JfYIjI4PY6}#)) + (cons #{e1 _hoQGWMnyQPAh3k2jhWM08}# + #{e2 _hoQGWMnyQPAh3k2jhWM09}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31a" "31b")) + #("31c" "31d")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24898,20 +24916,20 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) (append - #{c _85hotwsCta0JfYIjI4PYc}# + #{c _hoQGWMnyQPAh3k2jhWM0f}# (list (cons '#(syntax-object doloop ((top) @@ -24920,8 +24938,8 @@ e2) #((top) (top)) - #("31a" - "31b")) + #("31c" + "31d")) #(ribcage () () @@ -24929,7 +24947,7 @@ #(ribcage #(step) #((top)) - #("319")) + #("31b")) #(ribcage #(var init @@ -24943,12 +24961,12 @@ (top) (top) (top)) - #("313" - "314" - "315" + #("315" "316" "317" - "318")) + "318" + "319" + "31a")) #(ribcage () () @@ -24956,43 +24974,43 @@ #(ribcage #(orig-x) #((top)) - #("312"))) + #("314"))) (hygiene guile)) - #{step _85hotwsCta0JfYIjI4PYv}#))))))) - #{tmp _85hotwsCta0JfYIjI4PY1}#) + #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM04}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 _85hotwsCta0JfYIjI4PYb}#)))))) - #{tmp _85hotwsCta0JfYIjI4PYe}#) + #{e1 _hoQGWMnyQPAh3k2jhWM0e}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWM0h}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PYd}#))))) - #{tmp _85hotwsCta0JfYIjI4PYT}#) + #{tmp _hoQGWMnyQPAh3k2jhWM0g}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM0W}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x _85hotwsCta0JfYIjI4PYR}#)))))) + #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi _85hotwsCta0JfYIjI4PcJ}# - (lambda (#{p _85hotwsCta0JfYIjI4Pch}# - #{lev _85hotwsCta0JfYIjI4Pci}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pck}# + ((#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM4k}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4n}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25001,22 +25019,22 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pck}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM4n}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pco}#) - (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM4r}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("31p")) + #(ribcage #(p) #((top)) #("31r")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25025,16 +25043,16 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) - #{p _85hotwsCta0JfYIjI4Pco}#) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{p _hoQGWMnyQPAh3k2jhWM4r}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31p")) + #(ribcage #(p) #((top)) #("31r")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25043,14 +25061,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31p")) + #(ribcage #(p) #((top)) #("31r")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25059,15 +25077,15 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - (list #{p _85hotwsCta0JfYIjI4Pco}#) - (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#))))) - #{tmp _85hotwsCta0JfYIjI4Pck}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pcr}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + (list #{p _hoQGWMnyQPAh3k2jhWM4r}#) + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM4n}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4u}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '(#(free-id #(syntax-object quasiquote @@ -25076,7 +25094,7 @@ #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25085,19 +25103,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pcr}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM4u}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pcv}#) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM4y}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31q")) + #(ribcage #(p) #((top)) #("31s")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25106,14 +25124,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("31q")) + #(ribcage #(p) #((top)) #("31s")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31n" "31o")) + #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25122,23 +25140,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - (list #{p _85hotwsCta0JfYIjI4Pcv}#) - (#{1+}# #{lev _85hotwsCta0JfYIjI4Pci}#)))) - #{tmp _85hotwsCta0JfYIjI4Pcr}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pcy}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + (list #{p _hoQGWMnyQPAh3k2jhWM4y}#) + (#{1+}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM4u}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM41}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pcy}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM41}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pc2}# - #{q _85hotwsCta0JfYIjI4Pc3}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pc5}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM45}# + #{q _hoQGWMnyQPAh3k2jhWM46}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM48}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pc2}# + #{p _hoQGWMnyQPAh3k2jhWM45}# '(#(free-id #(syntax-object unquote @@ -25146,12 +25164,12 @@ #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25166,38 +25184,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pc5}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM48}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pc9}#) - (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0) - (#{quasilist* _85hotwsCta0JfYIjI4PcN}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM5A}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) + (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31t")) + #("31v")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25212,34 +25230,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZe _85hotwsCta0JfYIjI4Pdh}#)) - #{p _85hotwsCta0JfYIjI4Pc9}#) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#)) + #{p _hoQGWMnyQPAh3k2jhWM5A}#) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31t")) + #(ribcage #(p) #((top)) #("31v")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25254,27 +25272,27 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31t")) + #(ribcage #(p) #((top)) #("31v")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25289,24 +25307,24 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4Pc9}# - (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)))) - #{tmp _85hotwsCta0JfYIjI4Pc5}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pdm}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM5A}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM48}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5p}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pc2}# + #{p _hoQGWMnyQPAh3k2jhWM45}# '(#(free-id #(syntax-object unquote-splicing @@ -25314,12 +25332,12 @@ #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25334,38 +25352,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pdm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM5p}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Pdq}#) - (if (= #{lev _85hotwsCta0JfYIjI4Pci}# 0) - (#{quasiappend _85hotwsCta0JfYIjI4PcM}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM5t}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) + (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31u")) + #("31w")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25380,37 +25398,37 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZi _85hotwsCta0JfYIjI4Pdt}#)) - #{p _85hotwsCta0JfYIjI4Pdq}#) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#)) + #{p _hoQGWMnyQPAh3k2jhWM5t}#) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("31u")) + #("31w")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25425,13 +25443,13 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -25439,16 +25457,16 @@ #(ribcage #(p) #((top)) - #("31u")) + #("31w")) #(ribcage #(p q) #((top) (top)) - #("31r" "31s")) + #("31t" "31u")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25463,59 +25481,59 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4Pdq}# - (#{1-}# #{lev _85hotwsCta0JfYIjI4Pci}#))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#)))) - #{tmp _85hotwsCta0JfYIjI4Pdm}#) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4Pc2}# - #{lev _85hotwsCta0JfYIjI4Pci}#) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{q _85hotwsCta0JfYIjI4Pc3}# - #{lev _85hotwsCta0JfYIjI4Pci}#))))))) - #{tmp _85hotwsCta0JfYIjI4Pcy}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pd7}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM5t}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM5p}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM45}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#) + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{q _hoQGWMnyQPAh3k2jhWM46}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM41}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5$}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4Pch}# + #{p _hoQGWMnyQPAh3k2jhWM4k}# '#(vector each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pd7}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM5$}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pd@}#) - (let ((#{x _85hotwsCta0JfYIjI4PeC}# - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{x _85hotwsCta0JfYIjI4Pd@}# - #{lev _85hotwsCta0JfYIjI4Pci}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PeE}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM6C}#) + (let ((#{x _hoQGWMnyQPAh3k2jhWM6F}# + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{x _hoQGWMnyQPAh3k2jhWM6C}# + #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6H}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PeC}# + #{x _hoQGWMnyQPAh3k2jhWM6F}# '(#(atom "quote") each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PeE}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6H}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PeI}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM6L}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("32q")) + #("32s")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25530,38 +25548,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) (list->vector - #{x _85hotwsCta0JfYIjI4PeI}#))) - #{tmp _85hotwsCta0JfYIjI4PeE}#) + #{x _hoQGWMnyQPAh3k2jhWM6L}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM6H}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4PeK}# - (lambda (#{y _85hotwsCta0JfYIjI4PeW}# - #{k _85hotwsCta0JfYIjI4PeX}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PeZ}# + ((#{f _hoQGWMnyQPAh3k2jhWM6N}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{k _hoQGWMnyQPAh3k2jhWM6a}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6c}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PeW}# + #{y _hoQGWMnyQPAh3k2jhWM6Z}# '(#(atom "quote") each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PeZ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6c}# (@apply - (lambda (#{y _85hotwsCta0JfYIjI4Pec}#) - (#{k _85hotwsCta0JfYIjI4PeX}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#) + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6f}#) + (#{k _hoQGWMnyQPAh3k2jhWM6a}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("32x")) + #("32z")) #(ribcage () () @@ -25573,13 +25591,13 @@ #((top) (top) (top)) - #("32s" - "32t" - "32u")) + #("32u" + "32v" + "32w")) #(ribcage #(_) #((top)) - #("32r")) + #("32t")) #(ribcage () () @@ -25587,7 +25605,7 @@ #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25602,51 +25620,51 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4Pa9 _85hotwsCta0JfYIjI4Ped}#)) - #{y _85hotwsCta0JfYIjI4Pec}#))) - #{tmp _85hotwsCta0JfYIjI4PeZ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pee}# + #{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#)) + #{y _hoQGWMnyQPAh3k2jhWM6f}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM6c}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6h}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PeW}# + #{y _hoQGWMnyQPAh3k2jhWM6Z}# '(#(atom "list") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pee}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6h}# (@apply - (lambda (#{y _85hotwsCta0JfYIjI4Peh}#) - (#{k _85hotwsCta0JfYIjI4PeX}# - #{y _85hotwsCta0JfYIjI4Peh}#)) - #{tmp _85hotwsCta0JfYIjI4Pee}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pei}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6k}#) + (#{k _hoQGWMnyQPAh3k2jhWM6a}# + #{y _hoQGWMnyQPAh3k2jhWM6k}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM6h}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6l}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PeW}# + #{y _hoQGWMnyQPAh3k2jhWM6Z}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _85hotwsCta0JfYIjI4Pei}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6l}# (@apply - (lambda (#{y _85hotwsCta0JfYIjI4Pel}# - #{z _85hotwsCta0JfYIjI4Pem}#) - (#{f _85hotwsCta0JfYIjI4PeK}# - #{z _85hotwsCta0JfYIjI4Pem}# - (lambda (#{ls _85hotwsCta0JfYIjI4Pen}#) - (#{k _85hotwsCta0JfYIjI4PeX}# + (lambda (#{y _hoQGWMnyQPAh3k2jhWM6o}# + #{z _hoQGWMnyQPAh3k2jhWM6p}#) + (#{f _hoQGWMnyQPAh3k2jhWM6N}# + #{z _hoQGWMnyQPAh3k2jhWM6p}# + (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6q}#) + (#{k _hoQGWMnyQPAh3k2jhWM6a}# (append - #{y _85hotwsCta0JfYIjI4Pel}# - #{ls _85hotwsCta0JfYIjI4Pen}#))))) - #{tmp _85hotwsCta0JfYIjI4Pei}#) + #{y _hoQGWMnyQPAh3k2jhWM6o}# + #{ls _hoQGWMnyQPAh3k2jhWM6q}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM6l}#) (list '#(syntax-object "list->vector" ((top) @@ -25655,14 +25673,14 @@ () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4PbH}#) - #((m_85hotwsCta0JfYIjI4PbI + #(#{ g_hoQGWMnyQPAh3k2jhWM3K}#) + #((m_hoQGWMnyQPAh3k2jhWM3L top)) - #("333")) + #("335")) #(ribcage #(else) #((top)) - #("332")) + #("334")) #(ribcage () () @@ -25672,13 +25690,13 @@ #((top) (top) (top)) - #("32s" - "32t" - "32u")) + #("32u" + "32v" + "32w")) #(ribcage #(_) #((top)) - #("32r")) + #("32t")) #(ribcage () () @@ -25686,7 +25704,7 @@ #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25701,26 +25719,26 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4PeC}#)))))))))) - (#{f _85hotwsCta0JfYIjI4PeK}# - #{x _85hotwsCta0JfYIjI4PeC}# - (lambda (#{ls _85hotwsCta0JfYIjI4PeM}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PeO}# + #{x _hoQGWMnyQPAh3k2jhWM6F}#)))))))))) + (#{f _hoQGWMnyQPAh3k2jhWM6N}# + #{x _hoQGWMnyQPAh3k2jhWM6F}# + (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6P}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6R}# ($sc-dispatch - #{ls _85hotwsCta0JfYIjI4PeM}# + #{ls _hoQGWMnyQPAh3k2jhWM6P}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PeO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM6R}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#) (cons '#(syntax-object "vector" ((top) @@ -25729,10 +25747,10 @@ () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Paz}#) - #((m_85hotwsCta0JfYIjI4Pa0 + #(#{ g_hoQGWMnyQPAh3k2jhWM22}#) + #((m_hoQGWMnyQPAh3k2jhWM23 top)) - #("32w")) + #("32y")) #(ribcage () () @@ -25748,11 +25766,11 @@ #(ribcage #(ls) #((top)) - #("32v")) + #("32x")) #(ribcage #(_) #((top)) - #("32r")) + #("32t")) #(ribcage () () @@ -25760,7 +25778,7 @@ #(ribcage #(x) #((top)) - #("32p")) + #("32r")) #(ribcage (emit quasivector quasilist* @@ -25775,30 +25793,30 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Paz _85hotwsCta0JfYIjI4PeR}#)) - #{tmp _85hotwsCta0JfYIjI4PeO}#) + #{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM6R}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls _85hotwsCta0JfYIjI4PeM}#)))))))))) - #{tmp _85hotwsCta0JfYIjI4Pd7}#) + #{ls _hoQGWMnyQPAh3k2jhWM6P}#)))))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM5$}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31x")) + #(ribcage #(p) #((top)) #("31z")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31n" "31o")) + #("31p" "31q")) #(ribcage (emit quasivector quasilist* @@ -25813,29 +25831,29 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{p _85hotwsCta0JfYIjI4Pch}#))))))))))) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - (lambda (#{p _85hotwsCta0JfYIjI4PfD}# - #{lev _85hotwsCta0JfYIjI4PfE}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PfG}# + #{p _hoQGWMnyQPAh3k2jhWM4k}#))))))))))) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM7G}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7J}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4PfD}# + #{p _hoQGWMnyQPAh3k2jhWM7G}# '(any . any)))) - (if #{tmp _85hotwsCta0JfYIjI4PfG}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM7J}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PfK}# - #{q _85hotwsCta0JfYIjI4PfL}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PfN}# + (lambda (#{p _hoQGWMnyQPAh3k2jhWM7N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7Q}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4PfK}# + #{p _hoQGWMnyQPAh3k2jhWM7N}# '(#(free-id #(syntax-object unquote @@ -25843,12 +25861,12 @@ #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25863,38 +25881,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PfN}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM7Q}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PfR}#) - (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0) - (#{quasilist* _85hotwsCta0JfYIjI4PcN}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM7U}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) + (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("322")) + #("324")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25909,34 +25927,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZy _85hotwsCta0JfYIjI4Pf1}#)) - #{p _85hotwsCta0JfYIjI4PfR}#) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#)) + #{p _hoQGWMnyQPAh3k2jhWM7U}#) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("322")) + #(ribcage #(p) #((top)) #("324")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25951,27 +25969,27 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("322")) + #(ribcage #(p) #((top)) #("324")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -25986,24 +26004,24 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4PfR}# - (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#))) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)))) - #{tmp _85hotwsCta0JfYIjI4PfN}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pf8}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM7U}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7@}# ($sc-dispatch - #{p _85hotwsCta0JfYIjI4PfK}# + #{p _hoQGWMnyQPAh3k2jhWM7N}# '(#(free-id #(syntax-object unquote-splicing @@ -26011,12 +26029,12 @@ #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26031,38 +26049,38 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pf8}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM7@}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PgA}#) - (if (= #{lev _85hotwsCta0JfYIjI4PfE}# 0) - (#{quasiappend _85hotwsCta0JfYIjI4PcM}# - (map (lambda (#{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM8D}#) + (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) + (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# + (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("323")) + #("325")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26077,34 +26095,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4PZ2 _85hotwsCta0JfYIjI4PgD}#)) - #{p _85hotwsCta0JfYIjI4PgA}#) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# + #{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#)) + #{p _hoQGWMnyQPAh3k2jhWM8D}#) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("323")) + #(ribcage #(p) #((top)) #("325")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26119,27 +26137,27 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("323")) + #(ribcage #(p) #((top)) #("325")) #(ribcage #(p q) #((top) (top)) - #("320" "321")) + #("322" "323")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31y" "31z")) + #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26154,39 +26172,39 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile))) - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4PgA}# - (#{1-}# #{lev _85hotwsCta0JfYIjI4PfE}#))) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#)))) - #{tmp _85hotwsCta0JfYIjI4Pf8}#) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{p _85hotwsCta0JfYIjI4PfK}# - #{lev _85hotwsCta0JfYIjI4PfE}#) - (#{vquasi _85hotwsCta0JfYIjI4PcK}# - #{q _85hotwsCta0JfYIjI4PfL}# - #{lev _85hotwsCta0JfYIjI4PfE}#))))))) - #{tmp _85hotwsCta0JfYIjI4PfG}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PgV}# - ($sc-dispatch #{p _85hotwsCta0JfYIjI4PfD}# '()))) - (if #{tmp _85hotwsCta0JfYIjI4PgV}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM8D}# + (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM7@}#) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{p _hoQGWMnyQPAh3k2jhWM7N}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#) + (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# + #{q _hoQGWMnyQPAh3k2jhWM7O}# + #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM7J}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8Y}# + ($sc-dispatch #{p _hoQGWMnyQPAh3k2jhWM7G}# '()))) + (if #{tmp _hoQGWMnyQPAh3k2jhWM8Y}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31y" "31z")) + #(ribcage #(p lev) #((top) (top)) #("320" "321")) #(ribcage (emit quasivector quasilist* @@ -26195,64 +26213,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) ())) - #{tmp _85hotwsCta0JfYIjI4PgV}#) + #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#) (syntax-violation #f "source expression failed to match any pattern" - #{p _85hotwsCta0JfYIjI4PfD}#))))))) - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (lambda (#{x _85hotwsCta0JfYIjI4Pgi}# - #{y _85hotwsCta0JfYIjI4Pgj}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgk}# - (list #{x _85hotwsCta0JfYIjI4Pgi}# - #{y _85hotwsCta0JfYIjI4Pgj}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgl}# + #{p _hoQGWMnyQPAh3k2jhWM7G}#))))))) + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM8l}# + #{y _hoQGWMnyQPAh3k2jhWM8m}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8n}# + (list #{x _hoQGWMnyQPAh3k2jhWM8l}# + #{y _hoQGWMnyQPAh3k2jhWM8m}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8o}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pgk}# + #{tmp _hoQGWMnyQPAh3k2jhWM8n}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pgl}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM8o}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pgn}# - #{y _85hotwsCta0JfYIjI4Pgo}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgq}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM8q}# + #{y _hoQGWMnyQPAh3k2jhWM8r}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8t}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4Pgo}# + #{y _hoQGWMnyQPAh3k2jhWM8r}# '(#(atom "quote") any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pgq}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM8t}# (@apply - (lambda (#{dy _85hotwsCta0JfYIjI4Pgu}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pgw}# + (lambda (#{dy _hoQGWMnyQPAh3k2jhWM8x}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8z}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pgn}# + #{x _hoQGWMnyQPAh3k2jhWM8q}# '(#(atom "quote") any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pgw}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM8z}# (@apply - (lambda (#{dx _85hotwsCta0JfYIjI4Pg0}#) + (lambda (#{dx _hoQGWMnyQPAh3k2jhWM83}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("32a")) + #("32c")) #(ribcage #(dy) #((top)) - #("329")) + #("32b")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("329" "32a")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("327" "328")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("325" "326")) #(ribcage (emit quasivector quasilist* @@ -26267,34 +26285,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - (cons #{dx _85hotwsCta0JfYIjI4Pg0}# - #{dy _85hotwsCta0JfYIjI4Pgu}#))) - #{tmp _85hotwsCta0JfYIjI4Pgw}#) - (if (null? #{dy _85hotwsCta0JfYIjI4Pgu}#) + (cons #{dx _hoQGWMnyQPAh3k2jhWM83}# + #{dy _hoQGWMnyQPAh3k2jhWM8x}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM8z}#) + (if (null? #{dy _hoQGWMnyQPAh3k2jhWM8x}#) (list '#(syntax-object "list" ((top) - #(ribcage #(_) #((top)) #("32b")) - #(ribcage #(dy) #((top)) #("329")) + #(ribcage #(_) #((top)) #("32d")) + #(ribcage #(dy) #((top)) #("32b")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("329" "32a")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("327" "328")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("325" "326")) #(ribcage (emit quasivector quasilist* @@ -26309,31 +26327,31 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4Pgn}#) + #{x _hoQGWMnyQPAh3k2jhWM8q}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32b")) - #(ribcage #(dy) #((top)) #("329")) + #(ribcage #(_) #((top)) #("32d")) + #(ribcage #(dy) #((top)) #("32b")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("329" "32a")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("327" "328")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("325" "326")) #(ribcage (emit quasivector quasilist* @@ -26348,42 +26366,42 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4Pgn}# - #{y _85hotwsCta0JfYIjI4Pgo}#))))) - #{tmp _85hotwsCta0JfYIjI4Pgq}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pg5}# + #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{y _hoQGWMnyQPAh3k2jhWM8r}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM8t}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM88}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4Pgo}# + #{y _hoQGWMnyQPAh3k2jhWM8r}# '(#(atom "list") . any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pg5}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM88}# (@apply - (lambda (#{stuff _85hotwsCta0JfYIjI4Pg9}#) + (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9A}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("32c")) + #("32e")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("329" "32a")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("327" "328")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("325" "326")) #(ribcage (emit quasivector quasilist* @@ -26398,42 +26416,42 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - (cons #{x _85hotwsCta0JfYIjI4Pgn}# - #{stuff _85hotwsCta0JfYIjI4Pg9}#))) - #{tmp _85hotwsCta0JfYIjI4Pg5}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pg$}# + (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{stuff _hoQGWMnyQPAh3k2jhWM9A}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM88}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9B}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4Pgo}# + #{y _hoQGWMnyQPAh3k2jhWM8r}# '(#(atom "list*") . any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pg$}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9B}# (@apply - (lambda (#{stuff _85hotwsCta0JfYIjI4PhC}#) + (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9F}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("32d")) + #("32f")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("329" "32a")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("327" "328")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("325" "326")) #(ribcage (emit quasivector quasilist* @@ -26448,32 +26466,32 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - (cons #{x _85hotwsCta0JfYIjI4Pgn}# - #{stuff _85hotwsCta0JfYIjI4PhC}#))) - #{tmp _85hotwsCta0JfYIjI4Pg$}#) + (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{stuff _hoQGWMnyQPAh3k2jhWM9F}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM9B}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32e")) + #(ribcage #(_) #((top)) #("32g")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("329" "32a")) + #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("327" "328")) - #(ribcage () () ()) - #(ribcage () () ()) - #(ribcage - #(x y) - #((top) (top)) - #("325" "326")) #(ribcage (emit quasivector quasilist* @@ -26488,37 +26506,37 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4Pgn}# - #{y _85hotwsCta0JfYIjI4Pgo}#)))))))) - #{tmp _85hotwsCta0JfYIjI4Pgl}#) + #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{y _hoQGWMnyQPAh3k2jhWM8r}#)))))))) + #{tmp _hoQGWMnyQPAh3k2jhWM8o}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pgk}#)))))) - (#{quasiappend _85hotwsCta0JfYIjI4PcM}# - (lambda (#{x _85hotwsCta0JfYIjI4PhN}# - #{y _85hotwsCta0JfYIjI4PhO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PhQ}# + #{tmp _hoQGWMnyQPAh3k2jhWM8n}#)))))) + (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM9Q}# + #{y _hoQGWMnyQPAh3k2jhWM9R}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9T}# ($sc-dispatch - #{y _85hotwsCta0JfYIjI4PhO}# + #{y _hoQGWMnyQPAh3k2jhWM9R}# '(#(atom "quote") ())))) - (if #{tmp _85hotwsCta0JfYIjI4PhQ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9T}# (@apply (lambda () - (if (null? #{x _85hotwsCta0JfYIjI4PhN}#) + (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(x y) #((top) (top)) #("32f" "32g")) + #(ribcage #(x y) #((top) (top)) #("32h" "32i")) #(ribcage (emit quasivector quasilist* @@ -26527,28 +26545,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) ()) - (if (null? (cdr #{x _85hotwsCta0JfYIjI4PhN}#)) - (car #{x _85hotwsCta0JfYIjI4PhN}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PhV}# + (if (null? (cdr #{x _hoQGWMnyQPAh3k2jhWM9Q}#)) + (car #{x _hoQGWMnyQPAh3k2jhWM9Q}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9Y}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PhN}# + #{x _hoQGWMnyQPAh3k2jhWM9Q}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PhV}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9Y}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4PhZ}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM9c}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("32h")) + #(ribcage #(p) #((top)) #("32j")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32f" "32g")) + #("32h" "32i")) #(ribcage (emit quasivector quasilist* @@ -26563,34 +26581,34 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{p _85hotwsCta0JfYIjI4PhZ}#)) - #{tmp _85hotwsCta0JfYIjI4PhV}#) + #{p _hoQGWMnyQPAh3k2jhWM9c}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PhN}#)))))) - #{tmp _85hotwsCta0JfYIjI4PhQ}#) - (if (null? #{x _85hotwsCta0JfYIjI4PhN}#) - #{y _85hotwsCta0JfYIjI4PhO}# - (let ((#{tmp _85hotwsCta0JfYIjI4Phh}# - (list #{x _85hotwsCta0JfYIjI4PhN}# - #{y _85hotwsCta0JfYIjI4PhO}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Phi}# + #{x _hoQGWMnyQPAh3k2jhWM9Q}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWM9T}#) + (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) + #{y _hoQGWMnyQPAh3k2jhWM9R}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9k}# + (list #{x _hoQGWMnyQPAh3k2jhWM9Q}# + #{y _hoQGWMnyQPAh3k2jhWM9R}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9l}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Phh}# + #{tmp _hoQGWMnyQPAh3k2jhWM9k}# '(each-any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Phi}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM9l}# (@apply - (lambda (#{p _85hotwsCta0JfYIjI4Phk}# - #{y _85hotwsCta0JfYIjI4Phl}#) + (lambda (#{p _hoQGWMnyQPAh3k2jhWM9n}# + #{y _hoQGWMnyQPAh3k2jhWM9o}#) (cons '#(syntax-object "append" ((top) @@ -26598,13 +26616,13 @@ #(ribcage #(p y) #((top) (top)) - #("32j" "32k")) - #(ribcage #(_) #((top)) #("32i")) + #("32l" "32m")) + #(ribcage #(_) #((top)) #("32k")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32f" "32g")) + #("32h" "32i")) #(ribcage (emit quasivector quasilist* @@ -26619,51 +26637,51 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) (append - #{p _85hotwsCta0JfYIjI4Phk}# - (list #{y _85hotwsCta0JfYIjI4Phl}#)))) - #{tmp _85hotwsCta0JfYIjI4Phi}#) + #{p _hoQGWMnyQPAh3k2jhWM9n}# + (list #{y _hoQGWMnyQPAh3k2jhWM9o}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWM9l}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Phh}#))))))))) - (#{quasilist* _85hotwsCta0JfYIjI4PcN}# - (lambda (#{x _85hotwsCta0JfYIjI4Php}# - #{y _85hotwsCta0JfYIjI4Phq}#) + #{tmp _hoQGWMnyQPAh3k2jhWM9k}#))))))))) + (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM9s}# + #{y _hoQGWMnyQPAh3k2jhWM9t}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4Phr}# - (lambda (#{x _85hotwsCta0JfYIjI4PjE}#) - (if (null? #{x _85hotwsCta0JfYIjI4PjE}#) - #{y _85hotwsCta0JfYIjI4Phq}# - (#{quasicons _85hotwsCta0JfYIjI4PcL}# - (car #{x _85hotwsCta0JfYIjI4PjE}#) - (#{f _85hotwsCta0JfYIjI4Phr}# - (cdr #{x _85hotwsCta0JfYIjI4PjE}#))))))) - (#{f _85hotwsCta0JfYIjI4Phr}# - #{x _85hotwsCta0JfYIjI4Php}#)))) - (#{emit _85hotwsCta0JfYIjI4PcP}# - (lambda (#{x _85hotwsCta0JfYIjI4PjH}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjJ}# + ((#{f _hoQGWMnyQPAh3k2jhWM9u}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@H}#) + (if (null? #{x _hoQGWMnyQPAh3k2jhWM@H}#) + #{y _hoQGWMnyQPAh3k2jhWM9t}# + (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (car #{x _hoQGWMnyQPAh3k2jhWM@H}#) + (#{f _hoQGWMnyQPAh3k2jhWM9u}# + (cdr #{x _hoQGWMnyQPAh3k2jhWM@H}#))))))) + (#{f _hoQGWMnyQPAh3k2jhWM9u}# + #{x _hoQGWMnyQPAh3k2jhWM9s}#)))) + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@K}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@M}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "quote") any)))) - (if #{tmp _85hotwsCta0JfYIjI4PjJ}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@M}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PjN}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@Q}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("335")) + #(ribcage #(x) #((top)) #("337")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("334")) + #(ribcage #(x) #((top)) #("336")) #(ribcage (emit quasivector quasilist* @@ -26672,38 +26690,38 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31m" "31l" "31k" "31j" "31i" "31h" "31g"))) + ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) (hygiene guile)) - #{x _85hotwsCta0JfYIjI4PjN}#)) - #{tmp _85hotwsCta0JfYIjI4PjJ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjO}# + #{x _hoQGWMnyQPAh3k2jhWM@Q}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@M}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@R}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "list") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PjO}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@R}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PjS}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjT}# - (map #{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4PjS}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4PjU}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@V}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@W}# + (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@V}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@X}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4PjT}# + #{tmp _hoQGWMnyQPAh3k2jhWM@W}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4PjU}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@X}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4PbS}#) - #((m_85hotwsCta0JfYIjI4PbT top)) - #("337")) - #(ribcage #(x) #((top)) #("336")) + #(#{ g_hoQGWMnyQPAh3k2jhWM3V}#) + #((m_hoQGWMnyQPAh3k2jhWM3W top)) + #("339")) + #(ribcage #(x) #((top)) #("338")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("334")) + #(ribcage #(x) #((top)) #("336")) #(ribcage (emit quasivector quasilist* @@ -26718,74 +26736,74 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4PbS _85hotwsCta0JfYIjI4PjW}#)) - #{tmp _85hotwsCta0JfYIjI4PjU}#) + #{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@X}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4PjT}#))))) - #{tmp _85hotwsCta0JfYIjI4PjO}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PjX}# + #{tmp _hoQGWMnyQPAh3k2jhWM@W}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM@R}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@a}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _85hotwsCta0JfYIjI4PjX}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@a}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pjb}# - #{y _85hotwsCta0JfYIjI4Pjc}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@e}# + #{y _hoQGWMnyQPAh3k2jhWM@f}#) (letrec* - ((#{f _85hotwsCta0JfYIjI4Pjd}# - (lambda (#{x* _85hotwsCta0JfYIjI4Pjg}#) - (if (null? #{x* _85hotwsCta0JfYIjI4Pjg}#) - (#{emit _85hotwsCta0JfYIjI4PcP}# - #{y _85hotwsCta0JfYIjI4Pjc}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjh}# - (list (#{emit _85hotwsCta0JfYIjI4PcP}# - (car #{x* _85hotwsCta0JfYIjI4Pjg}#)) - (#{f _85hotwsCta0JfYIjI4Pjd}# - (cdr #{x* _85hotwsCta0JfYIjI4Pjg}#))))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pji}# + ((#{f _hoQGWMnyQPAh3k2jhWM@g}# + (lambda (#{x* _hoQGWMnyQPAh3k2jhWM@j}#) + (if (null? #{x* _hoQGWMnyQPAh3k2jhWM@j}#) + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{y _hoQGWMnyQPAh3k2jhWM@f}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@k}# + (list (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + (car #{x* _hoQGWMnyQPAh3k2jhWM@j}#)) + (#{f _hoQGWMnyQPAh3k2jhWM@g}# + (cdr #{x* _hoQGWMnyQPAh3k2jhWM@j}#))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@l}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pjh}# + #{tmp _hoQGWMnyQPAh3k2jhWM@k}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pji}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@l}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}# - #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# + #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pbh}# - #{ g_85hotwsCta0JfYIjI4Pbg}#) - #((m_85hotwsCta0JfYIjI4Pbi + #(#{ g_hoQGWMnyQPAh3k2jhWM3k}# + #{ g_hoQGWMnyQPAh3k2jhWM3j}#) + #((m_hoQGWMnyQPAh3k2jhWM3l top) - (m_85hotwsCta0JfYIjI4Pbi + (m_hoQGWMnyQPAh3k2jhWM3l top)) - #("33c" "33d")) + #("33e" "33f")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("33a" "33b")) + #("33c" "33d")) #(ribcage #(x y) #((top) (top)) - #("338" "339")) + #("33a" "33b")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26800,59 +26818,59 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Pbh _85hotwsCta0JfYIjI4Pjk}# - #{ g_85hotwsCta0JfYIjI4Pbg _85hotwsCta0JfYIjI4Pjl}#)) - #{tmp _85hotwsCta0JfYIjI4Pji}#) + #{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# + #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@l}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pjh}#)))))))) - (#{f _85hotwsCta0JfYIjI4Pjd}# - #{x _85hotwsCta0JfYIjI4Pjb}#))) - #{tmp _85hotwsCta0JfYIjI4PjX}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjm}# + #{tmp _hoQGWMnyQPAh3k2jhWM@k}#)))))))) + (#{f _hoQGWMnyQPAh3k2jhWM@g}# + #{x _hoQGWMnyQPAh3k2jhWM@e}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM@a}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@p}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "append") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pjm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@p}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pjq}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjr}# - (map #{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4Pjq}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjs}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@t}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@u}# + (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@t}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@v}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pjr}# + #{tmp _hoQGWMnyQPAh3k2jhWM@u}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4Pjs}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@v}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pbq}#) - #((m_85hotwsCta0JfYIjI4Pbr + #(#{ g_hoQGWMnyQPAh3k2jhWM3t}#) + #((m_hoQGWMnyQPAh3k2jhWM3u top)) - #("33f")) + #("33h")) #(ribcage #(x) #((top)) - #("33e")) + #("33g")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26867,56 +26885,56 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Pbq _85hotwsCta0JfYIjI4Pju}#)) - #{tmp _85hotwsCta0JfYIjI4Pjs}#) + #{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@v}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pjr}#))))) - #{tmp _85hotwsCta0JfYIjI4Pjm}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pjv}# + #{tmp _hoQGWMnyQPAh3k2jhWM@u}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM@p}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@y}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "vector") . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pjv}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@y}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pjz}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj0}# - (map #{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4Pjz}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj1}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@2}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@3}# + (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@2}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@4}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pj0}# + #{tmp _hoQGWMnyQPAh3k2jhWM@3}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4Pj1}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@4}# (@apply - (lambda (#{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#) + (lambda (#{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pb0}#) - #((m_85hotwsCta0JfYIjI4Pb1 + #(#{ g_hoQGWMnyQPAh3k2jhWM33}#) + #((m_hoQGWMnyQPAh3k2jhWM34 top)) - #("33h")) + #("33j")) #(ribcage #(x) #((top)) - #("33g")) + #("33i")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26931,49 +26949,49 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{ g_85hotwsCta0JfYIjI4Pb0 _85hotwsCta0JfYIjI4Pj3}#)) - #{tmp _85hotwsCta0JfYIjI4Pj1}#) + #{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#)) + #{tmp _hoQGWMnyQPAh3k2jhWM@4}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pj0}#))))) - #{tmp _85hotwsCta0JfYIjI4Pjv}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj4}# + #{tmp _hoQGWMnyQPAh3k2jhWM@3}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWM@y}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@7}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "list->vector") any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pj4}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM@7}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4Pj8}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pj9}# - (#{emit _85hotwsCta0JfYIjI4PcP}# - #{x _85hotwsCta0JfYIjI4Pj8}#))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM@@}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAA}# + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + #{x _hoQGWMnyQPAh3k2jhWM@@}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_85hotwsCta0JfYIjI4Pb$}#) - #((m_85hotwsCta0JfYIjI4Pb@ + #(#{ g_hoQGWMnyQPAh3k2jhWM4B}#) + #((m_hoQGWMnyQPAh3k2jhWM4C top)) - #("33j")) + #("33l")) #(ribcage #(x) #((top)) - #("33i")) + #("33k")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("334")) + #("336")) #(ribcage (emit quasivector quasilist* @@ -26988,218 +27006,218 @@ (top) (top) (top)) - ("31m" + ("31o" + "31n" + "31m" "31l" "31k" "31j" - "31i" - "31h" - "31g"))) + "31i"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4Pj9}#))) - #{tmp _85hotwsCta0JfYIjI4Pj4}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PkA}# + #{tmp _hoQGWMnyQPAh3k2jhWNAA}#))) + #{tmp _hoQGWMnyQPAh3k2jhWM@7}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAD}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PjH}# + #{x _hoQGWMnyQPAh3k2jhWM@K}# '(#(atom "value") any)))) - (if #{tmp _85hotwsCta0JfYIjI4PkA}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNAD}# (@apply - (lambda (#{x _85hotwsCta0JfYIjI4PkE}#) - #{x _85hotwsCta0JfYIjI4PkE}#) - #{tmp _85hotwsCta0JfYIjI4PkA}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWNAH}#) + #{x _hoQGWMnyQPAh3k2jhWNAH}#) + #{tmp _hoQGWMnyQPAh3k2jhWNAD}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PjH}#)))))))))))))))))) - (lambda (#{x _85hotwsCta0JfYIjI4PcQ}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PcS}# + #{x _hoQGWMnyQPAh3k2jhWM@K}#)))))))))))))))))) + (lambda (#{x _hoQGWMnyQPAh3k2jhWM4T}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4V}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PcQ}# + #{x _hoQGWMnyQPAh3k2jhWM4T}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4PcS}# + (if #{tmp _hoQGWMnyQPAh3k2jhWM4V}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4PcW}#) - (#{emit _85hotwsCta0JfYIjI4PcP}# - (#{quasi _85hotwsCta0JfYIjI4PcJ}# - #{e _85hotwsCta0JfYIjI4PcW}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWM4Z}#) + (#{emit _hoQGWMnyQPAh3k2jhWM4S}# + (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# + #{e _hoQGWMnyQPAh3k2jhWM4Z}# 0))) - #{tmp _85hotwsCta0JfYIjI4PcS}#) + #{tmp _hoQGWMnyQPAh3k2jhWM4V}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PcQ}#))))))) + #{x _hoQGWMnyQPAh3k2jhWM4T}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pkv}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWNAy}#) (letrec* - ((#{read-file _85hotwsCta0JfYIjI4Pkw}# - (lambda (#{fn _85hotwsCta0JfYIjI4Pmd}# - #{k _85hotwsCta0JfYIjI4Pme}#) - (let ((#{p _85hotwsCta0JfYIjI4Pmf}# - (open-input-file #{fn _85hotwsCta0JfYIjI4Pmd}#))) + ((#{read-file _hoQGWMnyQPAh3k2jhWNAz}# + (lambda (#{fn _hoQGWMnyQPAh3k2jhWNCg}# + #{k _hoQGWMnyQPAh3k2jhWNCh}#) + (let ((#{p _hoQGWMnyQPAh3k2jhWNCi}# + (open-input-file #{fn _hoQGWMnyQPAh3k2jhWNCg}#))) (letrec* - ((#{f _85hotwsCta0JfYIjI4Pmg}# - (lambda (#{x _85hotwsCta0JfYIjI4PnW}# - #{result _85hotwsCta0JfYIjI4PnX}#) - (if (eof-object? #{x _85hotwsCta0JfYIjI4PnW}#) + ((#{f _hoQGWMnyQPAh3k2jhWNCj}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNDZ}# + #{result _hoQGWMnyQPAh3k2jhWNDa}#) + (if (eof-object? #{x _hoQGWMnyQPAh3k2jhWNDZ}#) (begin - (close-input-port #{p _85hotwsCta0JfYIjI4Pmf}#) - (reverse #{result _85hotwsCta0JfYIjI4PnX}#)) - (#{f _85hotwsCta0JfYIjI4Pmg}# - (read #{p _85hotwsCta0JfYIjI4Pmf}#) + (close-input-port #{p _hoQGWMnyQPAh3k2jhWNCi}#) + (reverse #{result _hoQGWMnyQPAh3k2jhWNDa}#)) + (#{f _hoQGWMnyQPAh3k2jhWNCj}# + (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) (cons (datum->syntax - #{k _85hotwsCta0JfYIjI4Pme}# - #{x _85hotwsCta0JfYIjI4PnW}#) - #{result _85hotwsCta0JfYIjI4PnX}#)))))) - (#{f _85hotwsCta0JfYIjI4Pmg}# - (read #{p _85hotwsCta0JfYIjI4Pmf}#) + #{k _hoQGWMnyQPAh3k2jhWNCh}# + #{x _hoQGWMnyQPAh3k2jhWNDZ}#) + #{result _hoQGWMnyQPAh3k2jhWNDa}#)))))) + (#{f _hoQGWMnyQPAh3k2jhWNCj}# + (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) '())))))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pky}# + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA1}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pkv}# + #{x _hoQGWMnyQPAh3k2jhWNAy}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pky}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNA1}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Pk2}# - #{filename _85hotwsCta0JfYIjI4Pk3}#) - (let ((#{fn _85hotwsCta0JfYIjI4Pk4}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWNA5}# + #{filename _hoQGWMnyQPAh3k2jhWNA6}#) + (let ((#{fn _hoQGWMnyQPAh3k2jhWNA7}# (syntax->datum - #{filename _85hotwsCta0JfYIjI4Pk3}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pk5}# - (#{read-file _85hotwsCta0JfYIjI4Pkw}# - #{fn _85hotwsCta0JfYIjI4Pk4}# - #{filename _85hotwsCta0JfYIjI4Pk3}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pk6}# + #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA8}# + (#{read-file _hoQGWMnyQPAh3k2jhWNAz}# + #{fn _hoQGWMnyQPAh3k2jhWNA7}# + #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA9}# ($sc-dispatch - #{tmp _85hotwsCta0JfYIjI4Pk5}# + #{tmp _hoQGWMnyQPAh3k2jhWNA8}# 'each-any))) - (if #{tmp _85hotwsCta0JfYIjI4Pk6}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNA9}# (@apply - (lambda (#{exp _85hotwsCta0JfYIjI4PlM}#) + (lambda (#{exp _hoQGWMnyQPAh3k2jhWNBP}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("33y")) + #(ribcage #(exp) #((top)) #("340")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("33x")) + #(ribcage #(fn) #((top)) #("33z")) #(ribcage #(k filename) #((top) (top)) - #("33v" "33w")) - #(ribcage (read-file) ((top)) ("33o")) - #(ribcage #(x) #((top)) #("33n"))) + #("33x" "33y")) + #(ribcage (read-file) ((top)) ("33q")) + #(ribcage #(x) #((top)) #("33p"))) (hygiene guile)) - #{exp _85hotwsCta0JfYIjI4PlM}#)) - #{tmp _85hotwsCta0JfYIjI4Pk6}#) + #{exp _hoQGWMnyQPAh3k2jhWNBP}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNA9}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _85hotwsCta0JfYIjI4Pk5}#)))))) - #{tmp _85hotwsCta0JfYIjI4Pky}#) + #{tmp _hoQGWMnyQPAh3k2jhWNA8}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWNA1}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pkv}#))))))) + #{x _hoQGWMnyQPAh3k2jhWNAy}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pnk}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pnm}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNDn}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDp}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pnk}# + #{x _hoQGWMnyQPAh3k2jhWNDn}# '(any any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pnm}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNDp}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Pnq}# - #{filename _85hotwsCta0JfYIjI4Pnr}#) - (let ((#{fn _85hotwsCta0JfYIjI4Pns}# + (lambda (#{k _hoQGWMnyQPAh3k2jhWNDt}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}#) + (let ((#{fn _hoQGWMnyQPAh3k2jhWNDv}# (syntax->datum - #{filename _85hotwsCta0JfYIjI4Pnr}#))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pnt}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}#))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDw}# (datum->syntax - #{filename _85hotwsCta0JfYIjI4Pnr}# - (let ((#{t _85hotwsCta0JfYIjI4Pnw}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}# + (let ((#{t _hoQGWMnyQPAh3k2jhWNDz}# (%search-load-path - #{fn _85hotwsCta0JfYIjI4Pns}#))) - (if #{t _85hotwsCta0JfYIjI4Pnw}# - #{t _85hotwsCta0JfYIjI4Pnw}# + #{fn _hoQGWMnyQPAh3k2jhWNDv}#))) + (if #{t _hoQGWMnyQPAh3k2jhWNDz}# + #{t _hoQGWMnyQPAh3k2jhWNDz}# (syntax-violation 'include-from-path "file not found in path" - #{x _85hotwsCta0JfYIjI4Pnk}# - #{filename _85hotwsCta0JfYIjI4Pnr}#)))))) + #{x _hoQGWMnyQPAh3k2jhWNDn}# + #{filename _hoQGWMnyQPAh3k2jhWNDu}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("343")) + #(ribcage #(fn) #((top)) #("345")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("342")) + #(ribcage #(fn) #((top)) #("344")) #(ribcage #(k filename) #((top) (top)) - #("340" "341")) + #("342" "343")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("33z"))) + #(ribcage #(x) #((top)) #("341"))) (hygiene guile)) - #{tmp _85hotwsCta0JfYIjI4Pnt}#)))) - #{tmp _85hotwsCta0JfYIjI4Pnm}#) + #{tmp _hoQGWMnyQPAh3k2jhWNDw}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWNDp}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pnk}#)))))) + #{x _hoQGWMnyQPAh3k2jhWNDn}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pn4}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWND7}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x _85hotwsCta0JfYIjI4Pn4}#)))) + #{x _hoQGWMnyQPAh3k2jhWND7}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pn6}#) + (lambda (#{x _hoQGWMnyQPAh3k2jhWND9}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x _85hotwsCta0JfYIjI4Pn6}#)))) + #{x _hoQGWMnyQPAh3k2jhWND9}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pof}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Poh}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNEi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEk}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pof}# + #{x _hoQGWMnyQPAh3k2jhWNEi}# '(_ any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Poh}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNEk}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4Pol}# - #{m1 _85hotwsCta0JfYIjI4Pom}# - #{m2 _85hotwsCta0JfYIjI4Pon}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Poo}# + (lambda (#{e _hoQGWMnyQPAh3k2jhWNEo}# + #{m1 _hoQGWMnyQPAh3k2jhWNEp}# + #{m2 _hoQGWMnyQPAh3k2jhWNEq}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEr}# (letrec* - ((#{f _85hotwsCta0JfYIjI4PpS}# - (lambda (#{clause _85hotwsCta0JfYIjI4PpV}# - #{clauses _85hotwsCta0JfYIjI4PpW}#) - (if (null? #{clauses _85hotwsCta0JfYIjI4PpW}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PpY}# + ((#{f _hoQGWMnyQPAh3k2jhWNFV}# + (lambda (#{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) + (if (null? #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFb}# ($sc-dispatch - #{clause _85hotwsCta0JfYIjI4PpV}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}# '(#(free-id #(syntax-object else @@ -27208,79 +27226,79 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile))) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PpY}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNFb}# (@apply - (lambda (#{e1 _85hotwsCta0JfYIjI4Ppc}# - #{e2 _85hotwsCta0JfYIjI4Ppd}#) + (lambda (#{e1 _hoQGWMnyQPAh3k2jhWNFf}# + #{e2 _hoQGWMnyQPAh3k2jhWNFg}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("34f" "34g")) + #("34h" "34i")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4Ppc}# - #{e2 _85hotwsCta0JfYIjI4Ppd}#))) - #{tmp _85hotwsCta0JfYIjI4PpY}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Ppe}# + (cons #{e1 _hoQGWMnyQPAh3k2jhWNFf}# + #{e2 _hoQGWMnyQPAh3k2jhWNFg}#))) + #{tmp _hoQGWMnyQPAh3k2jhWNFb}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFh}# ($sc-dispatch - #{clause _85hotwsCta0JfYIjI4PpV}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}# '(each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Ppe}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNFh}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Ppi}# - #{e1 _85hotwsCta0JfYIjI4Ppj}# - #{e2 _85hotwsCta0JfYIjI4Ppk}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWNFl}# + #{e1 _hoQGWMnyQPAh3k2jhWNFm}# + #{e2 _hoQGWMnyQPAh3k2jhWNFn}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34h" "34i" "34j")) + #("34j" "34k" "34l")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object memv @@ -27290,9 +27308,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () ()) #(ribcage #(f @@ -27301,22 +27319,22 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) '#(syntax-object t @@ -27326,9 +27344,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () ()) #(ribcage #(f @@ -27337,22 +27355,22 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object quote @@ -27362,9 +27380,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () @@ -27376,17 +27394,17 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () @@ -27394,10 +27412,10 @@ #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - #{k _85hotwsCta0JfYIjI4Ppi}#)) + #{k _hoQGWMnyQPAh3k2jhWNFl}#)) (cons '#(syntax-object begin ((top) @@ -27406,9 +27424,9 @@ #((top) (top) (top)) - #("34h" - "34i" - "34j")) + #("34j" + "34k" + "34l")) #(ribcage () () ()) #(ribcage #(f @@ -27417,70 +27435,70 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4Ppj}# - #{e2 _85hotwsCta0JfYIjI4Ppk}#)))) - #{tmp _85hotwsCta0JfYIjI4Ppe}#) + (cons #{e1 _hoQGWMnyQPAh3k2jhWNFm}# + #{e2 _hoQGWMnyQPAh3k2jhWNFn}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWNFh}#) (syntax-violation 'case "bad clause" - #{x _85hotwsCta0JfYIjI4Pof}# - #{clause _85hotwsCta0JfYIjI4PpV}#))))) - (let ((#{tmp _85hotwsCta0JfYIjI4Pps}# - (#{f _85hotwsCta0JfYIjI4PpS}# - (car #{clauses _85hotwsCta0JfYIjI4PpW}#) - (cdr #{clauses _85hotwsCta0JfYIjI4PpW}#)))) - (let ((#{tmp _85hotwsCta0JfYIjI4Ppv}# + #{x _hoQGWMnyQPAh3k2jhWNEi}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}#))))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFv}# + (#{f _hoQGWMnyQPAh3k2jhWNFV}# + (car #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) + (cdr #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)))) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFy}# ($sc-dispatch - #{clause _85hotwsCta0JfYIjI4PpV}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}# '(each-any any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4Ppv}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNFy}# (@apply - (lambda (#{k _85hotwsCta0JfYIjI4Ppz}# - #{e1 _85hotwsCta0JfYIjI4Pp0}# - #{e2 _85hotwsCta0JfYIjI4Pp1}#) + (lambda (#{k _hoQGWMnyQPAh3k2jhWNF2}# + #{e1 _hoQGWMnyQPAh3k2jhWNF3}# + #{e2 _hoQGWMnyQPAh3k2jhWNF4}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" "34n" "34o")) + #("34o" "34p" "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" "34d" "34e")) + #("34e" "34f" "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object memv @@ -27488,32 +27506,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) '#(syntax-object t @@ -27521,32 +27539,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) (list '#(syntax-object quote @@ -27556,9 +27574,9 @@ #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () @@ -27566,7 +27584,7 @@ #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () @@ -27578,17 +27596,17 @@ #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () @@ -27596,238 +27614,238 @@ #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - #{k _85hotwsCta0JfYIjI4Ppz}#)) + #{k _hoQGWMnyQPAh3k2jhWNF2}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34m" - "34n" - "34o")) + #("34o" + "34p" + "34q")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34l")) + #("34n")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34c" - "34d" - "34e")) + #("34e" + "34f" + "34g")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" - "349" - "34a")) + #("34a" + "34b" + "34c")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("347"))) + #("349"))) (hygiene guile)) - (cons #{e1 _85hotwsCta0JfYIjI4Pp0}# - #{e2 _85hotwsCta0JfYIjI4Pp1}#)) - #{tmp _85hotwsCta0JfYIjI4Pps}#)) - #{tmp _85hotwsCta0JfYIjI4Ppv}#) + (cons #{e1 _hoQGWMnyQPAh3k2jhWNF3}# + #{e2 _hoQGWMnyQPAh3k2jhWNF4}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNFv}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNFy}#) (syntax-violation 'case "bad clause" - #{x _85hotwsCta0JfYIjI4Pof}# - #{clause _85hotwsCta0JfYIjI4PpV}#)))))))) - (#{f _85hotwsCta0JfYIjI4PpS}# - #{m1 _85hotwsCta0JfYIjI4Pom}# - #{m2 _85hotwsCta0JfYIjI4Pon}#)))) - (let ((#{body _85hotwsCta0JfYIjI4Pop}# - #{tmp _85hotwsCta0JfYIjI4Poo}#)) + #{x _hoQGWMnyQPAh3k2jhWNEi}# + #{clause _hoQGWMnyQPAh3k2jhWNFY}#)))))))) + (#{f _hoQGWMnyQPAh3k2jhWNFV}# + #{m1 _hoQGWMnyQPAh3k2jhWNEp}# + #{m2 _hoQGWMnyQPAh3k2jhWNEq}#)))) + (let ((#{body _hoQGWMnyQPAh3k2jhWNEs}# + #{tmp _hoQGWMnyQPAh3k2jhWNEr}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34b")) + #(ribcage #(body) #((top)) #("34d")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("347"))) + #(ribcage #(x) #((top)) #("349"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34b")) + #(ribcage #(body) #((top)) #("34d")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("348" "349" "34a")) + #("34a" "34b" "34c")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("347"))) + #(ribcage #(x) #((top)) #("349"))) (hygiene guile)) - #{e _85hotwsCta0JfYIjI4Pol}#)) - #{body _85hotwsCta0JfYIjI4Pop}#)))) - #{tmp _85hotwsCta0JfYIjI4Poh}#) + #{e _hoQGWMnyQPAh3k2jhWNEo}#)) + #{body _hoQGWMnyQPAh3k2jhWNEs}#)))) + #{tmp _hoQGWMnyQPAh3k2jhWNEk}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pof}#)))))) + #{x _hoQGWMnyQPAh3k2jhWNEi}#)))))) (define make-variable-transformer - (lambda (#{proc _85hotwsCta0JfYIjI4PqE}#) - (if (procedure? #{proc _85hotwsCta0JfYIjI4PqE}#) + (lambda (#{proc _hoQGWMnyQPAh3k2jhWNGH}#) + (if (procedure? #{proc _hoQGWMnyQPAh3k2jhWNGH}#) (letrec* - ((#{trans _85hotwsCta0JfYIjI4PqF}# - (lambda (#{x _85hotwsCta0JfYIjI4PqL}#) - (#{proc _85hotwsCta0JfYIjI4PqE}# - #{x _85hotwsCta0JfYIjI4PqL}#)))) + ((#{trans _hoQGWMnyQPAh3k2jhWNGI}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNGO}#) + (#{proc _hoQGWMnyQPAh3k2jhWNGH}# + #{x _hoQGWMnyQPAh3k2jhWNGO}#)))) (begin (set-procedure-property! - #{trans _85hotwsCta0JfYIjI4PqF}# + #{trans _hoQGWMnyQPAh3k2jhWNGI}# 'variable-transformer #t) - #{trans _85hotwsCta0JfYIjI4PqF}#)) + #{trans _hoQGWMnyQPAh3k2jhWNGI}#)) (error "variable transformer not a procedure" - #{proc _85hotwsCta0JfYIjI4PqE}#)))) + #{proc _hoQGWMnyQPAh3k2jhWNGH}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x _85hotwsCta0JfYIjI4Pqf}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pqh}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNGi}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGk}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pqf}# + #{x _hoQGWMnyQPAh3k2jhWNGi}# '(_ any)))) - (if #{tmp _85hotwsCta0JfYIjI4Pqh}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNGk}# (@apply - (lambda (#{e _85hotwsCta0JfYIjI4Pql}#) + (lambda (#{e _hoQGWMnyQPAh3k2jhWNGo}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) - #{e _85hotwsCta0JfYIjI4Pql}#)) + #{e _hoQGWMnyQPAh3k2jhWNGo}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34u")) + #(ribcage #(e) #((top)) #("34w")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) - (cons #{e _85hotwsCta0JfYIjI4Pql}# + (cons #{e _hoQGWMnyQPAh3k2jhWNGo}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("34u")) + #("34w")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) #(syntax-object ... @@ -27835,55 +27853,55 @@ #(ribcage #(e) #((top)) - #("34u")) + #("34w")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile))))))))) - #{tmp _85hotwsCta0JfYIjI4Pqh}#) - (let ((#{tmp _85hotwsCta0JfYIjI4Pqm}# + #{tmp _hoQGWMnyQPAh3k2jhWNGk}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGp}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4Pqf}# + #{x _hoQGWMnyQPAh3k2jhWNGi}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) any any) any))))) - (if (if #{tmp _85hotwsCta0JfYIjI4Pqm}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWNGp}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Pqq}# - #{exp1 _85hotwsCta0JfYIjI4Pqr}# - #{var _85hotwsCta0JfYIjI4Pqs}# - #{val _85hotwsCta0JfYIjI4Pqt}# - #{exp2 _85hotwsCta0JfYIjI4Pqu}#) - (if (identifier? #{id _85hotwsCta0JfYIjI4Pqq}#) - (identifier? #{var _85hotwsCta0JfYIjI4Pqs}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNGt}# + #{exp1 _hoQGWMnyQPAh3k2jhWNGu}# + #{var _hoQGWMnyQPAh3k2jhWNGv}# + #{val _hoQGWMnyQPAh3k2jhWNGw}# + #{exp2 _hoQGWMnyQPAh3k2jhWNGx}#) + (if (identifier? #{id _hoQGWMnyQPAh3k2jhWNGt}#) + (identifier? #{var _hoQGWMnyQPAh3k2jhWNGv}#) #f)) - #{tmp _85hotwsCta0JfYIjI4Pqm}#) + #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Pqv}# - #{exp1 _85hotwsCta0JfYIjI4Pqw}# - #{var _85hotwsCta0JfYIjI4Pqx}# - #{val _85hotwsCta0JfYIjI4Pqy}# - #{exp2 _85hotwsCta0JfYIjI4Pqz}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNGy}# + #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# + #{var _hoQGWMnyQPAh3k2jhWNG0}# + #{val _hoQGWMnyQPAh3k2jhWNG1}# + #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) (list '#(syntax-object lambda @@ -27891,9 +27909,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object x @@ -27901,9 +27919,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -27911,9 +27929,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) . #(syntax-object @@ -27922,9 +27940,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -27932,9 +27950,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '#(syntax-object x @@ -27942,9 +27960,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile)) '(#(syntax-object set! @@ -27952,9 +27970,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("350" "351" "352" "353" "354")) + #("352" "353" "354" "355" "356")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34t"))) + #(ribcage #(x) #((top)) #("34v"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -27966,19 +27984,19 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{var _85hotwsCta0JfYIjI4Pqx}# - #{val _85hotwsCta0JfYIjI4Pqy}#) + #{var _hoQGWMnyQPAh3k2jhWNG0}# + #{val _hoQGWMnyQPAh3k2jhWNG1}#) (list '#(syntax-object syntax ((top) @@ -27989,19 +28007,19 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{exp2 _85hotwsCta0JfYIjI4Pqz}#)) - (list (cons #{id _85hotwsCta0JfYIjI4Pqv}# + #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#)) + (list (cons #{id _hoQGWMnyQPAh3k2jhWNGy}# '(#(syntax-object x ((top) @@ -28012,16 +28030,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) #(syntax-object ... @@ -28033,16 +28051,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -28054,18 +28072,18 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - (cons #{exp1 _85hotwsCta0JfYIjI4Pqw}# + (cons #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# '(#(syntax-object x ((top) @@ -28080,16 +28098,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) #(syntax-object ... @@ -28105,18 +28123,18 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)))))) - (list #{id _85hotwsCta0JfYIjI4Pqv}# + (list #{id _hoQGWMnyQPAh3k2jhWNGy}# (list '#(syntax-object identifier? ((top) @@ -28127,16 +28145,16 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) (list '#(syntax-object syntax @@ -28152,18 +28170,18 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{id _85hotwsCta0JfYIjI4Pqv}#)) + #{id _hoQGWMnyQPAh3k2jhWNGy}#)) (list '#(syntax-object syntax ((top) @@ -28174,72 +28192,72 @@ (top) (top) (top)) - #("350" - "351" - "352" + #("352" "353" - "354")) + "354" + "355" + "356")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34t"))) + #("34v"))) (hygiene guile)) - #{exp1 _85hotwsCta0JfYIjI4Pqw}#)))))) - #{tmp _85hotwsCta0JfYIjI4Pqm}#) + #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#)))))) + #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4Pqf}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWNGi}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x _85hotwsCta0JfYIjI4PrK}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PrM}# + (lambda (#{x _hoQGWMnyQPAh3k2jhWNHN}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHP}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PrK}# + #{x _hoQGWMnyQPAh3k2jhWNHN}# '(_ (any . any) any . each-any)))) - (if #{tmp _85hotwsCta0JfYIjI4PrM}# + (if #{tmp _hoQGWMnyQPAh3k2jhWNHP}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4PrQ}# - #{args _85hotwsCta0JfYIjI4PrR}# - #{b0 _85hotwsCta0JfYIjI4PrS}# - #{b1 _85hotwsCta0JfYIjI4PrT}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNHT}# + #{args _hoQGWMnyQPAh3k2jhWNHU}# + #{b0 _hoQGWMnyQPAh3k2jhWNHV}# + #{b1 _hoQGWMnyQPAh3k2jhWNHW}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("356" "357" "358" "359")) + #("358" "359" "35a" "35b")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)) - #{id _85hotwsCta0JfYIjI4PrQ}# + #{id _hoQGWMnyQPAh3k2jhWNHT}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("356" "357" "358" "359")) + #("358" "359" "35a" "35b")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)) - (cons #{args _85hotwsCta0JfYIjI4PrR}# - (cons #{b0 _85hotwsCta0JfYIjI4PrS}# - #{b1 _85hotwsCta0JfYIjI4PrT}#))))) - #{tmp _85hotwsCta0JfYIjI4PrM}#) - (let ((#{tmp _85hotwsCta0JfYIjI4PrU}# + (cons #{args _hoQGWMnyQPAh3k2jhWNHU}# + (cons #{b0 _hoQGWMnyQPAh3k2jhWNHV}# + #{b1 _hoQGWMnyQPAh3k2jhWNHW}#))))) + #{tmp _hoQGWMnyQPAh3k2jhWNHP}#) + (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHX}# ($sc-dispatch - #{x _85hotwsCta0JfYIjI4PrK}# + #{x _hoQGWMnyQPAh3k2jhWNHN}# '(_ any any)))) - (if (if #{tmp _85hotwsCta0JfYIjI4PrU}# + (if (if #{tmp _hoQGWMnyQPAh3k2jhWNHX}# (@apply - (lambda (#{id _85hotwsCta0JfYIjI4PrY}# - #{val _85hotwsCta0JfYIjI4PrZ}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNHb}# + #{val _hoQGWMnyQPAh3k2jhWNHc}#) (identifier? '#(syntax-object x @@ -28247,30 +28265,30 @@ #(ribcage #(id val) #((top) (top)) - #("35a" "35b")) + #("35c" "35d")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)))) - #{tmp _85hotwsCta0JfYIjI4PrU}#) + #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) #f) (@apply - (lambda (#{id _85hotwsCta0JfYIjI4Pra}# - #{val _85hotwsCta0JfYIjI4Prb}#) + (lambda (#{id _hoQGWMnyQPAh3k2jhWNHd}# + #{val _hoQGWMnyQPAh3k2jhWNHe}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("35c" "35d")) + #("35e" "35f")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("355"))) + #(ribcage #(x) #((top)) #("357"))) (hygiene guile)) - #{id _85hotwsCta0JfYIjI4Pra}# - #{val _85hotwsCta0JfYIjI4Prb}#)) - #{tmp _85hotwsCta0JfYIjI4PrU}#) + #{id _hoQGWMnyQPAh3k2jhWNHd}# + #{val _hoQGWMnyQPAh3k2jhWNHe}#)) + #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _85hotwsCta0JfYIjI4PrK}#)))))))) + #{x _hoQGWMnyQPAh3k2jhWNHN}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 024bb8535..00cb54948 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2525,6 +2525,11 @@ (set! syntax-source (lambda (x) (source-annotation x))) + (set! syntax-module + (lambda (id) + (arg-check nonsymbol-id? id 'syntax-module) + (cdr (syntax-object-module id)))) + (set! syntax-local-binding (lambda (id) (arg-check nonsymbol-id? id 'syntax-local-binding) From 68fcf7118923c4c2490075e18c15b4f722973987 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 25 Jan 2012 21:29:53 +0100 Subject: [PATCH 02/32] 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). --- doc/ref/api-macros.texi | 12 + module/ice-9/boot-9.scm | 36 +- module/ice-9/psyntax-pp.scm | 24583 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 82 +- 4 files changed, 12375 insertions(+), 12338 deletions(-) diff --git a/doc/ref/api-macros.texi b/doc/ref/api-macros.texi index 2b6f15a54..f6a03bc32 100644 --- a/doc/ref/api-macros.texi +++ b/doc/ref/api-macros.texi @@ -706,6 +706,18 @@ Return the source properties that correspond to the syntax object @var{x}. @xref{Source Properties}, for more information. @end deffn +Guile also offers some more experimental interfaces in a separate +module. As was the case with the Large Hadron Collider, it is unclear +to our senior macrologists whether adding these interfaces will result +in awesomeness or in the destruction of Guile via the creation of a +singularity. We will preserve their functionality through the 2.0 +series, but we reserve the right to modify them in a future stable +series, to a more than usual degree. + +@example +(use-modules (system syntax)) +@end example + @deffn {Scheme Procedure} syntax-module id Return the name of the module whose source contains the identifier @var{id}. diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 3914ff35f..39be83d47 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -385,13 +385,10 @@ If there is no handler at all, Guile prints an error and then exits." (define datum->syntax #f) (define syntax->datum #f) (define syntax-source #f) -(define syntax-module #f) (define identifier? #f) (define generate-temporaries #f) (define bound-identifier=? #f) (define free-identifier=? #f) -(define syntax-local-binding #f) -(define syntax-locally-bound-identifiers #f) ;; $sc-dispatch is an implementation detail of psyntax. It is used by ;; expanded macros, to dispatch an input against a set of patterns. @@ -3863,12 +3860,43 @@ module '(ice-9 q) '(make-q q-length))}." -;;; Place the user in the guile-user module. +;;; SRFI-4 in the default environment. FIXME: we should figure out how +;;; to deprecate this. ;;; ;; FIXME: (module-use! the-scm-module (resolve-interface '(srfi srfi-4))) + + +;;; A few identifiers that need to be defined in this file are really +;;; internal implementation details. We shove them off into internal +;;; modules, removing them from the (guile) module. +;;; + +(define-module (system syntax)) + +(let () + (define (steal-bindings! from to ids) + (for-each + (lambda (sym) + (let ((v (module-local-variable from sym))) + (module-remove! from sym) + (module-add! to sym v))) + ids) + (module-export! to ids)) + + (steal-bindings! the-root-module (resolve-module '(system syntax)) + '(syntax-local-binding + syntax-module + syntax-locally-bound-identifiers))) + + + + +;;; Place the user in the guile-user module. +;;; + ;; Set filename to #f to prevent reload. (define-module (guile-user) #:autoload (system base compile) (compile compile-file) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index daded1ab6..d616c7fb7 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1553 +1,1541 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{gen-label _hoQGWMnyQPAh3k2jhWHTD}# (if #f #f)) - (#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# +(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f)) + (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# (if #f #f))) (letrec* - ((#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWMnv}# - #{mod _hoQGWMnyQPAh3k2jhWMnw}#) - (primitive-eval #{x _hoQGWMnyQPAh3k2jhWMnv}#))) - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - (lambda (#{symbol _hoQGWMnyQPAh3k2jhWJ@F}# - #{module _hoQGWMnyQPAh3k2jhWJ@G}#) + ((#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + (lambda (#{x -ANAU$bmvAmthP7L7xwsuQ}# + #{mod -ANAU$bmvAmthP7L7xwsuR}#) + (primitive-eval #{x -ANAU$bmvAmthP7L7xwsuQ}#))) + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + (lambda (#{symbol -ANAU$bmvAmthP7L7xwp7A}# + #{module -ANAU$bmvAmthP7L7xwp7B}#) (begin - (if (if (not #{module _hoQGWMnyQPAh3k2jhWJ@G}#) + (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWJ@H}# + #{symbol -ANAU$bmvAmthP7L7xwp7A}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp7C}# (module-variable - (if #{module _hoQGWMnyQPAh3k2jhWJ@G}# + (if #{module -ANAU$bmvAmthP7L7xwp7B}# (resolve-module - (cdr #{module _hoQGWMnyQPAh3k2jhWJ@G}#)) + (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#)) (current-module)) - #{symbol _hoQGWMnyQPAh3k2jhWJ@F}#))) - (if #{v _hoQGWMnyQPAh3k2jhWJ@H}# - (if (variable-bound? #{v _hoQGWMnyQPAh3k2jhWJ@H}#) - (let ((#{val _hoQGWMnyQPAh3k2jhWJ@J}# - (variable-ref #{v _hoQGWMnyQPAh3k2jhWJ@H}#))) - (if (macro? #{val _hoQGWMnyQPAh3k2jhWJ@J}#) - (if (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) - (cons (macro-type #{val _hoQGWMnyQPAh3k2jhWJ@J}#) - (macro-binding #{val _hoQGWMnyQPAh3k2jhWJ@J}#)) + #{symbol -ANAU$bmvAmthP7L7xwp7A}#))) + (if #{v -ANAU$bmvAmthP7L7xwp7C}# + (if (variable-bound? #{v -ANAU$bmvAmthP7L7xwp7C}#) + (let ((#{val -ANAU$bmvAmthP7L7xwp7E}# + (variable-ref #{v -ANAU$bmvAmthP7L7xwp7C}#))) + (if (macro? #{val -ANAU$bmvAmthP7L7xwp7E}#) + (if (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#) + (cons (macro-type #{val -ANAU$bmvAmthP7L7xwp7E}#) + (macro-binding #{val -ANAU$bmvAmthP7L7xwp7E}#)) #f) #f)) #f) #f))))) - (#{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - (lambda (#{name _hoQGWMnyQPAh3k2jhWKDe}# - #{val _hoQGWMnyQPAh3k2jhWKDf}#) - (if (if (struct? #{val _hoQGWMnyQPAh3k2jhWKDf}#) - (eq? (struct-vtable #{val _hoQGWMnyQPAh3k2jhWKDf}#) + (#{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + (lambda (#{name -ANAU$bmvAmthP7L7xwp@Z}# + #{val -ANAU$bmvAmthP7L7xwp@a}#) + (if (if (struct? #{val -ANAU$bmvAmthP7L7xwp@a}#) + (eq? (struct-vtable #{val -ANAU$bmvAmthP7L7xwp@a}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWKDm}# - (struct-ref #{val _hoQGWMnyQPAh3k2jhWKDf}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKDm}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKDr}# - (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWKDe}#) - #{meta _hoQGWMnyQPAh3k2jhWKDm}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwp@h}# + (struct-ref #{val -ANAU$bmvAmthP7L7xwp@a}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp@h}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp@m}# + (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp@Z}#) + #{meta -ANAU$bmvAmthP7L7xwp@h}#))) (struct-set! - #{val _hoQGWMnyQPAh3k2jhWKDf}# + #{val -ANAU$bmvAmthP7L7xwp@a}# 1 - #{v _hoQGWMnyQPAh3k2jhWKDr}#))))))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@L}# - #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#) + #{v -ANAU$bmvAmthP7L7xwp@m}#))))))) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}# + #{fun-exp -ANAU$bmvAmthP7L7xwp7H}# + #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source _hoQGWMnyQPAh3k2jhWJ@L}# - #{fun-exp _hoQGWMnyQPAh3k2jhWJ@M}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJ@N}#))) - (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@T}# - #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# - #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# - #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#) + #{source -ANAU$bmvAmthP7L7xwp7G}# + #{fun-exp -ANAU$bmvAmthP7L7xwp7H}# + #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#))) + (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7O}# + #{test-exp -ANAU$bmvAmthP7L7xwp7P}# + #{then-exp -ANAU$bmvAmthP7L7xwp7Q}# + #{else-exp -ANAU$bmvAmthP7L7xwp7R}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source _hoQGWMnyQPAh3k2jhWJ@T}# - #{test-exp _hoQGWMnyQPAh3k2jhWJ@U}# - #{then-exp _hoQGWMnyQPAh3k2jhWJ@V}# - #{else-exp _hoQGWMnyQPAh3k2jhWJ@W}#))) - (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@d}# - #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# - #{vals _hoQGWMnyQPAh3k2jhWJ@f}# - #{body _hoQGWMnyQPAh3k2jhWJ@g}#) + #{source -ANAU$bmvAmthP7L7xwp7O}# + #{test-exp -ANAU$bmvAmthP7L7xwp7P}# + #{then-exp -ANAU$bmvAmthP7L7xwp7Q}# + #{else-exp -ANAU$bmvAmthP7L7xwp7R}#))) + (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7Y}# + #{fluids -ANAU$bmvAmthP7L7xwp7Z}# + #{vals -ANAU$bmvAmthP7L7xwp7a}# + #{body -ANAU$bmvAmthP7L7xwp7b}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source _hoQGWMnyQPAh3k2jhWJ@d}# - #{fluids _hoQGWMnyQPAh3k2jhWJ@e}# - #{vals _hoQGWMnyQPAh3k2jhWJ@f}# - #{body _hoQGWMnyQPAh3k2jhWJ@g}#))) - (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# - (lambda (#{type _hoQGWMnyQPAh3k2jhWMnx}# - #{source _hoQGWMnyQPAh3k2jhWMny}# - #{name _hoQGWMnyQPAh3k2jhWMnz}# - #{var _hoQGWMnyQPAh3k2jhWMn0}#) + #{source -ANAU$bmvAmthP7L7xwp7Y}# + #{fluids -ANAU$bmvAmthP7L7xwp7Z}# + #{vals -ANAU$bmvAmthP7L7xwp7a}# + #{body -ANAU$bmvAmthP7L7xwp7b}#))) + (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}# + (lambda (#{type -ANAU$bmvAmthP7L7xwsuS}# + #{source -ANAU$bmvAmthP7L7xwsuT}# + #{name -ANAU$bmvAmthP7L7xwsuU}# + #{var -ANAU$bmvAmthP7L7xwsuV}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source _hoQGWMnyQPAh3k2jhWMny}# - #{name _hoQGWMnyQPAh3k2jhWMnz}# - #{var _hoQGWMnyQPAh3k2jhWMn0}#))) - (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWJ@n}# - #{name _hoQGWMnyQPAh3k2jhWJ@o}# - #{var _hoQGWMnyQPAh3k2jhWJ@p}# - #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) + #{source -ANAU$bmvAmthP7L7xwsuT}# + #{name -ANAU$bmvAmthP7L7xwsuU}# + #{var -ANAU$bmvAmthP7L7xwsuV}#))) + (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp7i}# + #{name -ANAU$bmvAmthP7L7xwp7j}# + #{var -ANAU$bmvAmthP7L7xwp7k}# + #{exp -ANAU$bmvAmthP7L7xwp7l}#) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWJ@q}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWJ@6}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWJ@q}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWJ@6}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKAB}# - (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWJ@o}#) - #{meta _hoQGWMnyQPAh3k2jhWJ@6}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwp71}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwp7l}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp71}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp78}# + (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwp7j}#) + #{meta -ANAU$bmvAmthP7L7xwp71}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWJ@q}# + #{exp -ANAU$bmvAmthP7L7xwp7l}# 1 - #{v _hoQGWMnyQPAh3k2jhWKAB}#))))) + #{v -ANAU$bmvAmthP7L7xwp78}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source _hoQGWMnyQPAh3k2jhWJ@n}# - #{name _hoQGWMnyQPAh3k2jhWJ@o}# - #{var _hoQGWMnyQPAh3k2jhWJ@p}# - #{exp _hoQGWMnyQPAh3k2jhWJ@q}#)))) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWMn6}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# - #{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{bare-cont _hoQGWMnyQPAh3k2jhWMn9}#) - (if (not #{mod _hoQGWMnyQPAh3k2jhWMn6}#) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#) - (let ((#{kind _hoQGWMnyQPAh3k2jhWMn$}# - (car #{mod _hoQGWMnyQPAh3k2jhWMn6}#)) - (#{mod _hoQGWMnyQPAh3k2jhWMn@}# - (cdr #{mod _hoQGWMnyQPAh3k2jhWMn6}#))) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'public) - (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# + #{source -ANAU$bmvAmthP7L7xwp7i}# + #{name -ANAU$bmvAmthP7L7xwp7j}# + #{var -ANAU$bmvAmthP7L7xwp7k}# + #{exp -ANAU$bmvAmthP7L7xwp7l}#)))) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwsub}# + #{var -ANAU$bmvAmthP7L7xwsuc}# + #{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{bare-cont -ANAU$bmvAmthP7L7xwsue}#) + (if (not #{mod -ANAU$bmvAmthP7L7xwsub}#) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#) + (let ((#{kind -ANAU$bmvAmthP7L7xwsuf}# + (car #{mod -ANAU$bmvAmthP7L7xwsub}#)) + (#{mod -ANAU$bmvAmthP7L7xwsug}# + (cdr #{mod -ANAU$bmvAmthP7L7xwsub}#))) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'public) + (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{mod -ANAU$bmvAmthP7L7xwsug}# + #{var -ANAU$bmvAmthP7L7xwsuc}# #t) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'private) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private) (if (not (equal? - #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{mod -ANAU$bmvAmthP7L7xwsug}# (module-name (current-module)))) - (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# + (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{mod -ANAU$bmvAmthP7L7xwsug}# + #{var -ANAU$bmvAmthP7L7xwsuc}# #f) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#)) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'bare) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#) - (if (eqv? #{kind _hoQGWMnyQPAh3k2jhWMn$}# 'hygiene) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#)) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'bare) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#) + (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'hygiene) (if (if (not (equal? - #{mod _hoQGWMnyQPAh3k2jhWMn@}# + #{mod -ANAU$bmvAmthP7L7xwsug}# (module-name (current-module)))) (module-variable - (resolve-module #{mod _hoQGWMnyQPAh3k2jhWMn@}#) - #{var _hoQGWMnyQPAh3k2jhWMn7}#) + (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#) + #{var -ANAU$bmvAmthP7L7xwsuc}#) #f) - (#{modref-cont _hoQGWMnyQPAh3k2jhWMn8}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}# - #{var _hoQGWMnyQPAh3k2jhWMn7}# + (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# + #{mod -ANAU$bmvAmthP7L7xwsug}# + #{var -ANAU$bmvAmthP7L7xwsuc}# #f) - (#{bare-cont _hoQGWMnyQPAh3k2jhWMn9}# - #{var _hoQGWMnyQPAh3k2jhWMn7}#)) + (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# + #{var -ANAU$bmvAmthP7L7xwsuc}#)) (syntax-violation #f "bad module kind" - #{var _hoQGWMnyQPAh3k2jhWMn7}# - #{mod _hoQGWMnyQPAh3k2jhWMn@}#))))))))) - (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWMoO}# - #{var _hoQGWMnyQPAh3k2jhWMoP}# - #{mod _hoQGWMnyQPAh3k2jhWMoQ}#) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - #{mod _hoQGWMnyQPAh3k2jhWMoQ}# - #{var _hoQGWMnyQPAh3k2jhWMoP}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWMoT}# - #{var _hoQGWMnyQPAh3k2jhWMoU}# - #{public? _hoQGWMnyQPAh3k2jhWMoV}#) + #{var -ANAU$bmvAmthP7L7xwsuc}# + #{mod -ANAU$bmvAmthP7L7xwsug}#))))))))) + (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}# + (lambda (#{source -ANAU$bmvAmthP7L7xwsuv}# + #{var -ANAU$bmvAmthP7L7xwsuw}# + #{mod -ANAU$bmvAmthP7L7xwsux}#) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + #{mod -ANAU$bmvAmthP7L7xwsux}# + #{var -ANAU$bmvAmthP7L7xwsuw}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwsu0}# + #{var -ANAU$bmvAmthP7L7xwsu1}# + #{public? -ANAU$bmvAmthP7L7xwsu2}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source _hoQGWMnyQPAh3k2jhWMoO}# - #{mod _hoQGWMnyQPAh3k2jhWMoT}# - #{var _hoQGWMnyQPAh3k2jhWMoU}# - #{public? _hoQGWMnyQPAh3k2jhWMoV}#)) - (lambda (#{var _hoQGWMnyQPAh3k2jhWMod}#) + #{source -ANAU$bmvAmthP7L7xwsuv}# + #{mod -ANAU$bmvAmthP7L7xwsu0}# + #{var -ANAU$bmvAmthP7L7xwsu1}# + #{public? -ANAU$bmvAmthP7L7xwsu2}#)) + (lambda (#{var -ANAU$bmvAmthP7L7xwsu$}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source _hoQGWMnyQPAh3k2jhWMoO}# - #{var _hoQGWMnyQPAh3k2jhWMod}#))))) - (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWKAK}# - #{var _hoQGWMnyQPAh3k2jhWKAL}# - #{exp _hoQGWMnyQPAh3k2jhWKAM}# - #{mod _hoQGWMnyQPAh3k2jhWKAN}#) + #{source -ANAU$bmvAmthP7L7xwsuv}# + #{var -ANAU$bmvAmthP7L7xwsu$}#))))) + (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# + (lambda (#{source -ANAU$bmvAmthP7L7xwp8F}# + #{var -ANAU$bmvAmthP7L7xwp8G}# + #{exp -ANAU$bmvAmthP7L7xwp8H}# + #{mod -ANAU$bmvAmthP7L7xwp8I}#) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWKAM}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWKAM}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWKAd}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWKAM}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKAd}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKAk}# - (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWKAL}#) - #{meta _hoQGWMnyQPAh3k2jhWKAd}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwp8Y}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwp8H}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp8Y}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp8f}# + (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwp8G}#) + #{meta -ANAU$bmvAmthP7L7xwp8Y}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWKAM}# + #{exp -ANAU$bmvAmthP7L7xwp8H}# 1 - #{v _hoQGWMnyQPAh3k2jhWKAk}#))))) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - #{mod _hoQGWMnyQPAh3k2jhWKAN}# - #{var _hoQGWMnyQPAh3k2jhWKAL}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWKAp}# - #{var _hoQGWMnyQPAh3k2jhWKAq}# - #{public? _hoQGWMnyQPAh3k2jhWKAr}#) + #{v -ANAU$bmvAmthP7L7xwp8f}#))))) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + #{mod -ANAU$bmvAmthP7L7xwp8I}# + #{var -ANAU$bmvAmthP7L7xwp8G}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwp8k}# + #{var -ANAU$bmvAmthP7L7xwp8l}# + #{public? -ANAU$bmvAmthP7L7xwp8m}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source _hoQGWMnyQPAh3k2jhWKAK}# - #{mod _hoQGWMnyQPAh3k2jhWKAp}# - #{var _hoQGWMnyQPAh3k2jhWKAq}# - #{public? _hoQGWMnyQPAh3k2jhWKAr}# - #{exp _hoQGWMnyQPAh3k2jhWKAM}#)) - (lambda (#{var _hoQGWMnyQPAh3k2jhWKAz}#) + #{source -ANAU$bmvAmthP7L7xwp8F}# + #{mod -ANAU$bmvAmthP7L7xwp8k}# + #{var -ANAU$bmvAmthP7L7xwp8l}# + #{public? -ANAU$bmvAmthP7L7xwp8m}# + #{exp -ANAU$bmvAmthP7L7xwp8H}#)) + (lambda (#{var -ANAU$bmvAmthP7L7xwp8u}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source _hoQGWMnyQPAh3k2jhWKAK}# - #{var _hoQGWMnyQPAh3k2jhWKAz}# - #{exp _hoQGWMnyQPAh3k2jhWKAM}#)))))) - (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# - (lambda (#{source _hoQGWMnyQPAh3k2jhWMoj}# - #{var _hoQGWMnyQPAh3k2jhWMok}# - #{exp _hoQGWMnyQPAh3k2jhWMol}#) + #{source -ANAU$bmvAmthP7L7xwp8F}# + #{var -ANAU$bmvAmthP7L7xwp8u}# + #{exp -ANAU$bmvAmthP7L7xwp8H}#)))))) + (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# + (lambda (#{source -ANAU$bmvAmthP7L7xwsvE}# + #{var -ANAU$bmvAmthP7L7xwsvF}# + #{exp -ANAU$bmvAmthP7L7xwsvG}#) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWMol}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWMol}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWMo1}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWMol}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWMo1}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWMo8}# - (cons (cons 'name #{var _hoQGWMnyQPAh3k2jhWMok}#) - #{meta _hoQGWMnyQPAh3k2jhWMo1}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwsvW}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwsvG}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwsvW}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwsvd}# + (cons (cons 'name #{var -ANAU$bmvAmthP7L7xwsvF}#) + #{meta -ANAU$bmvAmthP7L7xwsvW}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWMol}# + #{exp -ANAU$bmvAmthP7L7xwsvG}# 1 - #{v _hoQGWMnyQPAh3k2jhWMo8}#))))) + #{v -ANAU$bmvAmthP7L7xwsvd}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source _hoQGWMnyQPAh3k2jhWMoj}# - #{var _hoQGWMnyQPAh3k2jhWMok}# - #{exp _hoQGWMnyQPAh3k2jhWMol}#)))) - (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKA5}# - #{req _hoQGWMnyQPAh3k2jhWKA6}# - #{rest _hoQGWMnyQPAh3k2jhWKA7}# - #{vars _hoQGWMnyQPAh3k2jhWKA8}# - #{meta _hoQGWMnyQPAh3k2jhWKA9}# - #{exp _hoQGWMnyQPAh3k2jhWKA$}#) - (let ((#{body _hoQGWMnyQPAh3k2jhWKBE}# + #{source -ANAU$bmvAmthP7L7xwsvE}# + #{var -ANAU$bmvAmthP7L7xwsvF}# + #{exp -ANAU$bmvAmthP7L7xwsvG}#)))) + (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp80}# + #{req -ANAU$bmvAmthP7L7xwp81}# + #{rest -ANAU$bmvAmthP7L7xwp82}# + #{vars -ANAU$bmvAmthP7L7xwp83}# + #{meta -ANAU$bmvAmthP7L7xwp84}# + #{exp -ANAU$bmvAmthP7L7xwp85}#) + (let ((#{body -ANAU$bmvAmthP7L7xwp8@}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _hoQGWMnyQPAh3k2jhWKA5}# - #{req _hoQGWMnyQPAh3k2jhWKA6}# + #{src -ANAU$bmvAmthP7L7xwp80}# + #{req -ANAU$bmvAmthP7L7xwp81}# #f - #{rest _hoQGWMnyQPAh3k2jhWKA7}# + #{rest -ANAU$bmvAmthP7L7xwp82}# #f '() - #{vars _hoQGWMnyQPAh3k2jhWKA8}# - #{exp _hoQGWMnyQPAh3k2jhWKA$}# + #{vars -ANAU$bmvAmthP7L7xwp83}# + #{exp -ANAU$bmvAmthP7L7xwp85}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _hoQGWMnyQPAh3k2jhWKA5}# - #{meta _hoQGWMnyQPAh3k2jhWKA9}# - #{body _hoQGWMnyQPAh3k2jhWKBE}#)))) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWMpE}# - #{exps _hoQGWMnyQPAh3k2jhWMpF}#) - (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWMpF}#)) - (car #{exps _hoQGWMnyQPAh3k2jhWMpF}#) + #{src -ANAU$bmvAmthP7L7xwp80}# + #{meta -ANAU$bmvAmthP7L7xwp84}# + #{body -ANAU$bmvAmthP7L7xwp8@}#)))) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# + (lambda (#{src -ANAU$bmvAmthP7L7xwsvl}# + #{exps -ANAU$bmvAmthP7L7xwsvm}#) + (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwsvm}#)) + (car #{exps -ANAU$bmvAmthP7L7xwsvm}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src _hoQGWMnyQPAh3k2jhWMpE}# - #{exps _hoQGWMnyQPAh3k2jhWMpF}#)))) - (#{build-let _hoQGWMnyQPAh3k2jhWHSv}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKBQ}# - #{ids _hoQGWMnyQPAh3k2jhWKBR}# - #{vars _hoQGWMnyQPAh3k2jhWKBS}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#) + #{src -ANAU$bmvAmthP7L7xwsvl}# + #{exps -ANAU$bmvAmthP7L7xwsvm}#)))) + (#{build-let -ANAU$bmvAmthP7L7xwnNO}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp9L}# + #{ids -ANAU$bmvAmthP7L7xwp9M}# + #{vars -ANAU$bmvAmthP7L7xwp9N}# + #{val-exps -ANAU$bmvAmthP7L7xwp9O}# + #{body-exp -ANAU$bmvAmthP7L7xwp9P}#) (begin (for-each - #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - #{ids _hoQGWMnyQPAh3k2jhWKBR}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBT}#) - (if (null? #{vars _hoQGWMnyQPAh3k2jhWKBS}#) - #{body-exp _hoQGWMnyQPAh3k2jhWKBU}# + #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + #{ids -ANAU$bmvAmthP7L7xwp9M}# + #{val-exps -ANAU$bmvAmthP7L7xwp9O}#) + (if (null? #{vars -ANAU$bmvAmthP7L7xwp9N}#) + #{body-exp -ANAU$bmvAmthP7L7xwp9P}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src _hoQGWMnyQPAh3k2jhWKBQ}# - #{ids _hoQGWMnyQPAh3k2jhWKBR}# - #{vars _hoQGWMnyQPAh3k2jhWKBS}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBT}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBU}#))))) - (#{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKBs}# - #{ids _hoQGWMnyQPAh3k2jhWKBt}# - #{vars _hoQGWMnyQPAh3k2jhWKBu}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBv}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBw}#) - (let ((#{f _hoQGWMnyQPAh3k2jhWKBx}# - (car #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) - (#{f-name _hoQGWMnyQPAh3k2jhWKBy}# - (car #{ids _hoQGWMnyQPAh3k2jhWKBt}#)) - (#{vars _hoQGWMnyQPAh3k2jhWKBz}# - (cdr #{vars _hoQGWMnyQPAh3k2jhWKBu}#)) - (#{ids _hoQGWMnyQPAh3k2jhWKB0}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKBt}#))) - (let ((#{proc _hoQGWMnyQPAh3k2jhWKB1}# - (let ((#{body _hoQGWMnyQPAh3k2jhWKCJ}# + #{src -ANAU$bmvAmthP7L7xwp9L}# + #{ids -ANAU$bmvAmthP7L7xwp9M}# + #{vars -ANAU$bmvAmthP7L7xwp9N}# + #{val-exps -ANAU$bmvAmthP7L7xwp9O}# + #{body-exp -ANAU$bmvAmthP7L7xwp9P}#))))) + (#{build-named-let -ANAU$bmvAmthP7L7xwnNP}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp9n}# + #{ids -ANAU$bmvAmthP7L7xwp9o}# + #{vars -ANAU$bmvAmthP7L7xwp9p}# + #{val-exps -ANAU$bmvAmthP7L7xwp9q}# + #{body-exp -ANAU$bmvAmthP7L7xwp9r}#) + (let ((#{f -ANAU$bmvAmthP7L7xwp9s}# + (car #{vars -ANAU$bmvAmthP7L7xwp9p}#)) + (#{f-name -ANAU$bmvAmthP7L7xwp9t}# + (car #{ids -ANAU$bmvAmthP7L7xwp9o}#)) + (#{vars -ANAU$bmvAmthP7L7xwp9u}# + (cdr #{vars -ANAU$bmvAmthP7L7xwp9p}#)) + (#{ids -ANAU$bmvAmthP7L7xwp9v}# + (cdr #{ids -ANAU$bmvAmthP7L7xwp9o}#))) + (let ((#{proc -ANAU$bmvAmthP7L7xwp9w}# + (let ((#{body -ANAU$bmvAmthP7L7xwp$E}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src _hoQGWMnyQPAh3k2jhWKBs}# - #{ids _hoQGWMnyQPAh3k2jhWKB0}# + #{src -ANAU$bmvAmthP7L7xwp9n}# + #{ids -ANAU$bmvAmthP7L7xwp9v}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWKBz}# - #{body-exp _hoQGWMnyQPAh3k2jhWKBw}# + #{vars -ANAU$bmvAmthP7L7xwp9u}# + #{body-exp -ANAU$bmvAmthP7L7xwp9r}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{src -ANAU$bmvAmthP7L7xwp9n}# '() - #{body _hoQGWMnyQPAh3k2jhWKCJ}#)))) + #{body -ANAU$bmvAmthP7L7xwp$E}#)))) (begin - (if (if (struct? #{proc _hoQGWMnyQPAh3k2jhWKB1}#) - (eq? (struct-vtable #{proc _hoQGWMnyQPAh3k2jhWKB1}#) + (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#) + (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWKCh}# - (struct-ref #{proc _hoQGWMnyQPAh3k2jhWKB1}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWKCh}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWKCo}# + (let ((#{meta -ANAU$bmvAmthP7L7xwp$c}# + (struct-ref #{proc -ANAU$bmvAmthP7L7xwp9w}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwp$c}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwp$j}# (cons (cons 'name - #{f-name _hoQGWMnyQPAh3k2jhWKBy}#) - #{meta _hoQGWMnyQPAh3k2jhWKCh}#))) + #{f-name -ANAU$bmvAmthP7L7xwp9t}#) + #{meta -ANAU$bmvAmthP7L7xwp$c}#))) (struct-set! - #{proc _hoQGWMnyQPAh3k2jhWKB1}# + #{proc -ANAU$bmvAmthP7L7xwp9w}# 1 - #{v _hoQGWMnyQPAh3k2jhWKCo}#))))) + #{v -ANAU$bmvAmthP7L7xwp$j}#))))) (for-each - #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - #{ids _hoQGWMnyQPAh3k2jhWKB0}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#) - (let ((#{names _hoQGWMnyQPAh3k2jhWKDA}# - (list #{f-name _hoQGWMnyQPAh3k2jhWKBy}#)) - (#{gensyms _hoQGWMnyQPAh3k2jhWKDB}# - (list #{f _hoQGWMnyQPAh3k2jhWKBx}#)) - (#{vals _hoQGWMnyQPAh3k2jhWKDC}# - (list #{proc _hoQGWMnyQPAh3k2jhWKB1}#)) - (#{body _hoQGWMnyQPAh3k2jhWKDD}# - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# + #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + #{ids -ANAU$bmvAmthP7L7xwp9v}# + #{val-exps -ANAU$bmvAmthP7L7xwp9q}#) + (let ((#{names -ANAU$bmvAmthP7L7xwp$7}# + (list #{f-name -ANAU$bmvAmthP7L7xwp9t}#)) + (#{gensyms -ANAU$bmvAmthP7L7xwp$8}# + (list #{f -ANAU$bmvAmthP7L7xwp9s}#)) + (#{vals -ANAU$bmvAmthP7L7xwp$9}# + (list #{proc -ANAU$bmvAmthP7L7xwp9w}#)) + (#{body -ANAU$bmvAmthP7L7xwp$$}# + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwp@C}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src _hoQGWMnyQPAh3k2jhWKBs}# - #{f-name _hoQGWMnyQPAh3k2jhWKBy}# - #{f _hoQGWMnyQPAh3k2jhWKBx}#))) + #{src -ANAU$bmvAmthP7L7xwp9n}# + #{f-name -ANAU$bmvAmthP7L7xwp9t}# + #{f -ANAU$bmvAmthP7L7xwp9s}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src _hoQGWMnyQPAh3k2jhWKBs}# - #{fun-exp _hoQGWMnyQPAh3k2jhWKDH}# - #{val-exps _hoQGWMnyQPAh3k2jhWKBv}#)))) + #{src -ANAU$bmvAmthP7L7xwp9n}# + #{fun-exp -ANAU$bmvAmthP7L7xwp@C}# + #{val-exps -ANAU$bmvAmthP7L7xwp9q}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _hoQGWMnyQPAh3k2jhWKBs}# + #{src -ANAU$bmvAmthP7L7xwp9n}# #f - #{names _hoQGWMnyQPAh3k2jhWKDA}# - #{gensyms _hoQGWMnyQPAh3k2jhWKDB}# - #{vals _hoQGWMnyQPAh3k2jhWKDC}# - #{body _hoQGWMnyQPAh3k2jhWKDD}#))))))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWKDX}# - #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# - #{ids _hoQGWMnyQPAh3k2jhWKDZ}# - #{vars _hoQGWMnyQPAh3k2jhWKDa}# - #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# - #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#) - (if (null? #{vars _hoQGWMnyQPAh3k2jhWKDa}#) - #{body-exp _hoQGWMnyQPAh3k2jhWKDc}# + #{names -ANAU$bmvAmthP7L7xwp$7}# + #{gensyms -ANAU$bmvAmthP7L7xwp$8}# + #{vals -ANAU$bmvAmthP7L7xwp$9}# + #{body -ANAU$bmvAmthP7L7xwp$$}#))))))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + (lambda (#{src -ANAU$bmvAmthP7L7xwp@S}# + #{in-order? -ANAU$bmvAmthP7L7xwp@T}# + #{ids -ANAU$bmvAmthP7L7xwp@U}# + #{vars -ANAU$bmvAmthP7L7xwp@V}# + #{val-exps -ANAU$bmvAmthP7L7xwp@W}# + #{body-exp -ANAU$bmvAmthP7L7xwp@X}#) + (if (null? #{vars -ANAU$bmvAmthP7L7xwp@V}#) + #{body-exp -ANAU$bmvAmthP7L7xwp@X}# (begin (for-each - #{maybe-name-value! _hoQGWMnyQPAh3k2jhWHSe}# - #{ids _hoQGWMnyQPAh3k2jhWKDZ}# - #{val-exps _hoQGWMnyQPAh3k2jhWKDb}#) + #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# + #{ids -ANAU$bmvAmthP7L7xwp@U}# + #{val-exps -ANAU$bmvAmthP7L7xwp@W}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src _hoQGWMnyQPAh3k2jhWKDX}# - #{in-order? _hoQGWMnyQPAh3k2jhWKDY}# - #{ids _hoQGWMnyQPAh3k2jhWKDZ}# - #{vars _hoQGWMnyQPAh3k2jhWKDa}# - #{val-exps _hoQGWMnyQPAh3k2jhWKDb}# - #{body-exp _hoQGWMnyQPAh3k2jhWKDc}#))))) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKD2}#) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKD2}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKD2}#) + #{src -ANAU$bmvAmthP7L7xwp@S}# + #{in-order? -ANAU$bmvAmthP7L7xwp@T}# + #{ids -ANAU$bmvAmthP7L7xwp@U}# + #{vars -ANAU$bmvAmthP7L7xwp@V}# + #{val-exps -ANAU$bmvAmthP7L7xwp@W}# + #{body-exp -ANAU$bmvAmthP7L7xwp@X}#))))) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (lambda (#{x -ANAU$bmvAmthP7L7xwp@x}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwp@x}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwp@x}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 0) 'syntax-object) #f) #f) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKD2}# 1)) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWKD2}#) - (let ((#{props _hoQGWMnyQPAh3k2jhWKEF}# - (source-properties #{x _hoQGWMnyQPAh3k2jhWKD2}#))) - (if (pair? #{props _hoQGWMnyQPAh3k2jhWKEF}#) - #{props _hoQGWMnyQPAh3k2jhWKEF}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwp@x}# 1)) + (if (pair? #{x -ANAU$bmvAmthP7L7xwp@x}#) + (let ((#{props -ANAU$bmvAmthP7L7xwqAA}# + (source-properties #{x -ANAU$bmvAmthP7L7xwp@x}#))) + (if (pair? #{props -ANAU$bmvAmthP7L7xwqAA}#) + #{props -ANAU$bmvAmthP7L7xwqAA}# #f)) #f)))) - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEH}# - #{bindings _hoQGWMnyQPAh3k2jhWKEI}# - #{r _hoQGWMnyQPAh3k2jhWKEJ}#) - (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEH}#) - #{r _hoQGWMnyQPAh3k2jhWKEJ}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - (cdr #{labels _hoQGWMnyQPAh3k2jhWKEH}#) - (cdr #{bindings _hoQGWMnyQPAh3k2jhWKEI}#) - (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEH}#) - (car #{bindings _hoQGWMnyQPAh3k2jhWKEI}#)) - #{r _hoQGWMnyQPAh3k2jhWKEJ}#))))) - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - (lambda (#{labels _hoQGWMnyQPAh3k2jhWKEK}# - #{vars _hoQGWMnyQPAh3k2jhWKEL}# - #{r _hoQGWMnyQPAh3k2jhWKEM}#) - (if (null? #{labels _hoQGWMnyQPAh3k2jhWKEK}#) - #{r _hoQGWMnyQPAh3k2jhWKEM}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - (cdr #{labels _hoQGWMnyQPAh3k2jhWKEK}#) - (cdr #{vars _hoQGWMnyQPAh3k2jhWKEL}#) - (cons (cons (car #{labels _hoQGWMnyQPAh3k2jhWKEK}#) + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + (lambda (#{labels -ANAU$bmvAmthP7L7xwqAC}# + #{bindings -ANAU$bmvAmthP7L7xwqAD}# + #{r -ANAU$bmvAmthP7L7xwqAE}#) + (if (null? #{labels -ANAU$bmvAmthP7L7xwqAC}#) + #{r -ANAU$bmvAmthP7L7xwqAE}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + (cdr #{labels -ANAU$bmvAmthP7L7xwqAC}#) + (cdr #{bindings -ANAU$bmvAmthP7L7xwqAD}#) + (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAC}#) + (car #{bindings -ANAU$bmvAmthP7L7xwqAD}#)) + #{r -ANAU$bmvAmthP7L7xwqAE}#))))) + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + (lambda (#{labels -ANAU$bmvAmthP7L7xwqAF}# + #{vars -ANAU$bmvAmthP7L7xwqAG}# + #{r -ANAU$bmvAmthP7L7xwqAH}#) + (if (null? #{labels -ANAU$bmvAmthP7L7xwqAF}#) + #{r -ANAU$bmvAmthP7L7xwqAH}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + (cdr #{labels -ANAU$bmvAmthP7L7xwqAF}#) + (cdr #{vars -ANAU$bmvAmthP7L7xwqAG}#) + (cons (cons (car #{labels -ANAU$bmvAmthP7L7xwqAF}#) (cons 'lexical - (car #{vars _hoQGWMnyQPAh3k2jhWKEL}#))) - #{r _hoQGWMnyQPAh3k2jhWKEM}#))))) - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - (lambda (#{r _hoQGWMnyQPAh3k2jhWKEN}#) - (if (null? #{r _hoQGWMnyQPAh3k2jhWKEN}#) + (car #{vars -ANAU$bmvAmthP7L7xwqAG}#))) + #{r -ANAU$bmvAmthP7L7xwqAH}#))))) + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#) + (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#) '() - (let ((#{a _hoQGWMnyQPAh3k2jhWKEO}# - (car #{r _hoQGWMnyQPAh3k2jhWKEN}#))) - (if (eq? (car (cdr #{a _hoQGWMnyQPAh3k2jhWKEO}#)) + (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}# + (car #{r -ANAU$bmvAmthP7L7xwqAI}#))) + (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#)) 'macro) - (cons #{a _hoQGWMnyQPAh3k2jhWKEO}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))) - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - (cdr #{r _hoQGWMnyQPAh3k2jhWKEN}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# - (lambda (#{type _hoQGWMnyQPAh3k2jhWKEQ}# - #{sym _hoQGWMnyQPAh3k2jhWKER}# - #{val _hoQGWMnyQPAh3k2jhWKES}#) + (cons #{a -ANAU$bmvAmthP7L7xwqAJ}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#))) + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + (cdr #{r -ANAU$bmvAmthP7L7xwqAI}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (lambda (#{type -ANAU$bmvAmthP7L7xwqAL}# + #{sym -ANAU$bmvAmthP7L7xwqAM}# + #{val -ANAU$bmvAmthP7L7xwqAN}#) (module-define! (current-module) - #{sym _hoQGWMnyQPAh3k2jhWKER}# + #{sym -ANAU$bmvAmthP7L7xwqAM}# (make-syntax-transformer - #{sym _hoQGWMnyQPAh3k2jhWKER}# - #{type _hoQGWMnyQPAh3k2jhWKEQ}# - #{val _hoQGWMnyQPAh3k2jhWKES}#)))) - (#{id? _hoQGWMnyQPAh3k2jhWHTB}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWIlN}#) - (if (symbol? #{x _hoQGWMnyQPAh3k2jhWIlN}#) + #{sym -ANAU$bmvAmthP7L7xwqAM}# + #{type -ANAU$bmvAmthP7L7xwqAL}# + #{val -ANAU$bmvAmthP7L7xwqAN}#)))) + (#{id? -ANAU$bmvAmthP7L7xwnNg}# + (lambda (#{x -ANAU$bmvAmthP7L7xwofs}#) + (if (symbol? #{x -ANAU$bmvAmthP7L7xwofs}#) #t - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIlN}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIlN}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWIlN}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1)) #f)))) - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (lambda (#{ls _hoQGWMnyQPAh3k2jhWKEf}#) - (if (null? #{ls _hoQGWMnyQPAh3k2jhWKEf}#) + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#) + (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#) '() - (cons (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#) - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (cdr #{ls _hoQGWMnyQPAh3k2jhWKEf}#)))))) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEg}# - #{labels _hoQGWMnyQPAh3k2jhWKEh}# - #{w _hoQGWMnyQPAh3k2jhWKEi}#) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWKEg}#) - #{w _hoQGWMnyQPAh3k2jhWKEi}# - (cons (car #{w _hoQGWMnyQPAh3k2jhWKEi}#) - (cons (let ((#{labelvec _hoQGWMnyQPAh3k2jhWKEj}# + (cons (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#) + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (cdr #{ls -ANAU$bmvAmthP7L7xwqAa}#)))))) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqAb}# + #{labels -ANAU$bmvAmthP7L7xwqAc}# + #{w -ANAU$bmvAmthP7L7xwqAd}#) + (if (null? #{ids -ANAU$bmvAmthP7L7xwqAb}#) + #{w -ANAU$bmvAmthP7L7xwqAd}# + (cons (car #{w -ANAU$bmvAmthP7L7xwqAd}#) + (cons (let ((#{labelvec -ANAU$bmvAmthP7L7xwqAe}# (list->vector - #{labels _hoQGWMnyQPAh3k2jhWKEh}#))) - (let ((#{n _hoQGWMnyQPAh3k2jhWKEk}# + #{labels -ANAU$bmvAmthP7L7xwqAc}#))) + (let ((#{n -ANAU$bmvAmthP7L7xwqAf}# (vector-length - #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))) - (let ((#{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# - (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#)) - (#{marksvec _hoQGWMnyQPAh3k2jhWKEm}# - (make-vector #{n _hoQGWMnyQPAh3k2jhWKEk}#))) + #{labelvec -ANAU$bmvAmthP7L7xwqAe}#))) + (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}# + (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)) + (#{marksvec -ANAU$bmvAmthP7L7xwqAh}# + (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))) (begin (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKEn}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKEq}# - #{i _hoQGWMnyQPAh3k2jhWKEr}#) - (if (not (null? #{ids _hoQGWMnyQPAh3k2jhWKEq}#)) + ((#{f -ANAU$bmvAmthP7L7xwqAi}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}# + #{i -ANAU$bmvAmthP7L7xwqAm}#) + (if (not (null? #{ids -ANAU$bmvAmthP7L7xwqAl}#)) (call-with-values (lambda () - (let ((#{x _hoQGWMnyQPAh3k2jhWKEu}# - (car #{ids _hoQGWMnyQPAh3k2jhWKEq}#))) + (let ((#{x -ANAU$bmvAmthP7L7xwqAp}# + (car #{ids -ANAU$bmvAmthP7L7xwqAl}#))) (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWKEu}#) + #{x -ANAU$bmvAmthP7L7xwqAp}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWKEu}#) + #{x -ANAU$bmvAmthP7L7xwqAp}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKEu}# + #{x -ANAU$bmvAmthP7L7xwqAp}# 0) 'syntax-object) #f) #f) (values (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKEu}# + #{x -ANAU$bmvAmthP7L7xwqAp}# 1) - (let ((#{m1 _hoQGWMnyQPAh3k2jhWKE$}# - (car #{w _hoQGWMnyQPAh3k2jhWKEi}#)) - (#{m2 _hoQGWMnyQPAh3k2jhWKE@}# + (let ((#{m1 -ANAU$bmvAmthP7L7xwqA5}# + (car #{w -ANAU$bmvAmthP7L7xwqAd}#)) + (#{m2 -ANAU$bmvAmthP7L7xwqA6}# (car (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKEu}# + #{x -ANAU$bmvAmthP7L7xwqAp}# 2)))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKE@}#) - #{m1 _hoQGWMnyQPAh3k2jhWKE$}# + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqA6}#) + #{m1 -ANAU$bmvAmthP7L7xwqA5}# (append - #{m1 _hoQGWMnyQPAh3k2jhWKE$}# - #{m2 _hoQGWMnyQPAh3k2jhWKE@}#)))) + #{m1 -ANAU$bmvAmthP7L7xwqA5}# + #{m2 -ANAU$bmvAmthP7L7xwqA6}#)))) (values - #{x _hoQGWMnyQPAh3k2jhWKEu}# - (car #{w _hoQGWMnyQPAh3k2jhWKEi}#))))) - (lambda (#{symname _hoQGWMnyQPAh3k2jhWKFT}# - #{marks _hoQGWMnyQPAh3k2jhWKFU}#) + #{x -ANAU$bmvAmthP7L7xwqAp}# + (car #{w -ANAU$bmvAmthP7L7xwqAd}#))))) + (lambda (#{symname -ANAU$bmvAmthP7L7xwqBO}# + #{marks -ANAU$bmvAmthP7L7xwqBP}#) (begin (vector-set! - #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# - #{i _hoQGWMnyQPAh3k2jhWKEr}# - #{symname _hoQGWMnyQPAh3k2jhWKFT}#) + #{symnamevec -ANAU$bmvAmthP7L7xwqAg}# + #{i -ANAU$bmvAmthP7L7xwqAm}# + #{symname -ANAU$bmvAmthP7L7xwqBO}#) (vector-set! - #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# - #{i _hoQGWMnyQPAh3k2jhWKEr}# - #{marks _hoQGWMnyQPAh3k2jhWKFU}#) - (#{f _hoQGWMnyQPAh3k2jhWKEn}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKEq}#) - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKEr}#))))))))) - (#{f _hoQGWMnyQPAh3k2jhWKEn}# - #{ids _hoQGWMnyQPAh3k2jhWKEg}# + #{marksvec -ANAU$bmvAmthP7L7xwqAh}# + #{i -ANAU$bmvAmthP7L7xwqAm}# + #{marks -ANAU$bmvAmthP7L7xwqBP}#) + (#{f -ANAU$bmvAmthP7L7xwqAi}# + (cdr #{ids -ANAU$bmvAmthP7L7xwqAl}#) + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqAm}#))))))))) + (#{f -ANAU$bmvAmthP7L7xwqAi}# + #{ids -ANAU$bmvAmthP7L7xwqAb}# 0)) (vector 'ribcage - #{symnamevec _hoQGWMnyQPAh3k2jhWKEl}# - #{marksvec _hoQGWMnyQPAh3k2jhWKEm}# - #{labelvec _hoQGWMnyQPAh3k2jhWKEj}#))))) - (cdr #{w _hoQGWMnyQPAh3k2jhWKEi}#)))))) - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - (lambda (#{w1 _hoQGWMnyQPAh3k2jhWKFd}# - #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) - (let ((#{m1 _hoQGWMnyQPAh3k2jhWKFf}# - (car #{w1 _hoQGWMnyQPAh3k2jhWKFd}#)) - (#{s1 _hoQGWMnyQPAh3k2jhWKFg}# - (cdr #{w1 _hoQGWMnyQPAh3k2jhWKFd}#))) - (if (null? #{m1 _hoQGWMnyQPAh3k2jhWKFf}#) - (if (null? #{s1 _hoQGWMnyQPAh3k2jhWKFg}#) - #{w2 _hoQGWMnyQPAh3k2jhWKFe}# - (cons (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#) - (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFn}# - (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFn}#) - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{symnamevec -ANAU$bmvAmthP7L7xwqAg}# + #{marksvec -ANAU$bmvAmthP7L7xwqAh}# + #{labelvec -ANAU$bmvAmthP7L7xwqAe}#))))) + (cdr #{w -ANAU$bmvAmthP7L7xwqAd}#)))))) + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + (lambda (#{w1 -ANAU$bmvAmthP7L7xwqBY}# + #{w2 -ANAU$bmvAmthP7L7xwqBZ}#) + (let ((#{m1 -ANAU$bmvAmthP7L7xwqBa}# + (car #{w1 -ANAU$bmvAmthP7L7xwqBY}#)) + (#{s1 -ANAU$bmvAmthP7L7xwqBb}# + (cdr #{w1 -ANAU$bmvAmthP7L7xwqBY}#))) + (if (null? #{m1 -ANAU$bmvAmthP7L7xwqBa}#) + (if (null? #{s1 -ANAU$bmvAmthP7L7xwqBb}#) + #{w2 -ANAU$bmvAmthP7L7xwqBZ}# + (cons (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#) + (let ((#{m2 -ANAU$bmvAmthP7L7xwqBi}# + (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBi}#) + #{s1 -ANAU$bmvAmthP7L7xwqBb}# (append - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# - #{m2 _hoQGWMnyQPAh3k2jhWKFn}#))))) - (cons (let ((#{m2 _hoQGWMnyQPAh3k2jhWKFw}# - (car #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKFw}#) - #{m1 _hoQGWMnyQPAh3k2jhWKFf}# + #{s1 -ANAU$bmvAmthP7L7xwqBb}# + #{m2 -ANAU$bmvAmthP7L7xwqBi}#))))) + (cons (let ((#{m2 -ANAU$bmvAmthP7L7xwqBr}# + (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBr}#) + #{m1 -ANAU$bmvAmthP7L7xwqBa}# (append - #{m1 _hoQGWMnyQPAh3k2jhWKFf}# - #{m2 _hoQGWMnyQPAh3k2jhWKFw}#))) - (let ((#{m2 _hoQGWMnyQPAh3k2jhWKF5}# - (cdr #{w2 _hoQGWMnyQPAh3k2jhWKFe}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKF5}#) - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# + #{m1 -ANAU$bmvAmthP7L7xwqBa}# + #{m2 -ANAU$bmvAmthP7L7xwqBr}#))) + (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}# + (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#) + #{s1 -ANAU$bmvAmthP7L7xwqBb}# (append - #{s1 _hoQGWMnyQPAh3k2jhWKFg}# - #{m2 _hoQGWMnyQPAh3k2jhWKF5}#)))))))) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKF$}# - #{y _hoQGWMnyQPAh3k2jhWKF@}#) - (if (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# - #{y _hoQGWMnyQPAh3k2jhWKF@}#) - (eq? #{x _hoQGWMnyQPAh3k2jhWKF$}# - #{y _hoQGWMnyQPAh3k2jhWKF@}#) - (if (not (null? #{x _hoQGWMnyQPAh3k2jhWKF$}#)) - (if (not (null? #{y _hoQGWMnyQPAh3k2jhWKF@}#)) - (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWKF$}#) - (car #{y _hoQGWMnyQPAh3k2jhWKF@}#)) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (cdr #{x _hoQGWMnyQPAh3k2jhWKF$}#) - (cdr #{y _hoQGWMnyQPAh3k2jhWKF@}#)) + #{s1 -ANAU$bmvAmthP7L7xwqBb}# + #{m2 -ANAU$bmvAmthP7L7xwqB0}#)))))))) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqB5}# + #{y -ANAU$bmvAmthP7L7xwqB6}#) + (if (eq? #{x -ANAU$bmvAmthP7L7xwqB5}# + #{y -ANAU$bmvAmthP7L7xwqB6}#) + (eq? #{x -ANAU$bmvAmthP7L7xwqB5}# + #{y -ANAU$bmvAmthP7L7xwqB6}#) + (if (not (null? #{x -ANAU$bmvAmthP7L7xwqB5}#)) + (if (not (null? #{y -ANAU$bmvAmthP7L7xwqB6}#)) + (if (eq? (car #{x -ANAU$bmvAmthP7L7xwqB5}#) + (car #{y -ANAU$bmvAmthP7L7xwqB6}#)) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (cdr #{x -ANAU$bmvAmthP7L7xwqB5}#) + (cdr #{y -ANAU$bmvAmthP7L7xwqB6}#)) #f) #f) #f)))) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - (lambda (#{id _hoQGWMnyQPAh3k2jhWKGH}# - #{w _hoQGWMnyQPAh3k2jhWKGI}#) + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}# + #{w -ANAU$bmvAmthP7L7xwqCD}#) (letrec* - ((#{search _hoQGWMnyQPAh3k2jhWKGJ}# - (lambda (#{sym _hoQGWMnyQPAh3k2jhWKHG}# - #{subst _hoQGWMnyQPAh3k2jhWKHH}# - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (if (null? #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - (values #f #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (let ((#{fst _hoQGWMnyQPAh3k2jhWKHJ}# - (car #{subst _hoQGWMnyQPAh3k2jhWKHH}#))) - (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 'shift) - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{sym _hoQGWMnyQPAh3k2jhWKHG}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - (cdr #{marks _hoQGWMnyQPAh3k2jhWKHI}#)) - (let ((#{symnames _hoQGWMnyQPAh3k2jhWKHL}# - (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKHJ}# 1))) - (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKHL}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWKHX}# + ((#{search -ANAU$bmvAmthP7L7xwqCE}# + (lambda (#{sym -ANAU$bmvAmthP7L7xwqDB}# + #{subst -ANAU$bmvAmthP7L7xwqDC}# + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (if (null? #{subst -ANAU$bmvAmthP7L7xwqDC}#) + (values #f #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (let ((#{fst -ANAU$bmvAmthP7L7xwqDE}# + (car #{subst -ANAU$bmvAmthP7L7xwqDC}#))) + (if (eq? #{fst -ANAU$bmvAmthP7L7xwqDE}# 'shift) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{sym -ANAU$bmvAmthP7L7xwqDB}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#) + (cdr #{marks -ANAU$bmvAmthP7L7xwqDD}#)) + (let ((#{symnames -ANAU$bmvAmthP7L7xwqDG}# + (vector-ref #{fst -ANAU$bmvAmthP7L7xwqDE}# 1))) + (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqDG}#) + (let ((#{n -ANAU$bmvAmthP7L7xwqDS}# (vector-length - #{symnames _hoQGWMnyQPAh3k2jhWKHL}#))) + #{symnames -ANAU$bmvAmthP7L7xwqDG}#))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKHY}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWKHa}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWKHa}# - #{n _hoQGWMnyQPAh3k2jhWKHX}#) - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{sym _hoQGWMnyQPAh3k2jhWKHG}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) + ((#{f -ANAU$bmvAmthP7L7xwqDT}# + (lambda (#{i -ANAU$bmvAmthP7L7xwqDV}#) + (if (= #{i -ANAU$bmvAmthP7L7xwqDV}# + #{n -ANAU$bmvAmthP7L7xwqDS}#) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{sym -ANAU$bmvAmthP7L7xwqDB}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) (if (if (eq? (vector-ref - #{symnames _hoQGWMnyQPAh3k2jhWKHL}# - #{i _hoQGWMnyQPAh3k2jhWKHa}#) - #{sym _hoQGWMnyQPAh3k2jhWKHG}#) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - #{marks _hoQGWMnyQPAh3k2jhWKHI}# + #{symnames -ANAU$bmvAmthP7L7xwqDG}# + #{i -ANAU$bmvAmthP7L7xwqDV}#) + #{sym -ANAU$bmvAmthP7L7xwqDB}#) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + #{marks -ANAU$bmvAmthP7L7xwqDD}# (vector-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 2) - #{i _hoQGWMnyQPAh3k2jhWKHa}#)) + #{i -ANAU$bmvAmthP7L7xwqDV}#)) #f) (values (vector-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 3) - #{i _hoQGWMnyQPAh3k2jhWKHa}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (#{f _hoQGWMnyQPAh3k2jhWKHY}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKHa}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWKHY}# 0))) + #{i -ANAU$bmvAmthP7L7xwqDV}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (#{f -ANAU$bmvAmthP7L7xwqDT}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqDV}#))))))) + (#{f -ANAU$bmvAmthP7L7xwqDT}# 0))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKH7}# - (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKH9}# - #{i _hoQGWMnyQPAh3k2jhWKH$}#) - (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{sym _hoQGWMnyQPAh3k2jhWKHG}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKHH}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (if (if (eq? (car #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) - #{sym _hoQGWMnyQPAh3k2jhWKHG}#) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - #{marks _hoQGWMnyQPAh3k2jhWKHI}# + ((#{f -ANAU$bmvAmthP7L7xwqD2}# + (lambda (#{symnames -ANAU$bmvAmthP7L7xwqD4}# + #{i -ANAU$bmvAmthP7L7xwqD5}#) + (if (null? #{symnames -ANAU$bmvAmthP7L7xwqD4}#) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{sym -ANAU$bmvAmthP7L7xwqDB}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqDC}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (if (if (eq? (car #{symnames -ANAU$bmvAmthP7L7xwqD4}#) + #{sym -ANAU$bmvAmthP7L7xwqDB}#) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + #{marks -ANAU$bmvAmthP7L7xwqDD}# (list-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 2) - #{i _hoQGWMnyQPAh3k2jhWKH$}#)) + #{i -ANAU$bmvAmthP7L7xwqD5}#)) #f) (values (list-ref (vector-ref - #{fst _hoQGWMnyQPAh3k2jhWKHJ}# + #{fst -ANAU$bmvAmthP7L7xwqDE}# 3) - #{i _hoQGWMnyQPAh3k2jhWKH$}#) - #{marks _hoQGWMnyQPAh3k2jhWKHI}#) - (#{f _hoQGWMnyQPAh3k2jhWKH7}# - (cdr #{symnames _hoQGWMnyQPAh3k2jhWKH9}#) - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKH$}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWKH7}# - #{symnames _hoQGWMnyQPAh3k2jhWKHL}# + #{i -ANAU$bmvAmthP7L7xwqD5}#) + #{marks -ANAU$bmvAmthP7L7xwqDD}#) + (#{f -ANAU$bmvAmthP7L7xwqD2}# + (cdr #{symnames -ANAU$bmvAmthP7L7xwqD4}#) + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqD5}#))))))) + (#{f -ANAU$bmvAmthP7L7xwqD2}# + #{symnames -ANAU$bmvAmthP7L7xwqDG}# 0)))))))))) - (if (symbol? #{id _hoQGWMnyQPAh3k2jhWKGH}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWKGM}# - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{id _hoQGWMnyQPAh3k2jhWKGH}# - (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) - (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)))) - (if #{t _hoQGWMnyQPAh3k2jhWKGM}# - #{t _hoQGWMnyQPAh3k2jhWKGM}# - #{id _hoQGWMnyQPAh3k2jhWKGH}#)) - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWKGH}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWKGH}#) + (if (symbol? #{id -ANAU$bmvAmthP7L7xwqCC}#) + (let ((#{t -ANAU$bmvAmthP7L7xwqCH}# + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{id -ANAU$bmvAmthP7L7xwqCC}# + (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#) + (car #{w -ANAU$bmvAmthP7L7xwqCD}#)))) + (if #{t -ANAU$bmvAmthP7L7xwqCH}# + #{t -ANAU$bmvAmthP7L7xwqCH}# + #{id -ANAU$bmvAmthP7L7xwqCC}#)) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwqCC}#) + (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwqCC}#) 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 0) + (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 0) 'syntax-object) #f) #f) - (let ((#{id _hoQGWMnyQPAh3k2jhWKGb}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 1)) - (#{w1 _hoQGWMnyQPAh3k2jhWKGc}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWKGH}# 2))) - (let ((#{marks _hoQGWMnyQPAh3k2jhWKGd}# - (let ((#{m1 _hoQGWMnyQPAh3k2jhWKGn}# - (car #{w _hoQGWMnyQPAh3k2jhWKGI}#)) - (#{m2 _hoQGWMnyQPAh3k2jhWKGo}# - (car #{w1 _hoQGWMnyQPAh3k2jhWKGc}#))) - (if (null? #{m2 _hoQGWMnyQPAh3k2jhWKGo}#) - #{m1 _hoQGWMnyQPAh3k2jhWKGn}# + (let ((#{id -ANAU$bmvAmthP7L7xwqCW}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 1)) + (#{w1 -ANAU$bmvAmthP7L7xwqCX}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwqCC}# 2))) + (let ((#{marks -ANAU$bmvAmthP7L7xwqCY}# + (let ((#{m1 -ANAU$bmvAmthP7L7xwqCi}# + (car #{w -ANAU$bmvAmthP7L7xwqCD}#)) + (#{m2 -ANAU$bmvAmthP7L7xwqCj}# + (car #{w1 -ANAU$bmvAmthP7L7xwqCX}#))) + (if (null? #{m2 -ANAU$bmvAmthP7L7xwqCj}#) + #{m1 -ANAU$bmvAmthP7L7xwqCi}# (append - #{m1 _hoQGWMnyQPAh3k2jhWKGn}# - #{m2 _hoQGWMnyQPAh3k2jhWKGo}#))))) + #{m1 -ANAU$bmvAmthP7L7xwqCi}# + #{m2 -ANAU$bmvAmthP7L7xwqCj}#))))) (call-with-values (lambda () - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{id _hoQGWMnyQPAh3k2jhWKGb}# - (cdr #{w _hoQGWMnyQPAh3k2jhWKGI}#) - #{marks _hoQGWMnyQPAh3k2jhWKGd}#)) - (lambda (#{new-id _hoQGWMnyQPAh3k2jhWKG4}# - #{marks _hoQGWMnyQPAh3k2jhWKG5}#) - (if #{new-id _hoQGWMnyQPAh3k2jhWKG4}# - #{new-id _hoQGWMnyQPAh3k2jhWKG4}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKHB}# - (#{search _hoQGWMnyQPAh3k2jhWKGJ}# - #{id _hoQGWMnyQPAh3k2jhWKGb}# - (cdr #{w1 _hoQGWMnyQPAh3k2jhWKGc}#) - #{marks _hoQGWMnyQPAh3k2jhWKG5}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKHB}# - #{t _hoQGWMnyQPAh3k2jhWKHB}# - #{id _hoQGWMnyQPAh3k2jhWKGb}#))))))) + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{id -ANAU$bmvAmthP7L7xwqCW}# + (cdr #{w -ANAU$bmvAmthP7L7xwqCD}#) + #{marks -ANAU$bmvAmthP7L7xwqCY}#)) + (lambda (#{new-id -ANAU$bmvAmthP7L7xwqCz}# + #{marks -ANAU$bmvAmthP7L7xwqC0}#) + (if #{new-id -ANAU$bmvAmthP7L7xwqCz}# + #{new-id -ANAU$bmvAmthP7L7xwqCz}# + (let ((#{t -ANAU$bmvAmthP7L7xwqC8}# + (#{search -ANAU$bmvAmthP7L7xwqCE}# + #{id -ANAU$bmvAmthP7L7xwqCW}# + (cdr #{w1 -ANAU$bmvAmthP7L7xwqCX}#) + #{marks -ANAU$bmvAmthP7L7xwqC0}#))) + (if #{t -ANAU$bmvAmthP7L7xwqC8}# + #{t -ANAU$bmvAmthP7L7xwqC8}# + #{id -ANAU$bmvAmthP7L7xwqCW}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id _hoQGWMnyQPAh3k2jhWKGH}#)))))) - (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# - (lambda (#{w _hoQGWMnyQPAh3k2jhWKIU}# - #{mod _hoQGWMnyQPAh3k2jhWKIV}#) + #{id -ANAU$bmvAmthP7L7xwqCC}#)))))) + (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}# + (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}# + #{mod -ANAU$bmvAmthP7L7xwqEQ}#) (letrec* - ((#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (lambda (#{subst _hoQGWMnyQPAh3k2jhWKIb}# - #{results _hoQGWMnyQPAh3k2jhWKIc}#) - (if (null? #{subst _hoQGWMnyQPAh3k2jhWKIb}#) - #{results _hoQGWMnyQPAh3k2jhWKIc}# - (let ((#{fst _hoQGWMnyQPAh3k2jhWKId}# - (car #{subst _hoQGWMnyQPAh3k2jhWKIb}#))) - (if (eq? #{fst _hoQGWMnyQPAh3k2jhWKId}# 'shift) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKIb}#) - #{results _hoQGWMnyQPAh3k2jhWKIc}#) - (let ((#{symnames _hoQGWMnyQPAh3k2jhWKIf}# - (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 1)) - (#{marks _hoQGWMnyQPAh3k2jhWKIg}# - (vector-ref #{fst _hoQGWMnyQPAh3k2jhWKId}# 2))) - (if (vector? #{symnames _hoQGWMnyQPAh3k2jhWKIf}#) - (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# - #{subst _hoQGWMnyQPAh3k2jhWKIb}# - #{symnames _hoQGWMnyQPAh3k2jhWKIf}# - #{marks _hoQGWMnyQPAh3k2jhWKIg}# - #{results _hoQGWMnyQPAh3k2jhWKIc}#) - (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# - #{subst _hoQGWMnyQPAh3k2jhWKIb}# - #{symnames _hoQGWMnyQPAh3k2jhWKIf}# - #{marks _hoQGWMnyQPAh3k2jhWKIg}# - #{results _hoQGWMnyQPAh3k2jhWKIc}#)))))))) - (#{scan-list-rib _hoQGWMnyQPAh3k2jhWKIX}# - (lambda (#{subst _hoQGWMnyQPAh3k2jhWKKC}# - #{symnames _hoQGWMnyQPAh3k2jhWKKD}# - #{marks _hoQGWMnyQPAh3k2jhWKKE}# - #{results _hoQGWMnyQPAh3k2jhWKKF}#) + ((#{scan -ANAU$bmvAmthP7L7xwqER}# + (lambda (#{subst -ANAU$bmvAmthP7L7xwqEW}# + #{results -ANAU$bmvAmthP7L7xwqEX}#) + (if (null? #{subst -ANAU$bmvAmthP7L7xwqEW}#) + #{results -ANAU$bmvAmthP7L7xwqEX}# + (let ((#{fst -ANAU$bmvAmthP7L7xwqEY}# + (car #{subst -ANAU$bmvAmthP7L7xwqEW}#))) + (if (eq? #{fst -ANAU$bmvAmthP7L7xwqEY}# 'shift) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqEW}#) + #{results -ANAU$bmvAmthP7L7xwqEX}#) + (let ((#{symnames -ANAU$bmvAmthP7L7xwqEa}# + (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 1)) + (#{marks -ANAU$bmvAmthP7L7xwqEb}# + (vector-ref #{fst -ANAU$bmvAmthP7L7xwqEY}# 2))) + (if (vector? #{symnames -ANAU$bmvAmthP7L7xwqEa}#) + (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}# + #{subst -ANAU$bmvAmthP7L7xwqEW}# + #{symnames -ANAU$bmvAmthP7L7xwqEa}# + #{marks -ANAU$bmvAmthP7L7xwqEb}# + #{results -ANAU$bmvAmthP7L7xwqEX}#) + (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}# + #{subst -ANAU$bmvAmthP7L7xwqEW}# + #{symnames -ANAU$bmvAmthP7L7xwqEa}# + #{marks -ANAU$bmvAmthP7L7xwqEb}# + #{results -ANAU$bmvAmthP7L7xwqEX}#)))))))) + (#{scan-list-rib -ANAU$bmvAmthP7L7xwqES}# + (lambda (#{subst -ANAU$bmvAmthP7L7xwqF9}# + #{symnames -ANAU$bmvAmthP7L7xwqF$}# + #{marks -ANAU$bmvAmthP7L7xwqF@}# + #{results -ANAU$bmvAmthP7L7xwqGA}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKKG}# - (lambda (#{symnames _hoQGWMnyQPAh3k2jhWKLq}# - #{marks _hoQGWMnyQPAh3k2jhWKLr}# - #{results _hoQGWMnyQPAh3k2jhWKLs}#) - (if (null? #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKKC}#) - #{results _hoQGWMnyQPAh3k2jhWKLs}#) - (#{f _hoQGWMnyQPAh3k2jhWKKG}# - (cdr #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) - (cdr #{marks _hoQGWMnyQPAh3k2jhWKLr}#) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{symnames _hoQGWMnyQPAh3k2jhWKLq}#) - (let ((#{w _hoQGWMnyQPAh3k2jhWKL0}# - (cons (car #{marks _hoQGWMnyQPAh3k2jhWKLr}#) - #{subst _hoQGWMnyQPAh3k2jhWKKC}#))) + ((#{f -ANAU$bmvAmthP7L7xwqGB}# + (lambda (#{symnames -ANAU$bmvAmthP7L7xwqHl}# + #{marks -ANAU$bmvAmthP7L7xwqHm}# + #{results -ANAU$bmvAmthP7L7xwqHn}#) + (if (null? #{symnames -ANAU$bmvAmthP7L7xwqHl}#) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqF9}#) + #{results -ANAU$bmvAmthP7L7xwqHn}#) + (#{f -ANAU$bmvAmthP7L7xwqGB}# + (cdr #{symnames -ANAU$bmvAmthP7L7xwqHl}#) + (cdr #{marks -ANAU$bmvAmthP7L7xwqHm}#) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{symnames -ANAU$bmvAmthP7L7xwqHl}#) + (let ((#{w -ANAU$bmvAmthP7L7xwqHv}# + (cons (car #{marks -ANAU$bmvAmthP7L7xwqHm}#) + #{subst -ANAU$bmvAmthP7L7xwqF9}#))) (cons (cons #f - (car #{w _hoQGWMnyQPAh3k2jhWKL0}#)) + (car #{w -ANAU$bmvAmthP7L7xwqHv}#)) (cons 'shift - (cdr #{w _hoQGWMnyQPAh3k2jhWKL0}#)))) - #{mod _hoQGWMnyQPAh3k2jhWKIV}#) - #{results _hoQGWMnyQPAh3k2jhWKLs}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWKKG}# - #{symnames _hoQGWMnyQPAh3k2jhWKKD}# - #{marks _hoQGWMnyQPAh3k2jhWKKE}# - #{results _hoQGWMnyQPAh3k2jhWKKF}#)))) - (#{scan-vector-rib _hoQGWMnyQPAh3k2jhWKIY}# - (lambda (#{subst _hoQGWMnyQPAh3k2jhWKL1}# - #{symnames _hoQGWMnyQPAh3k2jhWKL2}# - #{marks _hoQGWMnyQPAh3k2jhWKL3}# - #{results _hoQGWMnyQPAh3k2jhWKL4}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWKL5}# + (cdr #{w -ANAU$bmvAmthP7L7xwqHv}#)))) + #{mod -ANAU$bmvAmthP7L7xwqEQ}#) + #{results -ANAU$bmvAmthP7L7xwqHn}#)))))) + (#{f -ANAU$bmvAmthP7L7xwqGB}# + #{symnames -ANAU$bmvAmthP7L7xwqF$}# + #{marks -ANAU$bmvAmthP7L7xwqF@}# + #{results -ANAU$bmvAmthP7L7xwqGA}#)))) + (#{scan-vector-rib -ANAU$bmvAmthP7L7xwqET}# + (lambda (#{subst -ANAU$bmvAmthP7L7xwqHw}# + #{symnames -ANAU$bmvAmthP7L7xwqHx}# + #{marks -ANAU$bmvAmthP7L7xwqHy}# + #{results -ANAU$bmvAmthP7L7xwqHz}#) + (let ((#{n -ANAU$bmvAmthP7L7xwqH0}# (vector-length - #{symnames _hoQGWMnyQPAh3k2jhWKL2}#))) + #{symnames -ANAU$bmvAmthP7L7xwqHx}#))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWKL6}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWKNN}# - #{results _hoQGWMnyQPAh3k2jhWKNO}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWKNN}# - #{n _hoQGWMnyQPAh3k2jhWKL5}#) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{subst _hoQGWMnyQPAh3k2jhWKL1}#) - #{results _hoQGWMnyQPAh3k2jhWKNO}#) - (#{f _hoQGWMnyQPAh3k2jhWKL6}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWKNN}#) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + ((#{f -ANAU$bmvAmthP7L7xwqH1}# + (lambda (#{i -ANAU$bmvAmthP7L7xwqJI}# + #{results -ANAU$bmvAmthP7L7xwqJJ}#) + (if (= #{i -ANAU$bmvAmthP7L7xwqJI}# + #{n -ANAU$bmvAmthP7L7xwqH0}#) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{subst -ANAU$bmvAmthP7L7xwqHw}#) + #{results -ANAU$bmvAmthP7L7xwqJJ}#) + (#{f -ANAU$bmvAmthP7L7xwqH1}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwqJI}#) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (vector-ref - #{symnames _hoQGWMnyQPAh3k2jhWKL2}# - #{i _hoQGWMnyQPAh3k2jhWKNN}#) - (let ((#{w _hoQGWMnyQPAh3k2jhWKNW}# + #{symnames -ANAU$bmvAmthP7L7xwqHx}# + #{i -ANAU$bmvAmthP7L7xwqJI}#) + (let ((#{w -ANAU$bmvAmthP7L7xwqJR}# (cons (vector-ref - #{marks _hoQGWMnyQPAh3k2jhWKL3}# - #{i _hoQGWMnyQPAh3k2jhWKNN}#) - #{subst _hoQGWMnyQPAh3k2jhWKL1}#))) + #{marks -ANAU$bmvAmthP7L7xwqHy}# + #{i -ANAU$bmvAmthP7L7xwqJI}#) + #{subst -ANAU$bmvAmthP7L7xwqHw}#))) (cons (cons #f - (car #{w _hoQGWMnyQPAh3k2jhWKNW}#)) + (car #{w -ANAU$bmvAmthP7L7xwqJR}#)) (cons 'shift - (cdr #{w _hoQGWMnyQPAh3k2jhWKNW}#)))) - #{mod _hoQGWMnyQPAh3k2jhWKIV}#) - #{results _hoQGWMnyQPAh3k2jhWKNO}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWKL6}# + (cdr #{w -ANAU$bmvAmthP7L7xwqJR}#)))) + #{mod -ANAU$bmvAmthP7L7xwqEQ}#) + #{results -ANAU$bmvAmthP7L7xwqJJ}#)))))) + (#{f -ANAU$bmvAmthP7L7xwqH1}# 0 - #{results _hoQGWMnyQPAh3k2jhWKL4}#)))))) - (#{scan _hoQGWMnyQPAh3k2jhWKIW}# - (cdr #{w _hoQGWMnyQPAh3k2jhWKIU}#) + #{results -ANAU$bmvAmthP7L7xwqHz}#)))))) + (#{scan -ANAU$bmvAmthP7L7xwqER}# + (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#) '())))) - (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKNX}#) + (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#) (if (letrec* - ((#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKP6}#) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) - (null? #{ids _hoQGWMnyQPAh3k2jhWKP6}#) - (if (let ((#{x _hoQGWMnyQPAh3k2jhWKQF}# - (car #{ids _hoQGWMnyQPAh3k2jhWKP6}#))) - (if (symbol? #{x _hoQGWMnyQPAh3k2jhWKQF}#) + ((#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqL1}#) + (if (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#) + (null? #{ids -ANAU$bmvAmthP7L7xwqL1}#) + (if (let ((#{x -ANAU$bmvAmthP7L7xwqMA}# + (car #{ids -ANAU$bmvAmthP7L7xwqL1}#))) + (if (symbol? #{x -ANAU$bmvAmthP7L7xwqMA}#) #t - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKQF}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWKQF}#) + #{x -ANAU$bmvAmthP7L7xwqMA}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKQF}# + #{x -ANAU$bmvAmthP7L7xwqMA}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKQF}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1)) #f))) - (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKP6}#)) + (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# + (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#)) #f))))) - (#{all-ids? _hoQGWMnyQPAh3k2jhWKNY}# - #{ids _hoQGWMnyQPAh3k2jhWKNX}#)) - (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - #{ids _hoQGWMnyQPAh3k2jhWKNX}#) + (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# + #{ids -ANAU$bmvAmthP7L7xwqJS}#)) + (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + #{ids -ANAU$bmvAmthP7L7xwqJS}#) #f))) - (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKSF}#) + (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#) (letrec* - ((#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# - (lambda (#{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (null? #{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (if (not (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - (car #{ids _hoQGWMnyQPAh3k2jhWKT2}#) - (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#))) - (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# - (cdr #{ids _hoQGWMnyQPAh3k2jhWKT2}#)) + ((#{distinct? -ANAU$bmvAmthP7L7xwqOB}# + (lambda (#{ids -ANAU$bmvAmthP7L7xwqPx}#) + (if (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#) + (null? #{ids -ANAU$bmvAmthP7L7xwqPx}#) + (if (not (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + (car #{ids -ANAU$bmvAmthP7L7xwqPx}#) + (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#))) + (#{distinct? -ANAU$bmvAmthP7L7xwqOB}# + (cdr #{ids -ANAU$bmvAmthP7L7xwqPx}#)) #f))))) - (#{distinct? _hoQGWMnyQPAh3k2jhWKSG}# - #{ids _hoQGWMnyQPAh3k2jhWKSF}#)))) - (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKXI}# - #{list _hoQGWMnyQPAh3k2jhWKXJ}#) - (if (not (null? #{list _hoQGWMnyQPAh3k2jhWKXJ}#)) - (let ((#{t _hoQGWMnyQPAh3k2jhWKXK}# - (let ((#{j _hoQGWMnyQPAh3k2jhWKYb}# - (car #{list _hoQGWMnyQPAh3k2jhWKXJ}#))) - (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKXI}#) + (#{distinct? -ANAU$bmvAmthP7L7xwqOB}# + #{ids -ANAU$bmvAmthP7L7xwqOA}#)))) + (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqTD}# + #{list -ANAU$bmvAmthP7L7xwqTE}#) + (if (not (null? #{list -ANAU$bmvAmthP7L7xwqTE}#)) + (let ((#{t -ANAU$bmvAmthP7L7xwqTF}# + (let ((#{j -ANAU$bmvAmthP7L7xwqUW}# + (car #{list -ANAU$bmvAmthP7L7xwqTE}#))) + (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqTD}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWKXI}#) + #{x -ANAU$bmvAmthP7L7xwqTD}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWKXI}# + #{x -ANAU$bmvAmthP7L7xwqTD}# 0) 'syntax-object) #f) #f) - (if (vector? #{j _hoQGWMnyQPAh3k2jhWKYb}#) + (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#) (if (= (vector-length - #{j _hoQGWMnyQPAh3k2jhWKYb}#) + #{j -ANAU$bmvAmthP7L7xwqUW}#) 4) - (eq? (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 0) + (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 1) - (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 1)) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWKXI}# 2)) - (car (vector-ref #{j _hoQGWMnyQPAh3k2jhWKYb}# 2))) + (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 1) + (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 1)) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (car (vector-ref #{x -ANAU$bmvAmthP7L7xwqTD}# 2)) + (car (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 2))) #f) - (eq? #{x _hoQGWMnyQPAh3k2jhWKXI}# - #{j _hoQGWMnyQPAh3k2jhWKYb}#))))) - (if #{t _hoQGWMnyQPAh3k2jhWKXK}# - #{t _hoQGWMnyQPAh3k2jhWKXK}# - (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - #{x _hoQGWMnyQPAh3k2jhWKXI}# - (cdr #{list _hoQGWMnyQPAh3k2jhWKXJ}#)))) + (eq? #{x -ANAU$bmvAmthP7L7xwqTD}# + #{j -ANAU$bmvAmthP7L7xwqUW}#))))) + (if #{t -ANAU$bmvAmthP7L7xwqTF}# + #{t -ANAU$bmvAmthP7L7xwqTF}# + (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + #{x -ANAU$bmvAmthP7L7xwqTD}# + (cdr #{list -ANAU$bmvAmthP7L7xwqTE}#)))) #f))) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKZH}# - #{w _hoQGWMnyQPAh3k2jhWKZI}# - #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#) - (if (if (null? (car #{w _hoQGWMnyQPAh3k2jhWKZI}#)) - (null? (cdr #{w _hoQGWMnyQPAh3k2jhWKZI}#)) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqVC}# + #{w -ANAU$bmvAmthP7L7xwqVD}# + #{defmod -ANAU$bmvAmthP7L7xwqVE}#) + (if (if (null? (car #{w -ANAU$bmvAmthP7L7xwqVD}#)) + (null? (cdr #{w -ANAU$bmvAmthP7L7xwqVD}#)) #f) - #{x _hoQGWMnyQPAh3k2jhWKZH}# - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWKZH}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWKZH}#) + #{x -ANAU$bmvAmthP7L7xwqVC}# + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0) 'syntax-object) #f) #f) - (let ((#{expression _hoQGWMnyQPAh3k2jhWKZX}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 1)) - (#{wrap _hoQGWMnyQPAh3k2jhWKZY}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWKZI}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 2))) - (#{module _hoQGWMnyQPAh3k2jhWKZZ}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWKZH}# 3))) + (let ((#{expression -ANAU$bmvAmthP7L7xwqVS}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 1)) + (#{wrap -ANAU$bmvAmthP7L7xwqVT}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwqVD}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 2))) + (#{module -ANAU$bmvAmthP7L7xwqVU}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 3))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWKZX}# - #{wrap _hoQGWMnyQPAh3k2jhWKZY}# - #{module _hoQGWMnyQPAh3k2jhWKZZ}#)) - (if (null? #{x _hoQGWMnyQPAh3k2jhWKZH}#) - #{x _hoQGWMnyQPAh3k2jhWKZH}# + #{expression -ANAU$bmvAmthP7L7xwqVS}# + #{wrap -ANAU$bmvAmthP7L7xwqVT}# + #{module -ANAU$bmvAmthP7L7xwqVU}#)) + (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#) + #{x -ANAU$bmvAmthP7L7xwqVC}# (vector 'syntax-object - #{x _hoQGWMnyQPAh3k2jhWKZH}# - #{w _hoQGWMnyQPAh3k2jhWKZI}# - #{defmod _hoQGWMnyQPAh3k2jhWKZJ}#)))))) - (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWKZq}# - #{w _hoQGWMnyQPAh3k2jhWKZr}# - #{s _hoQGWMnyQPAh3k2jhWKZs}# - #{defmod _hoQGWMnyQPAh3k2jhWKZt}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{x -ANAU$bmvAmthP7L7xwqVC}# + #{w -ANAU$bmvAmthP7L7xwqVD}# + #{defmod -ANAU$bmvAmthP7L7xwqVE}#)))))) + (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqVl}# + #{w -ANAU$bmvAmthP7L7xwqVm}# + #{s -ANAU$bmvAmthP7L7xwqVn}# + #{defmod -ANAU$bmvAmthP7L7xwqVo}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWKZq}#) - #{s _hoQGWMnyQPAh3k2jhWKZs}# + (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#) + #{s -ANAU$bmvAmthP7L7xwqVn}# #f) (set-source-properties! - #{x _hoQGWMnyQPAh3k2jhWKZq}# - #{s _hoQGWMnyQPAh3k2jhWKZs}#)) - #{x _hoQGWMnyQPAh3k2jhWKZq}#) - #{w _hoQGWMnyQPAh3k2jhWKZr}# - #{defmod _hoQGWMnyQPAh3k2jhWKZt}#))) - (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWMpK}# - #{r _hoQGWMnyQPAh3k2jhWMpL}# - #{w _hoQGWMnyQPAh3k2jhWMpM}# - #{s _hoQGWMnyQPAh3k2jhWMpN}# - #{mod _hoQGWMnyQPAh3k2jhWMpO}#) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# - #{s _hoQGWMnyQPAh3k2jhWMpN}# + #{x -ANAU$bmvAmthP7L7xwqVl}# + #{s -ANAU$bmvAmthP7L7xwqVn}#)) + #{x -ANAU$bmvAmthP7L7xwqVl}#) + #{w -ANAU$bmvAmthP7L7xwqVm}# + #{defmod -ANAU$bmvAmthP7L7xwqVo}#))) + (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}# + (lambda (#{body -ANAU$bmvAmthP7L7xwsvr}# + #{r -ANAU$bmvAmthP7L7xwsvs}# + #{w -ANAU$bmvAmthP7L7xwsvt}# + #{s -ANAU$bmvAmthP7L7xwsvu}# + #{mod -ANAU$bmvAmthP7L7xwsvv}#) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# + #{s -ANAU$bmvAmthP7L7xwsvu}# (letrec* - ((#{dobody _hoQGWMnyQPAh3k2jhWMqe}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWMv8}# - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMv$}# - #{mod _hoQGWMnyQPAh3k2jhWMv@}#) - (if (null? #{body _hoQGWMnyQPAh3k2jhWMv8}#) + ((#{dobody -ANAU$bmvAmthP7L7xwsw@}# + (lambda (#{body -ANAU$bmvAmthP7L7xws2d}# + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2f}# + #{mod -ANAU$bmvAmthP7L7xws2g}#) + (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#) '() - (let ((#{first _hoQGWMnyQPAh3k2jhWMwA}# - (let ((#{e _hoQGWMnyQPAh3k2jhWMwE}# - (car #{body _hoQGWMnyQPAh3k2jhWMv8}#))) + (let ((#{first -ANAU$bmvAmthP7L7xws2h}# + (let ((#{e -ANAU$bmvAmthP7L7xws2l}# + (car #{body -ANAU$bmvAmthP7L7xws2d}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWMwE}# - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMv$}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWMwE}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xws2l}# + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2f}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xws2l}#) #f - #{mod _hoQGWMnyQPAh3k2jhWMv@}# + #{mod -ANAU$bmvAmthP7L7xws2g}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWMwL}# - #{value _hoQGWMnyQPAh3k2jhWMwM}# - #{e _hoQGWMnyQPAh3k2jhWMwN}# - #{w _hoQGWMnyQPAh3k2jhWMwO}# - #{s _hoQGWMnyQPAh3k2jhWMwP}# - #{mod _hoQGWMnyQPAh3k2jhWMwQ}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWMwL}# - #{value _hoQGWMnyQPAh3k2jhWMwM}# - #{e _hoQGWMnyQPAh3k2jhWMwN}# - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMwO}# - #{s _hoQGWMnyQPAh3k2jhWMwP}# - #{mod _hoQGWMnyQPAh3k2jhWMwQ}#)))))) - (cons #{first _hoQGWMnyQPAh3k2jhWMwA}# - (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# - (cdr #{body _hoQGWMnyQPAh3k2jhWMv8}#) - #{r _hoQGWMnyQPAh3k2jhWMv9}# - #{w _hoQGWMnyQPAh3k2jhWMv$}# - #{mod _hoQGWMnyQPAh3k2jhWMv@}#))))))) - (#{dobody _hoQGWMnyQPAh3k2jhWMqe}# - #{body _hoQGWMnyQPAh3k2jhWMpK}# - #{r _hoQGWMnyQPAh3k2jhWMpL}# - #{w _hoQGWMnyQPAh3k2jhWMpM}# - #{mod _hoQGWMnyQPAh3k2jhWMpO}#))))) - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWKZ@}# - #{r _hoQGWMnyQPAh3k2jhWKaA}# - #{w _hoQGWMnyQPAh3k2jhWKaB}# - #{s _hoQGWMnyQPAh3k2jhWKaC}# - #{m _hoQGWMnyQPAh3k2jhWKaD}# - #{esew _hoQGWMnyQPAh3k2jhWKaE}# - #{mod _hoQGWMnyQPAh3k2jhWKaF}#) + (lambda (#{type -ANAU$bmvAmthP7L7xws2s}# + #{value -ANAU$bmvAmthP7L7xws2t}# + #{e -ANAU$bmvAmthP7L7xws2u}# + #{w -ANAU$bmvAmthP7L7xws2v}# + #{s -ANAU$bmvAmthP7L7xws2w}# + #{mod -ANAU$bmvAmthP7L7xws2x}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xws2s}# + #{value -ANAU$bmvAmthP7L7xws2t}# + #{e -ANAU$bmvAmthP7L7xws2u}# + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2v}# + #{s -ANAU$bmvAmthP7L7xws2w}# + #{mod -ANAU$bmvAmthP7L7xws2x}#)))))) + (cons #{first -ANAU$bmvAmthP7L7xws2h}# + (#{dobody -ANAU$bmvAmthP7L7xwsw@}# + (cdr #{body -ANAU$bmvAmthP7L7xws2d}#) + #{r -ANAU$bmvAmthP7L7xws2e}# + #{w -ANAU$bmvAmthP7L7xws2f}# + #{mod -ANAU$bmvAmthP7L7xws2g}#))))))) + (#{dobody -ANAU$bmvAmthP7L7xwsw@}# + #{body -ANAU$bmvAmthP7L7xwsvr}# + #{r -ANAU$bmvAmthP7L7xwsvs}# + #{w -ANAU$bmvAmthP7L7xwsvt}# + #{mod -ANAU$bmvAmthP7L7xwsvv}#))))) + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + (lambda (#{body -ANAU$bmvAmthP7L7xwqV6}# + #{r -ANAU$bmvAmthP7L7xwqV7}# + #{w -ANAU$bmvAmthP7L7xwqV8}# + #{s -ANAU$bmvAmthP7L7xwqV9}# + #{m -ANAU$bmvAmthP7L7xwqV$}# + #{esew -ANAU$bmvAmthP7L7xwqV@}# + #{mod -ANAU$bmvAmthP7L7xwqWA}#) (letrec* - ((#{scan _hoQGWMnyQPAh3k2jhWKaG}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWKcJ}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKcL}# - #{s _hoQGWMnyQPAh3k2jhWKcM}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKcP}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - (if (null? #{body _hoQGWMnyQPAh3k2jhWKcJ}#) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}# + ((#{scan -ANAU$bmvAmthP7L7xwqWB}# + (lambda (#{body -ANAU$bmvAmthP7L7xwqYE}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqYG}# + #{s -ANAU$bmvAmthP7L7xwqYH}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqYK}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + (if (null? #{body -ANAU$bmvAmthP7L7xwqYE}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}# (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e _hoQGWMnyQPAh3k2jhWKcR}# - (car #{body _hoQGWMnyQPAh3k2jhWKcJ}#))) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWKcR}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKcL}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKcV}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWKcR}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKcV}# - #{t _hoQGWMnyQPAh3k2jhWKcV}# - #{s _hoQGWMnyQPAh3k2jhWKcM}#)) + (let ((#{e -ANAU$bmvAmthP7L7xwqYM}# + (car #{body -ANAU$bmvAmthP7L7xwqYE}#))) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwqYM}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqYG}# + (let ((#{t -ANAU$bmvAmthP7L7xwqYQ}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwqYM}#))) + (if #{t -ANAU$bmvAmthP7L7xwqYQ}# + #{t -ANAU$bmvAmthP7L7xwqYQ}# + #{s -ANAU$bmvAmthP7L7xwqYH}#)) #f - #{mod _hoQGWMnyQPAh3k2jhWKcP}# + #{mod -ANAU$bmvAmthP7L7xwqYK}# #f))) - (lambda (#{type _hoQGWMnyQPAh3k2jhWKgA}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + (lambda (#{type -ANAU$bmvAmthP7L7xwqb7}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'begin-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgK}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwqcF}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# '(_)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWKgK}# + (if #{tmp -ANAU$bmvAmthP7L7xwqcF}# (@apply - (lambda () #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - #{tmp _hoQGWMnyQPAh3k2jhWKgK}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgO}# + (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{tmp -ANAU$bmvAmthP7L7xwqcF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# '(_ any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWKgO}# + (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWKgS}# - #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWKgS}# - #{e2 _hoQGWMnyQPAh3k2jhWKgT}#) - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - #{tmp _hoQGWMnyQPAh3k2jhWKgO}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwqcN}# + #{e2 -ANAU$bmvAmthP7L7xwqcO}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + (cons #{e1 -ANAU$bmvAmthP7L7xwqcN}# + #{e2 -ANAU$bmvAmthP7L7xwqcO}#) + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + #{tmp -ANAU$bmvAmthP7L7xwqcJ}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWKgC}#))))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{e -ANAU$bmvAmthP7L7xwqb9}#))))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'local-syntax-form) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWKgi}# - #{r _hoQGWMnyQPAh3k2jhWKgj}# - #{w _hoQGWMnyQPAh3k2jhWKgk}# - #{s _hoQGWMnyQPAh3k2jhWKgl}# - #{mod _hoQGWMnyQPAh3k2jhWKgm}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgi}# - #{r _hoQGWMnyQPAh3k2jhWKgj}# - #{w _hoQGWMnyQPAh3k2jhWKgk}# - #{s _hoQGWMnyQPAh3k2jhWKgl}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKgm}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + (lambda (#{body -ANAU$bmvAmthP7L7xwqcd}# + #{r -ANAU$bmvAmthP7L7xwqce}# + #{w -ANAU$bmvAmthP7L7xwqcf}# + #{s -ANAU$bmvAmthP7L7xwqcg}# + #{mod -ANAU$bmvAmthP7L7xwqch}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcd}# + #{r -ANAU$bmvAmthP7L7xwqce}# + #{w -ANAU$bmvAmthP7L7xwqcf}# + #{s -ANAU$bmvAmthP7L7xwqcg}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqch}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'eval-when-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWKgr}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwqcm}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWKgC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# '(_ each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWKgr}# + (if #{tmp -ANAU$bmvAmthP7L7xwqcm}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWKgv}# - #{e1 _hoQGWMnyQPAh3k2jhWKgw}# - #{e2 _hoQGWMnyQPAh3k2jhWKgx}#) - (let ((#{when-list _hoQGWMnyQPAh3k2jhWKgy}# - (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{x _hoQGWMnyQPAh3k2jhWKgv}#)) - (#{body _hoQGWMnyQPAh3k2jhWKgz}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWKgw}# - #{e2 _hoQGWMnyQPAh3k2jhWKgx}#))) - (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (lambda (#{x -ANAU$bmvAmthP7L7xwqcq}# + #{e1 -ANAU$bmvAmthP7L7xwqcr}# + #{e2 -ANAU$bmvAmthP7L7xwqcs}#) + (let ((#{when-list -ANAU$bmvAmthP7L7xwqct}# + (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{x -ANAU$bmvAmthP7L7xwqcq}#)) + (#{body -ANAU$bmvAmthP7L7xwqcu}# + (cons #{e1 -ANAU$bmvAmthP7L7xwqcr}# + #{e2 -ANAU$bmvAmthP7L7xwqcs}#))) + (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'e) (if (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# (if (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + #{when-list -ANAU$bmvAmthP7L7xwqct}#) 'c&e 'e) '(eval) - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) (begin (if (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) - (let ((#{x _hoQGWMnyQPAh3k2jhWKiA}# - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#) + (let ((#{x -ANAU$bmvAmthP7L7xwqd7}# + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'e '(eval) - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) (primitive-eval - #{x _hoQGWMnyQPAh3k2jhWKiA}#))) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) + #{x -ANAU$bmvAmthP7L7xwqd7}#))) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) (if (memq 'load - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) - (if (let ((#{t _hoQGWMnyQPAh3k2jhWKia}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#) + (if (let ((#{t -ANAU$bmvAmthP7L7xwqeV}# (memq 'compile - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKia}# - #{t _hoQGWMnyQPAh3k2jhWKia}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKjL}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqeV}# + #{t -ANAU$bmvAmthP7L7xwqeV}# + (let ((#{t -ANAU$bmvAmthP7L7xwqfG}# (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKjL}# - #{t _hoQGWMnyQPAh3k2jhWKjL}# - (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqfG}# + #{t -ANAU$bmvAmthP7L7xwqfG}# + (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e) (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + #{when-list -ANAU$bmvAmthP7L7xwqct}#) #f))))) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'c&e '(compile load) - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c) #t - (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e)) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'c '(load) - #{mod _hoQGWMnyQPAh3k2jhWKgF}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (let ((#{t _hoQGWMnyQPAh3k2jhWKlM}# + #{mod -ANAU$bmvAmthP7L7xwqcA}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + (if (let ((#{t -ANAU$bmvAmthP7L7xwqhH}# (memq 'compile - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKlM}# - #{t _hoQGWMnyQPAh3k2jhWKlM}# - (let ((#{t _hoQGWMnyQPAh3k2jhWKl9}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqhH}# + #{t -ANAU$bmvAmthP7L7xwqhH}# + (let ((#{t -ANAU$bmvAmthP7L7xwqh4}# (memq 'expand - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#))) - (if #{t _hoQGWMnyQPAh3k2jhWKl9}# - #{t _hoQGWMnyQPAh3k2jhWKl9}# - (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{when-list -ANAU$bmvAmthP7L7xwqct}#))) + (if #{t -ANAU$bmvAmthP7L7xwqh4}# + #{t -ANAU$bmvAmthP7L7xwqh4}# + (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e) (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWKgy}#) + #{when-list -ANAU$bmvAmthP7L7xwqct}#) #f))))) (begin - (let ((#{x _hoQGWMnyQPAh3k2jhWKn5}# - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - #{body _hoQGWMnyQPAh3k2jhWKgz}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# + (let ((#{x -ANAU$bmvAmthP7L7xwqj0}# + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + #{body -ANAU$bmvAmthP7L7xwqcu}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# 'e '(eval) - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) (primitive-eval - #{x _hoQGWMnyQPAh3k2jhWKn5}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWKgr}#) + #{x -ANAU$bmvAmthP7L7xwqj0}#)) + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#))))) + #{tmp -ANAU$bmvAmthP7L7xwqcm}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWKgC}#))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{e -ANAU$bmvAmthP7L7xwqb9}#))) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'define-syntax-form) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'define-syntax-parameter-form)) - (let ((#{n _hoQGWMnyQPAh3k2jhWKon}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}#)) - (#{r _hoQGWMnyQPAh3k2jhWKoo}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{r _hoQGWMnyQPAh3k2jhWKcK}#))) - (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# 'c) + (let ((#{n -ANAU$bmvAmthP7L7xwqki}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}#)) + (#{r -ANAU$bmvAmthP7L7xwqkj}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{r -ANAU$bmvAmthP7L7xwqYF}#))) + (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c) (if (memq 'compile - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWKos}# - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (let ((#{e -ANAU$bmvAmthP7L7xwqkn}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) (begin - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - #{e _hoQGWMnyQPAh3k2jhWKos}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + #{e -ANAU$bmvAmthP7L7xwqkn}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) (if (memq 'load - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (values - (cons #{e _hoQGWMnyQPAh3k2jhWKos}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (cons #{e -ANAU$bmvAmthP7L7xwqkn}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#))) (if (memq 'load - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (values - (cons (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (eqv? #{m _hoQGWMnyQPAh3k2jhWKcN}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (cons (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + (if (eqv? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e) - (let ((#{e _hoQGWMnyQPAh3k2jhWKvr}# - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) + (let ((#{e -ANAU$bmvAmthP7L7xwqup}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) (begin - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - #{e _hoQGWMnyQPAh3k2jhWKvr}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) - (values - (cons #{e _hoQGWMnyQPAh3k2jhWKvr}# - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))) + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + #{e -ANAU$bmvAmthP7L7xwqup}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) + (cons #{e -ANAU$bmvAmthP7L7xwqup}# + #{exps -ANAU$bmvAmthP7L7xwqYL}#))) (begin (if (memq 'eval - #{esew _hoQGWMnyQPAh3k2jhWKcO}#) - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - #{n _hoQGWMnyQPAh3k2jhWKon}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKoo}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) - (values - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWKgA}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}#) + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + #{n -ANAU$bmvAmthP7L7xwqki}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqkj}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# 'define-form) - (let ((#{n _hoQGWMnyQPAh3k2jhWK5m}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}#))) - (let ((#{type _hoQGWMnyQPAh3k2jhWK5n}# - (car (let ((#{t _hoQGWMnyQPAh3k2jhWK5u}# - (assq #{n _hoQGWMnyQPAh3k2jhWK5m}# - #{r _hoQGWMnyQPAh3k2jhWKcK}#))) - (if #{t _hoQGWMnyQPAh3k2jhWK5u}# - (cdr #{t _hoQGWMnyQPAh3k2jhWK5u}#) + (let ((#{n -ANAU$bmvAmthP7L7xwq5L}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}#))) + (let ((#{type -ANAU$bmvAmthP7L7xwq5M}# + (car (let ((#{t -ANAU$bmvAmthP7L7xwq5T}# + (assq #{n -ANAU$bmvAmthP7L7xwq5L}# + #{r -ANAU$bmvAmthP7L7xwqYF}#))) + (if #{t -ANAU$bmvAmthP7L7xwq5T}# + (cdr #{t -ANAU$bmvAmthP7L7xwq5T}#) (if (symbol? - #{n _hoQGWMnyQPAh3k2jhWK5m}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWK50}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWK5m}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) - (if #{t _hoQGWMnyQPAh3k2jhWK50}# - #{t _hoQGWMnyQPAh3k2jhWK50}# + #{n -ANAU$bmvAmthP7L7xwq5L}#) + (let ((#{t -ANAU$bmvAmthP7L7xwq5Z}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwq5L}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + (if #{t -ANAU$bmvAmthP7L7xwq5Z}# + #{t -ANAU$bmvAmthP7L7xwq5Z}# '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'global) #t - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'core) #t - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'macro) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'module-ref)))) (begin - (if (if (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (if (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c) #t - (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# + (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# 'c&e)) (if (not (module-local-variable (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}#)) + #{n -ANAU$bmvAmthP7L7xwq5L}#)) (current-module) #f) #f) - (let ((#{old _hoQGWMnyQPAh3k2jhWK6T}# + (let ((#{old -ANAU$bmvAmthP7L7xwq54}# (module-variable (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}#))) + #{n -ANAU$bmvAmthP7L7xwq5L}#))) (if (if (variable? - #{old _hoQGWMnyQPAh3k2jhWK6T}#) + #{old -ANAU$bmvAmthP7L7xwq54}#) (variable-bound? - #{old _hoQGWMnyQPAh3k2jhWK6T}#) + #{old -ANAU$bmvAmthP7L7xwq54}#) #f) (module-define! (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{n -ANAU$bmvAmthP7L7xwq5L}# (variable-ref - #{old _hoQGWMnyQPAh3k2jhWK6T}#)) + #{old -ANAU$bmvAmthP7L7xwq54}#)) (module-add! (current-module) - #{n _hoQGWMnyQPAh3k2jhWK5m}# + #{n -ANAU$bmvAmthP7L7xwq5L}# (make-undefined-variable))))) - (values - (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# - 'c&e) - (let ((#{x _hoQGWMnyQPAh3k2jhWK6V}# - (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{n _hoQGWMnyQPAh3k2jhWK5m}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) - (begin - (#{top-level-eval-hook _hoQGWMnyQPAh3k2jhWHSZ}# - #{x _hoQGWMnyQPAh3k2jhWK6V}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#) - #{x _hoQGWMnyQPAh3k2jhWK6V}#)) - (lambda () - (#{build-global-definition _hoQGWMnyQPAh3k2jhWHSo}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{n _hoQGWMnyQPAh3k2jhWK5m}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWK5n}# + (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# + 'c&e) + (let ((#{x -ANAU$bmvAmthP7L7xwrAx}# + (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{n -ANAU$bmvAmthP7L7xwq5L}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) + (begin + (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# + #{x -ANAU$bmvAmthP7L7xwrAx}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#) + #{x -ANAU$bmvAmthP7L7xwrAx}#)) + (lambda () + (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{n -ANAU$bmvAmthP7L7xwq5L}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))) + #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e _hoQGWMnyQPAh3k2jhWKgC}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)) + #{e -ANAU$bmvAmthP7L7xwqb9}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)) (syntax-violation #f "cannot define keyword at top level" - #{e _hoQGWMnyQPAh3k2jhWKgC}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#)))))) - (values - (cons (if (eq? #{m _hoQGWMnyQPAh3k2jhWKcN}# - 'c&e) - (let ((#{x _hoQGWMnyQPAh3k2jhWLBT}# - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWKgA}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) - (begin - (primitive-eval - #{x _hoQGWMnyQPAh3k2jhWLBT}#) - #{x _hoQGWMnyQPAh3k2jhWLBT}#)) - (lambda () - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWKgA}# - #{value _hoQGWMnyQPAh3k2jhWKgB}# - #{e _hoQGWMnyQPAh3k2jhWKgC}# - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKgD}# - #{s _hoQGWMnyQPAh3k2jhWKgE}# - #{mod _hoQGWMnyQPAh3k2jhWKgF}#))) - #{exps _hoQGWMnyQPAh3k2jhWKcQ}#)))))))))) - (lambda (#{exps _hoQGWMnyQPAh3k2jhWLBc}#) - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - (cdr #{body _hoQGWMnyQPAh3k2jhWKcJ}#) - #{r _hoQGWMnyQPAh3k2jhWKcK}# - #{w _hoQGWMnyQPAh3k2jhWKcL}# - #{s _hoQGWMnyQPAh3k2jhWKcM}# - #{m _hoQGWMnyQPAh3k2jhWKcN}# - #{esew _hoQGWMnyQPAh3k2jhWKcO}# - #{mod _hoQGWMnyQPAh3k2jhWKcP}# - #{exps _hoQGWMnyQPAh3k2jhWLBc}#))))))) + #{e -ANAU$bmvAmthP7L7xwqb9}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#)))))) + (cons (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# + 'c&e) + (let ((#{x -ANAU$bmvAmthP7L7xwrH4}# + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwqb7}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + (begin + (primitive-eval + #{x -ANAU$bmvAmthP7L7xwrH4}#) + #{x -ANAU$bmvAmthP7L7xwrH4}#)) + (lambda () + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwqb7}# + #{value -ANAU$bmvAmthP7L7xwqb8}# + #{e -ANAU$bmvAmthP7L7xwqb9}# + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqb$}# + #{s -ANAU$bmvAmthP7L7xwqb@}# + #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + #{exps -ANAU$bmvAmthP7L7xwqYL}#))))))))) + (lambda (#{exps -ANAU$bmvAmthP7L7xwrH9}#) + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + (cdr #{body -ANAU$bmvAmthP7L7xwqYE}#) + #{r -ANAU$bmvAmthP7L7xwqYF}# + #{w -ANAU$bmvAmthP7L7xwqYG}# + #{s -ANAU$bmvAmthP7L7xwqYH}# + #{m -ANAU$bmvAmthP7L7xwqYI}# + #{esew -ANAU$bmvAmthP7L7xwqYJ}# + #{mod -ANAU$bmvAmthP7L7xwqYK}# + #{exps -ANAU$bmvAmthP7L7xwrH9}#))))))) (call-with-values (lambda () - (#{scan _hoQGWMnyQPAh3k2jhWKaG}# - #{body _hoQGWMnyQPAh3k2jhWKZ@}# - #{r _hoQGWMnyQPAh3k2jhWKaA}# - #{w _hoQGWMnyQPAh3k2jhWKaB}# - #{s _hoQGWMnyQPAh3k2jhWKaC}# - #{m _hoQGWMnyQPAh3k2jhWKaD}# - #{esew _hoQGWMnyQPAh3k2jhWKaE}# - #{mod _hoQGWMnyQPAh3k2jhWKaF}# + (#{scan -ANAU$bmvAmthP7L7xwqWB}# + #{body -ANAU$bmvAmthP7L7xwqV6}# + #{r -ANAU$bmvAmthP7L7xwqV7}# + #{w -ANAU$bmvAmthP7L7xwqV8}# + #{s -ANAU$bmvAmthP7L7xwqV9}# + #{m -ANAU$bmvAmthP7L7xwqV$}# + #{esew -ANAU$bmvAmthP7L7xwqV@}# + #{mod -ANAU$bmvAmthP7L7xwqWA}# '())) - (lambda (#{exps _hoQGWMnyQPAh3k2jhWKaJ}#) - (if (null? #{exps _hoQGWMnyQPAh3k2jhWKaJ}#) + (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#) + (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s _hoQGWMnyQPAh3k2jhWKaC}#) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# - #{s _hoQGWMnyQPAh3k2jhWKaC}# + #{s -ANAU$bmvAmthP7L7xwqV9}#) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# + #{s -ANAU$bmvAmthP7L7xwqV9}# (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWKax}# - (lambda (#{in _hoQGWMnyQPAh3k2jhWKcF}# - #{out _hoQGWMnyQPAh3k2jhWKcG}#) - (if (null? #{in _hoQGWMnyQPAh3k2jhWKcF}#) - #{out _hoQGWMnyQPAh3k2jhWKcG}# - (let ((#{e _hoQGWMnyQPAh3k2jhWKcH}# - (car #{in _hoQGWMnyQPAh3k2jhWKcF}#))) - (#{lp _hoQGWMnyQPAh3k2jhWKax}# - (cdr #{in _hoQGWMnyQPAh3k2jhWKcF}#) + ((#{lp -ANAU$bmvAmthP7L7xwqWs}# + (lambda (#{in -ANAU$bmvAmthP7L7xwqYA}# + #{out -ANAU$bmvAmthP7L7xwqYB}#) + (if (null? #{in -ANAU$bmvAmthP7L7xwqYA}#) + #{out -ANAU$bmvAmthP7L7xwqYB}# + (let ((#{e -ANAU$bmvAmthP7L7xwqYC}# + (car #{in -ANAU$bmvAmthP7L7xwqYA}#))) + (#{lp -ANAU$bmvAmthP7L7xwqWs}# + (cdr #{in -ANAU$bmvAmthP7L7xwqYA}#) (cons (if (procedure? - #{e _hoQGWMnyQPAh3k2jhWKcH}#) - (#{e _hoQGWMnyQPAh3k2jhWKcH}#) - #{e _hoQGWMnyQPAh3k2jhWKcH}#) - #{out _hoQGWMnyQPAh3k2jhWKcG}#))))))) - (#{lp _hoQGWMnyQPAh3k2jhWKax}# - #{exps _hoQGWMnyQPAh3k2jhWKaJ}# + #{e -ANAU$bmvAmthP7L7xwqYC}#) + (#{e -ANAU$bmvAmthP7L7xwqYC}#) + #{e -ANAU$bmvAmthP7L7xwqYC}#) + #{out -ANAU$bmvAmthP7L7xwqYB}#))))))) + (#{lp -ANAU$bmvAmthP7L7xwqWs}# + #{exps -ANAU$bmvAmthP7L7xwqWE}# '()))))))))) - (#{expand-install-global _hoQGWMnyQPAh3k2jhWHTi}# - (lambda (#{name _hoQGWMnyQPAh3k2jhWLBd}# - #{e _hoQGWMnyQPAh3k2jhWLBe}#) - (let ((#{exp _hoQGWMnyQPAh3k2jhWLBk}# - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# + (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# + (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}# + #{e -ANAU$bmvAmthP7L7xwrH@}#) + (let ((#{exp -ANAU$bmvAmthP7L7xwrIF}# + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwrIP}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1559,416 +1547,416 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWLBv}# + (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name _hoQGWMnyQPAh3k2jhWLBd}#) + #{name -ANAU$bmvAmthP7L7xwrH$}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e _hoQGWMnyQPAh3k2jhWLBe}#))) + #{e -ANAU$bmvAmthP7L7xwrH@}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWLBu}# - #{arg-exps _hoQGWMnyQPAh3k2jhWLBv}#)))) + #{fun-exp -ANAU$bmvAmthP7L7xwrIP}# + #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#)))) (begin - (if (if (struct? #{exp _hoQGWMnyQPAh3k2jhWLBk}#) - (eq? (struct-vtable #{exp _hoQGWMnyQPAh3k2jhWLBk}#) + (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#) + (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta _hoQGWMnyQPAh3k2jhWLCY}# - (struct-ref #{exp _hoQGWMnyQPAh3k2jhWLBk}# 1))) - (if (not (assq 'name #{meta _hoQGWMnyQPAh3k2jhWLCY}#)) - (let ((#{v _hoQGWMnyQPAh3k2jhWLCf}# - (cons (cons 'name #{name _hoQGWMnyQPAh3k2jhWLBd}#) - #{meta _hoQGWMnyQPAh3k2jhWLCY}#))) + (let ((#{meta -ANAU$bmvAmthP7L7xwrI5}# + (struct-ref #{exp -ANAU$bmvAmthP7L7xwrIF}# 1))) + (if (not (assq 'name #{meta -ANAU$bmvAmthP7L7xwrI5}#)) + (let ((#{v -ANAU$bmvAmthP7L7xwrJA}# + (cons (cons 'name #{name -ANAU$bmvAmthP7L7xwrH$}#) + #{meta -ANAU$bmvAmthP7L7xwrI5}#))) (struct-set! - #{exp _hoQGWMnyQPAh3k2jhWLBk}# + #{exp -ANAU$bmvAmthP7L7xwrIF}# 1 - #{v _hoQGWMnyQPAh3k2jhWLCf}#))))) + #{v -ANAU$bmvAmthP7L7xwrJA}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name _hoQGWMnyQPAh3k2jhWLBd}# - #{exp _hoQGWMnyQPAh3k2jhWLBk}#))))) - (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWLCq}# - #{when-list _hoQGWMnyQPAh3k2jhWLCr}#) - (let ((#{result _hoQGWMnyQPAh3k2jhWLCs}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{when-list _hoQGWMnyQPAh3k2jhWLCr}# + #{name -ANAU$bmvAmthP7L7xwrH$}# + #{exp -ANAU$bmvAmthP7L7xwrIF}#))))) + (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}# + (lambda (#{e -ANAU$bmvAmthP7L7xwrJL}# + #{when-list -ANAU$bmvAmthP7L7xwrJM}#) + (let ((#{result -ANAU$bmvAmthP7L7xwrJN}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{when-list -ANAU$bmvAmthP7L7xwrJM}# '(())))) (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWLCt}# - (lambda (#{l _hoQGWMnyQPAh3k2jhWLDj}#) - (if (null? #{l _hoQGWMnyQPAh3k2jhWLDj}#) - #{result _hoQGWMnyQPAh3k2jhWLCs}# - (if (let ((#{t _hoQGWMnyQPAh3k2jhWLDl}# - (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))) - (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'compile) + ((#{lp -ANAU$bmvAmthP7L7xwrJO}# + (lambda (#{l -ANAU$bmvAmthP7L7xwrKE}#) + (if (null? #{l -ANAU$bmvAmthP7L7xwrKE}#) + #{result -ANAU$bmvAmthP7L7xwrJN}# + (if (let ((#{t -ANAU$bmvAmthP7L7xwrKG}# + (car #{l -ANAU$bmvAmthP7L7xwrKE}#))) + (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'compile) #t - (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'load) + (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load) #t - (if (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'eval) + (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval) #t - (eq? #{t _hoQGWMnyQPAh3k2jhWLDl}# 'expand))))) - (#{lp _hoQGWMnyQPAh3k2jhWLCt}# - (cdr #{l _hoQGWMnyQPAh3k2jhWLDj}#)) + (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand))))) + (#{lp -ANAU$bmvAmthP7L7xwrJO}# + (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#)) (syntax-violation 'eval-when "invalid situation" - #{e _hoQGWMnyQPAh3k2jhWLCq}# - (car #{l _hoQGWMnyQPAh3k2jhWLDj}#))))))) - (#{lp _hoQGWMnyQPAh3k2jhWLCt}# - #{result _hoQGWMnyQPAh3k2jhWLCs}#))))) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) - (if (symbol? #{e _hoQGWMnyQPAh3k2jhWLDn}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWLDu}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWLDv}# - (let ((#{t _hoQGWMnyQPAh3k2jhWLD3}# - (assq #{n _hoQGWMnyQPAh3k2jhWLDu}# - #{r _hoQGWMnyQPAh3k2jhWLDo}#))) - (if #{t _hoQGWMnyQPAh3k2jhWLD3}# - (cdr #{t _hoQGWMnyQPAh3k2jhWLD3}#) - (if (symbol? #{n _hoQGWMnyQPAh3k2jhWLDu}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWLD9}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWLDu}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))) - (if #{t _hoQGWMnyQPAh3k2jhWLD9}# - #{t _hoQGWMnyQPAh3k2jhWLD9}# + #{e -ANAU$bmvAmthP7L7xwrJL}# + (car #{l -ANAU$bmvAmthP7L7xwrKE}#))))))) + (#{lp -ANAU$bmvAmthP7L7xwrJO}# + #{result -ANAU$bmvAmthP7L7xwrJN}#))))) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (lambda (#{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) + (if (symbol? #{e -ANAU$bmvAmthP7L7xwrKI}#) + (let ((#{n -ANAU$bmvAmthP7L7xwrKP}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwrKQ}# + (let ((#{t -ANAU$bmvAmthP7L7xwrKY}# + (assq #{n -ANAU$bmvAmthP7L7xwrKP}# + #{r -ANAU$bmvAmthP7L7xwrKJ}#))) + (if #{t -ANAU$bmvAmthP7L7xwrKY}# + (cdr #{t -ANAU$bmvAmthP7L7xwrKY}#) + (if (symbol? #{n -ANAU$bmvAmthP7L7xwrKP}#) + (let ((#{t -ANAU$bmvAmthP7L7xwrKe}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwrKP}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))) + (if #{t -ANAU$bmvAmthP7L7xwrKe}# + #{t -ANAU$bmvAmthP7L7xwrKe}# '(global))) '(displaced-lexical)))))) - (let ((#{type _hoQGWMnyQPAh3k2jhWLDw}# - (car #{b _hoQGWMnyQPAh3k2jhWLDv}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'lexical) + (let ((#{type -ANAU$bmvAmthP7L7xwrKR}# + (car #{b -ANAU$bmvAmthP7L7xwrKQ}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical) (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'global) + #{type -ANAU$bmvAmthP7L7xwrKR}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'global) (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - #{n _hoQGWMnyQPAh3k2jhWLDu}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLDw}# 'macro) - (if #{for-car? _hoQGWMnyQPAh3k2jhWLDt}# + #{type -ANAU$bmvAmthP7L7xwrKR}# + #{n -ANAU$bmvAmthP7L7xwrKP}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'macro) + (if #{for-car? -ANAU$bmvAmthP7L7xwrKO}# (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{type -ANAU$bmvAmthP7L7xwrKR}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + #{r -ANAU$bmvAmthP7L7xwrKJ}# '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# #f)) (values - #{type _hoQGWMnyQPAh3k2jhWLDw}# - (cdr #{b _hoQGWMnyQPAh3k2jhWLDv}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWLDn}#) - (let ((#{first _hoQGWMnyQPAh3k2jhWLER}# - (car #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + #{type -ANAU$bmvAmthP7L7xwrKR}# + (cdr #{b -ANAU$bmvAmthP7L7xwrKQ}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))))))) + (if (pair? #{e -ANAU$bmvAmthP7L7xwrKI}#) + (let ((#{first -ANAU$bmvAmthP7L7xwrKy}# + (car #{e -ANAU$bmvAmthP7L7xwrKI}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{first _hoQGWMnyQPAh3k2jhWLER}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{first -ANAU$bmvAmthP7L7xwrKy}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# #t)) - (lambda (#{ftype _hoQGWMnyQPAh3k2jhWLET}# - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{fe _hoQGWMnyQPAh3k2jhWLEV}# - #{fw _hoQGWMnyQPAh3k2jhWLEW}# - #{fs _hoQGWMnyQPAh3k2jhWLEX}# - #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'lexical) + (lambda (#{ftype -ANAU$bmvAmthP7L7xwrK0}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{fe -ANAU$bmvAmthP7L7xwrK2}# + #{fw -ANAU$bmvAmthP7L7xwrK3}# + #{fs -ANAU$bmvAmthP7L7xwrK4}# + #{fmod -ANAU$bmvAmthP7L7xwrK5}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'lexical) (values 'lexical-call - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'global) + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'global) (values 'global-call (vector 'syntax-object - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{fmod _hoQGWMnyQPAh3k2jhWLEY}#) - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'macro) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - #{r _hoQGWMnyQPAh3k2jhWLDo}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{fmod -ANAU$bmvAmthP7L7xwrK5}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'macro) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + #{r -ANAU$bmvAmthP7L7xwrKJ}# '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}# - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrKN}# + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'module-ref) (call-with-values (lambda () - (#{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{r _hoQGWMnyQPAh3k2jhWLDo}# - #{w _hoQGWMnyQPAh3k2jhWLDp}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWLEt}# - #{r _hoQGWMnyQPAh3k2jhWLEu}# - #{w _hoQGWMnyQPAh3k2jhWLEv}# - #{s _hoQGWMnyQPAh3k2jhWLEw}# - #{mod _hoQGWMnyQPAh3k2jhWLEx}#) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLEt}# - #{r _hoQGWMnyQPAh3k2jhWLEu}# - #{w _hoQGWMnyQPAh3k2jhWLEv}# - #{s _hoQGWMnyQPAh3k2jhWLEw}# - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - #{mod _hoQGWMnyQPAh3k2jhWLEx}# - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#))) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# 'core) + (#{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{r -ANAU$bmvAmthP7L7xwrKJ}# + #{w -ANAU$bmvAmthP7L7xwrKK}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwrLO}# + #{r -ANAU$bmvAmthP7L7xwrLP}# + #{w -ANAU$bmvAmthP7L7xwrLQ}# + #{s -ANAU$bmvAmthP7L7xwrLR}# + #{mod -ANAU$bmvAmthP7L7xwrLS}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwrLO}# + #{r -ANAU$bmvAmthP7L7xwrLP}# + #{w -ANAU$bmvAmthP7L7xwrLQ}# + #{s -ANAU$bmvAmthP7L7xwrLR}# + #{rib -ANAU$bmvAmthP7L7xwrKM}# + #{mod -ANAU$bmvAmthP7L7xwrLS}# + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#))) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'core) (values 'core-form - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'local-syntax) (values 'local-syntax-form - #{fval _hoQGWMnyQPAh3k2jhWLEU}# - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{fval -ANAU$bmvAmthP7L7xwrK1}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'begin) (values 'begin-form #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'eval-when) (values 'eval-when-form #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'define) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFC}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFC}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLFG}# - #{val _hoQGWMnyQPAh3k2jhWLFH}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrLn}# + #{val -ANAU$bmvAmthP7L7xwrLo}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLFG}#) + #{name -ANAU$bmvAmthP7L7xwrLn}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLFG}#) + #{name -ANAU$bmvAmthP7L7xwrLn}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLFG}#) + #{name -ANAU$bmvAmthP7L7xwrLn}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFG}# + #{name -ANAU$bmvAmthP7L7xwrLn}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFG}# + #{name -ANAU$bmvAmthP7L7xwrLn}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) + #{tmp -ANAU$bmvAmthP7L7xwrLj}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLFi}# - #{val _hoQGWMnyQPAh3k2jhWLFj}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrMD}# + #{val -ANAU$bmvAmthP7L7xwrME}#) (values 'define-form - #{name _hoQGWMnyQPAh3k2jhWLFi}# - #{val _hoQGWMnyQPAh3k2jhWLFj}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLFC}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLFk}# + #{name -ANAU$bmvAmthP7L7xwrMD}# + #{val -ANAU$bmvAmthP7L7xwrME}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrLj}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwrMF}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ (any . any) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLFk}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrMF}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLFo}# - #{args _hoQGWMnyQPAh3k2jhWLFp}# - #{e1 _hoQGWMnyQPAh3k2jhWLFq}# - #{e2 _hoQGWMnyQPAh3k2jhWLFr}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrMJ}# + #{args -ANAU$bmvAmthP7L7xwrMK}# + #{e1 -ANAU$bmvAmthP7L7xwrML}# + #{e2 -ANAU$bmvAmthP7L7xwrMM}#) (if (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLFo}#) + #{name -ANAU$bmvAmthP7L7xwrMJ}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLFo}#) + #{name -ANAU$bmvAmthP7L7xwrMJ}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLFo}#) + #{name -ANAU$bmvAmthP7L7xwrMJ}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFo}# + #{name -ANAU$bmvAmthP7L7xwrMJ}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLFo}# + #{name -ANAU$bmvAmthP7L7xwrMJ}# 1)) #f)) - (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# + (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# (letrec* - ((#{lvl _hoQGWMnyQPAh3k2jhWLIA}# - (lambda (#{vars _hoQGWMnyQPAh3k2jhWLIC}# - #{ls _hoQGWMnyQPAh3k2jhWLID}# - #{w _hoQGWMnyQPAh3k2jhWLIE}#) - (if (pair? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# - (cdr #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - #{w _hoQGWMnyQPAh3k2jhWLIE}# + ((#{lvl -ANAU$bmvAmthP7L7xwrOh}# + (lambda (#{vars -ANAU$bmvAmthP7L7xwrOj}# + #{ls -ANAU$bmvAmthP7L7xwrOk}# + #{w -ANAU$bmvAmthP7L7xwrOl}#) + (if (pair? #{vars -ANAU$bmvAmthP7L7xwrOj}#) + (#{lvl -ANAU$bmvAmthP7L7xwrOh}# + (cdr #{vars -ANAU$bmvAmthP7L7xwrOj}#) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{w -ANAU$bmvAmthP7L7xwrOl}# #f) - #{ls _hoQGWMnyQPAh3k2jhWLID}#) - #{w _hoQGWMnyQPAh3k2jhWLIE}#) + #{ls -ANAU$bmvAmthP7L7xwrOk}#) + #{w -ANAU$bmvAmthP7L7xwrOl}#) (if (if (symbol? - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) #t (if (if (vector? - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) (if (= (vector-length - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) 4) (eq? (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 1)) #f)) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{vars _hoQGWMnyQPAh3k2jhWLIC}# - #{w _hoQGWMnyQPAh3k2jhWLIE}# + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{w -ANAU$bmvAmthP7L7xwrOl}# #f) - #{ls _hoQGWMnyQPAh3k2jhWLID}#) - (if (null? #{vars _hoQGWMnyQPAh3k2jhWLIC}#) - #{ls _hoQGWMnyQPAh3k2jhWLID}# + #{ls -ANAU$bmvAmthP7L7xwrOk}#) + (if (null? #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{ls -ANAU$bmvAmthP7L7xwrOk}# (if (if (vector? - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) (if (= (vector-length - #{vars _hoQGWMnyQPAh3k2jhWLIC}#) + #{vars -ANAU$bmvAmthP7L7xwrOj}#) 4) (eq? (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 0) 'syntax-object) #f) #f) - (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# + (#{lvl -ANAU$bmvAmthP7L7xwrOh}# (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 1) - #{ls _hoQGWMnyQPAh3k2jhWLID}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWLIE}# + #{ls -ANAU$bmvAmthP7L7xwrOk}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwrOl}# (vector-ref - #{vars _hoQGWMnyQPAh3k2jhWLIC}# + #{vars -ANAU$bmvAmthP7L7xwrOj}# 2))) - (cons #{vars _hoQGWMnyQPAh3k2jhWLIC}# - #{ls _hoQGWMnyQPAh3k2jhWLID}#)))))))) - (#{lvl _hoQGWMnyQPAh3k2jhWLIA}# - #{args _hoQGWMnyQPAh3k2jhWLFp}# + (cons #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{ls -ANAU$bmvAmthP7L7xwrOk}#)))))))) + (#{lvl -ANAU$bmvAmthP7L7xwrOh}# + #{args -ANAU$bmvAmthP7L7xwrMK}# '() '(())))) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) + #{tmp -ANAU$bmvAmthP7L7xwrMF}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLIw}# - #{args _hoQGWMnyQPAh3k2jhWLIx}# - #{e1 _hoQGWMnyQPAh3k2jhWLIy}# - #{e2 _hoQGWMnyQPAh3k2jhWLIz}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrPR}# + #{args -ANAU$bmvAmthP7L7xwrPS}# + #{e1 -ANAU$bmvAmthP7L7xwrPT}# + #{e2 -ANAU$bmvAmthP7L7xwrPU}#) (values 'define-form - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{name _hoQGWMnyQPAh3k2jhWLIw}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLI5}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{name -ANAU$bmvAmthP7L7xwrPR}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (let ((#{e -ANAU$bmvAmthP7L7xwrPa}# (cons '#(syntax-object lambda ((top) @@ -1981,10 +1969,10 @@ (top) (top) (top)) - #("29f" - "29g" - "29h" - "29i")) + #("l7" + "l8" + "l9" + "la")) #(ribcage () () @@ -2006,12 +1994,12 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () @@ -2019,7 +2007,7 @@ #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () @@ -2047,13 +2035,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -2335,146 +2323,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -2482,72 +2470,72 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile)) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (cons #{args _hoQGWMnyQPAh3k2jhWLIx}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWLIy}# - #{e2 _hoQGWMnyQPAh3k2jhWLIz}#)) - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)))) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (cons #{args -ANAU$bmvAmthP7L7xwrPS}# + (cons #{e1 -ANAU$bmvAmthP7L7xwrPT}# + #{e2 -ANAU$bmvAmthP7L7xwrPU}#)) + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLI5}#) - #{s _hoQGWMnyQPAh3k2jhWLDq}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrPa}#) + #{s -ANAU$bmvAmthP7L7xwrKL}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLI5}# - #{s _hoQGWMnyQPAh3k2jhWLDq}#)) - #{e _hoQGWMnyQPAh3k2jhWLI5}#)) + #{e -ANAU$bmvAmthP7L7xwrPa}# + #{s -ANAU$bmvAmthP7L7xwrKL}#)) + #{e -ANAU$bmvAmthP7L7xwrPa}#)) '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLFk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJA}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrMF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwrPh}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJA}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrPh}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLJE}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrPl}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLJE}#) + #{name -ANAU$bmvAmthP7L7xwrPl}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLJE}#) + #{name -ANAU$bmvAmthP7L7xwrPl}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLJE}#) + #{name -ANAU$bmvAmthP7L7xwrPl}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJE}# + #{name -ANAU$bmvAmthP7L7xwrPl}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJE}# + #{name -ANAU$bmvAmthP7L7xwrPl}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) + #{tmp -ANAU$bmvAmthP7L7xwrPh}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLJf}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrQA}#) (values 'define-form - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{name _hoQGWMnyQPAh3k2jhWLJf}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{name -ANAU$bmvAmthP7L7xwrQA}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("29k")) + #("lc")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2563,17 +2551,17 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2592,13 +2580,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -2880,146 +2868,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -3027,9 +3015,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)) #(syntax-object #f @@ -3037,7 +3023,7 @@ #(ribcage #(name) #((top)) - #("29k")) + #("lc")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3053,17 +3039,17 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3082,13 +3068,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -3370,146 +3356,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -3517,9 +3503,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)) #(syntax-object #f @@ -3527,7 +3511,7 @@ #(ribcage #(name) #((top)) - #("29k")) + #("lc")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3543,17 +3527,17 @@ (top) (top) (top)) - #("28w" - "28x" - "28y" - "28z" - "290" - "291")) + #("ko" + "kp" + "kq" + "kr" + "ks" + "kt")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("28v")) + #("kn")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3572,13 +3556,13 @@ (top) (top) (top)) - #("28l" - "28m" - "28n" - "28o" - "28p" - "28q" - "28r")) + #("kd" + "ke" + "kf" + "kg" + "kh" + "ki" + "kj")) #(ribcage (lambda-var-list gen-var @@ -3860,146 +3844,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -4007,363 +3991,361 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile))) '(()) - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLJA}#) + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrPh}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLDn}#))))))) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}#))))))) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'define-syntax) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLJy}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLJy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLJ2}# - #{val _hoQGWMnyQPAh3k2jhWLJ3}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrQX}# + #{val -ANAU$bmvAmthP7L7xwrQY}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLJ2}#) + #{name -ANAU$bmvAmthP7L7xwrQX}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLJ2}#) + #{name -ANAU$bmvAmthP7L7xwrQX}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLJ2}#) + #{name -ANAU$bmvAmthP7L7xwrQX}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJ2}# + #{name -ANAU$bmvAmthP7L7xwrQX}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLJ2}# + #{name -ANAU$bmvAmthP7L7xwrQX}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) + #{tmp -ANAU$bmvAmthP7L7xwrQT}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLKS}# - #{val _hoQGWMnyQPAh3k2jhWLKT}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrQz}# + #{val -ANAU$bmvAmthP7L7xwrQ0}#) (values 'define-syntax-form - #{name _hoQGWMnyQPAh3k2jhWLKS}# - #{val _hoQGWMnyQPAh3k2jhWLKT}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLJy}#) + #{name -ANAU$bmvAmthP7L7xwrQz}# + #{val -ANAU$bmvAmthP7L7xwrQ0}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrQT}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLDn}#))) - (if (eqv? #{ftype _hoQGWMnyQPAh3k2jhWLET}# + #{e -ANAU$bmvAmthP7L7xwrKI}#))) + (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'define-syntax-parameter) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLKe}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrQ@}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLDn}# + #{e -ANAU$bmvAmthP7L7xwrKI}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWLKe}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwrQ@}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLKi}# - #{val _hoQGWMnyQPAh3k2jhWLKj}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrRD}# + #{val -ANAU$bmvAmthP7L7xwrRE}#) (if (symbol? - #{name _hoQGWMnyQPAh3k2jhWLKi}#) + #{name -ANAU$bmvAmthP7L7xwrRD}#) #t (if (if (vector? - #{name _hoQGWMnyQPAh3k2jhWLKi}#) + #{name -ANAU$bmvAmthP7L7xwrRD}#) (if (= (vector-length - #{name _hoQGWMnyQPAh3k2jhWLKi}#) + #{name -ANAU$bmvAmthP7L7xwrRD}#) 4) (eq? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLKi}# + #{name -ANAU$bmvAmthP7L7xwrRD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name _hoQGWMnyQPAh3k2jhWLKi}# + #{name -ANAU$bmvAmthP7L7xwrRD}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) + #{tmp -ANAU$bmvAmthP7L7xwrQ@}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWLK$}# - #{val _hoQGWMnyQPAh3k2jhWLK@}#) + (lambda (#{name -ANAU$bmvAmthP7L7xwrRf}# + #{val -ANAU$bmvAmthP7L7xwrRg}#) (values 'define-syntax-parameter-form - #{name _hoQGWMnyQPAh3k2jhWLK$}# - #{val _hoQGWMnyQPAh3k2jhWLK@}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLKe}#) + #{name -ANAU$bmvAmthP7L7xwrRf}# + #{val -ANAU$bmvAmthP7L7xwrRg}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{tmp -ANAU$bmvAmthP7L7xwrQ@}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLDn}#))) + #{e -ANAU$bmvAmthP7L7xwrKI}#))) (values 'call #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))))))))))) - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWLDn}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWLDn}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))))))))))))))) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwrKI}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwrKI}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 0) 'syntax-object) #f) #f) - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 1) - #{r _hoQGWMnyQPAh3k2jhWLDo}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 2)) - (let ((#{t _hoQGWMnyQPAh3k2jhWLLa}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWLDn}#))) - (if #{t _hoQGWMnyQPAh3k2jhWLLa}# - #{t _hoQGWMnyQPAh3k2jhWLLa}# - #{s _hoQGWMnyQPAh3k2jhWLDq}#)) - #{rib _hoQGWMnyQPAh3k2jhWLDr}# - (let ((#{t _hoQGWMnyQPAh3k2jhWLPF}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWLDn}# 3))) - (if #{t _hoQGWMnyQPAh3k2jhWLPF}# - #{t _hoQGWMnyQPAh3k2jhWLPF}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#)) - #{for-car? _hoQGWMnyQPAh3k2jhWLDt}#) - (if (self-evaluating? #{e _hoQGWMnyQPAh3k2jhWLDn}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 1) + #{r -ANAU$bmvAmthP7L7xwrKJ}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 2)) + (let ((#{t -ANAU$bmvAmthP7L7xwrR7}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwrKI}#))) + (if #{t -ANAU$bmvAmthP7L7xwrR7}# + #{t -ANAU$bmvAmthP7L7xwrR7}# + #{s -ANAU$bmvAmthP7L7xwrKL}#)) + #{rib -ANAU$bmvAmthP7L7xwrKM}# + (let ((#{t -ANAU$bmvAmthP7L7xwrVm}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwrKI}# 3))) + (if #{t -ANAU$bmvAmthP7L7xwrVm}# + #{t -ANAU$bmvAmthP7L7xwrVm}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#)) + #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) + (if (self-evaluating? #{e -ANAU$bmvAmthP7L7xwrKI}#) (values 'constant #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#) (values 'other #f - #{e _hoQGWMnyQPAh3k2jhWLDn}# - #{w _hoQGWMnyQPAh3k2jhWLDp}# - #{s _hoQGWMnyQPAh3k2jhWLDq}# - #{mod _hoQGWMnyQPAh3k2jhWLDs}#))))))) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWLPO}# - #{r _hoQGWMnyQPAh3k2jhWLPP}# - #{w _hoQGWMnyQPAh3k2jhWLPQ}# - #{mod _hoQGWMnyQPAh3k2jhWLPR}#) + #{e -ANAU$bmvAmthP7L7xwrKI}# + #{w -ANAU$bmvAmthP7L7xwrKK}# + #{s -ANAU$bmvAmthP7L7xwrKL}# + #{mod -ANAU$bmvAmthP7L7xwrKN}#))))))) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (lambda (#{e -ANAU$bmvAmthP7L7xwrVv}# + #{r -ANAU$bmvAmthP7L7xwrVw}# + #{w -ANAU$bmvAmthP7L7xwrVx}# + #{mod -ANAU$bmvAmthP7L7xwrVy}#) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLPO}# - #{r _hoQGWMnyQPAh3k2jhWLPP}# - #{w _hoQGWMnyQPAh3k2jhWLPQ}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWLPO}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwrVv}# + #{r -ANAU$bmvAmthP7L7xwrVw}# + #{w -ANAU$bmvAmthP7L7xwrVx}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwrVv}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLPR}# + #{mod -ANAU$bmvAmthP7L7xwrVy}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWLRs}# - #{value _hoQGWMnyQPAh3k2jhWLRt}# - #{e _hoQGWMnyQPAh3k2jhWLRu}# - #{w _hoQGWMnyQPAh3k2jhWLRv}# - #{s _hoQGWMnyQPAh3k2jhWLRw}# - #{mod _hoQGWMnyQPAh3k2jhWLRx}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWLRs}# - #{value _hoQGWMnyQPAh3k2jhWLRt}# - #{e _hoQGWMnyQPAh3k2jhWLRu}# - #{r _hoQGWMnyQPAh3k2jhWLPP}# - #{w _hoQGWMnyQPAh3k2jhWLRv}# - #{s _hoQGWMnyQPAh3k2jhWLRw}# - #{mod _hoQGWMnyQPAh3k2jhWLRx}#))))) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - (lambda (#{type _hoQGWMnyQPAh3k2jhWLR0}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'lexical) + (lambda (#{type -ANAU$bmvAmthP7L7xwrYN}# + #{value -ANAU$bmvAmthP7L7xwrYO}# + #{e -ANAU$bmvAmthP7L7xwrYP}# + #{w -ANAU$bmvAmthP7L7xwrYQ}# + #{s -ANAU$bmvAmthP7L7xwrYR}# + #{mod -ANAU$bmvAmthP7L7xwrYS}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwrYN}# + #{value -ANAU$bmvAmthP7L7xwrYO}# + #{e -ANAU$bmvAmthP7L7xwrYP}# + #{r -ANAU$bmvAmthP7L7xwrVw}# + #{w -ANAU$bmvAmthP7L7xwrYQ}# + #{s -ANAU$bmvAmthP7L7xwrYR}# + #{mod -ANAU$bmvAmthP7L7xwrYS}#))))) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + (lambda (#{type -ANAU$bmvAmthP7L7xwrYV}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{value _hoQGWMnyQPAh3k2jhWLR1}#) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core) + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{value -ANAU$bmvAmthP7L7xwrYW}#) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'core-form)) - (#{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core-form)) + (#{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'module-ref) (call-with-values (lambda () - (#{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWLSU}# - #{r _hoQGWMnyQPAh3k2jhWLSV}# - #{w _hoQGWMnyQPAh3k2jhWLSW}# - #{s _hoQGWMnyQPAh3k2jhWLSX}# - #{mod _hoQGWMnyQPAh3k2jhWLSY}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWLSU}# - #{r _hoQGWMnyQPAh3k2jhWLSV}# - #{w _hoQGWMnyQPAh3k2jhWLSW}# - #{mod _hoQGWMnyQPAh3k2jhWLSY}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (#{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwrY1}# + #{r -ANAU$bmvAmthP7L7xwrY2}# + #{w -ANAU$bmvAmthP7L7xwrY3}# + #{s -ANAU$bmvAmthP7L7xwrY4}# + #{mod -ANAU$bmvAmthP7L7xwrY5}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwrY1}# + #{r -ANAU$bmvAmthP7L7xwrY2}# + #{w -ANAU$bmvAmthP7L7xwrY3}# + #{mod -ANAU$bmvAmthP7L7xwrY5}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'lexical-call) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (let ((#{id _hoQGWMnyQPAh3k2jhWLTj}# - (car #{e _hoQGWMnyQPAh3k2jhWLR2}#))) - (#{build-lexical-reference _hoQGWMnyQPAh3k2jhWHSj}# + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (let ((#{id -ANAU$bmvAmthP7L7xwraE}# + (car #{e -ANAU$bmvAmthP7L7xwrYX}#))) + (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}# 'fun - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{id _hoQGWMnyQPAh3k2jhWLTj}#) - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWLTj}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{id -ANAU$bmvAmthP7L7xwraE}#) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWLTj}#) + #{id -ANAU$bmvAmthP7L7xwraE}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLTj}# + #{id -ANAU$bmvAmthP7L7xwraE}# 0) 'syntax-object) #f) #f) - (syntax->datum #{id _hoQGWMnyQPAh3k2jhWLTj}#) - #{id _hoQGWMnyQPAh3k2jhWLTj}#) - #{value _hoQGWMnyQPAh3k2jhWLR1}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (syntax->datum #{id -ANAU$bmvAmthP7L7xwraE}#) + #{id -ANAU$bmvAmthP7L7xwraE}#) + #{value -ANAU$bmvAmthP7L7xwrYW}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global-call) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (#{build-global-reference _hoQGWMnyQPAh3k2jhWHSm}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (car #{e _hoQGWMnyQPAh3k2jhWLR2}#)) - (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (#{build-global-reference -ANAU$bmvAmthP7L7xwnNF}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (car #{e -ANAU$bmvAmthP7L7xwrYX}#)) + (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#) (if (= (vector-length - #{value _hoQGWMnyQPAh3k2jhWLR1}#) + #{value -ANAU$bmvAmthP7L7xwrYW}#) 4) (eq? (vector-ref - #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{value -ANAU$bmvAmthP7L7xwrYW}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 1) - #{value _hoQGWMnyQPAh3k2jhWLR1}#) - (if (if (vector? #{value _hoQGWMnyQPAh3k2jhWLR1}#) + (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1) + #{value -ANAU$bmvAmthP7L7xwrYW}#) + (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#) (if (= (vector-length - #{value _hoQGWMnyQPAh3k2jhWLR1}#) + #{value -ANAU$bmvAmthP7L7xwrYW}#) 4) (eq? (vector-ref - #{value _hoQGWMnyQPAh3k2jhWLR1}# + #{value -ANAU$bmvAmthP7L7xwrYW}# 0) 'syntax-object) #f) #f) - (vector-ref #{value _hoQGWMnyQPAh3k2jhWLR1}# 3) - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'constant) - (let ((#{exp _hoQGWMnyQPAh3k2jhWLY0}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 3) + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'constant) + (let ((#{exp -ANAU$bmvAmthP7L7xwrfV}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{exp _hoQGWMnyQPAh3k2jhWLY0}#)) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'global) - (#{analyze-variable _hoQGWMnyQPAh3k2jhWHSl}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - (lambda (#{mod _hoQGWMnyQPAh3k2jhWLZY}# - #{var _hoQGWMnyQPAh3k2jhWLZZ}# - #{public? _hoQGWMnyQPAh3k2jhWLZa}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{exp -ANAU$bmvAmthP7L7xwrfV}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'global) + (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# + #{mod -ANAU$bmvAmthP7L7xwrYb}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwrf5}# + #{var -ANAU$bmvAmthP7L7xwrf6}# + #{public? -ANAU$bmvAmthP7L7xwrf7}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLZY}# - #{var _hoQGWMnyQPAh3k2jhWLZZ}# - #{public? _hoQGWMnyQPAh3k2jhWLZa}#)) - (lambda (#{var _hoQGWMnyQPAh3k2jhWLZj}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrf5}# + #{var -ANAU$bmvAmthP7L7xwrf6}# + #{public? -ANAU$bmvAmthP7L7xwrf7}#)) + (lambda (#{var -ANAU$bmvAmthP7L7xwrgE}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{var _hoQGWMnyQPAh3k2jhWLZj}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# 'call) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (car #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{var -ANAU$bmvAmthP7L7xwrgE}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'call) + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (car #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'begin-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLau}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrhP}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{e -ANAU$bmvAmthP7L7xwrYX}# '(_ any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLau}# + (if #{tmp -ANAU$bmvAmthP7L7xwrhP}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLay}# - #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) - (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWLay}# - #{e2 _hoQGWMnyQPAh3k2jhWLaz}#) - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLau}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLcK}# + (lambda (#{e1 -ANAU$bmvAmthP7L7xwrhT}# + #{e2 -ANAU$bmvAmthP7L7xwrhU}#) + (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}# + (cons #{e1 -ANAU$bmvAmthP7L7xwrhT}# + #{e2 -ANAU$bmvAmthP7L7xwrhU}#) + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + #{tmp -ANAU$bmvAmthP7L7xwrhP}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwrir}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{e -ANAU$bmvAmthP7L7xwrYX}# '(_)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLcK}# + (if #{tmp -ANAU$bmvAmthP7L7xwrir}# (@apply (lambda () (if (include-deprecated-features) @@ -4376,914 +4358,914 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWLcK}#) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)))) + #{tmp -ANAU$bmvAmthP7L7xwrir}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLR2}#))))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}#))))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'local-syntax-form) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}# - #{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}# + #{expand-sequence -ANAU$bmvAmthP7L7xwnN@}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'eval-when-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLd5}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrka}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLR2}# + #{e -ANAU$bmvAmthP7L7xwrYX}# '(_ each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLd5}# + (if #{tmp -ANAU$bmvAmthP7L7xwrka}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWLd9}# - #{e1 _hoQGWMnyQPAh3k2jhWLd$}# - #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) - (let ((#{when-list _hoQGWMnyQPAh3k2jhWLeA}# - (#{parse-when-list _hoQGWMnyQPAh3k2jhWHTj}# - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{x _hoQGWMnyQPAh3k2jhWLd9}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwrke}# + #{e1 -ANAU$bmvAmthP7L7xwrkf}# + #{e2 -ANAU$bmvAmthP7L7xwrkg}#) + (let ((#{when-list -ANAU$bmvAmthP7L7xwrkh}# + (#{parse-when-list -ANAU$bmvAmthP7L7xwnOC}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{x -ANAU$bmvAmthP7L7xwrke}#))) (if (memq 'eval - #{when-list _hoQGWMnyQPAh3k2jhWLeA}#) - (#{expand-sequence _hoQGWMnyQPAh3k2jhWHTg}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWLd$}# - #{e2 _hoQGWMnyQPAh3k2jhWLd@}#) - #{r _hoQGWMnyQPAh3k2jhWLR3}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{s _hoQGWMnyQPAh3k2jhWLR5}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#) + #{when-list -ANAU$bmvAmthP7L7xwrkh}#) + (#{expand-sequence -ANAU$bmvAmthP7L7xwnN@}# + (cons #{e1 -ANAU$bmvAmthP7L7xwrkf}# + #{e2 -ANAU$bmvAmthP7L7xwrkg}#) + #{r -ANAU$bmvAmthP7L7xwrYY}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{s -ANAU$bmvAmthP7L7xwrYa}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp _hoQGWMnyQPAh3k2jhWLd5}#) + #{tmp -ANAU$bmvAmthP7L7xwrka}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLR2}#))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}#))) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'define-form) #t - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'define-syntax-form) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e _hoQGWMnyQPAh3k2jhWLR2}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWLR1}# - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwrYW}# + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLR0}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)) (syntax-violation #f "unexpected syntax" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{s _hoQGWMnyQPAh3k2jhWLR5}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{s -ANAU$bmvAmthP7L7xwrYa}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLR2}# - #{s _hoQGWMnyQPAh3k2jhWLR5}#)) - #{e _hoQGWMnyQPAh3k2jhWLR2}#) - #{w _hoQGWMnyQPAh3k2jhWLR4}# - #{mod _hoQGWMnyQPAh3k2jhWLR6}#)))))))))))))))))) - (#{expand-application _hoQGWMnyQPAh3k2jhWHTn}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWLhw}# - #{e _hoQGWMnyQPAh3k2jhWLhx}# - #{r _hoQGWMnyQPAh3k2jhWLhy}# - #{w _hoQGWMnyQPAh3k2jhWLhz}# - #{s _hoQGWMnyQPAh3k2jhWLh0}# - #{mod _hoQGWMnyQPAh3k2jhWLh1}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLh3}# + #{e -ANAU$bmvAmthP7L7xwrYX}# + #{s -ANAU$bmvAmthP7L7xwrYa}#)) + #{e -ANAU$bmvAmthP7L7xwrYX}#) + #{w -ANAU$bmvAmthP7L7xwrYZ}# + #{mod -ANAU$bmvAmthP7L7xwrYb}#)))))))))))))))))) + (#{expand-application -ANAU$bmvAmthP7L7xwnOG}# + (lambda (#{x -ANAU$bmvAmthP7L7xwroR}# + #{e -ANAU$bmvAmthP7L7xwroS}# + #{r -ANAU$bmvAmthP7L7xwroT}# + #{w -ANAU$bmvAmthP7L7xwroU}# + #{s -ANAU$bmvAmthP7L7xwroV}# + #{mod -ANAU$bmvAmthP7L7xwroW}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwroY}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLhx}# + #{e -ANAU$bmvAmthP7L7xwroS}# '(any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLh3}# + (if #{tmp -ANAU$bmvAmthP7L7xwroY}# (@apply - (lambda (#{e0 _hoQGWMnyQPAh3k2jhWLh7}# - #{e1 _hoQGWMnyQPAh3k2jhWLh8}#) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - #{s _hoQGWMnyQPAh3k2jhWLh0}# - #{x _hoQGWMnyQPAh3k2jhWLhw}# - (map (lambda (#{e _hoQGWMnyQPAh3k2jhWLjM}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{e _hoQGWMnyQPAh3k2jhWLjM}# - #{r _hoQGWMnyQPAh3k2jhWLhy}# - #{w _hoQGWMnyQPAh3k2jhWLhz}# - #{mod _hoQGWMnyQPAh3k2jhWLh1}#)) - #{e1 _hoQGWMnyQPAh3k2jhWLh8}#))) - #{tmp _hoQGWMnyQPAh3k2jhWLh3}#) + (lambda (#{e0 -ANAU$bmvAmthP7L7xwroc}# + #{e1 -ANAU$bmvAmthP7L7xwrod}#) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + #{s -ANAU$bmvAmthP7L7xwroV}# + #{x -ANAU$bmvAmthP7L7xwroR}# + (map (lambda (#{e -ANAU$bmvAmthP7L7xwrpt}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{e -ANAU$bmvAmthP7L7xwrpt}# + #{r -ANAU$bmvAmthP7L7xwroT}# + #{w -ANAU$bmvAmthP7L7xwroU}# + #{mod -ANAU$bmvAmthP7L7xwroW}#)) + #{e1 -ANAU$bmvAmthP7L7xwrod}#))) + #{tmp -ANAU$bmvAmthP7L7xwroY}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLhx}#))))) - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWLkY}# - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{r _hoQGWMnyQPAh3k2jhWLka}# - #{w _hoQGWMnyQPAh3k2jhWLkb}# - #{s _hoQGWMnyQPAh3k2jhWLkc}# - #{rib _hoQGWMnyQPAh3k2jhWLkd}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#) + #{e -ANAU$bmvAmthP7L7xwroS}#))))) + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + (lambda (#{p -ANAU$bmvAmthP7L7xwrq5}# + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{r -ANAU$bmvAmthP7L7xwrq7}# + #{w -ANAU$bmvAmthP7L7xwrq8}# + #{s -ANAU$bmvAmthP7L7xwrq9}# + #{rib -ANAU$bmvAmthP7L7xwrq$}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#) (letrec* - ((#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWLlA}# - #{m _hoQGWMnyQPAh3k2jhWLlB}#) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLlF}# - (cons (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (car #{x _hoQGWMnyQPAh3k2jhWLlA}#) - #{m _hoQGWMnyQPAh3k2jhWLlB}#) - (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (cdr #{x _hoQGWMnyQPAh3k2jhWLlA}#) - #{m _hoQGWMnyQPAh3k2jhWLlB}#)))) + ((#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (lambda (#{x -ANAU$bmvAmthP7L7xwrrh}# + #{m -ANAU$bmvAmthP7L7xwrri}#) + (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#) + (let ((#{e -ANAU$bmvAmthP7L7xwrrm}# + (cons (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (car #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{m -ANAU$bmvAmthP7L7xwrri}#) + (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (cdr #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{m -ANAU$bmvAmthP7L7xwrri}#)))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlF}#) - #{s _hoQGWMnyQPAh3k2jhWLkc}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#) + #{s -ANAU$bmvAmthP7L7xwrq9}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLlF}# - #{s _hoQGWMnyQPAh3k2jhWLkc}#)) - #{e _hoQGWMnyQPAh3k2jhWLlF}#)) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{e -ANAU$bmvAmthP7L7xwrrm}# + #{s -ANAU$bmvAmthP7L7xwrq9}#)) + #{e -ANAU$bmvAmthP7L7xwrrm}#)) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 0) 'syntax-object) #f) #f) - (let ((#{w _hoQGWMnyQPAh3k2jhWLlV}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 2))) - (let ((#{ms _hoQGWMnyQPAh3k2jhWLlW}# - (car #{w _hoQGWMnyQPAh3k2jhWLlV}#)) - (#{s _hoQGWMnyQPAh3k2jhWLlX}# - (cdr #{w _hoQGWMnyQPAh3k2jhWLlV}#))) - (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWLlW}#) - (eq? (car #{ms _hoQGWMnyQPAh3k2jhWLlW}#) #f) + (let ((#{w -ANAU$bmvAmthP7L7xwrr2}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 2))) + (let ((#{ms -ANAU$bmvAmthP7L7xwrr3}# + (car #{w -ANAU$bmvAmthP7L7xwrr2}#)) + (#{s -ANAU$bmvAmthP7L7xwrr4}# + (cdr #{w -ANAU$bmvAmthP7L7xwrr2}#))) + (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwrr3}#) + (eq? (car #{ms -ANAU$bmvAmthP7L7xwrr3}#) #f) #f) - (let ((#{expression _hoQGWMnyQPAh3k2jhWLlf}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 1)) - (#{wrap _hoQGWMnyQPAh3k2jhWLlg}# - (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWLlW}#) - (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# - (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# - (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)) - (cdr #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) - (#{module _hoQGWMnyQPAh3k2jhWLlh}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) + (let ((#{expression -ANAU$bmvAmthP7L7xwrsA}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 1)) + (#{wrap -ANAU$bmvAmthP7L7xwrsB}# + (cons (cdr #{ms -ANAU$bmvAmthP7L7xwrr3}#) + (if #{rib -ANAU$bmvAmthP7L7xwrq$}# + (cons #{rib -ANAU$bmvAmthP7L7xwrq$}# + (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#)) + (cdr #{s -ANAU$bmvAmthP7L7xwrr4}#)))) + (#{module -ANAU$bmvAmthP7L7xwrsC}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWLlf}# - #{wrap _hoQGWMnyQPAh3k2jhWLlg}# - #{module _hoQGWMnyQPAh3k2jhWLlh}#)) - (let ((#{expression _hoQGWMnyQPAh3k2jhWLlr}# - (let ((#{e _hoQGWMnyQPAh3k2jhWLlw}# + #{expression -ANAU$bmvAmthP7L7xwrsA}# + #{wrap -ANAU$bmvAmthP7L7xwrsB}# + #{module -ANAU$bmvAmthP7L7xwrsC}#)) + (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}# + (let ((#{e -ANAU$bmvAmthP7L7xwrsR}# (vector-ref - #{x _hoQGWMnyQPAh3k2jhWLlA}# + #{x -ANAU$bmvAmthP7L7xwrrh}# 1))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLlw}#) - #{s _hoQGWMnyQPAh3k2jhWLlX}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsR}#) + #{s -ANAU$bmvAmthP7L7xwrr4}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLlw}# - #{s _hoQGWMnyQPAh3k2jhWLlX}#)) - #{e _hoQGWMnyQPAh3k2jhWLlw}#))) - (#{wrap _hoQGWMnyQPAh3k2jhWLls}# - (cons (cons #{m _hoQGWMnyQPAh3k2jhWLlB}# - #{ms _hoQGWMnyQPAh3k2jhWLlW}#) - (if #{rib _hoQGWMnyQPAh3k2jhWLkd}# - (cons #{rib _hoQGWMnyQPAh3k2jhWLkd}# + #{e -ANAU$bmvAmthP7L7xwrsR}# + #{s -ANAU$bmvAmthP7L7xwrr4}#)) + #{e -ANAU$bmvAmthP7L7xwrsR}#))) + (#{wrap -ANAU$bmvAmthP7L7xwrsN}# + (cons (cons #{m -ANAU$bmvAmthP7L7xwrri}# + #{ms -ANAU$bmvAmthP7L7xwrr3}#) + (if #{rib -ANAU$bmvAmthP7L7xwrq$}# + (cons #{rib -ANAU$bmvAmthP7L7xwrq$}# (cons 'shift - #{s _hoQGWMnyQPAh3k2jhWLlX}#)) + #{s -ANAU$bmvAmthP7L7xwrr4}#)) (cons 'shift - #{s _hoQGWMnyQPAh3k2jhWLlX}#)))) - (#{module _hoQGWMnyQPAh3k2jhWLlt}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWLlA}# 3))) + #{s -ANAU$bmvAmthP7L7xwrr4}#)))) + (#{module -ANAU$bmvAmthP7L7xwrsO}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWLlr}# - #{wrap _hoQGWMnyQPAh3k2jhWLls}# - #{module _hoQGWMnyQPAh3k2jhWLlt}#))))) - (if (vector? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWLl8}# - (vector-length #{x _hoQGWMnyQPAh3k2jhWLlA}#))) - (let ((#{v _hoQGWMnyQPAh3k2jhWLl9}# - (let ((#{e _hoQGWMnyQPAh3k2jhWLmF}# + #{expression -ANAU$bmvAmthP7L7xwrsM}# + #{wrap -ANAU$bmvAmthP7L7xwrsN}# + #{module -ANAU$bmvAmthP7L7xwrsO}#))))) + (if (vector? #{x -ANAU$bmvAmthP7L7xwrrh}#) + (let ((#{n -ANAU$bmvAmthP7L7xwrsd}# + (vector-length #{x -ANAU$bmvAmthP7L7xwrrh}#))) + (let ((#{v -ANAU$bmvAmthP7L7xwrse}# + (let ((#{e -ANAU$bmvAmthP7L7xwrsm}# (make-vector - #{n _hoQGWMnyQPAh3k2jhWLl8}#))) + #{n -ANAU$bmvAmthP7L7xwrsd}#))) (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLmF}#) - #{x _hoQGWMnyQPAh3k2jhWLlA}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsm}#) + #{x -ANAU$bmvAmthP7L7xwrrh}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLmF}# - #{x _hoQGWMnyQPAh3k2jhWLlA}#)) - #{e _hoQGWMnyQPAh3k2jhWLmF}#)))) + #{e -ANAU$bmvAmthP7L7xwrsm}# + #{x -ANAU$bmvAmthP7L7xwrrh}#)) + #{e -ANAU$bmvAmthP7L7xwrsm}#)))) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWLl$}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWLmy}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWLmy}# - #{n _hoQGWMnyQPAh3k2jhWLl8}#) - #{v _hoQGWMnyQPAh3k2jhWLl9}# + ((#{loop -ANAU$bmvAmthP7L7xwrsf}# + (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#) + (if (= #{i -ANAU$bmvAmthP7L7xwrtT}# + #{n -ANAU$bmvAmthP7L7xwrsd}#) + #{v -ANAU$bmvAmthP7L7xwrse}# (begin (vector-set! - #{v _hoQGWMnyQPAh3k2jhWLl9}# - #{i _hoQGWMnyQPAh3k2jhWLmy}# - (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# + #{v -ANAU$bmvAmthP7L7xwrse}# + #{i -ANAU$bmvAmthP7L7xwrtT}# + (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# (vector-ref - #{x _hoQGWMnyQPAh3k2jhWLlA}# - #{i _hoQGWMnyQPAh3k2jhWLmy}#) - #{m _hoQGWMnyQPAh3k2jhWLlB}#)) - (#{loop _hoQGWMnyQPAh3k2jhWLl$}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWLmy}#))))))) - (#{loop _hoQGWMnyQPAh3k2jhWLl$}# 0)))) - (if (symbol? #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{x -ANAU$bmvAmthP7L7xwrrh}# + #{i -ANAU$bmvAmthP7L7xwrtT}#) + #{m -ANAU$bmvAmthP7L7xwrri}#)) + (#{loop -ANAU$bmvAmthP7L7xwrsf}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwrtT}#))))))) + (#{loop -ANAU$bmvAmthP7L7xwrsf}# 0)))) + (if (symbol? #{x -ANAU$bmvAmthP7L7xwrrh}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s _hoQGWMnyQPAh3k2jhWLm4}# - (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}# + (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#))) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{s _hoQGWMnyQPAh3k2jhWLm4}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{s -ANAU$bmvAmthP7L7xwrtZ}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{s _hoQGWMnyQPAh3k2jhWLm4}#)) - #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{w _hoQGWMnyQPAh3k2jhWLkb}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#)) - #{x _hoQGWMnyQPAh3k2jhWLlA}#) + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{s -ANAU$bmvAmthP7L7xwrtZ}#)) + #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{w -ANAU$bmvAmthP7L7xwrq8}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#)) + #{x -ANAU$bmvAmthP7L7xwrrh}#) (begin - (if (if (pair? #{x _hoQGWMnyQPAh3k2jhWLlA}#) - #{s _hoQGWMnyQPAh3k2jhWLkc}# + (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{s -ANAU$bmvAmthP7L7xwrq9}# #f) (set-source-properties! - #{x _hoQGWMnyQPAh3k2jhWLlA}# - #{s _hoQGWMnyQPAh3k2jhWLkc}#)) - #{x _hoQGWMnyQPAh3k2jhWLlA}#)))))))) + #{x -ANAU$bmvAmthP7L7xwrrh}# + #{s -ANAU$bmvAmthP7L7xwrq9}#)) + #{x -ANAU$bmvAmthP7L7xwrrh}#)))))))) (with-fluids - ((#{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# - (lambda (#{k _hoQGWMnyQPAh3k2jhWLkg}#) - (#{k _hoQGWMnyQPAh3k2jhWLkg}# - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{r _hoQGWMnyQPAh3k2jhWLka}# - #{w _hoQGWMnyQPAh3k2jhWLkb}# - #{s _hoQGWMnyQPAh3k2jhWLkc}# - #{rib _hoQGWMnyQPAh3k2jhWLkd}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#)))) - (#{rebuild-macro-output _hoQGWMnyQPAh3k2jhWLkf}# - (#{p _hoQGWMnyQPAh3k2jhWLkY}# - (let ((#{w _hoQGWMnyQPAh3k2jhWLkn}# - (cons (cons #f (car #{w _hoQGWMnyQPAh3k2jhWLkb}#)) + ((#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# + (lambda (#{k -ANAU$bmvAmthP7L7xwrrB}#) + (#{k -ANAU$bmvAmthP7L7xwrrB}# + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{r -ANAU$bmvAmthP7L7xwrq7}# + #{w -ANAU$bmvAmthP7L7xwrq8}# + #{s -ANAU$bmvAmthP7L7xwrq9}# + #{rib -ANAU$bmvAmthP7L7xwrq$}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#)))) + (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# + (#{p -ANAU$bmvAmthP7L7xwrq5}# + (let ((#{w -ANAU$bmvAmthP7L7xwrrI}# + (cons (cons #f (car #{w -ANAU$bmvAmthP7L7xwrq8}#)) (cons 'shift - (cdr #{w _hoQGWMnyQPAh3k2jhWLkb}#))))) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#))))) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{s _hoQGWMnyQPAh3k2jhWLkc}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{s -ANAU$bmvAmthP7L7xwrq9}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLkZ}# - #{s _hoQGWMnyQPAh3k2jhWLkc}#)) - #{e _hoQGWMnyQPAh3k2jhWLkZ}#) - #{w _hoQGWMnyQPAh3k2jhWLkn}# - #{mod _hoQGWMnyQPAh3k2jhWLke}#))) + #{e -ANAU$bmvAmthP7L7xwrq6}# + #{s -ANAU$bmvAmthP7L7xwrq9}#)) + #{e -ANAU$bmvAmthP7L7xwrq6}#) + #{w -ANAU$bmvAmthP7L7xwrrI}# + #{mod -ANAU$bmvAmthP7L7xwrq@}#))) (gensym "m")))))) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWLnY}# - #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}# - #{r _hoQGWMnyQPAh3k2jhWLna}# - #{w _hoQGWMnyQPAh3k2jhWLnb}# - #{mod _hoQGWMnyQPAh3k2jhWLnc}#) - (let ((#{r _hoQGWMnyQPAh3k2jhWLnd}# + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (lambda (#{body -ANAU$bmvAmthP7L7xwrt5}# + #{outer-form -ANAU$bmvAmthP7L7xwrt6}# + #{r -ANAU$bmvAmthP7L7xwrt7}# + #{w -ANAU$bmvAmthP7L7xwrt8}# + #{mod -ANAU$bmvAmthP7L7xwrt9}#) + (let ((#{r -ANAU$bmvAmthP7L7xwrt$}# (cons '("placeholder" placeholder) - #{r _hoQGWMnyQPAh3k2jhWLna}#))) - (let ((#{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{r -ANAU$bmvAmthP7L7xwrt7}#))) + (let ((#{ribcage -ANAU$bmvAmthP7L7xwrt@}# (vector 'ribcage '() '() '()))) - (let ((#{w _hoQGWMnyQPAh3k2jhWLnf}# - (cons (car #{w _hoQGWMnyQPAh3k2jhWLnb}#) - (cons #{ribcage _hoQGWMnyQPAh3k2jhWLne}# - (cdr #{w _hoQGWMnyQPAh3k2jhWLnb}#))))) + (let ((#{w -ANAU$bmvAmthP7L7xwruA}# + (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#) + (cons #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#))))) (letrec* - ((#{parse _hoQGWMnyQPAh3k2jhWLng}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWLnt}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#) - (if (null? #{body _hoQGWMnyQPAh3k2jhWLnt}#) + ((#{parse -ANAU$bmvAmthP7L7xwruB}# + (lambda (#{body -ANAU$bmvAmthP7L7xwruO}# + #{ids -ANAU$bmvAmthP7L7xwruP}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# + #{bindings -ANAU$bmvAmthP7L7xwruU}#) + (if (null? #{body -ANAU$bmvAmthP7L7xwruO}#) (syntax-violation #f "no expressions in body" - #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLn0}# - (cdr (car #{body _hoQGWMnyQPAh3k2jhWLnt}#))) - (#{er _hoQGWMnyQPAh3k2jhWLn1}# - (car (car #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) + #{outer-form -ANAU$bmvAmthP7L7xwrt6}#) + (let ((#{e -ANAU$bmvAmthP7L7xwruV}# + (cdr (car #{body -ANAU$bmvAmthP7L7xwruO}#))) + (#{er -ANAU$bmvAmthP7L7xwruW}# + (car (car #{body -ANAU$bmvAmthP7L7xwruO}#)))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLn0}# - #{er _hoQGWMnyQPAh3k2jhWLn1}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwruV}# + #{er -ANAU$bmvAmthP7L7xwruW}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{er _hoQGWMnyQPAh3k2jhWLn1}#) - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# - #{mod _hoQGWMnyQPAh3k2jhWLnc}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{er -ANAU$bmvAmthP7L7xwruW}#) + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{mod -ANAU$bmvAmthP7L7xwrt9}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWLqS}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{s _hoQGWMnyQPAh3k2jhWLqW}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + (lambda (#{type -ANAU$bmvAmthP7L7xwrwz}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{s -ANAU$bmvAmthP7L7xwrw3}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'define-form) - (let ((#{id _hoQGWMnyQPAh3k2jhWLqb}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{label _hoQGWMnyQPAh3k2jhWLqc}# - (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) - (let ((#{var _hoQGWMnyQPAh3k2jhWLqd}# - (let ((#{id _hoQGWMnyQPAh3k2jhWLrX}# + (let ((#{id -ANAU$bmvAmthP7L7xwrw8}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{label -ANAU$bmvAmthP7L7xwrw9}# + (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) + (let ((#{var -ANAU$bmvAmthP7L7xwrw$}# + (let ((#{id -ANAU$bmvAmthP7L7xwrx4}# (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWLqb}#) + #{id -ANAU$bmvAmthP7L7xwrw8}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWLqb}#) + #{id -ANAU$bmvAmthP7L7xwrw8}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 1) - #{id _hoQGWMnyQPAh3k2jhWLqb}#))) + #{id -ANAU$bmvAmthP7L7xwrw8}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWLrX}#) + #{id -ANAU$bmvAmthP7L7xwrx4}#) " "))))) (begin - (let ((#{update _hoQGWMnyQPAh3k2jhWLrN}# + (let ((#{update -ANAU$bmvAmthP7L7xwrxu}# (cons (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 1) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1 - #{update _hoQGWMnyQPAh3k2jhWLrN}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLrP}# + #{update -ANAU$bmvAmthP7L7xwrxu}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrxw}# (cons (car (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLqb}# + #{id -ANAU$bmvAmthP7L7xwrw8}# 2)) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2 - #{update _hoQGWMnyQPAh3k2jhWLrP}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLrR}# - (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# + #{update -ANAU$bmvAmthP7L7xwrxw}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrxy}# + (cons #{label -ANAU$bmvAmthP7L7xwrw9}# (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3 - #{update _hoQGWMnyQPAh3k2jhWLrR}#)) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}#) - (cons #{label _hoQGWMnyQPAh3k2jhWLqc}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}#) - (cons #{id _hoQGWMnyQPAh3k2jhWLqb}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#) - (cons #{var _hoQGWMnyQPAh3k2jhWLqd}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}#) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - #{vals _hoQGWMnyQPAh3k2jhWLny}#) + #{update -ANAU$bmvAmthP7L7xwrxy}#)) + (#{parse -ANAU$bmvAmthP7L7xwruB}# + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons #{id -ANAU$bmvAmthP7L7xwrw8}# + #{ids -ANAU$bmvAmthP7L7xwruP}#) + (cons #{label -ANAU$bmvAmthP7L7xwrw9}# + #{labels -ANAU$bmvAmthP7L7xwruQ}#) + (cons #{id -ANAU$bmvAmthP7L7xwrw8}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}#) + (cons #{var -ANAU$bmvAmthP7L7xwrw$}# + #{vars -ANAU$bmvAmthP7L7xwruS}#) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + #{vals -ANAU$bmvAmthP7L7xwruT}#) (cons (cons 'lexical - #{var _hoQGWMnyQPAh3k2jhWLqd}#) - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))))) - (if (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + #{var -ANAU$bmvAmthP7L7xwrw$}#) + #{bindings -ANAU$bmvAmthP7L7xwruU}#))))) + (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'define-syntax-form) #t - (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'define-syntax-parameter-form)) - (let ((#{id _hoQGWMnyQPAh3k2jhWLr4}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{label _hoQGWMnyQPAh3k2jhWLr5}# - (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) + (let ((#{id -ANAU$bmvAmthP7L7xwryZ}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{label -ANAU$bmvAmthP7L7xwrya}# + (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) (begin - (let ((#{update _hoQGWMnyQPAh3k2jhWLsp}# + (let ((#{update -ANAU$bmvAmthP7L7xwrzK}# (cons (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLr4}# + #{id -ANAU$bmvAmthP7L7xwryZ}# 1) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 1 - #{update _hoQGWMnyQPAh3k2jhWLsp}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLsr}# + #{update -ANAU$bmvAmthP7L7xwrzK}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrzM}# (cons (car (vector-ref - #{id _hoQGWMnyQPAh3k2jhWLr4}# + #{id -ANAU$bmvAmthP7L7xwryZ}# 2)) (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 2 - #{update _hoQGWMnyQPAh3k2jhWLsr}#)) - (let ((#{update _hoQGWMnyQPAh3k2jhWLst}# - (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# + #{update -ANAU$bmvAmthP7L7xwrzM}#)) + (let ((#{update -ANAU$bmvAmthP7L7xwrzO}# + (cons #{label -ANAU$bmvAmthP7L7xwrya}# (vector-ref - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3)))) (vector-set! - #{ribcage _hoQGWMnyQPAh3k2jhWLne}# + #{ribcage -ANAU$bmvAmthP7L7xwrt@}# 3 - #{update _hoQGWMnyQPAh3k2jhWLst}#)) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons #{id _hoQGWMnyQPAh3k2jhWLr4}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}#) - (cons #{label _hoQGWMnyQPAh3k2jhWLr5}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}#) - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# + #{update -ANAU$bmvAmthP7L7xwrzO}#)) + (#{parse -ANAU$bmvAmthP7L7xwruB}# + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons #{id -ANAU$bmvAmthP7L7xwryZ}# + #{ids -ANAU$bmvAmthP7L7xwruP}#) + (cons #{label -ANAU$bmvAmthP7L7xwrya}# + #{labels -ANAU$bmvAmthP7L7xwruQ}#) + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# (cons (cons 'macro - (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#))) - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#))) + #{bindings -ANAU$bmvAmthP7L7xwruU}#)))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'begin-form) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWLs1}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwrzW}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWLqU}# + #{e -ANAU$bmvAmthP7L7xwrw1}# '(_ . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWLs1}# + (if #{tmp -ANAU$bmvAmthP7L7xwrzW}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWLs5}#) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (lambda (#{e1 -ANAU$bmvAmthP7L7xwrza}#) + (#{parse -ANAU$bmvAmthP7L7xwruB}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWLs6}# - (lambda (#{forms _hoQGWMnyQPAh3k2jhWLt5}#) - (if (null? #{forms _hoQGWMnyQPAh3k2jhWLt5}#) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{forms _hoQGWMnyQPAh3k2jhWLt5}#) - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{f _hoQGWMnyQPAh3k2jhWLs6}# - (cdr #{forms _hoQGWMnyQPAh3k2jhWLt5}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWLs6}# - #{e1 _hoQGWMnyQPAh3k2jhWLs5}#)) - #{ids _hoQGWMnyQPAh3k2jhWLnu}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#)) - #{tmp _hoQGWMnyQPAh3k2jhWLs1}#) + ((#{f -ANAU$bmvAmthP7L7xwrzb}# + (lambda (#{forms -ANAU$bmvAmthP7L7xwr0a}#) + (if (null? #{forms -ANAU$bmvAmthP7L7xwr0a}#) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{forms -ANAU$bmvAmthP7L7xwr0a}#) + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{f -ANAU$bmvAmthP7L7xwrzb}# + (cdr #{forms -ANAU$bmvAmthP7L7xwr0a}#))))))) + (#{f -ANAU$bmvAmthP7L7xwrzb}# + #{e1 -ANAU$bmvAmthP7L7xwrza}#)) + #{ids -ANAU$bmvAmthP7L7xwruP}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# + #{bindings -ANAU$bmvAmthP7L7xwruU}#)) + #{tmp -ANAU$bmvAmthP7L7xwrzW}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWLqU}#))) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWLqS}# + #{e -ANAU$bmvAmthP7L7xwrw1}#))) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# 'local-syntax-form) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - #{value _hoQGWMnyQPAh3k2jhWLqT}# - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{er _hoQGWMnyQPAh3k2jhWLn1}# - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{s _hoQGWMnyQPAh3k2jhWLqW}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}# - (lambda (#{forms _hoQGWMnyQPAh3k2jhWLuH}# - #{er _hoQGWMnyQPAh3k2jhWLuI}# - #{w _hoQGWMnyQPAh3k2jhWLuJ}# - #{s _hoQGWMnyQPAh3k2jhWLuK}# - #{mod _hoQGWMnyQPAh3k2jhWLuL}#) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + #{value -ANAU$bmvAmthP7L7xwrw0}# + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{er -ANAU$bmvAmthP7L7xwruW}# + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{s -ANAU$bmvAmthP7L7xwrw3}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# + (lambda (#{forms -ANAU$bmvAmthP7L7xwr0o}# + #{er -ANAU$bmvAmthP7L7xwr0p}# + #{w -ANAU$bmvAmthP7L7xwr0q}# + #{s -ANAU$bmvAmthP7L7xwr0r}# + #{mod -ANAU$bmvAmthP7L7xwr0s}#) + (#{parse -ANAU$bmvAmthP7L7xwruB}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWLuM}# - (lambda (#{forms _hoQGWMnyQPAh3k2jhWLvL}#) - (if (null? #{forms _hoQGWMnyQPAh3k2jhWLvL}#) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLuI}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{forms _hoQGWMnyQPAh3k2jhWLvL}#) - #{w _hoQGWMnyQPAh3k2jhWLuJ}# - #{mod _hoQGWMnyQPAh3k2jhWLuL}#)) - (#{f _hoQGWMnyQPAh3k2jhWLuM}# - (cdr #{forms _hoQGWMnyQPAh3k2jhWLvL}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWLuM}# - #{forms _hoQGWMnyQPAh3k2jhWLuH}#)) - #{ids _hoQGWMnyQPAh3k2jhWLnu}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}# - #{vars _hoQGWMnyQPAh3k2jhWLnx}# - #{vals _hoQGWMnyQPAh3k2jhWLny}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}#))) - (if (null? #{ids _hoQGWMnyQPAh3k2jhWLnu}#) - (#{build-sequence _hoQGWMnyQPAh3k2jhWHSu}# + ((#{f -ANAU$bmvAmthP7L7xwr0t}# + (lambda (#{forms -ANAU$bmvAmthP7L7xwr1s}#) + (if (null? #{forms -ANAU$bmvAmthP7L7xwr1s}#) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#) + (cons (cons #{er -ANAU$bmvAmthP7L7xwr0p}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{forms -ANAU$bmvAmthP7L7xwr1s}#) + #{w -ANAU$bmvAmthP7L7xwr0q}# + #{mod -ANAU$bmvAmthP7L7xwr0s}#)) + (#{f -ANAU$bmvAmthP7L7xwr0t}# + (cdr #{forms -ANAU$bmvAmthP7L7xwr1s}#))))))) + (#{f -ANAU$bmvAmthP7L7xwr0t}# + #{forms -ANAU$bmvAmthP7L7xwr0o}#)) + #{ids -ANAU$bmvAmthP7L7xwruP}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{var-ids -ANAU$bmvAmthP7L7xwruR}# + #{vars -ANAU$bmvAmthP7L7xwruS}# + #{vals -ANAU$bmvAmthP7L7xwruT}# + #{bindings -ANAU$bmvAmthP7L7xwruU}#))) + (if (null? #{ids -ANAU$bmvAmthP7L7xwruP}#) + (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# #f - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLwM}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWLwQ}# - (cdr #{x _hoQGWMnyQPAh3k2jhWLwM}#)) - (#{r _hoQGWMnyQPAh3k2jhWLwR}# - (car #{x _hoQGWMnyQPAh3k2jhWLwM}#))) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwr2t}#) + (let ((#{e -ANAU$bmvAmthP7L7xwr2x}# + (cdr #{x -ANAU$bmvAmthP7L7xwr2t}#)) + (#{r -ANAU$bmvAmthP7L7xwr2y}# + (car #{x -ANAU$bmvAmthP7L7xwr2t}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWLwQ}# - #{r _hoQGWMnyQPAh3k2jhWLwR}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwr2x}# + #{r -ANAU$bmvAmthP7L7xwr2y}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWLwQ}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwr2x}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLqX}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWLwV}# - #{value _hoQGWMnyQPAh3k2jhWLwW}# - #{e _hoQGWMnyQPAh3k2jhWLwX}# - #{w _hoQGWMnyQPAh3k2jhWLwY}# - #{s _hoQGWMnyQPAh3k2jhWLwZ}# - #{mod _hoQGWMnyQPAh3k2jhWLwa}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWLwV}# - #{value _hoQGWMnyQPAh3k2jhWLwW}# - #{e _hoQGWMnyQPAh3k2jhWLwX}# - #{r _hoQGWMnyQPAh3k2jhWLwR}# - #{w _hoQGWMnyQPAh3k2jhWLwY}# - #{s _hoQGWMnyQPAh3k2jhWLwZ}# - #{mod _hoQGWMnyQPAh3k2jhWLwa}#))))) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{type -ANAU$bmvAmthP7L7xwr22}# + #{value -ANAU$bmvAmthP7L7xwr23}# + #{e -ANAU$bmvAmthP7L7xwr24}# + #{w -ANAU$bmvAmthP7L7xwr25}# + #{s -ANAU$bmvAmthP7L7xwr26}# + #{mod -ANAU$bmvAmthP7L7xwr27}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwr22}# + #{value -ANAU$bmvAmthP7L7xwr23}# + #{e -ANAU$bmvAmthP7L7xwr24}# + #{r -ANAU$bmvAmthP7L7xwr2y}# + #{w -ANAU$bmvAmthP7L7xwr25}# + #{s -ANAU$bmvAmthP7L7xwr26}# + #{mod -ANAU$bmvAmthP7L7xwr27}#))))) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{s _hoQGWMnyQPAh3k2jhWLqW}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{s -ANAU$bmvAmthP7L7xwrw3}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{s _hoQGWMnyQPAh3k2jhWLqW}#)) - #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#)))) + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{s -ANAU$bmvAmthP7L7xwrw3}#)) + #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)))) (begin - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{ids _hoQGWMnyQPAh3k2jhWLnu}#)) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{ids -ANAU$bmvAmthP7L7xwruP}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form _hoQGWMnyQPAh3k2jhWLnZ}#)) + #{outer-form -ANAU$bmvAmthP7L7xwrt6}#)) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWLx@}# - (lambda (#{bs _hoQGWMnyQPAh3k2jhWLyC}# - #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# - #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#) - (if (not (null? #{bs _hoQGWMnyQPAh3k2jhWLyC}#)) - (let ((#{b _hoQGWMnyQPAh3k2jhWLyF}# - (car #{bs _hoQGWMnyQPAh3k2jhWLyC}#))) - (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWLyF}#) + ((#{loop -ANAU$bmvAmthP7L7xwr4g}# + (lambda (#{bs -ANAU$bmvAmthP7L7xwr4j}# + #{er-cache -ANAU$bmvAmthP7L7xwr4k}# + #{r-cache -ANAU$bmvAmthP7L7xwr4l}#) + (if (not (null? #{bs -ANAU$bmvAmthP7L7xwr4j}#)) + (let ((#{b -ANAU$bmvAmthP7L7xwr4m}# + (car #{bs -ANAU$bmvAmthP7L7xwr4j}#))) + (if (eq? (car #{b -ANAU$bmvAmthP7L7xwr4m}#) 'macro) - (let ((#{er _hoQGWMnyQPAh3k2jhWLyH}# - (car (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)))) - (let ((#{r-cache _hoQGWMnyQPAh3k2jhWLyI}# - (if (eq? #{er _hoQGWMnyQPAh3k2jhWLyH}# - #{er-cache _hoQGWMnyQPAh3k2jhWLyD}#) - #{r-cache _hoQGWMnyQPAh3k2jhWLyE}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{er _hoQGWMnyQPAh3k2jhWLyH}#)))) + (let ((#{er -ANAU$bmvAmthP7L7xwr4o}# + (car (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#)))) + (let ((#{r-cache -ANAU$bmvAmthP7L7xwr4p}# + (if (eq? #{er -ANAU$bmvAmthP7L7xwr4o}# + #{er-cache -ANAU$bmvAmthP7L7xwr4k}#) + #{r-cache -ANAU$bmvAmthP7L7xwr4l}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{er -ANAU$bmvAmthP7L7xwr4o}#)))) (begin (set-cdr! - #{b _hoQGWMnyQPAh3k2jhWLyF}# - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (cdr (cdr #{b _hoQGWMnyQPAh3k2jhWLyF}#)) - #{r-cache _hoQGWMnyQPAh3k2jhWLyI}# + #{b -ANAU$bmvAmthP7L7xwr4m}# + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (cdr (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#)) + #{r-cache -ANAU$bmvAmthP7L7xwr4p}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWLqX}#) - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (#{loop _hoQGWMnyQPAh3k2jhWLx@}# - (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) - #{er _hoQGWMnyQPAh3k2jhWLyH}# - #{r-cache _hoQGWMnyQPAh3k2jhWLyI}#)))) - (#{loop _hoQGWMnyQPAh3k2jhWLx@}# - (cdr #{bs _hoQGWMnyQPAh3k2jhWLyC}#) - #{er-cache _hoQGWMnyQPAh3k2jhWLyD}# - #{r-cache _hoQGWMnyQPAh3k2jhWLyE}#))))))) - (#{loop _hoQGWMnyQPAh3k2jhWLx@}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#) + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (#{loop -ANAU$bmvAmthP7L7xwr4g}# + (cdr #{bs -ANAU$bmvAmthP7L7xwr4j}#) + #{er -ANAU$bmvAmthP7L7xwr4o}# + #{r-cache -ANAU$bmvAmthP7L7xwr4p}#)))) + (#{loop -ANAU$bmvAmthP7L7xwr4g}# + (cdr #{bs -ANAU$bmvAmthP7L7xwr4j}#) + #{er-cache -ANAU$bmvAmthP7L7xwr4k}# + #{r-cache -ANAU$bmvAmthP7L7xwr4l}#))))))) + (#{loop -ANAU$bmvAmthP7L7xwr4g}# + #{bindings -ANAU$bmvAmthP7L7xwruU}# #f #f)) (set-cdr! - #{r _hoQGWMnyQPAh3k2jhWLnd}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWLnv}# - #{bindings _hoQGWMnyQPAh3k2jhWLnz}# - (cdr #{r _hoQGWMnyQPAh3k2jhWLnd}#))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# + #{r -ANAU$bmvAmthP7L7xwrt$}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwruQ}# + #{bindings -ANAU$bmvAmthP7L7xwruU}# + (cdr #{r -ANAU$bmvAmthP7L7xwrt$}#))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# #f #t (reverse (map syntax->datum - #{var-ids _hoQGWMnyQPAh3k2jhWLnw}#)) + #{var-ids -ANAU$bmvAmthP7L7xwruR}#)) (reverse - #{vars _hoQGWMnyQPAh3k2jhWLnx}#) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL3f}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWL3j}# - (cdr #{x _hoQGWMnyQPAh3k2jhWL3f}#)) - (#{r _hoQGWMnyQPAh3k2jhWL3k}# - (car #{x _hoQGWMnyQPAh3k2jhWL3f}#))) + #{vars -ANAU$bmvAmthP7L7xwruS}#) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwr$A}#) + (let ((#{e -ANAU$bmvAmthP7L7xwr$E}# + (cdr #{x -ANAU$bmvAmthP7L7xwr$A}#)) + (#{r -ANAU$bmvAmthP7L7xwr$F}# + (car #{x -ANAU$bmvAmthP7L7xwr$A}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWL3j}# - #{r _hoQGWMnyQPAh3k2jhWL3k}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwr$E}# + #{r -ANAU$bmvAmthP7L7xwr$F}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWL3j}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwr$E}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLqX}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWL3o}# - #{value _hoQGWMnyQPAh3k2jhWL3p}# - #{e _hoQGWMnyQPAh3k2jhWL3q}# - #{w _hoQGWMnyQPAh3k2jhWL3r}# - #{s _hoQGWMnyQPAh3k2jhWL3s}# - #{mod _hoQGWMnyQPAh3k2jhWL3t}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWL3o}# - #{value _hoQGWMnyQPAh3k2jhWL3p}# - #{e _hoQGWMnyQPAh3k2jhWL3q}# - #{r _hoQGWMnyQPAh3k2jhWL3k}# - #{w _hoQGWMnyQPAh3k2jhWL3r}# - #{s _hoQGWMnyQPAh3k2jhWL3s}# - #{mod _hoQGWMnyQPAh3k2jhWL3t}#))))) + (lambda (#{type -ANAU$bmvAmthP7L7xwr$J}# + #{value -ANAU$bmvAmthP7L7xwr$K}# + #{e -ANAU$bmvAmthP7L7xwr$L}# + #{w -ANAU$bmvAmthP7L7xwr$M}# + #{s -ANAU$bmvAmthP7L7xwr$N}# + #{mod -ANAU$bmvAmthP7L7xwr$O}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwr$J}# + #{value -ANAU$bmvAmthP7L7xwr$K}# + #{e -ANAU$bmvAmthP7L7xwr$L}# + #{r -ANAU$bmvAmthP7L7xwr$F}# + #{w -ANAU$bmvAmthP7L7xwr$M}# + #{s -ANAU$bmvAmthP7L7xwr$N}# + #{mod -ANAU$bmvAmthP7L7xwr$O}#))))) (reverse - #{vals _hoQGWMnyQPAh3k2jhWLny}#)) - (let ((#{exps _hoQGWMnyQPAh3k2jhWL3z}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL30}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWL33}# - (cdr #{x _hoQGWMnyQPAh3k2jhWL30}#)) - (#{r _hoQGWMnyQPAh3k2jhWL34}# - (car #{x _hoQGWMnyQPAh3k2jhWL30}#))) + #{vals -ANAU$bmvAmthP7L7xwruT}#)) + (let ((#{exps -ANAU$bmvAmthP7L7xwr$U}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwr$V}#) + (let ((#{e -ANAU$bmvAmthP7L7xwr$Y}# + (cdr #{x -ANAU$bmvAmthP7L7xwr$V}#)) + (#{r -ANAU$bmvAmthP7L7xwr$Z}# + (car #{x -ANAU$bmvAmthP7L7xwr$V}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWL33}# - #{r _hoQGWMnyQPAh3k2jhWL34}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwr$Y}# + #{r -ANAU$bmvAmthP7L7xwr$Z}# '(()) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWL33}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwr$Y}#) #f - #{mod _hoQGWMnyQPAh3k2jhWLqX}# + #{mod -ANAU$bmvAmthP7L7xwrw4}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWL38}# - #{value _hoQGWMnyQPAh3k2jhWL39}# - #{e _hoQGWMnyQPAh3k2jhWL3$}# - #{w _hoQGWMnyQPAh3k2jhWL3@}# - #{s _hoQGWMnyQPAh3k2jhWL4A}# - #{mod _hoQGWMnyQPAh3k2jhWL4B}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWL38}# - #{value _hoQGWMnyQPAh3k2jhWL39}# - #{e _hoQGWMnyQPAh3k2jhWL3$}# - #{r _hoQGWMnyQPAh3k2jhWL34}# - #{w _hoQGWMnyQPAh3k2jhWL3@}# - #{s _hoQGWMnyQPAh3k2jhWL4A}# - #{mod _hoQGWMnyQPAh3k2jhWL4B}#))))) - (cons (cons #{er _hoQGWMnyQPAh3k2jhWLn1}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{type -ANAU$bmvAmthP7L7xwr$d}# + #{value -ANAU$bmvAmthP7L7xwr$e}# + #{e -ANAU$bmvAmthP7L7xwr$f}# + #{w -ANAU$bmvAmthP7L7xwr$g}# + #{s -ANAU$bmvAmthP7L7xwr$h}# + #{mod -ANAU$bmvAmthP7L7xwr$i}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwr$d}# + #{value -ANAU$bmvAmthP7L7xwr$e}# + #{e -ANAU$bmvAmthP7L7xwr$f}# + #{r -ANAU$bmvAmthP7L7xwr$Z}# + #{w -ANAU$bmvAmthP7L7xwr$g}# + #{s -ANAU$bmvAmthP7L7xwr$h}# + #{mod -ANAU$bmvAmthP7L7xwr$i}#))))) + (cons (cons #{er -ANAU$bmvAmthP7L7xwruW}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{s _hoQGWMnyQPAh3k2jhWLqW}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{s -ANAU$bmvAmthP7L7xwrw3}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWLqU}# - #{s _hoQGWMnyQPAh3k2jhWLqW}#)) - #{e _hoQGWMnyQPAh3k2jhWLqU}#) - #{w _hoQGWMnyQPAh3k2jhWLqV}# - #{mod _hoQGWMnyQPAh3k2jhWLqX}#)) - (cdr #{body _hoQGWMnyQPAh3k2jhWLnt}#))))) - (if (null? (cdr #{exps _hoQGWMnyQPAh3k2jhWL3z}#)) - (car #{exps _hoQGWMnyQPAh3k2jhWL3z}#) + #{e -ANAU$bmvAmthP7L7xwrw1}# + #{s -ANAU$bmvAmthP7L7xwrw3}#)) + #{e -ANAU$bmvAmthP7L7xwrw1}#) + #{w -ANAU$bmvAmthP7L7xwrw2}# + #{mod -ANAU$bmvAmthP7L7xwrw4}#)) + (cdr #{body -ANAU$bmvAmthP7L7xwruO}#))))) + (if (null? (cdr #{exps -ANAU$bmvAmthP7L7xwr$U}#)) + (car #{exps -ANAU$bmvAmthP7L7xwr$U}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps _hoQGWMnyQPAh3k2jhWL3z}#))))))))))))))))) - (#{parse _hoQGWMnyQPAh3k2jhWLng}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWLnj}#) - (cons #{r _hoQGWMnyQPAh3k2jhWLnd}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{x _hoQGWMnyQPAh3k2jhWLnj}# - #{w _hoQGWMnyQPAh3k2jhWLnf}# - #{mod _hoQGWMnyQPAh3k2jhWLnc}#))) - #{body _hoQGWMnyQPAh3k2jhWLnY}#) + #{exps -ANAU$bmvAmthP7L7xwr$U}#))))))))))))))))) + (#{parse -ANAU$bmvAmthP7L7xwruB}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwruE}#) + (cons #{r -ANAU$bmvAmthP7L7xwrt$}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{x -ANAU$bmvAmthP7L7xwruE}# + #{w -ANAU$bmvAmthP7L7xwruA}# + #{mod -ANAU$bmvAmthP7L7xwrt9}#))) + #{body -ANAU$bmvAmthP7L7xwrt5}#) '() '() '() '() '() '()))))))) - (#{expand-local-syntax _hoQGWMnyQPAh3k2jhWHTq}# - (lambda (#{rec? _hoQGWMnyQPAh3k2jhWL4b}# - #{e _hoQGWMnyQPAh3k2jhWL4c}# - #{r _hoQGWMnyQPAh3k2jhWL4d}# - #{w _hoQGWMnyQPAh3k2jhWL4e}# - #{s _hoQGWMnyQPAh3k2jhWL4f}# - #{mod _hoQGWMnyQPAh3k2jhWL4g}# - #{k _hoQGWMnyQPAh3k2jhWL4h}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWL4j}# + (#{expand-local-syntax -ANAU$bmvAmthP7L7xwnOJ}# + (lambda (#{rec? -ANAU$bmvAmthP7L7xwr$8}# + #{e -ANAU$bmvAmthP7L7xwr$9}# + #{r -ANAU$bmvAmthP7L7xwr$$}# + #{w -ANAU$bmvAmthP7L7xwr$@}# + #{s -ANAU$bmvAmthP7L7xwr@A}# + #{mod -ANAU$bmvAmthP7L7xwr@B}# + #{k -ANAU$bmvAmthP7L7xwr@C}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwr@E}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWL4c}# + #{e -ANAU$bmvAmthP7L7xwr$9}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWL4j}# + (if #{tmp -ANAU$bmvAmthP7L7xwr@E}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWL4n}# - #{val _hoQGWMnyQPAh3k2jhWL4o}# - #{e1 _hoQGWMnyQPAh3k2jhWL4p}# - #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{id _hoQGWMnyQPAh3k2jhWL4n}#)) + (lambda (#{id -ANAU$bmvAmthP7L7xwr@I}# + #{val -ANAU$bmvAmthP7L7xwr@J}# + #{e1 -ANAU$bmvAmthP7L7xwr@K}# + #{e2 -ANAU$bmvAmthP7L7xwr@L}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{id -ANAU$bmvAmthP7L7xwr@I}#)) (syntax-violation #f "duplicate bound keyword" - #{e _hoQGWMnyQPAh3k2jhWL4c}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWL6E}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{id _hoQGWMnyQPAh3k2jhWL4n}#))) - (let ((#{new-w _hoQGWMnyQPAh3k2jhWL6F}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{id _hoQGWMnyQPAh3k2jhWL4n}# - #{labels _hoQGWMnyQPAh3k2jhWL6E}# - #{w _hoQGWMnyQPAh3k2jhWL4e}#))) - (#{k _hoQGWMnyQPAh3k2jhWL4h}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWL4p}# - #{e2 _hoQGWMnyQPAh3k2jhWL4q}#) - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWL6E}# - (let ((#{trans-r _hoQGWMnyQPAh3k2jhWL6l}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{r _hoQGWMnyQPAh3k2jhWL4d}#))) + #{e -ANAU$bmvAmthP7L7xwr$9}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwsAl}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{id -ANAU$bmvAmthP7L7xwr@I}#))) + (let ((#{new-w -ANAU$bmvAmthP7L7xwsAm}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{id -ANAU$bmvAmthP7L7xwr@I}# + #{labels -ANAU$bmvAmthP7L7xwsAl}# + #{w -ANAU$bmvAmthP7L7xwr$@}#))) + (#{k -ANAU$bmvAmthP7L7xwr@C}# + (cons #{e1 -ANAU$bmvAmthP7L7xwr@K}# + #{e2 -ANAU$bmvAmthP7L7xwr@L}#) + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwsAl}# + (let ((#{trans-r -ANAU$bmvAmthP7L7xwsBG}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{r -ANAU$bmvAmthP7L7xwr$$}#))) (begin - (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# - #{new-w _hoQGWMnyQPAh3k2jhWL6F}# - #{w _hoQGWMnyQPAh3k2jhWL4e}#) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWL6m}#) + (if #{rec? -ANAU$bmvAmthP7L7xwr$8}# + #{new-w -ANAU$bmvAmthP7L7xwsAm}# + #{w -ANAU$bmvAmthP7L7xwr$@}#) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#) (cons 'macro - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWL6m}# - #{trans-r _hoQGWMnyQPAh3k2jhWL6l}# + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwsBH}# + #{trans-r -ANAU$bmvAmthP7L7xwsBG}# (values - (if #{rec? _hoQGWMnyQPAh3k2jhWL4b}# - #{new-w _hoQGWMnyQPAh3k2jhWL6F}# - #{w _hoQGWMnyQPAh3k2jhWL4e}#)) - #{mod _hoQGWMnyQPAh3k2jhWL4g}#) - #{mod _hoQGWMnyQPAh3k2jhWL4g}#))) - #{val _hoQGWMnyQPAh3k2jhWL4o}#))) - #{r _hoQGWMnyQPAh3k2jhWL4d}#) - #{new-w _hoQGWMnyQPAh3k2jhWL6F}# - #{s _hoQGWMnyQPAh3k2jhWL4f}# - #{mod _hoQGWMnyQPAh3k2jhWL4g}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWL4j}#) + (if #{rec? -ANAU$bmvAmthP7L7xwr$8}# + #{new-w -ANAU$bmvAmthP7L7xwsAm}# + #{w -ANAU$bmvAmthP7L7xwr$@}#)) + #{mod -ANAU$bmvAmthP7L7xwr@B}#) + #{mod -ANAU$bmvAmthP7L7xwr@B}#))) + #{val -ANAU$bmvAmthP7L7xwr@J}#))) + #{r -ANAU$bmvAmthP7L7xwr$$}#) + #{new-w -ANAU$bmvAmthP7L7xwsAm}# + #{s -ANAU$bmvAmthP7L7xwr@A}# + #{mod -ANAU$bmvAmthP7L7xwr@B}#))))) + #{tmp -ANAU$bmvAmthP7L7xwr@E}#) (syntax-violation #f "bad local syntax definition" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWL4c}#) - #{s _hoQGWMnyQPAh3k2jhWL4f}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#) + #{s -ANAU$bmvAmthP7L7xwr@A}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWL4c}# - #{s _hoQGWMnyQPAh3k2jhWL4f}#)) - #{e _hoQGWMnyQPAh3k2jhWL4c}#) - #{w _hoQGWMnyQPAh3k2jhWL4e}# - #{mod _hoQGWMnyQPAh3k2jhWL4g}#)))))) - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (lambda (#{expanded _hoQGWMnyQPAh3k2jhWL$6}# - #{mod _hoQGWMnyQPAh3k2jhWL$7}#) - (let ((#{p _hoQGWMnyQPAh3k2jhWL$8}# + #{e -ANAU$bmvAmthP7L7xwr$9}# + #{s -ANAU$bmvAmthP7L7xwr@A}#)) + #{e -ANAU$bmvAmthP7L7xwr$9}#) + #{w -ANAU$bmvAmthP7L7xwr$@}# + #{mod -ANAU$bmvAmthP7L7xwr@B}#)))))) + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (lambda (#{expanded -ANAU$bmvAmthP7L7xwsFb}# + #{mod -ANAU$bmvAmthP7L7xwsFc}#) + (let ((#{p -ANAU$bmvAmthP7L7xwsFd}# (primitive-eval - #{expanded _hoQGWMnyQPAh3k2jhWL$6}#))) - (if (procedure? #{p _hoQGWMnyQPAh3k2jhWL$8}#) - #{p _hoQGWMnyQPAh3k2jhWL$8}# + #{expanded -ANAU$bmvAmthP7L7xwsFb}#))) + (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#) + #{p -ANAU$bmvAmthP7L7xwsFd}# (syntax-violation #f "nonprocedure transformer" - #{p _hoQGWMnyQPAh3k2jhWL$8}#))))) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWHeC}#) - (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) + #{p -ANAU$bmvAmthP7L7xwsFd}#))))) + (#{ellipsis? -ANAU$bmvAmthP7L7xwnOM}# + (lambda (#{x -ANAU$bmvAmthP7L7xwnYh}#) + (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)) #f) - (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWHeC}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWHeC}# 1) - #{x _hoQGWMnyQPAh3k2jhWHeC}#) + (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1) + #{x -ANAU$bmvAmthP7L7xwnYh}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2de")) + #(ribcage #(x) #((top)) #("p6")) #(ribcage (lambda-var-list gen-var @@ -5565,152 +5547,152 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -5721,7 +5703,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2de")) + #(ribcage #(x) #((top)) #("p6")) #(ribcage (lambda-var-list gen-var @@ -6003,163 +5985,163 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWHeC}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwnYh}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2de")) + #(ribcage #(x) #((top)) #("p6")) #(ribcage (lambda-var-list gen-var @@ -6441,539 +6423,539 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f))) - (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# - (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWL@B}#) + (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}# + (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#) (letrec* - ((#{req _hoQGWMnyQPAh3k2jhWL@C}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWL@G}# - #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWL@J}# + ((#{req -ANAU$bmvAmthP7L7xwsFj}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}# + #{rreq -ANAU$bmvAmthP7L7xwsFo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWL@G}# + #{args -ANAU$bmvAmthP7L7xwsFn}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWL@J}# + (if #{tmp -ANAU$bmvAmthP7L7xwsFq}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWL@D}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) + (#{check -ANAU$bmvAmthP7L7xwsFk}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWL@J}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBE}# + #{tmp -ANAU$bmvAmthP7L7xwsFq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWL@G}# + #{args -ANAU$bmvAmthP7L7xwsFn}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMBE}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMBI}# - #{b _hoQGWMnyQPAh3k2jhWMBJ}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMBI}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}# + #{b -ANAU$bmvAmthP7L7xwsHq}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMBI}#) + #{a -ANAU$bmvAmthP7L7xwsHp}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMBI}#) + #{a -ANAU$bmvAmthP7L7xwsHp}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMBI}# + #{a -ANAU$bmvAmthP7L7xwsHp}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMBI}# + #{a -ANAU$bmvAmthP7L7xwsHp}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) + #{tmp -ANAU$bmvAmthP7L7xwsHl}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMBk}# - #{b _hoQGWMnyQPAh3k2jhWMBl}#) - (#{req _hoQGWMnyQPAh3k2jhWL@C}# - #{b _hoQGWMnyQPAh3k2jhWMBl}# - (cons #{a _hoQGWMnyQPAh3k2jhWMBk}# - #{rreq _hoQGWMnyQPAh3k2jhWL@H}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMBE}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMBm}# - (list #{args _hoQGWMnyQPAh3k2jhWL@G}#))) + (lambda (#{a -ANAU$bmvAmthP7L7xwsIF}# + #{b -ANAU$bmvAmthP7L7xwsIG}#) + (#{req -ANAU$bmvAmthP7L7xwsFj}# + #{b -ANAU$bmvAmthP7L7xwsIG}# + (cons #{a -ANAU$bmvAmthP7L7xwsIF}# + #{rreq -ANAU$bmvAmthP7L7xwsFo}#))) + #{tmp -ANAU$bmvAmthP7L7xwsHl}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsIH}# + (list #{args -ANAU$bmvAmthP7L7xwsFn}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMBo}#) - (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMBo}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#) + (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMBo}#) + #{r -ANAU$bmvAmthP7L7xwsIJ}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMBo}#) + #{r -ANAU$bmvAmthP7L7xwsIJ}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMBo}# + #{r -ANAU$bmvAmthP7L7xwsIJ}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMBo}# + #{r -ANAU$bmvAmthP7L7xwsIJ}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) + #{tmp -ANAU$bmvAmthP7L7xwsIH}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMCG}#) - (#{check _hoQGWMnyQPAh3k2jhWL@D}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWL@H}#) - #{r _hoQGWMnyQPAh3k2jhWMCG}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMBm}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsIn}#) + (#{check -ANAU$bmvAmthP7L7xwsFk}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#) + #{r -ANAU$bmvAmthP7L7xwsIn}#)) + #{tmp -ANAU$bmvAmthP7L7xwsIH}#) (syntax-violation 'lambda "invalid argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# - #{args _hoQGWMnyQPAh3k2jhWL@G}#))))))))) - (#{check _hoQGWMnyQPAh3k2jhWL@D}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMEJ}# - #{rest _hoQGWMnyQPAh3k2jhWMEK}#) - (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - (if #{rest _hoQGWMnyQPAh3k2jhWMEK}# - (cons #{rest _hoQGWMnyQPAh3k2jhWMEK}# - #{req _hoQGWMnyQPAh3k2jhWMEJ}#) - #{req _hoQGWMnyQPAh3k2jhWMEJ}#)) + #{orig-args -ANAU$bmvAmthP7L7xwsFi}# + #{args -ANAU$bmvAmthP7L7xwsFn}#))))))))) + (#{check -ANAU$bmvAmthP7L7xwsFk}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsKq}# + #{rest -ANAU$bmvAmthP7L7xwsKr}#) + (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + (if #{rest -ANAU$bmvAmthP7L7xwsKr}# + (cons #{rest -ANAU$bmvAmthP7L7xwsKr}# + #{req -ANAU$bmvAmthP7L7xwsKq}#) + #{req -ANAU$bmvAmthP7L7xwsKq}#)) (values - #{req _hoQGWMnyQPAh3k2jhWMEJ}# + #{req -ANAU$bmvAmthP7L7xwsKq}# #f - #{rest _hoQGWMnyQPAh3k2jhWMEK}# + #{rest -ANAU$bmvAmthP7L7xwsKr}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWL@B}#))))) - (#{req _hoQGWMnyQPAh3k2jhWL@C}# - #{orig-args _hoQGWMnyQPAh3k2jhWL@B}# + #{orig-args -ANAU$bmvAmthP7L7xwsFi}#))))) + (#{req -ANAU$bmvAmthP7L7xwsFj}# + #{orig-args -ANAU$bmvAmthP7L7xwsFi}# '())))) - (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWMF$}# - #{r _hoQGWMnyQPAh3k2jhWMF@}# - #{w _hoQGWMnyQPAh3k2jhWMGA}# - #{s _hoQGWMnyQPAh3k2jhWMGB}# - #{mod _hoQGWMnyQPAh3k2jhWMGC}# - #{req _hoQGWMnyQPAh3k2jhWMGD}# - #{rest _hoQGWMnyQPAh3k2jhWMGE}# - #{meta _hoQGWMnyQPAh3k2jhWMGF}# - #{body _hoQGWMnyQPAh3k2jhWMGG}#) - (let ((#{ids _hoQGWMnyQPAh3k2jhWMGH}# - (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# + (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}# + (lambda (#{e -ANAU$bmvAmthP7L7xwsMf}# + #{r -ANAU$bmvAmthP7L7xwsMg}# + #{w -ANAU$bmvAmthP7L7xwsMh}# + #{s -ANAU$bmvAmthP7L7xwsMi}# + #{mod -ANAU$bmvAmthP7L7xwsMj}# + #{req -ANAU$bmvAmthP7L7xwsMk}# + #{rest -ANAU$bmvAmthP7L7xwsMl}# + #{meta -ANAU$bmvAmthP7L7xwsMm}# + #{body -ANAU$bmvAmthP7L7xwsMn}#) + (let ((#{ids -ANAU$bmvAmthP7L7xwsMo}# + (if #{rest -ANAU$bmvAmthP7L7xwsMl}# (append - #{req _hoQGWMnyQPAh3k2jhWMGD}# - (list #{rest _hoQGWMnyQPAh3k2jhWMGE}#)) - #{req _hoQGWMnyQPAh3k2jhWMGD}#))) - (let ((#{vars _hoQGWMnyQPAh3k2jhWMGI}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) - (let ((#{labels _hoQGWMnyQPAh3k2jhWMGJ}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{ids _hoQGWMnyQPAh3k2jhWMGH}#))) - (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# - #{s _hoQGWMnyQPAh3k2jhWMGB}# + #{req -ANAU$bmvAmthP7L7xwsMk}# + (list #{rest -ANAU$bmvAmthP7L7xwsMl}#)) + #{req -ANAU$bmvAmthP7L7xwsMk}#))) + (let ((#{vars -ANAU$bmvAmthP7L7xwsMp}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{ids -ANAU$bmvAmthP7L7xwsMo}#))) + (let ((#{labels -ANAU$bmvAmthP7L7xwsMq}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{ids -ANAU$bmvAmthP7L7xwsMo}#))) + (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# + #{s -ANAU$bmvAmthP7L7xwsMi}# (map syntax->datum - #{req _hoQGWMnyQPAh3k2jhWMGD}#) - (if #{rest _hoQGWMnyQPAh3k2jhWMGE}# - (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMGE}#) + #{req -ANAU$bmvAmthP7L7xwsMk}#) + (if #{rest -ANAU$bmvAmthP7L7xwsMl}# + (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#) #f) - #{vars _hoQGWMnyQPAh3k2jhWMGI}# - #{meta _hoQGWMnyQPAh3k2jhWMGF}# - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - #{body _hoQGWMnyQPAh3k2jhWMGG}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{vars -ANAU$bmvAmthP7L7xwsMp}# + #{meta -ANAU$bmvAmthP7L7xwsMm}# + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + #{body -ANAU$bmvAmthP7L7xwsMn}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMF$}#) - #{s _hoQGWMnyQPAh3k2jhWMGB}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#) + #{s -ANAU$bmvAmthP7L7xwsMi}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWMF$}# - #{s _hoQGWMnyQPAh3k2jhWMGB}#)) - #{e _hoQGWMnyQPAh3k2jhWMF$}#) - #{w _hoQGWMnyQPAh3k2jhWMGA}# - #{mod _hoQGWMnyQPAh3k2jhWMGC}#) - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWMGJ}# - #{vars _hoQGWMnyQPAh3k2jhWMGI}# - #{r _hoQGWMnyQPAh3k2jhWMF@}#) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{ids _hoQGWMnyQPAh3k2jhWMGH}# - #{labels _hoQGWMnyQPAh3k2jhWMGJ}# - #{w _hoQGWMnyQPAh3k2jhWMGA}#) - #{mod _hoQGWMnyQPAh3k2jhWMGC}#))))))) - (#{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# - (lambda (#{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#) + #{e -ANAU$bmvAmthP7L7xwsMf}# + #{s -ANAU$bmvAmthP7L7xwsMi}#)) + #{e -ANAU$bmvAmthP7L7xwsMf}#) + #{w -ANAU$bmvAmthP7L7xwsMh}# + #{mod -ANAU$bmvAmthP7L7xwsMj}#) + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwsMq}# + #{vars -ANAU$bmvAmthP7L7xwsMp}# + #{r -ANAU$bmvAmthP7L7xwsMg}#) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{ids -ANAU$bmvAmthP7L7xwsMo}# + #{labels -ANAU$bmvAmthP7L7xwsMq}# + #{w -ANAU$bmvAmthP7L7xwsMh}#) + #{mod -ANAU$bmvAmthP7L7xwsMj}#))))))) + (#{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}# + (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsQ6}#) (letrec* - ((#{req _hoQGWMnyQPAh3k2jhWMKa}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMKh}# - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKk}# + ((#{req -ANAU$bmvAmthP7L7xwsQ7}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}# + #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMKk}# + (if #{tmp -ANAU$bmvAmthP7L7xwsRF}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() #f '())) - #{tmp _hoQGWMnyQPAh3k2jhWMKk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMKq}# + #{tmp -ANAU$bmvAmthP7L7xwsRF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMKq}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMKu}# - #{b _hoQGWMnyQPAh3k2jhWMKv}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMKu}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}# + #{b -ANAU$bmvAmthP7L7xwsRQ}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMKu}#) + #{a -ANAU$bmvAmthP7L7xwsRP}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMKu}#) + #{a -ANAU$bmvAmthP7L7xwsRP}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMKu}# + #{a -ANAU$bmvAmthP7L7xwsRP}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMKu}# + #{a -ANAU$bmvAmthP7L7xwsRP}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) + #{tmp -ANAU$bmvAmthP7L7xwsRL}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLK}# - #{b _hoQGWMnyQPAh3k2jhWMLL}#) - (#{req _hoQGWMnyQPAh3k2jhWMKa}# - #{b _hoQGWMnyQPAh3k2jhWMLL}# - (cons #{a _hoQGWMnyQPAh3k2jhWMLK}# - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMKq}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLM}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsRr}# + #{b -ANAU$bmvAmthP7L7xwsRs}#) + (#{req -ANAU$bmvAmthP7L7xwsQ7}# + #{b -ANAU$bmvAmthP7L7xwsRs}# + (cons #{a -ANAU$bmvAmthP7L7xwsRr}# + #{rreq -ANAU$bmvAmthP7L7xwsRD}#))) + #{tmp -ANAU$bmvAmthP7L7xwsRL}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsRt}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLM}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLQ}# - #{b _hoQGWMnyQPAh3k2jhWMLR}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}# + #{b -ANAU$bmvAmthP7L7xwsRy}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMLQ}#) + #{a -ANAU$bmvAmthP7L7xwsRx}#) #:optional)) - #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) + #{tmp -ANAU$bmvAmthP7L7xwsRt}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLS}# - #{b _hoQGWMnyQPAh3k2jhWMLT}#) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - #{b _hoQGWMnyQPAh3k2jhWMLT}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}# + #{b -ANAU$bmvAmthP7L7xwsR0}#) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + #{b -ANAU$bmvAmthP7L7xwsR0}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLM}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLW}# + #{tmp -ANAU$bmvAmthP7L7xwsRt}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLW}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLa}# - #{b _hoQGWMnyQPAh3k2jhWMLb}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}# + #{b -ANAU$bmvAmthP7L7xwsR8}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMLa}#) + #{a -ANAU$bmvAmthP7L7xwsR7}#) #:key)) - #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) + #{tmp -ANAU$bmvAmthP7L7xwsR3}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLc}# - #{b _hoQGWMnyQPAh3k2jhWMLd}#) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMLd}# - (reverse #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}# + #{b -ANAU$bmvAmthP7L7xwsR$}#) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsR$}# + (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLW}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLg}# + #{tmp -ANAU$bmvAmthP7L7xwsR3}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMKh}# + #{args -ANAU$bmvAmthP7L7xwsRC}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMLg}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLk}# - #{b _hoQGWMnyQPAh3k2jhWMLl}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}# + #{b -ANAU$bmvAmthP7L7xwsSG}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMLk}#) + #{a -ANAU$bmvAmthP7L7xwsSF}#) #:rest)) - #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) + #{tmp -ANAU$bmvAmthP7L7xwsSB}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMLm}# - #{b _hoQGWMnyQPAh3k2jhWMLn}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMLn}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}# + #{b -ANAU$bmvAmthP7L7xwsSI}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsSI}# (reverse - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLg}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMLq}# - (list #{args _hoQGWMnyQPAh3k2jhWMKh}#))) + #{tmp -ANAU$bmvAmthP7L7xwsSB}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}# + (list #{args -ANAU$bmvAmthP7L7xwsRC}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMLs}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsSN}#) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMLs}#) + #{r -ANAU$bmvAmthP7L7xwsSN}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMLs}#) + #{r -ANAU$bmvAmthP7L7xwsSN}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMLs}#) + #{r -ANAU$bmvAmthP7L7xwsSN}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMLs}# + #{r -ANAU$bmvAmthP7L7xwsSN}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMLs}# + #{r -ANAU$bmvAmthP7L7xwsSN}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) + #{tmp -ANAU$bmvAmthP7L7xwsSL}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMMK}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMMK}# + (lambda (#{r -ANAU$bmvAmthP7L7xwsSr}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsSr}# (reverse - #{rreq _hoQGWMnyQPAh3k2jhWMKi}#) + #{rreq -ANAU$bmvAmthP7L7xwsRD}#) '() '())) - #{tmp _hoQGWMnyQPAh3k2jhWMLq}#) + #{tmp -ANAU$bmvAmthP7L7xwsSL}#) (syntax-violation 'lambda* "invalid argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMKh}#))))))))))))))) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMMd}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMh}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsRC}#))))))))))))))) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsS$}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + #{ropt -ANAU$bmvAmthP7L7xwsTA}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsTC}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMMh}# + (if #{tmp -ANAU$bmvAmthP7L7xwsTC}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#) #f '())) - #{tmp _hoQGWMnyQPAh3k2jhWMMh}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMMn}# + #{tmp -ANAU$bmvAmthP7L7xwsTC}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMMn}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMMr}# - #{b _hoQGWMnyQPAh3k2jhWMMs}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMMr}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}# + #{b -ANAU$bmvAmthP7L7xwsTN}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMMr}#) + #{a -ANAU$bmvAmthP7L7xwsTM}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMMr}#) + #{a -ANAU$bmvAmthP7L7xwsTM}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMMr}# + #{a -ANAU$bmvAmthP7L7xwsTM}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMMr}# + #{a -ANAU$bmvAmthP7L7xwsTM}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) + #{tmp -ANAU$bmvAmthP7L7xwsTI}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNH}# - #{b _hoQGWMnyQPAh3k2jhWMNI}#) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - #{b _hoQGWMnyQPAh3k2jhWMNI}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (cons (cons #{a _hoQGWMnyQPAh3k2jhWMNH}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}# + #{b -ANAU$bmvAmthP7L7xwsTp}#) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + #{b -ANAU$bmvAmthP7L7xwsTp}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("2f1" "2f2")) + #("qt" "qu")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("2ew" "2ex" "2ey")) + #("qo" "qp" "qq")) #(ribcage (check rest key opt req) ((top) @@ -6981,15 +6963,11 @@ (top) (top) (top)) - ("2ea" - "2e9" - "2e8" - "2e7" - "2e6")) + ("q2" "q1" "q0" "pz" "py")) #(ribcage #(orig-args) #((top)) - #("2e5")) + #("px")) #(ribcage (lambda-var-list gen-var @@ -7271,338 +7249,338 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMMn}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNJ}# + #{ropt -ANAU$bmvAmthP7L7xwsTA}#))) + #{tmp -ANAU$bmvAmthP7L7xwsTI}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '((any any) . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNJ}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNN}# - #{init _hoQGWMnyQPAh3k2jhWMNO}# - #{b _hoQGWMnyQPAh3k2jhWMNP}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMNN}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}# + #{init -ANAU$bmvAmthP7L7xwsTv}# + #{b -ANAU$bmvAmthP7L7xwsTw}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMNN}#) + #{a -ANAU$bmvAmthP7L7xwsTu}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMNN}#) + #{a -ANAU$bmvAmthP7L7xwsTu}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMNN}# + #{a -ANAU$bmvAmthP7L7xwsTu}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMNN}# + #{a -ANAU$bmvAmthP7L7xwsTu}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) + #{tmp -ANAU$bmvAmthP7L7xwsTq}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNq}# - #{init _hoQGWMnyQPAh3k2jhWMNr}# - #{b _hoQGWMnyQPAh3k2jhWMNs}#) - (#{opt _hoQGWMnyQPAh3k2jhWMKb}# - #{b _hoQGWMnyQPAh3k2jhWMNs}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (cons (list #{a _hoQGWMnyQPAh3k2jhWMNq}# - #{init _hoQGWMnyQPAh3k2jhWMNr}#) - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMNJ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMNt}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsUL}# + #{init -ANAU$bmvAmthP7L7xwsUM}# + #{b -ANAU$bmvAmthP7L7xwsUN}#) + (#{opt -ANAU$bmvAmthP7L7xwsQ8}# + #{b -ANAU$bmvAmthP7L7xwsUN}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (cons (list #{a -ANAU$bmvAmthP7L7xwsUL}# + #{init -ANAU$bmvAmthP7L7xwsUM}#) + #{ropt -ANAU$bmvAmthP7L7xwsTA}#))) + #{tmp -ANAU$bmvAmthP7L7xwsTq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsUO}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMNt}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNx}# - #{b _hoQGWMnyQPAh3k2jhWMNy}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}# + #{b -ANAU$bmvAmthP7L7xwsUT}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMNx}#) + #{a -ANAU$bmvAmthP7L7xwsUS}#) #:key)) - #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) + #{tmp -ANAU$bmvAmthP7L7xwsUO}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMNz}# - #{b _hoQGWMnyQPAh3k2jhWMN0}#) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMN0}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# - (reverse #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}# + #{b -ANAU$bmvAmthP7L7xwsUV}#) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsUV}# + #{req -ANAU$bmvAmthP7L7xwsS@}# + (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMNt}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMN3}# + #{tmp -ANAU$bmvAmthP7L7xwsUO}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMMd}# + #{args -ANAU$bmvAmthP7L7xwsS$}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMN3}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMN7}# - #{b _hoQGWMnyQPAh3k2jhWMN8}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}# + #{b -ANAU$bmvAmthP7L7xwsUd}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMN7}#) + #{a -ANAU$bmvAmthP7L7xwsUc}#) #:rest)) - #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) + #{tmp -ANAU$bmvAmthP7L7xwsUY}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMN9}# - #{b _hoQGWMnyQPAh3k2jhWMN$}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMN$}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}# + #{b -ANAU$bmvAmthP7L7xwsUf}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsUf}# + #{req -ANAU$bmvAmthP7L7xwsS@}# (reverse - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + #{ropt -ANAU$bmvAmthP7L7xwsTA}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMN3}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMOB}# - (list #{args _hoQGWMnyQPAh3k2jhWMMd}#))) + #{tmp -ANAU$bmvAmthP7L7xwsUY}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}# + (list #{args -ANAU$bmvAmthP7L7xwsS$}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMOD}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsUk}#) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMOD}#) + #{r -ANAU$bmvAmthP7L7xwsUk}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMOD}#) + #{r -ANAU$bmvAmthP7L7xwsUk}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMOD}#) + #{r -ANAU$bmvAmthP7L7xwsUk}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMOD}# + #{r -ANAU$bmvAmthP7L7xwsUk}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMOD}# + #{r -ANAU$bmvAmthP7L7xwsUk}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) + #{tmp -ANAU$bmvAmthP7L7xwsUi}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMOh}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMOh}# - #{req _hoQGWMnyQPAh3k2jhWMMe}# + (lambda (#{r -ANAU$bmvAmthP7L7xwsVC}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsVC}# + #{req -ANAU$bmvAmthP7L7xwsS@}# (reverse - #{ropt _hoQGWMnyQPAh3k2jhWMMf}#) + #{ropt -ANAU$bmvAmthP7L7xwsTA}#) '())) - #{tmp _hoQGWMnyQPAh3k2jhWMOB}#) + #{tmp -ANAU$bmvAmthP7L7xwsUi}#) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMMd}#))))))))))))))) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMO0}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO5}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsS$}#))))))))))))))) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsVV}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsVa}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMO5}# + (if #{tmp -ANAU$bmvAmthP7L7xwsVa}# (@apply (lambda () - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# #f (cons #f - (reverse #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMO5}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMO@}# + (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsVa}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMO@}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMPD}# - #{b _hoQGWMnyQPAh3k2jhWMPE}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPD}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}# + #{b -ANAU$bmvAmthP7L7xwsVl}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMPD}#) + #{a -ANAU$bmvAmthP7L7xwsVk}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMPD}#) + #{a -ANAU$bmvAmthP7L7xwsVk}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPD}# + #{a -ANAU$bmvAmthP7L7xwsVk}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPD}# + #{a -ANAU$bmvAmthP7L7xwsVk}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) + #{tmp -ANAU$bmvAmthP7L7xwsVg}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMPf}# - #{b _hoQGWMnyQPAh3k2jhWMPg}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPh}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}# + #{b -ANAU$bmvAmthP7L7xwsWB}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}# (symbol->keyword (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMPf}#)))) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMPg}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - (cons (cons #{tmp _hoQGWMnyQPAh3k2jhWMPh}# - (cons #{a _hoQGWMnyQPAh3k2jhWMPf}# + #{a -ANAU$bmvAmthP7L7xwsWA}#)))) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsWB}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + (cons (cons #{tmp -ANAU$bmvAmthP7L7xwsWC}# + (cons #{a -ANAU$bmvAmthP7L7xwsWA}# '(#(syntax-object #f ((top) @@ -7610,11 +7588,11 @@ #(ribcage #(k) #((top)) - #("2fs")) + #("rk")) #(ribcage #(a b) #((top) (top)) - #("2fq" "2fr")) + #("ri" "rj")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7622,10 +7600,10 @@ (top) (top) (top)) - #("2fk" - "2fl" - "2fm" - "2fn")) + #("rc" + "rd" + "re" + "rf")) #(ribcage (check rest key @@ -7636,15 +7614,15 @@ (top) (top) (top)) - ("2ea" - "2e9" - "2e8" - "2e7" - "2e6")) + ("q2" + "q1" + "q0" + "pz" + "py")) #(ribcage #(orig-args) #((top)) - #("2e5")) + #("px")) #(ribcage (lambda-var-list gen-var @@ -7926,1063 +7904,1063 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))))) - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMO@}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMPk}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsVg}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '((any any) . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMPk}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMPo}# - #{init _hoQGWMnyQPAh3k2jhWMPp}# - #{b _hoQGWMnyQPAh3k2jhWMPq}#) - (if (symbol? #{a _hoQGWMnyQPAh3k2jhWMPo}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}# + #{init -ANAU$bmvAmthP7L7xwsWK}# + #{b -ANAU$bmvAmthP7L7xwsWL}#) + (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMPo}#) + #{a -ANAU$bmvAmthP7L7xwsWJ}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMPo}#) + #{a -ANAU$bmvAmthP7L7xwsWJ}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPo}# + #{a -ANAU$bmvAmthP7L7xwsWJ}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMPo}# + #{a -ANAU$bmvAmthP7L7xwsWJ}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) + #{tmp -ANAU$bmvAmthP7L7xwsWF}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMQF}# - #{init _hoQGWMnyQPAh3k2jhWMQG}# - #{b _hoQGWMnyQPAh3k2jhWMQH}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQI}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}# + #{init -ANAU$bmvAmthP7L7xwsWn}# + #{b -ANAU$bmvAmthP7L7xwsWo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}# (symbol->keyword (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMQF}#)))) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMQH}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - (cons (list #{tmp _hoQGWMnyQPAh3k2jhWMQI}# - #{a _hoQGWMnyQPAh3k2jhWMQF}# - #{init _hoQGWMnyQPAh3k2jhWMQG}#) - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMPk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQL}# + #{a -ANAU$bmvAmthP7L7xwsWm}#)))) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsWo}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + (cons (list #{tmp -ANAU$bmvAmthP7L7xwsWp}# + #{a -ANAU$bmvAmthP7L7xwsWm}# + #{init -ANAU$bmvAmthP7L7xwsWn}#) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsWF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsWs}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '((any any any) . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQL}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMQP}# - #{init _hoQGWMnyQPAh3k2jhWMQQ}# - #{k _hoQGWMnyQPAh3k2jhWMQR}# - #{b _hoQGWMnyQPAh3k2jhWMQS}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}# + #{init -ANAU$bmvAmthP7L7xwsWx}# + #{k -ANAU$bmvAmthP7L7xwsWy}# + #{b -ANAU$bmvAmthP7L7xwsWz}#) (if (if (symbol? - #{a _hoQGWMnyQPAh3k2jhWMQP}#) + #{a -ANAU$bmvAmthP7L7xwsWw}#) #t (if (if (vector? - #{a _hoQGWMnyQPAh3k2jhWMQP}#) + #{a -ANAU$bmvAmthP7L7xwsWw}#) (if (= (vector-length - #{a _hoQGWMnyQPAh3k2jhWMQP}#) + #{a -ANAU$bmvAmthP7L7xwsWw}#) 4) (eq? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMQP}# + #{a -ANAU$bmvAmthP7L7xwsWw}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{a _hoQGWMnyQPAh3k2jhWMQP}# + #{a -ANAU$bmvAmthP7L7xwsWw}# 1)) #f)) (keyword? (syntax->datum - #{k _hoQGWMnyQPAh3k2jhWMQR}#)) + #{k -ANAU$bmvAmthP7L7xwsWy}#)) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) + #{tmp -ANAU$bmvAmthP7L7xwsWs}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMQt}# - #{init _hoQGWMnyQPAh3k2jhWMQu}# - #{k _hoQGWMnyQPAh3k2jhWMQv}# - #{b _hoQGWMnyQPAh3k2jhWMQw}#) - (#{key _hoQGWMnyQPAh3k2jhWMKc}# - #{b _hoQGWMnyQPAh3k2jhWMQw}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# - (cons (list #{k _hoQGWMnyQPAh3k2jhWMQv}# - #{a _hoQGWMnyQPAh3k2jhWMQt}# - #{init _hoQGWMnyQPAh3k2jhWMQu}#) - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMQL}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQx}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsXO}# + #{init -ANAU$bmvAmthP7L7xwsXP}# + #{k -ANAU$bmvAmthP7L7xwsXQ}# + #{b -ANAU$bmvAmthP7L7xwsXR}#) + (#{key -ANAU$bmvAmthP7L7xwsQ9}# + #{b -ANAU$bmvAmthP7L7xwsXR}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# + (cons (list #{k -ANAU$bmvAmthP7L7xwsXQ}# + #{a -ANAU$bmvAmthP7L7xwsXO}# + #{init -ANAU$bmvAmthP7L7xwsXP}#) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#))) + #{tmp -ANAU$bmvAmthP7L7xwsWs}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsXS}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQx}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}# (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ1}#) + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXW}#) (eq? (syntax->datum - #{aok _hoQGWMnyQPAh3k2jhWMQ1}#) + #{aok -ANAU$bmvAmthP7L7xwsXW}#) #:allow-other-keys)) - #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) + #{tmp -ANAU$bmvAmthP7L7xwsXS}#) #f) (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ2}#) - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# #f (cons #t (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMQx}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMQ5}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsXS}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMQ5}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}# (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMQ9}# - #{a _hoQGWMnyQPAh3k2jhWMQ$}# - #{b _hoQGWMnyQPAh3k2jhWMQ@}#) + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXe}# + #{a -ANAU$bmvAmthP7L7xwsXf}# + #{b -ANAU$bmvAmthP7L7xwsXg}#) (if (eq? (syntax->datum - #{aok _hoQGWMnyQPAh3k2jhWMQ9}#) + #{aok -ANAU$bmvAmthP7L7xwsXe}#) #:allow-other-keys) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMQ$}#) + #{a -ANAU$bmvAmthP7L7xwsXf}#) #:rest) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) + #{tmp -ANAU$bmvAmthP7L7xwsXa}#) #f) (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRA}# - #{a _hoQGWMnyQPAh3k2jhWMRB}# - #{b _hoQGWMnyQPAh3k2jhWMRC}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMRC}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXh}# + #{a -ANAU$bmvAmthP7L7xwsXi}# + #{b -ANAU$bmvAmthP7L7xwsXj}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsXj}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #t (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMQ5}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRF}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsXa}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRF}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsXm}# (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRJ}# - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + (lambda (#{aok -ANAU$bmvAmthP7L7xwsXq}# + #{r -ANAU$bmvAmthP7L7xwsXr}#) (if (eq? (syntax->datum - #{aok _hoQGWMnyQPAh3k2jhWMRJ}#) + #{aok -ANAU$bmvAmthP7L7xwsXq}#) #:allow-other-keys) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + #{r -ANAU$bmvAmthP7L7xwsXr}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + #{r -ANAU$bmvAmthP7L7xwsXr}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMRK}#) + #{r -ANAU$bmvAmthP7L7xwsXr}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMRK}# + #{r -ANAU$bmvAmthP7L7xwsXr}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMRK}# + #{r -ANAU$bmvAmthP7L7xwsXr}# 1)) #f)) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) + #{tmp -ANAU$bmvAmthP7L7xwsXm}#) #f) (@apply - (lambda (#{aok _hoQGWMnyQPAh3k2jhWMRl}# - #{r _hoQGWMnyQPAh3k2jhWMRm}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMRm}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{aok -ANAU$bmvAmthP7L7xwsYG}# + #{r -ANAU$bmvAmthP7L7xwsYH}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsYH}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #t (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMRF}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRp}# + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsXm}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsYK}# ($sc-dispatch - #{args _hoQGWMnyQPAh3k2jhWMO0}# + #{args -ANAU$bmvAmthP7L7xwsVV}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMRp}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsYK}# (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMRt}# - #{b _hoQGWMnyQPAh3k2jhWMRu}#) + (lambda (#{a -ANAU$bmvAmthP7L7xwsYO}# + #{b -ANAU$bmvAmthP7L7xwsYP}#) (eq? (syntax->datum - #{a _hoQGWMnyQPAh3k2jhWMRt}#) + #{a -ANAU$bmvAmthP7L7xwsYO}#) #:rest)) - #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) + #{tmp -ANAU$bmvAmthP7L7xwsYK}#) #f) (@apply - (lambda (#{a _hoQGWMnyQPAh3k2jhWMRv}# - #{b _hoQGWMnyQPAh3k2jhWMRw}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{b _hoQGWMnyQPAh3k2jhWMRw}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{a -ANAU$bmvAmthP7L7xwsYQ}# + #{b -ANAU$bmvAmthP7L7xwsYR}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{b -ANAU$bmvAmthP7L7xwsYR}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #f (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMRp}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMRz}# - (list #{args _hoQGWMnyQPAh3k2jhWMO0}#))) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsYK}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsYU}# + (list #{args -ANAU$bmvAmthP7L7xwsVV}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMR1}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsYW}#) (if (symbol? - #{r _hoQGWMnyQPAh3k2jhWMR1}#) + #{r -ANAU$bmvAmthP7L7xwsYW}#) #t (if (if (vector? - #{r _hoQGWMnyQPAh3k2jhWMR1}#) + #{r -ANAU$bmvAmthP7L7xwsYW}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMR1}#) + #{r -ANAU$bmvAmthP7L7xwsYW}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMR1}# + #{r -ANAU$bmvAmthP7L7xwsYW}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMR1}# + #{r -ANAU$bmvAmthP7L7xwsYW}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) + #{tmp -ANAU$bmvAmthP7L7xwsYU}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMST}#) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - #{r _hoQGWMnyQPAh3k2jhWMST}# - #{req _hoQGWMnyQPAh3k2jhWMO1}# - #{opt _hoQGWMnyQPAh3k2jhWMO2}# + (lambda (#{r -ANAU$bmvAmthP7L7xwsY0}#) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + #{r -ANAU$bmvAmthP7L7xwsY0}# + #{req -ANAU$bmvAmthP7L7xwsVW}# + #{opt -ANAU$bmvAmthP7L7xwsVX}# (cons #f (reverse - #{rkey _hoQGWMnyQPAh3k2jhWMO3}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMRz}#) + #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) + #{tmp -ANAU$bmvAmthP7L7xwsYU}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMO0}#))))))))))))))))))))) - (#{rest _hoQGWMnyQPAh3k2jhWMKd}# - (lambda (#{args _hoQGWMnyQPAh3k2jhWMSv}# - #{req _hoQGWMnyQPAh3k2jhWMSw}# - #{opt _hoQGWMnyQPAh3k2jhWMSx}# - #{kw _hoQGWMnyQPAh3k2jhWMSy}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMS0}# - (list #{args _hoQGWMnyQPAh3k2jhWMSv}#))) + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsVV}#))))))))))))))))))))) + (#{rest -ANAU$bmvAmthP7L7xwsQ$}# + (lambda (#{args -ANAU$bmvAmthP7L7xwsZQ}# + #{req -ANAU$bmvAmthP7L7xwsZR}# + #{opt -ANAU$bmvAmthP7L7xwsZS}# + #{kw -ANAU$bmvAmthP7L7xwsZT}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsZV}# + (list #{args -ANAU$bmvAmthP7L7xwsZQ}#))) (if (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMS2}#) - (if (symbol? #{r _hoQGWMnyQPAh3k2jhWMS2}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#) + (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#) #t - (if (if (vector? #{r _hoQGWMnyQPAh3k2jhWMS2}#) + (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#) (if (= (vector-length - #{r _hoQGWMnyQPAh3k2jhWMS2}#) + #{r -ANAU$bmvAmthP7L7xwsZX}#) 4) (eq? (vector-ref - #{r _hoQGWMnyQPAh3k2jhWMS2}# + #{r -ANAU$bmvAmthP7L7xwsZX}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r _hoQGWMnyQPAh3k2jhWMS2}# 1)) + (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) + #{tmp -ANAU$bmvAmthP7L7xwsZV}#) (@apply - (lambda (#{r _hoQGWMnyQPAh3k2jhWMTU}#) - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - #{req _hoQGWMnyQPAh3k2jhWMSw}# - #{opt _hoQGWMnyQPAh3k2jhWMSx}# - #{r _hoQGWMnyQPAh3k2jhWMTU}# - #{kw _hoQGWMnyQPAh3k2jhWMSy}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMS0}#) + (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + #{req -ANAU$bmvAmthP7L7xwsZR}# + #{opt -ANAU$bmvAmthP7L7xwsZS}# + #{r -ANAU$bmvAmthP7L7xwsZ1}# + #{kw -ANAU$bmvAmthP7L7xwsZT}#)) + #{tmp -ANAU$bmvAmthP7L7xwsZV}#) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# - #{args _hoQGWMnyQPAh3k2jhWMSv}#))))) - (#{check _hoQGWMnyQPAh3k2jhWMKe}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMTY}# - #{opt _hoQGWMnyQPAh3k2jhWMTZ}# - #{rest _hoQGWMnyQPAh3k2jhWMTa}# - #{kw _hoQGWMnyQPAh3k2jhWMTb}#) - (if (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# + #{args -ANAU$bmvAmthP7L7xwsZQ}#))))) + (#{check -ANAU$bmvAmthP7L7xwsQ@}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsZ5}# + #{opt -ANAU$bmvAmthP7L7xwsZ6}# + #{rest -ANAU$bmvAmthP7L7xwsZ7}# + #{kw -ANAU$bmvAmthP7L7xwsZ8}#) + (if (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# (append - #{req _hoQGWMnyQPAh3k2jhWMTY}# - (map car #{opt _hoQGWMnyQPAh3k2jhWMTZ}#) - (if #{rest _hoQGWMnyQPAh3k2jhWMTa}# - (list #{rest _hoQGWMnyQPAh3k2jhWMTa}#) + #{req -ANAU$bmvAmthP7L7xwsZ5}# + (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#) + (if #{rest -ANAU$bmvAmthP7L7xwsZ7}# + (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#) '()) - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMTb}#) - (map cadr (cdr #{kw _hoQGWMnyQPAh3k2jhWMTb}#)) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#) + (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#)) '()))) (values - #{req _hoQGWMnyQPAh3k2jhWMTY}# - #{opt _hoQGWMnyQPAh3k2jhWMTZ}# - #{rest _hoQGWMnyQPAh3k2jhWMTa}# - #{kw _hoQGWMnyQPAh3k2jhWMTb}#) + #{req -ANAU$bmvAmthP7L7xwsZ5}# + #{opt -ANAU$bmvAmthP7L7xwsZ6}# + #{rest -ANAU$bmvAmthP7L7xwsZ7}# + #{kw -ANAU$bmvAmthP7L7xwsZ8}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}#))))) - (#{req _hoQGWMnyQPAh3k2jhWMKa}# - #{orig-args _hoQGWMnyQPAh3k2jhWMKZ}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#))))) + (#{req -ANAU$bmvAmthP7L7xwsQ7}# + #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# '())))) - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWMVP}# - #{r _hoQGWMnyQPAh3k2jhWMVQ}# - #{w _hoQGWMnyQPAh3k2jhWMVR}# - #{s _hoQGWMnyQPAh3k2jhWMVS}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}# - #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# - #{clauses _hoQGWMnyQPAh3k2jhWMVV}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + (lambda (#{e -ANAU$bmvAmthP7L7xwsbw}# + #{r -ANAU$bmvAmthP7L7xwsbx}# + #{w -ANAU$bmvAmthP7L7xwsby}# + #{s -ANAU$bmvAmthP7L7xwsbz}# + #{mod -ANAU$bmvAmthP7L7xwsb0}# + #{get-formals -ANAU$bmvAmthP7L7xwsb1}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}#) (letrec* - ((#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMXV}# - #{opt _hoQGWMnyQPAh3k2jhWMXW}# - #{rest _hoQGWMnyQPAh3k2jhWMXX}# - #{kw _hoQGWMnyQPAh3k2jhWMXY}# - #{body _hoQGWMnyQPAh3k2jhWMXZ}#) - (let ((#{vars _hoQGWMnyQPAh3k2jhWMXa}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{req _hoQGWMnyQPAh3k2jhWMXV}#)) - (#{labels _hoQGWMnyQPAh3k2jhWMXb}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{req _hoQGWMnyQPAh3k2jhWMXV}#))) - (let ((#{r* _hoQGWMnyQPAh3k2jhWMXc}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWMXb}# - #{vars _hoQGWMnyQPAh3k2jhWMXa}# - #{r _hoQGWMnyQPAh3k2jhWMVQ}#)) - (#{w* _hoQGWMnyQPAh3k2jhWMXd}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{req _hoQGWMnyQPAh3k2jhWMXV}# - #{labels _hoQGWMnyQPAh3k2jhWMXb}# - #{w _hoQGWMnyQPAh3k2jhWMVR}#))) - (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# + ((#{parse-req -ANAU$bmvAmthP7L7xwsb3}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsd2}# + #{opt -ANAU$bmvAmthP7L7xwsd3}# + #{rest -ANAU$bmvAmthP7L7xwsd4}# + #{kw -ANAU$bmvAmthP7L7xwsd5}# + #{body -ANAU$bmvAmthP7L7xwsd6}#) + (let ((#{vars -ANAU$bmvAmthP7L7xwsd7}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{req -ANAU$bmvAmthP7L7xwsd2}#)) + (#{labels -ANAU$bmvAmthP7L7xwsd8}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{req -ANAU$bmvAmthP7L7xwsd2}#))) + (let ((#{r* -ANAU$bmvAmthP7L7xwsd9}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwsd8}# + #{vars -ANAU$bmvAmthP7L7xwsd7}# + #{r -ANAU$bmvAmthP7L7xwsbx}#)) + (#{w* -ANAU$bmvAmthP7L7xwsd$}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{req -ANAU$bmvAmthP7L7xwsd2}# + #{labels -ANAU$bmvAmthP7L7xwsd8}# + #{w -ANAU$bmvAmthP7L7xwsby}#))) + (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}# (map syntax->datum - #{req _hoQGWMnyQPAh3k2jhWMXV}#) - #{opt _hoQGWMnyQPAh3k2jhWMXW}# - #{rest _hoQGWMnyQPAh3k2jhWMXX}# - #{kw _hoQGWMnyQPAh3k2jhWMXY}# - #{body _hoQGWMnyQPAh3k2jhWMXZ}# - (reverse #{vars _hoQGWMnyQPAh3k2jhWMXa}#) - #{r* _hoQGWMnyQPAh3k2jhWMXc}# - #{w* _hoQGWMnyQPAh3k2jhWMXd}# + #{req -ANAU$bmvAmthP7L7xwsd2}#) + #{opt -ANAU$bmvAmthP7L7xwsd3}# + #{rest -ANAU$bmvAmthP7L7xwsd4}# + #{kw -ANAU$bmvAmthP7L7xwsd5}# + #{body -ANAU$bmvAmthP7L7xwsd6}# + (reverse #{vars -ANAU$bmvAmthP7L7xwsd7}#) + #{r* -ANAU$bmvAmthP7L7xwsd9}# + #{w* -ANAU$bmvAmthP7L7xwsd$}# '() '()))))) - (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMaN}# - #{opt _hoQGWMnyQPAh3k2jhWMaO}# - #{rest _hoQGWMnyQPAh3k2jhWMaP}# - #{kw _hoQGWMnyQPAh3k2jhWMaQ}# - #{body _hoQGWMnyQPAh3k2jhWMaR}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}# - #{r* _hoQGWMnyQPAh3k2jhWMaT}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}# - #{out _hoQGWMnyQPAh3k2jhWMaV}# - #{inits _hoQGWMnyQPAh3k2jhWMaW}#) - (if (pair? #{opt _hoQGWMnyQPAh3k2jhWMaO}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaX}# - (car #{opt _hoQGWMnyQPAh3k2jhWMaO}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMaY}# + (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsgu}# + #{opt -ANAU$bmvAmthP7L7xwsgv}# + #{rest -ANAU$bmvAmthP7L7xwsgw}# + #{kw -ANAU$bmvAmthP7L7xwsgx}# + #{body -ANAU$bmvAmthP7L7xwsgy}# + #{vars -ANAU$bmvAmthP7L7xwsgz}# + #{r* -ANAU$bmvAmthP7L7xwsg0}# + #{w* -ANAU$bmvAmthP7L7xwsg1}# + #{out -ANAU$bmvAmthP7L7xwsg2}# + #{inits -ANAU$bmvAmthP7L7xwsg3}#) + (if (pair? #{opt -ANAU$bmvAmthP7L7xwsgv}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsg4}# + (car #{opt -ANAU$bmvAmthP7L7xwsgv}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsg5}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWMaX}# + #{tmp -ANAU$bmvAmthP7L7xwsg4}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMaY}# + (if #{tmp -ANAU$bmvAmthP7L7xwsg5}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWMaa}# - #{i _hoQGWMnyQPAh3k2jhWMab}#) - (let ((#{v _hoQGWMnyQPAh3k2jhWMac}# - (let ((#{id _hoQGWMnyQPAh3k2jhWMak}# + (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}# + #{i -ANAU$bmvAmthP7L7xwsg8}#) + (let ((#{v -ANAU$bmvAmthP7L7xwsg9}# + (let ((#{id -ANAU$bmvAmthP7L7xwshF}# (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{id -ANAU$bmvAmthP7L7xwsg7}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWMaa}#) + #{id -ANAU$bmvAmthP7L7xwsg7}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMaa}# + #{id -ANAU$bmvAmthP7L7xwsg7}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMaa}# + #{id -ANAU$bmvAmthP7L7xwsg7}# 1) - #{id _hoQGWMnyQPAh3k2jhWMaa}#))) + #{id -ANAU$bmvAmthP7L7xwsg7}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWMak}#) + #{id -ANAU$bmvAmthP7L7xwshF}#) " "))))) - (let ((#{l _hoQGWMnyQPAh3k2jhWMad}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (list #{v _hoQGWMnyQPAh3k2jhWMac}#)))) - (let ((#{r** _hoQGWMnyQPAh3k2jhWMae}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{l _hoQGWMnyQPAh3k2jhWMad}# - (list #{v _hoQGWMnyQPAh3k2jhWMac}#) - #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) - (let ((#{w** _hoQGWMnyQPAh3k2jhWMaf}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{id _hoQGWMnyQPAh3k2jhWMaa}#) - #{l _hoQGWMnyQPAh3k2jhWMad}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) - (#{parse-opt _hoQGWMnyQPAh3k2jhWMVX}# - #{req _hoQGWMnyQPAh3k2jhWMaN}# - (cdr #{opt _hoQGWMnyQPAh3k2jhWMaO}#) - #{rest _hoQGWMnyQPAh3k2jhWMaP}# - #{kw _hoQGWMnyQPAh3k2jhWMaQ}# - #{body _hoQGWMnyQPAh3k2jhWMaR}# - (cons #{v _hoQGWMnyQPAh3k2jhWMac}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}#) - #{r** _hoQGWMnyQPAh3k2jhWMae}# - #{w** _hoQGWMnyQPAh3k2jhWMaf}# + (let ((#{l -ANAU$bmvAmthP7L7xwsg$}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (list #{v -ANAU$bmvAmthP7L7xwsg9}#)))) + (let ((#{r** -ANAU$bmvAmthP7L7xwsg@}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{l -ANAU$bmvAmthP7L7xwsg$}# + (list #{v -ANAU$bmvAmthP7L7xwsg9}#) + #{r* -ANAU$bmvAmthP7L7xwsg0}#))) + (let ((#{w** -ANAU$bmvAmthP7L7xwshA}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{id -ANAU$bmvAmthP7L7xwsg7}#) + #{l -ANAU$bmvAmthP7L7xwsg$}# + #{w* -ANAU$bmvAmthP7L7xwsg1}#))) + (#{parse-opt -ANAU$bmvAmthP7L7xwsb4}# + #{req -ANAU$bmvAmthP7L7xwsgu}# + (cdr #{opt -ANAU$bmvAmthP7L7xwsgv}#) + #{rest -ANAU$bmvAmthP7L7xwsgw}# + #{kw -ANAU$bmvAmthP7L7xwsgx}# + #{body -ANAU$bmvAmthP7L7xwsgy}# + (cons #{v -ANAU$bmvAmthP7L7xwsg9}# + #{vars -ANAU$bmvAmthP7L7xwsgz}#) + #{r** -ANAU$bmvAmthP7L7xwsg@}# + #{w** -ANAU$bmvAmthP7L7xwshA}# (cons (syntax->datum - #{id _hoQGWMnyQPAh3k2jhWMaa}#) - #{out _hoQGWMnyQPAh3k2jhWMaV}#) - (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{i _hoQGWMnyQPAh3k2jhWMab}# - #{r* _hoQGWMnyQPAh3k2jhWMaT}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#) - #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWMaY}#) + #{id -ANAU$bmvAmthP7L7xwsg7}#) + #{out -ANAU$bmvAmthP7L7xwsg2}#) + (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{i -ANAU$bmvAmthP7L7xwsg8}# + #{r* -ANAU$bmvAmthP7L7xwsg0}# + #{w* -ANAU$bmvAmthP7L7xwsg1}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#) + #{inits -ANAU$bmvAmthP7L7xwsg3}#))))))) + #{tmp -ANAU$bmvAmthP7L7xwsg5}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWMaX}#)))) - (if #{rest _hoQGWMnyQPAh3k2jhWMaP}# - (let ((#{v _hoQGWMnyQPAh3k2jhWMeJ}# - (let ((#{id _hoQGWMnyQPAh3k2jhWMeT}# + #{tmp -ANAU$bmvAmthP7L7xwsg4}#)))) + (if #{rest -ANAU$bmvAmthP7L7xwsgw}# + (let ((#{v -ANAU$bmvAmthP7L7xwskq}# + (let ((#{id -ANAU$bmvAmthP7L7xwsk0}# (if (if (vector? - #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + #{rest -ANAU$bmvAmthP7L7xwsgw}#) (if (= (vector-length - #{rest _hoQGWMnyQPAh3k2jhWMaP}#) + #{rest -ANAU$bmvAmthP7L7xwsgw}#) 4) (eq? (vector-ref - #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{rest -ANAU$bmvAmthP7L7xwsgw}# 0) 'syntax-object) #f) #f) (vector-ref - #{rest _hoQGWMnyQPAh3k2jhWMaP}# + #{rest -ANAU$bmvAmthP7L7xwsgw}# 1) - #{rest _hoQGWMnyQPAh3k2jhWMaP}#))) + #{rest -ANAU$bmvAmthP7L7xwsgw}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWMeT}#) + #{id -ANAU$bmvAmthP7L7xwsk0}#) " "))))) - (let ((#{l _hoQGWMnyQPAh3k2jhWMeK}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#)))) - (let ((#{r* _hoQGWMnyQPAh3k2jhWMeL}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{l _hoQGWMnyQPAh3k2jhWMeK}# - (list #{v _hoQGWMnyQPAh3k2jhWMeJ}#) - #{r* _hoQGWMnyQPAh3k2jhWMaT}#))) - (let ((#{w* _hoQGWMnyQPAh3k2jhWMeM}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{rest _hoQGWMnyQPAh3k2jhWMaP}#) - #{l _hoQGWMnyQPAh3k2jhWMeK}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}#))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - #{req _hoQGWMnyQPAh3k2jhWMaN}# - (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) - (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) + (let ((#{l -ANAU$bmvAmthP7L7xwskr}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (list #{v -ANAU$bmvAmthP7L7xwskq}#)))) + (let ((#{r* -ANAU$bmvAmthP7L7xwsks}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{l -ANAU$bmvAmthP7L7xwskr}# + (list #{v -ANAU$bmvAmthP7L7xwskq}#) + #{r* -ANAU$bmvAmthP7L7xwsg0}#))) + (let ((#{w* -ANAU$bmvAmthP7L7xwskt}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{rest -ANAU$bmvAmthP7L7xwsgw}#) + #{l -ANAU$bmvAmthP7L7xwskr}# + #{w* -ANAU$bmvAmthP7L7xwsg1}#))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + #{req -ANAU$bmvAmthP7L7xwsgu}# + (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#) + (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#) #f) - (syntax->datum #{rest _hoQGWMnyQPAh3k2jhWMaP}#) - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{body _hoQGWMnyQPAh3k2jhWMaR}# - (cons #{v _hoQGWMnyQPAh3k2jhWMeJ}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}#) - #{r* _hoQGWMnyQPAh3k2jhWMeL}# - #{w* _hoQGWMnyQPAh3k2jhWMeM}# - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsgw}#) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{body -ANAU$bmvAmthP7L7xwsgy}# + (cons #{v -ANAU$bmvAmthP7L7xwskq}# + #{vars -ANAU$bmvAmthP7L7xwsgz}#) + #{r* -ANAU$bmvAmthP7L7xwsks}# + #{w* -ANAU$bmvAmthP7L7xwskt}# + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (car #{kw -ANAU$bmvAmthP7L7xwsgx}#) #f) '() - #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - #{req _hoQGWMnyQPAh3k2jhWMaN}# - (if (pair? #{out _hoQGWMnyQPAh3k2jhWMaV}#) - (reverse #{out _hoQGWMnyQPAh3k2jhWMaV}#) + #{inits -ANAU$bmvAmthP7L7xwsg3}#))))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + #{req -ANAU$bmvAmthP7L7xwsgu}# + (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#) + (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#) #f) #f - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (cdr #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - #{body _hoQGWMnyQPAh3k2jhWMaR}# - #{vars _hoQGWMnyQPAh3k2jhWMaS}# - #{r* _hoQGWMnyQPAh3k2jhWMaT}# - #{w* _hoQGWMnyQPAh3k2jhWMaU}# - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) - (car #{kw _hoQGWMnyQPAh3k2jhWMaQ}#) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (cdr #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{kw -ANAU$bmvAmthP7L7xwsgx}#) + #{body -ANAU$bmvAmthP7L7xwsgy}# + #{vars -ANAU$bmvAmthP7L7xwsgz}# + #{r* -ANAU$bmvAmthP7L7xwsg0}# + #{w* -ANAU$bmvAmthP7L7xwsg1}# + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsgx}#) + (car #{kw -ANAU$bmvAmthP7L7xwsgx}#) #f) '() - #{inits _hoQGWMnyQPAh3k2jhWMaW}#))))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMg1}# - #{opt _hoQGWMnyQPAh3k2jhWMg2}# - #{rest _hoQGWMnyQPAh3k2jhWMg3}# - #{kw _hoQGWMnyQPAh3k2jhWMg4}# - #{body _hoQGWMnyQPAh3k2jhWMg5}# - #{vars _hoQGWMnyQPAh3k2jhWMg6}# - #{r* _hoQGWMnyQPAh3k2jhWMg7}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}# - #{aok _hoQGWMnyQPAh3k2jhWMg9}# - #{out _hoQGWMnyQPAh3k2jhWMg$}# - #{inits _hoQGWMnyQPAh3k2jhWMg@}#) - (if (pair? #{kw _hoQGWMnyQPAh3k2jhWMg4}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhA}# - (car #{kw _hoQGWMnyQPAh3k2jhWMg4}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMhB}# + #{inits -ANAU$bmvAmthP7L7xwsg3}#))))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsnW}# + #{opt -ANAU$bmvAmthP7L7xwsnX}# + #{rest -ANAU$bmvAmthP7L7xwsnY}# + #{kw -ANAU$bmvAmthP7L7xwsnZ}# + #{body -ANAU$bmvAmthP7L7xwsna}# + #{vars -ANAU$bmvAmthP7L7xwsnb}# + #{r* -ANAU$bmvAmthP7L7xwsnc}# + #{w* -ANAU$bmvAmthP7L7xwsnd}# + #{aok -ANAU$bmvAmthP7L7xwsne}# + #{out -ANAU$bmvAmthP7L7xwsnf}# + #{inits -ANAU$bmvAmthP7L7xwsng}#) + (if (pair? #{kw -ANAU$bmvAmthP7L7xwsnZ}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsnh}# + (car #{kw -ANAU$bmvAmthP7L7xwsnZ}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsni}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWMhA}# + #{tmp -ANAU$bmvAmthP7L7xwsnh}# '(any any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMhB}# + (if #{tmp -ANAU$bmvAmthP7L7xwsni}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMhD}# - #{id _hoQGWMnyQPAh3k2jhWMhE}# - #{i _hoQGWMnyQPAh3k2jhWMhF}#) - (let ((#{v _hoQGWMnyQPAh3k2jhWMhG}# - (let ((#{id _hoQGWMnyQPAh3k2jhWMhO}# + (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}# + #{id -ANAU$bmvAmthP7L7xwsnl}# + #{i -ANAU$bmvAmthP7L7xwsnm}#) + (let ((#{v -ANAU$bmvAmthP7L7xwsnn}# + (let ((#{id -ANAU$bmvAmthP7L7xwsnv}# (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{id -ANAU$bmvAmthP7L7xwsnl}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWMhE}#) + #{id -ANAU$bmvAmthP7L7xwsnl}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMhE}# + #{id -ANAU$bmvAmthP7L7xwsnl}# 0) 'syntax-object) #f) #f) (vector-ref - #{id _hoQGWMnyQPAh3k2jhWMhE}# + #{id -ANAU$bmvAmthP7L7xwsnl}# 1) - #{id _hoQGWMnyQPAh3k2jhWMhE}#))) + #{id -ANAU$bmvAmthP7L7xwsnl}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWMhO}#) + #{id -ANAU$bmvAmthP7L7xwsnv}#) " "))))) - (let ((#{l _hoQGWMnyQPAh3k2jhWMhH}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - (list #{v _hoQGWMnyQPAh3k2jhWMhG}#)))) - (let ((#{r** _hoQGWMnyQPAh3k2jhWMhI}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{l _hoQGWMnyQPAh3k2jhWMhH}# - (list #{v _hoQGWMnyQPAh3k2jhWMhG}#) - #{r* _hoQGWMnyQPAh3k2jhWMg7}#))) - (let ((#{w** _hoQGWMnyQPAh3k2jhWMhJ}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{id _hoQGWMnyQPAh3k2jhWMhE}#) - #{l _hoQGWMnyQPAh3k2jhWMhH}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}#))) - (#{parse-kw _hoQGWMnyQPAh3k2jhWMVY}# - #{req _hoQGWMnyQPAh3k2jhWMg1}# - #{opt _hoQGWMnyQPAh3k2jhWMg2}# - #{rest _hoQGWMnyQPAh3k2jhWMg3}# - (cdr #{kw _hoQGWMnyQPAh3k2jhWMg4}#) - #{body _hoQGWMnyQPAh3k2jhWMg5}# - (cons #{v _hoQGWMnyQPAh3k2jhWMhG}# - #{vars _hoQGWMnyQPAh3k2jhWMg6}#) - #{r** _hoQGWMnyQPAh3k2jhWMhI}# - #{w** _hoQGWMnyQPAh3k2jhWMhJ}# - #{aok _hoQGWMnyQPAh3k2jhWMg9}# + (let ((#{l -ANAU$bmvAmthP7L7xwsno}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + (list #{v -ANAU$bmvAmthP7L7xwsnn}#)))) + (let ((#{r** -ANAU$bmvAmthP7L7xwsnp}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{l -ANAU$bmvAmthP7L7xwsno}# + (list #{v -ANAU$bmvAmthP7L7xwsnn}#) + #{r* -ANAU$bmvAmthP7L7xwsnc}#))) + (let ((#{w** -ANAU$bmvAmthP7L7xwsnq}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{id -ANAU$bmvAmthP7L7xwsnl}#) + #{l -ANAU$bmvAmthP7L7xwsno}# + #{w* -ANAU$bmvAmthP7L7xwsnd}#))) + (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# + #{req -ANAU$bmvAmthP7L7xwsnW}# + #{opt -ANAU$bmvAmthP7L7xwsnX}# + #{rest -ANAU$bmvAmthP7L7xwsnY}# + (cdr #{kw -ANAU$bmvAmthP7L7xwsnZ}#) + #{body -ANAU$bmvAmthP7L7xwsna}# + (cons #{v -ANAU$bmvAmthP7L7xwsnn}# + #{vars -ANAU$bmvAmthP7L7xwsnb}#) + #{r** -ANAU$bmvAmthP7L7xwsnp}# + #{w** -ANAU$bmvAmthP7L7xwsnq}# + #{aok -ANAU$bmvAmthP7L7xwsne}# (cons (list (syntax->datum - #{k _hoQGWMnyQPAh3k2jhWMhD}#) + #{k -ANAU$bmvAmthP7L7xwsnk}#) (syntax->datum - #{id _hoQGWMnyQPAh3k2jhWMhE}#) - #{v _hoQGWMnyQPAh3k2jhWMhG}#) - #{out _hoQGWMnyQPAh3k2jhWMg$}#) - (cons (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{i _hoQGWMnyQPAh3k2jhWMhF}# - #{r* _hoQGWMnyQPAh3k2jhWMg7}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#) - #{inits _hoQGWMnyQPAh3k2jhWMg@}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWMhB}#) + #{id -ANAU$bmvAmthP7L7xwsnl}#) + #{v -ANAU$bmvAmthP7L7xwsnn}#) + #{out -ANAU$bmvAmthP7L7xwsnf}#) + (cons (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{i -ANAU$bmvAmthP7L7xwsnm}# + #{r* -ANAU$bmvAmthP7L7xwsnc}# + #{w* -ANAU$bmvAmthP7L7xwsnd}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#) + #{inits -ANAU$bmvAmthP7L7xwsng}#))))))) + #{tmp -ANAU$bmvAmthP7L7xwsni}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWMhA}#)))) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - #{req _hoQGWMnyQPAh3k2jhWMg1}# - #{opt _hoQGWMnyQPAh3k2jhWMg2}# - #{rest _hoQGWMnyQPAh3k2jhWMg3}# - (if (if #{aok _hoQGWMnyQPAh3k2jhWMg9}# - #{aok _hoQGWMnyQPAh3k2jhWMg9}# - (pair? #{out _hoQGWMnyQPAh3k2jhWMg$}#)) - (cons #{aok _hoQGWMnyQPAh3k2jhWMg9}# - (reverse #{out _hoQGWMnyQPAh3k2jhWMg$}#)) + #{tmp -ANAU$bmvAmthP7L7xwsnh}#)))) + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + #{req -ANAU$bmvAmthP7L7xwsnW}# + #{opt -ANAU$bmvAmthP7L7xwsnX}# + #{rest -ANAU$bmvAmthP7L7xwsnY}# + (if (if #{aok -ANAU$bmvAmthP7L7xwsne}# + #{aok -ANAU$bmvAmthP7L7xwsne}# + (pair? #{out -ANAU$bmvAmthP7L7xwsnf}#)) + (cons #{aok -ANAU$bmvAmthP7L7xwsne}# + (reverse #{out -ANAU$bmvAmthP7L7xwsnf}#)) #f) - #{body _hoQGWMnyQPAh3k2jhWMg5}# - (reverse #{vars _hoQGWMnyQPAh3k2jhWMg6}#) - #{r* _hoQGWMnyQPAh3k2jhWMg7}# - #{w* _hoQGWMnyQPAh3k2jhWMg8}# - (reverse #{inits _hoQGWMnyQPAh3k2jhWMg@}#) + #{body -ANAU$bmvAmthP7L7xwsna}# + (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#) + #{r* -ANAU$bmvAmthP7L7xwsnc}# + #{w* -ANAU$bmvAmthP7L7xwsnd}# + (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#) '())))) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - (lambda (#{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - #{body _hoQGWMnyQPAh3k2jhWMlA}# - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# - #{meta _hoQGWMnyQPAh3k2jhWMlF}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlH}# + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + (lambda (#{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + #{body -ANAU$bmvAmthP7L7xwsrh}# + #{vars -ANAU$bmvAmthP7L7xwsri}# + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# + #{meta -ANAU$bmvAmthP7L7xwsrm}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsro}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{body -ANAU$bmvAmthP7L7xwsrh}# '(any any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMlH}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}# (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlL}# - #{e1 _hoQGWMnyQPAh3k2jhWMlM}# - #{e2 _hoQGWMnyQPAh3k2jhWMlN}#) + (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}# + #{e1 -ANAU$bmvAmthP7L7xwsrt}# + #{e2 -ANAU$bmvAmthP7L7xwsru}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMlL}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) + #{docstring -ANAU$bmvAmthP7L7xwsrs}#))) + #{tmp -ANAU$bmvAmthP7L7xwsro}#) #f) (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWMlO}# - #{e1 _hoQGWMnyQPAh3k2jhWMlP}# - #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - #{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMlP}# - #{e2 _hoQGWMnyQPAh3k2jhWMlQ}#) - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# + (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrv}# + #{e1 -ANAU$bmvAmthP7L7xwsrw}# + #{e2 -ANAU$bmvAmthP7L7xwsrx}#) + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + #{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + (cons #{e1 -ANAU$bmvAmthP7L7xwsrw}# + #{e2 -ANAU$bmvAmthP7L7xwsrx}#) + #{vars -ANAU$bmvAmthP7L7xwsri}# + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# (append - #{meta _hoQGWMnyQPAh3k2jhWMlF}# + #{meta -ANAU$bmvAmthP7L7xwsrm}# (list (cons 'documentation (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMlO}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMlH}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlR}# + #{docstring -ANAU$bmvAmthP7L7xwsrv}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwsro}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{body -ANAU$bmvAmthP7L7xwsrh}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMlR}# + (if #{tmp -ANAU$bmvAmthP7L7xwsry}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMlV}# - #{v _hoQGWMnyQPAh3k2jhWMlW}# - #{e1 _hoQGWMnyQPAh3k2jhWMlX}# - #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) - (#{parse-body _hoQGWMnyQPAh3k2jhWMVZ}# - #{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMlX}# - #{e2 _hoQGWMnyQPAh3k2jhWMlY}#) - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# + (lambda (#{k -ANAU$bmvAmthP7L7xwsr2}# + #{v -ANAU$bmvAmthP7L7xwsr3}# + #{e1 -ANAU$bmvAmthP7L7xwsr4}# + #{e2 -ANAU$bmvAmthP7L7xwsr5}#) + (#{parse-body -ANAU$bmvAmthP7L7xwsb6}# + #{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + (cons #{e1 -ANAU$bmvAmthP7L7xwsr4}# + #{e2 -ANAU$bmvAmthP7L7xwsr5}#) + #{vars -ANAU$bmvAmthP7L7xwsri}# + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# (append - #{meta _hoQGWMnyQPAh3k2jhWMlF}# + #{meta -ANAU$bmvAmthP7L7xwsrm}# (syntax->datum (map cons - #{k _hoQGWMnyQPAh3k2jhWMlV}# - #{v _hoQGWMnyQPAh3k2jhWMlW}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWMlR}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMlZ}# + #{k -ANAU$bmvAmthP7L7xwsr2}# + #{v -ANAU$bmvAmthP7L7xwsr3}#))))) + #{tmp -ANAU$bmvAmthP7L7xwsry}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWMlA}# + #{body -ANAU$bmvAmthP7L7xwsrh}# '(any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMlZ}# + (if #{tmp -ANAU$bmvAmthP7L7xwsr6}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMld}# - #{e2 _hoQGWMnyQPAh3k2jhWMle}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}# + #{e2 -ANAU$bmvAmthP7L7xwsr@}#) (values - #{meta _hoQGWMnyQPAh3k2jhWMlF}# - #{req _hoQGWMnyQPAh3k2jhWMk8}# - #{opt _hoQGWMnyQPAh3k2jhWMk9}# - #{rest _hoQGWMnyQPAh3k2jhWMk$}# - #{kw _hoQGWMnyQPAh3k2jhWMk@}# - #{inits _hoQGWMnyQPAh3k2jhWMlE}# - #{vars _hoQGWMnyQPAh3k2jhWMlB}# - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMld}# - #{e2 _hoQGWMnyQPAh3k2jhWMle}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{meta -ANAU$bmvAmthP7L7xwsrm}# + #{req -ANAU$bmvAmthP7L7xwsrd}# + #{opt -ANAU$bmvAmthP7L7xwsre}# + #{rest -ANAU$bmvAmthP7L7xwsrf}# + #{kw -ANAU$bmvAmthP7L7xwsrg}# + #{inits -ANAU$bmvAmthP7L7xwsrl}# + #{vars -ANAU$bmvAmthP7L7xwsri}# + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwsr$}# + #{e2 -ANAU$bmvAmthP7L7xwsr@}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWMVP}#) - #{s _hoQGWMnyQPAh3k2jhWMVS}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsbw}#) + #{s -ANAU$bmvAmthP7L7xwsbz}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWMVP}# - #{s _hoQGWMnyQPAh3k2jhWMVS}#)) - #{e _hoQGWMnyQPAh3k2jhWMVP}#) - #{w _hoQGWMnyQPAh3k2jhWMVR}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#) - #{r* _hoQGWMnyQPAh3k2jhWMlC}# - #{w* _hoQGWMnyQPAh3k2jhWMlD}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMlZ}#) + #{e -ANAU$bmvAmthP7L7xwsbw}# + #{s -ANAU$bmvAmthP7L7xwsbz}#)) + #{e -ANAU$bmvAmthP7L7xwsbw}#) + #{w -ANAU$bmvAmthP7L7xwsby}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#) + #{r* -ANAU$bmvAmthP7L7xwsrj}# + #{w* -ANAU$bmvAmthP7L7xwsrk}# + #{mod -ANAU$bmvAmthP7L7xwsb0}#))) + #{tmp -ANAU$bmvAmthP7L7xwsr6}#) (syntax-violation #f "source expression failed to match any pattern" - #{body _hoQGWMnyQPAh3k2jhWMlA}#)))))))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVb}# + #{body -ANAU$bmvAmthP7L7xwsrh}#)))))))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}# ($sc-dispatch - #{clauses _hoQGWMnyQPAh3k2jhWMVV}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMVb}# + (if #{tmp -ANAU$bmvAmthP7L7xwsb8}# (@apply (lambda () (values '() #f)) - #{tmp _hoQGWMnyQPAh3k2jhWMVb}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMVf}# + #{tmp -ANAU$bmvAmthP7L7xwsb8}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}# ($sc-dispatch - #{clauses _hoQGWMnyQPAh3k2jhWMVV}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMVf}# + (if #{tmp -ANAU$bmvAmthP7L7xwscA}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWMVj}# - #{e1 _hoQGWMnyQPAh3k2jhWMVk}# - #{e2 _hoQGWMnyQPAh3k2jhWMVl}# - #{args* _hoQGWMnyQPAh3k2jhWMVm}# - #{e1* _hoQGWMnyQPAh3k2jhWMVn}# - #{e2* _hoQGWMnyQPAh3k2jhWMVo}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwscE}# + #{e1 -ANAU$bmvAmthP7L7xwscF}# + #{e2 -ANAU$bmvAmthP7L7xwscG}# + #{args* -ANAU$bmvAmthP7L7xwscH}# + #{e1* -ANAU$bmvAmthP7L7xwscI}# + #{e2* -ANAU$bmvAmthP7L7xwscJ}#) (call-with-values (lambda () - (#{get-formals _hoQGWMnyQPAh3k2jhWMVU}# - #{args _hoQGWMnyQPAh3k2jhWMVj}#)) - (lambda (#{req _hoQGWMnyQPAh3k2jhWMVp}# - #{opt _hoQGWMnyQPAh3k2jhWMVq}# - #{rest _hoQGWMnyQPAh3k2jhWMVr}# - #{kw _hoQGWMnyQPAh3k2jhWMVs}#) + (#{get-formals -ANAU$bmvAmthP7L7xwsb1}# + #{args -ANAU$bmvAmthP7L7xwscE}#)) + (lambda (#{req -ANAU$bmvAmthP7L7xwscK}# + #{opt -ANAU$bmvAmthP7L7xwscL}# + #{rest -ANAU$bmvAmthP7L7xwscM}# + #{kw -ANAU$bmvAmthP7L7xwscN}#) (call-with-values (lambda () - (#{parse-req _hoQGWMnyQPAh3k2jhWMVW}# - #{req _hoQGWMnyQPAh3k2jhWMVp}# - #{opt _hoQGWMnyQPAh3k2jhWMVq}# - #{rest _hoQGWMnyQPAh3k2jhWMVr}# - #{kw _hoQGWMnyQPAh3k2jhWMVs}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWMVk}# - #{e2 _hoQGWMnyQPAh3k2jhWMVl}#))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWMWp}# - #{req _hoQGWMnyQPAh3k2jhWMWq}# - #{opt _hoQGWMnyQPAh3k2jhWMWr}# - #{rest _hoQGWMnyQPAh3k2jhWMWs}# - #{kw _hoQGWMnyQPAh3k2jhWMWt}# - #{inits _hoQGWMnyQPAh3k2jhWMWu}# - #{vars _hoQGWMnyQPAh3k2jhWMWv}# - #{body _hoQGWMnyQPAh3k2jhWMWw}#) + (#{parse-req -ANAU$bmvAmthP7L7xwsb3}# + #{req -ANAU$bmvAmthP7L7xwscK}# + #{opt -ANAU$bmvAmthP7L7xwscL}# + #{rest -ANAU$bmvAmthP7L7xwscM}# + #{kw -ANAU$bmvAmthP7L7xwscN}# + (cons #{e1 -ANAU$bmvAmthP7L7xwscF}# + #{e2 -ANAU$bmvAmthP7L7xwscG}#))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwsdK}# + #{req -ANAU$bmvAmthP7L7xwsdL}# + #{opt -ANAU$bmvAmthP7L7xwsdM}# + #{rest -ANAU$bmvAmthP7L7xwsdN}# + #{kw -ANAU$bmvAmthP7L7xwsdO}# + #{inits -ANAU$bmvAmthP7L7xwsdP}# + #{vars -ANAU$bmvAmthP7L7xwsdQ}# + #{body -ANAU$bmvAmthP7L7xwsdR}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWMVP}# - #{r _hoQGWMnyQPAh3k2jhWMVQ}# - #{w _hoQGWMnyQPAh3k2jhWMVR}# - #{s _hoQGWMnyQPAh3k2jhWMVS}# - #{mod _hoQGWMnyQPAh3k2jhWMVT}# - #{get-formals _hoQGWMnyQPAh3k2jhWMVU}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}# - #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# - #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}#) - (cons #{tmp _hoQGWMnyQPAh3k2jhWHDB _hoQGWMnyQPAh3k2jhWMWz}# - (cons #{tmp _hoQGWMnyQPAh3k2jhWHDC _hoQGWMnyQPAh3k2jhWMWy}# - #{tmp _hoQGWMnyQPAh3k2jhWHDD _hoQGWMnyQPAh3k2jhWMWx}#))) - #{e2* _hoQGWMnyQPAh3k2jhWMVo}# - #{e1* _hoQGWMnyQPAh3k2jhWMVn}# - #{args* _hoQGWMnyQPAh3k2jhWMVm}#))) - (lambda (#{meta* _hoQGWMnyQPAh3k2jhWMW0}# - #{else* _hoQGWMnyQPAh3k2jhWMW1}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwsbw}# + #{r -ANAU$bmvAmthP7L7xwsbx}# + #{w -ANAU$bmvAmthP7L7xwsby}# + #{s -ANAU$bmvAmthP7L7xwsbz}# + #{mod -ANAU$bmvAmthP7L7xwsb0}# + #{get-formals -ANAU$bmvAmthP7L7xwsb1}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}# + #{tmp -ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}# + #{tmp -ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}#) + (cons #{tmp -ANAU$bmvAmthP7L7xwm9d -ANAU$bmvAmthP7L7xwsdU}# + (cons #{tmp -ANAU$bmvAmthP7L7xwm9e -ANAU$bmvAmthP7L7xwsdT}# + #{tmp -ANAU$bmvAmthP7L7xwm9f -ANAU$bmvAmthP7L7xwsdS}#))) + #{e2* -ANAU$bmvAmthP7L7xwscJ}# + #{e1* -ANAU$bmvAmthP7L7xwscI}# + #{args* -ANAU$bmvAmthP7L7xwscH}#))) + (lambda (#{meta* -ANAU$bmvAmthP7L7xwsdV}# + #{else* -ANAU$bmvAmthP7L7xwsdW}#) (values (append - #{meta _hoQGWMnyQPAh3k2jhWMWp}# - #{meta* _hoQGWMnyQPAh3k2jhWMW0}#) + #{meta -ANAU$bmvAmthP7L7xwsdK}# + #{meta* -ANAU$bmvAmthP7L7xwsdV}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s _hoQGWMnyQPAh3k2jhWMVS}# - #{req _hoQGWMnyQPAh3k2jhWMWq}# - #{opt _hoQGWMnyQPAh3k2jhWMWr}# - #{rest _hoQGWMnyQPAh3k2jhWMWs}# - #{kw _hoQGWMnyQPAh3k2jhWMWt}# - #{inits _hoQGWMnyQPAh3k2jhWMWu}# - #{vars _hoQGWMnyQPAh3k2jhWMWv}# - #{body _hoQGWMnyQPAh3k2jhWMWw}# - #{else* _hoQGWMnyQPAh3k2jhWMW1}#))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWMVf}#) + #{s -ANAU$bmvAmthP7L7xwsbz}# + #{req -ANAU$bmvAmthP7L7xwsdL}# + #{opt -ANAU$bmvAmthP7L7xwsdM}# + #{rest -ANAU$bmvAmthP7L7xwsdN}# + #{kw -ANAU$bmvAmthP7L7xwsdO}# + #{inits -ANAU$bmvAmthP7L7xwsdP}# + #{vars -ANAU$bmvAmthP7L7xwsdQ}# + #{body -ANAU$bmvAmthP7L7xwsdR}# + #{else* -ANAU$bmvAmthP7L7xwsdW}#))))))))) + #{tmp -ANAU$bmvAmthP7L7xwscA}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses _hoQGWMnyQPAh3k2jhWMVV}#)))))))) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWMmD}# - #{w _hoQGWMnyQPAh3k2jhWMmE}#) - (if (memq 'top (car #{w _hoQGWMnyQPAh3k2jhWMmE}#)) - #{x _hoQGWMnyQPAh3k2jhWMmD}# + #{clauses -ANAU$bmvAmthP7L7xwsb2}#)))))))) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + (lambda (#{x -ANAU$bmvAmthP7L7xwssk}# + #{w -ANAU$bmvAmthP7L7xwssl}#) + (if (memq 'top (car #{w -ANAU$bmvAmthP7L7xwssl}#)) + #{x -ANAU$bmvAmthP7L7xwssk}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWMmF}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWMmI}#) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWMmI}#) + ((#{f -ANAU$bmvAmthP7L7xwssm}# + (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0) 'syntax-object) #f) #f) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 1) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWMmI}# 2)) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWMmI}#) - (let ((#{a _hoQGWMnyQPAh3k2jhWMmb}# - (#{f _hoQGWMnyQPAh3k2jhWMmF}# - (car #{x _hoQGWMnyQPAh3k2jhWMmI}#))) - (#{d _hoQGWMnyQPAh3k2jhWMmc}# - (#{f _hoQGWMnyQPAh3k2jhWMmF}# - (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)))) - (if (if (eq? #{a _hoQGWMnyQPAh3k2jhWMmb}# - (car #{x _hoQGWMnyQPAh3k2jhWMmI}#)) - (eq? #{d _hoQGWMnyQPAh3k2jhWMmc}# - (cdr #{x _hoQGWMnyQPAh3k2jhWMmI}#)) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 1) + (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 2)) + (if (pair? #{x -ANAU$bmvAmthP7L7xwssp}#) + (let ((#{a -ANAU$bmvAmthP7L7xwss8}# + (#{f -ANAU$bmvAmthP7L7xwssm}# + (car #{x -ANAU$bmvAmthP7L7xwssp}#))) + (#{d -ANAU$bmvAmthP7L7xwss9}# + (#{f -ANAU$bmvAmthP7L7xwssm}# + (cdr #{x -ANAU$bmvAmthP7L7xwssp}#)))) + (if (if (eq? #{a -ANAU$bmvAmthP7L7xwss8}# + (car #{x -ANAU$bmvAmthP7L7xwssp}#)) + (eq? #{d -ANAU$bmvAmthP7L7xwss9}# + (cdr #{x -ANAU$bmvAmthP7L7xwssp}#)) #f) - #{x _hoQGWMnyQPAh3k2jhWMmI}# - (cons #{a _hoQGWMnyQPAh3k2jhWMmb}# - #{d _hoQGWMnyQPAh3k2jhWMmc}#))) - (if (vector? #{x _hoQGWMnyQPAh3k2jhWMmI}#) - (let ((#{old _hoQGWMnyQPAh3k2jhWMmf}# - (vector->list #{x _hoQGWMnyQPAh3k2jhWMmI}#))) - (let ((#{new _hoQGWMnyQPAh3k2jhWMmg}# - (map #{f _hoQGWMnyQPAh3k2jhWMmF}# - #{old _hoQGWMnyQPAh3k2jhWMmf}#))) + #{x -ANAU$bmvAmthP7L7xwssp}# + (cons #{a -ANAU$bmvAmthP7L7xwss8}# + #{d -ANAU$bmvAmthP7L7xwss9}#))) + (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#) + (let ((#{old -ANAU$bmvAmthP7L7xwstA}# + (vector->list #{x -ANAU$bmvAmthP7L7xwssp}#))) + (let ((#{new -ANAU$bmvAmthP7L7xwstB}# + (map #{f -ANAU$bmvAmthP7L7xwssm}# + #{old -ANAU$bmvAmthP7L7xwstA}#))) (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWMmh}# - (lambda (#{l1 _hoQGWMnyQPAh3k2jhWMnt}# - #{l2 _hoQGWMnyQPAh3k2jhWMnu}#) - (if (null? #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) - #{x _hoQGWMnyQPAh3k2jhWMmI}# - (if (eq? (car #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) - (car #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) - (#{lp _hoQGWMnyQPAh3k2jhWMmh}# - (cdr #{l1 _hoQGWMnyQPAh3k2jhWMnt}#) - (cdr #{l2 _hoQGWMnyQPAh3k2jhWMnu}#)) + ((#{lp -ANAU$bmvAmthP7L7xwstC}# + (lambda (#{l1 -ANAU$bmvAmthP7L7xwsuO}# + #{l2 -ANAU$bmvAmthP7L7xwsuP}#) + (if (null? #{l1 -ANAU$bmvAmthP7L7xwsuO}#) + #{x -ANAU$bmvAmthP7L7xwssp}# + (if (eq? (car #{l1 -ANAU$bmvAmthP7L7xwsuO}#) + (car #{l2 -ANAU$bmvAmthP7L7xwsuP}#)) + (#{lp -ANAU$bmvAmthP7L7xwstC}# + (cdr #{l1 -ANAU$bmvAmthP7L7xwsuO}#) + (cdr #{l2 -ANAU$bmvAmthP7L7xwsuP}#)) (list->vector - #{new _hoQGWMnyQPAh3k2jhWMmg}#)))))) - (#{lp _hoQGWMnyQPAh3k2jhWMmh}# - #{old _hoQGWMnyQPAh3k2jhWMmf}# - #{new _hoQGWMnyQPAh3k2jhWMmg}#)))) - #{x _hoQGWMnyQPAh3k2jhWMmI}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWMmF}# - #{x _hoQGWMnyQPAh3k2jhWMmD}#))))) - (#{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - (lambda (#{id _hoQGWMnyQPAh3k2jhWMXh}#) - (let ((#{id _hoQGWMnyQPAh3k2jhWMXi}# - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWMXh}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWMXh}#) + #{new -ANAU$bmvAmthP7L7xwstB}#)))))) + (#{lp -ANAU$bmvAmthP7L7xwstC}# + #{old -ANAU$bmvAmthP7L7xwstA}# + #{new -ANAU$bmvAmthP7L7xwstB}#)))) + #{x -ANAU$bmvAmthP7L7xwssp}#)))))) + (#{f -ANAU$bmvAmthP7L7xwssm}# + #{x -ANAU$bmvAmthP7L7xwssk}#))))) + (#{gen-var -ANAU$bmvAmthP7L7xwnOS}# + (lambda (#{id -ANAU$bmvAmthP7L7xwseC}#) + (let ((#{id -ANAU$bmvAmthP7L7xwseD}# + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwseC}#) + (if (= (vector-length #{id -ANAU$bmvAmthP7L7xwseC}#) 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 0) + (eq? (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _hoQGWMnyQPAh3k2jhWMXh}# 1) - #{id _hoQGWMnyQPAh3k2jhWMXh}#))) + (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1) + #{id -ANAU$bmvAmthP7L7xwseC}#))) (gensym (string-append - (symbol->string #{id _hoQGWMnyQPAh3k2jhWMXi}#) + (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#) " ")))))) (begin - (set! #{gen-label _hoQGWMnyQPAh3k2jhWHTD}# - (let ((#{i _hoQGWMnyQPAh3k2jhWKEc}# 0)) + (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}# + (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0)) (lambda () - (let ((#{n _hoQGWMnyQPAh3k2jhWKEd}# - #{i _hoQGWMnyQPAh3k2jhWKEc}#)) + (let ((#{n -ANAU$bmvAmthP7L7xwqAY}# + #{i -ANAU$bmvAmthP7L7xwqAX}#)) (begin - (set! #{i _hoQGWMnyQPAh3k2jhWKEc}# - (#{1+}# #{n _hoQGWMnyQPAh3k2jhWKEd}#)) - (number->string #{n _hoQGWMnyQPAh3k2jhWKEd}# 36)))))) - (set! #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}# + (set! #{i -ANAU$bmvAmthP7L7xwqAX}# + (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#)) + (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36)))))) + (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# (make-fluid - (lambda (#{k _hoQGWMnyQPAh3k2jhWJpb}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8998,1500 +8976,1500 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'syntax-parameterize - (lambda (#{e _hoQGWMnyQPAh3k2jhWHVs}# - #{r _hoQGWMnyQPAh3k2jhWHVt}# - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{s _hoQGWMnyQPAh3k2jhWHVv}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHVy}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}# + #{r -ANAU$bmvAmthP7L7xwnQM}# + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{s -ANAU$bmvAmthP7L7xwnQO}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHVs}# + #{e -ANAU$bmvAmthP7L7xwnQL}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHVy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}# (@apply - (lambda (#{var _hoQGWMnyQPAh3k2jhWHV2}# - #{val _hoQGWMnyQPAh3k2jhWHV3}# - #{e1 _hoQGWMnyQPAh3k2jhWHV4}# - #{e2 _hoQGWMnyQPAh3k2jhWHV5}#) - (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{var _hoQGWMnyQPAh3k2jhWHV2}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) + (lambda (#{var -ANAU$bmvAmthP7L7xwnQV}# + #{val -ANAU$bmvAmthP7L7xwnQW}# + #{e1 -ANAU$bmvAmthP7L7xwnQX}# + #{e2 -ANAU$bmvAmthP7L7xwnQY}#) + (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{var -ANAU$bmvAmthP7L7xwnQV}#)) + #{tmp -ANAU$bmvAmthP7L7xwnQR}#) #f) (@apply - (lambda (#{var _hoQGWMnyQPAh3k2jhWHXH}# - #{val _hoQGWMnyQPAh3k2jhWHXI}# - #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# - #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) - (let ((#{names _hoQGWMnyQPAh3k2jhWHXL}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHX9}#) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWHX9}# - #{w _hoQGWMnyQPAh3k2jhWHVu}#)) - #{var _hoQGWMnyQPAh3k2jhWHXH}#))) + (lambda (#{var -ANAU$bmvAmthP7L7xwnRm}# + #{val -ANAU$bmvAmthP7L7xwnRn}# + #{e1 -ANAU$bmvAmthP7L7xwnRo}# + #{e2 -ANAU$bmvAmthP7L7xwnRp}#) + (let ((#{names -ANAU$bmvAmthP7L7xwnRq}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwnSc}#) + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwnSc}# + #{w -ANAU$bmvAmthP7L7xwnQN}#)) + #{var -ANAU$bmvAmthP7L7xwnRm}#))) (begin (for-each - (lambda (#{id _hoQGWMnyQPAh3k2jhWHXM}# - #{n _hoQGWMnyQPAh3k2jhWHXN}#) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHXO}# - (car (let ((#{t _hoQGWMnyQPAh3k2jhWHXV}# - (assq #{n _hoQGWMnyQPAh3k2jhWHXN}# - #{r _hoQGWMnyQPAh3k2jhWHVt}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHXV}# - (cdr #{t _hoQGWMnyQPAh3k2jhWHXV}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwnRr}# + #{n -ANAU$bmvAmthP7L7xwnRs}#) + (let ((#{atom-key -ANAU$bmvAmthP7L7xwnRt}# + (car (let ((#{t -ANAU$bmvAmthP7L7xwnR0}# + (assq #{n -ANAU$bmvAmthP7L7xwnRs}# + #{r -ANAU$bmvAmthP7L7xwnQM}#))) + (if #{t -ANAU$bmvAmthP7L7xwnR0}# + (cdr #{t -ANAU$bmvAmthP7L7xwnR0}#) (if (symbol? - #{n _hoQGWMnyQPAh3k2jhWHXN}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWHXa}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWHXN}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHXa}# - #{t _hoQGWMnyQPAh3k2jhWHXa}# + #{n -ANAU$bmvAmthP7L7xwnRs}#) + (let ((#{t -ANAU$bmvAmthP7L7xwnR5}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwnRs}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#))) + (if #{t -ANAU$bmvAmthP7L7xwnR5}# + #{t -ANAU$bmvAmthP7L7xwnR5}# '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHXO}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e _hoQGWMnyQPAh3k2jhWHVs}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{e -ANAU$bmvAmthP7L7xwnQL}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{id _hoQGWMnyQPAh3k2jhWHXM}#) - #{s _hoQGWMnyQPAh3k2jhWHVv}# + (if (if (pair? #{id -ANAU$bmvAmthP7L7xwnRr}#) + #{s -ANAU$bmvAmthP7L7xwnQO}# #f) (set-source-properties! - #{id _hoQGWMnyQPAh3k2jhWHXM}# - #{s _hoQGWMnyQPAh3k2jhWHVv}#)) - #{id _hoQGWMnyQPAh3k2jhWHXM}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#))))) - #{var _hoQGWMnyQPAh3k2jhWHXH}# - #{names _hoQGWMnyQPAh3k2jhWHXL}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHXJ}# - #{e2 _hoQGWMnyQPAh3k2jhWHXK}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{id -ANAU$bmvAmthP7L7xwnRr}# + #{s -ANAU$bmvAmthP7L7xwnQO}#)) + #{id -ANAU$bmvAmthP7L7xwnRr}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#))))) + #{var -ANAU$bmvAmthP7L7xwnRm}# + #{names -ANAU$bmvAmthP7L7xwnRq}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnRo}# + #{e2 -ANAU$bmvAmthP7L7xwnRp}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{s _hoQGWMnyQPAh3k2jhWHVv}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{s -ANAU$bmvAmthP7L7xwnQO}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHVs}# - #{s _hoQGWMnyQPAh3k2jhWHVv}#)) - #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#) - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{names _hoQGWMnyQPAh3k2jhWHXL}# - (let ((#{trans-r _hoQGWMnyQPAh3k2jhWHZT}# - (#{macros-only-env _hoQGWMnyQPAh3k2jhWHS9}# - #{r _hoQGWMnyQPAh3k2jhWHVt}#))) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHZU}#) + #{e -ANAU$bmvAmthP7L7xwnQL}# + #{s -ANAU$bmvAmthP7L7xwnQO}#)) + #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#) + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{names -ANAU$bmvAmthP7L7xwnRq}# + (let ((#{trans-r -ANAU$bmvAmthP7L7xwnTy}# + (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# + #{r -ANAU$bmvAmthP7L7xwnQM}#))) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwnTz}#) (cons 'macro - (#{eval-local-transformer _hoQGWMnyQPAh3k2jhWHTr}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWHZU}# - #{trans-r _hoQGWMnyQPAh3k2jhWHZT}# - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#) - #{mod _hoQGWMnyQPAh3k2jhWHVw}#))) - #{val _hoQGWMnyQPAh3k2jhWHXI}#)) - #{r _hoQGWMnyQPAh3k2jhWHVt}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHVy}#) + (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwnTz}# + #{trans-r -ANAU$bmvAmthP7L7xwnTy}# + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#) + #{mod -ANAU$bmvAmthP7L7xwnQP}#))) + #{val -ANAU$bmvAmthP7L7xwnRn}#)) + #{r -ANAU$bmvAmthP7L7xwnQM}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnQR}#) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{s _hoQGWMnyQPAh3k2jhWHVv}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{s -ANAU$bmvAmthP7L7xwnQO}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHVs}# - #{s _hoQGWMnyQPAh3k2jhWHVv}#)) - #{e _hoQGWMnyQPAh3k2jhWHVs}#) - #{w _hoQGWMnyQPAh3k2jhWHVu}# - #{mod _hoQGWMnyQPAh3k2jhWHVw}#)))))) + #{e -ANAU$bmvAmthP7L7xwnQL}# + #{s -ANAU$bmvAmthP7L7xwnQO}#)) + #{e -ANAU$bmvAmthP7L7xwnQL}#) + #{w -ANAU$bmvAmthP7L7xwnQN}# + #{mod -ANAU$bmvAmthP7L7xwnQP}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e _hoQGWMnyQPAh3k2jhWHcl}# - #{r _hoQGWMnyQPAh3k2jhWHcm}# - #{w _hoQGWMnyQPAh3k2jhWHcn}# - #{s _hoQGWMnyQPAh3k2jhWHco}# - #{mod _hoQGWMnyQPAh3k2jhWHcp}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHcr}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}# + #{r -ANAU$bmvAmthP7L7xwnXF}# + #{w -ANAU$bmvAmthP7L7xwnXG}# + #{s -ANAU$bmvAmthP7L7xwnXH}# + #{mod -ANAU$bmvAmthP7L7xwnXI}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHcl}# + #{e -ANAU$bmvAmthP7L7xwnXE}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHcr}# + (if #{tmp -ANAU$bmvAmthP7L7xwnXK}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWHcu}#) - (let ((#{exp _hoQGWMnyQPAh3k2jhWHcy}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{e _hoQGWMnyQPAh3k2jhWHcu}# - #{w _hoQGWMnyQPAh3k2jhWHcn}#))) + (lambda (#{e -ANAU$bmvAmthP7L7xwnXN}#) + (let ((#{exp -ANAU$bmvAmthP7L7xwnXR}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{e -ANAU$bmvAmthP7L7xwnXN}# + #{w -ANAU$bmvAmthP7L7xwnXG}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s _hoQGWMnyQPAh3k2jhWHco}# - #{exp _hoQGWMnyQPAh3k2jhWHcy}#))) - #{tmp _hoQGWMnyQPAh3k2jhWHcr}#) + #{s -ANAU$bmvAmthP7L7xwnXH}# + #{exp -ANAU$bmvAmthP7L7xwnXR}#))) + #{tmp -ANAU$bmvAmthP7L7xwnXK}#) (syntax-violation 'quote "bad syntax" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHcl}#) - #{s _hoQGWMnyQPAh3k2jhWHco}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#) + #{s -ANAU$bmvAmthP7L7xwnXH}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHcl}# - #{s _hoQGWMnyQPAh3k2jhWHco}#)) - #{e _hoQGWMnyQPAh3k2jhWHcl}#) - #{w _hoQGWMnyQPAh3k2jhWHcn}# - #{mod _hoQGWMnyQPAh3k2jhWHcp}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnXE}# + #{s -ANAU$bmvAmthP7L7xwnXH}#)) + #{e -ANAU$bmvAmthP7L7xwnXE}#) + #{w -ANAU$bmvAmthP7L7xwnXG}# + #{mod -ANAU$bmvAmthP7L7xwnXI}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'syntax (letrec* - ((#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWHh0}# - #{e _hoQGWMnyQPAh3k2jhWHh1}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#) - (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWHh1}#) + ((#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + (lambda (#{src -ANAU$bmvAmthP7L7xwncT}# + #{e -ANAU$bmvAmthP7L7xwncU}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#) + (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwncU}#) #t - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWHh1}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWHh1}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{e _hoQGWMnyQPAh3k2jhWHh1}# 1)) + (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1)) #f)) - (let ((#{label _hoQGWMnyQPAh3k2jhWHiU}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{e _hoQGWMnyQPAh3k2jhWHh1}# + (let ((#{label -ANAU$bmvAmthP7L7xwncz}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(())))) - (let ((#{b _hoQGWMnyQPAh3k2jhWHiV}# - (let ((#{t _hoQGWMnyQPAh3k2jhWHic}# - (assq #{label _hoQGWMnyQPAh3k2jhWHiU}# - #{r _hoQGWMnyQPAh3k2jhWHh2}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHic}# - (cdr #{t _hoQGWMnyQPAh3k2jhWHic}#) - (if (symbol? #{label _hoQGWMnyQPAh3k2jhWHiU}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWHii}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{label _hoQGWMnyQPAh3k2jhWHiU}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#))) - (if #{t _hoQGWMnyQPAh3k2jhWHii}# - #{t _hoQGWMnyQPAh3k2jhWHii}# + (let ((#{b -ANAU$bmvAmthP7L7xwnc0}# + (let ((#{t -ANAU$bmvAmthP7L7xwnc7}# + (assq #{label -ANAU$bmvAmthP7L7xwncz}# + #{r -ANAU$bmvAmthP7L7xwncV}#))) + (if #{t -ANAU$bmvAmthP7L7xwnc7}# + (cdr #{t -ANAU$bmvAmthP7L7xwnc7}#) + (if (symbol? #{label -ANAU$bmvAmthP7L7xwncz}#) + (let ((#{t -ANAU$bmvAmthP7L7xwndB}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{label -ANAU$bmvAmthP7L7xwncz}# + #{mod -ANAU$bmvAmthP7L7xwncY}#))) + (if #{t -ANAU$bmvAmthP7L7xwndB}# + #{t -ANAU$bmvAmthP7L7xwndB}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWHiV}#) 'syntax) + (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax) (call-with-values (lambda () - (let ((#{var.lev _hoQGWMnyQPAh3k2jhWHir}# - (cdr #{b _hoQGWMnyQPAh3k2jhWHiV}#))) - (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - (car #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) - (cdr #{var.lev _hoQGWMnyQPAh3k2jhWHir}#) - #{maps _hoQGWMnyQPAh3k2jhWHh3}#))) - (lambda (#{var _hoQGWMnyQPAh3k2jhWHiv}# - #{maps _hoQGWMnyQPAh3k2jhWHiw}#) + (let ((#{var.lev -ANAU$bmvAmthP7L7xwndK}# + (cdr #{b -ANAU$bmvAmthP7L7xwnc0}#))) + (#{gen-ref -ANAU$bmvAmthP7L7xwnau}# + #{src -ANAU$bmvAmthP7L7xwncT}# + (car #{var.lev -ANAU$bmvAmthP7L7xwndK}#) + (cdr #{var.lev -ANAU$bmvAmthP7L7xwndK}#) + #{maps -ANAU$bmvAmthP7L7xwncW}#))) + (lambda (#{var -ANAU$bmvAmthP7L7xwndO}# + #{maps -ANAU$bmvAmthP7L7xwndP}#) (values - (list 'ref #{var _hoQGWMnyQPAh3k2jhWHiv}#) - #{maps _hoQGWMnyQPAh3k2jhWHiw}#))) - (if (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{e _hoQGWMnyQPAh3k2jhWHh1}#) + (list 'ref #{var -ANAU$bmvAmthP7L7xwndO}#) + #{maps -ANAU$bmvAmthP7L7xwndP}#))) + (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{e -ANAU$bmvAmthP7L7xwncU}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHh0}#) + #{src -ANAU$bmvAmthP7L7xwncT}#) (values - (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) - #{maps _hoQGWMnyQPAh3k2jhWHh3}#))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHiy}# + (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#) + #{maps -ANAU$bmvAmthP7L7xwncW}#))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHiy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}# (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi2}# - #{e _hoQGWMnyQPAh3k2jhWHi3}#) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{dots _hoQGWMnyQPAh3k2jhWHi2}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) + (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}# + #{e -ANAU$bmvAmthP7L7xwndW}#) + (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{dots -ANAU$bmvAmthP7L7xwndV}#)) + #{tmp -ANAU$bmvAmthP7L7xwndR}#) #f) (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHi4}# - #{e _hoQGWMnyQPAh3k2jhWHi5}#) - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{e _hoQGWMnyQPAh3k2jhWHi5}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWHi6}#) #f) - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHiy}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHi7}# + (lambda (#{dots -ANAU$bmvAmthP7L7xwndX}# + #{e -ANAU$bmvAmthP7L7xwndY}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{e -ANAU$bmvAmthP7L7xwndY}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + (lambda (#{x -ANAU$bmvAmthP7L7xwndZ}#) #f) + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + #{tmp -ANAU$bmvAmthP7L7xwndR}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnda}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(any any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHi7}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHi@}# - #{dots _hoQGWMnyQPAh3k2jhWHjA}# - #{y _hoQGWMnyQPAh3k2jhWHjB}#) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{dots _hoQGWMnyQPAh3k2jhWHjA}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwnde}# + #{dots -ANAU$bmvAmthP7L7xwndf}# + #{y -ANAU$bmvAmthP7L7xwndg}#) + (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{dots -ANAU$bmvAmthP7L7xwndf}#)) + #{tmp -ANAU$bmvAmthP7L7xwnda}#) #f) (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjC}# - #{dots _hoQGWMnyQPAh3k2jhWHjD}# - #{y _hoQGWMnyQPAh3k2jhWHjE}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwndh}# + #{dots -ANAU$bmvAmthP7L7xwndi}# + #{y -ANAU$bmvAmthP7L7xwndj}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWHjF}# - (lambda (#{y _hoQGWMnyQPAh3k2jhWHjN}# - #{k _hoQGWMnyQPAh3k2jhWHjO}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHjQ}# + ((#{f -ANAU$bmvAmthP7L7xwndk}# + (lambda (#{y -ANAU$bmvAmthP7L7xwnds}# + #{k -ANAU$bmvAmthP7L7xwndt}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWHjN}# + #{y -ANAU$bmvAmthP7L7xwnds}# '(any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHjQ}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}# (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjU}# - #{y _hoQGWMnyQPAh3k2jhWHjV}#) - (#{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{dots _hoQGWMnyQPAh3k2jhWHjU}#)) - #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) + (lambda (#{dots -ANAU$bmvAmthP7L7xwndz}# + #{y -ANAU$bmvAmthP7L7xwnd0}#) + (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{dots -ANAU$bmvAmthP7L7xwndz}#)) + #{tmp -ANAU$bmvAmthP7L7xwndv}#) #f) (@apply - (lambda (#{dots _hoQGWMnyQPAh3k2jhWHjW}# - #{y _hoQGWMnyQPAh3k2jhWHjX}#) - (#{f _hoQGWMnyQPAh3k2jhWHjF}# - #{y _hoQGWMnyQPAh3k2jhWHjX}# - (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjY}#) + (lambda (#{dots -ANAU$bmvAmthP7L7xwnd1}# + #{y -ANAU$bmvAmthP7L7xwnd2}#) + (#{f -ANAU$bmvAmthP7L7xwndk}# + #{y -ANAU$bmvAmthP7L7xwnd2}# + (lambda (#{maps -ANAU$bmvAmthP7L7xwnd3}#) (call-with-values (lambda () - (#{k _hoQGWMnyQPAh3k2jhWHjO}# + (#{k -ANAU$bmvAmthP7L7xwndt}# (cons '() - #{maps _hoQGWMnyQPAh3k2jhWHjY}#))) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjZ}# - #{maps _hoQGWMnyQPAh3k2jhWHja}#) - (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHja}#)) + #{maps -ANAU$bmvAmthP7L7xwnd3}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwnd4}# + #{maps -ANAU$bmvAmthP7L7xwnd5}#) + (if (null? (car #{maps -ANAU$bmvAmthP7L7xwnd5}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHh0}#) + #{src -ANAU$bmvAmthP7L7xwncT}#) (values - (let ((#{map-env _hoQGWMnyQPAh3k2jhWHje}# - (car #{maps _hoQGWMnyQPAh3k2jhWHja}#))) + (let ((#{map-env -ANAU$bmvAmthP7L7xwnd9}# + (car #{maps -ANAU$bmvAmthP7L7xwnd5}#))) (list 'apply '(primitive append) - (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# - #{x _hoQGWMnyQPAh3k2jhWHjZ}# - #{map-env _hoQGWMnyQPAh3k2jhWHje}#))) - (cdr #{maps _hoQGWMnyQPAh3k2jhWHja}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWHjQ}#) + (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# + #{x -ANAU$bmvAmthP7L7xwnd4}# + #{map-env -ANAU$bmvAmthP7L7xwnd9}#))) + (cdr #{maps -ANAU$bmvAmthP7L7xwnd5}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwndv}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{y _hoQGWMnyQPAh3k2jhWHjN}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWHjh}# - #{maps _hoQGWMnyQPAh3k2jhWHji}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{y -ANAU$bmvAmthP7L7xwnds}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwneA}# + #{maps -ANAU$bmvAmthP7L7xwneB}#) (call-with-values (lambda () - (#{k _hoQGWMnyQPAh3k2jhWHjO}# - #{maps _hoQGWMnyQPAh3k2jhWHji}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjj}# - #{maps _hoQGWMnyQPAh3k2jhWHjk}#) + (#{k -ANAU$bmvAmthP7L7xwndt}# + #{maps -ANAU$bmvAmthP7L7xwneB}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwneC}# + #{maps -ANAU$bmvAmthP7L7xwneD}#) (values (if (equal? - #{y _hoQGWMnyQPAh3k2jhWHjh}# + #{y -ANAU$bmvAmthP7L7xwneA}# ''()) - #{x _hoQGWMnyQPAh3k2jhWHjj}# + #{x -ANAU$bmvAmthP7L7xwneC}# (list 'append - #{x _hoQGWMnyQPAh3k2jhWHjj}# - #{y _hoQGWMnyQPAh3k2jhWHjh}#)) - #{maps _hoQGWMnyQPAh3k2jhWHjk}#)))))))))) - (#{f _hoQGWMnyQPAh3k2jhWHjF}# - #{y _hoQGWMnyQPAh3k2jhWHjE}# - (lambda (#{maps _hoQGWMnyQPAh3k2jhWHjI}#) + #{x -ANAU$bmvAmthP7L7xwneC}# + #{y -ANAU$bmvAmthP7L7xwneA}#)) + #{maps -ANAU$bmvAmthP7L7xwneD}#)))))))))) + (#{f -ANAU$bmvAmthP7L7xwndk}# + #{y -ANAU$bmvAmthP7L7xwndj}# + (lambda (#{maps -ANAU$bmvAmthP7L7xwndn}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{x _hoQGWMnyQPAh3k2jhWHjC}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{x -ANAU$bmvAmthP7L7xwndh}# + #{r -ANAU$bmvAmthP7L7xwncV}# (cons '() - #{maps _hoQGWMnyQPAh3k2jhWHjI}#) - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHjJ}# - #{maps _hoQGWMnyQPAh3k2jhWHjK}#) - (if (null? (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) + #{maps -ANAU$bmvAmthP7L7xwndn}#) + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwndo}# + #{maps -ANAU$bmvAmthP7L7xwndp}#) + (if (null? (car #{maps -ANAU$bmvAmthP7L7xwndp}#)) (syntax-violation 'syntax "extra ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHh0}#) + #{src -ANAU$bmvAmthP7L7xwncT}#) (values - (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# - #{x _hoQGWMnyQPAh3k2jhWHjJ}# - (car #{maps _hoQGWMnyQPAh3k2jhWHjK}#)) - (cdr #{maps _hoQGWMnyQPAh3k2jhWHjK}#))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWHi7}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHj0}# + (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# + #{x -ANAU$bmvAmthP7L7xwndo}# + (car #{maps -ANAU$bmvAmthP7L7xwndp}#)) + (cdr #{maps -ANAU$bmvAmthP7L7xwndp}#))))))))) + #{tmp -ANAU$bmvAmthP7L7xwnda}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwneT}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHj0}# + (if #{tmp -ANAU$bmvAmthP7L7xwneT}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHj4}# - #{y _hoQGWMnyQPAh3k2jhWHj5}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwneX}# + #{y -ANAU$bmvAmthP7L7xwneY}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{x _hoQGWMnyQPAh3k2jhWHj4}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHj6}# - #{maps _hoQGWMnyQPAh3k2jhWHj7}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{x -ANAU$bmvAmthP7L7xwneX}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwneZ}# + #{maps -ANAU$bmvAmthP7L7xwnea}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - #{y _hoQGWMnyQPAh3k2jhWHj5}# - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHj7}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWHj8}# - #{maps _hoQGWMnyQPAh3k2jhWHj9}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + #{y -ANAU$bmvAmthP7L7xwneY}# + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwnea}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwneb}# + #{maps -ANAU$bmvAmthP7L7xwnec}#) (values - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHkC}# - (car #{y _hoQGWMnyQPAh3k2jhWHj8}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# + (let ((#{atom-key -ANAU$bmvAmthP7L7xwneh}# + (car #{y -ANAU$bmvAmthP7L7xwneb}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}# 'quote) - (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHj6}#) + (if (eq? (car #{x -ANAU$bmvAmthP7L7xwneZ}#) 'quote) (list 'quote - (cons (car (cdr #{x _hoQGWMnyQPAh3k2jhWHj6}#)) - (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) - (if (eq? (car (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#)) + (cons (car (cdr #{x -ANAU$bmvAmthP7L7xwneZ}#)) + (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)))) + (if (eq? (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)) '()) (list 'list - #{x _hoQGWMnyQPAh3k2jhWHj6}#) + #{x -ANAU$bmvAmthP7L7xwneZ}#) (list 'cons - #{x _hoQGWMnyQPAh3k2jhWHj6}# - #{y _hoQGWMnyQPAh3k2jhWHj8}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHkC}# + #{x -ANAU$bmvAmthP7L7xwneZ}# + #{y -ANAU$bmvAmthP7L7xwneb}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}# 'list) (cons 'list - (cons #{x _hoQGWMnyQPAh3k2jhWHj6}# - (cdr #{y _hoQGWMnyQPAh3k2jhWHj8}#))) + (cons #{x -ANAU$bmvAmthP7L7xwneZ}# + (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))) (list 'cons - #{x _hoQGWMnyQPAh3k2jhWHj6}# - #{y _hoQGWMnyQPAh3k2jhWHj8}#)))) - #{maps _hoQGWMnyQPAh3k2jhWHj9}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWHj0}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHkf}# + #{x -ANAU$bmvAmthP7L7xwneZ}# + #{y -ANAU$bmvAmthP7L7xwneb}#)))) + #{maps -ANAU$bmvAmthP7L7xwnec}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwneT}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHh1}# + #{e -ANAU$bmvAmthP7L7xwncU}# '#(vector (any . each-any))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHkf}# + (if #{tmp -ANAU$bmvAmthP7L7xwne$}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWHkj}# - #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}# + #{e2 -ANAU$bmvAmthP7L7xwnfD}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{src _hoQGWMnyQPAh3k2jhWHh0}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHkj}# - #{e2 _hoQGWMnyQPAh3k2jhWHkk}#) - #{r _hoQGWMnyQPAh3k2jhWHh2}# - #{maps _hoQGWMnyQPAh3k2jhWHh3}# - #{ellipsis? _hoQGWMnyQPAh3k2jhWHh4}# - #{mod _hoQGWMnyQPAh3k2jhWHh5}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWHkl}# - #{maps _hoQGWMnyQPAh3k2jhWHkm}#) + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{src -ANAU$bmvAmthP7L7xwncT}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnfC}# + #{e2 -ANAU$bmvAmthP7L7xwnfD}#) + #{r -ANAU$bmvAmthP7L7xwncV}# + #{maps -ANAU$bmvAmthP7L7xwncW}# + #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# + #{mod -ANAU$bmvAmthP7L7xwncY}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwnfE}# + #{maps -ANAU$bmvAmthP7L7xwnfF}#) (values - (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) + (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#) 'list) (cons 'vector - (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)) - (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHkl}#) + (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#)) + (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#) 'quote) (list 'quote (list->vector - (car (cdr #{e _hoQGWMnyQPAh3k2jhWHkl}#)))) + (car (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#)))) (list 'list->vector - #{e _hoQGWMnyQPAh3k2jhWHkl}#))) - #{maps _hoQGWMnyQPAh3k2jhWHkm}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHkf}#) + #{e -ANAU$bmvAmthP7L7xwnfE}#))) + #{maps -ANAU$bmvAmthP7L7xwnfF}#)))) + #{tmp -ANAU$bmvAmthP7L7xwne$}#) (values - (list 'quote #{e _hoQGWMnyQPAh3k2jhWHh1}#) - #{maps _hoQGWMnyQPAh3k2jhWHh3}#)))))))))))) - (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# - (lambda (#{src _hoQGWMnyQPAh3k2jhWHlB}# - #{var _hoQGWMnyQPAh3k2jhWHlC}# - #{level _hoQGWMnyQPAh3k2jhWHlD}# - #{maps _hoQGWMnyQPAh3k2jhWHlE}#) - (if (= #{level _hoQGWMnyQPAh3k2jhWHlD}# 0) + (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#) + #{maps -ANAU$bmvAmthP7L7xwncW}#)))))))))))) + (#{gen-ref -ANAU$bmvAmthP7L7xwnau}# + (lambda (#{src -ANAU$bmvAmthP7L7xwnfg}# + #{var -ANAU$bmvAmthP7L7xwnfh}# + #{level -ANAU$bmvAmthP7L7xwnfi}# + #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (if (= #{level -ANAU$bmvAmthP7L7xwnfi}# 0) (values - #{var _hoQGWMnyQPAh3k2jhWHlC}# - #{maps _hoQGWMnyQPAh3k2jhWHlE}#) - (if (null? #{maps _hoQGWMnyQPAh3k2jhWHlE}#) + #{var -ANAU$bmvAmthP7L7xwnfh}# + #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#) (syntax-violation 'syntax "missing ellipsis" - #{src _hoQGWMnyQPAh3k2jhWHlB}#) + #{src -ANAU$bmvAmthP7L7xwnfg}#) (call-with-values (lambda () - (#{gen-ref _hoQGWMnyQPAh3k2jhWHgP}# - #{src _hoQGWMnyQPAh3k2jhWHlB}# - #{var _hoQGWMnyQPAh3k2jhWHlC}# - (#{1-}# #{level _hoQGWMnyQPAh3k2jhWHlD}#) - (cdr #{maps _hoQGWMnyQPAh3k2jhWHlE}#))) - (lambda (#{outer-var _hoQGWMnyQPAh3k2jhWHlF}# - #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#) - (let ((#{b _hoQGWMnyQPAh3k2jhWHlH}# - (assq #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# - (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)))) - (if #{b _hoQGWMnyQPAh3k2jhWHlH}# + (#{gen-ref -ANAU$bmvAmthP7L7xwnau}# + #{src -ANAU$bmvAmthP7L7xwnfg}# + #{var -ANAU$bmvAmthP7L7xwnfh}# + (#{1-}# #{level -ANAU$bmvAmthP7L7xwnfi}#) + (cdr #{maps -ANAU$bmvAmthP7L7xwnfj}#))) + (lambda (#{outer-var -ANAU$bmvAmthP7L7xwnfk}# + #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#) + (let ((#{b -ANAU$bmvAmthP7L7xwnfm}# + (assq #{outer-var -ANAU$bmvAmthP7L7xwnfk}# + (car #{maps -ANAU$bmvAmthP7L7xwnfj}#)))) + (if #{b -ANAU$bmvAmthP7L7xwnfm}# (values - (cdr #{b _hoQGWMnyQPAh3k2jhWHlH}#) - #{maps _hoQGWMnyQPAh3k2jhWHlE}#) - (let ((#{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# + (cdr #{b -ANAU$bmvAmthP7L7xwnfm}#) + #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}# (gensym (string-append (symbol->string 'tmp) " ")))) (values - #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}# - (cons (cons (cons #{outer-var _hoQGWMnyQPAh3k2jhWHlF}# - #{inner-var _hoQGWMnyQPAh3k2jhWHlJ}#) - (car #{maps _hoQGWMnyQPAh3k2jhWHlE}#)) - #{outer-maps _hoQGWMnyQPAh3k2jhWHlG}#))))))))))) - (#{gen-map _hoQGWMnyQPAh3k2jhWHgR}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWHlX}# - #{map-env _hoQGWMnyQPAh3k2jhWHlY}#) - (let ((#{formals _hoQGWMnyQPAh3k2jhWHlZ}# - (map cdr #{map-env _hoQGWMnyQPAh3k2jhWHlY}#)) - (#{actuals _hoQGWMnyQPAh3k2jhWHla}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWHlc}#) - (list 'ref (car #{x _hoQGWMnyQPAh3k2jhWHlc}#))) - #{map-env _hoQGWMnyQPAh3k2jhWHlY}#))) - (if (eq? (car #{e _hoQGWMnyQPAh3k2jhWHlX}#) 'ref) - (car #{actuals _hoQGWMnyQPAh3k2jhWHla}#) + #{inner-var -ANAU$bmvAmthP7L7xwnfo}# + (cons (cons (cons #{outer-var -ANAU$bmvAmthP7L7xwnfk}# + #{inner-var -ANAU$bmvAmthP7L7xwnfo}#) + (car #{maps -ANAU$bmvAmthP7L7xwnfj}#)) + #{outer-maps -ANAU$bmvAmthP7L7xwnfl}#))))))))))) + (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnf2}# + #{map-env -ANAU$bmvAmthP7L7xwnf3}#) + (let ((#{formals -ANAU$bmvAmthP7L7xwnf4}# + (map cdr #{map-env -ANAU$bmvAmthP7L7xwnf3}#)) + (#{actuals -ANAU$bmvAmthP7L7xwnf5}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwnf7}#) + (list 'ref (car #{x -ANAU$bmvAmthP7L7xwnf7}#))) + #{map-env -ANAU$bmvAmthP7L7xwnf3}#))) + (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnf2}#) 'ref) + (car #{actuals -ANAU$bmvAmthP7L7xwnf5}#) (if (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWHld}#) - (if (eq? (car #{x _hoQGWMnyQPAh3k2jhWHld}#) 'ref) - (memq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHld}#)) - #{formals _hoQGWMnyQPAh3k2jhWHlZ}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#) + (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref) + (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#)) + #{formals -ANAU$bmvAmthP7L7xwnf4}#) #f)) - (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)) + (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#)) (cons 'map (cons (list 'primitive - (car #{e _hoQGWMnyQPAh3k2jhWHlX}#)) - (map (let ((#{r _hoQGWMnyQPAh3k2jhWHlf}# + (car #{e -ANAU$bmvAmthP7L7xwnf2}#)) + (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}# (map cons - #{formals _hoQGWMnyQPAh3k2jhWHlZ}# - #{actuals _hoQGWMnyQPAh3k2jhWHla}#))) - (lambda (#{x _hoQGWMnyQPAh3k2jhWHlg}#) - (cdr (assq (car (cdr #{x _hoQGWMnyQPAh3k2jhWHlg}#)) - #{r _hoQGWMnyQPAh3k2jhWHlf}#)))) - (cdr #{e _hoQGWMnyQPAh3k2jhWHlX}#)))) + #{formals -ANAU$bmvAmthP7L7xwnf4}# + #{actuals -ANAU$bmvAmthP7L7xwnf5}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwnf@}#) + (cdr (assq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf@}#)) + #{r -ANAU$bmvAmthP7L7xwnf$}#)))) + (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#)))) (cons 'map (cons (list 'lambda - #{formals _hoQGWMnyQPAh3k2jhWHlZ}# - #{e _hoQGWMnyQPAh3k2jhWHlX}#) - #{actuals _hoQGWMnyQPAh3k2jhWHla}#))))))) - (#{regen _hoQGWMnyQPAh3k2jhWHgV}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWHli}#) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWHlj}# - (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'ref) - (let ((#{name _hoQGWMnyQPAh3k2jhWHlt}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (#{var _hoQGWMnyQPAh3k2jhWHlu}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + #{formals -ANAU$bmvAmthP7L7xwnf4}# + #{e -ANAU$bmvAmthP7L7xwnf2}#) + #{actuals -ANAU$bmvAmthP7L7xwnf5}#))))))) + (#{regen -ANAU$bmvAmthP7L7xwna0}# + (lambda (#{x -ANAU$bmvAmthP7L7xwngB}#) + (let ((#{atom-key -ANAU$bmvAmthP7L7xwngC}# + (car #{x -ANAU$bmvAmthP7L7xwngB}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'ref) + (let ((#{name -ANAU$bmvAmthP7L7xwngM}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (#{var -ANAU$bmvAmthP7L7xwngN}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name _hoQGWMnyQPAh3k2jhWHlt}# - #{var _hoQGWMnyQPAh3k2jhWHlu}#)) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# + #{name -ANAU$bmvAmthP7L7xwngM}# + #{var -ANAU$bmvAmthP7L7xwngN}#)) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'primitive) - (let ((#{name _hoQGWMnyQPAh3k2jhWHl6}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + (let ((#{name -ANAU$bmvAmthP7L7xwngZ}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _hoQGWMnyQPAh3k2jhWHl6}#) + #{name -ANAU$bmvAmthP7L7xwngZ}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _hoQGWMnyQPAh3k2jhWHl6}# + #{name -ANAU$bmvAmthP7L7xwngZ}# #f))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# 'quote) - (let ((#{exp _hoQGWMnyQPAh3k2jhWHmM}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'quote) + (let ((#{exp -ANAU$bmvAmthP7L7xwngr}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp _hoQGWMnyQPAh3k2jhWHmM}#)) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWHlj}# + #{exp -ANAU$bmvAmthP7L7xwngr}#)) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'lambda) - (if (list? (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (let ((#{req _hoQGWMnyQPAh3k2jhWHmX}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (#{vars _hoQGWMnyQPAh3k2jhWHmZ}# - (car (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#))) - (#{exp _hoQGWMnyQPAh3k2jhWHmb}# - (#{regen _hoQGWMnyQPAh3k2jhWHgV}# - (car (cdr (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))))) - (let ((#{body _hoQGWMnyQPAh3k2jhWHmg}# + (if (list? (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (let ((#{req -ANAU$bmvAmthP7L7xwng2}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (#{vars -ANAU$bmvAmthP7L7xwng4}# + (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#))) + (#{exp -ANAU$bmvAmthP7L7xwng6}# + (#{regen -ANAU$bmvAmthP7L7xwna0}# + (car (cdr (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))))) + (let ((#{body -ANAU$bmvAmthP7L7xwng@}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _hoQGWMnyQPAh3k2jhWHmX}# + #{req -ANAU$bmvAmthP7L7xwng2}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWHmZ}# - #{exp _hoQGWMnyQPAh3k2jhWHmb}# + #{vars -ANAU$bmvAmthP7L7xwng4}# + #{exp -ANAU$bmvAmthP7L7xwng6}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _hoQGWMnyQPAh3k2jhWHmg}#))) + #{body -ANAU$bmvAmthP7L7xwng@}#))) (error "how did we get here" - #{x _hoQGWMnyQPAh3k2jhWHli}#)) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# - (let ((#{name _hoQGWMnyQPAh3k2jhWHm5}# - (car #{x _hoQGWMnyQPAh3k2jhWHli}#))) + #{x -ANAU$bmvAmthP7L7xwngB}#)) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwnhP}# + (let ((#{name -ANAU$bmvAmthP7L7xwnhY}# + (car #{x -ANAU$bmvAmthP7L7xwngB}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name _hoQGWMnyQPAh3k2jhWHm5}#) + #{name -ANAU$bmvAmthP7L7xwnhY}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name _hoQGWMnyQPAh3k2jhWHm5}# + #{name -ANAU$bmvAmthP7L7xwnhY}# #f)))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWHmx}# - (map #{regen _hoQGWMnyQPAh3k2jhWHgV}# - (cdr #{x _hoQGWMnyQPAh3k2jhWHli}#)))) + (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}# + (map #{regen -ANAU$bmvAmthP7L7xwna0}# + (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWHmw}# - #{arg-exps _hoQGWMnyQPAh3k2jhWHmx}#)))))))))) - (lambda (#{e _hoQGWMnyQPAh3k2jhWHgW}# - #{r _hoQGWMnyQPAh3k2jhWHgX}# - #{w _hoQGWMnyQPAh3k2jhWHgY}# - #{s _hoQGWMnyQPAh3k2jhWHgZ}# - #{mod _hoQGWMnyQPAh3k2jhWHga}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWHgb}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + #{fun-exp -ANAU$bmvAmthP7L7xwnhP}# + #{arg-exps -ANAU$bmvAmthP7L7xwnhQ}#)))))))))) + (lambda (#{e -ANAU$bmvAmthP7L7xwna1}# + #{r -ANAU$bmvAmthP7L7xwna2}# + #{w -ANAU$bmvAmthP7L7xwna3}# + #{s -ANAU$bmvAmthP7L7xwna4}# + #{mod -ANAU$bmvAmthP7L7xwna5}#) + (let ((#{e -ANAU$bmvAmthP7L7xwna6}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWHgW}#) - #{s _hoQGWMnyQPAh3k2jhWHgZ}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#) + #{s -ANAU$bmvAmthP7L7xwna4}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWHgW}# - #{s _hoQGWMnyQPAh3k2jhWHgZ}#)) - #{e _hoQGWMnyQPAh3k2jhWHgW}#) - #{w _hoQGWMnyQPAh3k2jhWHgY}# - #{mod _hoQGWMnyQPAh3k2jhWHga}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHgd}# + #{e -ANAU$bmvAmthP7L7xwna1}# + #{s -ANAU$bmvAmthP7L7xwna4}#)) + #{e -ANAU$bmvAmthP7L7xwna1}#) + #{w -ANAU$bmvAmthP7L7xwna3}# + #{mod -ANAU$bmvAmthP7L7xwna5}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHgb}# + #{e -ANAU$bmvAmthP7L7xwna6}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHgd}# + (if #{tmp -ANAU$bmvAmthP7L7xwna8}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWHg2}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#) (call-with-values (lambda () - (#{gen-syntax _hoQGWMnyQPAh3k2jhWHgO}# - #{e _hoQGWMnyQPAh3k2jhWHgb}# - #{x _hoQGWMnyQPAh3k2jhWHg2}# - #{r _hoQGWMnyQPAh3k2jhWHgX}# + (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# + #{e -ANAU$bmvAmthP7L7xwna6}# + #{x -ANAU$bmvAmthP7L7xwnbV}# + #{r -ANAU$bmvAmthP7L7xwna2}# '() - #{ellipsis? _hoQGWMnyQPAh3k2jhWHTt}# - #{mod _hoQGWMnyQPAh3k2jhWHga}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWHhs}# - #{maps _hoQGWMnyQPAh3k2jhWHht}#) - (#{regen _hoQGWMnyQPAh3k2jhWHgV}# - #{e _hoQGWMnyQPAh3k2jhWHhs}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHgd}#) + #{ellipsis? -ANAU$bmvAmthP7L7xwnOM}# + #{mod -ANAU$bmvAmthP7L7xwna5}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwncL}# + #{maps -ANAU$bmvAmthP7L7xwncM}#) + (#{regen -ANAU$bmvAmthP7L7xwna0}# + #{e -ANAU$bmvAmthP7L7xwncL}#)))) + #{tmp -ANAU$bmvAmthP7L7xwna8}#) (syntax-violation 'syntax "bad `syntax' form" - #{e _hoQGWMnyQPAh3k2jhWHgb}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwna6}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'lambda - (lambda (#{e _hoQGWMnyQPAh3k2jhWHp2}# - #{r _hoQGWMnyQPAh3k2jhWHp3}# - #{w _hoQGWMnyQPAh3k2jhWHp4}# - #{s _hoQGWMnyQPAh3k2jhWHp5}# - #{mod _hoQGWMnyQPAh3k2jhWHp6}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHp8}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}# + #{r -ANAU$bmvAmthP7L7xwnkW}# + #{w -ANAU$bmvAmthP7L7xwnkX}# + #{s -ANAU$bmvAmthP7L7xwnkY}# + #{mod -ANAU$bmvAmthP7L7xwnkZ}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHp2}# + #{e -ANAU$bmvAmthP7L7xwnkV}# '(_ any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHp8}# + (if #{tmp -ANAU$bmvAmthP7L7xwnkb}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWHqA}# - #{e1 _hoQGWMnyQPAh3k2jhWHqB}# - #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}# + #{e1 -ANAU$bmvAmthP7L7xwnkg}# + #{e2 -ANAU$bmvAmthP7L7xwnkh}#) (call-with-values (lambda () - (#{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# - #{args _hoQGWMnyQPAh3k2jhWHqA}#)) - (lambda (#{req _hoQGWMnyQPAh3k2jhWHqF}# - #{opt _hoQGWMnyQPAh3k2jhWHqG}# - #{rest _hoQGWMnyQPAh3k2jhWHqH}# - #{kw _hoQGWMnyQPAh3k2jhWHqI}#) + (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}# + #{args -ANAU$bmvAmthP7L7xwnkf}#)) + (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}# + #{opt -ANAU$bmvAmthP7L7xwnkl}# + #{rest -ANAU$bmvAmthP7L7xwnkm}# + #{kw -ANAU$bmvAmthP7L7xwnkn}#) (letrec* - ((#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (lambda (#{body _hoQGWMnyQPAh3k2jhWHqM}# - #{meta _hoQGWMnyQPAh3k2jhWHqN}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqP}# + ((#{lp -ANAU$bmvAmthP7L7xwnko}# + (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}# + #{meta -ANAU$bmvAmthP7L7xwnks}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWHqM}# + #{body -ANAU$bmvAmthP7L7xwnkr}# '(any any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWHqP}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}# (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqT}# - #{e1 _hoQGWMnyQPAh3k2jhWHqU}# - #{e2 _hoQGWMnyQPAh3k2jhWHqV}#) + (lambda (#{docstring -ANAU$bmvAmthP7L7xwnky}# + #{e1 -ANAU$bmvAmthP7L7xwnkz}# + #{e2 -ANAU$bmvAmthP7L7xwnk0}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWHqT}#))) - #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) + #{docstring -ANAU$bmvAmthP7L7xwnky}#))) + #{tmp -ANAU$bmvAmthP7L7xwnku}#) #f) (@apply - (lambda (#{docstring _hoQGWMnyQPAh3k2jhWHqW}# - #{e1 _hoQGWMnyQPAh3k2jhWHqX}# - #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) - (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHqX}# - #{e2 _hoQGWMnyQPAh3k2jhWHqY}#) + (lambda (#{docstring -ANAU$bmvAmthP7L7xwnk1}# + #{e1 -ANAU$bmvAmthP7L7xwnk2}# + #{e2 -ANAU$bmvAmthP7L7xwnk3}#) + (#{lp -ANAU$bmvAmthP7L7xwnko}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}# + #{e2 -ANAU$bmvAmthP7L7xwnk3}#) (append - #{meta _hoQGWMnyQPAh3k2jhWHqN}# + #{meta -ANAU$bmvAmthP7L7xwnks}# (list (cons 'documentation (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWHqW}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWHqP}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHqZ}# + #{docstring -ANAU$bmvAmthP7L7xwnk1}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwnku}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}# ($sc-dispatch - #{body _hoQGWMnyQPAh3k2jhWHqM}# + #{body -ANAU$bmvAmthP7L7xwnkr}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHqZ}# + (if #{tmp -ANAU$bmvAmthP7L7xwnk4}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWHqd}# - #{v _hoQGWMnyQPAh3k2jhWHqe}# - #{e1 _hoQGWMnyQPAh3k2jhWHqf}# - #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) - (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHqf}# - #{e2 _hoQGWMnyQPAh3k2jhWHqg}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}# + #{v -ANAU$bmvAmthP7L7xwnk9}# + #{e1 -ANAU$bmvAmthP7L7xwnk$}# + #{e2 -ANAU$bmvAmthP7L7xwnk@}#) + (#{lp -ANAU$bmvAmthP7L7xwnko}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}# + #{e2 -ANAU$bmvAmthP7L7xwnk@}#) (append - #{meta _hoQGWMnyQPAh3k2jhWHqN}# + #{meta -ANAU$bmvAmthP7L7xwnks}# (syntax->datum (map cons - #{k _hoQGWMnyQPAh3k2jhWHqd}# - #{v _hoQGWMnyQPAh3k2jhWHqe}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWHqZ}#) - (#{expand-simple-lambda _hoQGWMnyQPAh3k2jhWHTv}# - #{e _hoQGWMnyQPAh3k2jhWHp2}# - #{r _hoQGWMnyQPAh3k2jhWHp3}# - #{w _hoQGWMnyQPAh3k2jhWHp4}# - #{s _hoQGWMnyQPAh3k2jhWHp5}# - #{mod _hoQGWMnyQPAh3k2jhWHp6}# - #{req _hoQGWMnyQPAh3k2jhWHqF}# - #{rest _hoQGWMnyQPAh3k2jhWHqH}# - #{meta _hoQGWMnyQPAh3k2jhWHqN}# - #{body _hoQGWMnyQPAh3k2jhWHqM}#)))))))) - (#{lp _hoQGWMnyQPAh3k2jhWHqJ}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHqB}# - #{e2 _hoQGWMnyQPAh3k2jhWHqC}#) + #{k -ANAU$bmvAmthP7L7xwnk8}# + #{v -ANAU$bmvAmthP7L7xwnk9}#))))) + #{tmp -ANAU$bmvAmthP7L7xwnk4}#) + (#{expand-simple-lambda -ANAU$bmvAmthP7L7xwnOO}# + #{e -ANAU$bmvAmthP7L7xwnkV}# + #{r -ANAU$bmvAmthP7L7xwnkW}# + #{w -ANAU$bmvAmthP7L7xwnkX}# + #{s -ANAU$bmvAmthP7L7xwnkY}# + #{mod -ANAU$bmvAmthP7L7xwnkZ}# + #{req -ANAU$bmvAmthP7L7xwnkk}# + #{rest -ANAU$bmvAmthP7L7xwnkm}# + #{meta -ANAU$bmvAmthP7L7xwnks}# + #{body -ANAU$bmvAmthP7L7xwnkr}#)))))))) + (#{lp -ANAU$bmvAmthP7L7xwnko}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnkg}# + #{e2 -ANAU$bmvAmthP7L7xwnkh}#) '()))))) - #{tmp _hoQGWMnyQPAh3k2jhWHp8}#) + #{tmp -ANAU$bmvAmthP7L7xwnkb}#) (syntax-violation 'lambda "bad lambda" - #{e _hoQGWMnyQPAh3k2jhWHp2}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnkV}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'lambda* - (lambda (#{e _hoQGWMnyQPAh3k2jhWHu9}# - #{r _hoQGWMnyQPAh3k2jhWHu$}# - #{w _hoQGWMnyQPAh3k2jhWHu@}# - #{s _hoQGWMnyQPAh3k2jhWHvA}# - #{mod _hoQGWMnyQPAh3k2jhWHvB}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHvD}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}# + #{r -ANAU$bmvAmthP7L7xwnpd}# + #{w -ANAU$bmvAmthP7L7xwnpe}# + #{s -ANAU$bmvAmthP7L7xwnpf}# + #{mod -ANAU$bmvAmthP7L7xwnpg}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHu9}# + #{e -ANAU$bmvAmthP7L7xwnpc}# '(_ any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHvD}# + (if #{tmp -ANAU$bmvAmthP7L7xwnpi}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWHvH}# - #{e1 _hoQGWMnyQPAh3k2jhWHvI}# - #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}# + #{e1 -ANAU$bmvAmthP7L7xwnpn}# + #{e2 -ANAU$bmvAmthP7L7xwnpo}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWHu9}# - #{r _hoQGWMnyQPAh3k2jhWHu$}# - #{w _hoQGWMnyQPAh3k2jhWHu@}# - #{s _hoQGWMnyQPAh3k2jhWHvA}# - #{mod _hoQGWMnyQPAh3k2jhWHvB}# - #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# - (list (cons #{args _hoQGWMnyQPAh3k2jhWHvH}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHvI}# - #{e2 _hoQGWMnyQPAh3k2jhWHvJ}#))))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWHvM}# - #{lcase _hoQGWMnyQPAh3k2jhWHvN}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwnpc}# + #{r -ANAU$bmvAmthP7L7xwnpd}# + #{w -ANAU$bmvAmthP7L7xwnpe}# + #{s -ANAU$bmvAmthP7L7xwnpf}# + #{mod -ANAU$bmvAmthP7L7xwnpg}# + #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}# + (list (cons #{args -ANAU$bmvAmthP7L7xwnpm}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnpn}# + #{e2 -ANAU$bmvAmthP7L7xwnpo}#))))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwnpr}# + #{lcase -ANAU$bmvAmthP7L7xwnps}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _hoQGWMnyQPAh3k2jhWHvA}# - #{meta _hoQGWMnyQPAh3k2jhWHvM}# - #{lcase _hoQGWMnyQPAh3k2jhWHvN}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHvD}#) + #{s -ANAU$bmvAmthP7L7xwnpf}# + #{meta -ANAU$bmvAmthP7L7xwnpr}# + #{lcase -ANAU$bmvAmthP7L7xwnps}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnpi}#) (syntax-violation 'lambda "bad lambda*" - #{e _hoQGWMnyQPAh3k2jhWHu9}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnpc}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'case-lambda - (lambda (#{e _hoQGWMnyQPAh3k2jhWHx3}# - #{r _hoQGWMnyQPAh3k2jhWHx4}# - #{w _hoQGWMnyQPAh3k2jhWHx5}# - #{s _hoQGWMnyQPAh3k2jhWHx6}# - #{mod _hoQGWMnyQPAh3k2jhWHx7}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWHx9}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}# + #{r -ANAU$bmvAmthP7L7xwnsX}# + #{w -ANAU$bmvAmthP7L7xwnsY}# + #{s -ANAU$bmvAmthP7L7xwnsZ}# + #{mod -ANAU$bmvAmthP7L7xwnsa}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWHx3}# + #{e -ANAU$bmvAmthP7L7xwnsW}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWHx9}# + (if #{tmp -ANAU$bmvAmthP7L7xwnsc}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWHyB}# - #{e1 _hoQGWMnyQPAh3k2jhWHyC}# - #{e2 _hoQGWMnyQPAh3k2jhWHyD}# - #{args* _hoQGWMnyQPAh3k2jhWHyE}# - #{e1* _hoQGWMnyQPAh3k2jhWHyF}# - #{e2* _hoQGWMnyQPAh3k2jhWHyG}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnsg}# + #{e1 -ANAU$bmvAmthP7L7xwnsh}# + #{e2 -ANAU$bmvAmthP7L7xwnsi}# + #{args* -ANAU$bmvAmthP7L7xwnsj}# + #{e1* -ANAU$bmvAmthP7L7xwnsk}# + #{e2* -ANAU$bmvAmthP7L7xwnsl}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWHx3}# - #{r _hoQGWMnyQPAh3k2jhWHx4}# - #{w _hoQGWMnyQPAh3k2jhWHx5}# - #{s _hoQGWMnyQPAh3k2jhWHx6}# - #{mod _hoQGWMnyQPAh3k2jhWHx7}# - #{lambda-formals _hoQGWMnyQPAh3k2jhWHTu}# - (cons (cons #{args _hoQGWMnyQPAh3k2jhWHyB}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWHyC}# - #{e2 _hoQGWMnyQPAh3k2jhWHyD}#)) - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}# - #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# - #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}#) - (cons #{tmp _hoQGWMnyQPAh3k2jhWHH0 _hoQGWMnyQPAh3k2jhWHyL}# - (cons #{tmp _hoQGWMnyQPAh3k2jhWHH1 _hoQGWMnyQPAh3k2jhWHyK}# - #{tmp _hoQGWMnyQPAh3k2jhWHH2 _hoQGWMnyQPAh3k2jhWHyJ}#))) - #{e2* _hoQGWMnyQPAh3k2jhWHyG}# - #{e1* _hoQGWMnyQPAh3k2jhWHyF}# - #{args* _hoQGWMnyQPAh3k2jhWHyE}#)))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWHyM}# - #{lcase _hoQGWMnyQPAh3k2jhWHyN}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwnsW}# + #{r -ANAU$bmvAmthP7L7xwnsX}# + #{w -ANAU$bmvAmthP7L7xwnsY}# + #{s -ANAU$bmvAmthP7L7xwnsZ}# + #{mod -ANAU$bmvAmthP7L7xwnsa}# + #{lambda-formals -ANAU$bmvAmthP7L7xwnON}# + (cons (cons #{args -ANAU$bmvAmthP7L7xwnsg}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnsh}# + #{e2 -ANAU$bmvAmthP7L7xwnsi}#)) + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCS -ANAU$bmvAmthP7L7xwnso}# + #{tmp -ANAU$bmvAmthP7L7xwnCR -ANAU$bmvAmthP7L7xwnsp}# + #{tmp -ANAU$bmvAmthP7L7xwnCQ -ANAU$bmvAmthP7L7xwnsq}#) + (cons #{tmp -ANAU$bmvAmthP7L7xwnCQ -ANAU$bmvAmthP7L7xwnsq}# + (cons #{tmp -ANAU$bmvAmthP7L7xwnCR -ANAU$bmvAmthP7L7xwnsp}# + #{tmp -ANAU$bmvAmthP7L7xwnCS -ANAU$bmvAmthP7L7xwnso}#))) + #{e2* -ANAU$bmvAmthP7L7xwnsl}# + #{e1* -ANAU$bmvAmthP7L7xwnsk}# + #{args* -ANAU$bmvAmthP7L7xwnsj}#)))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwnsr}# + #{lcase -ANAU$bmvAmthP7L7xwnss}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _hoQGWMnyQPAh3k2jhWHx6}# - #{meta _hoQGWMnyQPAh3k2jhWHyM}# - #{lcase _hoQGWMnyQPAh3k2jhWHyN}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWHx9}#) + #{s -ANAU$bmvAmthP7L7xwnsZ}# + #{meta -ANAU$bmvAmthP7L7xwnsr}# + #{lcase -ANAU$bmvAmthP7L7xwnss}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnsc}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e _hoQGWMnyQPAh3k2jhWHx3}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnsW}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'case-lambda* - (lambda (#{e _hoQGWMnyQPAh3k2jhWH0v}# - #{r _hoQGWMnyQPAh3k2jhWH0w}# - #{w _hoQGWMnyQPAh3k2jhWH0x}# - #{s _hoQGWMnyQPAh3k2jhWH0y}# - #{mod _hoQGWMnyQPAh3k2jhWH0z}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWH01}# + (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}# + #{r -ANAU$bmvAmthP7L7xwnvP}# + #{w -ANAU$bmvAmthP7L7xwnvQ}# + #{s -ANAU$bmvAmthP7L7xwnvR}# + #{mod -ANAU$bmvAmthP7L7xwnvS}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWH0v}# + #{e -ANAU$bmvAmthP7L7xwnvO}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWH01}# + (if #{tmp -ANAU$bmvAmthP7L7xwnvU}# (@apply - (lambda (#{args _hoQGWMnyQPAh3k2jhWH05}# - #{e1 _hoQGWMnyQPAh3k2jhWH06}# - #{e2 _hoQGWMnyQPAh3k2jhWH07}# - #{args* _hoQGWMnyQPAh3k2jhWH08}# - #{e1* _hoQGWMnyQPAh3k2jhWH09}# - #{e2* _hoQGWMnyQPAh3k2jhWH0$}#) + (lambda (#{args -ANAU$bmvAmthP7L7xwnvY}# + #{e1 -ANAU$bmvAmthP7L7xwnvZ}# + #{e2 -ANAU$bmvAmthP7L7xwnva}# + #{args* -ANAU$bmvAmthP7L7xwnvb}# + #{e1* -ANAU$bmvAmthP7L7xwnvc}# + #{e2* -ANAU$bmvAmthP7L7xwnvd}#) (call-with-values (lambda () - (#{expand-lambda-case _hoQGWMnyQPAh3k2jhWHTx}# - #{e _hoQGWMnyQPAh3k2jhWH0v}# - #{r _hoQGWMnyQPAh3k2jhWH0w}# - #{w _hoQGWMnyQPAh3k2jhWH0x}# - #{s _hoQGWMnyQPAh3k2jhWH0y}# - #{mod _hoQGWMnyQPAh3k2jhWH0z}# - #{lambda*-formals _hoQGWMnyQPAh3k2jhWHTw}# - (cons (cons #{args _hoQGWMnyQPAh3k2jhWH05}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWH06}# - #{e2 _hoQGWMnyQPAh3k2jhWH07}#)) - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}# - #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# - #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}#) - (cons #{tmp _hoQGWMnyQPAh3k2jhWHIJ _hoQGWMnyQPAh3k2jhWH1D}# - (cons #{tmp _hoQGWMnyQPAh3k2jhWHIK _hoQGWMnyQPAh3k2jhWH1C}# - #{tmp _hoQGWMnyQPAh3k2jhWHIL _hoQGWMnyQPAh3k2jhWH1B}#))) - #{e2* _hoQGWMnyQPAh3k2jhWH0$}# - #{e1* _hoQGWMnyQPAh3k2jhWH09}# - #{args* _hoQGWMnyQPAh3k2jhWH08}#)))) - (lambda (#{meta _hoQGWMnyQPAh3k2jhWH1E}# - #{lcase _hoQGWMnyQPAh3k2jhWH1F}#) + (#{expand-lambda-case -ANAU$bmvAmthP7L7xwnOQ}# + #{e -ANAU$bmvAmthP7L7xwnvO}# + #{r -ANAU$bmvAmthP7L7xwnvP}# + #{w -ANAU$bmvAmthP7L7xwnvQ}# + #{s -ANAU$bmvAmthP7L7xwnvR}# + #{mod -ANAU$bmvAmthP7L7xwnvS}# + #{lambda*-formals -ANAU$bmvAmthP7L7xwnOP}# + (cons (cons #{args -ANAU$bmvAmthP7L7xwnvY}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnvZ}# + #{e2 -ANAU$bmvAmthP7L7xwnva}#)) + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xwnCn -ANAU$bmvAmthP7L7xwnvg}# + #{tmp -ANAU$bmvAmthP7L7xwnCm -ANAU$bmvAmthP7L7xwnvh}# + #{tmp -ANAU$bmvAmthP7L7xwnCl -ANAU$bmvAmthP7L7xwnvi}#) + (cons #{tmp -ANAU$bmvAmthP7L7xwnCl -ANAU$bmvAmthP7L7xwnvi}# + (cons #{tmp -ANAU$bmvAmthP7L7xwnCm -ANAU$bmvAmthP7L7xwnvh}# + #{tmp -ANAU$bmvAmthP7L7xwnCn -ANAU$bmvAmthP7L7xwnvg}#))) + #{e2* -ANAU$bmvAmthP7L7xwnvd}# + #{e1* -ANAU$bmvAmthP7L7xwnvc}# + #{args* -ANAU$bmvAmthP7L7xwnvb}#)))) + (lambda (#{meta -ANAU$bmvAmthP7L7xwnvj}# + #{lcase -ANAU$bmvAmthP7L7xwnvk}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s _hoQGWMnyQPAh3k2jhWH0y}# - #{meta _hoQGWMnyQPAh3k2jhWH1E}# - #{lcase _hoQGWMnyQPAh3k2jhWH1F}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWH01}#) + #{s -ANAU$bmvAmthP7L7xwnvR}# + #{meta -ANAU$bmvAmthP7L7xwnvj}# + #{lcase -ANAU$bmvAmthP7L7xwnvk}#)))) + #{tmp -ANAU$bmvAmthP7L7xwnvU}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e _hoQGWMnyQPAh3k2jhWH0v}#))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnvO}#))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'let (letrec* - ((#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWH6Z}# - #{r _hoQGWMnyQPAh3k2jhWH6a}# - #{w _hoQGWMnyQPAh3k2jhWH6b}# - #{s _hoQGWMnyQPAh3k2jhWH6c}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}# - #{constructor _hoQGWMnyQPAh3k2jhWH6e}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}# - #{vals _hoQGWMnyQPAh3k2jhWH6g}# - #{exps _hoQGWMnyQPAh3k2jhWH6h}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) + ((#{expand-let -ANAU$bmvAmthP7L7xwnyj}# + (lambda (#{e -ANAU$bmvAmthP7L7xwn04}# + #{r -ANAU$bmvAmthP7L7xwn05}# + #{w -ANAU$bmvAmthP7L7xwn06}# + #{s -ANAU$bmvAmthP7L7xwn07}# + #{mod -ANAU$bmvAmthP7L7xwn08}# + #{constructor -ANAU$bmvAmthP7L7xwn09}# + #{ids -ANAU$bmvAmthP7L7xwn0$}# + #{vals -ANAU$bmvAmthP7L7xwn0@}# + #{exps -ANAU$bmvAmthP7L7xwn1A}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#)) (syntax-violation 'let "duplicate bound variable" - #{e _hoQGWMnyQPAh3k2jhWH6Z}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWH7v}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWH7w}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}#))) - (let ((#{nw _hoQGWMnyQPAh3k2jhWH7x}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{ids _hoQGWMnyQPAh3k2jhWH6f}# - #{labels _hoQGWMnyQPAh3k2jhWH7v}# - #{w _hoQGWMnyQPAh3k2jhWH6b}#)) - (#{nr _hoQGWMnyQPAh3k2jhWH7y}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWH7v}# - #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# - #{r _hoQGWMnyQPAh3k2jhWH6a}#))) - (#{constructor _hoQGWMnyQPAh3k2jhWH6e}# - #{s _hoQGWMnyQPAh3k2jhWH6c}# + #{e -ANAU$bmvAmthP7L7xwn04}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwn2O}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwn2P}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#))) + (let ((#{nw -ANAU$bmvAmthP7L7xwn2Q}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{ids -ANAU$bmvAmthP7L7xwn0$}# + #{labels -ANAU$bmvAmthP7L7xwn2O}# + #{w -ANAU$bmvAmthP7L7xwn06}#)) + (#{nr -ANAU$bmvAmthP7L7xwn2R}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwn2O}# + #{new-vars -ANAU$bmvAmthP7L7xwn2P}# + #{r -ANAU$bmvAmthP7L7xwn05}#))) + (#{constructor -ANAU$bmvAmthP7L7xwn09}# + #{s -ANAU$bmvAmthP7L7xwn07}# (map syntax->datum - #{ids _hoQGWMnyQPAh3k2jhWH6f}#) - #{new-vars _hoQGWMnyQPAh3k2jhWH7w}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWH8D}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWH8D}# - #{r _hoQGWMnyQPAh3k2jhWH6a}# - #{w _hoQGWMnyQPAh3k2jhWH6b}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}#)) - #{vals _hoQGWMnyQPAh3k2jhWH6g}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - #{exps _hoQGWMnyQPAh3k2jhWH6h}# - (#{source-wrap _hoQGWMnyQPAh3k2jhWHTf}# - #{e _hoQGWMnyQPAh3k2jhWH6Z}# - #{nw _hoQGWMnyQPAh3k2jhWH7x}# - #{s _hoQGWMnyQPAh3k2jhWH6c}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}#) - #{nr _hoQGWMnyQPAh3k2jhWH7y}# - #{nw _hoQGWMnyQPAh3k2jhWH7x}# - #{mod _hoQGWMnyQPAh3k2jhWH6d}#)))))))) - (lambda (#{e _hoQGWMnyQPAh3k2jhWH4F}# - #{r _hoQGWMnyQPAh3k2jhWH4G}# - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{s _hoQGWMnyQPAh3k2jhWH4I}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWH4L}# + #{ids -ANAU$bmvAmthP7L7xwn0$}#) + #{new-vars -ANAU$bmvAmthP7L7xwn2P}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwn2i}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwn2i}# + #{r -ANAU$bmvAmthP7L7xwn05}# + #{w -ANAU$bmvAmthP7L7xwn06}# + #{mod -ANAU$bmvAmthP7L7xwn08}#)) + #{vals -ANAU$bmvAmthP7L7xwn0@}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + #{exps -ANAU$bmvAmthP7L7xwn1A}# + (#{source-wrap -ANAU$bmvAmthP7L7xwnN$}# + #{e -ANAU$bmvAmthP7L7xwn04}# + #{nw -ANAU$bmvAmthP7L7xwn2Q}# + #{s -ANAU$bmvAmthP7L7xwn07}# + #{mod -ANAU$bmvAmthP7L7xwn08}#) + #{nr -ANAU$bmvAmthP7L7xwn2R}# + #{nw -ANAU$bmvAmthP7L7xwn2Q}# + #{mod -ANAU$bmvAmthP7L7xwn08}#)))))))) + (lambda (#{e -ANAU$bmvAmthP7L7xwnyk}# + #{r -ANAU$bmvAmthP7L7xwnyl}# + #{w -ANAU$bmvAmthP7L7xwnym}# + #{s -ANAU$bmvAmthP7L7xwnyn}# + #{mod -ANAU$bmvAmthP7L7xwnyo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnyq}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{e -ANAU$bmvAmthP7L7xwnyk}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWH4L}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWH4P}# - #{val _hoQGWMnyQPAh3k2jhWH4Q}# - #{e1 _hoQGWMnyQPAh3k2jhWH4R}# - #{e2 _hoQGWMnyQPAh3k2jhWH4S}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}# + #{val -ANAU$bmvAmthP7L7xwnyv}# + #{e1 -ANAU$bmvAmthP7L7xwnyw}# + #{e2 -ANAU$bmvAmthP7L7xwnyx}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWH4P}#)) - #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwnyu}#)) + #{tmp -ANAU$bmvAmthP7L7xwnyq}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWH4i}# - #{val _hoQGWMnyQPAh3k2jhWH4j}# - #{e1 _hoQGWMnyQPAh3k2jhWH4k}# - #{e2 _hoQGWMnyQPAh3k2jhWH4l}#) - (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# - #{e _hoQGWMnyQPAh3k2jhWH4F}# - #{r _hoQGWMnyQPAh3k2jhWH4G}# - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{s _hoQGWMnyQPAh3k2jhWH4I}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}# - #{build-let _hoQGWMnyQPAh3k2jhWHSv}# - #{id _hoQGWMnyQPAh3k2jhWH4i}# - #{val _hoQGWMnyQPAh3k2jhWH4j}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWH4k}# - #{e2 _hoQGWMnyQPAh3k2jhWH4l}#))) - #{tmp _hoQGWMnyQPAh3k2jhWH4L}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWH5D}# + (lambda (#{id -ANAU$bmvAmthP7L7xwnzB}# + #{val -ANAU$bmvAmthP7L7xwnzC}# + #{e1 -ANAU$bmvAmthP7L7xwnzD}# + #{e2 -ANAU$bmvAmthP7L7xwnzE}#) + (#{expand-let -ANAU$bmvAmthP7L7xwnyj}# + #{e -ANAU$bmvAmthP7L7xwnyk}# + #{r -ANAU$bmvAmthP7L7xwnyl}# + #{w -ANAU$bmvAmthP7L7xwnym}# + #{s -ANAU$bmvAmthP7L7xwnyn}# + #{mod -ANAU$bmvAmthP7L7xwnyo}# + #{build-let -ANAU$bmvAmthP7L7xwnNO}# + #{id -ANAU$bmvAmthP7L7xwnzB}# + #{val -ANAU$bmvAmthP7L7xwnzC}# + (cons #{e1 -ANAU$bmvAmthP7L7xwnzD}# + #{e2 -ANAU$bmvAmthP7L7xwnzE}#))) + #{tmp -ANAU$bmvAmthP7L7xwnyq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwnzi}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWH4F}# + #{e -ANAU$bmvAmthP7L7xwnyk}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWH5D}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}# (@apply - (lambda (#{f _hoQGWMnyQPAh3k2jhWH5H}# - #{id _hoQGWMnyQPAh3k2jhWH5I}# - #{val _hoQGWMnyQPAh3k2jhWH5J}# - #{e1 _hoQGWMnyQPAh3k2jhWH5K}# - #{e2 _hoQGWMnyQPAh3k2jhWH5L}#) - (if (if (symbol? #{f _hoQGWMnyQPAh3k2jhWH5H}#) + (lambda (#{f -ANAU$bmvAmthP7L7xwnzm}# + #{id -ANAU$bmvAmthP7L7xwnzn}# + #{val -ANAU$bmvAmthP7L7xwnzo}# + #{e1 -ANAU$bmvAmthP7L7xwnzp}# + #{e2 -ANAU$bmvAmthP7L7xwnzq}#) + (if (if (symbol? #{f -ANAU$bmvAmthP7L7xwnzm}#) #t (if (if (vector? - #{f _hoQGWMnyQPAh3k2jhWH5H}#) + #{f -ANAU$bmvAmthP7L7xwnzm}#) (if (= (vector-length - #{f _hoQGWMnyQPAh3k2jhWH5H}#) + #{f -ANAU$bmvAmthP7L7xwnzm}#) 4) (eq? (vector-ref - #{f _hoQGWMnyQPAh3k2jhWH5H}# + #{f -ANAU$bmvAmthP7L7xwnzm}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{f _hoQGWMnyQPAh3k2jhWH5H}# + #{f -ANAU$bmvAmthP7L7xwnzm}# 1)) #f)) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWH5I}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwnzn}#) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) + #{tmp -ANAU$bmvAmthP7L7xwnzi}#) #f) (@apply - (lambda (#{f _hoQGWMnyQPAh3k2jhWH51}# - #{id _hoQGWMnyQPAh3k2jhWH52}# - #{val _hoQGWMnyQPAh3k2jhWH53}# - #{e1 _hoQGWMnyQPAh3k2jhWH54}# - #{e2 _hoQGWMnyQPAh3k2jhWH55}#) - (#{expand-let _hoQGWMnyQPAh3k2jhWH4E}# - #{e _hoQGWMnyQPAh3k2jhWH4F}# - #{r _hoQGWMnyQPAh3k2jhWH4G}# - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{s _hoQGWMnyQPAh3k2jhWH4I}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}# - #{build-named-let _hoQGWMnyQPAh3k2jhWHSw}# - (cons #{f _hoQGWMnyQPAh3k2jhWH51}# - #{id _hoQGWMnyQPAh3k2jhWH52}#) - #{val _hoQGWMnyQPAh3k2jhWH53}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWH54}# - #{e2 _hoQGWMnyQPAh3k2jhWH55}#))) - #{tmp _hoQGWMnyQPAh3k2jhWH5D}#) + (lambda (#{f -ANAU$bmvAmthP7L7xwn0U}# + #{id -ANAU$bmvAmthP7L7xwn0V}# + #{val -ANAU$bmvAmthP7L7xwn0W}# + #{e1 -ANAU$bmvAmthP7L7xwn0X}# + #{e2 -ANAU$bmvAmthP7L7xwn0Y}#) + (#{expand-let -ANAU$bmvAmthP7L7xwnyj}# + #{e -ANAU$bmvAmthP7L7xwnyk}# + #{r -ANAU$bmvAmthP7L7xwnyl}# + #{w -ANAU$bmvAmthP7L7xwnym}# + #{s -ANAU$bmvAmthP7L7xwnyn}# + #{mod -ANAU$bmvAmthP7L7xwnyo}# + #{build-named-let -ANAU$bmvAmthP7L7xwnNP}# + (cons #{f -ANAU$bmvAmthP7L7xwn0U}# + #{id -ANAU$bmvAmthP7L7xwn0V}#) + #{val -ANAU$bmvAmthP7L7xwn0W}# + (cons #{e1 -ANAU$bmvAmthP7L7xwn0X}# + #{e2 -ANAU$bmvAmthP7L7xwn0Y}#))) + #{tmp -ANAU$bmvAmthP7L7xwnzi}#) (syntax-violation 'let "bad let" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWH4F}#) - #{s _hoQGWMnyQPAh3k2jhWH4I}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#) + #{s -ANAU$bmvAmthP7L7xwnyn}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWH4F}# - #{s _hoQGWMnyQPAh3k2jhWH4I}#)) - #{e _hoQGWMnyQPAh3k2jhWH4F}#) - #{w _hoQGWMnyQPAh3k2jhWH4H}# - #{mod _hoQGWMnyQPAh3k2jhWH4J}#))))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwnyk}# + #{s -ANAU$bmvAmthP7L7xwnyn}#)) + #{e -ANAU$bmvAmthP7L7xwnyk}#) + #{w -ANAU$bmvAmthP7L7xwnym}# + #{mod -ANAU$bmvAmthP7L7xwnyo}#))))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'letrec - (lambda (#{e _hoQGWMnyQPAh3k2jhWICR}# - #{r _hoQGWMnyQPAh3k2jhWICS}# - #{w _hoQGWMnyQPAh3k2jhWICT}# - #{s _hoQGWMnyQPAh3k2jhWICU}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWICX}# + (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}# + #{r -ANAU$bmvAmthP7L7xwn8x}# + #{w -ANAU$bmvAmthP7L7xwn8y}# + #{s -ANAU$bmvAmthP7L7xwn8z}# + #{mod -ANAU$bmvAmthP7L7xwn80}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWICR}# + #{e -ANAU$bmvAmthP7L7xwn8w}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWICX}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWICb}# - #{val _hoQGWMnyQPAh3k2jhWICc}# - #{e1 _hoQGWMnyQPAh3k2jhWICd}# - #{e2 _hoQGWMnyQPAh3k2jhWICe}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwn86}# + #{val -ANAU$bmvAmthP7L7xwn87}# + #{e1 -ANAU$bmvAmthP7L7xwn88}# + #{e2 -ANAU$bmvAmthP7L7xwn89}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWICb}#)) - #{tmp _hoQGWMnyQPAh3k2jhWICX}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwn86}#)) + #{tmp -ANAU$bmvAmthP7L7xwn82}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWICu}# - #{val _hoQGWMnyQPAh3k2jhWICv}# - #{e1 _hoQGWMnyQPAh3k2jhWICw}# - #{e2 _hoQGWMnyQPAh3k2jhWICx}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{id _hoQGWMnyQPAh3k2jhWICu}#)) + (lambda (#{id -ANAU$bmvAmthP7L7xwn9N}# + #{val -ANAU$bmvAmthP7L7xwn9O}# + #{e1 -ANAU$bmvAmthP7L7xwn9P}# + #{e2 -ANAU$bmvAmthP7L7xwn9Q}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{id -ANAU$bmvAmthP7L7xwn9N}#)) (syntax-violation 'letrec "duplicate bound variable" - #{e _hoQGWMnyQPAh3k2jhWICR}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWIEL}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{id _hoQGWMnyQPAh3k2jhWICu}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWIEM}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{id _hoQGWMnyQPAh3k2jhWICu}#))) - (let ((#{w _hoQGWMnyQPAh3k2jhWIEN}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{id _hoQGWMnyQPAh3k2jhWICu}# - #{labels _hoQGWMnyQPAh3k2jhWIEL}# - #{w _hoQGWMnyQPAh3k2jhWICT}#)) - (#{r _hoQGWMnyQPAh3k2jhWIEO}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWIEL}# - #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# - #{r _hoQGWMnyQPAh3k2jhWICS}#))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# - #{s _hoQGWMnyQPAh3k2jhWICU}# + #{e -ANAU$bmvAmthP7L7xwn8w}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwn$q}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{id -ANAU$bmvAmthP7L7xwn9N}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwn$r}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{id -ANAU$bmvAmthP7L7xwn9N}#))) + (let ((#{w -ANAU$bmvAmthP7L7xwn$s}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{id -ANAU$bmvAmthP7L7xwn9N}# + #{labels -ANAU$bmvAmthP7L7xwn$q}# + #{w -ANAU$bmvAmthP7L7xwn8y}#)) + (#{r -ANAU$bmvAmthP7L7xwn$t}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwn$q}# + #{new-vars -ANAU$bmvAmthP7L7xwn$r}# + #{r -ANAU$bmvAmthP7L7xwn8x}#))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + #{s -ANAU$bmvAmthP7L7xwn8z}# #f - (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWICu}#) - #{new-vars _hoQGWMnyQPAh3k2jhWIEM}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIFf}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWIFf}# - #{r _hoQGWMnyQPAh3k2jhWIEO}# - #{w _hoQGWMnyQPAh3k2jhWIEN}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#)) - #{val _hoQGWMnyQPAh3k2jhWICv}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWICw}# - #{e2 _hoQGWMnyQPAh3k2jhWICx}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (map syntax->datum #{id -ANAU$bmvAmthP7L7xwn9N}#) + #{new-vars -ANAU$bmvAmthP7L7xwn$r}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwn@$}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwn@$}# + #{r -ANAU$bmvAmthP7L7xwn$t}# + #{w -ANAU$bmvAmthP7L7xwn$s}# + #{mod -ANAU$bmvAmthP7L7xwn80}#)) + #{val -ANAU$bmvAmthP7L7xwn9O}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwn9P}# + #{e2 -ANAU$bmvAmthP7L7xwn9Q}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{s _hoQGWMnyQPAh3k2jhWICU}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{s -ANAU$bmvAmthP7L7xwn8z}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWICR}# - #{s _hoQGWMnyQPAh3k2jhWICU}#)) - #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{w _hoQGWMnyQPAh3k2jhWIEN}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#) - #{r _hoQGWMnyQPAh3k2jhWIEO}# - #{w _hoQGWMnyQPAh3k2jhWIEN}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWICX}#) + #{e -ANAU$bmvAmthP7L7xwn8w}# + #{s -ANAU$bmvAmthP7L7xwn8z}#)) + #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{w -ANAU$bmvAmthP7L7xwn$s}# + #{mod -ANAU$bmvAmthP7L7xwn80}#) + #{r -ANAU$bmvAmthP7L7xwn$t}# + #{w -ANAU$bmvAmthP7L7xwn$s}# + #{mod -ANAU$bmvAmthP7L7xwn80}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwn82}#) (syntax-violation 'letrec "bad letrec" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{s _hoQGWMnyQPAh3k2jhWICU}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{s -ANAU$bmvAmthP7L7xwn8z}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWICR}# - #{s _hoQGWMnyQPAh3k2jhWICU}#)) - #{e _hoQGWMnyQPAh3k2jhWICR}#) - #{w _hoQGWMnyQPAh3k2jhWICT}# - #{mod _hoQGWMnyQPAh3k2jhWICV}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwn8w}# + #{s -ANAU$bmvAmthP7L7xwn8z}#)) + #{e -ANAU$bmvAmthP7L7xwn8w}#) + #{w -ANAU$bmvAmthP7L7xwn8y}# + #{mod -ANAU$bmvAmthP7L7xwn80}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'letrec* - (lambda (#{e _hoQGWMnyQPAh3k2jhWILi}# - #{r _hoQGWMnyQPAh3k2jhWILj}# - #{w _hoQGWMnyQPAh3k2jhWILk}# - #{s _hoQGWMnyQPAh3k2jhWILl}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWILo}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}# + #{r -ANAU$bmvAmthP7L7xwoGC}# + #{w -ANAU$bmvAmthP7L7xwoGD}# + #{s -ANAU$bmvAmthP7L7xwoGE}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWILi}# + #{e -ANAU$bmvAmthP7L7xwoGB}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWILo}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWILs}# - #{val _hoQGWMnyQPAh3k2jhWILt}# - #{e1 _hoQGWMnyQPAh3k2jhWILu}# - #{e2 _hoQGWMnyQPAh3k2jhWILv}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}# + #{val -ANAU$bmvAmthP7L7xwoGM}# + #{e1 -ANAU$bmvAmthP7L7xwoGN}# + #{e2 -ANAU$bmvAmthP7L7xwoGO}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{id _hoQGWMnyQPAh3k2jhWILs}#)) - #{tmp _hoQGWMnyQPAh3k2jhWILo}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{id -ANAU$bmvAmthP7L7xwoGL}#)) + #{tmp -ANAU$bmvAmthP7L7xwoGH}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWIL@}# - #{val _hoQGWMnyQPAh3k2jhWIMA}# - #{e1 _hoQGWMnyQPAh3k2jhWIMB}# - #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) - (if (not (#{valid-bound-ids? _hoQGWMnyQPAh3k2jhWHTb}# - #{id _hoQGWMnyQPAh3k2jhWIL@}#)) + (lambda (#{id -ANAU$bmvAmthP7L7xwoGe}# + #{val -ANAU$bmvAmthP7L7xwoGf}# + #{e1 -ANAU$bmvAmthP7L7xwoGg}# + #{e2 -ANAU$bmvAmthP7L7xwoGh}#) + (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + #{id -ANAU$bmvAmthP7L7xwoGe}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{e _hoQGWMnyQPAh3k2jhWILi}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWINc}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{id _hoQGWMnyQPAh3k2jhWIL@}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWINd}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{id _hoQGWMnyQPAh3k2jhWIL@}#))) - (let ((#{w _hoQGWMnyQPAh3k2jhWINe}# - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{id _hoQGWMnyQPAh3k2jhWIL@}# - #{labels _hoQGWMnyQPAh3k2jhWINc}# - #{w _hoQGWMnyQPAh3k2jhWILk}#)) - (#{r _hoQGWMnyQPAh3k2jhWINf}# - (#{extend-var-env _hoQGWMnyQPAh3k2jhWHS8}# - #{labels _hoQGWMnyQPAh3k2jhWINc}# - #{new-vars _hoQGWMnyQPAh3k2jhWINd}# - #{r _hoQGWMnyQPAh3k2jhWILj}#))) - (#{build-letrec _hoQGWMnyQPAh3k2jhWHSx}# - #{s _hoQGWMnyQPAh3k2jhWILl}# + #{e -ANAU$bmvAmthP7L7xwoGB}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwoH7}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{id -ANAU$bmvAmthP7L7xwoGe}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwoH8}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{id -ANAU$bmvAmthP7L7xwoGe}#))) + (let ((#{w -ANAU$bmvAmthP7L7xwoH9}# + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{id -ANAU$bmvAmthP7L7xwoGe}# + #{labels -ANAU$bmvAmthP7L7xwoH7}# + #{w -ANAU$bmvAmthP7L7xwoGD}#)) + (#{r -ANAU$bmvAmthP7L7xwoH$}# + (#{extend-var-env -ANAU$bmvAmthP7L7xwnNb}# + #{labels -ANAU$bmvAmthP7L7xwoH7}# + #{new-vars -ANAU$bmvAmthP7L7xwoH8}# + #{r -ANAU$bmvAmthP7L7xwoGC}#))) + (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + #{s -ANAU$bmvAmthP7L7xwoGE}# #t - (map syntax->datum #{id _hoQGWMnyQPAh3k2jhWIL@}#) - #{new-vars _hoQGWMnyQPAh3k2jhWINd}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIOw}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWIOw}# - #{r _hoQGWMnyQPAh3k2jhWINf}# - #{w _hoQGWMnyQPAh3k2jhWINe}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#)) - #{val _hoQGWMnyQPAh3k2jhWIMA}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{e1 _hoQGWMnyQPAh3k2jhWIMB}# - #{e2 _hoQGWMnyQPAh3k2jhWIMC}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (map syntax->datum #{id -ANAU$bmvAmthP7L7xwoGe}#) + #{new-vars -ANAU$bmvAmthP7L7xwoH8}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwoJP}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwoJP}# + #{r -ANAU$bmvAmthP7L7xwoH$}# + #{w -ANAU$bmvAmthP7L7xwoH9}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#)) + #{val -ANAU$bmvAmthP7L7xwoGf}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{e1 -ANAU$bmvAmthP7L7xwoGg}# + #{e2 -ANAU$bmvAmthP7L7xwoGh}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{s _hoQGWMnyQPAh3k2jhWILl}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{s -ANAU$bmvAmthP7L7xwoGE}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWILi}# - #{s _hoQGWMnyQPAh3k2jhWILl}#)) - #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{w _hoQGWMnyQPAh3k2jhWINe}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#) - #{r _hoQGWMnyQPAh3k2jhWINf}# - #{w _hoQGWMnyQPAh3k2jhWINe}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWILo}#) + #{e -ANAU$bmvAmthP7L7xwoGB}# + #{s -ANAU$bmvAmthP7L7xwoGE}#)) + #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{w -ANAU$bmvAmthP7L7xwoH9}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#) + #{r -ANAU$bmvAmthP7L7xwoH$}# + #{w -ANAU$bmvAmthP7L7xwoH9}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwoGH}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{s _hoQGWMnyQPAh3k2jhWILl}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{s -ANAU$bmvAmthP7L7xwoGE}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWILi}# - #{s _hoQGWMnyQPAh3k2jhWILl}#)) - #{e _hoQGWMnyQPAh3k2jhWILi}#) - #{w _hoQGWMnyQPAh3k2jhWILk}# - #{mod _hoQGWMnyQPAh3k2jhWILm}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwoGB}# + #{s -ANAU$bmvAmthP7L7xwoGE}#)) + #{e -ANAU$bmvAmthP7L7xwoGB}#) + #{w -ANAU$bmvAmthP7L7xwoGD}# + #{mod -ANAU$bmvAmthP7L7xwoGF}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'set! - (lambda (#{e _hoQGWMnyQPAh3k2jhWIVa}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIVg}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoP@}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{e -ANAU$bmvAmthP7L7xwoP5}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWIVg}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwoP@}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWIVk}# - #{val _hoQGWMnyQPAh3k2jhWIVl}#) - (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIVk}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}# + #{val -ANAU$bmvAmthP7L7xwoQE}#) + (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#) #t - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIVk}#) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWIVk}#) + #{id -ANAU$bmvAmthP7L7xwoQD}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWIVk}# + #{id -ANAU$bmvAmthP7L7xwoQD}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWIVk}# 1)) + (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) + #{tmp -ANAU$bmvAmthP7L7xwoP@}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWIWA}# - #{val _hoQGWMnyQPAh3k2jhWIWB}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWIWC}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{id _hoQGWMnyQPAh3k2jhWIWA}# - #{w _hoQGWMnyQPAh3k2jhWIVc}#)) - (#{id-mod _hoQGWMnyQPAh3k2jhWIWD}# - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIWA}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwoQf}# + #{val -ANAU$bmvAmthP7L7xwoQg}#) + (let ((#{n -ANAU$bmvAmthP7L7xwoQh}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{id -ANAU$bmvAmthP7L7xwoQf}# + #{w -ANAU$bmvAmthP7L7xwoP7}#)) + (#{id-mod -ANAU$bmvAmthP7L7xwoQi}# + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQf}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWIWA}#) + #{id -ANAU$bmvAmthP7L7xwoQf}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWIWA}# + #{id -ANAU$bmvAmthP7L7xwoQf}# 0) 'syntax-object) #f) #f) - (vector-ref #{id _hoQGWMnyQPAh3k2jhWIWA}# 3) - #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWIWE}# - (let ((#{t _hoQGWMnyQPAh3k2jhWIWt}# - (assq #{n _hoQGWMnyQPAh3k2jhWIWC}# - #{r _hoQGWMnyQPAh3k2jhWIVb}#))) - (if #{t _hoQGWMnyQPAh3k2jhWIWt}# - (cdr #{t _hoQGWMnyQPAh3k2jhWIWt}#) - (if (symbol? #{n _hoQGWMnyQPAh3k2jhWIWC}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWIWy}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWIWC}# - #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#))) - (if #{t _hoQGWMnyQPAh3k2jhWIWy}# - #{t _hoQGWMnyQPAh3k2jhWIWy}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwoQf}# 3) + #{mod -ANAU$bmvAmthP7L7xwoP9}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwoQj}# + (let ((#{t -ANAU$bmvAmthP7L7xwoRM}# + (assq #{n -ANAU$bmvAmthP7L7xwoQh}# + #{r -ANAU$bmvAmthP7L7xwoP6}#))) + (if #{t -ANAU$bmvAmthP7L7xwoRM}# + (cdr #{t -ANAU$bmvAmthP7L7xwoRM}#) + (if (symbol? #{n -ANAU$bmvAmthP7L7xwoQh}#) + (let ((#{t -ANAU$bmvAmthP7L7xwoRR}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwoQh}# + #{id-mod -ANAU$bmvAmthP7L7xwoQi}#))) + (if #{t -ANAU$bmvAmthP7L7xwoRR}# + #{t -ANAU$bmvAmthP7L7xwoRR}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWIWF}# - (car #{b _hoQGWMnyQPAh3k2jhWIWE}#))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}# + (car #{b -ANAU$bmvAmthP7L7xwoQj}#))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'lexical) - (#{build-lexical-assignment _hoQGWMnyQPAh3k2jhWHSk}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIWA}#) - (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWIWB}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (#{build-lexical-assignment -ANAU$bmvAmthP7L7xwnND}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + (syntax->datum #{id -ANAU$bmvAmthP7L7xwoQf}#) + (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwoQg}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'global) - (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - #{n _hoQGWMnyQPAh3k2jhWIWC}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWIWB}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + #{n -ANAU$bmvAmthP7L7xwoQh}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwoQg}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + #{id-mod -ANAU$bmvAmthP7L7xwoQi}#) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'macro) - (let ((#{p _hoQGWMnyQPAh3k2jhWIbs}# - (cdr #{b _hoQGWMnyQPAh3k2jhWIWE}#))) + (let ((#{p -ANAU$bmvAmthP7L7xwoWL}# + (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#))) (if (procedure-property - #{p _hoQGWMnyQPAh3k2jhWIbs}# + #{p -ANAU$bmvAmthP7L7xwoWL}# 'variable-transformer) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - (#{expand-macro _hoQGWMnyQPAh3k2jhWHTo}# - #{p _hoQGWMnyQPAh3k2jhWIbs}# - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# + #{p -ANAU$bmvAmthP7L7xwoWL}# + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{s -ANAU$bmvAmthP7L7xwoP8}# #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - #{r _hoQGWMnyQPAh3k2jhWIVb}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + #{r -ANAU$bmvAmthP7L7xwoP6}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) + #{mod -ANAU$bmvAmthP7L7xwoP9}#) (syntax-violation 'set! "not a variable transformer" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{id _hoQGWMnyQPAh3k2jhWIWA}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{id-mod _hoQGWMnyQPAh3k2jhWIWD}#)))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWIWF}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{id -ANAU$bmvAmthP7L7xwoQf}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{id-mod -ANAU$bmvAmthP7L7xwoQi}#)))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{id _hoQGWMnyQPAh3k2jhWIWA}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{id -ANAU$bmvAmthP7L7xwoQf}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)) (syntax-violation 'set! "bad set!" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{s -ANAU$bmvAmthP7L7xwoP8}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{s _hoQGWMnyQPAh3k2jhWIVd}#)) - #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWIVg}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdL}# + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{s -ANAU$bmvAmthP7L7xwoP8}#)) + #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)))))))))) + #{tmp -ANAU$bmvAmthP7L7xwoP@}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIVa}# + #{e -ANAU$bmvAmthP7L7xwoP5}# '(_ (any . each-any) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIdL}# + (if #{tmp -ANAU$bmvAmthP7L7xwoXq}# (@apply - (lambda (#{head _hoQGWMnyQPAh3k2jhWIdP}# - #{tail _hoQGWMnyQPAh3k2jhWIdQ}# - #{val _hoQGWMnyQPAh3k2jhWIdR}#) + (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}# + #{tail -ANAU$bmvAmthP7L7xwoXv}# + #{val -ANAU$bmvAmthP7L7xwoXw}#) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{head _hoQGWMnyQPAh3k2jhWIdP}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{head -ANAU$bmvAmthP7L7xwoXu}# + #{r -ANAU$bmvAmthP7L7xwoP6}# '(()) #f #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}# + #{mod -ANAU$bmvAmthP7L7xwoP9}# #t)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWIdU}# - #{value _hoQGWMnyQPAh3k2jhWIdV}# - #{ee _hoQGWMnyQPAh3k2jhWIdW}# - #{ww _hoQGWMnyQPAh3k2jhWIdX}# - #{ss _hoQGWMnyQPAh3k2jhWIdY}# - #{modmod _hoQGWMnyQPAh3k2jhWIdZ}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWIdU}# + (lambda (#{type -ANAU$bmvAmthP7L7xwoXz}# + #{value -ANAU$bmvAmthP7L7xwoX0}# + #{ee -ANAU$bmvAmthP7L7xwoX1}# + #{ww -ANAU$bmvAmthP7L7xwoX2}# + #{ss -ANAU$bmvAmthP7L7xwoX3}# + #{modmod -ANAU$bmvAmthP7L7xwoX4}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwoXz}# 'module-ref) - (let ((#{val _hoQGWMnyQPAh3k2jhWIdd}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWIdR}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#))) + (let ((#{val -ANAU$bmvAmthP7L7xwoX8}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwoXw}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#))) (call-with-values (lambda () - (#{value _hoQGWMnyQPAh3k2jhWIdV}# - (cons #{head _hoQGWMnyQPAh3k2jhWIdP}# - #{tail _hoQGWMnyQPAh3k2jhWIdQ}#) - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}#)) - (lambda (#{e _hoQGWMnyQPAh3k2jhWIde}# - #{r _hoQGWMnyQPAh3k2jhWIdf}# - #{w _hoQGWMnyQPAh3k2jhWIdg}# - #{s* _hoQGWMnyQPAh3k2jhWIdh}# - #{mod _hoQGWMnyQPAh3k2jhWIdi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIdk}# - (list #{e _hoQGWMnyQPAh3k2jhWIde}#))) + (#{value -ANAU$bmvAmthP7L7xwoX0}# + (cons #{head -ANAU$bmvAmthP7L7xwoXu}# + #{tail -ANAU$bmvAmthP7L7xwoXv}#) + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}#)) + (lambda (#{e -ANAU$bmvAmthP7L7xwoX9}# + #{r -ANAU$bmvAmthP7L7xwoX$}# + #{w -ANAU$bmvAmthP7L7xwoX@}# + #{s* -ANAU$bmvAmthP7L7xwoYA}# + #{mod -ANAU$bmvAmthP7L7xwoYB}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoYD}# + (list #{e -ANAU$bmvAmthP7L7xwoX9}#))) (if (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWIdm}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwoYF}#) (if (symbol? - #{e _hoQGWMnyQPAh3k2jhWIdm}#) + #{e -ANAU$bmvAmthP7L7xwoYF}#) #t (if (if (vector? - #{e _hoQGWMnyQPAh3k2jhWIdm}#) + #{e -ANAU$bmvAmthP7L7xwoYF}#) (if (= (vector-length - #{e _hoQGWMnyQPAh3k2jhWIdm}#) + #{e -ANAU$bmvAmthP7L7xwoYF}#) 4) (eq? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWIdm}# + #{e -ANAU$bmvAmthP7L7xwoYF}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWIdm}# + #{e -ANAU$bmvAmthP7L7xwoYF}# 1)) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) + #{tmp -ANAU$bmvAmthP7L7xwoYD}#) (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWIeE}#) - (#{build-global-assignment _hoQGWMnyQPAh3k2jhWHSn}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#) + (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# + #{s -ANAU$bmvAmthP7L7xwoP8}# (syntax->datum - #{e _hoQGWMnyQPAh3k2jhWIeE}#) - #{val _hoQGWMnyQPAh3k2jhWIdd}# - #{mod _hoQGWMnyQPAh3k2jhWIdi}#)) - #{tmp _hoQGWMnyQPAh3k2jhWIdk}#) + #{e -ANAU$bmvAmthP7L7xwoYj}#) + #{val -ANAU$bmvAmthP7L7xwoX8}# + #{mod -ANAU$bmvAmthP7L7xwoYB}#)) + #{tmp -ANAU$bmvAmthP7L7xwoYD}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIde}#)))))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - #{s _hoQGWMnyQPAh3k2jhWIVd}# - (let ((#{e _hoQGWMnyQPAh3k2jhWIhl}# + #{e -ANAU$bmvAmthP7L7xwoX9}#)))))) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + #{s -ANAU$bmvAmthP7L7xwoP8}# + (let ((#{e -ANAU$bmvAmthP7L7xwocE}# (list '#(syntax-object setter ((top) @@ -10505,16 +10483,16 @@ (top) (top) (top)) - #("2sa" - "2sb" - "2sc" - "2sd" - "2se" - "2sf")) + #("142" + "143" + "144" + "145" + "146" + "147")) #(ribcage #(head tail val) #((top) (top) (top)) - #("2s7" "2s8" "2s9")) + #("13z" "140" "141")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10523,11 +10501,11 @@ (top) (top) (top)) - #("2rt" - "2ru" - "2rv" - "2rw" - "2rx")) + #("13l" + "13m" + "13n" + "13o" + "13p")) #(ribcage (lambda-var-list gen-var @@ -10809,268 +10787,268 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{head _hoQGWMnyQPAh3k2jhWIdP}#))) + #{head -ANAU$bmvAmthP7L7xwoXu}#))) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWIhl}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWIhl}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwocE}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwocE}#) #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}# + #{mod -ANAU$bmvAmthP7L7xwoP9}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWIhs}# - #{value _hoQGWMnyQPAh3k2jhWIht}# - #{e _hoQGWMnyQPAh3k2jhWIhu}# - #{w _hoQGWMnyQPAh3k2jhWIhv}# - #{s _hoQGWMnyQPAh3k2jhWIhw}# - #{mod _hoQGWMnyQPAh3k2jhWIhx}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWIhs}# - #{value _hoQGWMnyQPAh3k2jhWIht}# - #{e _hoQGWMnyQPAh3k2jhWIhu}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIhv}# - #{s _hoQGWMnyQPAh3k2jhWIhw}# - #{mod _hoQGWMnyQPAh3k2jhWIhx}#)))) - (map (lambda (#{e _hoQGWMnyQPAh3k2jhWIh1}#) + (lambda (#{type -ANAU$bmvAmthP7L7xwocL}# + #{value -ANAU$bmvAmthP7L7xwocM}# + #{e -ANAU$bmvAmthP7L7xwocN}# + #{w -ANAU$bmvAmthP7L7xwocO}# + #{s -ANAU$bmvAmthP7L7xwocP}# + #{mod -ANAU$bmvAmthP7L7xwocQ}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwocL}# + #{value -ANAU$bmvAmthP7L7xwocM}# + #{e -ANAU$bmvAmthP7L7xwocN}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwocO}# + #{s -ANAU$bmvAmthP7L7xwocP}# + #{mod -ANAU$bmvAmthP7L7xwocQ}#)))) + (map (lambda (#{e -ANAU$bmvAmthP7L7xwocU}#) (call-with-values (lambda () - (#{syntax-type _hoQGWMnyQPAh3k2jhWHTk}# - #{e _hoQGWMnyQPAh3k2jhWIh1}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIVc}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{e _hoQGWMnyQPAh3k2jhWIh1}#) + (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# + #{e -ANAU$bmvAmthP7L7xwocU}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwoP7}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{e -ANAU$bmvAmthP7L7xwocU}#) #f - #{mod _hoQGWMnyQPAh3k2jhWIVe}# + #{mod -ANAU$bmvAmthP7L7xwoP9}# #f)) - (lambda (#{type _hoQGWMnyQPAh3k2jhWIiE}# - #{value _hoQGWMnyQPAh3k2jhWIiF}# - #{e _hoQGWMnyQPAh3k2jhWIiG}# - #{w _hoQGWMnyQPAh3k2jhWIiH}# - #{s _hoQGWMnyQPAh3k2jhWIiI}# - #{mod _hoQGWMnyQPAh3k2jhWIiJ}#) - (#{expand-expr _hoQGWMnyQPAh3k2jhWHTm}# - #{type _hoQGWMnyQPAh3k2jhWIiE}# - #{value _hoQGWMnyQPAh3k2jhWIiF}# - #{e _hoQGWMnyQPAh3k2jhWIiG}# - #{r _hoQGWMnyQPAh3k2jhWIVb}# - #{w _hoQGWMnyQPAh3k2jhWIiH}# - #{s _hoQGWMnyQPAh3k2jhWIiI}# - #{mod _hoQGWMnyQPAh3k2jhWIiJ}#)))) + (lambda (#{type -ANAU$bmvAmthP7L7xwocj}# + #{value -ANAU$bmvAmthP7L7xwock}# + #{e -ANAU$bmvAmthP7L7xwocl}# + #{w -ANAU$bmvAmthP7L7xwocm}# + #{s -ANAU$bmvAmthP7L7xwocn}# + #{mod -ANAU$bmvAmthP7L7xwoco}#) + (#{expand-expr -ANAU$bmvAmthP7L7xwnOF}# + #{type -ANAU$bmvAmthP7L7xwocj}# + #{value -ANAU$bmvAmthP7L7xwock}# + #{e -ANAU$bmvAmthP7L7xwocl}# + #{r -ANAU$bmvAmthP7L7xwoP6}# + #{w -ANAU$bmvAmthP7L7xwocm}# + #{s -ANAU$bmvAmthP7L7xwocn}# + #{mod -ANAU$bmvAmthP7L7xwoco}#)))) (append - #{tail _hoQGWMnyQPAh3k2jhWIdQ}# - (list #{val _hoQGWMnyQPAh3k2jhWIdR}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWIdL}#) + #{tail -ANAU$bmvAmthP7L7xwoXv}# + (list #{val -ANAU$bmvAmthP7L7xwoXw}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwoXq}#) (syntax-violation 'set! "bad set!" - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{s _hoQGWMnyQPAh3k2jhWIVd}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{s -ANAU$bmvAmthP7L7xwoP8}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWIVa}# - #{s _hoQGWMnyQPAh3k2jhWIVd}#)) - #{e _hoQGWMnyQPAh3k2jhWIVa}#) - #{w _hoQGWMnyQPAh3k2jhWIVc}# - #{mod _hoQGWMnyQPAh3k2jhWIVe}#)))))))) + #{e -ANAU$bmvAmthP7L7xwoP5}# + #{s -ANAU$bmvAmthP7L7xwoP8}#)) + #{e -ANAU$bmvAmthP7L7xwoP5}#) + #{w -ANAU$bmvAmthP7L7xwoP7}# + #{mod -ANAU$bmvAmthP7L7xwoP9}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e _hoQGWMnyQPAh3k2jhWIi0}# - #{r _hoQGWMnyQPAh3k2jhWIi1}# - #{w _hoQGWMnyQPAh3k2jhWIi2}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIi4}# + (lambda (#{e -ANAU$bmvAmthP7L7xwodT}# + #{r -ANAU$bmvAmthP7L7xwodU}# + #{w -ANAU$bmvAmthP7L7xwodV}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIi0}# + #{e -ANAU$bmvAmthP7L7xwodT}# '(_ each-any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWIi4}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}# (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIi7}# - #{id _hoQGWMnyQPAh3k2jhWIi8}#) + (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}# + #{id -ANAU$bmvAmthP7L7xwodb}#) (if (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{mod _hoQGWMnyQPAh3k2jhWIi7}#) - (if (symbol? #{id _hoQGWMnyQPAh3k2jhWIi8}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{mod -ANAU$bmvAmthP7L7xwoda}#) + (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#) #t - (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWIi8}#) + (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#) (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWIi8}#) + #{id -ANAU$bmvAmthP7L7xwodb}#) 4) (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWIi8}# + #{id -ANAU$bmvAmthP7L7xwodb}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWIi8}# 1)) + (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1)) #f)) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) + #{tmp -ANAU$bmvAmthP7L7xwodX}#) #f) (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIjk}# - #{id _hoQGWMnyQPAh3k2jhWIjl}#) + (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}# + #{id -ANAU$bmvAmthP7L7xwoeE}#) (values - (syntax->datum #{id _hoQGWMnyQPAh3k2jhWIjl}#) - #{r _hoQGWMnyQPAh3k2jhWIi1}# - #{w _hoQGWMnyQPAh3k2jhWIi2}# + (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#) + #{r -ANAU$bmvAmthP7L7xwodU}# + #{w -ANAU$bmvAmthP7L7xwodV}# #f (syntax->datum (cons '#(syntax-object @@ -11079,12 +11057,12 @@ #(ribcage #(mod id) #((top) (top)) - #("2sv" "2sw")) + #("14n" "14o")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("2sq" "2sr" "2ss")) + #("14i" "14j" "14k")) #(ribcage (lambda-var-list gen-var @@ -11366,235 +11344,235 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{mod _hoQGWMnyQPAh3k2jhWIjk}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWIi4}#) + #{mod -ANAU$bmvAmthP7L7xwoeD}#)))) + #{tmp -ANAU$bmvAmthP7L7xwodX}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIi0}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwodT}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'module-ref '@@ - (lambda (#{e _hoQGWMnyQPAh3k2jhWIlB}# - #{r _hoQGWMnyQPAh3k2jhWIlC}# - #{w _hoQGWMnyQPAh3k2jhWIlD}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwofg}# + #{r -ANAU$bmvAmthP7L7xwofh}# + #{w -ANAU$bmvAmthP7L7xwofi}#) (letrec* - ((#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWIln}# - #{mod _hoQGWMnyQPAh3k2jhWIlo}#) - (if (pair? #{x _hoQGWMnyQPAh3k2jhWIln}#) - (cons (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (car #{x _hoQGWMnyQPAh3k2jhWIln}#) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#) - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (cdr #{x _hoQGWMnyQPAh3k2jhWIln}#) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#) + ((#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (lambda (#{x -ANAU$bmvAmthP7L7xwogG}# + #{mod -ANAU$bmvAmthP7L7xwogH}#) + (if (pair? #{x -ANAU$bmvAmthP7L7xwogG}#) + (cons (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (car #{x -ANAU$bmvAmthP7L7xwogG}#) + #{mod -ANAU$bmvAmthP7L7xwogH}#) + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (cdr #{x -ANAU$bmvAmthP7L7xwogG}#) + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 0) 'syntax-object) #f) #f) - (let ((#{expression _hoQGWMnyQPAh3k2jhWIl2}# - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 1) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (#{wrap _hoQGWMnyQPAh3k2jhWIl3}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWIln}# 2))) + (let ((#{expression -ANAU$bmvAmthP7L7xwogV}# + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 1) + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (#{wrap -ANAU$bmvAmthP7L7xwogW}# + (vector-ref #{x -ANAU$bmvAmthP7L7xwogG}# 2))) (vector 'syntax-object - #{expression _hoQGWMnyQPAh3k2jhWIl2}# - #{wrap _hoQGWMnyQPAh3k2jhWIl3}# - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (if (vector? #{x _hoQGWMnyQPAh3k2jhWIln}#) - (let ((#{n _hoQGWMnyQPAh3k2jhWIl@}# - (vector-length #{x _hoQGWMnyQPAh3k2jhWIln}#))) - (let ((#{v _hoQGWMnyQPAh3k2jhWImA}# - (make-vector #{n _hoQGWMnyQPAh3k2jhWIl@}#))) + #{expression -ANAU$bmvAmthP7L7xwogV}# + #{wrap -ANAU$bmvAmthP7L7xwogW}# + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (if (vector? #{x -ANAU$bmvAmthP7L7xwogG}#) + (let ((#{n -ANAU$bmvAmthP7L7xwoge}# + (vector-length #{x -ANAU$bmvAmthP7L7xwogG}#))) + (let ((#{v -ANAU$bmvAmthP7L7xwogf}# + (make-vector #{n -ANAU$bmvAmthP7L7xwoge}#))) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWImB}# - (lambda (#{i _hoQGWMnyQPAh3k2jhWImw}#) - (if (= #{i _hoQGWMnyQPAh3k2jhWImw}# - #{n _hoQGWMnyQPAh3k2jhWIl@}#) - #{v _hoQGWMnyQPAh3k2jhWImA}# + ((#{loop -ANAU$bmvAmthP7L7xwogg}# + (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#) + (if (= #{i -ANAU$bmvAmthP7L7xwohP}# + #{n -ANAU$bmvAmthP7L7xwoge}#) + #{v -ANAU$bmvAmthP7L7xwogf}# (begin (vector-set! - #{v _hoQGWMnyQPAh3k2jhWImA}# - #{i _hoQGWMnyQPAh3k2jhWImw}# - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# + #{v -ANAU$bmvAmthP7L7xwogf}# + #{i -ANAU$bmvAmthP7L7xwohP}# + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# (vector-ref - #{x _hoQGWMnyQPAh3k2jhWIln}# - #{i _hoQGWMnyQPAh3k2jhWImw}#) - #{mod _hoQGWMnyQPAh3k2jhWIlo}#)) - (#{loop _hoQGWMnyQPAh3k2jhWImB}# - (#{1+}# #{i _hoQGWMnyQPAh3k2jhWImw}#))))))) - (#{loop _hoQGWMnyQPAh3k2jhWImB}# 0)))) - #{x _hoQGWMnyQPAh3k2jhWIln}#)))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIlG}# + #{x -ANAU$bmvAmthP7L7xwogG}# + #{i -ANAU$bmvAmthP7L7xwohP}#) + #{mod -ANAU$bmvAmthP7L7xwogH}#)) + (#{loop -ANAU$bmvAmthP7L7xwogg}# + (#{1+}# #{i -ANAU$bmvAmthP7L7xwohP}#))))))) + (#{loop -ANAU$bmvAmthP7L7xwogg}# 0)))) + #{x -ANAU$bmvAmthP7L7xwogG}#)))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwofl}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIlB}# + #{e -ANAU$bmvAmthP7L7xwofg}# '(_ each-any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWIlG}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}# (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlK}# - #{exp _hoQGWMnyQPAh3k2jhWIlL}#) + (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}# + #{exp -ANAU$bmvAmthP7L7xwofq}#) (and-map - #{id? _hoQGWMnyQPAh3k2jhWHTB}# - #{mod _hoQGWMnyQPAh3k2jhWIlK}#)) - #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) + #{id? -ANAU$bmvAmthP7L7xwnNg}# + #{mod -ANAU$bmvAmthP7L7xwofp}#)) + #{tmp -ANAU$bmvAmthP7L7xwofl}#) #f) (@apply - (lambda (#{mod _hoQGWMnyQPAh3k2jhWIlb}# - #{exp _hoQGWMnyQPAh3k2jhWIlc}#) - (let ((#{mod _hoQGWMnyQPAh3k2jhWIld}# + (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}# + #{exp -ANAU$bmvAmthP7L7xwof7}#) + (let ((#{mod -ANAU$bmvAmthP7L7xwof8}# (syntax->datum (cons '#(syntax-object private @@ -11602,12 +11580,12 @@ #(ribcage #(mod exp) #((top) (top)) - #("2t9" "2ta")) - #(ribcage (remodulate) ((top)) ("2t0")) + #("151" "152")) + #(ribcage (remodulate) ((top)) ("14s")) #(ribcage #(e r w) #((top) (top) (top)) - #("2sx" "2sy" "2sz")) + #("14p" "14q" "14r")) #(ribcage (lambda-var-list gen-var @@ -11889,287 +11867,287 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{mod _hoQGWMnyQPAh3k2jhWIlb}#)))) + #{mod -ANAU$bmvAmthP7L7xwof6}#)))) (values - (#{remodulate _hoQGWMnyQPAh3k2jhWIlE}# - #{exp _hoQGWMnyQPAh3k2jhWIlc}# - #{mod _hoQGWMnyQPAh3k2jhWIld}#) - #{r _hoQGWMnyQPAh3k2jhWIlC}# - #{w _hoQGWMnyQPAh3k2jhWIlD}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{exp _hoQGWMnyQPAh3k2jhWIlc}#) - #{mod _hoQGWMnyQPAh3k2jhWIld}#))) - #{tmp _hoQGWMnyQPAh3k2jhWIlG}#) + (#{remodulate -ANAU$bmvAmthP7L7xwofj}# + #{exp -ANAU$bmvAmthP7L7xwof7}# + #{mod -ANAU$bmvAmthP7L7xwof8}#) + #{r -ANAU$bmvAmthP7L7xwofh}# + #{w -ANAU$bmvAmthP7L7xwofi}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{exp -ANAU$bmvAmthP7L7xwof7}#) + #{mod -ANAU$bmvAmthP7L7xwof8}#))) + #{tmp -ANAU$bmvAmthP7L7xwofl}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIlB}#)))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwofg}#)))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'if - (lambda (#{e _hoQGWMnyQPAh3k2jhWIoV}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{s _hoQGWMnyQPAh3k2jhWIoY}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIob}# + (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{s -ANAU$bmvAmthP7L7xwoi3}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIoV}# + #{e -ANAU$bmvAmthP7L7xwoi0}# '(_ any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIob}# + (if #{tmp -ANAU$bmvAmthP7L7xwoi6}# (@apply - (lambda (#{test _hoQGWMnyQPAh3k2jhWIof}# - #{then _hoQGWMnyQPAh3k2jhWIog}#) - (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# - #{s _hoQGWMnyQPAh3k2jhWIoY}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{test _hoQGWMnyQPAh3k2jhWIof}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{then _hoQGWMnyQPAh3k2jhWIog}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) + (lambda (#{test -ANAU$bmvAmthP7L7xwoi$}# + #{then -ANAU$bmvAmthP7L7xwoi@}#) + (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}# + #{s -ANAU$bmvAmthP7L7xwoi3}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{test -ANAU$bmvAmthP7L7xwoi$}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{then -ANAU$bmvAmthP7L7xwoi@}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp _hoQGWMnyQPAh3k2jhWIob}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIsB}# + #{tmp -ANAU$bmvAmthP7L7xwoi6}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIoV}# + #{e -ANAU$bmvAmthP7L7xwoi0}# '(_ any any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIsB}# + (if #{tmp -ANAU$bmvAmthP7L7xwomg}# (@apply - (lambda (#{test _hoQGWMnyQPAh3k2jhWIsF}# - #{then _hoQGWMnyQPAh3k2jhWIsG}# - #{else _hoQGWMnyQPAh3k2jhWIsH}#) - (#{build-conditional _hoQGWMnyQPAh3k2jhWHSh}# - #{s _hoQGWMnyQPAh3k2jhWIoY}# - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{test _hoQGWMnyQPAh3k2jhWIsF}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{then _hoQGWMnyQPAh3k2jhWIsG}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{else _hoQGWMnyQPAh3k2jhWIsH}# - #{r _hoQGWMnyQPAh3k2jhWIoW}# - #{w _hoQGWMnyQPAh3k2jhWIoX}# - #{mod _hoQGWMnyQPAh3k2jhWIoZ}#))) - #{tmp _hoQGWMnyQPAh3k2jhWIsB}#) + (lambda (#{test -ANAU$bmvAmthP7L7xwomk}# + #{then -ANAU$bmvAmthP7L7xwoml}# + #{else -ANAU$bmvAmthP7L7xwomm}#) + (#{build-conditional -ANAU$bmvAmthP7L7xwnNA}# + #{s -ANAU$bmvAmthP7L7xwoi3}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{test -ANAU$bmvAmthP7L7xwomk}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{then -ANAU$bmvAmthP7L7xwoml}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{else -ANAU$bmvAmthP7L7xwomm}# + #{r -ANAU$bmvAmthP7L7xwoi1}# + #{w -ANAU$bmvAmthP7L7xwoi2}# + #{mod -ANAU$bmvAmthP7L7xwoi4}#))) + #{tmp -ANAU$bmvAmthP7L7xwomg}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIoV}#))))))) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + #{e -ANAU$bmvAmthP7L7xwoi0}#))))))) + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'with-fluids - (lambda (#{e _hoQGWMnyQPAh3k2jhWIyW}# - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{s _hoQGWMnyQPAh3k2jhWIyZ}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWIyc}# + (lambda (#{e -ANAU$bmvAmthP7L7xwos1}# + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{s -ANAU$bmvAmthP7L7xwos4}# + #{mod -ANAU$bmvAmthP7L7xwos5}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWIyW}# + #{e -ANAU$bmvAmthP7L7xwos1}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWIyc}# + (if #{tmp -ANAU$bmvAmthP7L7xwos7}# (@apply - (lambda (#{fluid _hoQGWMnyQPAh3k2jhWIyg}# - #{val _hoQGWMnyQPAh3k2jhWIyh}# - #{b _hoQGWMnyQPAh3k2jhWIyi}# - #{b* _hoQGWMnyQPAh3k2jhWIyj}#) - (#{build-dynlet _hoQGWMnyQPAh3k2jhWHSi}# - #{s _hoQGWMnyQPAh3k2jhWIyZ}# - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWIz0}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWIz0}# - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#)) - #{fluid _hoQGWMnyQPAh3k2jhWIyg}#) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWI06}#) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{x _hoQGWMnyQPAh3k2jhWI06}# - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#)) - #{val _hoQGWMnyQPAh3k2jhWIyh}#) - (#{expand-body _hoQGWMnyQPAh3k2jhWHTp}# - (cons #{b _hoQGWMnyQPAh3k2jhWIyi}# - #{b* _hoQGWMnyQPAh3k2jhWIyj}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (lambda (#{fluid -ANAU$bmvAmthP7L7xwos@}# + #{val -ANAU$bmvAmthP7L7xwotA}# + #{b -ANAU$bmvAmthP7L7xwotB}# + #{b* -ANAU$bmvAmthP7L7xwotC}#) + (#{build-dynlet -ANAU$bmvAmthP7L7xwnNB}# + #{s -ANAU$bmvAmthP7L7xwos4}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwouT}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwouT}# + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#)) + #{fluid -ANAU$bmvAmthP7L7xwos@}#) + (map (lambda (#{x -ANAU$bmvAmthP7L7xwovZ}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{x -ANAU$bmvAmthP7L7xwovZ}# + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#)) + #{val -ANAU$bmvAmthP7L7xwotA}#) + (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# + (cons #{b -ANAU$bmvAmthP7L7xwotB}# + #{b* -ANAU$bmvAmthP7L7xwotC}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWIyW}#) - #{s _hoQGWMnyQPAh3k2jhWIyZ}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#) + #{s -ANAU$bmvAmthP7L7xwos4}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWIyW}# - #{s _hoQGWMnyQPAh3k2jhWIyZ}#)) - #{e _hoQGWMnyQPAh3k2jhWIyW}#) - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#) - #{r _hoQGWMnyQPAh3k2jhWIyX}# - #{w _hoQGWMnyQPAh3k2jhWIyY}# - #{mod _hoQGWMnyQPAh3k2jhWIya}#))) - #{tmp _hoQGWMnyQPAh3k2jhWIyc}#) + #{e -ANAU$bmvAmthP7L7xwos1}# + #{s -ANAU$bmvAmthP7L7xwos4}#)) + #{e -ANAU$bmvAmthP7L7xwos1}#) + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#) + #{r -ANAU$bmvAmthP7L7xwos2}# + #{w -ANAU$bmvAmthP7L7xwos3}# + #{mod -ANAU$bmvAmthP7L7xwos5}#))) + #{tmp -ANAU$bmvAmthP7L7xwos7}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWIyW}#))))) + #{e -ANAU$bmvAmthP7L7xwos1}#))))) (module-define! (current-module) 'begin @@ -12199,100 +12177,100 @@ 'eval-when 'eval-when '())) - (#{global-extend _hoQGWMnyQPAh3k2jhWHS@}# + (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# 'core 'syntax-case (letrec* - ((#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# - (lambda (#{pattern _hoQGWMnyQPAh3k2jhWJTl}# - #{keys _hoQGWMnyQPAh3k2jhWJTm}#) + ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}# + (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}# + #{keys -ANAU$bmvAmthP7L7xwpOF}#) (letrec* - ((#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# - (lambda (#{p* _hoQGWMnyQPAh3k2jhWJdX}# - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) - (if (not (pair? #{p* _hoQGWMnyQPAh3k2jhWJdX}#)) - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{p* _hoQGWMnyQPAh3k2jhWJdX}# - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdZ}#) + ((#{cvt* -ANAU$bmvAmthP7L7xwpOG}# + (lambda (#{p* -ANAU$bmvAmthP7L7xwpX2}# + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX4}#) + (if (not (pair? #{p* -ANAU$bmvAmthP7L7xwpX2}#)) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{p* -ANAU$bmvAmthP7L7xwpX2}# + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX4}#) (call-with-values (lambda () - (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# - (cdr #{p* _hoQGWMnyQPAh3k2jhWJdX}#) - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdZ}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWJdc}# - #{ids _hoQGWMnyQPAh3k2jhWJdd}#) + (#{cvt* -ANAU$bmvAmthP7L7xwpOG}# + (cdr #{p* -ANAU$bmvAmthP7L7xwpX2}#) + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX4}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwpX7}# + #{ids -ANAU$bmvAmthP7L7xwpX8}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - (car #{p* _hoQGWMnyQPAh3k2jhWJdX}#) - #{n _hoQGWMnyQPAh3k2jhWJdY}# - #{ids _hoQGWMnyQPAh3k2jhWJdd}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWJdg}# - #{ids _hoQGWMnyQPAh3k2jhWJdh}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + (car #{p* -ANAU$bmvAmthP7L7xwpX2}#) + #{n -ANAU$bmvAmthP7L7xwpX3}# + #{ids -ANAU$bmvAmthP7L7xwpX8}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwpX@}# + #{ids -ANAU$bmvAmthP7L7xwpYA}#) (values - (cons #{x _hoQGWMnyQPAh3k2jhWJdg}# - #{y _hoQGWMnyQPAh3k2jhWJdc}#) - #{ids _hoQGWMnyQPAh3k2jhWJdh}#)))))))) - (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWJdi}#) + (cons #{x -ANAU$bmvAmthP7L7xwpX@}# + #{y -ANAU$bmvAmthP7L7xwpX7}#) + #{ids -ANAU$bmvAmthP7L7xwpYA}#)))))))) + (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}# + (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#) (letrec* - ((#{loop _hoQGWMnyQPAh3k2jhWJdj}# - (lambda (#{r _hoQGWMnyQPAh3k2jhWJez}# - #{x _hoQGWMnyQPAh3k2jhWJe0}#) - (if (not (pair? #{x _hoQGWMnyQPAh3k2jhWJe0}#)) + ((#{loop -ANAU$bmvAmthP7L7xwpYC}# + (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}# + #{x -ANAU$bmvAmthP7L7xwpZT}#) + (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#)) (values - #{r _hoQGWMnyQPAh3k2jhWJez}# - #{x _hoQGWMnyQPAh3k2jhWJe0}#) - (#{loop _hoQGWMnyQPAh3k2jhWJdj}# - (cons (car #{x _hoQGWMnyQPAh3k2jhWJe0}#) - #{r _hoQGWMnyQPAh3k2jhWJez}#) - (cdr #{x _hoQGWMnyQPAh3k2jhWJe0}#)))))) - (#{loop _hoQGWMnyQPAh3k2jhWJdj}# + #{r -ANAU$bmvAmthP7L7xwpZS}# + #{x -ANAU$bmvAmthP7L7xwpZT}#) + (#{loop -ANAU$bmvAmthP7L7xwpYC}# + (cons (car #{x -ANAU$bmvAmthP7L7xwpZT}#) + #{r -ANAU$bmvAmthP7L7xwpZS}#) + (cdr #{x -ANAU$bmvAmthP7L7xwpZT}#)))))) + (#{loop -ANAU$bmvAmthP7L7xwpYC}# '() - #{x _hoQGWMnyQPAh3k2jhWJdi}#)))) - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWJTs}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#) - (if (if (symbol? #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{x -ANAU$bmvAmthP7L7xwpYB}#)))) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + (lambda (#{p -ANAU$bmvAmthP7L7xwpOL}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#) + (if (if (symbol? #{p -ANAU$bmvAmthP7L7xwpOL}#) #t - (if (if (vector? #{p _hoQGWMnyQPAh3k2jhWJTs}#) + (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#) (if (= (vector-length - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) 4) (eq? (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJTs}# 1)) + (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1)) #f)) - (if (#{bound-id-member? _hoQGWMnyQPAh3k2jhWHTd}# - #{p _hoQGWMnyQPAh3k2jhWJTs}# - #{keys _hoQGWMnyQPAh3k2jhWJTm}#) + (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# + #{p -ANAU$bmvAmthP7L7xwpOL}# + #{keys -ANAU$bmvAmthP7L7xwpOF}#) (values - (vector 'free-id #{p _hoQGWMnyQPAh3k2jhWJTs}#) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#) + (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#) + #{ids -ANAU$bmvAmthP7L7xwpON}#) (if (if (eq? (if (if (vector? - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) (if (= (vector-length - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) 4) (eq? (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# 0) 'syntax-object) #f) #f) (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# 1) - #{p _hoQGWMnyQPAh3k2jhWJTs}#) + #{p -ANAU$bmvAmthP7L7xwpOL}#) (if (if (= (vector-length '#(syntax-object _ @@ -12301,15 +12279,15 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("2uh" "2ui" "2uj")) + #("169" "16a" "16b")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("2u5" "2u4" "2u3")) + ("15x" "15w" "15v")) #(ribcage #(pattern keys) #((top) (top)) - #("2u1" "2u2")) + #("15t" "15u")) #(ribcage (gen-syntax-case gen-clause @@ -12319,10 +12297,10 @@ (top) (top) (top)) - ("2u0" - "2tz" - "2ty" - "2tx")) + ("15s" + "15r" + "15q" + "15p")) #(ribcage (lambda-var-list gen-var @@ -12604,152 +12582,152 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -12762,22 +12740,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("2uh" "2ui" "2uj")) + #("169" "16a" "16b")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("2u5" "2u4" "2u3")) + ("15x" "15w" "15v")) #(ribcage #(pattern keys) #((top) (top)) - #("2u1" "2u2")) + #("15t" "15u")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -13059,157 +13037,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{p _hoQGWMnyQPAh3k2jhWJTs}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object _ ((top) @@ -13217,22 +13195,22 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("2uh" "2ui" "2uj")) + #("169" "16a" "16b")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("2u5" "2u4" "2u3")) + ("15x" "15w" "15v")) #(ribcage #(pattern keys) #((top) (top)) - #("2u1" "2u2")) + #("15t" "15u")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -13514,200 +13492,200 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) - (values '_ #{ids _hoQGWMnyQPAh3k2jhWJTu}#) + (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#) (values 'any - (cons (cons #{p _hoQGWMnyQPAh3k2jhWJTs}# - #{n _hoQGWMnyQPAh3k2jhWJTt}#) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJYu}# + (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}# + #{n -ANAU$bmvAmthP7L7xwpOM}#) + #{ids -ANAU$bmvAmthP7L7xwpON}#)))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWJYu}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJYy}# - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}# + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 1)) #f) (if (eq? (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# 1) - #{dots _hoQGWMnyQPAh3k2jhWJYz}#) + #{dots -ANAU$bmvAmthP7L7xwpTS}#) (if (if (= (vector-length '#(syntax-object ... @@ -13723,7 +13701,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -14005,146 +13983,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -14152,9 +14130,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -14169,7 +14147,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -14451,157 +14429,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{dots _hoQGWMnyQPAh3k2jhWJYz}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{dots -ANAU$bmvAmthP7L7xwpTS}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -14610,7 +14588,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -14892,218 +14870,218 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) + #{tmp -ANAU$bmvAmthP7L7xwpTN}#) #f) (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJaX}# - #{dots _hoQGWMnyQPAh3k2jhWJaY}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}# + #{dots -ANAU$bmvAmthP7L7xwpU3}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJaX}# - (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{p _hoQGWMnyQPAh3k2jhWJaZ}# - #{ids _hoQGWMnyQPAh3k2jhWJaa}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpU2}# + (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#) + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}# + #{ids -ANAU$bmvAmthP7L7xwpU5}#) (values - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJaZ}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}# 'any) 'each-any (vector 'each - #{p _hoQGWMnyQPAh3k2jhWJaZ}#)) - #{ids _hoQGWMnyQPAh3k2jhWJaa}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWJYu}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJab}# + #{p -ANAU$bmvAmthP7L7xwpU4}#)) + #{ids -ANAU$bmvAmthP7L7xwpU5}#)))) + #{tmp -ANAU$bmvAmthP7L7xwpTN}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(any any . any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWJab}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJaf}# - #{dots _hoQGWMnyQPAh3k2jhWJag}# - #{ys _hoQGWMnyQPAh3k2jhWJah}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# + #{ys -ANAU$bmvAmthP7L7xwpVA}#) (if (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 1)) #f) (if (eq? (if (if (vector? - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) (if (= (vector-length - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) 4) (eq? (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots _hoQGWMnyQPAh3k2jhWJag}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# 1) - #{dots _hoQGWMnyQPAh3k2jhWJag}#) + #{dots -ANAU$bmvAmthP7L7xwpU@}#) (if (if (= (vector-length '#(syntax-object ... @@ -15119,7 +15097,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -15401,146 +15379,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -15548,9 +15526,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -15565,7 +15543,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -15847,159 +15825,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{dots _hoQGWMnyQPAh3k2jhWJag}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{dots -ANAU$bmvAmthP7L7xwpU@}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -16008,7 +15984,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -16290,281 +16266,281 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWJab}#) + #{tmp -ANAU$bmvAmthP7L7xwpU6}#) #f) (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJcF}# - #{dots _hoQGWMnyQPAh3k2jhWJcG}# - #{ys _hoQGWMnyQPAh3k2jhWJcH}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}# + #{dots -ANAU$bmvAmthP7L7xwpWl}# + #{ys -ANAU$bmvAmthP7L7xwpWm}#) (call-with-values (lambda () - (#{cvt* _hoQGWMnyQPAh3k2jhWJTn}# - #{ys _hoQGWMnyQPAh3k2jhWJcH}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcK}# - #{ids _hoQGWMnyQPAh3k2jhWJcL}#) + (#{cvt* -ANAU$bmvAmthP7L7xwpOG}# + #{ys -ANAU$bmvAmthP7L7xwpWm}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}# + #{ids -ANAU$bmvAmthP7L7xwpWq}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJcF}# - (#{1+}# #{n _hoQGWMnyQPAh3k2jhWJTt}#) - #{ids _hoQGWMnyQPAh3k2jhWJcL}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWJcM}# - #{ids _hoQGWMnyQPAh3k2jhWJcN}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpWk}# + (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#) + #{ids -ANAU$bmvAmthP7L7xwpWq}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwpWr}# + #{ids -ANAU$bmvAmthP7L7xwpWs}#) (call-with-values (lambda () - (#{v-reverse _hoQGWMnyQPAh3k2jhWJTo}# - #{ys _hoQGWMnyQPAh3k2jhWJcK}#)) - (lambda (#{ys _hoQGWMnyQPAh3k2jhWJcu}# - #{e _hoQGWMnyQPAh3k2jhWJcv}#) + (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}# + #{ys -ANAU$bmvAmthP7L7xwpWp}#)) + (lambda (#{ys -ANAU$bmvAmthP7L7xwpXN}# + #{e -ANAU$bmvAmthP7L7xwpXO}#) (values (vector 'each+ - #{x _hoQGWMnyQPAh3k2jhWJcM}# - #{ys _hoQGWMnyQPAh3k2jhWJcu}# - #{e _hoQGWMnyQPAh3k2jhWJcv}#) - #{ids _hoQGWMnyQPAh3k2jhWJcN}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWJab}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJcw}# + #{x -ANAU$bmvAmthP7L7xwpWr}# + #{ys -ANAU$bmvAmthP7L7xwpXN}# + #{e -ANAU$bmvAmthP7L7xwpXO}#) + #{ids -ANAU$bmvAmthP7L7xwpWs}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwpU6}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJcw}# + (if #{tmp -ANAU$bmvAmthP7L7xwpXP}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJc0}# - #{y _hoQGWMnyQPAh3k2jhWJc1}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}# + #{y -ANAU$bmvAmthP7L7xwpXU}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{y _hoQGWMnyQPAh3k2jhWJc1}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{y _hoQGWMnyQPAh3k2jhWJc2}# - #{ids _hoQGWMnyQPAh3k2jhWJc3}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{y -ANAU$bmvAmthP7L7xwpXU}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}# + #{ids -ANAU$bmvAmthP7L7xwpXW}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJc0}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJc3}#)) - (lambda (#{x _hoQGWMnyQPAh3k2jhWJc4}# - #{ids _hoQGWMnyQPAh3k2jhWJc5}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpXT}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpXW}#)) + (lambda (#{x -ANAU$bmvAmthP7L7xwpXX}# + #{ids -ANAU$bmvAmthP7L7xwpXY}#) (values - (cons #{x _hoQGWMnyQPAh3k2jhWJc4}# - #{y _hoQGWMnyQPAh3k2jhWJc2}#) - #{ids _hoQGWMnyQPAh3k2jhWJc5}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWJcw}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc6}# + (cons #{x -ANAU$bmvAmthP7L7xwpXX}# + #{y -ANAU$bmvAmthP7L7xwpXV}#) + #{ids -ANAU$bmvAmthP7L7xwpXY}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwpXP}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJc6}# + (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}# (@apply (lambda () (values '() - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - #{tmp _hoQGWMnyQPAh3k2jhWJc6}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJc$}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + #{tmp -ANAU$bmvAmthP7L7xwpXZ}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWJTs}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '#(vector each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJc$}# + (if #{tmp -ANAU$bmvAmthP7L7xwpXd}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWJdC}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpXh}#) (call-with-values (lambda () - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{x _hoQGWMnyQPAh3k2jhWJdC}# - #{n _hoQGWMnyQPAh3k2jhWJTt}# - #{ids _hoQGWMnyQPAh3k2jhWJTu}#)) - (lambda (#{p _hoQGWMnyQPAh3k2jhWJdD}# - #{ids _hoQGWMnyQPAh3k2jhWJdE}#) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{x -ANAU$bmvAmthP7L7xwpXh}# + #{n -ANAU$bmvAmthP7L7xwpOM}# + #{ids -ANAU$bmvAmthP7L7xwpON}#)) + (lambda (#{p -ANAU$bmvAmthP7L7xwpXi}# + #{ids -ANAU$bmvAmthP7L7xwpXj}#) (values (vector 'vector - #{p _hoQGWMnyQPAh3k2jhWJdD}#) - #{ids _hoQGWMnyQPAh3k2jhWJdE}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWJc$}#) + #{p -ANAU$bmvAmthP7L7xwpXi}#) + #{ids -ANAU$bmvAmthP7L7xwpXj}#)))) + #{tmp -ANAU$bmvAmthP7L7xwpXd}#) (values (vector 'atom - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{p _hoQGWMnyQPAh3k2jhWJTs}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{p -ANAU$bmvAmthP7L7xwpOL}# '(()))) - #{ids _hoQGWMnyQPAh3k2jhWJTu}#))))))))))))))) - (#{cvt _hoQGWMnyQPAh3k2jhWJTp}# - #{pattern _hoQGWMnyQPAh3k2jhWJTl}# + #{ids -ANAU$bmvAmthP7L7xwpON}#))))))))))))))) + (#{cvt -ANAU$bmvAmthP7L7xwpOI}# + #{pattern -ANAU$bmvAmthP7L7xwpOE}# 0 '())))) - (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# - (lambda (#{pvars _hoQGWMnyQPAh3k2jhWJe1}# - #{exp _hoQGWMnyQPAh3k2jhWJe2}# - #{y _hoQGWMnyQPAh3k2jhWJe3}# - #{r _hoQGWMnyQPAh3k2jhWJe4}# - #{mod _hoQGWMnyQPAh3k2jhWJe5}#) - (let ((#{ids _hoQGWMnyQPAh3k2jhWJe6}# - (map car #{pvars _hoQGWMnyQPAh3k2jhWJe1}#))) + (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}# + (lambda (#{pvars -ANAU$bmvAmthP7L7xwpZU}# + #{exp -ANAU$bmvAmthP7L7xwpZV}# + #{y -ANAU$bmvAmthP7L7xwpZW}# + #{r -ANAU$bmvAmthP7L7xwpZX}# + #{mod -ANAU$bmvAmthP7L7xwpZY}#) + (let ((#{ids -ANAU$bmvAmthP7L7xwpZZ}# + (map car #{pvars -ANAU$bmvAmthP7L7xwpZU}#))) (begin - (map cdr #{pvars _hoQGWMnyQPAh3k2jhWJe1}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWJe8}# - (#{gen-labels _hoQGWMnyQPAh3k2jhWHTE}# - #{ids _hoQGWMnyQPAh3k2jhWJe6}#)) - (#{new-vars _hoQGWMnyQPAh3k2jhWJe9}# - (map #{gen-var _hoQGWMnyQPAh3k2jhWHTz}# - #{ids _hoQGWMnyQPAh3k2jhWJe6}#))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (map cdr #{pvars -ANAU$bmvAmthP7L7xwpZU}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwpZb}# + (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# + #{ids -ANAU$bmvAmthP7L7xwpZZ}#)) + (#{new-vars -ANAU$bmvAmthP7L7xwpZc}# + (map #{gen-var -ANAU$bmvAmthP7L7xwnOS}# + #{ids -ANAU$bmvAmthP7L7xwpZZ}#))) + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -16577,89 +16553,89 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# #f (map syntax->datum - #{ids _hoQGWMnyQPAh3k2jhWJe6}#) + #{ids -ANAU$bmvAmthP7L7xwpZZ}#) #f - #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# + #{new-vars -ANAU$bmvAmthP7L7xwpZc}# '() - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{exp _hoQGWMnyQPAh3k2jhWJe2}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWJe8}# - (map (lambda (#{var _hoQGWMnyQPAh3k2jhWJj8}# - #{level _hoQGWMnyQPAh3k2jhWJj9}#) + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{exp -ANAU$bmvAmthP7L7xwpZV}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwpZb}# + (map (lambda (#{var -ANAU$bmvAmthP7L7xwpeb}# + #{level -ANAU$bmvAmthP7L7xwpec}#) (cons 'syntax - (cons #{var _hoQGWMnyQPAh3k2jhWJj8}# - #{level _hoQGWMnyQPAh3k2jhWJj9}#))) - #{new-vars _hoQGWMnyQPAh3k2jhWJe9}# + (cons #{var -ANAU$bmvAmthP7L7xwpeb}# + #{level -ANAU$bmvAmthP7L7xwpec}#))) + #{new-vars -ANAU$bmvAmthP7L7xwpZc}# (map cdr - #{pvars _hoQGWMnyQPAh3k2jhWJe1}#)) - #{r _hoQGWMnyQPAh3k2jhWJe4}#) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - #{ids _hoQGWMnyQPAh3k2jhWJe6}# - #{labels _hoQGWMnyQPAh3k2jhWJe8}# + #{pvars -ANAU$bmvAmthP7L7xwpZU}#)) + #{r -ANAU$bmvAmthP7L7xwpZX}#) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + #{ids -ANAU$bmvAmthP7L7xwpZZ}# + #{labels -ANAU$bmvAmthP7L7xwpZb}# '(())) - #{mod _hoQGWMnyQPAh3k2jhWJe5}#)) - #{y _hoQGWMnyQPAh3k2jhWJe3}#))))))) - (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWJJx}# - #{keys _hoQGWMnyQPAh3k2jhWJJy}# - #{clauses _hoQGWMnyQPAh3k2jhWJJz}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{pat _hoQGWMnyQPAh3k2jhWJJ1}# - #{fender _hoQGWMnyQPAh3k2jhWJJ2}# - #{exp _hoQGWMnyQPAh3k2jhWJJ3}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#) + #{mod -ANAU$bmvAmthP7L7xwpZY}#)) + #{y -ANAU$bmvAmthP7L7xwpZW}#))))))) + (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}# + (lambda (#{x -ANAU$bmvAmthP7L7xwpEQ}# + #{keys -ANAU$bmvAmthP7L7xwpER}# + #{clauses -ANAU$bmvAmthP7L7xwpES}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{pat -ANAU$bmvAmthP7L7xwpEU}# + #{fender -ANAU$bmvAmthP7L7xwpEV}# + #{exp -ANAU$bmvAmthP7L7xwpEW}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#) (call-with-values (lambda () - (#{convert-pattern _hoQGWMnyQPAh3k2jhWI6q}# - #{pat _hoQGWMnyQPAh3k2jhWJJ1}# - #{keys _hoQGWMnyQPAh3k2jhWJJy}#)) - (lambda (#{p _hoQGWMnyQPAh3k2jhWJMT}# - #{pvars _hoQGWMnyQPAh3k2jhWJMU}#) - (if (not (#{distinct-bound-ids? _hoQGWMnyQPAh3k2jhWHTc}# - (map car #{pvars _hoQGWMnyQPAh3k2jhWJMU}#))) + (#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}# + #{pat -ANAU$bmvAmthP7L7xwpEU}# + #{keys -ANAU$bmvAmthP7L7xwpER}#)) + (lambda (#{p -ANAU$bmvAmthP7L7xwpGy}# + #{pvars -ANAU$bmvAmthP7L7xwpGz}#) + (if (not (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# + (map car #{pvars -ANAU$bmvAmthP7L7xwpGz}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) + #{pat -ANAU$bmvAmthP7L7xwpEU}#) (if (not (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWJOI}#) - (not (let ((#{x _hoQGWMnyQPAh3k2jhWJOM}# - (car #{x _hoQGWMnyQPAh3k2jhWJOI}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#) + (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}# + (car #{x -ANAU$bmvAmthP7L7xwpIn}#))) (if (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 1)) #f) (if (eq? (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJOM}# + #{x -ANAU$bmvAmthP7L7xwpIr}# 1) - #{x _hoQGWMnyQPAh3k2jhWJOM}#) + #{x -ANAU$bmvAmthP7L7xwpIr}#) (if (if (= (vector-length '#(syntax-object ... @@ -16675,7 +16651,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -16957,146 +16933,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -17104,9 +17080,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -17121,7 +17097,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -17403,159 +17379,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWJOM}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwpIr}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -17564,7 +17538,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -17846,194 +17820,194 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)))) - #{pvars _hoQGWMnyQPAh3k2jhWJMU}#)) + #{pvars -ANAU$bmvAmthP7L7xwpGz}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat _hoQGWMnyQPAh3k2jhWJJ1}#) - (let ((#{y _hoQGWMnyQPAh3k2jhWJPY}# + #{pat -ANAU$bmvAmthP7L7xwpEU}#) + (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# #f - (let ((#{req _hoQGWMnyQPAh3k2jhWJRn}# (list 'tmp)) - (#{vars _hoQGWMnyQPAh3k2jhWJRp}# - (list #{y _hoQGWMnyQPAh3k2jhWJPY}#)) - (#{exp _hoQGWMnyQPAh3k2jhWJRr}# - (let ((#{y _hoQGWMnyQPAh3k2jhWJR8}# + (let ((#{req -ANAU$bmvAmthP7L7xwpMG}# (list 'tmp)) + (#{vars -ANAU$bmvAmthP7L7xwpMI}# + (list #{y -ANAU$bmvAmthP7L7xwpJ3}#)) + (#{exp -ANAU$bmvAmthP7L7xwpMK}# + (let ((#{y -ANAU$bmvAmthP7L7xwpMb}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y _hoQGWMnyQPAh3k2jhWJPY}#))) - (let ((#{test-exp _hoQGWMnyQPAh3k2jhWJSA}# - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJSJ}# + #{y -ANAU$bmvAmthP7L7xwpJ3}#))) + (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwpMo}# ($sc-dispatch - #{fender _hoQGWMnyQPAh3k2jhWJJ2}# + #{fender -ANAU$bmvAmthP7L7xwpEV}# '#(atom #t)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJSJ}# + (if #{tmp -ANAU$bmvAmthP7L7xwpMo}# (@apply (lambda () - #{y _hoQGWMnyQPAh3k2jhWJR8}#) - #{tmp _hoQGWMnyQPAh3k2jhWJSJ}#) - (let ((#{then-exp _hoQGWMnyQPAh3k2jhWJSb}# - (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# - #{pvars _hoQGWMnyQPAh3k2jhWJMU}# - #{fender _hoQGWMnyQPAh3k2jhWJJ2}# - #{y _hoQGWMnyQPAh3k2jhWJR8}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) - (#{else-exp _hoQGWMnyQPAh3k2jhWJSc}# + #{y -ANAU$bmvAmthP7L7xwpMb}#) + #{tmp -ANAU$bmvAmthP7L7xwpMo}#) + (let ((#{then-exp -ANAU$bmvAmthP7L7xwpM6}# + (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}# + #{pvars -ANAU$bmvAmthP7L7xwpGz}# + #{fender -ANAU$bmvAmthP7L7xwpEV}# + #{y -ANAU$bmvAmthP7L7xwpMb}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#)) + (#{else-exp -ANAU$bmvAmthP7L7xwpM7}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -18045,48 +18019,48 @@ %expanded-vtables 10) #f - #{y _hoQGWMnyQPAh3k2jhWJR8}# - #{then-exp _hoQGWMnyQPAh3k2jhWJSb}# - #{else-exp _hoQGWMnyQPAh3k2jhWJSc}#))))) - (#{then-exp _hoQGWMnyQPAh3k2jhWJSB}# - (#{build-dispatch-call _hoQGWMnyQPAh3k2jhWI6r}# - #{pvars _hoQGWMnyQPAh3k2jhWJMU}# - #{exp _hoQGWMnyQPAh3k2jhWJJ3}# - #{y _hoQGWMnyQPAh3k2jhWJR8}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#)) - (#{else-exp _hoQGWMnyQPAh3k2jhWJSC}# - (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# - #{x _hoQGWMnyQPAh3k2jhWJJx}# - #{keys _hoQGWMnyQPAh3k2jhWJJy}# - #{clauses _hoQGWMnyQPAh3k2jhWJJz}# - #{r _hoQGWMnyQPAh3k2jhWJJ0}# - #{mod _hoQGWMnyQPAh3k2jhWJJ4}#))) + #{y -ANAU$bmvAmthP7L7xwpMb}# + #{then-exp -ANAU$bmvAmthP7L7xwpM6}# + #{else-exp -ANAU$bmvAmthP7L7xwpM7}#))))) + (#{then-exp -ANAU$bmvAmthP7L7xwpMg}# + (#{build-dispatch-call -ANAU$bmvAmthP7L7xwo1K}# + #{pvars -ANAU$bmvAmthP7L7xwpGz}# + #{exp -ANAU$bmvAmthP7L7xwpEW}# + #{y -ANAU$bmvAmthP7L7xwpMb}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#)) + (#{else-exp -ANAU$bmvAmthP7L7xwpMh}# + (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}# + #{x -ANAU$bmvAmthP7L7xwpEQ}# + #{keys -ANAU$bmvAmthP7L7xwpER}# + #{clauses -ANAU$bmvAmthP7L7xwpES}# + #{r -ANAU$bmvAmthP7L7xwpET}# + #{mod -ANAU$bmvAmthP7L7xwpEX}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp _hoQGWMnyQPAh3k2jhWJSA}# - #{then-exp _hoQGWMnyQPAh3k2jhWJSB}# - #{else-exp _hoQGWMnyQPAh3k2jhWJSC}#))))) - (let ((#{body _hoQGWMnyQPAh3k2jhWJRw}# + #{test-exp -ANAU$bmvAmthP7L7xwpMf}# + #{then-exp -ANAU$bmvAmthP7L7xwpMg}# + #{else-exp -ANAU$bmvAmthP7L7xwpMh}#))))) + (let ((#{body -ANAU$bmvAmthP7L7xwpMP}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _hoQGWMnyQPAh3k2jhWJRn}# + #{req -ANAU$bmvAmthP7L7xwpMG}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWJRp}# - #{exp _hoQGWMnyQPAh3k2jhWJRr}# + #{vars -ANAU$bmvAmthP7L7xwpMI}# + #{exp -ANAU$bmvAmthP7L7xwpMK}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _hoQGWMnyQPAh3k2jhWJRw}#))) - (list (if (eq? #{p _hoQGWMnyQPAh3k2jhWJMT}# 'any) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# + #{body -ANAU$bmvAmthP7L7xwpMP}#))) + (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}# (if (equal? (module-name (current-module)) '(guile)) @@ -18100,14 +18074,14 @@ '(guile) 'list #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWJSz}# - (list #{x _hoQGWMnyQPAh3k2jhWJJx}#))) + (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}# + (list #{x -ANAU$bmvAmthP7L7xwpEQ}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWJSy}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJSz}#)) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# + #{fun-exp -ANAU$bmvAmthP7L7xwpNR}# + #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#)) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}# (if (equal? (module-name (current-module)) '(guile)) @@ -18121,27 +18095,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWJTL}# - (list #{x _hoQGWMnyQPAh3k2jhWJJx}# + (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}# + (list #{x -ANAU$bmvAmthP7L7xwpEQ}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p _hoQGWMnyQPAh3k2jhWJMT}#)))) + #{p -ANAU$bmvAmthP7L7xwpGy}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWJTK}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJTL}#)))))))))))) - (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWJA8}# - #{keys _hoQGWMnyQPAh3k2jhWJA9}# - #{clauses _hoQGWMnyQPAh3k2jhWJA$}# - #{r _hoQGWMnyQPAh3k2jhWJA@}# - #{mod _hoQGWMnyQPAh3k2jhWJBA}#) - (if (null? #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) - (let ((#{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# + #{fun-exp -ANAU$bmvAmthP7L7xwpNp}# + #{arg-exps -ANAU$bmvAmthP7L7xwpNq}#)))))))))))) + (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}# + (lambda (#{x -ANAU$bmvAmthP7L7xwo7b}# + #{keys -ANAU$bmvAmthP7L7xwo7c}# + #{clauses -ANAU$bmvAmthP7L7xwo7d}# + #{r -ANAU$bmvAmthP7L7xwo7e}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#) + (if (null? #{clauses -ANAU$bmvAmthP7L7xwo7d}#) + (let ((#{fun-exp -ANAU$bmvAmthP7L7xwo7k}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -18153,7 +18127,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps _hoQGWMnyQPAh3k2jhWJBG}# + (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -18162,77 +18136,77 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x _hoQGWMnyQPAh3k2jhWJA8}#))) + #{x -ANAU$bmvAmthP7L7xwo7b}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp _hoQGWMnyQPAh3k2jhWJBF}# - #{arg-exps _hoQGWMnyQPAh3k2jhWJBG}#)) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBn}# - (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJBo}# + #{fun-exp -ANAU$bmvAmthP7L7xwo7k}# + #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#)) + (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}# + (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWJBn}# + #{tmp -ANAU$bmvAmthP7L7xwo8G}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJBo}# + (if #{tmp -ANAU$bmvAmthP7L7xwo8H}# (@apply - (lambda (#{pat _hoQGWMnyQPAh3k2jhWJBq}# - #{exp _hoQGWMnyQPAh3k2jhWJBr}#) - (if (if (if (symbol? #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}# + #{exp -ANAU$bmvAmthP7L7xwo8K}#) + (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#) #t (if (if (vector? - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (= (vector-length - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) 4) (eq? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 1)) #f)) (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWJCG}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#) (not (if (eq? (if (if (vector? - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (= (vector-length - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) 4) (eq? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 1) - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWJCG}#) + #{x -ANAU$bmvAmthP7L7xwo8l}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWJCG}#) + #{x -ANAU$bmvAmthP7L7xwo8l}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJCG}# + #{x -ANAU$bmvAmthP7L7xwo8l}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _hoQGWMnyQPAh3k2jhWJCG}# + #{x -ANAU$bmvAmthP7L7xwo8l}# 1) - #{x _hoQGWMnyQPAh3k2jhWJCG}#)) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{x -ANAU$bmvAmthP7L7xwo8l}#)) + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWJCG}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwo8l}# '(()))) #f))) (cons '#(syntax-object @@ -18241,23 +18215,23 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -18539,154 +18513,154 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) - #{keys _hoQGWMnyQPAh3k2jhWJA9}#)) + #{keys -ANAU$bmvAmthP7L7xwo7c}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -18695,7 +18669,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x @@ -18708,11 +18682,11 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause @@ -18722,10 +18696,10 @@ (top) (top) (top)) - ("2u0" - "2tz" - "2ty" - "2tx")) + ("15s" + "15r" + "15q" + "15p")) #(ribcage (lambda-var-list gen-var @@ -19007,146 +18981,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -19154,9 +19128,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -19168,7 +19140,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19177,18 +19149,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -19470,152 +19442,152 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -19624,7 +19596,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x @@ -19637,11 +19609,11 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause @@ -19651,10 +19623,10 @@ (top) (top) (top)) - ("2u0" - "2tz" - "2ty" - "2tx")) + ("15s" + "15r" + "15q" + "15p")) #(ribcage (lambda-var-list gen-var @@ -19936,146 +19908,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -20083,9 +20055,7 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" "7" "6"))) (hygiene guile))) 4) #t @@ -20097,7 +20067,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20106,18 +20076,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -20399,161 +20369,161 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20562,18 +20532,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -20855,162 +20825,162 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("2w6" "2w7")) + #("17y" "17z")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -21019,18 +20989,18 @@ (top) (top) (top)) - #("2w1" - "2w2" - "2w3" - "2w4" - "2w5")) + #("17t" + "17u" + "17v" + "17w" + "17x")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("2u0" "2tz" "2ty" "2tx")) + ("15s" "15r" "15q" "15p")) #(ribcage (lambda-var-list gen-var @@ -21312,317 +21282,317 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{exp _hoQGWMnyQPAh3k2jhWJBr}# - #{r _hoQGWMnyQPAh3k2jhWJA@}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{exp -ANAU$bmvAmthP7L7xwo8K}# + #{r -ANAU$bmvAmthP7L7xwo7e}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWJBA}#) - (let ((#{labels _hoQGWMnyQPAh3k2jhWJE2}# - (list (#{gen-label _hoQGWMnyQPAh3k2jhWHTD}#))) - (#{var _hoQGWMnyQPAh3k2jhWJE3}# - (let ((#{id _hoQGWMnyQPAh3k2jhWJFd}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#) + (let ((#{labels -ANAU$bmvAmthP7L7xwo@V}# + (list (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) + (#{var -ANAU$bmvAmthP7L7xwo@W}# + (let ((#{id -ANAU$bmvAmthP7L7xwo@8}# (if (if (vector? - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) (if (= (vector-length - #{pat _hoQGWMnyQPAh3k2jhWJBq}#) + #{pat -ANAU$bmvAmthP7L7xwo8J}#) 4) (eq? (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# 1) - #{pat _hoQGWMnyQPAh3k2jhWJBq}#))) + #{pat -ANAU$bmvAmthP7L7xwo8J}#))) (gensym (string-append (symbol->string - #{id _hoQGWMnyQPAh3k2jhWJFd}#) + #{id -ANAU$bmvAmthP7L7xwo@8}#) " "))))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# #f - (#{build-simple-lambda _hoQGWMnyQPAh3k2jhWHSp}# + (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# #f (list (syntax->datum - #{pat _hoQGWMnyQPAh3k2jhWJBq}#)) + #{pat -ANAU$bmvAmthP7L7xwo8J}#)) #f - (list #{var _hoQGWMnyQPAh3k2jhWJE3}#) + (list #{var -ANAU$bmvAmthP7L7xwo@W}#) '() - (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{exp _hoQGWMnyQPAh3k2jhWJBr}# - (#{extend-env _hoQGWMnyQPAh3k2jhWHS7}# - #{labels _hoQGWMnyQPAh3k2jhWJE2}# + (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{exp -ANAU$bmvAmthP7L7xwo8K}# + (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# + #{labels -ANAU$bmvAmthP7L7xwo@V}# (list (cons 'syntax - (cons #{var _hoQGWMnyQPAh3k2jhWJE3}# + (cons #{var -ANAU$bmvAmthP7L7xwo@W}# 0))) - #{r _hoQGWMnyQPAh3k2jhWJA@}#) - (#{make-binding-wrap _hoQGWMnyQPAh3k2jhWHTP}# - (list #{pat _hoQGWMnyQPAh3k2jhWJBq}#) - #{labels _hoQGWMnyQPAh3k2jhWJE2}# + #{r -ANAU$bmvAmthP7L7xwo7e}#) + (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# + (list #{pat -ANAU$bmvAmthP7L7xwo8J}#) + #{labels -ANAU$bmvAmthP7L7xwo@V}# '(())) - #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) - (list #{x _hoQGWMnyQPAh3k2jhWJA8}#)))) - (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# - #{x _hoQGWMnyQPAh3k2jhWJA8}# - #{keys _hoQGWMnyQPAh3k2jhWJA9}# - (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) - #{r _hoQGWMnyQPAh3k2jhWJA@}# - #{pat _hoQGWMnyQPAh3k2jhWJBq}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#)) + (list #{x -ANAU$bmvAmthP7L7xwo7b}#)))) + (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}# + #{x -ANAU$bmvAmthP7L7xwo7b}# + #{keys -ANAU$bmvAmthP7L7xwo7c}# + (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#) + #{r -ANAU$bmvAmthP7L7xwo7e}# + #{pat -ANAU$bmvAmthP7L7xwo8J}# #t - #{exp _hoQGWMnyQPAh3k2jhWJBr}# - #{mod _hoQGWMnyQPAh3k2jhWJBA}#))) - #{tmp _hoQGWMnyQPAh3k2jhWJBo}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWJJp}# + #{exp -ANAU$bmvAmthP7L7xwo8K}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#))) + #{tmp -ANAU$bmvAmthP7L7xwo8H}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWJBn}# + #{tmp -ANAU$bmvAmthP7L7xwo8G}# '(any any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWJJp}# + (if #{tmp -ANAU$bmvAmthP7L7xwpEI}# (@apply - (lambda (#{pat _hoQGWMnyQPAh3k2jhWJJr}# - #{fender _hoQGWMnyQPAh3k2jhWJJs}# - #{exp _hoQGWMnyQPAh3k2jhWJJt}#) - (#{gen-clause _hoQGWMnyQPAh3k2jhWI6s}# - #{x _hoQGWMnyQPAh3k2jhWJA8}# - #{keys _hoQGWMnyQPAh3k2jhWJA9}# - (cdr #{clauses _hoQGWMnyQPAh3k2jhWJA$}#) - #{r _hoQGWMnyQPAh3k2jhWJA@}# - #{pat _hoQGWMnyQPAh3k2jhWJJr}# - #{fender _hoQGWMnyQPAh3k2jhWJJs}# - #{exp _hoQGWMnyQPAh3k2jhWJJt}# - #{mod _hoQGWMnyQPAh3k2jhWJBA}#)) - #{tmp _hoQGWMnyQPAh3k2jhWJJp}#) + (lambda (#{pat -ANAU$bmvAmthP7L7xwpEK}# + #{fender -ANAU$bmvAmthP7L7xwpEL}# + #{exp -ANAU$bmvAmthP7L7xwpEM}#) + (#{gen-clause -ANAU$bmvAmthP7L7xwo1L}# + #{x -ANAU$bmvAmthP7L7xwo7b}# + #{keys -ANAU$bmvAmthP7L7xwo7c}# + (cdr #{clauses -ANAU$bmvAmthP7L7xwo7d}#) + #{r -ANAU$bmvAmthP7L7xwo7e}# + #{pat -ANAU$bmvAmthP7L7xwpEK}# + #{fender -ANAU$bmvAmthP7L7xwpEL}# + #{exp -ANAU$bmvAmthP7L7xwpEM}# + #{mod -ANAU$bmvAmthP7L7xwo7f}#)) + #{tmp -ANAU$bmvAmthP7L7xwpEI}#) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses _hoQGWMnyQPAh3k2jhWJA$}#))))))))))) - (lambda (#{e _hoQGWMnyQPAh3k2jhWI6u}# - #{r _hoQGWMnyQPAh3k2jhWI6v}# - #{w _hoQGWMnyQPAh3k2jhWI6w}# - #{s _hoQGWMnyQPAh3k2jhWI6x}# - #{mod _hoQGWMnyQPAh3k2jhWI6y}#) - (let ((#{e _hoQGWMnyQPAh3k2jhWI6z}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#))))))))))) + (lambda (#{e -ANAU$bmvAmthP7L7xwo1N}# + #{r -ANAU$bmvAmthP7L7xwo1O}# + #{w -ANAU$bmvAmthP7L7xwo1P}# + #{s -ANAU$bmvAmthP7L7xwo1Q}# + #{mod -ANAU$bmvAmthP7L7xwo1R}#) + (let ((#{e -ANAU$bmvAmthP7L7xwo1S}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (begin - (if (if (pair? #{e _hoQGWMnyQPAh3k2jhWI6u}#) - #{s _hoQGWMnyQPAh3k2jhWI6x}# + (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#) + #{s -ANAU$bmvAmthP7L7xwo1Q}# #f) (set-source-properties! - #{e _hoQGWMnyQPAh3k2jhWI6u}# - #{s _hoQGWMnyQPAh3k2jhWI6x}#)) - #{e _hoQGWMnyQPAh3k2jhWI6u}#) - #{w _hoQGWMnyQPAh3k2jhWI6w}# - #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWI61}# + #{e -ANAU$bmvAmthP7L7xwo1N}# + #{s -ANAU$bmvAmthP7L7xwo1Q}#)) + #{e -ANAU$bmvAmthP7L7xwo1N}#) + #{w -ANAU$bmvAmthP7L7xwo1P}# + #{mod -ANAU$bmvAmthP7L7xwo1R}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}# ($sc-dispatch - #{e _hoQGWMnyQPAh3k2jhWI6z}# + #{e -ANAU$bmvAmthP7L7xwo1S}# '(_ any each-any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWI61}# + (if #{tmp -ANAU$bmvAmthP7L7xwo1U}# (@apply - (lambda (#{val _hoQGWMnyQPAh3k2jhWI7O}# - #{key _hoQGWMnyQPAh3k2jhWI7P}# - #{m _hoQGWMnyQPAh3k2jhWI7Q}#) + (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}# + #{key -ANAU$bmvAmthP7L7xwo1u}# + #{m -ANAU$bmvAmthP7L7xwo1v}#) (if (and-map - (lambda (#{x _hoQGWMnyQPAh3k2jhWI7R}#) - (if (if (symbol? #{x _hoQGWMnyQPAh3k2jhWI7R}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#) + (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#) #t (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 1)) #f)) (not (if (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 1)) #f) (if (eq? (if (if (vector? - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (= (vector-length - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) 4) (eq? (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 0) 'syntax-object) #f) #f) (vector-ref - #{x _hoQGWMnyQPAh3k2jhWI7R}# + #{x -ANAU$bmvAmthP7L7xwo1w}# 1) - #{x _hoQGWMnyQPAh3k2jhWI7R}#) + #{x -ANAU$bmvAmthP7L7xwo1w}#) (if (if (= (vector-length '#(syntax-object ... @@ -21638,7 +21608,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -21920,146 +21890,146 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors @@ -22067,9 +22037,9 @@ ((top) (top) (top)) - ("1og" - "1of" - "1oe"))) + ("8" + "7" + "6"))) (hygiene guile))) 4) @@ -22084,7 +22054,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -22366,157 +22336,157 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)))) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWI7R}# + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwo1w}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# '#(syntax-object ... ((top) @@ -22525,7 +22495,7 @@ #(ribcage #(x) #((top)) - #("2de")) + #("p6")) #(ribcage (lambda-var-list gen-var @@ -22807,1042 +22777,1063 @@ (top) (top) (top)) - ("1tt" - "1ts" - "1tr" - "1tq" - "1tp" - "1to" - "1tn" - "1tm" - "1tl" - "1tk" - "1tj" - "1ti" - "1th" - "1tg" - "1tf" - "1te" - "1td" - "1tc" - "1tb" - "1ta" - "1t9" - "1t8" - "1t7" - "1t6" - "1t5" - "1t4" - "1t3" - "1t2" - "1t1" - "1t0" - "1sz" - "1sy" - "1sx" - "1sw" - "1sv" - "1su" - "1st" - "1ss" - "1sr" - "1sq" - "1sp" - "1so" - "1sn" - "1sm" - "1sl" - "1sk" - "1sj" - "1si" - "1sh" - "1sg" - "1sf" - "1se" - "1sd" - "1sc" - "1sb" - "1sa" - "1s9" - "1s8" - "1s7" - "1s6" - "1s5" - "1s4" - "1s3" - "1s2" - "1s1" - "1s0" - "1rz" - "1ry" - "1rx" - "1rw" - "1rv" - "1ru" - "1rt" - "1rs" - "1rr" - "1rq" - "1rp" - "1ro" - "1rn" - "1rm" - "1rl" - "1rk" - "1rj" - "1ri" - "1rh" - "1rg" - "1rf" - "1re" - "1rd" - "1rc" - "1rb" - "1ra" - "1r9" - "1r8" - "1r7" - "1r6" - "1r5" - "1r4" - "1r3" - "1r2" - "1r1" - "1r0" - "1qz" - "1qy" - "1qx" - "1qw" - "1qv" - "1qu" - "1qt" - "1qs" - "1qr" - "1qq" - "1qp" - "1qo" - "1qn" - "1qm" - "1ql" - "1qk" - "1qj" - "1qi" - "1qh" - "1qg" - "1qf" - "1qe" - "1qd" - "1qc" - "1qb" - "1qa" - "1q9" - "1q8" - "1q7" - "1q6" - "1q5" - "1q4" - "1q3" - "1q2" - "1q1" - "1q0" - "1pz" - "1py")) + ("5l" + "5k" + "5j" + "5i" + "5h" + "5g" + "5f" + "5e" + "5d" + "5c" + "5b" + "5a" + "59" + "58" + "57" + "56" + "55" + "54" + "53" + "52" + "51" + "50" + "4z" + "4y" + "4x" + "4w" + "4v" + "4u" + "4t" + "4s" + "4r" + "4q" + "4p" + "4o" + "4n" + "4m" + "4l" + "4k" + "4j" + "4i" + "4h" + "4g" + "4f" + "4e" + "4d" + "4c" + "4b" + "4a" + "49" + "48" + "47" + "46" + "45" + "44" + "43" + "42" + "41" + "40" + "3z" + "3y" + "3x" + "3w" + "3v" + "3u" + "3t" + "3s" + "3r" + "3q" + "3p" + "3o" + "3n" + "3m" + "3l" + "3k" + "3j" + "3i" + "3h" + "3g" + "3f" + "3e" + "3d" + "3c" + "3b" + "3a" + "39" + "38" + "37" + "36" + "35" + "34" + "33" + "32" + "31" + "30" + "2z" + "2y" + "2x" + "2w" + "2v" + "2u" + "2t" + "2s" + "2r" + "2q" + "2p" + "2o" + "2n" + "2m" + "2l" + "2k" + "2j" + "2i" + "2h" + "2g" + "2f" + "2e" + "2d" + "2c" + "2b" + "2a" + "29" + "28" + "27" + "26" + "25" + "24" + "23" + "22" + "21" + "20" + "1z" + "1y" + "1x" + "1w" + "1v" + "1u" + "1t" + "1s" + "1r" + "1q")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("1og" "1of" "1oe"))) + ("8" "7" "6"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key _hoQGWMnyQPAh3k2jhWI7P}#) - (let ((#{x _hoQGWMnyQPAh3k2jhWI9P}# + #{key -ANAU$bmvAmthP7L7xwo1u}#) + (let ((#{x -ANAU$bmvAmthP7L7xwo3u}# (gensym (string-append (symbol->string 'tmp) " ")))) - (#{build-application _hoQGWMnyQPAh3k2jhWHSg}# - #{s _hoQGWMnyQPAh3k2jhWI6x}# - (let ((#{req _hoQGWMnyQPAh3k2jhWI@R}# (list 'tmp)) - (#{vars _hoQGWMnyQPAh3k2jhWI@T}# - (list #{x _hoQGWMnyQPAh3k2jhWI9P}#)) - (#{exp _hoQGWMnyQPAh3k2jhWI@V}# - (#{gen-syntax-case _hoQGWMnyQPAh3k2jhWI6t}# + (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + #{s -ANAU$bmvAmthP7L7xwo1Q}# + (let ((#{req -ANAU$bmvAmthP7L7xwo5w}# (list 'tmp)) + (#{vars -ANAU$bmvAmthP7L7xwo5y}# + (list #{x -ANAU$bmvAmthP7L7xwo3u}#)) + (#{exp -ANAU$bmvAmthP7L7xwo50}# + (#{gen-syntax-case -ANAU$bmvAmthP7L7xwo1M}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x _hoQGWMnyQPAh3k2jhWI9P}#) - #{key _hoQGWMnyQPAh3k2jhWI7P}# - #{m _hoQGWMnyQPAh3k2jhWI7Q}# - #{r _hoQGWMnyQPAh3k2jhWI6v}# - #{mod _hoQGWMnyQPAh3k2jhWI6y}#))) - (let ((#{body _hoQGWMnyQPAh3k2jhWI@a}# + #{x -ANAU$bmvAmthP7L7xwo3u}#) + #{key -ANAU$bmvAmthP7L7xwo1u}# + #{m -ANAU$bmvAmthP7L7xwo1v}# + #{r -ANAU$bmvAmthP7L7xwo1O}# + #{mod -ANAU$bmvAmthP7L7xwo1R}#))) + (let ((#{body -ANAU$bmvAmthP7L7xwo55}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req _hoQGWMnyQPAh3k2jhWI@R}# + #{req -ANAU$bmvAmthP7L7xwo5w}# #f #f #f '() - #{vars _hoQGWMnyQPAh3k2jhWI@T}# - #{exp _hoQGWMnyQPAh3k2jhWI@V}# + #{vars -ANAU$bmvAmthP7L7xwo5y}# + #{exp -ANAU$bmvAmthP7L7xwo50}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body _hoQGWMnyQPAh3k2jhWI@a}#))) - (list (#{expand _hoQGWMnyQPAh3k2jhWHTl}# - #{val _hoQGWMnyQPAh3k2jhWI7O}# - #{r _hoQGWMnyQPAh3k2jhWI6v}# + #{body -ANAU$bmvAmthP7L7xwo55}#))) + (list (#{expand -ANAU$bmvAmthP7L7xwnOE}# + #{val -ANAU$bmvAmthP7L7xwo1t}# + #{r -ANAU$bmvAmthP7L7xwo1O}# '(()) - #{mod _hoQGWMnyQPAh3k2jhWI6y}#)))) + #{mod -ANAU$bmvAmthP7L7xwo1R}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e _hoQGWMnyQPAh3k2jhWI6z}#))) - #{tmp _hoQGWMnyQPAh3k2jhWI61}#) + #{e -ANAU$bmvAmthP7L7xwo1S}#))) + #{tmp -ANAU$bmvAmthP7L7xwo1U}#) (syntax-violation #f "source expression failed to match any pattern" - #{e _hoQGWMnyQPAh3k2jhWI6z}#))))))) + #{e -ANAU$bmvAmthP7L7xwo1S}#))))))) (set! macroexpand (lambda* - (#{x _hoQGWMnyQPAh3k2jhWJlC}# + (#{x -ANAU$bmvAmthP7L7xwpfh}# #:optional - (#{m _hoQGWMnyQPAh3k2jhWJlD}# 'e) - (#{esew _hoQGWMnyQPAh3k2jhWJlE}# '(eval))) - (#{expand-top-sequence _hoQGWMnyQPAh3k2jhWHTh}# - (list #{x _hoQGWMnyQPAh3k2jhWJlC}#) + (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e) + (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval))) + (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# + (list #{x -ANAU$bmvAmthP7L7xwpfh}#) '() '((top)) #f - #{m _hoQGWMnyQPAh3k2jhWJlD}# - #{esew _hoQGWMnyQPAh3k2jhWJlE}# + #{m -ANAU$bmvAmthP7L7xwpfi}# + #{esew -ANAU$bmvAmthP7L7xwpfj}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x _hoQGWMnyQPAh3k2jhWJlH}#) - (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJlH}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJlH}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#) + (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJlH}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1)) #f))) (set! datum->syntax - (lambda (#{id _hoQGWMnyQPAh3k2jhWJlg}# - #{datum _hoQGWMnyQPAh3k2jhWJlh}#) - (let ((#{wrap _hoQGWMnyQPAh3k2jhWJlm}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 2)) - (#{module _hoQGWMnyQPAh3k2jhWJln}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJlg}# 3))) + (lambda (#{id -ANAU$bmvAmthP7L7xwpf@}# + #{datum -ANAU$bmvAmthP7L7xwpgA}#) + (let ((#{wrap -ANAU$bmvAmthP7L7xwpgF}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 2)) + (#{module -ANAU$bmvAmthP7L7xwpgG}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwpf@}# 3))) (vector 'syntax-object - #{datum _hoQGWMnyQPAh3k2jhWJlh}# - #{wrap _hoQGWMnyQPAh3k2jhWJlm}# - #{module _hoQGWMnyQPAh3k2jhWJln}#)))) + #{datum -ANAU$bmvAmthP7L7xwpgA}# + #{wrap -ANAU$bmvAmthP7L7xwpgF}# + #{module -ANAU$bmvAmthP7L7xwpgG}#)))) (set! syntax->datum - (lambda (#{x _hoQGWMnyQPAh3k2jhWJlu}#) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{x _hoQGWMnyQPAh3k2jhWJlu}# + (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{x -ANAU$bmvAmthP7L7xwpgN}# '(())))) (set! syntax-source - (lambda (#{x _hoQGWMnyQPAh3k2jhWJlx}#) - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - #{x _hoQGWMnyQPAh3k2jhWJlx}#))) - (set! syntax-module - (lambda (#{id _hoQGWMnyQPAh3k2jhWJoK}#) - (begin - (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoK}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoK}#) - 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 1)) - #f)) - (syntax-violation - 'syntax-module - "invalid argument" - #{id _hoQGWMnyQPAh3k2jhWJoK}#)) - (cdr (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoK}# 3))))) - (set! syntax-local-binding - (lambda (#{id _hoQGWMnyQPAh3k2jhWJoz}#) - (begin - (if (not (if (if (vector? #{id _hoQGWMnyQPAh3k2jhWJoz}#) - (if (= (vector-length #{id _hoQGWMnyQPAh3k2jhWJoz}#) - 4) - (eq? (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) - #f)) - (syntax-violation - 'syntax-local-binding - "invalid argument" - #{id _hoQGWMnyQPAh3k2jhWJoz}#)) - ((fluid-ref - #{transformer-environment _hoQGWMnyQPAh3k2jhWHTX}#) - (lambda (#{e _hoQGWMnyQPAh3k2jhWJpc}# - #{r _hoQGWMnyQPAh3k2jhWJpd}# - #{w _hoQGWMnyQPAh3k2jhWJpe}# - #{s _hoQGWMnyQPAh3k2jhWJpf}# - #{rib _hoQGWMnyQPAh3k2jhWJpg}# - #{mod _hoQGWMnyQPAh3k2jhWJph}#) - (call-with-values - (lambda () - (let ((#{id _hoQGWMnyQPAh3k2jhWJpk}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 1)) - (#{w _hoQGWMnyQPAh3k2jhWJpl}# - (let ((#{w _hoQGWMnyQPAh3k2jhWJpw}# - (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJoz}# - 2))) - (let ((#{ms _hoQGWMnyQPAh3k2jhWJpx}# - (car #{w _hoQGWMnyQPAh3k2jhWJpw}#)) - (#{s _hoQGWMnyQPAh3k2jhWJpy}# - (cdr #{w _hoQGWMnyQPAh3k2jhWJpw}#))) - (if (if (pair? #{ms _hoQGWMnyQPAh3k2jhWJpx}#) - (eq? (car #{ms _hoQGWMnyQPAh3k2jhWJpx}#) - #f) - #f) - (cons (cdr #{ms _hoQGWMnyQPAh3k2jhWJpx}#) - (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# - (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# - (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#)) - (cdr #{s _hoQGWMnyQPAh3k2jhWJpy}#))) - (cons #{ms _hoQGWMnyQPAh3k2jhWJpx}# - (if #{rib _hoQGWMnyQPAh3k2jhWJpg}# - (cons #{rib _hoQGWMnyQPAh3k2jhWJpg}# - #{s _hoQGWMnyQPAh3k2jhWJpy}#) - #{s _hoQGWMnyQPAh3k2jhWJpy}#)))))) - (#{mod _hoQGWMnyQPAh3k2jhWJpn}# - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJoz}# 3))) - (let ((#{n _hoQGWMnyQPAh3k2jhWJpq}# - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{id _hoQGWMnyQPAh3k2jhWJpk}# - #{w _hoQGWMnyQPAh3k2jhWJpl}#))) - (if (symbol? #{n _hoQGWMnyQPAh3k2jhWJpq}#) - (let ((#{mod _hoQGWMnyQPAh3k2jhWJp4}# - (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - 4) - (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJpk}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref #{id _hoQGWMnyQPAh3k2jhWJpk}# 3) - #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWJp5}# - (let ((#{t _hoQGWMnyQPAh3k2jhWJp6}# - (#{get-global-definition-hook _hoQGWMnyQPAh3k2jhWHSc}# - #{n _hoQGWMnyQPAh3k2jhWJpq}# - #{mod _hoQGWMnyQPAh3k2jhWJp4}#))) - (if #{t _hoQGWMnyQPAh3k2jhWJp6}# - #{t _hoQGWMnyQPAh3k2jhWJp6}# - '(global))))) - (if (eq? (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) - 'global) - (values - 'global - #{n _hoQGWMnyQPAh3k2jhWJpq}# - #{mod _hoQGWMnyQPAh3k2jhWJp4}#) - (values - (car #{b _hoQGWMnyQPAh3k2jhWJp5}#) - (cdr #{b _hoQGWMnyQPAh3k2jhWJp5}#) - #{mod _hoQGWMnyQPAh3k2jhWJp4}#)))) - (if (string? #{n _hoQGWMnyQPAh3k2jhWJpq}#) - (let ((#{mod _hoQGWMnyQPAh3k2jhWJqU}# - (if (if (vector? - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - (if (= (vector-length - #{id _hoQGWMnyQPAh3k2jhWJpk}#) - 4) - (eq? (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJpk}# - 0) - 'syntax-object) - #f) - #f) - (vector-ref - #{id _hoQGWMnyQPAh3k2jhWJpk}# - 3) - #{mod _hoQGWMnyQPAh3k2jhWJpn}#))) - (let ((#{b _hoQGWMnyQPAh3k2jhWJqV}# - (let ((#{t _hoQGWMnyQPAh3k2jhWJqW}# - (assq-ref - #{r _hoQGWMnyQPAh3k2jhWJpd}# - #{n _hoQGWMnyQPAh3k2jhWJpq}#))) - (if #{t _hoQGWMnyQPAh3k2jhWJqW}# - #{t _hoQGWMnyQPAh3k2jhWJqW}# - '(displaced-lexical))))) - (values - (car #{b _hoQGWMnyQPAh3k2jhWJqV}#) - (cdr #{b _hoQGWMnyQPAh3k2jhWJqV}#) - #{mod _hoQGWMnyQPAh3k2jhWJqU}#))) - (error "unexpected id-var-name" - #{id _hoQGWMnyQPAh3k2jhWJpk}# - #{w _hoQGWMnyQPAh3k2jhWJpl}# - #{n _hoQGWMnyQPAh3k2jhWJpq}#)))))) - (lambda (#{type _hoQGWMnyQPAh3k2jhWJqj}# - #{value _hoQGWMnyQPAh3k2jhWJqk}# - #{mod _hoQGWMnyQPAh3k2jhWJql}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'lexical) - (values - 'lexical - #{value _hoQGWMnyQPAh3k2jhWJqk}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'macro) - (values 'macro #{value _hoQGWMnyQPAh3k2jhWJqk}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'syntax) - (values - 'pattern-variable - #{value _hoQGWMnyQPAh3k2jhWJqk}#) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# - 'displaced-lexical) - (values 'displaced-lexical #f) - (if (eqv? #{type _hoQGWMnyQPAh3k2jhWJqj}# 'global) - (values - 'global - (cons #{value _hoQGWMnyQPAh3k2jhWJqk}# - (cdr #{mod _hoQGWMnyQPAh3k2jhWJql}#))) - (values 'other #f))))))))))))) - (set! syntax-locally-bound-identifiers - (lambda (#{x _hoQGWMnyQPAh3k2jhWJqw}#) - (begin - (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJqw}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJqw}#) - 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 0) - 'syntax-object) - #f) - #f) - (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 1)) - #f)) - (syntax-violation - 'syntax-locally-bound-identifiers - "invalid argument" - #{x _hoQGWMnyQPAh3k2jhWJqw}#)) - (#{locally-bound-identifiers _hoQGWMnyQPAh3k2jhWHTV}# - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 2) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJqw}# 3))))) + (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#) + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + #{x -ANAU$bmvAmthP7L7xwpgQ}#))) (set! generate-temporaries - (lambda (#{ls _hoQGWMnyQPAh3k2jhWJsb}#) + (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#) (begin - (if (not (list? #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) + (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls _hoQGWMnyQPAh3k2jhWJsb}#)) - (let ((#{mod _hoQGWMnyQPAh3k2jhWJsj}# + #{ls -ANAU$bmvAmthP7L7xwpip}#)) + (let ((#{mod -ANAU$bmvAmthP7L7xwpix}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x _hoQGWMnyQPAh3k2jhWJsk}#) - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# + (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#) + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# (gensym) '((top)) - #{mod _hoQGWMnyQPAh3k2jhWJsj}#)) - #{ls _hoQGWMnyQPAh3k2jhWJsb}#))))) + #{mod -ANAU$bmvAmthP7L7xwpix}#)) + #{ls -ANAU$bmvAmthP7L7xwpip}#))))) (set! free-identifier=? - (lambda (#{x _hoQGWMnyQPAh3k2jhWJso}# - #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}# + #{y -ANAU$bmvAmthP7L7xwpi3}#) (begin - (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) + (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x _hoQGWMnyQPAh3k2jhWJso}#)) - (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) + #{x -ANAU$bmvAmthP7L7xwpi2}#)) + (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1)) + (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y _hoQGWMnyQPAh3k2jhWJsp}#)) - (if (eq? (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJso}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJso}#) + #{y -ANAU$bmvAmthP7L7xwpi3}#)) + (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0) 'syntax-object) #f) #f) - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJso}# 1) - #{x _hoQGWMnyQPAh3k2jhWJso}#) - (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJsp}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJsp}#) + (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1) + #{x -ANAU$bmvAmthP7L7xwpi2}#) + (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0) 'syntax-object) #f) #f) - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJsp}# 1) - #{y _hoQGWMnyQPAh3k2jhWJsp}#)) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{x _hoQGWMnyQPAh3k2jhWJso}# + (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1) + #{y -ANAU$bmvAmthP7L7xwpi3}#)) + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{x -ANAU$bmvAmthP7L7xwpi2}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{y _hoQGWMnyQPAh3k2jhWJsp}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{y -ANAU$bmvAmthP7L7xwpi3}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x _hoQGWMnyQPAh3k2jhWJu@}# - #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwplN}# + #{y -ANAU$bmvAmthP7L7xwplO}#) (begin - (if (not (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) + (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1)) + (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x _hoQGWMnyQPAh3k2jhWJu@}#)) - (if (not (if (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) + #{x -ANAU$bmvAmthP7L7xwplN}#)) + (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) + (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y _hoQGWMnyQPAh3k2jhWJvA}#)) - (if (if (if (vector? #{x _hoQGWMnyQPAh3k2jhWJu@}#) - (if (= (vector-length #{x _hoQGWMnyQPAh3k2jhWJu@}#) + #{y -ANAU$bmvAmthP7L7xwplO}#)) + (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#) + (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#) 4) - (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 0) + (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0) 'syntax-object) #f) #f) - (if (vector? #{y _hoQGWMnyQPAh3k2jhWJvA}#) - (if (= (vector-length #{y _hoQGWMnyQPAh3k2jhWJvA}#) + (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#) + (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#) 4) - (eq? (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 0) + (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 1) - (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 1)) - (#{same-marks? _hoQGWMnyQPAh3k2jhWHTT}# - (car (vector-ref #{x _hoQGWMnyQPAh3k2jhWJu@}# 2)) - (car (vector-ref #{y _hoQGWMnyQPAh3k2jhWJvA}# 2))) + (if (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1) + (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1)) + (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# + (car (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 2)) + (car (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 2))) #f) - (eq? #{x _hoQGWMnyQPAh3k2jhWJu@}# - #{y _hoQGWMnyQPAh3k2jhWJvA}#))))) + (eq? #{x -ANAU$bmvAmthP7L7xwplN}# + #{y -ANAU$bmvAmthP7L7xwplO}#))))) (set! syntax-violation (lambda* - (#{who _hoQGWMnyQPAh3k2jhWJxF}# - #{message _hoQGWMnyQPAh3k2jhWJxG}# - #{form _hoQGWMnyQPAh3k2jhWJxH}# + (#{who -ANAU$bmvAmthP7L7xwpnT}# + #{message -ANAU$bmvAmthP7L7xwpnU}# + #{form -ANAU$bmvAmthP7L7xwpnV}# #:optional - (#{subform _hoQGWMnyQPAh3k2jhWJxI}# #f)) + (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f)) (begin - (if (not (if (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) - (not #{who _hoQGWMnyQPAh3k2jhWJxF}#) - (let ((#{t _hoQGWMnyQPAh3k2jhWJxa}# - (string? #{who _hoQGWMnyQPAh3k2jhWJxF}#))) - (if #{t _hoQGWMnyQPAh3k2jhWJxa}# - #{t _hoQGWMnyQPAh3k2jhWJxa}# - (symbol? #{who _hoQGWMnyQPAh3k2jhWJxF}#))))) + (if (not (if (not #{who -ANAU$bmvAmthP7L7xwpnT}#) + (not #{who -ANAU$bmvAmthP7L7xwpnT}#) + (let ((#{t -ANAU$bmvAmthP7L7xwpno}# + (string? #{who -ANAU$bmvAmthP7L7xwpnT}#))) + (if #{t -ANAU$bmvAmthP7L7xwpno}# + #{t -ANAU$bmvAmthP7L7xwpno}# + (symbol? #{who -ANAU$bmvAmthP7L7xwpnT}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who _hoQGWMnyQPAh3k2jhWJxF}#)) - (if (not (string? #{message _hoQGWMnyQPAh3k2jhWJxG}#)) + #{who -ANAU$bmvAmthP7L7xwpnT}#)) + (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message _hoQGWMnyQPAh3k2jhWJxG}#)) + #{message -ANAU$bmvAmthP7L7xwpnU}#)) (throw 'syntax-error - #{who _hoQGWMnyQPAh3k2jhWJxF}# - #{message _hoQGWMnyQPAh3k2jhWJxG}# - (#{source-annotation _hoQGWMnyQPAh3k2jhWHS6}# - (if #{form _hoQGWMnyQPAh3k2jhWJxH}# - #{form _hoQGWMnyQPAh3k2jhWJxH}# - #{subform _hoQGWMnyQPAh3k2jhWJxI}#)) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{form _hoQGWMnyQPAh3k2jhWJxH}# + #{who -ANAU$bmvAmthP7L7xwpnT}# + #{message -ANAU$bmvAmthP7L7xwpnU}# + (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# + (if #{form -ANAU$bmvAmthP7L7xwpnV}# + #{form -ANAU$bmvAmthP7L7xwpnV}# + #{subform -ANAU$bmvAmthP7L7xwpnW}#)) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{form -ANAU$bmvAmthP7L7xwpnV}# '(())) - (if #{subform _hoQGWMnyQPAh3k2jhWJxI}# - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{subform _hoQGWMnyQPAh3k2jhWJxI}# + (if #{subform -ANAU$bmvAmthP7L7xwpnW}# + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{subform -ANAU$bmvAmthP7L7xwpnW}# '(())) #f))))) (letrec* - ((#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9w}# - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# - #{mod _hoQGWMnyQPAh3k2jhWJ9z}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - (let ((#{first _hoQGWMnyQPAh3k2jhWJ90}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# + ((#{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}# + (lambda (#{id -ANAU$bmvAmthP7L7xwps5}#) + (begin + (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwps5}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwps5}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwps5}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1)) + #f)) + (syntax-violation + 'syntax-local-binding + "invalid argument" + #{id -ANAU$bmvAmthP7L7xwps5}#)) + ((fluid-ref + #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwpth}# + #{r -ANAU$bmvAmthP7L7xwpti}# + #{w -ANAU$bmvAmthP7L7xwptj}# + #{s -ANAU$bmvAmthP7L7xwptk}# + #{rib -ANAU$bmvAmthP7L7xwptl}# + #{mod -ANAU$bmvAmthP7L7xwptm}#) + (call-with-values + (lambda () + (let ((#{id -ANAU$bmvAmthP7L7xwptp}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1)) + (#{w -ANAU$bmvAmthP7L7xwptq}# + (let ((#{w -ANAU$bmvAmthP7L7xwpt1}# + (vector-ref + #{id -ANAU$bmvAmthP7L7xwps5}# + 2))) + (let ((#{ms -ANAU$bmvAmthP7L7xwpt2}# + (car #{w -ANAU$bmvAmthP7L7xwpt1}#)) + (#{s -ANAU$bmvAmthP7L7xwpt3}# + (cdr #{w -ANAU$bmvAmthP7L7xwpt1}#))) + (if (if (pair? #{ms -ANAU$bmvAmthP7L7xwpt2}#) + (eq? (car #{ms -ANAU$bmvAmthP7L7xwpt2}#) + #f) + #f) + (cons (cdr #{ms -ANAU$bmvAmthP7L7xwpt2}#) + (if #{rib -ANAU$bmvAmthP7L7xwptl}# + (cons #{rib -ANAU$bmvAmthP7L7xwptl}# + (cdr #{s -ANAU$bmvAmthP7L7xwpt3}#)) + (cdr #{s -ANAU$bmvAmthP7L7xwpt3}#))) + (cons #{ms -ANAU$bmvAmthP7L7xwpt2}# + (if #{rib -ANAU$bmvAmthP7L7xwptl}# + (cons #{rib -ANAU$bmvAmthP7L7xwptl}# + #{s -ANAU$bmvAmthP7L7xwpt3}#) + #{s -ANAU$bmvAmthP7L7xwpt3}#)))))) + (#{mod -ANAU$bmvAmthP7L7xwpts}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 3))) + (let ((#{n -ANAU$bmvAmthP7L7xwptv}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{id -ANAU$bmvAmthP7L7xwptp}# + #{w -ANAU$bmvAmthP7L7xwptq}#))) + (if (symbol? #{n -ANAU$bmvAmthP7L7xwptv}#) + (let ((#{mod -ANAU$bmvAmthP7L7xwpt9}# + (if (if (vector? + #{id -ANAU$bmvAmthP7L7xwptp}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwptp}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 3) + #{mod -ANAU$bmvAmthP7L7xwpts}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwpt$}# + (let ((#{t -ANAU$bmvAmthP7L7xwpt@}# + (#{get-global-definition-hook -ANAU$bmvAmthP7L7xwnM7}# + #{n -ANAU$bmvAmthP7L7xwptv}# + #{mod -ANAU$bmvAmthP7L7xwpt9}#))) + (if #{t -ANAU$bmvAmthP7L7xwpt@}# + #{t -ANAU$bmvAmthP7L7xwpt@}# + '(global))))) + (if (eq? (car #{b -ANAU$bmvAmthP7L7xwpt$}#) + 'global) + (values + 'global + #{n -ANAU$bmvAmthP7L7xwptv}# + #{mod -ANAU$bmvAmthP7L7xwpt9}#) + (values + (car #{b -ANAU$bmvAmthP7L7xwpt$}#) + (cdr #{b -ANAU$bmvAmthP7L7xwpt$}#) + #{mod -ANAU$bmvAmthP7L7xwpt9}#)))) + (if (string? #{n -ANAU$bmvAmthP7L7xwptv}#) + (let ((#{mod -ANAU$bmvAmthP7L7xwpuZ}# + (if (if (vector? + #{id -ANAU$bmvAmthP7L7xwptp}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwptp}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 0) + 'syntax-object) + #f) + #f) + (vector-ref + #{id -ANAU$bmvAmthP7L7xwptp}# + 3) + #{mod -ANAU$bmvAmthP7L7xwpts}#))) + (let ((#{b -ANAU$bmvAmthP7L7xwpua}# + (let ((#{t -ANAU$bmvAmthP7L7xwpub}# + (assq-ref + #{r -ANAU$bmvAmthP7L7xwpti}# + #{n -ANAU$bmvAmthP7L7xwptv}#))) + (if #{t -ANAU$bmvAmthP7L7xwpub}# + #{t -ANAU$bmvAmthP7L7xwpub}# + '(displaced-lexical))))) + (values + (car #{b -ANAU$bmvAmthP7L7xwpua}#) + (cdr #{b -ANAU$bmvAmthP7L7xwpua}#) + #{mod -ANAU$bmvAmthP7L7xwpuZ}#))) + (error "unexpected id-var-name" + #{id -ANAU$bmvAmthP7L7xwptp}# + #{w -ANAU$bmvAmthP7L7xwptq}# + #{n -ANAU$bmvAmthP7L7xwptv}#)))))) + (lambda (#{type -ANAU$bmvAmthP7L7xwpuo}# + #{value -ANAU$bmvAmthP7L7xwpup}# + #{mod -ANAU$bmvAmthP7L7xwpuq}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'lexical) + (values + 'lexical + #{value -ANAU$bmvAmthP7L7xwpup}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'macro) + (values 'macro #{value -ANAU$bmvAmthP7L7xwpup}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# 'syntax) + (values + 'pattern-variable + #{value -ANAU$bmvAmthP7L7xwpup}#) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# + 'displaced-lexical) + (values 'displaced-lexical #f) + (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# + 'global) + (values + 'global + (cons #{value -ANAU$bmvAmthP7L7xwpup}# + (cdr #{mod -ANAU$bmvAmthP7L7xwpuq}#))) + (values 'other #f))))))))))))) + (#{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}# + (lambda (#{id -ANAU$bmvAmthP7L7xwpu1}#) + (begin + (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpu1}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwpu1}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwpu1}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 1)) + #f)) + (syntax-violation + 'syntax-locally-bound-identifiers + "invalid argument" + #{id -ANAU$bmvAmthP7L7xwpu1}#)) + (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}# + (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 2) + (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 3)))))) + (begin + (define! + 'syntax-module + (lambda (#{id -ANAU$bmvAmthP7L7xwpq3}#) + (begin + (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpq3}#) + (if (= (vector-length + #{id -ANAU$bmvAmthP7L7xwpq3}#) + 4) + (eq? (vector-ref + #{id -ANAU$bmvAmthP7L7xwpq3}# + 0) + 'syntax-object) + #f) + #f) + (symbol? + (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 1)) + #f)) + (syntax-violation + 'syntax-module + "invalid argument" + #{id -ANAU$bmvAmthP7L7xwpq3}#)) + (cdr (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 3))))) + (define! + 'syntax-local-binding + #{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#) + (define! + 'syntax-locally-bound-identifiers + #{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#))) + (letrec* + ((#{match-each -ANAU$bmvAmthP7L7xwpwg}# + (lambda (#{e -ANAU$bmvAmthP7L7xwp5r}# + #{p -ANAU$bmvAmthP7L7xwp5s}# + #{w -ANAU$bmvAmthP7L7xwp5t}# + #{mod -ANAU$bmvAmthP7L7xwp5u}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwp5r}#) + (let ((#{first -ANAU$bmvAmthP7L7xwp5v}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwp5r}#) + #{p -ANAU$bmvAmthP7L7xwp5s}# + #{w -ANAU$bmvAmthP7L7xwp5t}# '() - #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) - (if #{first _hoQGWMnyQPAh3k2jhWJ90}# - (let ((#{rest _hoQGWMnyQPAh3k2jhWJ93}# - (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# - #{mod _hoQGWMnyQPAh3k2jhWJ9z}#))) - (if #{rest _hoQGWMnyQPAh3k2jhWJ93}# - (cons #{first _hoQGWMnyQPAh3k2jhWJ90}# - #{rest _hoQGWMnyQPAh3k2jhWJ93}#) + #{mod -ANAU$bmvAmthP7L7xwp5u}#))) + (if #{first -ANAU$bmvAmthP7L7xwp5v}# + (let ((#{rest -ANAU$bmvAmthP7L7xwp5y}# + (#{match-each -ANAU$bmvAmthP7L7xwpwg}# + (cdr #{e -ANAU$bmvAmthP7L7xwp5r}#) + #{p -ANAU$bmvAmthP7L7xwp5s}# + #{w -ANAU$bmvAmthP7L7xwp5t}# + #{mod -ANAU$bmvAmthP7L7xwp5u}#))) + (if #{rest -ANAU$bmvAmthP7L7xwp5y}# + (cons #{first -ANAU$bmvAmthP7L7xwp5v}# + #{rest -ANAU$bmvAmthP7L7xwp5y}#) #f)) #f)) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#) '() - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9w}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9w}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0) 'syntax-object) #f) #f) - (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 1) - #{p _hoQGWMnyQPAh3k2jhWJ9x}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ9y}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 2)) - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9w}# 3)) + (#{match-each -ANAU$bmvAmthP7L7xwpwg}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 1) + #{p -ANAU$bmvAmthP7L7xwp5s}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwp5t}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 2)) + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 3)) #f))))) - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ$T}# - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - (let ((#{l _hoQGWMnyQPAh3k2jhWJ$W}# - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#))) - (if #{l _hoQGWMnyQPAh3k2jhWJ$W}# - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - (car #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) - #{l _hoQGWMnyQPAh3k2jhWJ$W}#) + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + (lambda (#{e -ANAU$bmvAmthP7L7xwp6O}# + #{w -ANAU$bmvAmthP7L7xwp6P}# + #{mod -ANAU$bmvAmthP7L7xwp6Q}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwp6O}#) + (let ((#{l -ANAU$bmvAmthP7L7xwp6R}# + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + (cdr #{e -ANAU$bmvAmthP7L7xwp6O}#) + #{w -ANAU$bmvAmthP7L7xwp6P}# + #{mod -ANAU$bmvAmthP7L7xwp6Q}#))) + (if #{l -ANAU$bmvAmthP7L7xwp6R}# + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (car #{e -ANAU$bmvAmthP7L7xwp6O}#) + #{w -ANAU$bmvAmthP7L7xwp6P}# + #{mod -ANAU$bmvAmthP7L7xwp6Q}#) + #{l -ANAU$bmvAmthP7L7xwp6R}#) #f)) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#) '() - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ$T}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ$T}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0) 'syntax-object) #f) #f) - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 1) - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ$U}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ$T}# 2)) - #{mod _hoQGWMnyQPAh3k2jhWJ$V}#) + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 1) + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwp6P}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 2)) + #{mod -ANAU$bmvAmthP7L7xwp6Q}#) #f))))) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWJ$u}# - #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (if (null? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - #{r _hoQGWMnyQPAh3k2jhWJ$v}# - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# '_) - #{r _hoQGWMnyQPAh3k2jhWJ$v}# - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'any) - (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (car #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (cdr #{p _hoQGWMnyQPAh3k2jhWJ$u}#) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#)) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ$u}# 'each-any) - (cons '() #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 0))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# 'each) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (lambda (#{p -ANAU$bmvAmthP7L7xwp6p}# + #{r -ANAU$bmvAmthP7L7xwp6q}#) + (if (null? #{p -ANAU$bmvAmthP7L7xwp6p}#) + #{r -ANAU$bmvAmthP7L7xwp6q}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# '_) + #{r -ANAU$bmvAmthP7L7xwp6q}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'any) + (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#) + (if (pair? #{p -ANAU$bmvAmthP7L7xwp6p}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (car #{p -ANAU$bmvAmthP7L7xwp6p}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (cdr #{p -ANAU$bmvAmthP7L7xwp6p}#) + #{r -ANAU$bmvAmthP7L7xwp6q}#)) + (if (eq? #{p -ANAU$bmvAmthP7L7xwp6p}# 'each-any) + (cons '() #{r -ANAU$bmvAmthP7L7xwp6q}#) + (let ((#{atom-key -ANAU$bmvAmthP7L7xwp6r}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 0))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) + #{r -ANAU$bmvAmthP7L7xwp6q}#) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'each+) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# (reverse - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 2)) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 3) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#))) - (if (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 2)) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 3) + #{r -ANAU$bmvAmthP7L7xwp6q}#))) + (if (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'free-id) #t - (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'atom)) - #{r _hoQGWMnyQPAh3k2jhWJ$v}# - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ$w}# + #{r -ANAU$bmvAmthP7L7xwp6q}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# 'vector) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ$u}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ$v}#))))))))))))) - (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# - (lambda (#{r* _hoQGWMnyQPAh3k2jhWJ@D}# - #{r _hoQGWMnyQPAh3k2jhWJ@E}#) - (if (null? (car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#)) - #{r _hoQGWMnyQPAh3k2jhWJ@E}# - (cons (map car #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) - (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# - (map cdr #{r* _hoQGWMnyQPAh3k2jhWJ@D}#) - #{r _hoQGWMnyQPAh3k2jhWJ@E}#))))) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{p _hoQGWMnyQPAh3k2jhWJ1J}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) - (if (null? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) + #{r -ANAU$bmvAmthP7L7xwp6q}#))))))))))))) + (#{combine -ANAU$bmvAmthP7L7xwpwk}# + (lambda (#{r* -ANAU$bmvAmthP7L7xwp6$}# + #{r -ANAU$bmvAmthP7L7xwp6@}#) + (if (null? (car #{r* -ANAU$bmvAmthP7L7xwp6$}#)) + #{r -ANAU$bmvAmthP7L7xwp6@}# + (cons (map car #{r* -ANAU$bmvAmthP7L7xwp6$}#) + (#{combine -ANAU$bmvAmthP7L7xwpwk}# + (map cdr #{r* -ANAU$bmvAmthP7L7xwp6$}#) + #{r -ANAU$bmvAmthP7L7xwp6@}#))))) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + (lambda (#{e -ANAU$bmvAmthP7L7xwpxD}# + #{p -ANAU$bmvAmthP7L7xwpxE}# + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#) + (if (null? #{p -ANAU$bmvAmthP7L7xwpxE}#) + (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#) + #{r -ANAU$bmvAmthP7L7xwpxG}# #f) - (if (pair? #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (car #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (cdr #{p _hoQGWMnyQPAh3k2jhWJ1J}#) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + (if (pair? #{p -ANAU$bmvAmthP7L7xwpxE}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwpxD}#) + (car #{p -ANAU$bmvAmthP7L7xwpxE}#) + #{w -ANAU$bmvAmthP7L7xwpxF}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (cdr #{e -ANAU$bmvAmthP7L7xwpxD}#) + (cdr #{p -ANAU$bmvAmthP7L7xwpxE}#) + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#) + #{mod -ANAU$bmvAmthP7L7xwpxH}#) #f) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ1J}# 'each-any) - (let ((#{l _hoQGWMnyQPAh3k2jhWJ1R}# - (#{match-each-any _hoQGWMnyQPAh3k2jhWJ0n}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) - (if #{l _hoQGWMnyQPAh3k2jhWJ1R}# - (cons #{l _hoQGWMnyQPAh3k2jhWJ1R}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwpxE}# 'each-any) + (let ((#{l -ANAU$bmvAmthP7L7xwpxM}# + (#{match-each-any -ANAU$bmvAmthP7L7xwpwi}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) + (if #{l -ANAU$bmvAmthP7L7xwpxM}# + (cons #{l -ANAU$bmvAmthP7L7xwpxM}# + #{r -ANAU$bmvAmthP7L7xwpxG}#) #f)) - (let ((#{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 0))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each) - (if (null? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ1L}#) - (let ((#{l _hoQGWMnyQPAh3k2jhWJ1d}# - (#{match-each _hoQGWMnyQPAh3k2jhWJ0l}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) - (if #{l _hoQGWMnyQPAh3k2jhWJ1d}# + (let ((#{atom-key -ANAU$bmvAmthP7L7xwpxR}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 0))) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each) + (if (null? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + #{r -ANAU$bmvAmthP7L7xwpxG}#) + (let ((#{l -ANAU$bmvAmthP7L7xwpxY}# + (#{match-each -ANAU$bmvAmthP7L7xwpwg}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) + (if #{l -ANAU$bmvAmthP7L7xwpxY}# (letrec* - ((#{collect _hoQGWMnyQPAh3k2jhWJ1g}# - (lambda (#{l _hoQGWMnyQPAh3k2jhWJ2T}#) - (if (null? (car #{l _hoQGWMnyQPAh3k2jhWJ2T}#)) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + ((#{collect -ANAU$bmvAmthP7L7xwpxb}# + (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#) + (if (null? (car #{l -ANAU$bmvAmthP7L7xwpyO}#)) + #{r -ANAU$bmvAmthP7L7xwpxG}# (cons (map car - #{l _hoQGWMnyQPAh3k2jhWJ2T}#) - (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# + #{l -ANAU$bmvAmthP7L7xwpyO}#) + (#{collect -ANAU$bmvAmthP7L7xwpxb}# (map cdr - #{l _hoQGWMnyQPAh3k2jhWJ2T}#))))))) - (#{collect _hoQGWMnyQPAh3k2jhWJ1g}# - #{l _hoQGWMnyQPAh3k2jhWJ1d}#)) + #{l -ANAU$bmvAmthP7L7xwpyO}#))))))) + (#{collect -ANAU$bmvAmthP7L7xwpxb}# + #{l -ANAU$bmvAmthP7L7xwpxY}#)) #f))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'each+) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+) (call-with-values (lambda () - (let ((#{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# + (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 1)) - (#{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# + (#{y-pat -ANAU$bmvAmthP7L7xwpyY}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 2)) - (#{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# + (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 3))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWJ2i}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ2k}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}#) - (if (pair? #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + ((#{f -ANAU$bmvAmthP7L7xwpyd}# + (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}# + #{w -ANAU$bmvAmthP7L7xwpyg}#) + (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#) (call-with-values (lambda () - (#{f _hoQGWMnyQPAh3k2jhWJ2i}# - (cdr #{e _hoQGWMnyQPAh3k2jhWJ2k}#) - #{w _hoQGWMnyQPAh3k2jhWJ2l}#)) - (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ2m}# - #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# - #{r _hoQGWMnyQPAh3k2jhWJ2o}#) - (if #{r _hoQGWMnyQPAh3k2jhWJ2o}# - (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) - (let ((#{xr _hoQGWMnyQPAh3k2jhWJ2p}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) - #{x-pat _hoQGWMnyQPAh3k2jhWJ2c}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}# + (#{f -ANAU$bmvAmthP7L7xwpyd}# + (cdr #{e -ANAU$bmvAmthP7L7xwpyf}#) + #{w -ANAU$bmvAmthP7L7xwpyg}#)) + (lambda (#{xr* -ANAU$bmvAmthP7L7xwpyh}# + #{y-pat -ANAU$bmvAmthP7L7xwpyi}# + #{r -ANAU$bmvAmthP7L7xwpyj}#) + (if #{r -ANAU$bmvAmthP7L7xwpyj}# + (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpyi}#) + (let ((#{xr -ANAU$bmvAmthP7L7xwpyk}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwpyf}#) + #{x-pat -ANAU$bmvAmthP7L7xwpyX}# + #{w -ANAU$bmvAmthP7L7xwpyg}# '() - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) - (if #{xr _hoQGWMnyQPAh3k2jhWJ2p}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) + (if #{xr -ANAU$bmvAmthP7L7xwpyk}# (values - (cons #{xr _hoQGWMnyQPAh3k2jhWJ2p}# - #{xr* _hoQGWMnyQPAh3k2jhWJ2m}#) - #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}# - #{r _hoQGWMnyQPAh3k2jhWJ2o}#) + (cons #{xr -ANAU$bmvAmthP7L7xwpyk}# + #{xr* -ANAU$bmvAmthP7L7xwpyh}#) + #{y-pat -ANAU$bmvAmthP7L7xwpyi}# + #{r -ANAU$bmvAmthP7L7xwpyj}#) (values #f #f #f))) (values '() - (cdr #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (car #{e _hoQGWMnyQPAh3k2jhWJ2k}#) - (car #{y-pat _hoQGWMnyQPAh3k2jhWJ2n}#) - #{w _hoQGWMnyQPAh3k2jhWJ2l}# - #{r _hoQGWMnyQPAh3k2jhWJ2o}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))) + (cdr #{y-pat -ANAU$bmvAmthP7L7xwpyi}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (car #{e -ANAU$bmvAmthP7L7xwpyf}#) + (car #{y-pat -ANAU$bmvAmthP7L7xwpyi}#) + #{w -ANAU$bmvAmthP7L7xwpyg}# + #{r -ANAU$bmvAmthP7L7xwpyj}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))) (values #f #f #f)))) (if (if (vector? - #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{e -ANAU$bmvAmthP7L7xwpyf}#) (if (= (vector-length - #{e _hoQGWMnyQPAh3k2jhWJ2k}#) + #{e -ANAU$bmvAmthP7L7xwpyf}#) 4) (eq? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{e -ANAU$bmvAmthP7L7xwpyf}# 0) 'syntax-object) #f) #f) - (#{f _hoQGWMnyQPAh3k2jhWJ2i}# + (#{f -ANAU$bmvAmthP7L7xwpyd}# (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ2k}# + #{e -ANAU$bmvAmthP7L7xwpyf}# 1) - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}# - #{e _hoQGWMnyQPAh3k2jhWJ2k}#)) + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwpyg}# + #{e -ANAU$bmvAmthP7L7xwpyf}#)) (values '() - #{y-pat _hoQGWMnyQPAh3k2jhWJ2d}# - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - #{e _hoQGWMnyQPAh3k2jhWJ2k}# - #{z-pat _hoQGWMnyQPAh3k2jhWJ2e}# - #{w _hoQGWMnyQPAh3k2jhWJ2l}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWJ2i}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}#)))) - (lambda (#{xr* _hoQGWMnyQPAh3k2jhWJ3D}# - #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}# - #{r _hoQGWMnyQPAh3k2jhWJ3F}#) - (if #{r _hoQGWMnyQPAh3k2jhWJ3F}# - (if (null? #{y-pat _hoQGWMnyQPAh3k2jhWJ3E}#) - (if (null? #{xr* _hoQGWMnyQPAh3k2jhWJ3D}#) - (#{match-empty _hoQGWMnyQPAh3k2jhWJ0o}# + #{y-pat -ANAU$bmvAmthP7L7xwpyY}# + (#{match -ANAU$bmvAmthP7L7xwpwm}# + #{e -ANAU$bmvAmthP7L7xwpyf}# + #{z-pat -ANAU$bmvAmthP7L7xwpyZ}# + #{w -ANAU$bmvAmthP7L7xwpyg}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#))))))) + (#{f -ANAU$bmvAmthP7L7xwpyd}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}#)))) + (lambda (#{xr* -ANAU$bmvAmthP7L7xwpy$}# + #{y-pat -ANAU$bmvAmthP7L7xwpy@}# + #{r -ANAU$bmvAmthP7L7xwpzA}#) + (if #{r -ANAU$bmvAmthP7L7xwpzA}# + (if (null? #{y-pat -ANAU$bmvAmthP7L7xwpy@}#) + (if (null? #{xr* -ANAU$bmvAmthP7L7xwpy$}#) + (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 1) - #{r _hoQGWMnyQPAh3k2jhWJ3F}#) - (#{combine _hoQGWMnyQPAh3k2jhWJ0p}# - #{xr* _hoQGWMnyQPAh3k2jhWJ3D}# - #{r _hoQGWMnyQPAh3k2jhWJ3F}#)) + #{r -ANAU$bmvAmthP7L7xwpzA}#) + (#{combine -ANAU$bmvAmthP7L7xwpwk}# + #{xr* -ANAU$bmvAmthP7L7xwpy$}# + #{r -ANAU$bmvAmthP7L7xwpzA}#)) #f) #f))) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'free-id) - (if (if (symbol? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#) #t - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#) (if (= (vector-length - #{e _hoQGWMnyQPAh3k2jhWJ1I}#) + #{e -ANAU$bmvAmthP7L7xwpxD}#) 4) (eq? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{e -ANAU$bmvAmthP7L7xwpxD}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{e _hoQGWMnyQPAh3k2jhWJ1I}# + #{e -ANAU$bmvAmthP7L7xwpxD}# 1)) #f)) - (if (let ((#{i _hoQGWMnyQPAh3k2jhWJ8Q}# - (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#)) - (#{j _hoQGWMnyQPAh3k2jhWJ8R}# + (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}# + (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#)) + (#{j -ANAU$bmvAmthP7L7xwp4M}# (vector-ref - #{p _hoQGWMnyQPAh3k2jhWJ1J}# + #{p -ANAU$bmvAmthP7L7xwpxE}# 1))) (if (eq? (if (if (vector? - #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) + #{i -ANAU$bmvAmthP7L7xwp4L}#) (if (= (vector-length - #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) + #{i -ANAU$bmvAmthP7L7xwp4L}#) 4) (eq? (vector-ref - #{i _hoQGWMnyQPAh3k2jhWJ8Q}# + #{i -ANAU$bmvAmthP7L7xwp4L}# 0) 'syntax-object) #f) #f) (vector-ref - #{i _hoQGWMnyQPAh3k2jhWJ8Q}# + #{i -ANAU$bmvAmthP7L7xwp4L}# 1) - #{i _hoQGWMnyQPAh3k2jhWJ8Q}#) + #{i -ANAU$bmvAmthP7L7xwp4L}#) (if (if (vector? - #{j _hoQGWMnyQPAh3k2jhWJ8R}#) + #{j -ANAU$bmvAmthP7L7xwp4M}#) (if (= (vector-length - #{j _hoQGWMnyQPAh3k2jhWJ8R}#) + #{j -ANAU$bmvAmthP7L7xwp4M}#) 4) (eq? (vector-ref - #{j _hoQGWMnyQPAh3k2jhWJ8R}# + #{j -ANAU$bmvAmthP7L7xwp4M}# 0) 'syntax-object) #f) #f) (vector-ref - #{j _hoQGWMnyQPAh3k2jhWJ8R}# + #{j -ANAU$bmvAmthP7L7xwp4M}# 1) - #{j _hoQGWMnyQPAh3k2jhWJ8R}#)) - (eq? (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{i _hoQGWMnyQPAh3k2jhWJ8Q}# + #{j -ANAU$bmvAmthP7L7xwp4M}#)) + (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{i -ANAU$bmvAmthP7L7xwp4L}# '(())) - (#{id-var-name _hoQGWMnyQPAh3k2jhWHTU}# - #{j _hoQGWMnyQPAh3k2jhWJ8R}# + (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + #{j -ANAU$bmvAmthP7L7xwp4M}# '(()))) #f)) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + #{r -ANAU$bmvAmthP7L7xwpxG}# #f) #f) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# 'atom) + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom) (if (equal? - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - (#{strip _hoQGWMnyQPAh3k2jhWHTy}# - #{e _hoQGWMnyQPAh3k2jhWJ1I}# - #{w _hoQGWMnyQPAh3k2jhWJ1K}#)) - #{r _hoQGWMnyQPAh3k2jhWJ1L}# + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + (#{strip -ANAU$bmvAmthP7L7xwnOR}# + #{e -ANAU$bmvAmthP7L7xwpxD}# + #{w -ANAU$bmvAmthP7L7xwpxF}#)) + #{r -ANAU$bmvAmthP7L7xwpxG}# #f) - (if (eqv? #{atom-key _hoQGWMnyQPAh3k2jhWJ1W}# + (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'vector) - (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (vector->list #{e _hoQGWMnyQPAh3k2jhWJ1I}#) - (vector-ref #{p _hoQGWMnyQPAh3k2jhWJ1J}# 1) - #{w _hoQGWMnyQPAh3k2jhWJ1K}# - #{r _hoQGWMnyQPAh3k2jhWJ1L}# - #{mod _hoQGWMnyQPAh3k2jhWJ1M}#) + (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (vector->list #{e -ANAU$bmvAmthP7L7xwpxD}#) + (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) + #{w -ANAU$bmvAmthP7L7xwpxF}# + #{r -ANAU$bmvAmthP7L7xwpxG}# + #{mod -ANAU$bmvAmthP7L7xwpxH}#) #f)))))))))))) - (#{match _hoQGWMnyQPAh3k2jhWJ0r}# - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ9N}# - #{p _hoQGWMnyQPAh3k2jhWJ9O}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) - (if (not #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) + (#{match -ANAU$bmvAmthP7L7xwpwm}# + (lambda (#{e -ANAU$bmvAmthP7L7xwp5I}# + #{p -ANAU$bmvAmthP7L7xwp5J}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + #{r -ANAU$bmvAmthP7L7xwp5L}# + #{mod -ANAU$bmvAmthP7L7xwp5M}#) + (if (not #{r -ANAU$bmvAmthP7L7xwp5L}#) #f - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# '_) - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ9O}# 'any) - (cons (#{wrap _hoQGWMnyQPAh3k2jhWHTe}# - #{e _hoQGWMnyQPAh3k2jhWJ9N}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - #{mod _hoQGWMnyQPAh3k2jhWJ9R}#) - #{r _hoQGWMnyQPAh3k2jhWJ9Q}#) - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ9N}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ9N}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# '_) + #{r -ANAU$bmvAmthP7L7xwp5L}# + (if (eq? #{p -ANAU$bmvAmthP7L7xwp5J}# 'any) + (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e -ANAU$bmvAmthP7L7xwp5I}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + #{mod -ANAU$bmvAmthP7L7xwp5M}#) + #{r -ANAU$bmvAmthP7L7xwp5L}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5I}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5I}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 0) 'syntax-object) #f) #f) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 1) - #{p _hoQGWMnyQPAh3k2jhWJ9O}# - (#{join-wraps _hoQGWMnyQPAh3k2jhWHTR}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 2)) - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ9N}# 3)) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - #{e _hoQGWMnyQPAh3k2jhWJ9N}# - #{p _hoQGWMnyQPAh3k2jhWJ9O}# - #{w _hoQGWMnyQPAh3k2jhWJ9P}# - #{r _hoQGWMnyQPAh3k2jhWJ9Q}# - #{mod _hoQGWMnyQPAh3k2jhWJ9R}#)))))))) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 1) + #{p -ANAU$bmvAmthP7L7xwp5J}# + (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 2)) + #{r -ANAU$bmvAmthP7L7xwp5L}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwp5I}# 3)) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + #{e -ANAU$bmvAmthP7L7xwp5I}# + #{p -ANAU$bmvAmthP7L7xwp5J}# + #{w -ANAU$bmvAmthP7L7xwp5K}# + #{r -ANAU$bmvAmthP7L7xwp5L}# + #{mod -ANAU$bmvAmthP7L7xwp5M}#)))))))) (set! $sc-dispatch - (lambda (#{e _hoQGWMnyQPAh3k2jhWJ0s}# - #{p _hoQGWMnyQPAh3k2jhWJ0t}#) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# 'any) - (list #{e _hoQGWMnyQPAh3k2jhWJ0s}#) - (if (eq? #{p _hoQGWMnyQPAh3k2jhWJ0t}# '_) + (lambda (#{e -ANAU$bmvAmthP7L7xwpwn}# + #{p -ANAU$bmvAmthP7L7xwpwo}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# 'any) + (list #{e -ANAU$bmvAmthP7L7xwpwn}#) + (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# '_) '() - (if (if (vector? #{e _hoQGWMnyQPAh3k2jhWJ0s}#) - (if (= (vector-length #{e _hoQGWMnyQPAh3k2jhWJ0s}#) + (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#) + (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#) 4) - (eq? (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 0) + (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0) 'syntax-object) #f) #f) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 1) - #{p _hoQGWMnyQPAh3k2jhWJ0t}# - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 2) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1) + #{p -ANAU$bmvAmthP7L7xwpwo}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2) '() - (vector-ref #{e _hoQGWMnyQPAh3k2jhWJ0s}# 3)) - (#{match* _hoQGWMnyQPAh3k2jhWJ0q}# - #{e _hoQGWMnyQPAh3k2jhWJ0s}# - #{p _hoQGWMnyQPAh3k2jhWJ0t}# + (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3)) + (#{match* -ANAU$bmvAmthP7L7xwpwl}# + #{e -ANAU$bmvAmthP7L7xwpwn}# + #{p -ANAU$bmvAmthP7L7xwpwo}# '(()) '() #f)))))))))) @@ -23851,82 +23842,82 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMwo}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMwq}# + (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMwo}# + #{x -ANAU$bmvAmthP7L7xws3J}# '(_ () any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMwq}# + (if #{tmp -ANAU$bmvAmthP7L7xws3L}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWMwu}# - #{e2 _hoQGWMnyQPAh3k2jhWMwv}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}# + #{e2 -ANAU$bmvAmthP7L7xws3Q}#) (cons '#(syntax-object let ((top) - #(ribcage #(e1 e2) #((top) (top)) #("2zo" "2zp")) + #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMwu}# - #{e2 _hoQGWMnyQPAh3k2jhWMwv}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMwq}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMww}# + (cons #{e1 -ANAU$bmvAmthP7L7xws3P}# + #{e2 -ANAU$bmvAmthP7L7xws3Q}#)))) + #{tmp -ANAU$bmvAmthP7L7xws3L}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMwo}# + #{x -ANAU$bmvAmthP7L7xws3J}# '(_ ((any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMww}# + (if #{tmp -ANAU$bmvAmthP7L7xws3R}# (@apply - (lambda (#{out _hoQGWMnyQPAh3k2jhWMw0}# - #{in _hoQGWMnyQPAh3k2jhWMw1}# - #{e1 _hoQGWMnyQPAh3k2jhWMw2}# - #{e2 _hoQGWMnyQPAh3k2jhWMw3}#) + (lambda (#{out -ANAU$bmvAmthP7L7xws3V}# + #{in -ANAU$bmvAmthP7L7xws3W}# + #{e1 -ANAU$bmvAmthP7L7xws3X}# + #{e2 -ANAU$bmvAmthP7L7xws3Y}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zq" "2zr" "2zs" "2zt")) + #("1bl" "1bm" "1bn" "1bo")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) - #{in _hoQGWMnyQPAh3k2jhWMw1}# + #{in -ANAU$bmvAmthP7L7xws3W}# '() - (list #{out _hoQGWMnyQPAh3k2jhWMw0}# + (list #{out -ANAU$bmvAmthP7L7xws3V}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zq" "2zr" "2zs" "2zt")) + #("1bl" "1bm" "1bn" "1bo")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMw2}# - #{e2 _hoQGWMnyQPAh3k2jhWMw3}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMww}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMw4}# + (cons #{e1 -ANAU$bmvAmthP7L7xws3X}# + #{e2 -ANAU$bmvAmthP7L7xws3Y}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws3R}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMwo}# + #{x -ANAU$bmvAmthP7L7xws3J}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMw4}# + (if #{tmp -ANAU$bmvAmthP7L7xws3Z}# (@apply - (lambda (#{out _hoQGWMnyQPAh3k2jhWMw8}# - #{in _hoQGWMnyQPAh3k2jhWMw9}# - #{e1 _hoQGWMnyQPAh3k2jhWMw$}# - #{e2 _hoQGWMnyQPAh3k2jhWMw@}#) + (lambda (#{out -ANAU$bmvAmthP7L7xws3d}# + #{in -ANAU$bmvAmthP7L7xws3e}# + #{e1 -ANAU$bmvAmthP7L7xws3f}# + #{e2 -ANAU$bmvAmthP7L7xws3g}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zu" "2zv" "2zw" "2zx")) + #("1bp" "1bq" "1br" "1bs")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '#(syntax-object list @@ -23934,56 +23925,56 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zu" "2zv" "2zw" "2zx")) + #("1bp" "1bq" "1br" "1bs")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) - #{in _hoQGWMnyQPAh3k2jhWMw9}#) + #{in -ANAU$bmvAmthP7L7xws3e}#) '() - (list #{out _hoQGWMnyQPAh3k2jhWMw8}# + (list #{out -ANAU$bmvAmthP7L7xws3d}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("2zu" "2zv" "2zw" "2zx")) + #("1bp" "1bq" "1br" "1bs")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zn"))) + #(ribcage #(x) #((top)) #("1bi"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMw$}# - #{e2 _hoQGWMnyQPAh3k2jhWMw@}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMw4}#) + (cons #{e1 -ANAU$bmvAmthP7L7xws3f}# + #{e2 -ANAU$bmvAmthP7L7xws3g}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws3Z}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMwo}#)))))))))) + #{x -ANAU$bmvAmthP7L7xws3J}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMxm}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxo}# + (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMxm}# + #{x -ANAU$bmvAmthP7L7xws4H}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMxo}# + (if #{tmp -ANAU$bmvAmthP7L7xws4J}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMxs}# - #{keyword _hoQGWMnyQPAh3k2jhWMxt}# - #{pattern _hoQGWMnyQPAh3k2jhWMxu}# - #{template _hoQGWMnyQPAh3k2jhWMxv}#) + (lambda (#{k -ANAU$bmvAmthP7L7xws4N}# + #{keyword -ANAU$bmvAmthP7L7xws4O}# + #{pattern -ANAU$bmvAmthP7L7xws4P}# + #{template -ANAU$bmvAmthP7L7xws4Q}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) '(#(syntax-object x @@ -23991,9 +23982,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) (vector '(#(syntax-object @@ -24002,9 +23993,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) . #(syntax-object @@ -24013,9 +24004,9 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24023,20 +24014,20 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)) + #{pattern -ANAU$bmvAmthP7L7xws4P}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) (cons '#(syntax-object x @@ -24044,13 +24035,13 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("2zz" "300" "301" "302")) + #("1bu" "1bv" "1bw" "1bx")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - (cons #{k _hoQGWMnyQPAh3k2jhWMxs}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}# - #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) + (cons #{k -ANAU$bmvAmthP7L7xws4N}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}# + #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#) (list (cons '#(syntax-object dummy ((top) @@ -24063,10 +24054,10 @@ (top) (top) (top)) - #("2zz" - "300" - "301" - "302")) + #("1bu" + "1bv" + "1bw" + "1bx")) #(ribcage () () @@ -24074,9 +24065,9 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxV _hoQGWMnyQPAh3k2jhWMxx}#) + #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#) (list '#(syntax-object syntax ((top) @@ -24089,10 +24080,10 @@ (top) (top) (top)) - #("2zz" - "300" - "301" - "302")) + #("1bu" + "1bv" + "1bw" + "1bx")) #(ribcage () () @@ -24100,43 +24091,43 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxW _hoQGWMnyQPAh3k2jhWMxw}#))) - #{template _hoQGWMnyQPAh3k2jhWMxv}# - #{pattern _hoQGWMnyQPAh3k2jhWMxu}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMxo}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMxy}# + #{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#))) + #{template -ANAU$bmvAmthP7L7xws4Q}# + #{pattern -ANAU$bmvAmthP7L7xws4P}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws4J}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMxm}# + #{x -ANAU$bmvAmthP7L7xws4H}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMxy}# + (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMx2}# - #{docstring _hoQGWMnyQPAh3k2jhWMx3}# - #{keyword _hoQGWMnyQPAh3k2jhWMx4}# - #{pattern _hoQGWMnyQPAh3k2jhWMx5}# - #{template _hoQGWMnyQPAh3k2jhWMx6}#) + (lambda (#{k -ANAU$bmvAmthP7L7xws4X}# + #{docstring -ANAU$bmvAmthP7L7xws4Y}# + #{keyword -ANAU$bmvAmthP7L7xws4Z}# + #{pattern -ANAU$bmvAmthP7L7xws4a}# + #{template -ANAU$bmvAmthP7L7xws4b}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMx3}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) + #{docstring -ANAU$bmvAmthP7L7xws4Y}#))) + #{tmp -ANAU$bmvAmthP7L7xws4T}#) #f) (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWMx7}# - #{docstring _hoQGWMnyQPAh3k2jhWMx8}# - #{keyword _hoQGWMnyQPAh3k2jhWMx9}# - #{pattern _hoQGWMnyQPAh3k2jhWMx$}# - #{template _hoQGWMnyQPAh3k2jhWMx@}#) + (lambda (#{k -ANAU$bmvAmthP7L7xws4c}# + #{docstring -ANAU$bmvAmthP7L7xws4d}# + #{keyword -ANAU$bmvAmthP7L7xws4e}# + #{pattern -ANAU$bmvAmthP7L7xws4f}# + #{template -ANAU$bmvAmthP7L7xws4g}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) '(#(syntax-object x @@ -24144,11 +24135,11 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) - #{docstring _hoQGWMnyQPAh3k2jhWMx8}# + #{docstring -ANAU$bmvAmthP7L7xws4d}# (vector '(#(syntax-object macro-type @@ -24156,9 +24147,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) . #(syntax-object @@ -24167,9 +24158,9 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24177,20 +24168,20 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)) + #{pattern -ANAU$bmvAmthP7L7xws4f}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) (cons '#(syntax-object x @@ -24202,13 +24193,13 @@ pattern template) #((top) (top) (top) (top) (top)) - #("308" "309" "30a" "30b" "30c")) + #("1c3" "1c4" "1c5" "1c6" "1c7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("2zy"))) + #(ribcage #(x) #((top)) #("1bt"))) (hygiene guile)) - (cons #{k _hoQGWMnyQPAh3k2jhWMx7}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}# - #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) + (cons #{k -ANAU$bmvAmthP7L7xws4c}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}# + #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#) (list (cons '#(syntax-object dummy ((top) @@ -24223,11 +24214,11 @@ (top) (top) (top)) - #("308" - "309" - "30a" - "30b" - "30c")) + #("1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () @@ -24235,10 +24226,10 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxk _hoQGWMnyQPAh3k2jhWMyB}#) + #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#) (list '#(syntax-object syntax ((top) @@ -24253,11 +24244,11 @@ (top) (top) (top)) - #("308" - "309" - "30a" - "30b" - "30c")) + #("1c3" + "1c4" + "1c5" + "1c6" + "1c7")) #(ribcage () () @@ -24265,52 +24256,52 @@ #(ribcage #(x) #((top)) - #("2zy"))) + #("1bt"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWMxl _hoQGWMnyQPAh3k2jhWMyA}#))) - #{template _hoQGWMnyQPAh3k2jhWMx@}# - #{pattern _hoQGWMnyQPAh3k2jhWMx$}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWMxy}#) + #{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#))) + #{template -ANAU$bmvAmthP7L7xws4g}# + #{pattern -ANAU$bmvAmthP7L7xws4f}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws4T}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMxm}#)))))))) + #{x -ANAU$bmvAmthP7L7xws4H}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMya}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyc}# + (lambda (#{x -ANAU$bmvAmthP7L7xws47}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws49}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMya}# + #{x -ANAU$bmvAmthP7L7xws47}# '(_ (any . any) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMyc}# + (if #{tmp -ANAU$bmvAmthP7L7xws49}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWMyg}# - #{pattern _hoQGWMnyQPAh3k2jhWMyh}# - #{template _hoQGWMnyQPAh3k2jhWMyi}#) + (lambda (#{name -ANAU$bmvAmthP7L7xws5B}# + #{pattern -ANAU$bmvAmthP7L7xws5C}# + #{template -ANAU$bmvAmthP7L7xws5D}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30e" "30f" "30g")) + #("1c9" "1ca" "1cb")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) - #{name _hoQGWMnyQPAh3k2jhWMyg}# + #{name -ANAU$bmvAmthP7L7xws5B}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("30e" "30f" "30g")) + #("1c9" "1ca" "1cb")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -24319,56 +24310,56 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("30e" "30f" "30g")) + #("1c9" "1ca" "1cb")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMyh}#) - #{template _hoQGWMnyQPAh3k2jhWMyi}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMyc}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMyj}# + #{pattern -ANAU$bmvAmthP7L7xws5C}#) + #{template -ANAU$bmvAmthP7L7xws5D}#)))) + #{tmp -ANAU$bmvAmthP7L7xws49}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMya}# + #{x -ANAU$bmvAmthP7L7xws47}# '(_ (any . any) any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMyj}# + (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}# (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWMyn}# - #{pattern _hoQGWMnyQPAh3k2jhWMyo}# - #{docstring _hoQGWMnyQPAh3k2jhWMyp}# - #{template _hoQGWMnyQPAh3k2jhWMyq}#) + (lambda (#{name -ANAU$bmvAmthP7L7xws5I}# + #{pattern -ANAU$bmvAmthP7L7xws5J}# + #{docstring -ANAU$bmvAmthP7L7xws5K}# + #{template -ANAU$bmvAmthP7L7xws5L}#) (string? (syntax->datum - #{docstring _hoQGWMnyQPAh3k2jhWMyp}#))) - #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) + #{docstring -ANAU$bmvAmthP7L7xws5K}#))) + #{tmp -ANAU$bmvAmthP7L7xws5E}#) #f) (@apply - (lambda (#{name _hoQGWMnyQPAh3k2jhWMyr}# - #{pattern _hoQGWMnyQPAh3k2jhWMys}# - #{docstring _hoQGWMnyQPAh3k2jhWMyt}# - #{template _hoQGWMnyQPAh3k2jhWMyu}#) + (lambda (#{name -ANAU$bmvAmthP7L7xws5M}# + #{pattern -ANAU$bmvAmthP7L7xws5N}# + #{docstring -ANAU$bmvAmthP7L7xws5O}# + #{template -ANAU$bmvAmthP7L7xws5P}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30l" "30m" "30n" "30o")) + #("1cg" "1ch" "1ci" "1cj")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) - #{name _hoQGWMnyQPAh3k2jhWMyr}# + #{name -ANAU$bmvAmthP7L7xws5M}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("30l" "30m" "30n" "30o")) + #("1cg" "1ch" "1ci" "1cj")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30d"))) + #(ribcage #(x) #((top)) #("1c8"))) (hygiene guile)) '() - #{docstring _hoQGWMnyQPAh3k2jhWMyt}# + #{docstring -ANAU$bmvAmthP7L7xws5O}# (list (cons '#(syntax-object _ ((top) @@ -24378,52 +24369,52 @@ docstring template) #((top) (top) (top) (top)) - #("30l" "30m" "30n" "30o")) + #("1cg" "1ch" "1ci" "1cj")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("30d"))) + #("1c8"))) (hygiene guile)) - #{pattern _hoQGWMnyQPAh3k2jhWMys}#) - #{template _hoQGWMnyQPAh3k2jhWMyu}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMyj}#) + #{pattern -ANAU$bmvAmthP7L7xws5N}#) + #{template -ANAU$bmvAmthP7L7xws5P}#)))) + #{tmp -ANAU$bmvAmthP7L7xws5E}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMya}#)))))))) + #{x -ANAU$bmvAmthP7L7xws47}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWMzQ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzS}# + (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWMzQ}# + #{x -ANAU$bmvAmthP7L7xws5x}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWMzS}# + (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}# (@apply - (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzW}# - #{x _hoQGWMnyQPAh3k2jhWMzX}# - #{v _hoQGWMnyQPAh3k2jhWMzY}# - #{e1 _hoQGWMnyQPAh3k2jhWMzZ}# - #{e2 _hoQGWMnyQPAh3k2jhWMza}#) + (lambda (#{let* -ANAU$bmvAmthP7L7xws53}# + #{x -ANAU$bmvAmthP7L7xws54}# + #{v -ANAU$bmvAmthP7L7xws55}# + #{e1 -ANAU$bmvAmthP7L7xws56}# + #{e2 -ANAU$bmvAmthP7L7xws57}#) (and-map identifier? - #{x _hoQGWMnyQPAh3k2jhWMzX}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) + #{x -ANAU$bmvAmthP7L7xws54}#)) + #{tmp -ANAU$bmvAmthP7L7xws5z}#) #f) (@apply - (lambda (#{let* _hoQGWMnyQPAh3k2jhWMzb}# - #{x _hoQGWMnyQPAh3k2jhWMzc}# - #{v _hoQGWMnyQPAh3k2jhWMzd}# - #{e1 _hoQGWMnyQPAh3k2jhWMze}# - #{e2 _hoQGWMnyQPAh3k2jhWMzf}#) + (lambda (#{let* -ANAU$bmvAmthP7L7xws58}# + #{x -ANAU$bmvAmthP7L7xws59}# + #{v -ANAU$bmvAmthP7L7xws5$}# + #{e1 -ANAU$bmvAmthP7L7xws5@}# + #{e2 -ANAU$bmvAmthP7L7xws6A}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWMzg}# - (lambda (#{bindings _hoQGWMnyQPAh3k2jhWMzj}#) - (if (null? #{bindings _hoQGWMnyQPAh3k2jhWMzj}#) + ((#{f -ANAU$bmvAmthP7L7xws6B}# + (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#) + (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#) (cons '#(syntax-object let ((top) @@ -24431,29 +24422,29 @@ #(ribcage #(f bindings) #((top) (top)) - #("310" "311")) + #("1cv" "1cw")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30v" "30w" "30x" "30y" "30z")) + #("1cq" "1cr" "1cs" "1ct" "1cu")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30p"))) + #(ribcage #(x) #((top)) #("1ck"))) (hygiene guile)) (cons '() - (cons #{e1 _hoQGWMnyQPAh3k2jhWMze}# - #{e2 _hoQGWMnyQPAh3k2jhWMzf}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzk}# - (list (#{f _hoQGWMnyQPAh3k2jhWMzg}# - (cdr #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)) - (car #{bindings _hoQGWMnyQPAh3k2jhWMzj}#)))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWMzl}# + (cons #{e1 -ANAU$bmvAmthP7L7xws5@}# + #{e2 -ANAU$bmvAmthP7L7xws6A}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xws6F}# + (list (#{f -ANAU$bmvAmthP7L7xws6B}# + (cdr #{bindings -ANAU$bmvAmthP7L7xws6E}#)) + (car #{bindings -ANAU$bmvAmthP7L7xws6E}#)))) + (let ((#{tmp -ANAU$bmvAmthP7L7xws6G}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWMzk}# + #{tmp -ANAU$bmvAmthP7L7xws6F}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWMzl}# + (if #{tmp -ANAU$bmvAmthP7L7xws6G}# (@apply - (lambda (#{body _hoQGWMnyQPAh3k2jhWMzn}# - #{binding _hoQGWMnyQPAh3k2jhWMzo}#) + (lambda (#{body -ANAU$bmvAmthP7L7xws6I}# + #{binding -ANAU$bmvAmthP7L7xws6J}#) (list '#(syntax-object let ((top) @@ -24461,102 +24452,102 @@ #(ribcage #(body binding) #((top) (top)) - #("312" "313")) + #("1cx" "1cy")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("310" "311")) + #("1cv" "1cw")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("30v" "30w" "30x" "30y" "30z")) + #("1cq" "1cr" "1cs" "1ct" "1cu")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("30p"))) + #(ribcage #(x) #((top)) #("1ck"))) (hygiene guile)) - (list #{binding _hoQGWMnyQPAh3k2jhWMzo}#) - #{body _hoQGWMnyQPAh3k2jhWMzn}#)) - #{tmp _hoQGWMnyQPAh3k2jhWMzl}#) + (list #{binding -ANAU$bmvAmthP7L7xws6J}#) + #{body -ANAU$bmvAmthP7L7xws6I}#)) + #{tmp -ANAU$bmvAmthP7L7xws6G}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWMzk}#)))))))) - (#{f _hoQGWMnyQPAh3k2jhWMzg}# + #{tmp -ANAU$bmvAmthP7L7xws6F}#)))))))) + (#{f -ANAU$bmvAmthP7L7xws6B}# (map list - #{x _hoQGWMnyQPAh3k2jhWMzc}# - #{v _hoQGWMnyQPAh3k2jhWMzd}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWMzS}#) + #{x -ANAU$bmvAmthP7L7xws59}# + #{v -ANAU$bmvAmthP7L7xws5$}#)))) + #{tmp -ANAU$bmvAmthP7L7xws5z}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWMzQ}#)))))) + #{x -ANAU$bmvAmthP7L7xws5x}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x _hoQGWMnyQPAh3k2jhWM0U}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0W}# + (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws63}# ($sc-dispatch - #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# + #{orig-x -ANAU$bmvAmthP7L7xws61}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0W}# + (if #{tmp -ANAU$bmvAmthP7L7xws63}# (@apply - (lambda (#{var _hoQGWMnyQPAh3k2jhWM0a}# - #{init _hoQGWMnyQPAh3k2jhWM0b}# - #{step _hoQGWMnyQPAh3k2jhWM0c}# - #{e0 _hoQGWMnyQPAh3k2jhWM0d}# - #{e1 _hoQGWMnyQPAh3k2jhWM0e}# - #{c _hoQGWMnyQPAh3k2jhWM0f}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0g}# - (map (lambda (#{v _hoQGWMnyQPAh3k2jhWM0j}# - #{s _hoQGWMnyQPAh3k2jhWM0k}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0m}# + (lambda (#{var -ANAU$bmvAmthP7L7xws67}# + #{init -ANAU$bmvAmthP7L7xws68}# + #{step -ANAU$bmvAmthP7L7xws69}# + #{e0 -ANAU$bmvAmthP7L7xws6$}# + #{e1 -ANAU$bmvAmthP7L7xws6@}# + #{c -ANAU$bmvAmthP7L7xws7A}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7B}# + (map (lambda (#{v -ANAU$bmvAmthP7L7xws7E}# + #{s -ANAU$bmvAmthP7L7xws7F}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7H}# ($sc-dispatch - #{s _hoQGWMnyQPAh3k2jhWM0k}# + #{s -ANAU$bmvAmthP7L7xws7F}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0m}# + (if #{tmp -ANAU$bmvAmthP7L7xws7H}# (@apply - (lambda () #{v _hoQGWMnyQPAh3k2jhWM0j}#) - #{tmp _hoQGWMnyQPAh3k2jhWM0m}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0p}# + (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#) + #{tmp -ANAU$bmvAmthP7L7xws7H}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}# ($sc-dispatch - #{s _hoQGWMnyQPAh3k2jhWM0k}# + #{s -ANAU$bmvAmthP7L7xws7F}# '(any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0p}# + (if #{tmp -ANAU$bmvAmthP7L7xws7K}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWM0s}#) - #{e _hoQGWMnyQPAh3k2jhWM0s}#) - #{tmp _hoQGWMnyQPAh3k2jhWM0p}#) + (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#) + #{e -ANAU$bmvAmthP7L7xws7N}#) + #{tmp -ANAU$bmvAmthP7L7xws7K}#) (syntax-violation 'do "bad step expression" - #{orig-x _hoQGWMnyQPAh3k2jhWM0U}# - #{s _hoQGWMnyQPAh3k2jhWM0k}#)))))) - #{var _hoQGWMnyQPAh3k2jhWM0a}# - #{step _hoQGWMnyQPAh3k2jhWM0c}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM0h}# + #{orig-x -ANAU$bmvAmthP7L7xws61}# + #{s -ANAU$bmvAmthP7L7xws7F}#)))))) + #{var -ANAU$bmvAmthP7L7xws67}# + #{step -ANAU$bmvAmthP7L7xws69}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM0g}# + #{tmp -ANAU$bmvAmthP7L7xws7B}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM0h}# + (if #{tmp -ANAU$bmvAmthP7L7xws7C}# (@apply - (lambda (#{step _hoQGWMnyQPAh3k2jhWM0y}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM00}# + (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}# ($sc-dispatch - #{e1 _hoQGWMnyQPAh3k2jhWM0e}# + #{e1 -ANAU$bmvAmthP7L7xws6@}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM00}# + (if #{tmp -ANAU$bmvAmthP7L7xws7V}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("31b")) + #(ribcage #(step) #((top)) #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24565,23 +24556,23 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("31b")) + #(ribcage #(step) #((top)) #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24590,21 +24581,21 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (map list - #{var _hoQGWMnyQPAh3k2jhWM0a}# - #{init _hoQGWMnyQPAh3k2jhWM0b}#) + #{var -ANAU$bmvAmthP7L7xws67}# + #{init -ANAU$bmvAmthP7L7xws68}#) (list '#(syntax-object if ((top) @@ -24612,7 +24603,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24621,17 +24612,17 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (list '#(syntax-object not @@ -24640,7 +24631,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24654,19 +24645,19 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{e0 _hoQGWMnyQPAh3k2jhWM0d}#) + #{e0 -ANAU$bmvAmthP7L7xws6$}#) (cons '#(syntax-object begin ((top) @@ -24674,7 +24665,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24688,20 +24679,20 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (append - #{c _hoQGWMnyQPAh3k2jhWM0f}# + #{c -ANAU$bmvAmthP7L7xws7A}# (list (cons '#(syntax-object doloop ((top) @@ -24712,7 +24703,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24726,12 +24717,12 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () @@ -24739,31 +24730,31 @@ #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM00}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM04}# + #{step -ANAU$bmvAmthP7L7xws7T}#))))))) + #{tmp -ANAU$bmvAmthP7L7xws7V}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}# ($sc-dispatch - #{e1 _hoQGWMnyQPAh3k2jhWM0e}# + #{e1 -ANAU$bmvAmthP7L7xws6@}# '(any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM04}# + (if #{tmp -ANAU$bmvAmthP7L7xws7Z}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWM08}# - #{e2 _hoQGWMnyQPAh3k2jhWM09}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}# + #{e2 -ANAU$bmvAmthP7L7xws7e}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24772,17 +24763,17 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) '#(syntax-object doloop @@ -24790,12 +24781,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24804,33 +24795,33 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (map list - #{var _hoQGWMnyQPAh3k2jhWM0a}# - #{init _hoQGWMnyQPAh3k2jhWM0b}#) + #{var -ANAU$bmvAmthP7L7xws67}# + #{init -ANAU$bmvAmthP7L7xws68}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24839,31 +24830,31 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{e0 _hoQGWMnyQPAh3k2jhWM0d}# + #{e0 -ANAU$bmvAmthP7L7xws6$}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24877,32 +24868,32 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWM08}# - #{e2 _hoQGWMnyQPAh3k2jhWM09}#)) + (cons #{e1 -ANAU$bmvAmthP7L7xws7d}# + #{e2 -ANAU$bmvAmthP7L7xws7e}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("31c" "31d")) + #("1d7" "1d8")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24916,20 +24907,20 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) (append - #{c _hoQGWMnyQPAh3k2jhWM0f}# + #{c -ANAU$bmvAmthP7L7xws7A}# (list (cons '#(syntax-object doloop ((top) @@ -24938,8 +24929,8 @@ e2) #((top) (top)) - #("31c" - "31d")) + #("1d7" + "1d8")) #(ribcage () () @@ -24947,7 +24938,7 @@ #(ribcage #(step) #((top)) - #("31b")) + #("1d6")) #(ribcage #(var init @@ -24961,12 +24952,12 @@ (top) (top) (top)) - #("315" - "316" - "317" - "318" - "319" - "31a")) + #("1d0" + "1d1" + "1d2" + "1d3" + "1d4" + "1d5")) #(ribcage () () @@ -24974,43 +24965,43 @@ #(ribcage #(orig-x) #((top)) - #("314"))) + #("1cz"))) (hygiene guile)) - #{step _hoQGWMnyQPAh3k2jhWM0y}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM04}#) + #{step -ANAU$bmvAmthP7L7xws7T}#))))))) + #{tmp -ANAU$bmvAmthP7L7xws7Z}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 _hoQGWMnyQPAh3k2jhWM0e}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWM0h}#) + #{e1 -ANAU$bmvAmthP7L7xws6@}#)))))) + #{tmp -ANAU$bmvAmthP7L7xws7C}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM0g}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM0W}#) + #{tmp -ANAU$bmvAmthP7L7xws7B}#))))) + #{tmp -ANAU$bmvAmthP7L7xws63}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x _hoQGWMnyQPAh3k2jhWM0U}#)))))) + #{orig-x -ANAU$bmvAmthP7L7xws61}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWM4k}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4n}# + ((#{quasi -ANAU$bmvAmthP7L7xws$t}# + (lambda (#{p -ANAU$bmvAmthP7L7xws@F}# + #{lev -ANAU$bmvAmthP7L7xws@G}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@I}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25019,22 +25010,22 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM4n}# + (if #{tmp -ANAU$bmvAmthP7L7xws@I}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM4r}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) + (lambda (#{p -ANAU$bmvAmthP7L7xws@M}#) + (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("31r")) + #(ribcage #(p) #((top)) #("1dm")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25043,16 +25034,16 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) - #{p _hoQGWMnyQPAh3k2jhWM4r}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{p -ANAU$bmvAmthP7L7xws@M}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31r")) + #(ribcage #(p) #((top)) #("1dm")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25061,14 +25052,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31r")) + #(ribcage #(p) #((top)) #("1dm")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25077,15 +25068,15 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - (list #{p _hoQGWMnyQPAh3k2jhWM4r}#) - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM4n}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4u}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + (list #{p -ANAU$bmvAmthP7L7xws@M}#) + (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))))) + #{tmp -ANAU$bmvAmthP7L7xws@I}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@P}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '(#(free-id #(syntax-object quasiquote @@ -25094,7 +25085,7 @@ #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25103,19 +25094,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM4u}# + (if #{tmp -ANAU$bmvAmthP7L7xws@P}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM4y}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + (lambda (#{p -ANAU$bmvAmthP7L7xws@T}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31s")) + #(ribcage #(p) #((top)) #("1dn")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25124,14 +25115,14 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("31s")) + #(ribcage #(p) #((top)) #("1dn")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("31p" "31q")) + #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25140,23 +25131,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - (list #{p _hoQGWMnyQPAh3k2jhWM4y}#) - (#{1+}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM4u}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM41}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + (list #{p -ANAU$bmvAmthP7L7xws@T}#) + (#{1+}# #{lev -ANAU$bmvAmthP7L7xws@G}#)))) + #{tmp -ANAU$bmvAmthP7L7xws@P}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@W}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM41}# + (if #{tmp -ANAU$bmvAmthP7L7xws@W}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM45}# - #{q _hoQGWMnyQPAh3k2jhWM46}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM48}# + (lambda (#{p -ANAU$bmvAmthP7L7xws@a}# + #{q -ANAU$bmvAmthP7L7xws@b}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws@d}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM45}# + #{p -ANAU$bmvAmthP7L7xws@a}# '(#(free-id #(syntax-object unquote @@ -25164,12 +25155,12 @@ #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25184,38 +25175,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM48}# + (if #{tmp -ANAU$bmvAmthP7L7xws@d}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM5A}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) - (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#) + (lambda (#{p -ANAU$bmvAmthP7L7xws@h}#) + (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) + (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31v")) + #("1dq")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25230,34 +25221,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM1h _hoQGWMnyQPAh3k2jhWM5k}#)) - #{p _hoQGWMnyQPAh3k2jhWM5A}#) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#)) + #{p -ANAU$bmvAmthP7L7xws@h}#) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31v")) + #(ribcage #(p) #((top)) #("1dq")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25272,27 +25263,27 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("31v")) + #(ribcage #(p) #((top)) #("1dq")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25307,24 +25298,24 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM5A}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM48}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5p}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xws@h}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)))) + #{tmp -ANAU$bmvAmthP7L7xws@d}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAK}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM45}# + #{p -ANAU$bmvAmthP7L7xws@a}# '(#(free-id #(syntax-object unquote-splicing @@ -25332,12 +25323,12 @@ #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25352,38 +25343,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM5p}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAK}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM5t}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM4l}# 0) - (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#) + (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) + (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("31w")) + #("1dr")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25398,37 +25389,37 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM1l _hoQGWMnyQPAh3k2jhWM5w}#)) - #{p _hoQGWMnyQPAh3k2jhWM5t}#) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#)) + #{p -ANAU$bmvAmthP7L7xwtAO}#) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("31w")) + #("1dr")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25443,13 +25434,13 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -25457,16 +25448,16 @@ #(ribcage #(p) #((top)) - #("31w")) + #("1dr")) #(ribcage #(p q) #((top) (top)) - #("31t" "31u")) + #("1do" "1dp")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25481,59 +25472,59 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM5t}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM5p}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM45}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{q _hoQGWMnyQPAh3k2jhWM46}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM41}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM5$}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtAO}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtAK}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xws@a}# + #{lev -ANAU$bmvAmthP7L7xws@G}#) + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{q -ANAU$bmvAmthP7L7xws@b}# + #{lev -ANAU$bmvAmthP7L7xws@G}#))))))) + #{tmp -ANAU$bmvAmthP7L7xws@W}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAf}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM4k}# + #{p -ANAU$bmvAmthP7L7xws@F}# '#(vector each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM5$}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAf}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM6C}#) - (let ((#{x _hoQGWMnyQPAh3k2jhWM6F}# - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{x _hoQGWMnyQPAh3k2jhWM6C}# - #{lev _hoQGWMnyQPAh3k2jhWM4l}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6H}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#) + (let ((#{x -ANAU$bmvAmthP7L7xwtAm}# + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{x -ANAU$bmvAmthP7L7xwtAj}# + #{lev -ANAU$bmvAmthP7L7xws@G}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM6F}# + #{x -ANAU$bmvAmthP7L7xwtAm}# '(#(atom "quote") each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6H}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAo}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM6L}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("32s")) + #("1en")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25548,38 +25539,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) (list->vector - #{x _hoQGWMnyQPAh3k2jhWM6L}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM6H}#) + #{x -ANAU$bmvAmthP7L7xwtAs}#))) + #{tmp -ANAU$bmvAmthP7L7xwtAo}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWM6N}# - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6Z}# - #{k _hoQGWMnyQPAh3k2jhWM6a}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6c}# + ((#{f -ANAU$bmvAmthP7L7xwtAu}# + (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}# + #{k -ANAU$bmvAmthP7L7xwtA7}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtA9}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{y -ANAU$bmvAmthP7L7xwtA6}# '(#(atom "quote") each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6c}# + (if #{tmp -ANAU$bmvAmthP7L7xwtA9}# (@apply - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6f}#) - (#{k _hoQGWMnyQPAh3k2jhWM6a}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#) + (lambda (#{y -ANAU$bmvAmthP7L7xwtBA}#) + (#{k -ANAU$bmvAmthP7L7xwtA7}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("32z")) + #("1eu")) #(ribcage () () @@ -25591,13 +25582,13 @@ #((top) (top) (top)) - #("32u" - "32v" - "32w")) + #("1ep" + "1eq" + "1er")) #(ribcage #(_) #((top)) - #("32t")) + #("1eo")) #(ribcage () () @@ -25605,7 +25596,7 @@ #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25620,51 +25611,51 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM3A _hoQGWMnyQPAh3k2jhWM6g}#)) - #{y _hoQGWMnyQPAh3k2jhWM6f}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM6c}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6h}# + #{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)) + #{y -ANAU$bmvAmthP7L7xwtBA}#))) + #{tmp -ANAU$bmvAmthP7L7xwtA9}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBC}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{y -ANAU$bmvAmthP7L7xwtA6}# '(#(atom "list") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6h}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBC}# (@apply - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6k}#) - (#{k _hoQGWMnyQPAh3k2jhWM6a}# - #{y _hoQGWMnyQPAh3k2jhWM6k}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM6h}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6l}# + (lambda (#{y -ANAU$bmvAmthP7L7xwtBF}#) + (#{k -ANAU$bmvAmthP7L7xwtA7}# + #{y -ANAU$bmvAmthP7L7xwtBF}#)) + #{tmp -ANAU$bmvAmthP7L7xwtBC}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBG}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM6Z}# + #{y -ANAU$bmvAmthP7L7xwtA6}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6l}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBG}# (@apply - (lambda (#{y _hoQGWMnyQPAh3k2jhWM6o}# - #{z _hoQGWMnyQPAh3k2jhWM6p}#) - (#{f _hoQGWMnyQPAh3k2jhWM6N}# - #{z _hoQGWMnyQPAh3k2jhWM6p}# - (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6q}#) - (#{k _hoQGWMnyQPAh3k2jhWM6a}# + (lambda (#{y -ANAU$bmvAmthP7L7xwtBJ}# + #{z -ANAU$bmvAmthP7L7xwtBK}#) + (#{f -ANAU$bmvAmthP7L7xwtAu}# + #{z -ANAU$bmvAmthP7L7xwtBK}# + (lambda (#{ls -ANAU$bmvAmthP7L7xwtBL}#) + (#{k -ANAU$bmvAmthP7L7xwtA7}# (append - #{y _hoQGWMnyQPAh3k2jhWM6o}# - #{ls _hoQGWMnyQPAh3k2jhWM6q}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM6l}#) + #{y -ANAU$bmvAmthP7L7xwtBJ}# + #{ls -ANAU$bmvAmthP7L7xwtBL}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtBG}#) (list '#(syntax-object "list->vector" ((top) @@ -25673,14 +25664,14 @@ () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3K}#) - #((m_hoQGWMnyQPAh3k2jhWM3L + #(#{ g-ANAU$bmvAmthP7L7xws9r}#) + #((m-ANAU$bmvAmthP7L7xws9s top)) - #("335")) + #("1f0")) #(ribcage #(else) #((top)) - #("334")) + #("1ez")) #(ribcage () () @@ -25690,13 +25681,13 @@ #((top) (top) (top)) - #("32u" - "32v" - "32w")) + #("1ep" + "1eq" + "1er")) #(ribcage #(_) #((top)) - #("32t")) + #("1eo")) #(ribcage () () @@ -25704,7 +25695,7 @@ #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25719,26 +25710,26 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM6F}#)))))))))) - (#{f _hoQGWMnyQPAh3k2jhWM6N}# - #{x _hoQGWMnyQPAh3k2jhWM6F}# - (lambda (#{ls _hoQGWMnyQPAh3k2jhWM6P}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM6R}# + #{x -ANAU$bmvAmthP7L7xwtAm}#)))))))))) + (#{f -ANAU$bmvAmthP7L7xwtAu}# + #{x -ANAU$bmvAmthP7L7xwtAm}# + (lambda (#{ls -ANAU$bmvAmthP7L7xwtAw}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtAy}# ($sc-dispatch - #{ls _hoQGWMnyQPAh3k2jhWM6P}# + #{ls -ANAU$bmvAmthP7L7xwtAw}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM6R}# + (if #{tmp -ANAU$bmvAmthP7L7xwtAy}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#) (cons '#(syntax-object "vector" ((top) @@ -25747,10 +25738,10 @@ () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM22}#) - #((m_hoQGWMnyQPAh3k2jhWM23 + #(#{ g-ANAU$bmvAmthP7L7xws9X}#) + #((m-ANAU$bmvAmthP7L7xws9Y top)) - #("32y")) + #("1et")) #(ribcage () () @@ -25766,11 +25757,11 @@ #(ribcage #(ls) #((top)) - #("32x")) + #("1es")) #(ribcage #(_) #((top)) - #("32t")) + #("1eo")) #(ribcage () () @@ -25778,7 +25769,7 @@ #(ribcage #(x) #((top)) - #("32r")) + #("1em")) #(ribcage (emit quasivector quasilist* @@ -25793,30 +25784,30 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM22 _hoQGWMnyQPAh3k2jhWM6U}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM6R}#) + #{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)) + #{tmp -ANAU$bmvAmthP7L7xwtAy}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls _hoQGWMnyQPAh3k2jhWM6P}#)))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM5$}#) + #{ls -ANAU$bmvAmthP7L7xwtAw}#)))))))))) + #{tmp -ANAU$bmvAmthP7L7xwtAf}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("31z")) + #(ribcage #(p) #((top)) #("1du")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("31p" "31q")) + #("1dk" "1dl")) #(ribcage (emit quasivector quasilist* @@ -25831,29 +25822,29 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{p _hoQGWMnyQPAh3k2jhWM4k}#))))))))))) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - (lambda (#{p _hoQGWMnyQPAh3k2jhWM7G}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7J}# + #{p -ANAU$bmvAmthP7L7xws@F}#))))))))))) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM7G}# + #{p -ANAU$bmvAmthP7L7xwtBn}# '(any . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM7J}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBq}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM7N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7Q}# + (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}# + #{q -ANAU$bmvAmthP7L7xwtBv}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM7N}# + #{p -ANAU$bmvAmthP7L7xwtBu}# '(#(free-id #(syntax-object unquote @@ -25861,12 +25852,12 @@ #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -25881,38 +25872,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM7Q}# + (if #{tmp -ANAU$bmvAmthP7L7xwtBx}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM7U}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) - (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtB1}#) + (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0) + (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("324")) + #("1dz")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -25927,34 +25918,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM11 _hoQGWMnyQPAh3k2jhWM74}#)) - #{p _hoQGWMnyQPAh3k2jhWM7U}#) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#)) + #{p -ANAU$bmvAmthP7L7xwtB1}#) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("324")) + #(ribcage #(p) #((top)) #("1dz")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -25969,27 +25960,27 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("324")) + #(ribcage #(p) #((top)) #("1dz")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26004,24 +25995,24 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM7U}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM7Q}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM7@}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtB1}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#))) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtBx}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtCg}# ($sc-dispatch - #{p _hoQGWMnyQPAh3k2jhWM7N}# + #{p -ANAU$bmvAmthP7L7xwtBu}# '(#(free-id #(syntax-object unquote-splicing @@ -26029,12 +26020,12 @@ #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26049,38 +26040,38 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM7@}# + (if #{tmp -ANAU$bmvAmthP7L7xwtCg}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM8D}#) - (if (= #{lev _hoQGWMnyQPAh3k2jhWM7H}# 0) - (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# - (map (lambda (#{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtCk}#) + (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0) + (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# + (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("325")) + #("1e0")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26095,34 +26086,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWM15 _hoQGWMnyQPAh3k2jhWM8G}#)) - #{p _hoQGWMnyQPAh3k2jhWM8D}#) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# + #{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#)) + #{p -ANAU$bmvAmthP7L7xwtCk}#) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("325")) + #(ribcage #(p) #((top)) #("1e0")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26137,27 +26128,27 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("325")) + #(ribcage #(p) #((top)) #("1e0")) #(ribcage #(p q) #((top) (top)) - #("322" "323")) + #("1dx" "1dy")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("320" "321")) + #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26172,39 +26163,39 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile))) - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM8D}# - (#{1-}# #{lev _hoQGWMnyQPAh3k2jhWM7H}#))) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM7@}#) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{p _hoQGWMnyQPAh3k2jhWM7N}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#) - (#{vquasi _hoQGWMnyQPAh3k2jhWM4N}# - #{q _hoQGWMnyQPAh3k2jhWM7O}# - #{lev _hoQGWMnyQPAh3k2jhWM7H}#))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM7J}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8Y}# - ($sc-dispatch #{p _hoQGWMnyQPAh3k2jhWM7G}# '()))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8Y}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtCk}# + (#{1-}# #{lev -ANAU$bmvAmthP7L7xwtBo}#))) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtCg}#) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{p -ANAU$bmvAmthP7L7xwtBu}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#) + (#{vquasi -ANAU$bmvAmthP7L7xws$u}# + #{q -ANAU$bmvAmthP7L7xwtBv}# + #{lev -ANAU$bmvAmthP7L7xwtBo}#))))))) + #{tmp -ANAU$bmvAmthP7L7xwtBq}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtC5}# + ($sc-dispatch #{p -ANAU$bmvAmthP7L7xwtBn}# '()))) + (if #{tmp -ANAU$bmvAmthP7L7xwtC5}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("320" "321")) + #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw")) #(ribcage (emit quasivector quasilist* @@ -26213,64 +26204,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) ())) - #{tmp _hoQGWMnyQPAh3k2jhWM8Y}#) + #{tmp -ANAU$bmvAmthP7L7xwtC5}#) (syntax-violation #f "source expression failed to match any pattern" - #{p _hoQGWMnyQPAh3k2jhWM7G}#))))))) - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM8l}# - #{y _hoQGWMnyQPAh3k2jhWM8m}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8n}# - (list #{x _hoQGWMnyQPAh3k2jhWM8l}# - #{y _hoQGWMnyQPAh3k2jhWM8m}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8o}# + #{p -ANAU$bmvAmthP7L7xwtBn}#))))))) + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtDG}# + #{y -ANAU$bmvAmthP7L7xwtDH}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDI}# + (list #{x -ANAU$bmvAmthP7L7xwtDG}# + #{y -ANAU$bmvAmthP7L7xwtDH}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDJ}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM8n}# + #{tmp -ANAU$bmvAmthP7L7xwtDI}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8o}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM8q}# - #{y _hoQGWMnyQPAh3k2jhWM8r}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8t}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}# + #{y -ANAU$bmvAmthP7L7xwtDM}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM8r}# + #{y -ANAU$bmvAmthP7L7xwtDM}# '(#(atom "quote") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8t}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDO}# (@apply - (lambda (#{dy _hoQGWMnyQPAh3k2jhWM8x}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM8z}# + (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM8q}# + #{x -ANAU$bmvAmthP7L7xwtDL}# '(#(atom "quote") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM8z}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDU}# (@apply - (lambda (#{dx _hoQGWMnyQPAh3k2jhWM83}#) + (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("32c")) + #("1e7")) #(ribcage #(dy) #((top)) - #("32b")) + #("1e6")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26285,34 +26276,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - (cons #{dx _hoQGWMnyQPAh3k2jhWM83}# - #{dy _hoQGWMnyQPAh3k2jhWM8x}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM8z}#) - (if (null? #{dy _hoQGWMnyQPAh3k2jhWM8x}#) + (cons #{dx -ANAU$bmvAmthP7L7xwtDY}# + #{dy -ANAU$bmvAmthP7L7xwtDS}#))) + #{tmp -ANAU$bmvAmthP7L7xwtDU}#) + (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#) (list '#(syntax-object "list" ((top) - #(ribcage #(_) #((top)) #("32d")) - #(ribcage #(dy) #((top)) #("32b")) + #(ribcage #(_) #((top)) #("1e8")) + #(ribcage #(dy) #((top)) #("1e6")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26327,31 +26318,31 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM8q}#) + #{x -ANAU$bmvAmthP7L7xwtDL}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32d")) - #(ribcage #(dy) #((top)) #("32b")) + #(ribcage #(_) #((top)) #("1e8")) + #(ribcage #(dy) #((top)) #("1e6")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26366,42 +26357,42 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{y _hoQGWMnyQPAh3k2jhWM8r}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM8t}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM88}# + #{x -ANAU$bmvAmthP7L7xwtDL}# + #{y -ANAU$bmvAmthP7L7xwtDM}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtDO}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM8r}# + #{y -ANAU$bmvAmthP7L7xwtDM}# '(#(atom "list") . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM88}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDd}# (@apply - (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9A}#) + (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("32e")) + #("1e9")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26416,42 +26407,42 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{stuff _hoQGWMnyQPAh3k2jhWM9A}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM88}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9B}# + (cons #{x -ANAU$bmvAmthP7L7xwtDL}# + #{stuff -ANAU$bmvAmthP7L7xwtDh}#))) + #{tmp -ANAU$bmvAmthP7L7xwtDd}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM8r}# + #{y -ANAU$bmvAmthP7L7xwtDM}# '(#(atom "list*") . any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9B}# + (if #{tmp -ANAU$bmvAmthP7L7xwtDi}# (@apply - (lambda (#{stuff _hoQGWMnyQPAh3k2jhWM9F}#) + (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("32f")) + #("1ea")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26466,32 +26457,32 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - (cons #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{stuff _hoQGWMnyQPAh3k2jhWM9F}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM9B}#) + (cons #{x -ANAU$bmvAmthP7L7xwtDL}# + #{stuff -ANAU$bmvAmthP7L7xwtDm}#))) + #{tmp -ANAU$bmvAmthP7L7xwtDi}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("32g")) + #(ribcage #(_) #((top)) #("1eb")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("329" "32a")) + #("1e4" "1e5")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("327" "328")) + #("1e2" "1e3")) #(ribcage (emit quasivector quasilist* @@ -26506,37 +26497,37 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM8q}# - #{y _hoQGWMnyQPAh3k2jhWM8r}#)))))))) - #{tmp _hoQGWMnyQPAh3k2jhWM8o}#) + #{x -ANAU$bmvAmthP7L7xwtDL}# + #{y -ANAU$bmvAmthP7L7xwtDM}#)))))))) + #{tmp -ANAU$bmvAmthP7L7xwtDJ}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM8n}#)))))) - (#{quasiappend _hoQGWMnyQPAh3k2jhWM4P}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM9Q}# - #{y _hoQGWMnyQPAh3k2jhWM9R}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9T}# + #{tmp -ANAU$bmvAmthP7L7xwtDI}#)))))) + (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}# + #{y -ANAU$bmvAmthP7L7xwtDy}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}# ($sc-dispatch - #{y _hoQGWMnyQPAh3k2jhWM9R}# + #{y -ANAU$bmvAmthP7L7xwtDy}# '(#(atom "quote") ())))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9T}# + (if #{tmp -ANAU$bmvAmthP7L7xwtD0}# (@apply (lambda () - (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) + (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(x y) #((top) (top)) #("32h" "32i")) + #(ribcage #(x y) #((top) (top)) #("1ec" "1ed")) #(ribcage (emit quasivector quasilist* @@ -26545,28 +26536,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) ()) - (if (null? (cdr #{x _hoQGWMnyQPAh3k2jhWM9Q}#)) - (car #{x _hoQGWMnyQPAh3k2jhWM9Q}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9Y}# + (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#)) + (car #{x -ANAU$bmvAmthP7L7xwtDx}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM9Q}# + #{x -ANAU$bmvAmthP7L7xwtDx}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9Y}# + (if #{tmp -ANAU$bmvAmthP7L7xwtD5}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM9c}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("32j")) + #(ribcage #(p) #((top)) #("1ee")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32h" "32i")) + #("1ec" "1ed")) #(ribcage (emit quasivector quasilist* @@ -26581,34 +26572,34 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{p _hoQGWMnyQPAh3k2jhWM9c}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM9Y}#) + #{p -ANAU$bmvAmthP7L7xwtD9}#)) + #{tmp -ANAU$bmvAmthP7L7xwtD5}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWM9Q}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWM9T}#) - (if (null? #{x _hoQGWMnyQPAh3k2jhWM9Q}#) - #{y _hoQGWMnyQPAh3k2jhWM9R}# - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9k}# - (list #{x _hoQGWMnyQPAh3k2jhWM9Q}# - #{y _hoQGWMnyQPAh3k2jhWM9R}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM9l}# + #{x -ANAU$bmvAmthP7L7xwtDx}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwtD0}#) + (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#) + #{y -ANAU$bmvAmthP7L7xwtDy}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwtEF}# + (list #{x -ANAU$bmvAmthP7L7xwtDx}# + #{y -ANAU$bmvAmthP7L7xwtDy}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtEG}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM9k}# + #{tmp -ANAU$bmvAmthP7L7xwtEF}# '(each-any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM9l}# + (if #{tmp -ANAU$bmvAmthP7L7xwtEG}# (@apply - (lambda (#{p _hoQGWMnyQPAh3k2jhWM9n}# - #{y _hoQGWMnyQPAh3k2jhWM9o}#) + (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}# + #{y -ANAU$bmvAmthP7L7xwtEJ}#) (cons '#(syntax-object "append" ((top) @@ -26616,13 +26607,13 @@ #(ribcage #(p y) #((top) (top)) - #("32l" "32m")) - #(ribcage #(_) #((top)) #("32k")) + #("1eg" "1eh")) + #(ribcage #(_) #((top)) #("1ef")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("32h" "32i")) + #("1ec" "1ed")) #(ribcage (emit quasivector quasilist* @@ -26637,51 +26628,51 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) (append - #{p _hoQGWMnyQPAh3k2jhWM9n}# - (list #{y _hoQGWMnyQPAh3k2jhWM9o}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWM9l}#) + #{p -ANAU$bmvAmthP7L7xwtEI}# + (list #{y -ANAU$bmvAmthP7L7xwtEJ}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtEG}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM9k}#))))))))) - (#{quasilist* _hoQGWMnyQPAh3k2jhWM4Q}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM9s}# - #{y _hoQGWMnyQPAh3k2jhWM9t}#) + #{tmp -ANAU$bmvAmthP7L7xwtEF}#))))))))) + (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}# + #{y -ANAU$bmvAmthP7L7xwtEO}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWM9u}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@H}#) - (if (null? #{x _hoQGWMnyQPAh3k2jhWM@H}#) - #{y _hoQGWMnyQPAh3k2jhWM9t}# - (#{quasicons _hoQGWMnyQPAh3k2jhWM4O}# - (car #{x _hoQGWMnyQPAh3k2jhWM@H}#) - (#{f _hoQGWMnyQPAh3k2jhWM9u}# - (cdr #{x _hoQGWMnyQPAh3k2jhWM@H}#))))))) - (#{f _hoQGWMnyQPAh3k2jhWM9u}# - #{x _hoQGWMnyQPAh3k2jhWM9s}#)))) - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@K}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@M}# + ((#{f -ANAU$bmvAmthP7L7xwtEP}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtFo}#) + (if (null? #{x -ANAU$bmvAmthP7L7xwtFo}#) + #{y -ANAU$bmvAmthP7L7xwtEO}# + (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (car #{x -ANAU$bmvAmthP7L7xwtFo}#) + (#{f -ANAU$bmvAmthP7L7xwtEP}# + (cdr #{x -ANAU$bmvAmthP7L7xwtFo}#))))))) + (#{f -ANAU$bmvAmthP7L7xwtEP}# + #{x -ANAU$bmvAmthP7L7xwtEN}#)))) + (#{emit -ANAU$bmvAmthP7L7xws$z}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtFr}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtFt}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "quote") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@M}# + (if #{tmp -ANAU$bmvAmthP7L7xwtFt}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@Q}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("337")) + #(ribcage #(x) #((top)) #("1f2")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("336")) + #(ribcage #(x) #((top)) #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26690,38 +26681,38 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("31o" "31n" "31m" "31l" "31k" "31j" "31i"))) + ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) (hygiene guile)) - #{x _hoQGWMnyQPAh3k2jhWM@Q}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@M}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@R}# + #{x -ANAU$bmvAmthP7L7xwtFx}#)) + #{tmp -ANAU$bmvAmthP7L7xwtFt}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "list") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@R}# + (if #{tmp -ANAU$bmvAmthP7L7xwtFy}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@V}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@W}# - (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@V}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@X}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}# + (map #{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtF2}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@W}# + #{tmp -ANAU$bmvAmthP7L7xwtF3}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@X}# + (if #{tmp -ANAU$bmvAmthP7L7xwtF4}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3V}#) - #((m_hoQGWMnyQPAh3k2jhWM3W top)) - #("339")) - #(ribcage #(x) #((top)) #("338")) + #(#{ g-ANAU$bmvAmthP7L7xws92}#) + #((m-ANAU$bmvAmthP7L7xws93 top)) + #("1f4")) + #(ribcage #(x) #((top)) #("1f3")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("336")) + #(ribcage #(x) #((top)) #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26736,74 +26727,74 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM3V _hoQGWMnyQPAh3k2jhWM@Z}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@X}#) + #{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#)) + #{tmp -ANAU$bmvAmthP7L7xwtF4}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@W}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM@R}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@a}# + #{tmp -ANAU$bmvAmthP7L7xwtF3}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtFy}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@a}# + (if #{tmp -ANAU$bmvAmthP7L7xwtF7}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@e}# - #{y _hoQGWMnyQPAh3k2jhWM@f}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtF@}# + #{y -ANAU$bmvAmthP7L7xwtGA}#) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWM@g}# - (lambda (#{x* _hoQGWMnyQPAh3k2jhWM@j}#) - (if (null? #{x* _hoQGWMnyQPAh3k2jhWM@j}#) - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{y _hoQGWMnyQPAh3k2jhWM@f}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@k}# - (list (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - (car #{x* _hoQGWMnyQPAh3k2jhWM@j}#)) - (#{f _hoQGWMnyQPAh3k2jhWM@g}# - (cdr #{x* _hoQGWMnyQPAh3k2jhWM@j}#))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@l}# + ((#{f -ANAU$bmvAmthP7L7xwtGB}# + (lambda (#{x* -ANAU$bmvAmthP7L7xwtGE}#) + (if (null? #{x* -ANAU$bmvAmthP7L7xwtGE}#) + (#{emit -ANAU$bmvAmthP7L7xws$z}# + #{y -ANAU$bmvAmthP7L7xwtGA}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGF}# + (list (#{emit -ANAU$bmvAmthP7L7xws$z}# + (car #{x* -ANAU$bmvAmthP7L7xwtGE}#)) + (#{f -ANAU$bmvAmthP7L7xwtGB}# + (cdr #{x* -ANAU$bmvAmthP7L7xwtGE}#))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGG}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@k}# + #{tmp -ANAU$bmvAmthP7L7xwtGF}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@l}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGG}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# - #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}# + #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3k}# - #{ g_hoQGWMnyQPAh3k2jhWM3j}#) - #((m_hoQGWMnyQPAh3k2jhWM3l + #(#{ g-ANAU$bmvAmthP7L7xws$F}# + #{ g-ANAU$bmvAmthP7L7xws$E}#) + #((m-ANAU$bmvAmthP7L7xws$G top) - (m_hoQGWMnyQPAh3k2jhWM3l + (m-ANAU$bmvAmthP7L7xws$G top)) - #("33e" "33f")) + #("1f9" "1fa")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("33c" "33d")) + #("1f7" "1f8")) #(ribcage #(x y) #((top) (top)) - #("33a" "33b")) + #("1f5" "1f6")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26818,59 +26809,59 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM3k _hoQGWMnyQPAh3k2jhWM@n}# - #{ g_hoQGWMnyQPAh3k2jhWM3j _hoQGWMnyQPAh3k2jhWM@o}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@l}#) + #{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}# + #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)) + #{tmp -ANAU$bmvAmthP7L7xwtGG}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@k}#)))))))) - (#{f _hoQGWMnyQPAh3k2jhWM@g}# - #{x _hoQGWMnyQPAh3k2jhWM@e}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM@a}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@p}# + #{tmp -ANAU$bmvAmthP7L7xwtGF}#)))))))) + (#{f -ANAU$bmvAmthP7L7xwtGB}# + #{x -ANAU$bmvAmthP7L7xwtF@}#))) + #{tmp -ANAU$bmvAmthP7L7xwtF7}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "append") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@p}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGK}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@t}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@u}# - (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@t}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@v}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}# + (map #{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtGO}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@u}# + #{tmp -ANAU$bmvAmthP7L7xwtGP}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@v}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM3t}#) - #((m_hoQGWMnyQPAh3k2jhWM3u + #(#{ g-ANAU$bmvAmthP7L7xws$O}#) + #((m-ANAU$bmvAmthP7L7xws$P top)) - #("33h")) + #("1fc")) #(ribcage #(x) #((top)) - #("33g")) + #("1fb")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26885,56 +26876,56 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM3t _hoQGWMnyQPAh3k2jhWM@x}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@v}#) + #{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#)) + #{tmp -ANAU$bmvAmthP7L7xwtGQ}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@u}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM@p}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@y}# + #{tmp -ANAU$bmvAmthP7L7xwtGP}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtGK}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "vector") . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@y}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGT}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@2}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@3}# - (map #{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@2}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@4}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}# + (map #{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtGX}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWM@3}# + #{tmp -ANAU$bmvAmthP7L7xwtGY}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@4}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}# (@apply - (lambda (#{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#) + (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM33}#) - #((m_hoQGWMnyQPAh3k2jhWM34 + #(#{ g-ANAU$bmvAmthP7L7xws$Y}#) + #((m-ANAU$bmvAmthP7L7xws$Z top)) - #("33j")) + #("1fe")) #(ribcage #(x) #((top)) - #("33i")) + #("1fd")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -26949,49 +26940,49 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{ g_hoQGWMnyQPAh3k2jhWM33 _hoQGWMnyQPAh3k2jhWM@6}#)) - #{tmp _hoQGWMnyQPAh3k2jhWM@4}#) + #{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#)) + #{tmp -ANAU$bmvAmthP7L7xwtGZ}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWM@3}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWM@y}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM@7}# + #{tmp -ANAU$bmvAmthP7L7xwtGY}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtGT}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "list->vector") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM@7}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGc}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWM@@}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAA}# - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - #{x _hoQGWMnyQPAh3k2jhWM@@}#))) + (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}# + (#{emit -ANAU$bmvAmthP7L7xws$z}# + #{x -ANAU$bmvAmthP7L7xwtGg}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g_hoQGWMnyQPAh3k2jhWM4B}#) - #((m_hoQGWMnyQPAh3k2jhWM4C + #(#{ g-ANAU$bmvAmthP7L7xws$i}#) + #((m-ANAU$bmvAmthP7L7xws$j top)) - #("33l")) + #("1fg")) #(ribcage #(x) #((top)) - #("33k")) + #("1ff")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("336")) + #("1f1")) #(ribcage (emit quasivector quasilist* @@ -27006,218 +26997,218 @@ (top) (top) (top)) - ("31o" - "31n" - "31m" - "31l" - "31k" - "31j" - "31i"))) + ("1dj" + "1di" + "1dh" + "1dg" + "1df" + "1de" + "1dd"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWNAA}#))) - #{tmp _hoQGWMnyQPAh3k2jhWM@7}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNAD}# + #{tmp -ANAU$bmvAmthP7L7xwtGh}#))) + #{tmp -ANAU$bmvAmthP7L7xwtGc}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM@K}# + #{x -ANAU$bmvAmthP7L7xwtFr}# '(#(atom "value") any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNAD}# + (if #{tmp -ANAU$bmvAmthP7L7xwtGk}# (@apply - (lambda (#{x _hoQGWMnyQPAh3k2jhWNAH}#) - #{x _hoQGWMnyQPAh3k2jhWNAH}#) - #{tmp _hoQGWMnyQPAh3k2jhWNAD}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#) + #{x -ANAU$bmvAmthP7L7xwtGo}#) + #{tmp -ANAU$bmvAmthP7L7xwtGk}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWM@K}#)))))))))))))))))) - (lambda (#{x _hoQGWMnyQPAh3k2jhWM4T}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWM4V}# + #{x -ANAU$bmvAmthP7L7xwtFr}#)))))))))))))))))) + (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWM4T}# + #{x -ANAU$bmvAmthP7L7xws$0}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWM4V}# + (if #{tmp -ANAU$bmvAmthP7L7xws$2}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWM4Z}#) - (#{emit _hoQGWMnyQPAh3k2jhWM4S}# - (#{quasi _hoQGWMnyQPAh3k2jhWM4M}# - #{e _hoQGWMnyQPAh3k2jhWM4Z}# + (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#) + (#{emit -ANAU$bmvAmthP7L7xws$z}# + (#{quasi -ANAU$bmvAmthP7L7xws$t}# + #{e -ANAU$bmvAmthP7L7xws$6}# 0))) - #{tmp _hoQGWMnyQPAh3k2jhWM4V}#) + #{tmp -ANAU$bmvAmthP7L7xws$2}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWM4T}#))))))) + #{x -ANAU$bmvAmthP7L7xws$0}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNAy}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#) (letrec* - ((#{read-file _hoQGWMnyQPAh3k2jhWNAz}# - (lambda (#{fn _hoQGWMnyQPAh3k2jhWNCg}# - #{k _hoQGWMnyQPAh3k2jhWNCh}#) - (let ((#{p _hoQGWMnyQPAh3k2jhWNCi}# - (open-input-file #{fn _hoQGWMnyQPAh3k2jhWNCg}#))) + ((#{read-file -ANAU$bmvAmthP7L7xwtHU}# + (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}# + #{k -ANAU$bmvAmthP7L7xwtJC}#) + (let ((#{p -ANAU$bmvAmthP7L7xwtJD}# + (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#))) (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWNCj}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWNDZ}# - #{result _hoQGWMnyQPAh3k2jhWNDa}#) - (if (eof-object? #{x _hoQGWMnyQPAh3k2jhWNDZ}#) + ((#{f -ANAU$bmvAmthP7L7xwtJE}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}# + #{result -ANAU$bmvAmthP7L7xwtJ7}#) + (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#) (begin - (close-input-port #{p _hoQGWMnyQPAh3k2jhWNCi}#) - (reverse #{result _hoQGWMnyQPAh3k2jhWNDa}#)) - (#{f _hoQGWMnyQPAh3k2jhWNCj}# - (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) + (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#) + (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#)) + (#{f -ANAU$bmvAmthP7L7xwtJE}# + (read #{p -ANAU$bmvAmthP7L7xwtJD}#) (cons (datum->syntax - #{k _hoQGWMnyQPAh3k2jhWNCh}# - #{x _hoQGWMnyQPAh3k2jhWNDZ}#) - #{result _hoQGWMnyQPAh3k2jhWNDa}#)))))) - (#{f _hoQGWMnyQPAh3k2jhWNCj}# - (read #{p _hoQGWMnyQPAh3k2jhWNCi}#) + #{k -ANAU$bmvAmthP7L7xwtJC}# + #{x -ANAU$bmvAmthP7L7xwtJ6}#) + #{result -ANAU$bmvAmthP7L7xwtJ7}#)))))) + (#{f -ANAU$bmvAmthP7L7xwtJE}# + (read #{p -ANAU$bmvAmthP7L7xwtJD}#) '())))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA1}# + (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNAy}# + #{x -ANAU$bmvAmthP7L7xwtHT}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNA1}# + (if #{tmp -ANAU$bmvAmthP7L7xwtHW}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNA5}# - #{filename _hoQGWMnyQPAh3k2jhWNA6}#) - (let ((#{fn _hoQGWMnyQPAh3k2jhWNA7}# + (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}# + #{filename -ANAU$bmvAmthP7L7xwtHb}#) + (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}# (syntax->datum - #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA8}# - (#{read-file _hoQGWMnyQPAh3k2jhWNAz}# - #{fn _hoQGWMnyQPAh3k2jhWNA7}# - #{filename _hoQGWMnyQPAh3k2jhWNA6}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNA9}# + #{filename -ANAU$bmvAmthP7L7xwtHb}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}# + (#{read-file -ANAU$bmvAmthP7L7xwtHU}# + #{fn -ANAU$bmvAmthP7L7xwtHc}# + #{filename -ANAU$bmvAmthP7L7xwtHb}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}# ($sc-dispatch - #{tmp _hoQGWMnyQPAh3k2jhWNA8}# + #{tmp -ANAU$bmvAmthP7L7xwtHd}# 'each-any))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNA9}# + (if #{tmp -ANAU$bmvAmthP7L7xwtHe}# (@apply - (lambda (#{exp _hoQGWMnyQPAh3k2jhWNBP}#) + (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("340")) + #(ribcage #(exp) #((top)) #("1fv")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("33z")) + #(ribcage #(fn) #((top)) #("1fu")) #(ribcage #(k filename) #((top) (top)) - #("33x" "33y")) - #(ribcage (read-file) ((top)) ("33q")) - #(ribcage #(x) #((top)) #("33p"))) + #("1fs" "1ft")) + #(ribcage (read-file) ((top)) ("1fl")) + #(ribcage #(x) #((top)) #("1fk"))) (hygiene guile)) - #{exp _hoQGWMnyQPAh3k2jhWNBP}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNA9}#) + #{exp -ANAU$bmvAmthP7L7xwtHw}#)) + #{tmp -ANAU$bmvAmthP7L7xwtHe}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp _hoQGWMnyQPAh3k2jhWNA8}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWNA1}#) + #{tmp -ANAU$bmvAmthP7L7xwtHd}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwtHW}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNAy}#))))))) + #{x -ANAU$bmvAmthP7L7xwtHT}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNDn}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDp}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNDn}# + #{x -ANAU$bmvAmthP7L7xwtKI}# '(any any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNDp}# + (if #{tmp -ANAU$bmvAmthP7L7xwtKK}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNDt}# - #{filename _hoQGWMnyQPAh3k2jhWNDu}#) - (let ((#{fn _hoQGWMnyQPAh3k2jhWNDv}# + (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}# + #{filename -ANAU$bmvAmthP7L7xwtKP}#) + (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}# (syntax->datum - #{filename _hoQGWMnyQPAh3k2jhWNDu}#))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNDw}# + #{filename -ANAU$bmvAmthP7L7xwtKP}#))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}# (datum->syntax - #{filename _hoQGWMnyQPAh3k2jhWNDu}# - (let ((#{t _hoQGWMnyQPAh3k2jhWNDz}# + #{filename -ANAU$bmvAmthP7L7xwtKP}# + (let ((#{t -ANAU$bmvAmthP7L7xwtKU}# (%search-load-path - #{fn _hoQGWMnyQPAh3k2jhWNDv}#))) - (if #{t _hoQGWMnyQPAh3k2jhWNDz}# - #{t _hoQGWMnyQPAh3k2jhWNDz}# + #{fn -ANAU$bmvAmthP7L7xwtKQ}#))) + (if #{t -ANAU$bmvAmthP7L7xwtKU}# + #{t -ANAU$bmvAmthP7L7xwtKU}# (syntax-violation 'include-from-path "file not found in path" - #{x _hoQGWMnyQPAh3k2jhWNDn}# - #{filename _hoQGWMnyQPAh3k2jhWNDu}#)))))) + #{x -ANAU$bmvAmthP7L7xwtKI}# + #{filename -ANAU$bmvAmthP7L7xwtKP}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("345")) + #(ribcage #(fn) #((top)) #("1g0")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("344")) + #(ribcage #(fn) #((top)) #("1fz")) #(ribcage #(k filename) #((top) (top)) - #("342" "343")) + #("1fx" "1fy")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("341"))) + #(ribcage #(x) #((top)) #("1fw"))) (hygiene guile)) - #{tmp _hoQGWMnyQPAh3k2jhWNDw}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWNDp}#) + #{tmp -ANAU$bmvAmthP7L7xwtKR}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtKK}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNDn}#)))))) + #{x -ANAU$bmvAmthP7L7xwtKI}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWND7}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x _hoQGWMnyQPAh3k2jhWND7}#)))) + #{x -ANAU$bmvAmthP7L7xwtKc}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWND9}#) + (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x _hoQGWMnyQPAh3k2jhWND9}#)))) + #{x -ANAU$bmvAmthP7L7xwtKe}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNEi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEk}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNEi}# + #{x -ANAU$bmvAmthP7L7xwtLD}# '(_ any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNEk}# + (if #{tmp -ANAU$bmvAmthP7L7xwtLF}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWNEo}# - #{m1 _hoQGWMnyQPAh3k2jhWNEp}# - #{m2 _hoQGWMnyQPAh3k2jhWNEq}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNEr}# + (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}# + #{m1 -ANAU$bmvAmthP7L7xwtLK}# + #{m2 -ANAU$bmvAmthP7L7xwtLL}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}# (letrec* - ((#{f _hoQGWMnyQPAh3k2jhWNFV}# - (lambda (#{clause _hoQGWMnyQPAh3k2jhWNFY}# - #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) - (if (null? #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFb}# + ((#{f -ANAU$bmvAmthP7L7xwtL2}# + (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}# + #{clauses -ANAU$bmvAmthP7L7xwtL6}#) + (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}# ($sc-dispatch - #{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clause -ANAU$bmvAmthP7L7xwtL5}# '(#(free-id #(syntax-object else @@ -27226,79 +27217,79 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile))) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNFb}# + (if #{tmp -ANAU$bmvAmthP7L7xwtL8}# (@apply - (lambda (#{e1 _hoQGWMnyQPAh3k2jhWNFf}# - #{e2 _hoQGWMnyQPAh3k2jhWNFg}#) + (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}# + #{e2 -ANAU$bmvAmthP7L7xwtMB}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("34h" "34i")) + #("1gc" "1gd")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWNFf}# - #{e2 _hoQGWMnyQPAh3k2jhWNFg}#))) - #{tmp _hoQGWMnyQPAh3k2jhWNFb}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFh}# + (cons #{e1 -ANAU$bmvAmthP7L7xwtMA}# + #{e2 -ANAU$bmvAmthP7L7xwtMB}#))) + #{tmp -ANAU$bmvAmthP7L7xwtL8}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}# ($sc-dispatch - #{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clause -ANAU$bmvAmthP7L7xwtL5}# '(each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNFh}# + (if #{tmp -ANAU$bmvAmthP7L7xwtMC}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNFl}# - #{e1 _hoQGWMnyQPAh3k2jhWNFm}# - #{e2 _hoQGWMnyQPAh3k2jhWNFn}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}# + #{e1 -ANAU$bmvAmthP7L7xwtMH}# + #{e2 -ANAU$bmvAmthP7L7xwtMI}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34j" "34k" "34l")) + #("1ge" "1gf" "1gg")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object memv @@ -27308,9 +27299,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () ()) #(ribcage #(f @@ -27319,22 +27310,22 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) '#(syntax-object t @@ -27344,9 +27335,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () ()) #(ribcage #(f @@ -27355,22 +27346,22 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object quote @@ -27380,9 +27371,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () @@ -27394,17 +27385,17 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () @@ -27412,10 +27403,10 @@ #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - #{k _hoQGWMnyQPAh3k2jhWNFl}#)) + #{k -ANAU$bmvAmthP7L7xwtMG}#)) (cons '#(syntax-object begin ((top) @@ -27424,9 +27415,9 @@ #((top) (top) (top)) - #("34j" - "34k" - "34l")) + #("1ge" + "1gf" + "1gg")) #(ribcage () () ()) #(ribcage #(f @@ -27435,70 +27426,70 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWNFm}# - #{e2 _hoQGWMnyQPAh3k2jhWNFn}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWNFh}#) + (cons #{e1 -ANAU$bmvAmthP7L7xwtMH}# + #{e2 -ANAU$bmvAmthP7L7xwtMI}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtMC}#) (syntax-violation 'case "bad clause" - #{x _hoQGWMnyQPAh3k2jhWNEi}# - #{clause _hoQGWMnyQPAh3k2jhWNFY}#))))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFv}# - (#{f _hoQGWMnyQPAh3k2jhWNFV}# - (car #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#) - (cdr #{clauses _hoQGWMnyQPAh3k2jhWNFZ}#)))) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNFy}# + #{x -ANAU$bmvAmthP7L7xwtLD}# + #{clause -ANAU$bmvAmthP7L7xwtL5}#))))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtMQ}# + (#{f -ANAU$bmvAmthP7L7xwtL2}# + (car #{clauses -ANAU$bmvAmthP7L7xwtL6}#) + (cdr #{clauses -ANAU$bmvAmthP7L7xwtL6}#)))) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtMT}# ($sc-dispatch - #{clause _hoQGWMnyQPAh3k2jhWNFY}# + #{clause -ANAU$bmvAmthP7L7xwtL5}# '(each-any any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNFy}# + (if #{tmp -ANAU$bmvAmthP7L7xwtMT}# (@apply - (lambda (#{k _hoQGWMnyQPAh3k2jhWNF2}# - #{e1 _hoQGWMnyQPAh3k2jhWNF3}# - #{e2 _hoQGWMnyQPAh3k2jhWNF4}#) + (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}# + #{e1 -ANAU$bmvAmthP7L7xwtMY}# + #{e2 -ANAU$bmvAmthP7L7xwtMZ}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" "34p" "34q")) + #("1gj" "1gk" "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" "34f" "34g")) + #("1g9" "1ga" "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object memv @@ -27506,32 +27497,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) '#(syntax-object t @@ -27539,32 +27530,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) (list '#(syntax-object quote @@ -27574,9 +27565,9 @@ #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () @@ -27584,7 +27575,7 @@ #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () @@ -27596,17 +27587,17 @@ #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () @@ -27614,238 +27605,238 @@ #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - #{k _hoQGWMnyQPAh3k2jhWNF2}#)) + #{k -ANAU$bmvAmthP7L7xwtMX}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("34o" - "34p" - "34q")) + #("1gj" + "1gk" + "1gl")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("34n")) + #("1gi")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("34e" - "34f" - "34g")) + #("1g9" + "1ga" + "1gb")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" - "34b" - "34c")) + #("1g5" + "1g6" + "1g7")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("349"))) + #("1g4"))) (hygiene guile)) - (cons #{e1 _hoQGWMnyQPAh3k2jhWNF3}# - #{e2 _hoQGWMnyQPAh3k2jhWNF4}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNFv}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNFy}#) + (cons #{e1 -ANAU$bmvAmthP7L7xwtMY}# + #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)) + #{tmp -ANAU$bmvAmthP7L7xwtMQ}#)) + #{tmp -ANAU$bmvAmthP7L7xwtMT}#) (syntax-violation 'case "bad clause" - #{x _hoQGWMnyQPAh3k2jhWNEi}# - #{clause _hoQGWMnyQPAh3k2jhWNFY}#)))))))) - (#{f _hoQGWMnyQPAh3k2jhWNFV}# - #{m1 _hoQGWMnyQPAh3k2jhWNEp}# - #{m2 _hoQGWMnyQPAh3k2jhWNEq}#)))) - (let ((#{body _hoQGWMnyQPAh3k2jhWNEs}# - #{tmp _hoQGWMnyQPAh3k2jhWNEr}#)) + #{x -ANAU$bmvAmthP7L7xwtLD}# + #{clause -ANAU$bmvAmthP7L7xwtL5}#)))))))) + (#{f -ANAU$bmvAmthP7L7xwtL2}# + #{m1 -ANAU$bmvAmthP7L7xwtLK}# + #{m2 -ANAU$bmvAmthP7L7xwtLL}#)))) + (let ((#{body -ANAU$bmvAmthP7L7xwtLN}# + #{tmp -ANAU$bmvAmthP7L7xwtLM}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34d")) + #(ribcage #(body) #((top)) #("1g8")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("349"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("34d")) + #(ribcage #(body) #((top)) #("1g8")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("34a" "34b" "34c")) + #("1g5" "1g6" "1g7")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("349"))) + #(ribcage #(x) #((top)) #("1g4"))) (hygiene guile)) - #{e _hoQGWMnyQPAh3k2jhWNEo}#)) - #{body _hoQGWMnyQPAh3k2jhWNEs}#)))) - #{tmp _hoQGWMnyQPAh3k2jhWNEk}#) + #{e -ANAU$bmvAmthP7L7xwtLJ}#)) + #{body -ANAU$bmvAmthP7L7xwtLN}#)))) + #{tmp -ANAU$bmvAmthP7L7xwtLF}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNEi}#)))))) + #{x -ANAU$bmvAmthP7L7xwtLD}#)))))) (define make-variable-transformer - (lambda (#{proc _hoQGWMnyQPAh3k2jhWNGH}#) - (if (procedure? #{proc _hoQGWMnyQPAh3k2jhWNGH}#) + (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#) + (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#) (letrec* - ((#{trans _hoQGWMnyQPAh3k2jhWNGI}# - (lambda (#{x _hoQGWMnyQPAh3k2jhWNGO}#) - (#{proc _hoQGWMnyQPAh3k2jhWNGH}# - #{x _hoQGWMnyQPAh3k2jhWNGO}#)))) + ((#{trans -ANAU$bmvAmthP7L7xwtMp}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#) + (#{proc -ANAU$bmvAmthP7L7xwtMo}# + #{x -ANAU$bmvAmthP7L7xwtMv}#)))) (begin (set-procedure-property! - #{trans _hoQGWMnyQPAh3k2jhWNGI}# + #{trans -ANAU$bmvAmthP7L7xwtMp}# 'variable-transformer #t) - #{trans _hoQGWMnyQPAh3k2jhWNGI}#)) + #{trans -ANAU$bmvAmthP7L7xwtMp}#)) (error "variable transformer not a procedure" - #{proc _hoQGWMnyQPAh3k2jhWNGH}#)))) + #{proc -ANAU$bmvAmthP7L7xwtMo}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNGi}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGk}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNGi}# + #{x -ANAU$bmvAmthP7L7xwtND}# '(_ any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNGk}# + (if #{tmp -ANAU$bmvAmthP7L7xwtNF}# (@apply - (lambda (#{e _hoQGWMnyQPAh3k2jhWNGo}#) + (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) - #{e _hoQGWMnyQPAh3k2jhWNGo}#)) + #{e -ANAU$bmvAmthP7L7xwtNJ}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("34w")) + #(ribcage #(e) #((top)) #("1gr")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) - (cons #{e _hoQGWMnyQPAh3k2jhWNGo}# + (cons #{e -ANAU$bmvAmthP7L7xwtNJ}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("34w")) + #("1gr")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) #(syntax-object ... @@ -27853,55 +27844,55 @@ #(ribcage #(e) #((top)) - #("34w")) + #("1gr")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile))))))))) - #{tmp _hoQGWMnyQPAh3k2jhWNGk}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNGp}# + #{tmp -ANAU$bmvAmthP7L7xwtNF}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNGi}# + #{x -ANAU$bmvAmthP7L7xwtND}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) any any) any))))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWNGp}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNGt}# - #{exp1 _hoQGWMnyQPAh3k2jhWNGu}# - #{var _hoQGWMnyQPAh3k2jhWNGv}# - #{val _hoQGWMnyQPAh3k2jhWNGw}# - #{exp2 _hoQGWMnyQPAh3k2jhWNGx}#) - (if (identifier? #{id _hoQGWMnyQPAh3k2jhWNGt}#) - (identifier? #{var _hoQGWMnyQPAh3k2jhWNGv}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtNO}# + #{exp1 -ANAU$bmvAmthP7L7xwtNP}# + #{var -ANAU$bmvAmthP7L7xwtNQ}# + #{val -ANAU$bmvAmthP7L7xwtNR}# + #{exp2 -ANAU$bmvAmthP7L7xwtNS}#) + (if (identifier? #{id -ANAU$bmvAmthP7L7xwtNO}#) + (identifier? #{var -ANAU$bmvAmthP7L7xwtNQ}#) #f)) - #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) + #{tmp -ANAU$bmvAmthP7L7xwtNK}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNGy}# - #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# - #{var _hoQGWMnyQPAh3k2jhWNG0}# - #{val _hoQGWMnyQPAh3k2jhWNG1}# - #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtNT}# + #{exp1 -ANAU$bmvAmthP7L7xwtNU}# + #{var -ANAU$bmvAmthP7L7xwtNV}# + #{val -ANAU$bmvAmthP7L7xwtNW}# + #{exp2 -ANAU$bmvAmthP7L7xwtNX}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) (list '#(syntax-object lambda @@ -27909,9 +27900,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object x @@ -27919,9 +27910,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -27929,9 +27920,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) . #(syntax-object @@ -27940,9 +27931,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -27950,9 +27941,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '#(syntax-object x @@ -27960,9 +27951,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile)) '(#(syntax-object set! @@ -27970,9 +27961,9 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("352" "353" "354" "355" "356")) + #("1gx" "1gy" "1gz" "1h0" "1h1")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("34v"))) + #(ribcage #(x) #((top)) #("1gq"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -27984,19 +27975,19 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{var _hoQGWMnyQPAh3k2jhWNG0}# - #{val _hoQGWMnyQPAh3k2jhWNG1}#) + #{var -ANAU$bmvAmthP7L7xwtNV}# + #{val -ANAU$bmvAmthP7L7xwtNW}#) (list '#(syntax-object syntax ((top) @@ -28007,19 +27998,19 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{exp2 _hoQGWMnyQPAh3k2jhWNG2}#)) - (list (cons #{id _hoQGWMnyQPAh3k2jhWNGy}# + #{exp2 -ANAU$bmvAmthP7L7xwtNX}#)) + (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}# '(#(syntax-object x ((top) @@ -28030,16 +28021,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) #(syntax-object ... @@ -28051,16 +28042,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -28072,18 +28063,18 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - (cons #{exp1 _hoQGWMnyQPAh3k2jhWNGz}# + (cons #{exp1 -ANAU$bmvAmthP7L7xwtNU}# '(#(syntax-object x ((top) @@ -28098,16 +28089,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) #(syntax-object ... @@ -28123,18 +28114,18 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)))))) - (list #{id _hoQGWMnyQPAh3k2jhWNGy}# + (list #{id -ANAU$bmvAmthP7L7xwtNT}# (list '#(syntax-object identifier? ((top) @@ -28145,16 +28136,16 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) (list '#(syntax-object syntax @@ -28170,18 +28161,18 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{id _hoQGWMnyQPAh3k2jhWNGy}#)) + #{id -ANAU$bmvAmthP7L7xwtNT}#)) (list '#(syntax-object syntax ((top) @@ -28192,72 +28183,72 @@ (top) (top) (top)) - #("352" - "353" - "354" - "355" - "356")) + #("1gx" + "1gy" + "1gz" + "1h0" + "1h1")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("34v"))) + #("1gq"))) (hygiene guile)) - #{exp1 _hoQGWMnyQPAh3k2jhWNGz}#)))))) - #{tmp _hoQGWMnyQPAh3k2jhWNGp}#) + #{exp1 -ANAU$bmvAmthP7L7xwtNU}#)))))) + #{tmp -ANAU$bmvAmthP7L7xwtNK}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNGi}#)))))))) + #{x -ANAU$bmvAmthP7L7xwtND}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x _hoQGWMnyQPAh3k2jhWNHN}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHP}# + (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNHN}# + #{x -ANAU$bmvAmthP7L7xwtNu}# '(_ (any . any) any . each-any)))) - (if #{tmp _hoQGWMnyQPAh3k2jhWNHP}# + (if #{tmp -ANAU$bmvAmthP7L7xwtNw}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNHT}# - #{args _hoQGWMnyQPAh3k2jhWNHU}# - #{b0 _hoQGWMnyQPAh3k2jhWNHV}# - #{b1 _hoQGWMnyQPAh3k2jhWNHW}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtN0}# + #{args -ANAU$bmvAmthP7L7xwtN1}# + #{b0 -ANAU$bmvAmthP7L7xwtN2}# + #{b1 -ANAU$bmvAmthP7L7xwtN3}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("358" "359" "35a" "35b")) + #("1h3" "1h4" "1h5" "1h6")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)) - #{id _hoQGWMnyQPAh3k2jhWNHT}# + #{id -ANAU$bmvAmthP7L7xwtN0}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("358" "359" "35a" "35b")) + #("1h3" "1h4" "1h5" "1h6")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)) - (cons #{args _hoQGWMnyQPAh3k2jhWNHU}# - (cons #{b0 _hoQGWMnyQPAh3k2jhWNHV}# - #{b1 _hoQGWMnyQPAh3k2jhWNHW}#))))) - #{tmp _hoQGWMnyQPAh3k2jhWNHP}#) - (let ((#{tmp _hoQGWMnyQPAh3k2jhWNHX}# + (cons #{args -ANAU$bmvAmthP7L7xwtN1}# + (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}# + #{b1 -ANAU$bmvAmthP7L7xwtN3}#))))) + #{tmp -ANAU$bmvAmthP7L7xwtNw}#) + (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}# ($sc-dispatch - #{x _hoQGWMnyQPAh3k2jhWNHN}# + #{x -ANAU$bmvAmthP7L7xwtNu}# '(_ any any)))) - (if (if #{tmp _hoQGWMnyQPAh3k2jhWNHX}# + (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}# (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNHb}# - #{val _hoQGWMnyQPAh3k2jhWNHc}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}# + #{val -ANAU$bmvAmthP7L7xwtN9}#) (identifier? '#(syntax-object x @@ -28265,30 +28256,30 @@ #(ribcage #(id val) #((top) (top)) - #("35c" "35d")) + #("1h7" "1h8")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)))) - #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) + #{tmp -ANAU$bmvAmthP7L7xwtN4}#) #f) (@apply - (lambda (#{id _hoQGWMnyQPAh3k2jhWNHd}# - #{val _hoQGWMnyQPAh3k2jhWNHe}#) + (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}# + #{val -ANAU$bmvAmthP7L7xwtN@}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("35e" "35f")) + #("1h9" "1ha")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("357"))) + #(ribcage #(x) #((top)) #("1h2"))) (hygiene guile)) - #{id _hoQGWMnyQPAh3k2jhWNHd}# - #{val _hoQGWMnyQPAh3k2jhWNHe}#)) - #{tmp _hoQGWMnyQPAh3k2jhWNHX}#) + #{id -ANAU$bmvAmthP7L7xwtN$}# + #{val -ANAU$bmvAmthP7L7xwtN@}#)) + #{tmp -ANAU$bmvAmthP7L7xwtN4}#) (syntax-violation #f "source expression failed to match any pattern" - #{x _hoQGWMnyQPAh3k2jhWNHN}#)))))))) + #{x -ANAU$bmvAmthP7L7xwtNu}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 00cb54948..8220829ac 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -2525,44 +2525,6 @@ (set! syntax-source (lambda (x) (source-annotation x))) - (set! syntax-module - (lambda (id) - (arg-check nonsymbol-id? id 'syntax-module) - (cdr (syntax-object-module id)))) - - (set! syntax-local-binding - (lambda (id) - (arg-check nonsymbol-id? id 'syntax-local-binding) - (with-transformer-environment - (lambda (e r w s rib mod) - (define (strip-anti-mark w) - (let ((ms (wrap-marks w)) (s (wrap-subst w))) - (if (and (pair? ms) (eq? (car ms) the-anti-mark)) - ;; output is from original text - (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s))) - ;; output introduced by macro - (make-wrap ms (if rib (cons rib s) s))))) - (call-with-values (lambda () - (resolve-identifier - (syntax-object-expression id) - (strip-anti-mark (syntax-object-wrap id)) - r - (syntax-object-module id))) - (lambda (type value mod) - (case type - ((lexical) (values 'lexical value)) - ((macro) (values 'macro value)) - ((syntax) (values 'pattern-variable value)) - ((displaced-lexical) (values 'displaced-lexical #f)) - ((global) (values 'global (cons value (cdr mod)))) - (else (values 'other #f))))))))) - - (set! syntax-locally-bound-identifiers - (lambda (x) - (arg-check nonsymbol-id? x 'syntax-locally-bound-identifiers) - (locally-bound-identifiers (syntax-object-wrap x) - (syntax-object-module x)))) - (set! generate-temporaries (lambda (ls) (arg-check list? ls 'generate-temporaries) @@ -2591,6 +2553,50 @@ (strip form empty-wrap) (and subform (strip subform empty-wrap))))) + (let () + (define (syntax-module id) + (arg-check nonsymbol-id? id 'syntax-module) + (cdr (syntax-object-module id))) + + (define (syntax-local-binding id) + (arg-check nonsymbol-id? id 'syntax-local-binding) + (with-transformer-environment + (lambda (e r w s rib mod) + (define (strip-anti-mark w) + (let ((ms (wrap-marks w)) (s (wrap-subst w))) + (if (and (pair? ms) (eq? (car ms) the-anti-mark)) + ;; output is from original text + (make-wrap (cdr ms) (if rib (cons rib (cdr s)) (cdr s))) + ;; output introduced by macro + (make-wrap ms (if rib (cons rib s) s))))) + (call-with-values (lambda () + (resolve-identifier + (syntax-object-expression id) + (strip-anti-mark (syntax-object-wrap id)) + r + (syntax-object-module id))) + (lambda (type value mod) + (case type + ((lexical) (values 'lexical value)) + ((macro) (values 'macro value)) + ((syntax) (values 'pattern-variable value)) + ((displaced-lexical) (values 'displaced-lexical #f)) + ((global) (values 'global (cons value (cdr mod)))) + (else (values 'other #f)))))))) + + (define (syntax-locally-bound-identifiers id) + (arg-check nonsymbol-id? id 'syntax-locally-bound-identifiers) + (locally-bound-identifiers (syntax-object-wrap id) + (syntax-object-module id))) + + ;; Using define! instead of set! to avoid warnings at + ;; compile-time, after the variables are stolen away into (system + ;; syntax). See the end of boot-9.scm. + ;; + (define! 'syntax-module syntax-module) + (define! 'syntax-local-binding syntax-local-binding) + (define! 'syntax-locally-bound-identifiers syntax-locally-bound-identifiers)) + ;; $sc-dispatch expects an expression and a pattern. If the expression ;; matches the pattern a list of the matching expressions for each ;; "any" is returned. Otherwise, #f is returned. (This use of #f will From 40fb4e317b2a03a2b6ee0c7b7d0f1c37bed25d05 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 25 Jan 2012 22:35:29 +0100 Subject: [PATCH 03/32] Import Gnulib's `setenv' module, for MinGW. Reported by Eli Zaretskii . * m4/gnulib-cache.m4 (gl_MODULES): Add `setenv'. --- lib/Makefile.am | 11 +- lib/setenv.c | 390 +++++++++++++++++++++++++++++++++++++++++++++ m4/gnulib-cache.m4 | 3 +- m4/gnulib-comp.m4 | 8 + m4/setenv.m4 | 140 ++++++++++++++++ 5 files changed, 550 insertions(+), 2 deletions(-) create mode 100644 lib/setenv.c create mode 100644 m4/setenv.m4 diff --git a/lib/Makefile.am b/lib/Makefile.am index 3b9c07e1f..a4a996039 100644 --- a/lib/Makefile.am +++ b/lib/Makefile.am @@ -21,7 +21,7 @@ # the same distribution terms as the rest of that program. # # Generated by gnulib-tool. -# Reproduce by: gnulib-tool --import --dir=. --local-dir=gnulib-local --lib=libgnu --source-base=lib --m4-base=m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --lgpl=3 --no-conditional-dependencies --libtool --macro-prefix=gl --no-vc-files accept alignof alloca-opt announce-gen autobuild bind byteswap canonicalize-lgpl ceil close connect dirfd duplocale environ extensions flock floor fpieee frexp full-read full-write func gendocs getaddrinfo getpeername getsockname getsockopt git-version-gen gitlog-to-changelog gnu-web-doc-update gnupload havelib iconv_open-utf inet_ntop inet_pton isinf isnan ldexp lib-symbol-versions lib-symbol-visibility libunistring listen localcharset locale log1p maintainer-makefile malloc-gnu malloca nproc open pipe2 putenv recv recvfrom rename send sendto setsockopt shutdown socket stat-time stdlib strftime striconveh string sys_stat trunc verify vsnprintf warnings wchar +# Reproduce by: gnulib-tool --import --dir=. --local-dir=gnulib-local --lib=libgnu --source-base=lib --m4-base=m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --lgpl=3 --no-conditional-dependencies --libtool --macro-prefix=gl --no-vc-files accept alignof alloca-opt announce-gen autobuild bind byteswap canonicalize-lgpl ceil close connect dirfd duplocale environ extensions flock floor fpieee frexp full-read full-write func gendocs getaddrinfo getpeername getsockname getsockopt git-version-gen gitlog-to-changelog gnu-web-doc-update gnupload havelib iconv_open-utf inet_ntop inet_pton isinf isnan ldexp lib-symbol-versions lib-symbol-visibility libunistring listen localcharset locale log1p maintainer-makefile malloc-gnu malloca nproc open pipe2 putenv recv recvfrom rename send sendto setenv setsockopt shutdown socket stat-time stdlib strftime striconveh string sys_stat trunc verify vsnprintf warnings wchar AUTOMAKE_OPTIONS = 1.5 gnits subdir-objects @@ -1343,6 +1343,15 @@ EXTRA_libgnu_la_SOURCES += sendto.c ## end gnulib module sendto +## begin gnulib module setenv + + +EXTRA_DIST += setenv.c + +EXTRA_libgnu_la_SOURCES += setenv.c + +## end gnulib module setenv + ## begin gnulib module setsockopt diff --git a/lib/setenv.c b/lib/setenv.c new file mode 100644 index 000000000..75f423f49 --- /dev/null +++ b/lib/setenv.c @@ -0,0 +1,390 @@ +/* Copyright (C) 1992, 1995-2003, 2005-2012 Free Software Foundation, Inc. + This file is part of the GNU C Library. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU Lesser General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Lesser General Public License for more details. + + You should have received a copy of the GNU Lesser General Public License + along with this program. If not, see . */ + +#if !_LIBC +# define _GL_USE_STDLIB_ALLOC 1 +# include +#endif + +/* Don't use __attribute__ __nonnull__ in this compilation unit. Otherwise gcc + optimizes away the name == NULL test below. */ +#define _GL_ARG_NONNULL(params) + +#include + +/* Specification. */ +#include + +#include +#ifndef __set_errno +# define __set_errno(ev) ((errno) = (ev)) +#endif + +#include +#if _LIBC || HAVE_UNISTD_H +# include +#endif + +#if !_LIBC +# include "malloca.h" +#endif + +#if _LIBC || !HAVE_SETENV + +#if !_LIBC +# define __environ environ +#endif + +#if _LIBC +/* This lock protects against simultaneous modifications of 'environ'. */ +# include +__libc_lock_define_initialized (static, envlock) +# define LOCK __libc_lock_lock (envlock) +# define UNLOCK __libc_lock_unlock (envlock) +#else +# define LOCK +# define UNLOCK +#endif + +/* In the GNU C library we must keep the namespace clean. */ +#ifdef _LIBC +# define setenv __setenv +# define clearenv __clearenv +# define tfind __tfind +# define tsearch __tsearch +#endif + +/* In the GNU C library implementation we try to be more clever and + allow arbitrarily many changes of the environment given that the used + values are from a small set. Outside glibc this will eat up all + memory after a while. */ +#if defined _LIBC || (defined HAVE_SEARCH_H && defined HAVE_TSEARCH \ + && defined __GNUC__) +# define USE_TSEARCH 1 +# include +typedef int (*compar_fn_t) (const void *, const void *); + +/* This is a pointer to the root of the search tree with the known + values. */ +static void *known_values; + +# define KNOWN_VALUE(Str) \ + ({ \ + void *value = tfind (Str, &known_values, (compar_fn_t) strcmp); \ + value != NULL ? *(char **) value : NULL; \ + }) +# define STORE_VALUE(Str) \ + tsearch (Str, &known_values, (compar_fn_t) strcmp) + +#else +# undef USE_TSEARCH + +# define KNOWN_VALUE(Str) NULL +# define STORE_VALUE(Str) do { } while (0) + +#endif + + +/* If this variable is not a null pointer we allocated the current + environment. */ +static char **last_environ; + + +/* This function is used by 'setenv' and 'putenv'. The difference between + the two functions is that for the former must create a new string which + is then placed in the environment, while the argument of 'putenv' + must be used directly. This is all complicated by the fact that we try + to reuse values once generated for a 'setenv' call since we can never + free the strings. */ +int +__add_to_environ (const char *name, const char *value, const char *combined, + int replace) +{ + char **ep; + size_t size; + const size_t namelen = strlen (name); + const size_t vallen = value != NULL ? strlen (value) + 1 : 0; + + LOCK; + + /* We have to get the pointer now that we have the lock and not earlier + since another thread might have created a new environment. */ + ep = __environ; + + size = 0; + if (ep != NULL) + { + for (; *ep != NULL; ++ep) + if (!strncmp (*ep, name, namelen) && (*ep)[namelen] == '=') + break; + else + ++size; + } + + if (ep == NULL || *ep == NULL) + { + char **new_environ; +#ifdef USE_TSEARCH + char *new_value; +#endif + + /* We allocated this space; we can extend it. */ + new_environ = + (char **) (last_environ == NULL + ? malloc ((size + 2) * sizeof (char *)) + : realloc (last_environ, (size + 2) * sizeof (char *))); + if (new_environ == NULL) + { + /* It's easier to set errno to ENOMEM than to rely on the + 'malloc-posix' and 'realloc-posix' gnulib modules. */ + __set_errno (ENOMEM); + UNLOCK; + return -1; + } + + /* If the whole entry is given add it. */ + if (combined != NULL) + /* We must not add the string to the search tree since it belongs + to the user. */ + new_environ[size] = (char *) combined; + else + { + /* See whether the value is already known. */ +#ifdef USE_TSEARCH +# ifdef _LIBC + new_value = (char *) alloca (namelen + 1 + vallen); + __mempcpy (__mempcpy (__mempcpy (new_value, name, namelen), "=", 1), + value, vallen); +# else + new_value = (char *) malloca (namelen + 1 + vallen); + if (new_value == NULL) + { + __set_errno (ENOMEM); + UNLOCK; + return -1; + } + memcpy (new_value, name, namelen); + new_value[namelen] = '='; + memcpy (&new_value[namelen + 1], value, vallen); +# endif + + new_environ[size] = KNOWN_VALUE (new_value); + if (new_environ[size] == NULL) +#endif + { + new_environ[size] = (char *) malloc (namelen + 1 + vallen); + if (new_environ[size] == NULL) + { +#if defined USE_TSEARCH && !defined _LIBC + freea (new_value); +#endif + __set_errno (ENOMEM); + UNLOCK; + return -1; + } + +#ifdef USE_TSEARCH + memcpy (new_environ[size], new_value, namelen + 1 + vallen); +#else + memcpy (new_environ[size], name, namelen); + new_environ[size][namelen] = '='; + memcpy (&new_environ[size][namelen + 1], value, vallen); +#endif + /* And save the value now. We cannot do this when we remove + the string since then we cannot decide whether it is a + user string or not. */ + STORE_VALUE (new_environ[size]); + } +#if defined USE_TSEARCH && !defined _LIBC + freea (new_value); +#endif + } + + if (__environ != last_environ) + memcpy ((char *) new_environ, (char *) __environ, + size * sizeof (char *)); + + new_environ[size + 1] = NULL; + + last_environ = __environ = new_environ; + } + else if (replace) + { + char *np; + + /* Use the user string if given. */ + if (combined != NULL) + np = (char *) combined; + else + { +#ifdef USE_TSEARCH + char *new_value; +# ifdef _LIBC + new_value = alloca (namelen + 1 + vallen); + __mempcpy (__mempcpy (__mempcpy (new_value, name, namelen), "=", 1), + value, vallen); +# else + new_value = malloca (namelen + 1 + vallen); + if (new_value == NULL) + { + __set_errno (ENOMEM); + UNLOCK; + return -1; + } + memcpy (new_value, name, namelen); + new_value[namelen] = '='; + memcpy (&new_value[namelen + 1], value, vallen); +# endif + + np = KNOWN_VALUE (new_value); + if (np == NULL) +#endif + { + np = (char *) malloc (namelen + 1 + vallen); + if (np == NULL) + { +#if defined USE_TSEARCH && !defined _LIBC + freea (new_value); +#endif + __set_errno (ENOMEM); + UNLOCK; + return -1; + } + +#ifdef USE_TSEARCH + memcpy (np, new_value, namelen + 1 + vallen); +#else + memcpy (np, name, namelen); + np[namelen] = '='; + memcpy (&np[namelen + 1], value, vallen); +#endif + /* And remember the value. */ + STORE_VALUE (np); + } +#if defined USE_TSEARCH && !defined _LIBC + freea (new_value); +#endif + } + + *ep = np; + } + + UNLOCK; + + return 0; +} + +int +setenv (const char *name, const char *value, int replace) +{ + if (name == NULL || *name == '\0' || strchr (name, '=') != NULL) + { + __set_errno (EINVAL); + return -1; + } + + return __add_to_environ (name, value, NULL, replace); +} + +/* The 'clearenv' was planned to be added to POSIX.1 but probably + never made it. Nevertheless the POSIX.9 standard (POSIX bindings + for Fortran 77) requires this function. */ +int +clearenv (void) +{ + LOCK; + + if (__environ == last_environ && __environ != NULL) + { + /* We allocated this environment so we can free it. */ + free (__environ); + last_environ = NULL; + } + + /* Clear the environment pointer removes the whole environment. */ + __environ = NULL; + + UNLOCK; + + return 0; +} + +#ifdef _LIBC +static void +free_mem (void) +{ + /* Remove all traces. */ + clearenv (); + + /* Now remove the search tree. */ + __tdestroy (known_values, free); + known_values = NULL; +} +text_set_element (__libc_subfreeres, free_mem); + + +# undef setenv +# undef clearenv +weak_alias (__setenv, setenv) +weak_alias (__clearenv, clearenv) +#endif + +#endif /* _LIBC || !HAVE_SETENV */ + +/* The rest of this file is called into use when replacing an existing + but buggy setenv. Known bugs include failure to diagnose invalid + name, and consuming a leading '=' from value. */ +#if HAVE_SETENV + +# undef setenv +# if !HAVE_DECL_SETENV +extern int setenv (const char *, const char *, int); +# endif +# define STREQ(a, b) (strcmp (a, b) == 0) + +int +rpl_setenv (const char *name, const char *value, int replace) +{ + int result; + if (!name || !*name || strchr (name, '=')) + { + errno = EINVAL; + return -1; + } + /* Call the real setenv even if replace is 0, in case implementation + has underlying data to update, such as when environ changes. */ + result = setenv (name, value, replace); + if (result == 0 && replace && *value == '=') + { + char *tmp = getenv (name); + if (!STREQ (tmp, value)) + { + int saved_errno; + size_t len = strlen (value); + tmp = malloca (len + 2); + /* Since leading '=' is eaten, double it up. */ + *tmp = '='; + memcpy (tmp + 1, value, len + 1); + result = setenv (name, tmp, replace); + saved_errno = errno; + freea (tmp); + errno = saved_errno; + } + } + return result; +} + +#endif /* HAVE_SETENV */ diff --git a/m4/gnulib-cache.m4 b/m4/gnulib-cache.m4 index bea3e0824..5aa46aba6 100644 --- a/m4/gnulib-cache.m4 +++ b/m4/gnulib-cache.m4 @@ -27,7 +27,7 @@ # Specification in the form of a command-line invocation: -# gnulib-tool --import --dir=. --local-dir=gnulib-local --lib=libgnu --source-base=lib --m4-base=m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --lgpl=3 --no-conditional-dependencies --libtool --macro-prefix=gl --no-vc-files accept alignof alloca-opt announce-gen autobuild bind byteswap canonicalize-lgpl ceil close connect dirfd duplocale environ extensions flock floor fpieee frexp full-read full-write func gendocs getaddrinfo getpeername getsockname getsockopt git-version-gen gitlog-to-changelog gnu-web-doc-update gnupload havelib iconv_open-utf inet_ntop inet_pton isinf isnan ldexp lib-symbol-versions lib-symbol-visibility libunistring listen localcharset locale log1p maintainer-makefile malloc-gnu malloca nproc open pipe2 putenv recv recvfrom rename send sendto setsockopt shutdown socket stat-time stdlib strftime striconveh string sys_stat trunc verify vsnprintf warnings wchar +# gnulib-tool --import --dir=. --local-dir=gnulib-local --lib=libgnu --source-base=lib --m4-base=m4 --doc-base=doc --tests-base=tests --aux-dir=build-aux --lgpl=3 --no-conditional-dependencies --libtool --macro-prefix=gl --no-vc-files accept alignof alloca-opt announce-gen autobuild bind byteswap canonicalize-lgpl ceil close connect dirfd duplocale environ extensions flock floor fpieee frexp full-read full-write func gendocs getaddrinfo getpeername getsockname getsockopt git-version-gen gitlog-to-changelog gnu-web-doc-update gnupload havelib iconv_open-utf inet_ntop inet_pton isinf isnan ldexp lib-symbol-versions lib-symbol-visibility libunistring listen localcharset locale log1p maintainer-makefile malloc-gnu malloca nproc open pipe2 putenv recv recvfrom rename send sendto setenv setsockopt shutdown socket stat-time stdlib strftime striconveh string sys_stat trunc verify vsnprintf warnings wchar # Specification in the form of a few gnulib-tool.m4 macro invocations: gl_LOCAL_DIR([gnulib-local]) @@ -89,6 +89,7 @@ gl_MODULES([ rename send sendto + setenv setsockopt shutdown socket diff --git a/m4/gnulib-comp.m4 b/m4/gnulib-comp.m4 index 07f2ac3cf..9ec19f03d 100644 --- a/m4/gnulib-comp.m4 +++ b/m4/gnulib-comp.m4 @@ -149,6 +149,7 @@ AC_DEFUN([gl_EARLY], # Code from module send: # Code from module sendto: # Code from module servent: + # Code from module setenv: # Code from module setsockopt: # Code from module shutdown: # Code from module signal-h: @@ -523,6 +524,11 @@ if test "$ac_cv_header_winsock2_h" = yes; then fi gl_SYS_SOCKET_MODULE_INDICATOR([sendto]) gl_SERVENT +gl_FUNC_SETENV +if test $HAVE_SETENV = 0 || test $REPLACE_SETENV = 1; then + AC_LIBOBJ([setenv]) +fi +gl_STDLIB_MODULE_INDICATOR([setenv]) AC_REQUIRE([gl_HEADER_SYS_SOCKET]) if test "$ac_cv_header_winsock2_h" = yes; then AC_LIBOBJ([setsockopt]) @@ -886,6 +892,7 @@ AC_DEFUN([gl_FILE_LIST], [ lib/same-inode.h lib/send.c lib/sendto.c + lib/setenv.c lib/setsockopt.c lib/shutdown.c lib/signal.in.h @@ -1027,6 +1034,7 @@ AC_DEFUN([gl_FILE_LIST], [ m4/safe-read.m4 m4/safe-write.m4 m4/servent.m4 + m4/setenv.m4 m4/signal_h.m4 m4/size_max.m4 m4/snprintf.m4 diff --git a/m4/setenv.m4 b/m4/setenv.m4 new file mode 100644 index 000000000..a1f30bc47 --- /dev/null +++ b/m4/setenv.m4 @@ -0,0 +1,140 @@ +# setenv.m4 serial 25 +dnl Copyright (C) 2001-2004, 2006-2012 Free Software Foundation, Inc. +dnl This file is free software; the Free Software Foundation +dnl gives unlimited permission to copy and/or distribute it, +dnl with or without modifications, as long as this notice is preserved. + +AC_DEFUN([gl_FUNC_SETENV], +[ + AC_REQUIRE([gl_FUNC_SETENV_SEPARATE]) + if test $ac_cv_func_setenv = no; then + HAVE_SETENV=0 + else + AC_CACHE_CHECK([whether setenv validates arguments], + [gl_cv_func_setenv_works], + [AC_RUN_IFELSE([AC_LANG_PROGRAM([[ + #include + #include + #include + ]], [[ + int result = 0; + { + if (setenv ("", "", 0) != -1) + result |= 1; + else if (errno != EINVAL) + result |= 2; + } + { + if (setenv ("a", "=", 1) != 0) + result |= 4; + else if (strcmp (getenv ("a"), "=") != 0) + result |= 8; + } + return result; + ]])], + [gl_cv_func_setenv_works=yes], [gl_cv_func_setenv_works=no], + [gl_cv_func_setenv_works="guessing no"])]) + if test "$gl_cv_func_setenv_works" != yes; then + REPLACE_SETENV=1 + fi + fi +]) + +# Like gl_FUNC_SETENV, except prepare for separate compilation +# (no REPLACE_SETENV, no AC_LIBOBJ). +AC_DEFUN([gl_FUNC_SETENV_SEPARATE], +[ + AC_REQUIRE([gl_STDLIB_H_DEFAULTS]) + AC_CHECK_DECLS_ONCE([setenv]) + if test $ac_cv_have_decl_setenv = no; then + HAVE_DECL_SETENV=0 + fi + AC_CHECK_FUNCS_ONCE([setenv]) + gl_PREREQ_SETENV +]) + +AC_DEFUN([gl_FUNC_UNSETENV], +[ + AC_REQUIRE([gl_STDLIB_H_DEFAULTS]) + AC_CHECK_DECLS_ONCE([unsetenv]) + if test $ac_cv_have_decl_unsetenv = no; then + HAVE_DECL_UNSETENV=0 + fi + AC_CHECK_FUNCS([unsetenv]) + if test $ac_cv_func_unsetenv = no; then + HAVE_UNSETENV=0 + else + HAVE_UNSETENV=1 + dnl Some BSDs return void, failing to do error checking. + AC_CACHE_CHECK([for unsetenv() return type], [gt_cv_func_unsetenv_ret], + [AC_COMPILE_IFELSE( + [AC_LANG_PROGRAM( + [[ +#undef _BSD +#define _BSD 1 /* unhide unsetenv declaration in OSF/1 5.1 */ +#include +extern +#ifdef __cplusplus +"C" +#endif +int unsetenv (const char *name); + ]], + [[]])], + [gt_cv_func_unsetenv_ret='int'], + [gt_cv_func_unsetenv_ret='void'])]) + if test $gt_cv_func_unsetenv_ret = 'void'; then + AC_DEFINE([VOID_UNSETENV], [1], [Define to 1 if unsetenv returns void + instead of int.]) + REPLACE_UNSETENV=1 + fi + + dnl Solaris 10 unsetenv does not remove all copies of a name. + dnl Haiku alpha 2 unsetenv gets confused by assignment to environ. + dnl OpenBSD 4.7 unsetenv("") does not fail. + AC_CACHE_CHECK([whether unsetenv obeys POSIX], + [gl_cv_func_unsetenv_works], + [AC_RUN_IFELSE([AC_LANG_PROGRAM([[ + #include + #include + extern char **environ; + ]], [[ + char entry1[] = "a=1"; + char entry2[] = "b=2"; + char *env[] = { entry1, entry2, NULL }; + if (putenv ((char *) "a=1")) return 1; + if (putenv (entry2)) return 2; + entry2[0] = 'a'; + unsetenv ("a"); + if (getenv ("a")) return 3; + if (!unsetenv ("") || errno != EINVAL) return 4; + entry2[0] = 'b'; + environ = env; + if (!getenv ("a")) return 5; + entry2[0] = 'a'; + unsetenv ("a"); + if (getenv ("a")) return 6; + ]])], + [gl_cv_func_unsetenv_works=yes], [gl_cv_func_unsetenv_works=no], + [gl_cv_func_unsetenv_works="guessing no"])]) + if test "$gl_cv_func_unsetenv_works" != yes; then + REPLACE_UNSETENV=1 + fi + fi +]) + +# Prerequisites of lib/setenv.c. +AC_DEFUN([gl_PREREQ_SETENV], +[ + AC_REQUIRE([AC_FUNC_ALLOCA]) + AC_REQUIRE([gl_ENVIRON]) + AC_CHECK_HEADERS_ONCE([unistd.h]) + AC_CHECK_HEADERS([search.h]) + AC_CHECK_FUNCS([tsearch]) +]) + +# Prerequisites of lib/unsetenv.c. +AC_DEFUN([gl_PREREQ_UNSETENV], +[ + AC_REQUIRE([gl_ENVIRON]) + AC_CHECK_HEADERS_ONCE([unistd.h]) +]) From 60273407f92fdfe36c3ec09decfd92746bbb4f5e Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Jan 2012 00:35:46 +0100 Subject: [PATCH 04/32] Add warnings for unsupported `simple-format' options. * module/language/tree-il/analyze.scm (format-analysis)[check-simple-format-args]: New procedure. Use it. Add support for applications of . * module/system/base/message.scm (%warning-types): Handle the `format simple-format' warning. * module/language/scheme/spec.scm (scheme)[make-default-environment]: Use `simple-format' as the default `format'. * test-suite/tests/tree-il.test ("warnings")["format"]: Explicitly use (@ (ice-9 format) format) where needed. ("simple-format"): New test prefix. --- module/language/scheme/spec.scm | 9 +++- module/language/tree-il/analyze.scm | 47 +++++++++++++++-- module/system/base/message.scm | 6 ++- test-suite/tests/tree-il.test | 81 ++++++++++++++++++++--------- 4 files changed, 112 insertions(+), 31 deletions(-) diff --git a/module/language/scheme/spec.scm b/module/language/scheme/spec.scm index 0df4171ff..e4cf55c4c 100644 --- a/module/language/scheme/spec.scm +++ b/module/language/scheme/spec.scm @@ -1,6 +1,6 @@ ;;; Guile Scheme specification -;; Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -53,4 +53,11 @@ ;; compile-time changes to `current-reader' are ;; limited to the current compilation unit. (module-define! m 'current-reader (make-fluid)) + + ;; Default to `simple-format', as is the case until + ;; (ice-9 format) is loaded. This allows + ;; compile-time warnings to be emitted when using + ;; unsupported options. + (module-set! m 'format simple-format) + m))) diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm index 047019049..efe03789f 100644 --- a/module/language/tree-il/analyze.scm +++ b/module/language/tree-il/analyze.scm @@ -22,6 +22,7 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-9) #:use-module (srfi srfi-11) + #:use-module (srfi srfi-26) #:use-module (ice-9 vlist) #:use-module (ice-9 match) #:use-module (system base syntax) @@ -1397,6 +1398,36 @@ accurate information is missing from a given `tree-il' element." (else (warning 'format loc 'wrong-num-args (length args))))) + (define (check-simple-format-args args loc) + ;; Check the arguments to the `simple-format' procedure, which is + ;; less capable than that of (ice-9 format). + + (define allowed-chars + '(#\A #\S #\a #\s #\~ #\%)) + + (define (format-chars fmt) + (let loop ((chars (string->list fmt)) + (result '())) + (match chars + (() + (reverse result)) + ((#\~ opt rest ...) + (loop rest (cons opt result))) + ((_ rest ...) + (loop rest result))))) + + (match args + ((port ($ _ (? string? fmt)) _ ...) + (let ((opts (format-chars fmt))) + (or (every (cut memq <> allowed-chars) opts) + (begin + (warning 'format loc 'simple-format fmt + (find (negate (cut memq <> allowed-chars)) opts)) + #f)))) + ((port (($ _ '_) fmt) args ...) + (check-simple-format-args `(,port ,fmt ,args) loc)) + (_ #t))) + (define (resolve-toplevel name) (and (module? env) (false-if-exception (module-ref env name)))) @@ -1404,9 +1435,19 @@ accurate information is missing from a given `tree-il' element." (match x (($ src ($ _ name) args) (let ((proc (resolve-toplevel name))) - (and (or (eq? proc format) - (eq? proc (@ (ice-9 format) format))) - (check-format-args args (or src (find pair? locs)))))) + (if (or (and (eq? proc (@ (guile) simple-format)) + (check-simple-format-args args + (or src (find pair? locs)))) + (eq? proc (@ (ice-9 format) format))) + (check-format-args args (or src (find pair? locs)))))) + (($ src ($ _ '(ice-9 format) 'format) args) + (check-format-args args (or src (find pair? locs)))) + (($ src ($ _ '(guile) + (or 'format 'simple-format)) + args) + (and (check-simple-format-args args + (or src (find pair? locs))) + (check-format-args args (or src (find pair? locs))))) (_ #t)) #t) diff --git a/module/system/base/message.scm b/module/system/base/message.scm index 75e14ea1e..8cf285afd 100644 --- a/module/system/base/message.scm +++ b/module/system/base/message.scm @@ -1,6 +1,6 @@ ;;; User interface messages -;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -150,6 +150,10 @@ (emit #f "~a to ~a" min max)))) (match rest + (('simple-format fmt opt) + (emit port + "~A: warning: ~S: unsupported format option ~~~A, use (ice-9 format) instead~%" + loc (escape-newlines fmt) opt)) (('wrong-format-arg-count fmt min max actual) (emit port "~A: warning: ~S: wrong number of `format' arguments: expected ~A, got ~A~%" diff --git a/test-suite/tests/tree-il.test b/test-suite/tests/tree-il.test index bb56c23cd..37cd386fe 100644 --- a/test-suite/tests/tree-il.test +++ b/test-suite/tests/tree-il.test @@ -2187,7 +2187,8 @@ (pass-if "~%, ~~, ~&, ~t, ~_, and ~\\n" (null? (call-with-warnings (lambda () - (compile '(format some-port "~&~3_~~ ~\n~12they~%") + (compile '((@ (ice-9 format) format) some-port + "~&~3_~~ ~\n~12they~%") #:opts %opts-w-format #:to 'assembly))))) @@ -2214,7 +2215,8 @@ (pass-if "two missing arguments" (let ((w (call-with-warnings (lambda () - (compile '(format #f "foo ~10,2f and bar ~S~%") + (compile '((@ (ice-9 format) format) #f + "foo ~10,2f and bar ~S~%") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2245,7 +2247,7 @@ (pass-if "literals" (null? (call-with-warnings (lambda () - (compile '(format #f "~A ~[foo~;bar~;baz~;~] ~10,2f" + (compile '((@ (ice-9 format) format) #f "~A ~[foo~;bar~;baz~;~] ~10,2f" 'a 1 3.14) #:opts %opts-w-format #:to 'assembly))))) @@ -2253,7 +2255,7 @@ (pass-if "literals with selector" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~2[foo~;bar~;baz~;~] ~A" + (compile '((@ (ice-9 format) format) #f "~2[foo~;bar~;baz~;~] ~A" 1 'dont-ignore-me) #:opts %opts-w-format #:to 'assembly))))) @@ -2264,7 +2266,7 @@ (pass-if "escapes (exact count)" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~[~a~;~a~]") + (compile '((@ (ice-9 format) format) #f "~[~a~;~a~]") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2274,7 +2276,7 @@ (pass-if "escapes with selector" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~1[chbouib~;~a~]") + (compile '((@ (ice-9 format) format) #f "~1[chbouib~;~a~]") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2284,7 +2286,7 @@ (pass-if "escapes, range" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~[chbouib~;~a~;~2*~a~]") + (compile '((@ (ice-9 format) format) #f "~[chbouib~;~a~;~2*~a~]") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2294,7 +2296,7 @@ (pass-if "@" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~@[temperature=~d~]") + (compile '((@ (ice-9 format) format) #f "~@[temperature=~d~]") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2304,7 +2306,7 @@ (pass-if "nested" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~:[~[hey~;~a~;~va~]~;~3*~]") + (compile '((@ (ice-9 format) format) #f "~:[~[hey~;~a~;~va~]~;~3*~]") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2314,7 +2316,7 @@ (pass-if "unterminated" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~[unterminated") + (compile '((@ (ice-9 format) format) #f "~[unterminated") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2324,7 +2326,7 @@ (pass-if "unexpected ~;" (let ((w (call-with-warnings (lambda () - (compile '(format #f "foo~;bar") + (compile '((@ (ice-9 format) format) #f "foo~;bar") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2334,7 +2336,7 @@ (pass-if "unexpected ~]" (let ((w (call-with-warnings (lambda () - (compile '(format #f "foo~]") + (compile '((@ (ice-9 format) format) #f "foo~]") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2344,7 +2346,7 @@ (pass-if "~{...~}" (null? (call-with-warnings (lambda () - (compile '(format #f "~A ~{~S~} ~A" + (compile '((@ (ice-9 format) format) #f "~A ~{~S~} ~A" 'hello '("ladies" "and") 'gentlemen) #:opts %opts-w-format @@ -2353,7 +2355,7 @@ (pass-if "~{...~}, too many args" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~{~S~}" 1 2 3) + (compile '((@ (ice-9 format) format) #f "~{~S~}" 1 2 3) #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2363,14 +2365,14 @@ (pass-if "~@{...~}" (null? (call-with-warnings (lambda () - (compile '(format #f "~@{~S~}" 1 2 3) + (compile '((@ (ice-9 format) format) #f "~@{~S~}" 1 2 3) #:opts %opts-w-format #:to 'assembly))))) (pass-if "~@{...~}, too few args" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~A ~@{~S~}") + (compile '((@ (ice-9 format) format) #f "~A ~@{~S~}") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2380,7 +2382,7 @@ (pass-if "unterminated ~{...~}" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~{") + (compile '((@ (ice-9 format) format) #f "~{") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2390,14 +2392,14 @@ (pass-if "~(...~)" (null? (call-with-warnings (lambda () - (compile '(format #f "~:@(~A ~A~)" 'foo 'bar) + (compile '((@ (ice-9 format) format) #f "~:@(~A ~A~)" 'foo 'bar) #:opts %opts-w-format #:to 'assembly))))) (pass-if "~v" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~v_foo") + (compile '((@ (ice-9 format) format) #f "~v_foo") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2406,7 +2408,7 @@ (pass-if "~v:@y" (null? (call-with-warnings (lambda () - (compile '(format #f "~v:@y" 1 123) + (compile '((@ (ice-9 format) format) #f "~v:@y" 1 123) #:opts %opts-w-format #:to 'assembly))))) @@ -2414,7 +2416,7 @@ (pass-if "~*" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~2*~a" 'a 'b) + (compile '((@ (ice-9 format) format) #f "~2*~a" 'a 'b) #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2424,14 +2426,14 @@ (pass-if "~?" (null? (call-with-warnings (lambda () - (compile '(format #f "~?" "~d ~d" '(1 2)) + (compile '((@ (ice-9 format) format) #f "~?" "~d ~d" '(1 2)) #:opts %opts-w-format #:to 'assembly))))) (pass-if "complex 1" (let ((w (call-with-warnings (lambda () - (compile '(format #f + (compile '((@ (ice-9 format) format) #f "~4@S ~32S~@[;; ~1{~@?~}~]~@[~61t at ~a~]\n" 1 2 3 4 5 6) #:opts %opts-w-format @@ -2443,7 +2445,7 @@ (pass-if "complex 2" (let ((w (call-with-warnings (lambda () - (compile '(format #f + (compile '((@ (ice-9 format) format) #f "~:(~A~) Commands~:[~; [abbrev]~]:~2%" 1 2 3 4) #:opts %opts-w-format @@ -2455,7 +2457,7 @@ (pass-if "complex 3" (let ((w (call-with-warnings (lambda () - (compile '(format #f "~9@a~:[~*~3_~;~3d~] ~v:@y~%") + (compile '((@ (ice-9 format) format) #f "~9@a~:[~*~3_~;~3d~] ~v:@y~%") #:opts %opts-w-format #:to 'assembly))))) (and (= (length w) 1) @@ -2482,4 +2484,31 @@ (compile '(let ((format chbouib)) (format #t "not ~A a format string")) #:opts %opts-w-format - #:to 'assembly))))))) + #:to 'assembly))))) + + (with-test-prefix "simple-format" + + (pass-if "good" + (null? (call-with-warnings + (lambda () + (compile '(simple-format #t "foo ~a bar ~s ~%~~" 1 2) + #:opts %opts-w-format + #:to 'assembly))))) + + (pass-if "wrong number of args" + (let ((w (call-with-warnings + (lambda () + (compile '(simple-format #t "foo ~a ~s~%" 'one-missing) + #:opts %opts-w-format + #:to 'assembly))))) + (and (= (length w) 1) + (number? (string-contains (car w) "wrong number"))))) + + (pass-if "unsupported" + (let ((w (call-with-warnings + (lambda () + (compile '(simple-format #t "foo ~x~%" 16) + #:opts %opts-w-format + #:to 'assembly))))) + (and (= (length w) 1) + (number? (string-contains (car w) "unsupported format option")))))))) From 3a822fff1565d1b0f5802925e3c169355143ba3b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Jan 2012 00:36:39 +0100 Subject: [PATCH 05/32] Fix typo in `-Wformat'. * module/language/tree-il/analyze.scm (format-analysis): Call `warning', not `warn'. --- module/language/tree-il/analyze.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/module/language/tree-il/analyze.scm b/module/language/tree-il/analyze.scm index efe03789f..777507c76 100644 --- a/module/language/tree-il/analyze.scm +++ b/module/language/tree-il/analyze.scm @@ -1387,7 +1387,7 @@ accurate information is missing from a given `tree-il' element." ((,port ,fmt . ,rest) (if (and (const? port) (not (boolean? (const-exp port)))) - (warn 'format loc 'wrong-port (const-exp port))) + (warning 'format loc 'wrong-port (const-exp port))) ;; Warn on non-literal format strings, unless they refer to a ;; lexical variable named "fmt". (if (record-case fmt From f5e772b2bac149c854b9b003e7a96632af7f8760 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 26 Jan 2012 00:37:23 +0100 Subject: [PATCH 06/32] Fix a couple of warnings. * module/scripts/list.scm: Use SRFI-1. * module/system/repl/error-handling.scm: Use (ice-9 format). --- module/scripts/list.scm | 3 ++- module/system/repl/error-handling.scm | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/module/scripts/list.scm b/module/scripts/list.scm index 0f1d715dd..66116ce5b 100644 --- a/module/scripts/list.scm +++ b/module/scripts/list.scm @@ -1,6 +1,6 @@ ;;; List --- List scripts that can be invoked by guild -*- coding: iso-8859-1 -*- -;;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -26,6 +26,7 @@ ;;; Code: (define-module (scripts list) + #:use-module (srfi srfi-1) #:export (list-scripts)) (define %include-in-guild-list #f) diff --git a/module/system/repl/error-handling.scm b/module/system/repl/error-handling.scm index 2a585aaff..0e31eb941 100644 --- a/module/system/repl/error-handling.scm +++ b/module/system/repl/error-handling.scm @@ -1,6 +1,6 @@ ;;; Error handling in the REPL -;; Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;; This library is free software; you can redistribute it and/or ;; modify it under the terms of the GNU Lesser General Public @@ -23,6 +23,7 @@ #:use-module (system base pmatch) #:use-module (system vm trap-state) #:use-module (system repl debug) + #:use-module (ice-9 format) #:export (call-with-error-handling with-error-handling)) From d062a8c1eeeb55264c1a2fd8f4fbe765f1dcc6d9 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Tue, 3 Jan 2012 04:02:08 -0500 Subject: [PATCH 07/32] Implement `local-eval', `local-compile', and `the-environment' * module/ice-9/local-eval.scm: New module (ice-9 local-eval) which exports `the-environment', `local-eval', and `local-compile'. * libguile/debug.c (scm_local_eval): New C function that calls the Scheme implementation of `local-eval' in (ice-9 local-eval). * libguile/debug.h (scm_local_eval): Add prototype. * doc/ref/api-evaluation.texi (Local Evaluation): Add documentation. * test-suite/tests/eval.test (local evaluation): Add tests. * test-suite/standalone/test-loose-ends.c (test_scm_local_eval): Add test. * module/Makefile.am: Add ice-9/local-eval.scm. Based on a patch by Mark H Weaver . --- doc/ref/api-evaluation.texi | 34 ++++ libguile/debug.c | 13 +- libguile/debug.h | 4 +- module/Makefile.am | 5 +- module/ice-9/local-eval.scm | 251 ++++++++++++++++++++++++ test-suite/standalone/test-loose-ends.c | 16 +- test-suite/tests/eval.test | 95 ++++++++- 7 files changed, 411 insertions(+), 7 deletions(-) create mode 100644 module/ice-9/local-eval.scm diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi index ef3e602bb..cc62270b0 100644 --- a/doc/ref/api-evaluation.texi +++ b/doc/ref/api-evaluation.texi @@ -20,6 +20,7 @@ loading, evaluating, and compiling Scheme code at run time. * Load Paths:: Where Guile looks for code. * Character Encoding of Source Files:: Loading non-ASCII Scheme code from file. * Delayed Evaluation:: Postponing evaluation until it is needed. +* Local Evaluation:: Evaluation in a local lexical environment. @end menu @@ -980,6 +981,39 @@ value. @end deffn +@node Local Evaluation +@subsection Local Evaluation + +@deffn syntax the-environment +Captures and returns a lexical environment for use with +@code{local-eval} or @code{local-compile}. +@end deffn + +@deffn {Scheme Procedure} local-eval exp env +@deffnx {C Function} scm_local_eval (exp, env) +Evaluate the expression @var{exp} in the lexical environment @var{env}. +This mostly behaves as if @var{exp} had been wrapped in a lambda +expression @code{`(lambda () ,@var{exp})} and put in place of +@code{(the-environment)}, with the resulting procedure called by +@code{local-eval}. In other words, @var{exp} is evaluated within the +lexical environment of @code{(the-environment)}, but within the dynamic +environment of the call to @code{local-eval}. +@end deffn + +@deffn {Scheme Procedure} local-compile exp env [opts=()] +Compile the expression @var{exp} in the lexical environment @var{env}. +If @var{exp} is a procedure, the result will be a compiled procedure; +otherwise @code{local-compile} is mostly equivalent to +@code{local-eval}. @var{opts} specifies the compilation options. +@end deffn + +Note that the current implementation of @code{(the-environment)} does +not capture local syntax transformers bound by @code{let-syntax}, +@code{letrec-syntax} or non-top-level @code{define-syntax} forms. Any +attempt to reference such captured syntactic keywords via +@code{local-eval} or @code{local-compile} produces an error. + + @c Local Variables: @c TeX-master: "guile.texi" @c End: diff --git a/libguile/debug.c b/libguile/debug.c index 88a01d6aa..b1a90d84d 100644 --- a/libguile/debug.c +++ b/libguile/debug.c @@ -1,5 +1,5 @@ /* Debugging extensions for Guile - * Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2006, 2008, 2009, 2010, 2011 Free Software Foundation + * Copyright (C) 1995,1996,1997,1998,1999,2000,2001, 2002, 2003, 2006, 2008, 2009, 2010, 2011, 2012 Free Software Foundation * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -208,6 +208,17 @@ SCM_DEFINE (scm_debug_hang, "debug-hang", 0, 1, 0, #undef FUNC_NAME #endif +SCM +scm_local_eval (SCM exp, SCM env) +{ + static SCM local_eval_var = SCM_BOOL_F; + + if (scm_is_false (local_eval_var)) + local_eval_var = scm_c_public_variable ("ice-9 local-eval", "local-eval"); + + return scm_call_2 (SCM_VARIABLE_REF (local_eval_var), exp, env); +} + static void init_stack_limit (void) { diff --git a/libguile/debug.h b/libguile/debug.h index d862abab4..4155d1981 100644 --- a/libguile/debug.h +++ b/libguile/debug.h @@ -3,7 +3,7 @@ #ifndef SCM_DEBUG_H #define SCM_DEBUG_H -/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004,2008,2009,2010 +/* Copyright (C) 1995,1996,1998,1999,2000,2001,2002,2004,2008,2009,2010,2012 * Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or @@ -41,6 +41,8 @@ typedef union scm_t_debug_info +SCM_API SCM scm_local_eval (SCM exp, SCM env); + SCM_API SCM scm_reverse_lookup (SCM env, SCM data); SCM_API SCM scm_procedure_source (SCM proc); SCM_API SCM scm_procedure_name (SCM proc); diff --git a/module/Makefile.am b/module/Makefile.am index 56fa48d99..9c9d8ed36 100644 --- a/module/Makefile.am +++ b/module/Makefile.am @@ -1,6 +1,6 @@ ## Process this file with automake to produce Makefile.in. ## -## Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +## Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ## ## This file is part of GUILE. ## @@ -243,7 +243,8 @@ ICE_9_SOURCES = \ ice-9/weak-vector.scm \ ice-9/list.scm \ ice-9/serialize.scm \ - ice-9/vlist.scm + ice-9/vlist.scm \ + ice-9/local-eval.scm SRFI_SOURCES = \ srfi/srfi-1.scm \ diff --git a/module/ice-9/local-eval.scm b/module/ice-9/local-eval.scm new file mode 100644 index 000000000..f01a9c655 --- /dev/null +++ b/module/ice-9/local-eval.scm @@ -0,0 +1,251 @@ +;;; -*- mode: scheme; coding: utf-8; -*- +;;; +;;; Copyright (C) 2012 Free Software Foundation, Inc. +;;; +;;; This library is free software; you can redistribute it and/or +;;; modify it under the terms of the GNU Lesser General Public +;;; License as published by the Free Software Foundation; either +;;; version 3 of the License, or (at your option) any later version. +;;; +;;; This library is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +;;; Lesser General Public License for more details. +;;; +;;; You should have received a copy of the GNU Lesser General Public +;;; License along with this library; if not, write to the Free Software +;;; Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + +(define-module (ice-9 local-eval) + #:use-module (ice-9 format) + #:use-module (srfi srfi-9) + #:use-module (srfi srfi-9 gnu) + #:use-module (system base compile) + #:use-module (system syntax) + #:export (the-environment local-eval local-compile)) + +(define-record-type lexical-environment-type + (make-lexical-environment scope wrapper boxes patterns) + lexical-environment? + (scope lexenv-scope) + (wrapper lexenv-wrapper) + (boxes lexenv-boxes) + (patterns lexenv-patterns)) + +(set-record-type-printer! + lexical-environment-type + (lambda (e port) + (format port "#" + (syntax-module (lexenv-scope e)) + (+ (length (lexenv-boxes e)) (length (lexenv-patterns e)))))) + +(define-syntax syntax-object-of + (lambda (form) + (syntax-case form () + ((_ x) #`(quote #,(datum->syntax #'x #'x)))))) + +(define-syntax-rule (make-box v) + (case-lambda + (() v) + ((x) (set! v x)))) + +(define (make-transformer-from-box id trans) + (set-procedure-property! trans 'identifier-syntax-box id) + trans) + +(define-syntax-rule (identifier-syntax-from-box box) + (make-transformer-from-box + (syntax-object-of box) + (identifier-syntax (id (box)) + ((set! id x) (box x))))) + +(define (unsupported-binding name) + (make-variable-transformer + (lambda (x) + (syntax-violation + 'local-eval + "unsupported binding captured by (the-environment)" + x)))) + +(define (within-nested-ellipses id lvl) + (let loop ((s id) (n lvl)) + (if (zero? n) + s + (loop #`(#,s (... ...)) (- n 1))))) + +;; Analyze the set of bound identifiers IDS. Return four values: +;; +;; capture: A list of forms that will be emitted in the expansion of +;; `the-environment' to capture lexical variables. +;; +;; formals: Corresponding formal parameters for use in the lambda that +;; re-introduces those variables. These are temporary identifiers, and +;; as such if we have a nested `the-environment', there is no need to +;; capture them. (See the notes on nested `the-environment' and +;; proxies, below.) +;; +;; wrappers: A list of procedures of type SYNTAX -> SYNTAX, used to wrap +;; the expression to be evaluated in forms that re-introduce the +;; variable. The forms will be nested so that the variable shadowing +;; semantics of the original form are maintained. +;; +;; patterns: A terrible hack. The issue is that for pattern variables, +;; we can't emit lexically nested with-syntax forms, like: +;; +;; (with-syntax ((foo 1)) (the-environment)) +;; => (with-syntax ((foo 1)) +;; ... #'(with-syntax ((foo ...)) ... exp) ...) +;; +;; The reason is that the outer "foo" substitutes into the inner "foo", +;; yielding something like: +;; +;; (with-syntax ((foo 1)) +;; ... (with-syntax ((1 ...)) ...) +;; +;; Which ain't what we want. So we hide the information needed to +;; re-make the inner pattern binding form in the lexical environment +;; object, and then introduce those identifiers via another with-syntax. +;; +;; +;; There are four different kinds of lexical bindings: normal lexicals, +;; macros, displaced lexicals, and pattern variables. See the +;; documentation of syntax-local-binding for more info on these. +;; +;; We capture normal lexicals via `make-box', which creates a +;; case-lambda that can reference or set a variable. These get +;; re-introduced with an identifier-syntax. +;; +;; We can't capture macros currently. However we do recognize our own +;; macros that are actually proxying lexicals, so that nested +;; `the-environment' forms are possible. In that case we drill down to +;; the identifier for the already-existing box, and just capture that +;; box. +;; +;; And that's it: we skip displaced lexicals, and the pattern variables +;; are discussed above. +;; +(define (analyze-identifiers ids) + (define (mktmp) + (datum->syntax #'here (gensym "t "))) + (let lp ((ids ids) (capture '()) (formals '()) (wrappers '()) (patterns '())) + (cond + ((null? ids) + (values capture formals wrappers patterns)) + (else + (let ((id (car ids)) (ids (cdr ids))) + (call-with-values (lambda () (syntax-local-binding id)) + (lambda (type val) + (case type + ((lexical) + (if (or-map (lambda (x) (bound-identifier=? x id)) formals) + (lp ids capture formals wrappers patterns) + (let ((t (mktmp))) + (lp ids + (cons #`(make-box #,id) capture) + (cons t formals) + (cons (lambda (x) + #`(let-syntax ((#,id (identifier-syntax-from-box #,t))) + #,x)) + wrappers) + patterns)))) + ((displaced-lexical) + (lp ids capture formals wrappers patterns)) + ((macro) + (let ((b (procedure-property val 'identifier-syntax-box))) + (if b + (lp ids (cons b capture) (cons b formals) + (cons (lambda (x) + #`(let-syntax ((#,id (identifier-syntax-from-box #,b))) + #,x)) + wrappers) + patterns) + (lp ids capture formals + (cons (lambda (x) + #`(let-syntax ((#,id (unsupported-binding '#,id))) + #,x)) + wrappers) + patterns)))) + ((pattern-variable) + (let ((t (datum->syntax id (gensym "p "))) + (nested (within-nested-ellipses id (cdr val)))) + (lp ids capture formals + (cons (lambda (x) + #`(with-syntax ((#,t '#,nested)) + #,x)) + wrappers) + ;; This dance is to hide these pattern variables + ;; from the expander. + (cons (list (datum->syntax #'here (syntax->datum id)) + (cdr val) + t) + patterns)))) + (else + (error "what" type val)))))))))) + +(define-syntax the-environment + (lambda (x) + (syntax-case x () + ((the-environment) + #'(the-environment the-environment)) + ((the-environment scope) + (call-with-values (lambda () + (analyze-identifiers + (syntax-locally-bound-identifiers #'scope))) + (lambda (capture formals wrappers patterns) + (define (wrap-expression x) + (let lp ((x x) (wrappers wrappers)) + (if (null? wrappers) + x + (lp ((car wrappers) x) (cdr wrappers))))) + (with-syntax (((f ...) formals) + ((c ...) capture) + (((pname plvl pformal) ...) patterns) + (wrapped (wrap-expression #'(begin #f exp)))) + #'(make-lexical-environment + #'scope + (lambda (exp pformal ...) + (with-syntax ((exp exp) + (pformal pformal) + ...) + #'(lambda (f ...) + wrapped))) + (list c ...) + (list (list 'pname plvl #'pformal) ...))))))))) + +(define (env-module e) + (cond + ((lexical-environment? e) (resolve-module (syntax-module (lexenv-scope e)))) + ((module? e) e) + (else (error "invalid lexical environment" e)))) + +(define (env-boxes e) + (cond + ((lexical-environment? e) (lexenv-boxes e)) + ((module? e) '()) + (else (error "invalid lexical environment" e)))) + +(define (local-wrap x e) + (cond + ((lexical-environment? e) + (apply (lexenv-wrapper e) + (datum->syntax (lexenv-scope e) x) + (map (lambda (l) + (let ((name (car l)) + (lvl (cadr l)) + (scope (caddr l))) + (within-nested-ellipses (datum->syntax scope name) lvl))) + (lexenv-patterns e)))) + ((module? e) `(lambda () #f ,exp)) + (else (error "invalid lexical environment" e)))) + +(define (local-eval x e) + "Evaluate the expression @var{x} within the lexical environment @var{e}." + (apply (eval (local-wrap x e) (env-module e)) + (env-boxes e))) + +(define* (local-compile x e #:key (opts '())) + "Compile and evaluate the expression @var{x} within the lexical +environment @var{e}." + (apply (compile (local-wrap x e) #:env (env-module e) + #:from 'scheme #:opts opts) + (env-boxes e))) diff --git a/test-suite/standalone/test-loose-ends.c b/test-suite/standalone/test-loose-ends.c index 2fdbe7d4b..f815ae253 100644 --- a/test-suite/standalone/test-loose-ends.c +++ b/test-suite/standalone/test-loose-ends.c @@ -3,7 +3,7 @@ * Test items of the Guile C API that aren't covered by any other tests. */ -/* Copyright (C) 2009 Free Software Foundation, Inc. +/* Copyright (C) 2009, 2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -42,10 +42,24 @@ test_scm_from_locale_keywordn () assert (scm_is_true (scm_keyword_p (kw))); } +static void +test_scm_local_eval () +{ + SCM result = scm_local_eval + (scm_list_3 (scm_from_latin1_symbol ("+"), + scm_from_latin1_symbol ("x"), + scm_from_latin1_symbol ("y")), + scm_c_eval_string ("(let ((x 1) (y 2)) (the-environment))")); + + assert (scm_is_true (scm_equal_p (result, + scm_from_signed_integer (3)))); +} + static void tests (void *data, int argc, char **argv) { test_scm_from_locale_keywordn (); + test_scm_local_eval (); } int diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index a128cd7e1..f532059f0 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -1,5 +1,5 @@ ;;;; eval.test --- tests guile's evaluator -*- scheme -*- -;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc. +;;;; Copyright (C) 2000, 2001, 2006, 2007, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -19,7 +19,8 @@ :use-module (test-suite lib) :use-module ((srfi srfi-1) :select (unfold count)) :use-module ((system vm vm) :select (make-vm call-with-vm)) - :use-module (ice-9 documentation)) + :use-module (ice-9 documentation) + :use-module (ice-9 local-eval)) (define exception:bad-expression @@ -422,4 +423,94 @@ (thunk (let loop () (cons 's (loop))))) (call-with-vm vm thunk)))) +;;; +;;; local-eval +;;; + +(with-test-prefix "local evaluation" + + (pass-if "local-eval" + + (let* ((env1 (let ((x 1) (y 2) (z 3)) + (define-syntax-rule (foo x) (quote x)) + (the-environment))) + (env2 (local-eval '(let ((x 111) (a 'a)) + (define-syntax-rule (bar x) (quote x)) + (the-environment)) + env1))) + (local-eval '(set! x 11) env1) + (local-eval '(set! y 22) env1) + (local-eval '(set! z 33) env2) + (and (equal? (local-eval '(list x y z) env1) + '(11 22 33)) + (equal? (local-eval '(list x y z a) env2) + '(111 22 33 a))))) + + (pass-if "local-compile" + + (let* ((env1 (let ((x 1) (y 2) (z 3)) + (define-syntax-rule (foo x) (quote x)) + (the-environment))) + (env2 (local-compile '(let ((x 111) (a 'a)) + (define-syntax-rule (bar x) (quote x)) + (the-environment)) + env1))) + (local-compile '(set! x 11) env1) + (local-compile '(set! y 22) env1) + (local-compile '(set! z 33) env2) + (and (equal? (local-compile '(list x y z) env1) + '(11 22 33)) + (equal? (local-compile '(list x y z a) env2) + '(111 22 33 a))))) + + (pass-if "the-environment within a macro" + (let ((module-a-name '(test module the-environment a)) + (module-b-name '(test module the-environment b))) + (let ((module-a (resolve-module module-a-name)) + (module-b (resolve-module module-b-name))) + (module-use! module-a (resolve-interface '(guile))) + (module-use! module-a (resolve-interface '(ice-9 local-eval))) + (eval '(begin + (define z 3) + (define-syntax-rule (test) + (let ((x 1) (y 2)) + (the-environment)))) + module-a) + (module-use! module-b (resolve-interface '(guile))) + (let ((env (eval `(let ((x 111) (y 222)) + ((@@ ,module-a-name test))) + module-b))) + (equal? (local-eval '(list x y z) env) + '(1 2 3)))))) + + (pass-if "capture pattern variables" + (let ((env (syntax-case #'(((a 1) (b 2) (c 3)) + ((d 4) (e 5) (f 6))) () + ((((k v) ...) ...) (the-environment))))) + (equal? (syntax->datum (local-eval '#'((k ... v ...) ...) env)) + '((a b c 1 2 3) (d e f 4 5 6))))) + + (pass-if "mixed primitive-eval, local-eval and local-compile" + + (let* ((env1 (primitive-eval '(let ((x 1) (y 2) (z 3)) + (define-syntax-rule (foo x) (quote x)) + (the-environment)))) + (env2 (local-eval '(let ((x 111) (a 'a)) + (define-syntax-rule (bar x) (quote x)) + (the-environment)) + env1)) + (env3 (local-compile '(let ((y 222) (b 'b)) + (the-environment)) + env2))) + (local-eval '(set! x 11) env1) + (local-compile '(set! y 22) env2) + (local-eval '(set! z 33) env2) + (local-compile '(set! a (* y 2)) env3) + (and (equal? (local-compile '(list x y z) env1) + '(11 22 33)) + (equal? (local-eval '(list x y z a) env2) + '(111 22 33 444)) + (equal? (local-eval '(list x y z a b) env3) + '(111 222 33 444 b)))))) + ;;; eval.test ends here From 4496c9c1e8c5620fd3b4eaacc7f1f8e35829b32d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 11:00:55 +0100 Subject: [PATCH 08/32] Revert "Universally-unique gensyms" This reverts commit ad432bc8317c33899efc29854550b67f3d7babf7. Not all gensyms need to be universally-unique: most of them just need to be unique within some portion of a Guile session. We'll take a different tack on this problem in the next commit. --- libguile/symbols.c | 50 ++++++++++------------------------------------ libguile/threads.c | 1 - libguile/threads.h | 4 ---- 3 files changed, 11 insertions(+), 44 deletions(-) diff --git a/libguile/symbols.c b/libguile/symbols.c index 840a458af..59aca002e 100644 --- a/libguile/symbols.c +++ b/libguile/symbols.c @@ -31,7 +31,6 @@ #include "libguile/variable.h" #include "libguile/alist.h" #include "libguile/fluids.h" -#include "libguile/threads.h" #include "libguile/strings.h" #include "libguile/vectors.h" #include "libguile/hashtab.h" @@ -341,9 +340,7 @@ SCM_DEFINE (scm_string_ci_to_symbol, "string-ci->symbol", 1, 0, 0, /* The default prefix for `gensym'd symbols. */ static SCM default_gensym_prefix; -#define GENSYM_LENGTH 22 /* bytes */ -#define GENSYM_RADIX_BITS 6 -#define GENSYM_RADIX (1 << (GENSYM_RADIX_BITS)) +#define MAX_PREFIX_LENGTH 30 SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0, (SCM prefix), @@ -354,47 +351,22 @@ SCM_DEFINE (scm_gensym, "gensym", 0, 1, 0, "resetting the counter.") #define FUNC_NAME s_scm_gensym { - static const char base64[GENSYM_RADIX] = - "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789$@"; - static const char base4[4] = "_.-~"; - - unsigned char *digit_buf = SCM_I_CURRENT_THREAD->gensym_counter; - char char_buf[GENSYM_LENGTH]; + static int gensym_counter = 0; + SCM suffix, name; - int i; + int n, n_digits; + char buf[SCM_INTBUFLEN]; if (SCM_UNBNDP (prefix)) prefix = default_gensym_prefix; - if (SCM_UNLIKELY (digit_buf == NULL)) - { - /* This is the first time gensym has been called in this thread. - Allocate and randomize our new thread-local gensym counter */ - digit_buf = (unsigned char *) - scm_gc_malloc_pointerless (GENSYM_LENGTH, "gensym-counter"); - scm_i_random_bytes_from_platform (digit_buf, GENSYM_LENGTH); - for (i = (GENSYM_LENGTH - 1); i >= 0; --i) - digit_buf[i] &= (GENSYM_RADIX - 1); - SCM_I_CURRENT_THREAD->gensym_counter = digit_buf; - } + /* mutex in case another thread looks and incs at the exact same moment */ + scm_i_scm_pthread_mutex_lock (&scm_i_misc_mutex); + n = gensym_counter++; + scm_i_pthread_mutex_unlock (&scm_i_misc_mutex); - /* Increment our thread-local gensym_counter. */ - for (i = (GENSYM_LENGTH - 1); i >= 0; --i) - { - if (SCM_LIKELY (++(digit_buf[i]) < GENSYM_RADIX)) - break; - else - digit_buf[i] = 0; - } - - /* Encode digit_buf as base64, except for the first character where we - use the sparse glyphs "_.-~" (base 4) to provide some visual - separation between the prefix and the dense base64 block. */ - for (i = (GENSYM_LENGTH - 1); i > 0; --i) - char_buf[i] = base64[digit_buf[i]]; - char_buf[0] = base4[digit_buf[0] & 3]; - - suffix = scm_from_latin1_stringn (char_buf, GENSYM_LENGTH); + n_digits = scm_iint2str (n, 10, buf); + suffix = scm_from_latin1_stringn (buf, n_digits); name = scm_string_append (scm_list_2 (prefix, suffix)); return scm_string_to_symbol (name); } diff --git a/libguile/threads.c b/libguile/threads.c index 67834ffc8..5a13e5ccf 100644 --- a/libguile/threads.c +++ b/libguile/threads.c @@ -545,7 +545,6 @@ guilify_self_1 (struct GC_stack_base *base) t.join_queue = SCM_EOL; t.dynamic_state = SCM_BOOL_F; t.dynwinds = SCM_EOL; - t.gensym_counter = NULL; t.active_asyncs = SCM_EOL; t.block_asyncs = 1; t.pending_asyncs = 1; diff --git a/libguile/threads.h b/libguile/threads.h index 3660a58d4..ec129bc72 100644 --- a/libguile/threads.h +++ b/libguile/threads.h @@ -81,10 +81,6 @@ typedef struct scm_i_thread { SCM dynamic_state; SCM dynwinds; - /* Thread-local gensym counter. - */ - unsigned char *gensym_counter; - /* For system asyncs. */ SCM active_asyncs; /* The thunks to be run at the next From f9685f437312ea790981373ddc375b2a26ba9c4f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 11:52:06 +0100 Subject: [PATCH 09/32] globally unique marks and labels using syntax-session-id * libguile/macros.c (scm_init_macros): Add definition of new syntax-session-id helper. * module/ice-9/psyntax.scm: Capture a reference to syntax-session-id at boot time. Uniquify marks and labels using the session id. * module/ice-9/boot-9.scm: Shunt syntax-session-id off to (system syntax) once we finished booting. * module/ice-9/compile-psyntax.scm: Override syntax-session-id when remaking psyntax to avoid spurious diffs. * module/ice-9/psyntax-pp.scm: Regenerate. --- libguile/macros.c | 34 + module/ice-9/boot-9.scm | 3 +- module/ice-9/compile-psyntax.scm | 9 +- module/ice-9/psyntax-pp.scm | 25000 ++++++++++++++--------------- module/ice-9/psyntax.scm | 22 +- 5 files changed, 12114 insertions(+), 12954 deletions(-) diff --git a/libguile/macros.c b/libguile/macros.c index 556e60f57..a0b140126 100644 --- a/libguile/macros.c +++ b/libguile/macros.c @@ -177,12 +177,46 @@ SCM_DEFINE (scm_macro_binding, "macro-binding", 1, 0, 0, #undef FUNC_NAME +static SCM syntax_session_id; + +#define SESSION_ID_LENGTH 22 /* bytes */ +#define BASE64_RADIX_BITS 6 +#define BASE64_RADIX (1 << (BASE64_RADIX_BITS)) +#define BASE64_MASK (BASE64_RADIX - 1) + +static SCM +fresh_syntax_session_id (void) +{ + static const char base64[BASE64_RADIX] = + "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789$@"; + + unsigned char digit_buf[SESSION_ID_LENGTH]; + char char_buf[SESSION_ID_LENGTH]; + size_t i; + + scm_i_random_bytes_from_platform (digit_buf, SESSION_ID_LENGTH); + for (i = 0; i < SESSION_ID_LENGTH; ++i) + char_buf[i] = base64[digit_buf[i] & BASE64_MASK]; + + return scm_from_latin1_stringn (char_buf, SESSION_ID_LENGTH); +} + +static SCM +scm_syntax_session_id (void) +{ + return syntax_session_id; +} + + void scm_init_macros () { scm_tc16_macro = scm_make_smob_type ("macro", 0); scm_set_smob_print (scm_tc16_macro, macro_print); #include "libguile/macros.x" + + syntax_session_id = fresh_syntax_session_id(); + scm_c_define_gsubr ("syntax-session-id", 0, 0, 0, scm_syntax_session_id); } /* diff --git a/module/ice-9/boot-9.scm b/module/ice-9/boot-9.scm index 39be83d47..c8a56e020 100644 --- a/module/ice-9/boot-9.scm +++ b/module/ice-9/boot-9.scm @@ -3889,7 +3889,8 @@ module '(ice-9 q) '(make-q q-length))}." (steal-bindings! the-root-module (resolve-module '(system syntax)) '(syntax-local-binding syntax-module - syntax-locally-bound-identifiers))) + syntax-locally-bound-identifiers + syntax-session-id))) diff --git a/module/ice-9/compile-psyntax.scm b/module/ice-9/compile-psyntax.scm index 48bab9236..3d803e9c7 100644 --- a/module/ice-9/compile-psyntax.scm +++ b/module/ice-9/compile-psyntax.scm @@ -1,6 +1,6 @@ ;;; -*- mode: scheme; coding: utf-8; -*- ;;; -;;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +;;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;; ;;; This library is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -19,7 +19,12 @@ (use-modules (language tree-il) (language tree-il optimize) (language tree-il canonicalize) - (ice-9 pretty-print)) + (ice-9 pretty-print) + (system syntax)) + +;; Avoid gratuitous churn in psyntax-pp.scm due to the marks and labels +;; changing session identifiers. +(set! syntax-session-id (lambda () "*")) (let ((source (list-ref (command-line) 1)) (target (list-ref (command-line) 2))) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index d616c7fb7..3fb3659ba 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1541 +1,1327 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{gen-label -ANAU$bmvAmthP7L7xwnNi}# (if #f #f)) - (#{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# - (if #f #f))) +(let ((#{session-id 4447}# (if #f #f)) + (#{transformer-environment 4508}# (if #f #f))) (letrec* - ((#{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}#) + ((#{top-level-eval-hook 4445}# + (lambda (#{x 27176}# #{mod 27177}#) + (primitive-eval #{x 27176}#))) + (#{get-global-definition-hook 4449}# + (lambda (#{symbol 15643}# #{module 15644}#) (begin - (if (if (not #{module -ANAU$bmvAmthP7L7xwp7B}#) - (current-module) - #f) + (if (if (not #{module 15644}#) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol -ANAU$bmvAmthP7L7xwp7A}#)) - (let ((#{v -ANAU$bmvAmthP7L7xwp7C}# + #{symbol 15643}#)) + (let ((#{v 15645}# (module-variable - (if #{module -ANAU$bmvAmthP7L7xwp7B}# - (resolve-module - (cdr #{module -ANAU$bmvAmthP7L7xwp7B}#)) + (if #{module 15644}# + (resolve-module (cdr #{module 15644}#)) (current-module)) - #{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}#)) + #{symbol 15643}#))) + (if #{v 15645}# + (if (variable-bound? #{v 15645}#) + (let ((#{val 15647}# (variable-ref #{v 15645}#))) + (if (macro? #{val 15647}#) + (if (macro-type #{val 15647}#) + (cons (macro-type #{val 15647}#) + (macro-binding #{val 15647}#)) #f) #f)) #f) #f))))) - (#{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}#) + (#{maybe-name-value! 4451}# + (lambda (#{name 15924}# #{val 15925}#) + (if (if (struct? #{val 15925}#) + (eq? (struct-vtable #{val 15925}#) (vector-ref %expanded-vtables 13)) #f) - (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 -ANAU$bmvAmthP7L7xwp@a}# - 1 - #{v -ANAU$bmvAmthP7L7xwp@m}#))))))) - (#{build-application -ANAU$bmvAmthP7L7xwnM@}# - (lambda (#{source -ANAU$bmvAmthP7L7xwp7G}# - #{fun-exp -ANAU$bmvAmthP7L7xwp7H}# - #{arg-exps -ANAU$bmvAmthP7L7xwp7I}#) + (let ((#{meta 15932}# (struct-ref #{val 15925}# 1))) + (if (not (assq 'name #{meta 15932}#)) + (let ((#{v 15937}# + (cons (cons 'name #{name 15924}#) #{meta 15932}#))) + (struct-set! #{val 15925}# 1 #{v 15937}#))))))) + (#{build-application 4453}# + (lambda (#{source 15649}# + #{fun-exp 15650}# + #{arg-exps 15651}#) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{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}#) + #{source 15649}# + #{fun-exp 15650}# + #{arg-exps 15651}#))) + (#{build-conditional 4454}# + (lambda (#{source 15657}# + #{test-exp 15658}# + #{then-exp 15659}# + #{else-exp 15660}#) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{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}#) + #{source 15657}# + #{test-exp 15658}# + #{then-exp 15659}# + #{else-exp 15660}#))) + (#{build-dynlet 4455}# + (lambda (#{source 15667}# + #{fluids 15668}# + #{vals 15669}# + #{body 15670}#) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{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}#) + #{source 15667}# + #{fluids 15668}# + #{vals 15669}# + #{body 15670}#))) + (#{build-lexical-reference 4456}# + (lambda (#{type 27178}# + #{source 27179}# + #{name 27180}# + #{var 27181}#) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{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}#) + #{source 27179}# + #{name 27180}# + #{var 27181}#))) + (#{build-lexical-assignment 4457}# + (lambda (#{source 15677}# + #{name 15678}# + #{var 15679}# + #{exp 15680}#) (begin - (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp7l}#) - (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp7l}#) + (if (if (struct? #{exp 15680}#) + (eq? (struct-vtable #{exp 15680}#) (vector-ref %expanded-vtables 13)) #f) - (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 -ANAU$bmvAmthP7L7xwp7l}# - 1 - #{v -ANAU$bmvAmthP7L7xwp78}#))))) + (let ((#{meta 15696}# (struct-ref #{exp 15680}# 1))) + (if (not (assq 'name #{meta 15696}#)) + (let ((#{v 15703}# + (cons (cons 'name #{name 15678}#) #{meta 15696}#))) + (struct-set! #{exp 15680}# 1 #{v 15703}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{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}# + #{source 15677}# + #{name 15678}# + #{var 15679}# + #{exp 15680}#)))) + (#{analyze-variable 4458}# + (lambda (#{mod 27187}# + #{var 27188}# + #{modref-cont 27189}# + #{bare-cont 27190}#) + (if (not #{mod 27187}#) + (#{bare-cont 27190}# #{var 27188}#) + (let ((#{kind 27191}# (car #{mod 27187}#)) + (#{mod 27192}# (cdr #{mod 27187}#))) + (if (eqv? #{kind 27191}# 'public) + (#{modref-cont 27189}# + #{mod 27192}# + #{var 27188}# #t) - (if (eqv? #{kind -ANAU$bmvAmthP7L7xwsuf}# 'private) + (if (eqv? #{kind 27191}# 'private) (if (not (equal? - #{mod -ANAU$bmvAmthP7L7xwsug}# + #{mod 27192}# (module-name (current-module)))) - (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# - #{mod -ANAU$bmvAmthP7L7xwsug}# - #{var -ANAU$bmvAmthP7L7xwsuc}# + (#{modref-cont 27189}# + #{mod 27192}# + #{var 27188}# #f) - (#{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) + (#{bare-cont 27190}# #{var 27188}#)) + (if (eqv? #{kind 27191}# 'bare) + (#{bare-cont 27190}# #{var 27188}#) + (if (eqv? #{kind 27191}# 'hygiene) (if (if (not (equal? - #{mod -ANAU$bmvAmthP7L7xwsug}# + #{mod 27192}# (module-name (current-module)))) (module-variable - (resolve-module #{mod -ANAU$bmvAmthP7L7xwsug}#) - #{var -ANAU$bmvAmthP7L7xwsuc}#) + (resolve-module #{mod 27192}#) + #{var 27188}#) #f) - (#{modref-cont -ANAU$bmvAmthP7L7xwsud}# - #{mod -ANAU$bmvAmthP7L7xwsug}# - #{var -ANAU$bmvAmthP7L7xwsuc}# + (#{modref-cont 27189}# + #{mod 27192}# + #{var 27188}# #f) - (#{bare-cont -ANAU$bmvAmthP7L7xwsue}# - #{var -ANAU$bmvAmthP7L7xwsuc}#)) + (#{bare-cont 27190}# #{var 27188}#)) (syntax-violation #f "bad module kind" - #{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}#) + #{var 27188}# + #{mod 27192}#))))))))) + (#{build-global-reference 4459}# + (lambda (#{source 27207}# #{var 27208}# #{mod 27209}#) + (#{analyze-variable 4458}# + #{mod 27209}# + #{var 27208}# + (lambda (#{mod 27212}# #{var 27213}# #{public? 27214}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source -ANAU$bmvAmthP7L7xwsuv}# - #{mod -ANAU$bmvAmthP7L7xwsu0}# - #{var -ANAU$bmvAmthP7L7xwsu1}# - #{public? -ANAU$bmvAmthP7L7xwsu2}#)) - (lambda (#{var -ANAU$bmvAmthP7L7xwsu$}#) + #{source 27207}# + #{mod 27212}# + #{var 27213}# + #{public? 27214}#)) + (lambda (#{var 27222}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source -ANAU$bmvAmthP7L7xwsuv}# - #{var -ANAU$bmvAmthP7L7xwsu$}#))))) - (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# - (lambda (#{source -ANAU$bmvAmthP7L7xwp8F}# - #{var -ANAU$bmvAmthP7L7xwp8G}# - #{exp -ANAU$bmvAmthP7L7xwp8H}# - #{mod -ANAU$bmvAmthP7L7xwp8I}#) + #{source 27207}# + #{var 27222}#))))) + (#{build-global-assignment 4460}# + (lambda (#{source 15712}# + #{var 15713}# + #{exp 15714}# + #{mod 15715}#) (begin - (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwp8H}#) - (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwp8H}#) + (if (if (struct? #{exp 15714}#) + (eq? (struct-vtable #{exp 15714}#) (vector-ref %expanded-vtables 13)) #f) - (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 -ANAU$bmvAmthP7L7xwp8H}# - 1 - #{v -ANAU$bmvAmthP7L7xwp8f}#))))) - (#{analyze-variable -ANAU$bmvAmthP7L7xwnNE}# - #{mod -ANAU$bmvAmthP7L7xwp8I}# - #{var -ANAU$bmvAmthP7L7xwp8G}# - (lambda (#{mod -ANAU$bmvAmthP7L7xwp8k}# - #{var -ANAU$bmvAmthP7L7xwp8l}# - #{public? -ANAU$bmvAmthP7L7xwp8m}#) + (let ((#{meta 15731}# (struct-ref #{exp 15714}# 1))) + (if (not (assq 'name #{meta 15731}#)) + (let ((#{v 15738}# + (cons (cons 'name #{var 15713}#) #{meta 15731}#))) + (struct-set! #{exp 15714}# 1 #{v 15738}#))))) + (#{analyze-variable 4458}# + #{mod 15715}# + #{var 15713}# + (lambda (#{mod 15743}# #{var 15744}# #{public? 15745}#) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source -ANAU$bmvAmthP7L7xwp8F}# - #{mod -ANAU$bmvAmthP7L7xwp8k}# - #{var -ANAU$bmvAmthP7L7xwp8l}# - #{public? -ANAU$bmvAmthP7L7xwp8m}# - #{exp -ANAU$bmvAmthP7L7xwp8H}#)) - (lambda (#{var -ANAU$bmvAmthP7L7xwp8u}#) + #{source 15712}# + #{mod 15743}# + #{var 15744}# + #{public? 15745}# + #{exp 15714}#)) + (lambda (#{var 15753}#) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source -ANAU$bmvAmthP7L7xwp8F}# - #{var -ANAU$bmvAmthP7L7xwp8u}# - #{exp -ANAU$bmvAmthP7L7xwp8H}#)))))) - (#{build-global-definition -ANAU$bmvAmthP7L7xwnNH}# - (lambda (#{source -ANAU$bmvAmthP7L7xwsvE}# - #{var -ANAU$bmvAmthP7L7xwsvF}# - #{exp -ANAU$bmvAmthP7L7xwsvG}#) + #{source 15712}# + #{var 15753}# + #{exp 15714}#)))))) + (#{build-global-definition 4461}# + (lambda (#{source 27228}# #{var 27229}# #{exp 27230}#) (begin - (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwsvG}#) - (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwsvG}#) + (if (if (struct? #{exp 27230}#) + (eq? (struct-vtable #{exp 27230}#) (vector-ref %expanded-vtables 13)) #f) - (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 -ANAU$bmvAmthP7L7xwsvG}# - 1 - #{v -ANAU$bmvAmthP7L7xwsvd}#))))) + (let ((#{meta 27246}# (struct-ref #{exp 27230}# 1))) + (if (not (assq 'name #{meta 27246}#)) + (let ((#{v 27253}# + (cons (cons 'name #{var 27229}#) #{meta 27246}#))) + (struct-set! #{exp 27230}# 1 #{v 27253}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{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@}# + #{source 27228}# + #{var 27229}# + #{exp 27230}#)))) + (#{build-simple-lambda 4462}# + (lambda (#{src 15759}# + #{req 15760}# + #{rest 15761}# + #{vars 15762}# + #{meta 15763}# + #{exp 15764}#) + (let ((#{body 15770}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src -ANAU$bmvAmthP7L7xwp80}# - #{req -ANAU$bmvAmthP7L7xwp81}# + #{src 15759}# + #{req 15760}# #f - #{rest -ANAU$bmvAmthP7L7xwp82}# + #{rest 15761}# #f '() - #{vars -ANAU$bmvAmthP7L7xwp83}# - #{exp -ANAU$bmvAmthP7L7xwp85}# + #{vars 15762}# + #{exp 15764}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{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}#) + #{src 15759}# + #{meta 15763}# + #{body 15770}#)))) + (#{build-sequence 4467}# + (lambda (#{src 27261}# #{exps 27262}#) + (if (null? (cdr #{exps 27262}#)) + (car #{exps 27262}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{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}#) + #{src 27261}# + #{exps 27262}#)))) + (#{build-let 4468}# + (lambda (#{src 15782}# + #{ids 15783}# + #{vars 15784}# + #{val-exps 15785}# + #{body-exp 15786}#) (begin (for-each - #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# - #{ids -ANAU$bmvAmthP7L7xwp9M}# - #{val-exps -ANAU$bmvAmthP7L7xwp9O}#) - (if (null? #{vars -ANAU$bmvAmthP7L7xwp9N}#) - #{body-exp -ANAU$bmvAmthP7L7xwp9P}# + #{maybe-name-value! 4451}# + #{ids 15783}# + #{val-exps 15785}#) + (if (null? #{vars 15784}#) + #{body-exp 15786}# (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{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}# + #{src 15782}# + #{ids 15783}# + #{vars 15784}# + #{val-exps 15785}# + #{body-exp 15786}#))))) + (#{build-named-let 4469}# + (lambda (#{src 15810}# + #{ids 15811}# + #{vars 15812}# + #{val-exps 15813}# + #{body-exp 15814}#) + (let ((#{f 15815}# (car #{vars 15812}#)) + (#{f-name 15816}# (car #{ids 15811}#)) + (#{vars 15817}# (cdr #{vars 15812}#)) + (#{ids 15818}# (cdr #{ids 15811}#))) + (let ((#{proc 15819}# + (let ((#{body 15839}# (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src -ANAU$bmvAmthP7L7xwp9n}# - #{ids -ANAU$bmvAmthP7L7xwp9v}# + #{src 15810}# + #{ids 15818}# #f #f #f '() - #{vars -ANAU$bmvAmthP7L7xwp9u}# - #{body-exp -ANAU$bmvAmthP7L7xwp9r}# + #{vars 15817}# + #{body-exp 15814}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src -ANAU$bmvAmthP7L7xwp9n}# + #{src 15810}# '() - #{body -ANAU$bmvAmthP7L7xwp$E}#)))) + #{body 15839}#)))) (begin - (if (if (struct? #{proc -ANAU$bmvAmthP7L7xwp9w}#) - (eq? (struct-vtable #{proc -ANAU$bmvAmthP7L7xwp9w}#) + (if (if (struct? #{proc 15819}#) + (eq? (struct-vtable #{proc 15819}#) (vector-ref %expanded-vtables 13)) #f) - (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 -ANAU$bmvAmthP7L7xwp9t}#) - #{meta -ANAU$bmvAmthP7L7xwp$c}#))) - (struct-set! - #{proc -ANAU$bmvAmthP7L7xwp9w}# - 1 - #{v -ANAU$bmvAmthP7L7xwp$j}#))))) + (let ((#{meta 15863}# (struct-ref #{proc 15819}# 1))) + (if (not (assq 'name #{meta 15863}#)) + (let ((#{v 15870}# + (cons (cons 'name #{f-name 15816}#) + #{meta 15863}#))) + (struct-set! #{proc 15819}# 1 #{v 15870}#))))) (for-each - #{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}# + #{maybe-name-value! 4451}# + #{ids 15818}# + #{val-exps 15813}#) + (let ((#{names 15894}# (list #{f-name 15816}#)) + (#{gensyms 15895}# (list #{f 15815}#)) + (#{vals 15896}# (list #{proc 15819}#)) + (#{body 15897}# + (let ((#{fun-exp 15901}# (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src -ANAU$bmvAmthP7L7xwp9n}# - #{f-name -ANAU$bmvAmthP7L7xwp9t}# - #{f -ANAU$bmvAmthP7L7xwp9s}#))) + #{src 15810}# + #{f-name 15816}# + #{f 15815}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src -ANAU$bmvAmthP7L7xwp9n}# - #{fun-exp -ANAU$bmvAmthP7L7xwp@C}# - #{val-exps -ANAU$bmvAmthP7L7xwp9q}#)))) + #{src 15810}# + #{fun-exp 15901}# + #{val-exps 15813}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src -ANAU$bmvAmthP7L7xwp9n}# + #{src 15810}# #f - #{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}# + #{names 15894}# + #{gensyms 15895}# + #{vals 15896}# + #{body 15897}#))))))) + (#{build-letrec 4470}# + (lambda (#{src 15917}# + #{in-order? 15918}# + #{ids 15919}# + #{vars 15920}# + #{val-exps 15921}# + #{body-exp 15922}#) + (if (null? #{vars 15920}#) + #{body-exp 15922}# (begin (for-each - #{maybe-name-value! -ANAU$bmvAmthP7L7xwnM9}# - #{ids -ANAU$bmvAmthP7L7xwp@U}# - #{val-exps -ANAU$bmvAmthP7L7xwp@W}#) + #{maybe-name-value! 4451}# + #{ids 15919}# + #{val-exps 15921}#) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{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 -ANAU$bmvAmthP7L7xwp@x}# 0) - 'syntax-object) + #{src 15917}# + #{in-order? 15918}# + #{ids 15919}# + #{vars 15920}# + #{val-exps 15921}# + #{body-exp 15922}#))))) + (#{source-annotation 4479}# + (lambda (#{x 15948}#) + (if (if (vector? #{x 15948}#) + (if (= (vector-length #{x 15948}#) 4) + (eq? (vector-ref #{x 15948}# 0) 'syntax-object) #f) #f) - (#{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)) + (#{source-annotation 4479}# + (vector-ref #{x 15948}# 1)) + (if (pair? #{x 15948}#) + (let ((#{props 15963}# (source-properties #{x 15948}#))) + (if (pair? #{props 15963}#) #{props 15963}# #f)) #f)))) - (#{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 -ANAU$bmvAmthP7L7xwqAG}#))) - #{r -ANAU$bmvAmthP7L7xwqAH}#))))) - (#{macros-only-env -ANAU$bmvAmthP7L7xwnNc}# - (lambda (#{r -ANAU$bmvAmthP7L7xwqAI}#) - (if (null? #{r -ANAU$bmvAmthP7L7xwqAI}#) + (#{extend-env 4480}# + (lambda (#{labels 15965}# #{bindings 15966}# #{r 15967}#) + (if (null? #{labels 15965}#) + #{r 15967}# + (#{extend-env 4480}# + (cdr #{labels 15965}#) + (cdr #{bindings 15966}#) + (cons (cons (car #{labels 15965}#) + (car #{bindings 15966}#)) + #{r 15967}#))))) + (#{extend-var-env 4481}# + (lambda (#{labels 15968}# #{vars 15969}# #{r 15970}#) + (if (null? #{labels 15968}#) + #{r 15970}# + (#{extend-var-env 4481}# + (cdr #{labels 15968}#) + (cdr #{vars 15969}#) + (cons (cons (car #{labels 15968}#) + (cons 'lexical (car #{vars 15969}#))) + #{r 15970}#))))) + (#{macros-only-env 4482}# + (lambda (#{r 15971}#) + (if (null? #{r 15971}#) '() - (let ((#{a -ANAU$bmvAmthP7L7xwqAJ}# - (car #{r -ANAU$bmvAmthP7L7xwqAI}#))) - (if (eq? (car (cdr #{a -ANAU$bmvAmthP7L7xwqAJ}#)) - 'macro) - (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}#) + (let ((#{a 15972}# (car #{r 15971}#))) + (if (eq? (car (cdr #{a 15972}#)) 'macro) + (cons #{a 15972}# + (#{macros-only-env 4482}# (cdr #{r 15971}#))) + (#{macros-only-env 4482}# (cdr #{r 15971}#))))))) + (#{global-extend 4484}# + (lambda (#{type 15974}# #{sym 15975}# #{val 15976}#) (module-define! (current-module) - #{sym -ANAU$bmvAmthP7L7xwqAM}# + #{sym 15975}# (make-syntax-transformer - #{sym -ANAU$bmvAmthP7L7xwqAM}# - #{type -ANAU$bmvAmthP7L7xwqAL}# - #{val -ANAU$bmvAmthP7L7xwqAN}#)))) - (#{id? -ANAU$bmvAmthP7L7xwnNg}# - (lambda (#{x -ANAU$bmvAmthP7L7xwofs}#) - (if (symbol? #{x -ANAU$bmvAmthP7L7xwofs}#) + #{sym 15975}# + #{type 15974}# + #{val 15976}#)))) + (#{id? 4486}# + (lambda (#{x 9787}#) + (if (symbol? #{x 9787}#) #t - (if (if (vector? #{x -ANAU$bmvAmthP7L7xwofs}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwofs}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 0) - 'syntax-object) + (if (if (vector? #{x 9787}#) + (if (= (vector-length #{x 9787}#) 4) + (eq? (vector-ref #{x 9787}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x -ANAU$bmvAmthP7L7xwofs}# 1)) + (symbol? (vector-ref #{x 9787}# 1)) #f)))) - (#{gen-labels -ANAU$bmvAmthP7L7xwnNj}# - (lambda (#{ls -ANAU$bmvAmthP7L7xwqAa}#) - (if (null? #{ls -ANAU$bmvAmthP7L7xwqAa}#) + (#{gen-labels 4489}# + (lambda (#{ls 15986}#) + (if (null? #{ls 15986}#) '() - (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 -ANAU$bmvAmthP7L7xwqAc}#))) - (let ((#{n -ANAU$bmvAmthP7L7xwqAf}# - (vector-length - #{labelvec -ANAU$bmvAmthP7L7xwqAe}#))) - (let ((#{symnamevec -ANAU$bmvAmthP7L7xwqAg}# - (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#)) - (#{marksvec -ANAU$bmvAmthP7L7xwqAh}# - (make-vector #{n -ANAU$bmvAmthP7L7xwqAf}#))) + (cons (string-append + "l-" + (#{session-id 4447}#) + (symbol->string (gensym "-"))) + (#{gen-labels 4489}# (cdr #{ls 15986}#)))))) + (#{make-binding-wrap 4500}# + (lambda (#{ids 15990}# #{labels 15991}# #{w 15992}#) + (if (null? #{ids 15990}#) + #{w 15992}# + (cons (car #{w 15992}#) + (cons (let ((#{labelvec 15993}# + (list->vector #{labels 15991}#))) + (let ((#{n 15994}# + (vector-length #{labelvec 15993}#))) + (let ((#{symnamevec 15995}# + (make-vector #{n 15994}#)) + (#{marksvec 15996}# + (make-vector #{n 15994}#))) (begin (letrec* - ((#{f -ANAU$bmvAmthP7L7xwqAi}# - (lambda (#{ids -ANAU$bmvAmthP7L7xwqAl}# - #{i -ANAU$bmvAmthP7L7xwqAm}#) - (if (not (null? #{ids -ANAU$bmvAmthP7L7xwqAl}#)) + ((#{f 15997}# + (lambda (#{ids 16000}# #{i 16001}#) + (if (not (null? #{ids 16000}#)) (call-with-values (lambda () - (let ((#{x -ANAU$bmvAmthP7L7xwqAp}# - (car #{ids -ANAU$bmvAmthP7L7xwqAl}#))) - (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwqAp}#) + (let ((#{x 16004}# + (car #{ids 16000}#))) + (if (if (vector? #{x 16004}#) (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwqAp}#) + #{x 16004}#) 4) (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwqAp}# + #{x 16004}# 0) 'syntax-object) #f) #f) (values - (vector-ref - #{x -ANAU$bmvAmthP7L7xwqAp}# - 1) - (let ((#{m1 -ANAU$bmvAmthP7L7xwqA5}# - (car #{w -ANAU$bmvAmthP7L7xwqAd}#)) - (#{m2 -ANAU$bmvAmthP7L7xwqA6}# + (vector-ref #{x 16004}# 1) + (let ((#{m1 16020}# + (car #{w 15992}#)) + (#{m2 16021}# (car (vector-ref - #{x -ANAU$bmvAmthP7L7xwqAp}# + #{x 16004}# 2)))) - (if (null? #{m2 -ANAU$bmvAmthP7L7xwqA6}#) - #{m1 -ANAU$bmvAmthP7L7xwqA5}# + (if (null? #{m2 16021}#) + #{m1 16020}# (append - #{m1 -ANAU$bmvAmthP7L7xwqA5}# - #{m2 -ANAU$bmvAmthP7L7xwqA6}#)))) + #{m1 16020}# + #{m2 16021}#)))) (values - #{x -ANAU$bmvAmthP7L7xwqAp}# - (car #{w -ANAU$bmvAmthP7L7xwqAd}#))))) - (lambda (#{symname -ANAU$bmvAmthP7L7xwqBO}# - #{marks -ANAU$bmvAmthP7L7xwqBP}#) + #{x 16004}# + (car #{w 15992}#))))) + (lambda (#{symname 16041}# + #{marks 16042}#) (begin (vector-set! - #{symnamevec -ANAU$bmvAmthP7L7xwqAg}# - #{i -ANAU$bmvAmthP7L7xwqAm}# - #{symname -ANAU$bmvAmthP7L7xwqBO}#) + #{symnamevec 15995}# + #{i 16001}# + #{symname 16041}#) (vector-set! - #{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)) + #{marksvec 15996}# + #{i 16001}# + #{marks 16042}#) + (#{f 15997}# + (cdr #{ids 16000}#) + (#{1+}# #{i 16001}#))))))))) + (#{f 15997}# #{ids 15990}# 0)) (vector 'ribcage - #{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 -ANAU$bmvAmthP7L7xwqBb}# - #{m2 -ANAU$bmvAmthP7L7xwqBi}#))))) - (cons (let ((#{m2 -ANAU$bmvAmthP7L7xwqBr}# - (car #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) - (if (null? #{m2 -ANAU$bmvAmthP7L7xwqBr}#) - #{m1 -ANAU$bmvAmthP7L7xwqBa}# - (append - #{m1 -ANAU$bmvAmthP7L7xwqBa}# - #{m2 -ANAU$bmvAmthP7L7xwqBr}#))) - (let ((#{m2 -ANAU$bmvAmthP7L7xwqB0}# - (cdr #{w2 -ANAU$bmvAmthP7L7xwqBZ}#))) - (if (null? #{m2 -ANAU$bmvAmthP7L7xwqB0}#) - #{s1 -ANAU$bmvAmthP7L7xwqBb}# - (append - #{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}#)) + #{symnamevec 15995}# + #{marksvec 15996}# + #{labelvec 15993}#))))) + (cdr #{w 15992}#)))))) + (#{join-wraps 4502}# + (lambda (#{w1 16051}# #{w2 16052}#) + (let ((#{m1 16053}# (car #{w1 16051}#)) + (#{s1 16054}# (cdr #{w1 16051}#))) + (if (null? #{m1 16053}#) + (if (null? #{s1 16054}#) + #{w2 16052}# + (cons (car #{w2 16052}#) + (let ((#{m2 16061}# (cdr #{w2 16052}#))) + (if (null? #{m2 16061}#) + #{s1 16054}# + (append #{s1 16054}# #{m2 16061}#))))) + (cons (let ((#{m2 16070}# (car #{w2 16052}#))) + (if (null? #{m2 16070}#) + #{m1 16053}# + (append #{m1 16053}# #{m2 16070}#))) + (let ((#{m2 16079}# (cdr #{w2 16052}#))) + (if (null? #{m2 16079}#) + #{s1 16054}# + (append #{s1 16054}# #{m2 16079}#)))))))) + (#{same-marks? 4504}# + (lambda (#{x 16084}# #{y 16085}#) + (if (eq? #{x 16084}# #{y 16085}#) + (eq? #{x 16084}# #{y 16085}#) + (if (not (null? #{x 16084}#)) + (if (not (null? #{y 16085}#)) + (if (eq? (car #{x 16084}#) (car #{y 16085}#)) + (#{same-marks? 4504}# + (cdr #{x 16084}#) + (cdr #{y 16085}#)) #f) #f) #f)))) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - (lambda (#{id -ANAU$bmvAmthP7L7xwqCC}# - #{w -ANAU$bmvAmthP7L7xwqCD}#) + (#{id-var-name 4505}# + (lambda (#{id 16093}# #{w 16094}#) (letrec* - ((#{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 -ANAU$bmvAmthP7L7xwqDG}#))) + ((#{search 16095}# + (lambda (#{sym 16156}# #{subst 16157}# #{marks 16158}#) + (if (null? #{subst 16157}#) + (values #f #{marks 16158}#) + (let ((#{fst 16159}# (car #{subst 16157}#))) + (if (eq? #{fst 16159}# 'shift) + (#{search 16095}# + #{sym 16156}# + (cdr #{subst 16157}#) + (cdr #{marks 16158}#)) + (let ((#{symnames 16161}# (vector-ref #{fst 16159}# 1))) + (if (vector? #{symnames 16161}#) + (let ((#{n 16173}# + (vector-length #{symnames 16161}#))) (letrec* - ((#{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}#) + ((#{f 16174}# + (lambda (#{i 16176}#) + (if (= #{i 16176}# #{n 16173}#) + (#{search 16095}# + #{sym 16156}# + (cdr #{subst 16157}#) + #{marks 16158}#) (if (if (eq? (vector-ref - #{symnames -ANAU$bmvAmthP7L7xwqDG}# - #{i -ANAU$bmvAmthP7L7xwqDV}#) - #{sym -ANAU$bmvAmthP7L7xwqDB}#) - (#{same-marks? -ANAU$bmvAmthP7L7xwnNy}# - #{marks -ANAU$bmvAmthP7L7xwqDD}# + #{symnames 16161}# + #{i 16176}#) + #{sym 16156}#) + (#{same-marks? 4504}# + #{marks 16158}# (vector-ref - (vector-ref - #{fst -ANAU$bmvAmthP7L7xwqDE}# - 2) - #{i -ANAU$bmvAmthP7L7xwqDV}#)) + (vector-ref #{fst 16159}# 2) + #{i 16176}#)) #f) (values (vector-ref - (vector-ref - #{fst -ANAU$bmvAmthP7L7xwqDE}# - 3) - #{i -ANAU$bmvAmthP7L7xwqDV}#) - #{marks -ANAU$bmvAmthP7L7xwqDD}#) - (#{f -ANAU$bmvAmthP7L7xwqDT}# - (#{1+}# #{i -ANAU$bmvAmthP7L7xwqDV}#))))))) - (#{f -ANAU$bmvAmthP7L7xwqDT}# 0))) + (vector-ref #{fst 16159}# 3) + #{i 16176}#) + #{marks 16158}#) + (#{f 16174}# (#{1+}# #{i 16176}#))))))) + (#{f 16174}# 0))) (letrec* - ((#{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}# + ((#{f 16209}# + (lambda (#{symnames 16211}# #{i 16212}#) + (if (null? #{symnames 16211}#) + (#{search 16095}# + #{sym 16156}# + (cdr #{subst 16157}#) + #{marks 16158}#) + (if (if (eq? (car #{symnames 16211}#) + #{sym 16156}#) + (#{same-marks? 4504}# + #{marks 16158}# (list-ref - (vector-ref - #{fst -ANAU$bmvAmthP7L7xwqDE}# - 2) - #{i -ANAU$bmvAmthP7L7xwqD5}#)) + (vector-ref #{fst 16159}# 2) + #{i 16212}#)) #f) (values (list-ref - (vector-ref - #{fst -ANAU$bmvAmthP7L7xwqDE}# - 3) - #{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 -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 -ANAU$bmvAmthP7L7xwqCC}# 0) - 'syntax-object) + (vector-ref #{fst 16159}# 3) + #{i 16212}#) + #{marks 16158}#) + (#{f 16209}# + (cdr #{symnames 16211}#) + (#{1+}# #{i 16212}#))))))) + (#{f 16209}# #{symnames 16161}# 0)))))))))) + (if (symbol? #{id 16093}#) + (let ((#{t 16098}# + (#{search 16095}# + #{id 16093}# + (cdr #{w 16094}#) + (car #{w 16094}#)))) + (if #{t 16098}# #{t 16098}# #{id 16093}#)) + (if (if (vector? #{id 16093}#) + (if (= (vector-length #{id 16093}#) 4) + (eq? (vector-ref #{id 16093}# 0) 'syntax-object) #f) #f) - (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 -ANAU$bmvAmthP7L7xwqCi}# - #{m2 -ANAU$bmvAmthP7L7xwqCj}#))))) + (let ((#{id 16113}# (vector-ref #{id 16093}# 1)) + (#{w1 16114}# (vector-ref #{id 16093}# 2))) + (let ((#{marks 16115}# + (let ((#{m1 16125}# (car #{w 16094}#)) + (#{m2 16126}# (car #{w1 16114}#))) + (if (null? #{m2 16126}#) + #{m1 16125}# + (append #{m1 16125}# #{m2 16126}#))))) (call-with-values (lambda () - (#{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}#))))))) + (#{search 16095}# + #{id 16113}# + (cdr #{w 16094}#) + #{marks 16115}#)) + (lambda (#{new-id 16142}# #{marks 16143}#) + (if #{new-id 16142}# + #{new-id 16142}# + (let ((#{t 16151}# + (#{search 16095}# + #{id 16113}# + (cdr #{w1 16114}#) + #{marks 16143}#))) + (if #{t 16151}# #{t 16151}# #{id 16113}#))))))) (syntax-violation 'id-var-name "invalid id" - #{id -ANAU$bmvAmthP7L7xwqCC}#)))))) - (#{locally-bound-identifiers -ANAU$bmvAmthP7L7xwnN0}# - (lambda (#{w -ANAU$bmvAmthP7L7xwqEP}# - #{mod -ANAU$bmvAmthP7L7xwqEQ}#) + #{id 16093}#)))))) + (#{locally-bound-identifiers 4506}# + (lambda (#{w 16234}# #{mod 16235}#) (letrec* - ((#{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}#) + ((#{scan 16236}# + (lambda (#{subst 16241}# #{results 16242}#) + (if (null? #{subst 16241}#) + #{results 16242}# + (let ((#{fst 16243}# (car #{subst 16241}#))) + (if (eq? #{fst 16243}# 'shift) + (#{scan 16236}# + (cdr #{subst 16241}#) + #{results 16242}#) + (let ((#{symnames 16245}# (vector-ref #{fst 16243}# 1)) + (#{marks 16246}# (vector-ref #{fst 16243}# 2))) + (if (vector? #{symnames 16245}#) + (#{scan-vector-rib 16238}# + #{subst 16241}# + #{symnames 16245}# + #{marks 16246}# + #{results 16242}#) + (#{scan-list-rib 16237}# + #{subst 16241}# + #{symnames 16245}# + #{marks 16246}# + #{results 16242}#)))))))) + (#{scan-list-rib 16237}# + (lambda (#{subst 16344}# + #{symnames 16345}# + #{marks 16346}# + #{results 16347}#) (letrec* - ((#{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 -ANAU$bmvAmthP7L7xwqHv}#)) - (cons 'shift - (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 -ANAU$bmvAmthP7L7xwqHx}#))) + ((#{f 16348}# + (lambda (#{symnames 16448}# + #{marks 16449}# + #{results 16450}#) + (if (null? #{symnames 16448}#) + (#{scan 16236}# + (cdr #{subst 16344}#) + #{results 16450}#) + (#{f 16348}# + (cdr #{symnames 16448}#) + (cdr #{marks 16449}#) + (cons (#{wrap 4515}# + (car #{symnames 16448}#) + (let ((#{w 16458}# + (cons (car #{marks 16449}#) + #{subst 16344}#))) + (cons (cons #f (car #{w 16458}#)) + (cons 'shift (cdr #{w 16458}#)))) + #{mod 16235}#) + #{results 16450}#)))))) + (#{f 16348}# + #{symnames 16345}# + #{marks 16346}# + #{results 16347}#)))) + (#{scan-vector-rib 16238}# + (lambda (#{subst 16459}# + #{symnames 16460}# + #{marks 16461}# + #{results 16462}#) + (let ((#{n 16463}# (vector-length #{symnames 16460}#))) (letrec* - ((#{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}# + ((#{f 16464}# + (lambda (#{i 16547}# #{results 16548}#) + (if (= #{i 16547}# #{n 16463}#) + (#{scan 16236}# + (cdr #{subst 16459}#) + #{results 16548}#) + (#{f 16464}# + (#{1+}# #{i 16547}#) + (cons (#{wrap 4515}# (vector-ref - #{symnames -ANAU$bmvAmthP7L7xwqHx}# - #{i -ANAU$bmvAmthP7L7xwqJI}#) - (let ((#{w -ANAU$bmvAmthP7L7xwqJR}# + #{symnames 16460}# + #{i 16547}#) + (let ((#{w 16556}# (cons (vector-ref - #{marks -ANAU$bmvAmthP7L7xwqHy}# - #{i -ANAU$bmvAmthP7L7xwqJI}#) - #{subst -ANAU$bmvAmthP7L7xwqHw}#))) - (cons (cons #f - (car #{w -ANAU$bmvAmthP7L7xwqJR}#)) - (cons 'shift - (cdr #{w -ANAU$bmvAmthP7L7xwqJR}#)))) - #{mod -ANAU$bmvAmthP7L7xwqEQ}#) - #{results -ANAU$bmvAmthP7L7xwqJJ}#)))))) - (#{f -ANAU$bmvAmthP7L7xwqH1}# - 0 - #{results -ANAU$bmvAmthP7L7xwqHz}#)))))) - (#{scan -ANAU$bmvAmthP7L7xwqER}# - (cdr #{w -ANAU$bmvAmthP7L7xwqEP}#) - '())))) - (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# - (lambda (#{ids -ANAU$bmvAmthP7L7xwqJS}#) + #{marks 16461}# + #{i 16547}#) + #{subst 16459}#))) + (cons (cons #f (car #{w 16556}#)) + (cons 'shift (cdr #{w 16556}#)))) + #{mod 16235}#) + #{results 16548}#)))))) + (#{f 16464}# 0 #{results 16462}#)))))) + (#{scan 16236}# (cdr #{w 16234}#) '())))) + (#{valid-bound-ids? 4512}# + (lambda (#{ids 16557}#) (if (letrec* - ((#{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}#) + ((#{all-ids? 16558}# + (lambda (#{ids 16720}#) + (if (null? #{ids 16720}#) + (null? #{ids 16720}#) + (if (let ((#{x 16731}# (car #{ids 16720}#))) + (if (symbol? #{x 16731}#) #t - (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqMA}#) - (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwqMA}#) - 4) - (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwqMA}# - 0) + (if (if (vector? #{x 16731}#) + (if (= (vector-length #{x 16731}#) 4) + (eq? (vector-ref #{x 16731}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x -ANAU$bmvAmthP7L7xwqMA}# 1)) + (symbol? (vector-ref #{x 16731}# 1)) #f))) - (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# - (cdr #{ids -ANAU$bmvAmthP7L7xwqL1}#)) + (#{all-ids? 16558}# (cdr #{ids 16720}#)) #f))))) - (#{all-ids? -ANAU$bmvAmthP7L7xwqJT}# - #{ids -ANAU$bmvAmthP7L7xwqJS}#)) - (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# - #{ids -ANAU$bmvAmthP7L7xwqJS}#) + (#{all-ids? 16558}# #{ids 16557}#)) + (#{distinct-bound-ids? 4513}# #{ids 16557}#) #f))) - (#{distinct-bound-ids? -ANAU$bmvAmthP7L7xwnN7}# - (lambda (#{ids -ANAU$bmvAmthP7L7xwqOA}#) + (#{distinct-bound-ids? 4513}# + (lambda (#{ids 16859}#) (letrec* - ((#{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}#)) + ((#{distinct? 16860}# + (lambda (#{ids 16972}#) + (if (null? #{ids 16972}#) + (null? #{ids 16972}#) + (if (not (#{bound-id-member? 4514}# + (car #{ids 16972}#) + (cdr #{ids 16972}#))) + (#{distinct? 16860}# (cdr #{ids 16972}#)) #f))))) - (#{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 -ANAU$bmvAmthP7L7xwqTD}#) - 4) - (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwqTD}# - 0) + (#{distinct? 16860}# #{ids 16859}#)))) + (#{bound-id-member? 4514}# + (lambda (#{x 17182}# #{list 17183}#) + (if (not (null? #{list 17183}#)) + (let ((#{t 17184}# + (let ((#{j 17265}# (car #{list 17183}#))) + (if (if (if (vector? #{x 17182}#) + (if (= (vector-length #{x 17182}#) 4) + (eq? (vector-ref #{x 17182}# 0) 'syntax-object) #f) #f) - (if (vector? #{j -ANAU$bmvAmthP7L7xwqUW}#) - (if (= (vector-length - #{j -ANAU$bmvAmthP7L7xwqUW}#) - 4) - (eq? (vector-ref #{j -ANAU$bmvAmthP7L7xwqUW}# 0) - 'syntax-object) + (if (vector? #{j 17265}#) + (if (= (vector-length #{j 17265}#) 4) + (eq? (vector-ref #{j 17265}# 0) 'syntax-object) #f) #f) #f) - (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))) + (if (eq? (vector-ref #{x 17182}# 1) + (vector-ref #{j 17265}# 1)) + (#{same-marks? 4504}# + (car (vector-ref #{x 17182}# 2)) + (car (vector-ref #{j 17265}# 2))) #f) - (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}#)))) + (eq? #{x 17182}# #{j 17265}#))))) + (if #{t 17184}# + #{t 17184}# + (#{bound-id-member? 4514}# + #{x 17182}# + (cdr #{list 17183}#)))) #f))) - (#{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}#)) + (#{wrap 4515}# + (lambda (#{x 17309}# #{w 17310}# #{defmod 17311}#) + (if (if (null? (car #{w 17310}#)) + (null? (cdr #{w 17310}#)) #f) - #{x -ANAU$bmvAmthP7L7xwqVC}# - (if (if (vector? #{x -ANAU$bmvAmthP7L7xwqVC}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwqVC}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwqVC}# 0) - 'syntax-object) + #{x 17309}# + (if (if (vector? #{x 17309}#) + (if (= (vector-length #{x 17309}#) 4) + (eq? (vector-ref #{x 17309}# 0) 'syntax-object) #f) #f) - (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))) + (let ((#{expression 17325}# (vector-ref #{x 17309}# 1)) + (#{wrap 17326}# + (#{join-wraps 4502}# + #{w 17310}# + (vector-ref #{x 17309}# 2))) + (#{module 17327}# (vector-ref #{x 17309}# 3))) (vector 'syntax-object - #{expression -ANAU$bmvAmthP7L7xwqVS}# - #{wrap -ANAU$bmvAmthP7L7xwqVT}# - #{module -ANAU$bmvAmthP7L7xwqVU}#)) - (if (null? #{x -ANAU$bmvAmthP7L7xwqVC}#) - #{x -ANAU$bmvAmthP7L7xwqVC}# + #{expression 17325}# + #{wrap 17326}# + #{module 17327}#)) + (if (null? #{x 17309}#) + #{x 17309}# (vector 'syntax-object - #{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}# + #{x 17309}# + #{w 17310}# + #{defmod 17311}#)))))) + (#{source-wrap 4516}# + (lambda (#{x 17344}# + #{w 17345}# + #{s 17346}# + #{defmod 17347}#) + (#{wrap 4515}# (begin - (if (if (pair? #{x -ANAU$bmvAmthP7L7xwqVl}#) - #{s -ANAU$bmvAmthP7L7xwqVn}# - #f) - (set-source-properties! - #{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}# + (if (if (pair? #{x 17344}#) #{s 17346}# #f) + (set-source-properties! #{x 17344}# #{s 17346}#)) + #{x 17344}#) + #{w 17345}# + #{defmod 17347}#))) + (#{expand-sequence 4517}# + (lambda (#{body 27267}# + #{r 27268}# + #{w 27269}# + #{s 27270}# + #{mod 27271}#) + (#{build-sequence 4467}# + #{s 27270}# (letrec* - ((#{dobody -ANAU$bmvAmthP7L7xwsw@}# - (lambda (#{body -ANAU$bmvAmthP7L7xws2d}# - #{r -ANAU$bmvAmthP7L7xws2e}# - #{w -ANAU$bmvAmthP7L7xws2f}# - #{mod -ANAU$bmvAmthP7L7xws2g}#) - (if (null? #{body -ANAU$bmvAmthP7L7xws2d}#) + ((#{dobody 27351}# + (lambda (#{body 27701}# + #{r 27702}# + #{w 27703}# + #{mod 27704}#) + (if (null? #{body 27701}#) '() - (let ((#{first -ANAU$bmvAmthP7L7xws2h}# - (let ((#{e -ANAU$bmvAmthP7L7xws2l}# - (car #{body -ANAU$bmvAmthP7L7xws2d}#))) + (let ((#{first 27705}# + (let ((#{e 27709}# (car #{body 27701}#))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xws2l}# - #{r -ANAU$bmvAmthP7L7xws2e}# - #{w -ANAU$bmvAmthP7L7xws2f}# - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xws2l}#) + (#{syntax-type 4521}# + #{e 27709}# + #{r 27702}# + #{w 27703}# + (#{source-annotation 4479}# #{e 27709}#) #f - #{mod -ANAU$bmvAmthP7L7xws2g}# + #{mod 27704}# #f)) - (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}#) + (lambda (#{type 27716}# + #{value 27717}# + #{e 27718}# + #{w 27719}# + #{s 27720}# + #{mod 27721}#) + (#{expand-expr 4523}# + #{type 27716}# + #{value 27717}# + #{e 27718}# + #{r 27702}# + #{w 27719}# + #{s 27720}# + #{mod 27721}#)))))) + (cons #{first 27705}# + (#{dobody 27351}# + (cdr #{body 27701}#) + #{r 27702}# + #{w 27703}# + #{mod 27704}#))))))) + (#{dobody 27351}# + #{body 27267}# + #{r 27268}# + #{w 27269}# + #{mod 27271}#))))) + (#{expand-top-sequence 4518}# + (lambda (#{body 17365}# + #{r 17366}# + #{w 17367}# + #{s 17368}# + #{m 17369}# + #{esew 17370}# + #{mod 17371}#) (letrec* - ((#{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}# + ((#{scan 17372}# + (lambda (#{body 17503}# + #{r 17504}# + #{w 17505}# + #{s 17506}# + #{m 17507}# + #{esew 17508}# + #{mod 17509}# + #{exps 17510}#) + (if (null? #{body 17503}#) + #{exps 17510}# (call-with-values (lambda () (call-with-values (lambda () - (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}#)) + (let ((#{e 17511}# (car #{body 17503}#))) + (#{syntax-type 4521}# + #{e 17511}# + #{r 17504}# + #{w 17505}# + (let ((#{t 17515}# + (#{source-annotation 4479}# + #{e 17511}#))) + (if #{t 17515}# #{t 17515}# #{s 17506}#)) #f - #{mod -ANAU$bmvAmthP7L7xwqYK}# + #{mod 17509}# #f))) - (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 -ANAU$bmvAmthP7L7xwqcF}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwqb9}# - '(_)))) - (if #{tmp -ANAU$bmvAmthP7L7xwqcF}# + (lambda (#{type 17750}# + #{value 17751}# + #{e 17752}# + #{w 17753}# + #{s 17754}# + #{mod 17755}#) + (if (eqv? #{type 17750}# 'begin-form) + (let ((#{tmp 17760}# + ($sc-dispatch #{e 17752}# '(_)))) + (if #{tmp 17760}# (@apply - (lambda () #{exps -ANAU$bmvAmthP7L7xwqYL}#) - #{tmp -ANAU$bmvAmthP7L7xwqcF}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwqcJ}# + (lambda () #{exps 17510}#) + #{tmp 17760}#) + (let ((#{tmp 17764}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwqb9}# + #{e 17752}# '(_ any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwqcJ}# + (if #{tmp 17764}# (@apply - (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}#) + (lambda (#{e1 17768}# #{e2 17769}#) + (#{scan 17372}# + (cons #{e1 17768}# #{e2 17769}#) + #{r 17504}# + #{w 17753}# + #{s 17754}# + #{m 17507}# + #{esew 17508}# + #{mod 17755}# + #{exps 17510}#)) + #{tmp 17764}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwqb9}#))))) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# - 'local-syntax-form) - (#{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 -ANAU$bmvAmthP7L7xwqcm}# + #{e 17752}#))))) + (if (eqv? #{type 17750}# 'local-syntax-form) + (#{expand-local-syntax 4527}# + #{value 17751}# + #{e 17752}# + #{r 17504}# + #{w 17753}# + #{s 17754}# + #{mod 17755}# + (lambda (#{body 17784}# + #{r 17785}# + #{w 17786}# + #{s 17787}# + #{mod 17788}#) + (#{scan 17372}# + #{body 17784}# + #{r 17785}# + #{w 17786}# + #{s 17787}# + #{m 17507}# + #{esew 17508}# + #{mod 17788}# + #{exps 17510}#))) + (if (eqv? #{type 17750}# 'eval-when-form) + (let ((#{tmp 17793}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwqb9}# + #{e 17752}# '(_ each-any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwqcm}# + (if #{tmp 17793}# (@apply - (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) + (lambda (#{x 17797}# + #{e1 17798}# + #{e2 17799}#) + (let ((#{when-list 17800}# + (#{parse-when-list 4520}# + #{e 17752}# + #{x 17797}#)) + (#{body 17801}# + (cons #{e1 17798}# + #{e2 17799}#))) + (if (eq? #{m 17507}# 'e) (if (memq 'eval - #{when-list -ANAU$bmvAmthP7L7xwqct}#) - (#{scan -ANAU$bmvAmthP7L7xwqWB}# - #{body -ANAU$bmvAmthP7L7xwqcu}# - #{r -ANAU$bmvAmthP7L7xwqYF}# - #{w -ANAU$bmvAmthP7L7xwqb$}# - #{s -ANAU$bmvAmthP7L7xwqb@}# + #{when-list 17800}#) + (#{scan 17372}# + #{body 17801}# + #{r 17504}# + #{w 17753}# + #{s 17754}# (if (memq 'expand - #{when-list -ANAU$bmvAmthP7L7xwqct}#) + #{when-list 17800}#) 'c&e 'e) '(eval) - #{mod -ANAU$bmvAmthP7L7xwqcA}# - #{exps -ANAU$bmvAmthP7L7xwqYL}#) + #{mod 17755}# + #{exps 17510}#) (begin (if (memq 'expand - #{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@}# + #{when-list 17800}#) + (let ((#{x 17878}# + (#{expand-top-sequence 4518}# + #{body 17801}# + #{r 17504}# + #{w 17753}# + #{s 17754}# 'e '(eval) - #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + #{mod 17755}#))) (primitive-eval - #{x -ANAU$bmvAmthP7L7xwqd7}#))) - #{exps -ANAU$bmvAmthP7L7xwqYL}#)) + #{x 17878}#))) + #{exps 17510}#)) (if (memq 'load - #{when-list -ANAU$bmvAmthP7L7xwqct}#) - (if (let ((#{t -ANAU$bmvAmthP7L7xwqeV}# + #{when-list 17800}#) + (if (let ((#{t 17904}# (memq 'compile - #{when-list -ANAU$bmvAmthP7L7xwqct}#))) - (if #{t -ANAU$bmvAmthP7L7xwqeV}# - #{t -ANAU$bmvAmthP7L7xwqeV}# - (let ((#{t -ANAU$bmvAmthP7L7xwqfG}# + #{when-list 17800}#))) + (if #{t 17904}# + #{t 17904}# + (let ((#{t 17953}# (memq 'expand - #{when-list -ANAU$bmvAmthP7L7xwqct}#))) - (if #{t -ANAU$bmvAmthP7L7xwqfG}# - #{t -ANAU$bmvAmthP7L7xwqfG}# - (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# + #{when-list 17800}#))) + (if #{t 17953}# + #{t 17953}# + (if (eq? #{m 17507}# 'c&e) (memq 'eval - #{when-list -ANAU$bmvAmthP7L7xwqct}#) + #{when-list 17800}#) #f))))) - (#{scan -ANAU$bmvAmthP7L7xwqWB}# - #{body -ANAU$bmvAmthP7L7xwqcu}# - #{r -ANAU$bmvAmthP7L7xwqYF}# - #{w -ANAU$bmvAmthP7L7xwqb$}# - #{s -ANAU$bmvAmthP7L7xwqb@}# + (#{scan 17372}# + #{body 17801}# + #{r 17504}# + #{w 17753}# + #{s 17754}# 'c&e '(compile load) - #{mod -ANAU$bmvAmthP7L7xwqcA}# - #{exps -ANAU$bmvAmthP7L7xwqYL}#) - (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# - 'c) + #{mod 17755}# + #{exps 17510}#) + (if (if (eq? #{m 17507}# 'c) #t - (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# - 'c&e)) - (#{scan -ANAU$bmvAmthP7L7xwqWB}# - #{body -ANAU$bmvAmthP7L7xwqcu}# - #{r -ANAU$bmvAmthP7L7xwqYF}# - #{w -ANAU$bmvAmthP7L7xwqb$}# - #{s -ANAU$bmvAmthP7L7xwqb@}# + (eq? #{m 17507}# 'c&e)) + (#{scan 17372}# + #{body 17801}# + #{r 17504}# + #{w 17753}# + #{s 17754}# 'c '(load) - #{mod -ANAU$bmvAmthP7L7xwqcA}# - #{exps -ANAU$bmvAmthP7L7xwqYL}#) - #{exps -ANAU$bmvAmthP7L7xwqYL}#)) - (if (let ((#{t -ANAU$bmvAmthP7L7xwqhH}# + #{mod 17755}# + #{exps 17510}#) + #{exps 17510}#)) + (if (let ((#{t 18082}# (memq 'compile - #{when-list -ANAU$bmvAmthP7L7xwqct}#))) - (if #{t -ANAU$bmvAmthP7L7xwqhH}# - #{t -ANAU$bmvAmthP7L7xwqhH}# - (let ((#{t -ANAU$bmvAmthP7L7xwqh4}# + #{when-list 17800}#))) + (if #{t 18082}# + #{t 18082}# + (let ((#{t 18131}# (memq 'expand - #{when-list -ANAU$bmvAmthP7L7xwqct}#))) - (if #{t -ANAU$bmvAmthP7L7xwqh4}# - #{t -ANAU$bmvAmthP7L7xwqh4}# - (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# + #{when-list 17800}#))) + (if #{t 18131}# + #{t 18131}# + (if (eq? #{m 17507}# 'c&e) (memq 'eval - #{when-list -ANAU$bmvAmthP7L7xwqct}#) + #{when-list 17800}#) #f))))) (begin - (let ((#{x -ANAU$bmvAmthP7L7xwqj0}# - (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# - #{body -ANAU$bmvAmthP7L7xwqcu}# - #{r -ANAU$bmvAmthP7L7xwqYF}# - #{w -ANAU$bmvAmthP7L7xwqb$}# - #{s -ANAU$bmvAmthP7L7xwqb@}# + (let ((#{x 18255}# + (#{expand-top-sequence 4518}# + #{body 17801}# + #{r 17504}# + #{w 17753}# + #{s 17754}# 'e '(eval) - #{mod -ANAU$bmvAmthP7L7xwqcA}#))) + #{mod 17755}#))) (primitive-eval - #{x -ANAU$bmvAmthP7L7xwqj0}#)) - #{exps -ANAU$bmvAmthP7L7xwqYL}#) - #{exps -ANAU$bmvAmthP7L7xwqYL}#))))) - #{tmp -ANAU$bmvAmthP7L7xwqcm}#) + #{x 18255}#)) + #{exps 17510}#) + #{exps 17510}#))))) + #{tmp 17793}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwqb9}#))) - (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# + #{e 17752}#))) + (if (if (eqv? #{type 17750}# 'define-syntax-form) #t - (eqv? #{type -ANAU$bmvAmthP7L7xwqb7}# + (eqv? #{type 17750}# 'define-syntax-parameter-form)) - (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 -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}#)))) + (let ((#{n 18301}# + (#{id-var-name 4505}# + #{value 17751}# + #{w 17753}#)) + (#{r 18302}# + (#{macros-only-env 4482}# + #{r 17504}#))) + (if (eqv? #{m 17507}# 'c) + (if (memq 'compile #{esew 17508}#) + (let ((#{e 18306}# + (#{expand-install-global 4519}# + #{n 18301}# + (#{expand 4522}# + #{e 17752}# + #{r 18302}# + #{w 17753}# + #{mod 17755}#)))) (begin - (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# - #{e -ANAU$bmvAmthP7L7xwqkn}# - #{mod -ANAU$bmvAmthP7L7xwqcA}#) - (if (memq 'load - #{esew -ANAU$bmvAmthP7L7xwqYJ}#) - (cons #{e -ANAU$bmvAmthP7L7xwqkn}# - #{exps -ANAU$bmvAmthP7L7xwqYL}#) - #{exps -ANAU$bmvAmthP7L7xwqYL}#))) - (if (memq 'load - #{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 -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}#)))) + (#{top-level-eval-hook 4445}# + #{e 18306}# + #{mod 17755}#) + (if (memq 'load #{esew 17508}#) + (cons #{e 18306}# #{exps 17510}#) + #{exps 17510}#))) + (if (memq 'load #{esew 17508}#) + (cons (#{expand-install-global 4519}# + #{n 18301}# + (#{expand 4522}# + #{e 17752}# + #{r 18302}# + #{w 17753}# + #{mod 17755}#)) + #{exps 17510}#) + #{exps 17510}#)) + (if (eqv? #{m 17507}# 'c&e) + (let ((#{e 18948}# + (#{expand-install-global 4519}# + #{n 18301}# + (#{expand 4522}# + #{e 17752}# + #{r 18302}# + #{w 17753}# + #{mod 17755}#)))) (begin - (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# - #{e -ANAU$bmvAmthP7L7xwqup}# - #{mod -ANAU$bmvAmthP7L7xwqcA}#) - (cons #{e -ANAU$bmvAmthP7L7xwqup}# - #{exps -ANAU$bmvAmthP7L7xwqYL}#))) + (#{top-level-eval-hook 4445}# + #{e 18948}# + #{mod 17755}#) + (cons #{e 18948}# #{exps 17510}#))) (begin - (if (memq 'eval - #{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 -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 (memq 'eval #{esew 17508}#) + (#{top-level-eval-hook 4445}# + (#{expand-install-global 4519}# + #{n 18301}# + (#{expand 4522}# + #{e 17752}# + #{r 18302}# + #{w 17753}# + #{mod 17755}#)) + #{mod 17755}#)) + #{exps 17510}#)))) + (if (eqv? #{type 17750}# 'define-form) + (let ((#{n 19622}# + (#{id-var-name 4505}# + #{value 17751}# + #{w 17753}#))) + (let ((#{type 19623}# + (car (let ((#{t 19630}# + (assq #{n 19622}# + #{r 17504}#))) + (if #{t 19630}# + (cdr #{t 19630}#) (if (symbol? - #{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}# + #{n 19622}#) + (let ((#{t 19636}# + (#{get-global-definition-hook 4449}# + #{n 19622}# + #{mod 17755}#))) + (if #{t 19636}# + #{t 19636}# '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# - 'global) + (if (if (eqv? #{type 19623}# 'global) #t - (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# - 'core) + (if (eqv? #{type 19623}# 'core) #t - (if (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# + (if (eqv? #{type 19623}# 'macro) #t - (eqv? #{type -ANAU$bmvAmthP7L7xwq5M}# + (eqv? #{type 19623}# 'module-ref)))) (begin - (if (if (if (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# - 'c) + (if (if (if (eq? #{m 17507}# 'c) #t - (eq? #{m -ANAU$bmvAmthP7L7xwqYI}# - 'c&e)) + (eq? #{m 17507}# 'c&e)) (if (not (module-local-variable (current-module) - #{n -ANAU$bmvAmthP7L7xwq5L}#)) + #{n 19622}#)) (current-module) #f) #f) - (let ((#{old -ANAU$bmvAmthP7L7xwq54}# + (let ((#{old 19667}# (module-variable (current-module) - #{n -ANAU$bmvAmthP7L7xwq5L}#))) + #{n 19622}#))) (if (if (variable? - #{old -ANAU$bmvAmthP7L7xwq54}#) + #{old 19667}#) (variable-bound? - #{old -ANAU$bmvAmthP7L7xwq54}#) + #{old 19667}#) #f) (module-define! (current-module) - #{n -ANAU$bmvAmthP7L7xwq5L}# + #{n 19622}# (variable-ref - #{old -ANAU$bmvAmthP7L7xwq54}#)) + #{old 19667}#)) (module-add! (current-module) - #{n -ANAU$bmvAmthP7L7xwq5L}# + #{n 19622}# (make-undefined-variable))))) - (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}#)))) + (cons (if (eq? #{m 17507}# 'c&e) + (let ((#{x 20108}# + (#{build-global-definition 4461}# + #{s 17754}# + #{n 19622}# + (#{expand 4522}# + #{e 17752}# + #{r 17504}# + #{w 17753}# + #{mod 17755}#)))) (begin - (#{top-level-eval-hook -ANAU$bmvAmthP7L7xwnM4}# - #{x -ANAU$bmvAmthP7L7xwrAx}# - #{mod -ANAU$bmvAmthP7L7xwqcA}#) - #{x -ANAU$bmvAmthP7L7xwrAx}#)) + (#{top-level-eval-hook 4445}# + #{x 20108}# + #{mod 17755}#) + #{x 20108}#)) (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}# + (#{build-global-definition 4461}# + #{s 17754}# + #{n 19622}# + (#{expand 4522}# + #{e 17752}# + #{r 17504}# + #{w 17753}# + #{mod 17755}#)))) + #{exps 17510}#)) + (if (eqv? #{type 19623}# 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e -ANAU$bmvAmthP7L7xwqb9}# - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{value -ANAU$bmvAmthP7L7xwqb8}# - #{w -ANAU$bmvAmthP7L7xwqb$}# - #{mod -ANAU$bmvAmthP7L7xwqcA}#)) + #{e 17752}# + (#{wrap 4515}# + #{value 17751}# + #{w 17753}# + #{mod 17755}#)) (syntax-violation #f "cannot define keyword at top level" - #{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}#))) + #{e 17752}# + (#{wrap 4515}# + #{value 17751}# + #{w 17753}# + #{mod 17755}#)))))) + (cons (if (eq? #{m 17507}# 'c&e) + (let ((#{x 20563}# + (#{expand-expr 4523}# + #{type 17750}# + #{value 17751}# + #{e 17752}# + #{r 17504}# + #{w 17753}# + #{s 17754}# + #{mod 17755}#))) (begin - (primitive-eval - #{x -ANAU$bmvAmthP7L7xwrH4}#) - #{x -ANAU$bmvAmthP7L7xwrH4}#)) + (primitive-eval #{x 20563}#) + #{x 20563}#)) (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}#))))))) + (#{expand-expr 4523}# + #{type 17750}# + #{value 17751}# + #{e 17752}# + #{r 17504}# + #{w 17753}# + #{s 17754}# + #{mod 17755}#))) + #{exps 17510}#))))))))) + (lambda (#{exps 20568}#) + (#{scan 17372}# + (cdr #{body 17503}#) + #{r 17504}# + #{w 17505}# + #{s 17506}# + #{m 17507}# + #{esew 17508}# + #{mod 17509}# + #{exps 20568}#))))))) (call-with-values (lambda () - (#{scan -ANAU$bmvAmthP7L7xwqWB}# - #{body -ANAU$bmvAmthP7L7xwqV6}# - #{r -ANAU$bmvAmthP7L7xwqV7}# - #{w -ANAU$bmvAmthP7L7xwqV8}# - #{s -ANAU$bmvAmthP7L7xwqV9}# - #{m -ANAU$bmvAmthP7L7xwqV$}# - #{esew -ANAU$bmvAmthP7L7xwqV@}# - #{mod -ANAU$bmvAmthP7L7xwqWA}# + (#{scan 17372}# + #{body 17365}# + #{r 17366}# + #{w 17367}# + #{s 17368}# + #{m 17369}# + #{esew 17370}# + #{mod 17371}# '())) - (lambda (#{exps -ANAU$bmvAmthP7L7xwqWE}#) - (if (null? #{exps -ANAU$bmvAmthP7L7xwqWE}#) + (lambda (#{exps 17375}#) + (if (null? #{exps 17375}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s -ANAU$bmvAmthP7L7xwqV9}#) - (#{build-sequence -ANAU$bmvAmthP7L7xwnNN}# - #{s -ANAU$bmvAmthP7L7xwqV9}# + #{s 17368}#) + (#{build-sequence 4467}# + #{s 17368}# (letrec* - ((#{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 -ANAU$bmvAmthP7L7xwqYC}#) - (#{e -ANAU$bmvAmthP7L7xwqYC}#) - #{e -ANAU$bmvAmthP7L7xwqYC}#) - #{out -ANAU$bmvAmthP7L7xwqYB}#))))))) - (#{lp -ANAU$bmvAmthP7L7xwqWs}# - #{exps -ANAU$bmvAmthP7L7xwqWE}# - '()))))))))) - (#{expand-install-global -ANAU$bmvAmthP7L7xwnOB}# - (lambda (#{name -ANAU$bmvAmthP7L7xwrH$}# - #{e -ANAU$bmvAmthP7L7xwrH@}#) - (let ((#{exp -ANAU$bmvAmthP7L7xwrIF}# - (let ((#{fun-exp -ANAU$bmvAmthP7L7xwrIP}# + ((#{lp 17415}# + (lambda (#{in 17499}# #{out 17500}#) + (if (null? #{in 17499}#) + #{out 17500}# + (let ((#{e 17501}# (car #{in 17499}#))) + (#{lp 17415}# + (cdr #{in 17499}#) + (cons (if (procedure? #{e 17501}#) + (#{e 17501}#) + #{e 17501}#) + #{out 17500}#))))))) + (#{lp 17415}# #{exps 17375}# '()))))))))) + (#{expand-install-global 4519}# + (lambda (#{name 20569}# #{e 20570}#) + (let ((#{exp 20576}# + (let ((#{fun-exp 20586}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1547,416 +1333,391 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps -ANAU$bmvAmthP7L7xwrIQ}# + (#{arg-exps 20587}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name -ANAU$bmvAmthP7L7xwrH$}#) + #{name 20569}#) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e -ANAU$bmvAmthP7L7xwrH@}#))) + #{e 20570}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp -ANAU$bmvAmthP7L7xwrIP}# - #{arg-exps -ANAU$bmvAmthP7L7xwrIQ}#)))) + #{fun-exp 20586}# + #{arg-exps 20587}#)))) (begin - (if (if (struct? #{exp -ANAU$bmvAmthP7L7xwrIF}#) - (eq? (struct-vtable #{exp -ANAU$bmvAmthP7L7xwrIF}#) + (if (if (struct? #{exp 20576}#) + (eq? (struct-vtable #{exp 20576}#) (vector-ref %expanded-vtables 13)) #f) - (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 -ANAU$bmvAmthP7L7xwrIF}# - 1 - #{v -ANAU$bmvAmthP7L7xwrJA}#))))) + (let ((#{meta 20628}# (struct-ref #{exp 20576}# 1))) + (if (not (assq 'name #{meta 20628}#)) + (let ((#{v 20635}# + (cons (cons 'name #{name 20569}#) #{meta 20628}#))) + (struct-set! #{exp 20576}# 1 #{v 20635}#))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{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}# - '(())))) + #{name 20569}# + #{exp 20576}#))))) + (#{parse-when-list 4520}# + (lambda (#{e 20646}# #{when-list 20647}#) + (let ((#{result 20648}# + (#{strip 4535}# #{when-list 20647}# '(())))) (letrec* - ((#{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) + ((#{lp 20649}# + (lambda (#{l 20703}#) + (if (null? #{l 20703}#) + #{result 20648}# + (if (let ((#{t 20705}# (car #{l 20703}#))) + (if (eq? #{t 20705}# 'compile) #t - (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'load) + (if (eq? #{t 20705}# 'load) #t - (if (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'eval) + (if (eq? #{t 20705}# 'eval) #t - (eq? #{t -ANAU$bmvAmthP7L7xwrKG}# 'expand))))) - (#{lp -ANAU$bmvAmthP7L7xwrJO}# - (cdr #{l -ANAU$bmvAmthP7L7xwrKE}#)) + (eq? #{t 20705}# 'expand))))) + (#{lp 20649}# (cdr #{l 20703}#)) (syntax-violation 'eval-when "invalid situation" - #{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))) + #{e 20646}# + (car #{l 20703}#))))))) + (#{lp 20649}# #{result 20648}#))))) + (#{syntax-type 4521}# + (lambda (#{e 20707}# + #{r 20708}# + #{w 20709}# + #{s 20710}# + #{rib 20711}# + #{mod 20712}# + #{for-car? 20713}#) + (if (symbol? #{e 20707}#) + (let ((#{n 20714}# + (#{id-var-name 4505}# #{e 20707}# #{w 20709}#))) + (let ((#{b 20715}# + (let ((#{t 20723}# (assq #{n 20714}# #{r 20708}#))) + (if #{t 20723}# + (cdr #{t 20723}#) + (if (symbol? #{n 20714}#) + (let ((#{t 20729}# + (#{get-global-definition-hook 4449}# + #{n 20714}# + #{mod 20712}#))) + (if #{t 20729}# #{t 20729}# '(global))) '(displaced-lexical)))))) - (let ((#{type -ANAU$bmvAmthP7L7xwrKR}# - (car #{b -ANAU$bmvAmthP7L7xwrKQ}#))) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwrKR}# 'lexical) + (let ((#{type 20716}# (car #{b 20715}#))) + (if (eqv? #{type 20716}# 'lexical) (values - #{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) + #{type 20716}# + (cdr #{b 20715}#) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{type 20716}# 'global) (values - #{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}# + #{type 20716}# + #{n 20714}# + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{type 20716}# 'macro) + (if #{for-car? 20713}# (values - #{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}# + #{type 20716}# + (cdr #{b 20715}#) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (#{syntax-type 4521}# + (#{expand-macro 4525}# + (cdr #{b 20715}#) + #{e 20707}# + #{r 20708}# + #{w 20709}# + #{s 20710}# + #{rib 20711}# + #{mod 20712}#) + #{r 20708}# '(()) - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{rib -ANAU$bmvAmthP7L7xwrKM}# - #{mod -ANAU$bmvAmthP7L7xwrKN}# + #{s 20710}# + #{rib 20711}# + #{mod 20712}# #f)) (values - #{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}#))) + #{type 20716}# + (cdr #{b 20715}#) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#))))))) + (if (pair? #{e 20707}#) + (let ((#{first 20749}# (car #{e 20707}#))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{first -ANAU$bmvAmthP7L7xwrKy}# - #{r -ANAU$bmvAmthP7L7xwrKJ}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{rib -ANAU$bmvAmthP7L7xwrKM}# - #{mod -ANAU$bmvAmthP7L7xwrKN}# + (#{syntax-type 4521}# + #{first 20749}# + #{r 20708}# + #{w 20709}# + #{s 20710}# + #{rib 20711}# + #{mod 20712}# #t)) - (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) + (lambda (#{ftype 20751}# + #{fval 20752}# + #{fe 20753}# + #{fw 20754}# + #{fs 20755}# + #{fmod 20756}#) + (if (eqv? #{ftype 20751}# 'lexical) (values 'lexical-call - #{fval -ANAU$bmvAmthP7L7xwrK1}# - #{e -ANAU$bmvAmthP7L7xwrKI}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# 'global) + #{fval 20752}# + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{ftype 20751}# 'global) (values 'global-call (vector 'syntax-object - #{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}# + #{fval 20752}# + #{w 20709}# + #{fmod 20756}#) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{ftype 20751}# 'macro) + (#{syntax-type 4521}# + (#{expand-macro 4525}# + #{fval 20752}# + #{e 20707}# + #{r 20708}# + #{w 20709}# + #{s 20710}# + #{rib 20711}# + #{mod 20712}#) + #{r 20708}# '(()) - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{rib -ANAU$bmvAmthP7L7xwrKM}# - #{mod -ANAU$bmvAmthP7L7xwrKN}# - #{for-car? -ANAU$bmvAmthP7L7xwrKO}#) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# - 'module-ref) + #{s 20710}# + #{rib 20711}# + #{mod 20712}# + #{for-car? 20713}#) + (if (eqv? #{ftype 20751}# 'module-ref) (call-with-values (lambda () - (#{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) + (#{fval 20752}# + #{e 20707}# + #{r 20708}# + #{w 20709}#)) + (lambda (#{e 20777}# + #{r 20778}# + #{w 20779}# + #{s 20780}# + #{mod 20781}#) + (#{syntax-type 4521}# + #{e 20777}# + #{r 20778}# + #{w 20779}# + #{s 20780}# + #{rib 20711}# + #{mod 20781}# + #{for-car? 20713}#))) + (if (eqv? #{ftype 20751}# 'core) (values 'core-form - #{fval -ANAU$bmvAmthP7L7xwrK1}# - #{e -ANAU$bmvAmthP7L7xwrKI}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# - 'local-syntax) + #{fval 20752}# + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{ftype 20751}# 'local-syntax) (values 'local-syntax-form - #{fval -ANAU$bmvAmthP7L7xwrK1}# - #{e -ANAU$bmvAmthP7L7xwrKI}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# - 'begin) + #{fval 20752}# + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{ftype 20751}# 'begin) (values 'begin-form #f - #{e -ANAU$bmvAmthP7L7xwrKI}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# - 'eval-when) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{ftype 20751}# 'eval-when) (values 'eval-when-form #f - #{e -ANAU$bmvAmthP7L7xwrKI}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# - 'define) - (let ((#{tmp -ANAU$bmvAmthP7L7xwrLj}# + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) + (if (eqv? #{ftype 20751}# 'define) + (let ((#{tmp 20798}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrKI}# + #{e 20707}# '(_ any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwrLj}# + (if (if #{tmp 20798}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrLn}# - #{val -ANAU$bmvAmthP7L7xwrLo}#) - (if (symbol? - #{name -ANAU$bmvAmthP7L7xwrLn}#) + (lambda (#{name 20802}# + #{val 20803}#) + (if (symbol? #{name 20802}#) #t (if (if (vector? - #{name -ANAU$bmvAmthP7L7xwrLn}#) + #{name 20802}#) (if (= (vector-length - #{name -ANAU$bmvAmthP7L7xwrLn}#) + #{name 20802}#) 4) (eq? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrLn}# + #{name 20802}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrLn}# + #{name 20802}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwrLj}#) + #{tmp 20798}#) #f) (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrMD}# - #{val -ANAU$bmvAmthP7L7xwrME}#) + (lambda (#{name 20830}# + #{val 20831}#) (values 'define-form - #{name -ANAU$bmvAmthP7L7xwrMD}# - #{val -ANAU$bmvAmthP7L7xwrME}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#)) - #{tmp -ANAU$bmvAmthP7L7xwrLj}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwrMF}# + #{name 20830}# + #{val 20831}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#)) + #{tmp 20798}#) + (let ((#{tmp 20832}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrKI}# + #{e 20707}# '(_ (any . any) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwrMF}# + (if (if #{tmp 20832}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrMJ}# - #{args -ANAU$bmvAmthP7L7xwrMK}# - #{e1 -ANAU$bmvAmthP7L7xwrML}# - #{e2 -ANAU$bmvAmthP7L7xwrMM}#) + (lambda (#{name 20836}# + #{args 20837}# + #{e1 20838}# + #{e2 20839}#) (if (if (symbol? - #{name -ANAU$bmvAmthP7L7xwrMJ}#) + #{name 20836}#) #t (if (if (vector? - #{name -ANAU$bmvAmthP7L7xwrMJ}#) + #{name 20836}#) (if (= (vector-length - #{name -ANAU$bmvAmthP7L7xwrMJ}#) + #{name 20836}#) 4) (eq? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrMJ}# + #{name 20836}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrMJ}# + #{name 20836}# 1)) #f)) - (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# + (#{valid-bound-ids? 4512}# (letrec* - ((#{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}# + ((#{lvl 20988}# + (lambda (#{vars 20990}# + #{ls 20991}# + #{w 20992}#) + (if (pair? #{vars 20990}#) + (#{lvl 20988}# + (cdr #{vars 20990}#) + (cons (#{wrap 4515}# + (car #{vars 20990}#) + #{w 20992}# #f) - #{ls -ANAU$bmvAmthP7L7xwrOk}#) - #{w -ANAU$bmvAmthP7L7xwrOl}#) + #{ls 20991}#) + #{w 20992}#) (if (if (symbol? - #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{vars 20990}#) #t (if (if (vector? - #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{vars 20990}#) (if (= (vector-length - #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{vars 20990}#) 4) (eq? (vector-ref - #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{vars 20990}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{vars 20990}# 1)) #f)) - (cons (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{vars -ANAU$bmvAmthP7L7xwrOj}# - #{w -ANAU$bmvAmthP7L7xwrOl}# + (cons (#{wrap 4515}# + #{vars 20990}# + #{w 20992}# #f) - #{ls -ANAU$bmvAmthP7L7xwrOk}#) - (if (null? #{vars -ANAU$bmvAmthP7L7xwrOj}#) - #{ls -ANAU$bmvAmthP7L7xwrOk}# + #{ls 20991}#) + (if (null? #{vars 20990}#) + #{ls 20991}# (if (if (vector? - #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{vars 20990}#) (if (= (vector-length - #{vars -ANAU$bmvAmthP7L7xwrOj}#) + #{vars 20990}#) 4) (eq? (vector-ref - #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{vars 20990}# 0) 'syntax-object) #f) #f) - (#{lvl -ANAU$bmvAmthP7L7xwrOh}# + (#{lvl 20988}# (vector-ref - #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{vars 20990}# 1) - #{ls -ANAU$bmvAmthP7L7xwrOk}# - (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# - #{w -ANAU$bmvAmthP7L7xwrOl}# + #{ls 20991}# + (#{join-wraps 4502}# + #{w 20992}# (vector-ref - #{vars -ANAU$bmvAmthP7L7xwrOj}# + #{vars 20990}# 2))) - (cons #{vars -ANAU$bmvAmthP7L7xwrOj}# - #{ls -ANAU$bmvAmthP7L7xwrOk}#)))))))) - (#{lvl -ANAU$bmvAmthP7L7xwrOh}# - #{args -ANAU$bmvAmthP7L7xwrMK}# + (cons #{vars 20990}# + #{ls 20991}#)))))))) + (#{lvl 20988}# + #{args 20837}# '() '(())))) #f)) - #{tmp -ANAU$bmvAmthP7L7xwrMF}#) + #{tmp 20832}#) #f) (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrPR}# - #{args -ANAU$bmvAmthP7L7xwrPS}# - #{e1 -ANAU$bmvAmthP7L7xwrPT}# - #{e2 -ANAU$bmvAmthP7L7xwrPU}#) + (lambda (#{name 21036}# + #{args 21037}# + #{e1 21038}# + #{e2 21039}#) (values 'define-form - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{name -ANAU$bmvAmthP7L7xwrPR}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) - (let ((#{e -ANAU$bmvAmthP7L7xwrPa}# + (#{wrap 4515}# + #{name 21036}# + #{w 20709}# + #{mod 20712}#) + (let ((#{e 21045}# (cons '#(syntax-object lambda ((top) @@ -1969,10 +1730,10 @@ (top) (top) (top)) - #("l7" - "l8" - "l9" - "la")) + #("l-*-1954" + "l-*-1955" + "l-*-1956" + "l-*-1957")) #(ribcage () () @@ -1994,12 +1755,12 @@ (top) (top) (top)) - #("ko" - "kp" - "kq" - "kr" - "ks" - "kt")) + #("l-*-1907" + "l-*-1908" + "l-*-1909" + "l-*-1910" + "l-*-1911" + "l-*-1912")) #(ribcage () () @@ -2007,7 +1768,7 @@ #(ribcage #(first) #((top)) - #("kn")) + #("l-*-1899")) #(ribcage () () @@ -2035,13 +1796,13 @@ (top) (top) (top)) - #("kd" - "ke" - "kf" - "kg" - "kh" - "ki" - "kj")) + #("l-*-1871" + "l-*-1872" + "l-*-1873" + "l-*-1874" + "l-*-1875" + "l-*-1876" + "l-*-1877")) #(ribcage (lambda-var-list gen-var @@ -2155,7 +1916,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -2323,146 +2084,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -2470,72 +2231,72 @@ ((top) (top) (top)) - ("8" - "7" - "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - (cons #{args -ANAU$bmvAmthP7L7xwrPS}# - (cons #{e1 -ANAU$bmvAmthP7L7xwrPT}# - #{e2 -ANAU$bmvAmthP7L7xwrPU}#)) - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#)))) + (#{wrap 4515}# + (cons #{args 21037}# + (cons #{e1 21038}# + #{e2 21039}#)) + #{w 20709}# + #{mod 20712}#)))) (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrPa}#) - #{s -ANAU$bmvAmthP7L7xwrKL}# + (if (if (pair? #{e 21045}#) + #{s 20710}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrPa}# - #{s -ANAU$bmvAmthP7L7xwrKL}#)) - #{e -ANAU$bmvAmthP7L7xwrPa}#)) + #{e 21045}# + #{s 20710}#)) + #{e 21045}#)) '(()) - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#)) - #{tmp -ANAU$bmvAmthP7L7xwrMF}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwrPh}# + #{s 20710}# + #{mod 20712}#)) + #{tmp 20832}#) + (let ((#{tmp 21052}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrKI}# + #{e 20707}# '(_ any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwrPh}# + (if (if #{tmp 21052}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrPl}#) + (lambda (#{name 21056}#) (if (symbol? - #{name -ANAU$bmvAmthP7L7xwrPl}#) + #{name 21056}#) #t (if (if (vector? - #{name -ANAU$bmvAmthP7L7xwrPl}#) + #{name 21056}#) (if (= (vector-length - #{name -ANAU$bmvAmthP7L7xwrPl}#) + #{name 21056}#) 4) (eq? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrPl}# + #{name 21056}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrPl}# + #{name 21056}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwrPh}#) + #{tmp 21052}#) #f) (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrQA}#) + (lambda (#{name 21083}#) (values 'define-form - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{name -ANAU$bmvAmthP7L7xwrQA}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) + (#{wrap 4515}# + #{name 21083}# + #{w 20709}# + #{mod 20712}#) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("lc")) + #("l-*-1967")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -2551,17 +2312,17 @@ (top) (top) (top)) - #("ko" - "kp" - "kq" - "kr" - "ks" - "kt")) + #("l-*-1907" + "l-*-1908" + "l-*-1909" + "l-*-1910" + "l-*-1911" + "l-*-1912")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("kn")) + #("l-*-1899")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2580,13 +2341,13 @@ (top) (top) (top)) - #("kd" - "ke" - "kf" - "kg" - "kh" - "ki" - "kj")) + #("l-*-1871" + "l-*-1872" + "l-*-1873" + "l-*-1874" + "l-*-1875" + "l-*-1876" + "l-*-1877")) #(ribcage (lambda-var-list gen-var @@ -2700,7 +2461,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -2868,146 +2629,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -3015,7 +2776,9 @@ ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) #(syntax-object #f @@ -3023,7 +2786,7 @@ #(ribcage #(name) #((top)) - #("lc")) + #("l-*-1967")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3039,17 +2802,17 @@ (top) (top) (top)) - #("ko" - "kp" - "kq" - "kr" - "ks" - "kt")) + #("l-*-1907" + "l-*-1908" + "l-*-1909" + "l-*-1910" + "l-*-1911" + "l-*-1912")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("kn")) + #("l-*-1899")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3068,13 +2831,13 @@ (top) (top) (top)) - #("kd" - "ke" - "kf" - "kg" - "kh" - "ki" - "kj")) + #("l-*-1871" + "l-*-1872" + "l-*-1873" + "l-*-1874" + "l-*-1875" + "l-*-1876" + "l-*-1877")) #(ribcage (lambda-var-list gen-var @@ -3188,7 +2951,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -3356,146 +3119,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -3503,7 +3266,9 @@ ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) #(syntax-object #f @@ -3511,7 +3276,7 @@ #(ribcage #(name) #((top)) - #("lc")) + #("l-*-1967")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage @@ -3527,17 +3292,17 @@ (top) (top) (top)) - #("ko" - "kp" - "kq" - "kr" - "ks" - "kt")) + #("l-*-1907" + "l-*-1908" + "l-*-1909" + "l-*-1910" + "l-*-1911" + "l-*-1912")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("kn")) + #("l-*-1899")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3556,13 +3321,13 @@ (top) (top) (top)) - #("kd" - "ke" - "kf" - "kg" - "kh" - "ki" - "kj")) + #("l-*-1871" + "l-*-1872" + "l-*-1873" + "l-*-1874" + "l-*-1875" + "l-*-1876" + "l-*-1877")) #(ribcage (lambda-var-list gen-var @@ -3676,7 +3441,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -3844,146 +3609,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -3991,361 +3756,326 @@ ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) '(()) - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#)) - #{tmp -ANAU$bmvAmthP7L7xwrPh}#) + #{s 20710}# + #{mod 20712}#)) + #{tmp 21052}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwrKI}#))))))) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# - 'define-syntax) - (let ((#{tmp -ANAU$bmvAmthP7L7xwrQT}# + #{e 20707}#))))))) + (if (eqv? #{ftype 20751}# 'define-syntax) + (let ((#{tmp 21102}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrKI}# + #{e 20707}# '(_ any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwrQT}# + (if (if #{tmp 21102}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrQX}# - #{val -ANAU$bmvAmthP7L7xwrQY}#) - (if (symbol? - #{name -ANAU$bmvAmthP7L7xwrQX}#) + (lambda (#{name 21106}# + #{val 21107}#) + (if (symbol? #{name 21106}#) #t (if (if (vector? - #{name -ANAU$bmvAmthP7L7xwrQX}#) + #{name 21106}#) (if (= (vector-length - #{name -ANAU$bmvAmthP7L7xwrQX}#) + #{name 21106}#) 4) (eq? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrQX}# + #{name 21106}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrQX}# + #{name 21106}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwrQT}#) + #{tmp 21102}#) #f) (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrQz}# - #{val -ANAU$bmvAmthP7L7xwrQ0}#) + (lambda (#{name 21134}# + #{val 21135}#) (values 'define-syntax-form - #{name -ANAU$bmvAmthP7L7xwrQz}# - #{val -ANAU$bmvAmthP7L7xwrQ0}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#)) - #{tmp -ANAU$bmvAmthP7L7xwrQT}#) + #{name 21134}# + #{val 21135}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#)) + #{tmp 21102}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwrKI}#))) - (if (eqv? #{ftype -ANAU$bmvAmthP7L7xwrK0}# + #{e 20707}#))) + (if (eqv? #{ftype 20751}# 'define-syntax-parameter) - (let ((#{tmp -ANAU$bmvAmthP7L7xwrQ@}# + (let ((#{tmp 21146}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrKI}# + #{e 20707}# '(_ any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwrQ@}# + (if (if #{tmp 21146}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrRD}# - #{val -ANAU$bmvAmthP7L7xwrRE}#) + (lambda (#{name 21150}# + #{val 21151}#) (if (symbol? - #{name -ANAU$bmvAmthP7L7xwrRD}#) + #{name 21150}#) #t (if (if (vector? - #{name -ANAU$bmvAmthP7L7xwrRD}#) + #{name 21150}#) (if (= (vector-length - #{name -ANAU$bmvAmthP7L7xwrRD}#) + #{name 21150}#) 4) (eq? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrRD}# + #{name 21150}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name -ANAU$bmvAmthP7L7xwrRD}# + #{name 21150}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwrQ@}#) + #{tmp 21146}#) #f) (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xwrRf}# - #{val -ANAU$bmvAmthP7L7xwrRg}#) + (lambda (#{name 21178}# + #{val 21179}#) (values 'define-syntax-parameter-form - #{name -ANAU$bmvAmthP7L7xwrRf}# - #{val -ANAU$bmvAmthP7L7xwrRg}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#)) - #{tmp -ANAU$bmvAmthP7L7xwrQ@}#) + #{name 21178}# + #{val 21179}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#)) + #{tmp 21146}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwrKI}#))) + #{e 20707}#))) (values 'call #f - #{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 -ANAU$bmvAmthP7L7xwrKI}# 0) - 'syntax-object) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#))))))))))))))) + (if (if (vector? #{e 20707}#) + (if (= (vector-length #{e 20707}#) 4) + (eq? (vector-ref #{e 20707}# 0) 'syntax-object) #f) #f) - (#{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}#) + (#{syntax-type 4521}# + (vector-ref #{e 20707}# 1) + #{r 20708}# + (#{join-wraps 4502}# + #{w 20709}# + (vector-ref #{e 20707}# 2)) + (let ((#{t 21206}# + (#{source-annotation 4479}# #{e 20707}#))) + (if #{t 21206}# #{t 21206}# #{s 20710}#)) + #{rib 20711}# + (let ((#{t 21441}# (vector-ref #{e 20707}# 3))) + (if #{t 21441}# #{t 21441}# #{mod 20712}#)) + #{for-car? 20713}#) + (if (self-evaluating? #{e 20707}#) (values 'constant #f - #{e -ANAU$bmvAmthP7L7xwrKI}# - #{w -ANAU$bmvAmthP7L7xwrKK}# - #{s -ANAU$bmvAmthP7L7xwrKL}# - #{mod -ANAU$bmvAmthP7L7xwrKN}#) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#) (values 'other #f - #{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}#) + #{e 20707}# + #{w 20709}# + #{s 20710}# + #{mod 20712}#))))))) + (#{expand 4522}# + (lambda (#{e 21450}# + #{r 21451}# + #{w 21452}# + #{mod 21453}#) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwrVv}# - #{r -ANAU$bmvAmthP7L7xwrVw}# - #{w -ANAU$bmvAmthP7L7xwrVx}# - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xwrVv}#) + (#{syntax-type 4521}# + #{e 21450}# + #{r 21451}# + #{w 21452}# + (#{source-annotation 4479}# #{e 21450}#) #f - #{mod -ANAU$bmvAmthP7L7xwrVy}# + #{mod 21453}# #f)) - (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) + (lambda (#{type 21608}# + #{value 21609}# + #{e 21610}# + #{w 21611}# + #{s 21612}# + #{mod 21613}#) + (#{expand-expr 4523}# + #{type 21608}# + #{value 21609}# + #{e 21610}# + #{r 21451}# + #{w 21611}# + #{s 21612}# + #{mod 21613}#))))) + (#{expand-expr 4523}# + (lambda (#{type 21616}# + #{value 21617}# + #{e 21618}# + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#) + (if (eqv? #{type 21616}# 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s -ANAU$bmvAmthP7L7xwrYa}# - #{e -ANAU$bmvAmthP7L7xwrYX}# - #{value -ANAU$bmvAmthP7L7xwrYW}#) - (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# 'core) + #{s 21621}# + #{e 21618}# + #{value 21617}#) + (if (if (eqv? #{type 21616}# 'core) #t - (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) + (eqv? #{type 21616}# 'core-form)) + (#{value 21617}# + #{e 21618}# + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#) + (if (eqv? #{type 21616}# 'module-ref) (call-with-values (lambda () - (#{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 -ANAU$bmvAmthP7L7xwnOG}# - (let ((#{id -ANAU$bmvAmthP7L7xwraE}# - (car #{e -ANAU$bmvAmthP7L7xwrYX}#))) - (#{build-lexical-reference -ANAU$bmvAmthP7L7xwnNC}# + (#{value 21617}# + #{e 21618}# + #{r 21619}# + #{w 21620}#)) + (lambda (#{e 21648}# + #{r 21649}# + #{w 21650}# + #{s 21651}# + #{mod 21652}#) + (#{expand 4522}# + #{e 21648}# + #{r 21649}# + #{w 21650}# + #{mod 21652}#))) + (if (eqv? #{type 21616}# 'lexical-call) + (#{expand-application 4524}# + (let ((#{id 21727}# (car #{e 21618}#))) + (#{build-lexical-reference 4456}# 'fun - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{id -ANAU$bmvAmthP7L7xwraE}#) - (if (if (vector? #{id -ANAU$bmvAmthP7L7xwraE}#) - (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwraE}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwraE}# - 0) + (#{source-annotation 4479}# #{id 21727}#) + (if (if (vector? #{id 21727}#) + (if (= (vector-length #{id 21727}#) 4) + (eq? (vector-ref #{id 21727}# 0) 'syntax-object) + #f) + #f) + (syntax->datum #{id 21727}#) + #{id 21727}#) + #{value 21617}#)) + #{e 21618}# + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#) + (if (eqv? #{type 21616}# 'global-call) + (#{expand-application 4524}# + (#{build-global-reference 4459}# + (#{source-annotation 4479}# (car #{e 21618}#)) + (if (if (vector? #{value 21617}#) + (if (= (vector-length #{value 21617}#) 4) + (eq? (vector-ref #{value 21617}# 0) 'syntax-object) #f) #f) - (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 -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 -ANAU$bmvAmthP7L7xwrYW}#) - 4) - (eq? (vector-ref - #{value -ANAU$bmvAmthP7L7xwrYW}# - 0) + (vector-ref #{value 21617}# 1) + #{value 21617}#) + (if (if (vector? #{value 21617}#) + (if (= (vector-length #{value 21617}#) 4) + (eq? (vector-ref #{value 21617}# 0) 'syntax-object) #f) #f) - (vector-ref #{value -ANAU$bmvAmthP7L7xwrYW}# 1) - #{value -ANAU$bmvAmthP7L7xwrYW}#) - (if (if (vector? #{value -ANAU$bmvAmthP7L7xwrYW}#) - (if (= (vector-length - #{value -ANAU$bmvAmthP7L7xwrYW}#) - 4) - (eq? (vector-ref - #{value -ANAU$bmvAmthP7L7xwrYW}# - 0) - 'syntax-object) - #f) - #f) - (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}# + (vector-ref #{value 21617}# 3) + #{mod 21622}#)) + #{e 21618}# + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#) + (if (eqv? #{type 21616}# 'constant) + (let ((#{exp 22064}# + (#{strip 4535}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{s -ANAU$bmvAmthP7L7xwrYa}# - #f) + (if (if (pair? #{e 21618}#) #{s 21621}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrYX}# - #{s -ANAU$bmvAmthP7L7xwrYa}#)) - #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{w -ANAU$bmvAmthP7L7xwrYZ}# - #{mod -ANAU$bmvAmthP7L7xwrYb}#) + #{e 21618}# + #{s 21621}#)) + #{e 21618}#) + #{w 21620}# + #{mod 21622}#) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{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}#) + #{s 21621}# + #{exp 22064}#)) + (if (eqv? #{type 21616}# 'global) + (#{analyze-variable 4458}# + #{mod 21622}# + #{value 21617}# + (lambda (#{mod 22100}# + #{var 22101}# + #{public? 22102}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s -ANAU$bmvAmthP7L7xwrYa}# - #{mod -ANAU$bmvAmthP7L7xwrf5}# - #{var -ANAU$bmvAmthP7L7xwrf6}# - #{public? -ANAU$bmvAmthP7L7xwrf7}#)) - (lambda (#{var -ANAU$bmvAmthP7L7xwrgE}#) + #{s 21621}# + #{mod 22100}# + #{var 22101}# + #{public? 22102}#)) + (lambda (#{var 22111}#) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{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 -ANAU$bmvAmthP7L7xwrhP}# + #{s 21621}# + #{var 22111}#))) + (if (eqv? #{type 21616}# 'call) + (#{expand-application 4524}# + (#{expand 4522}# + (car #{e 21618}#) + #{r 21619}# + #{w 21620}# + #{mod 21622}#) + #{e 21618}# + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#) + (if (eqv? #{type 21616}# 'begin-form) + (let ((#{tmp 22186}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrYX}# + #{e 21618}# '(_ any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwrhP}# + (if #{tmp 22186}# (@apply - (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 -ANAU$bmvAmthP7L7xwrYX}# - '(_)))) - (if #{tmp -ANAU$bmvAmthP7L7xwrir}# + (lambda (#{e1 22190}# #{e2 22191}#) + (#{expand-sequence 4517}# + (cons #{e1 22190}# #{e2 22191}#) + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#)) + #{tmp 22186}#) + (let ((#{tmp 22278}# + ($sc-dispatch #{e 21618}# '(_)))) + (if #{tmp 22278}# (@apply (lambda () (if (include-deprecated-features) @@ -4358,914 +4088,829 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{s -ANAU$bmvAmthP7L7xwrYa}# + (if (if (pair? #{e 21618}#) + #{s 21621}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrYX}# - #{s -ANAU$bmvAmthP7L7xwrYa}#)) - #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{w -ANAU$bmvAmthP7L7xwrYZ}# - #{mod -ANAU$bmvAmthP7L7xwrYb}#)))) - #{tmp -ANAU$bmvAmthP7L7xwrir}#) + #{e 21618}# + #{s 21621}#)) + #{e 21618}#) + #{w 21620}# + #{mod 21622}#)))) + #{tmp 22278}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwrYX}#))))) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# - 'local-syntax-form) - (#{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 -ANAU$bmvAmthP7L7xwrka}# + #{e 21618}#))))) + (if (eqv? #{type 21616}# 'local-syntax-form) + (#{expand-local-syntax 4527}# + #{value 21617}# + #{e 21618}# + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}# + #{expand-sequence 4517}#) + (if (eqv? #{type 21616}# 'eval-when-form) + (let ((#{tmp 22389}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrYX}# + #{e 21618}# '(_ each-any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwrka}# + (if #{tmp 22389}# (@apply - (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 -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}#) + (lambda (#{x 22393}# + #{e1 22394}# + #{e2 22395}#) + (let ((#{when-list 22396}# + (#{parse-when-list 4520}# + #{e 21618}# + #{x 22393}#))) + (if (memq 'eval #{when-list 22396}#) + (#{expand-sequence 4517}# + (cons #{e1 22394}# #{e2 22395}#) + #{r 21619}# + #{w 21620}# + #{s 21621}# + #{mod 21622}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp -ANAU$bmvAmthP7L7xwrka}#) + #{tmp 22389}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwrYX}#))) - (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# - 'define-form) + #{e 21618}#))) + (if (if (eqv? #{type 21616}# 'define-form) #t - (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# + (if (eqv? #{type 21616}# 'define-syntax-form) #t - (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# + (eqv? #{type 21616}# 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e -ANAU$bmvAmthP7L7xwrYX}# - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{value -ANAU$bmvAmthP7L7xwrYW}# - #{w -ANAU$bmvAmthP7L7xwrYZ}# - #{mod -ANAU$bmvAmthP7L7xwrYb}#)) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# - 'syntax) + #{e 21618}# + (#{wrap 4515}# + #{value 21617}# + #{w 21620}# + #{mod 21622}#)) + (if (eqv? #{type 21616}# 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{s -ANAU$bmvAmthP7L7xwrYa}# + (if (if (pair? #{e 21618}#) + #{s 21621}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrYX}# - #{s -ANAU$bmvAmthP7L7xwrYa}#)) - #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{w -ANAU$bmvAmthP7L7xwrYZ}# - #{mod -ANAU$bmvAmthP7L7xwrYb}#)) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwrYV}# - 'displaced-lexical) + #{e 21618}# + #{s 21621}#)) + #{e 21618}#) + #{w 21620}# + #{mod 21622}#)) + (if (eqv? #{type 21616}# 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{s -ANAU$bmvAmthP7L7xwrYa}# + (if (if (pair? #{e 21618}#) + #{s 21621}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrYX}# - #{s -ANAU$bmvAmthP7L7xwrYa}#)) - #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{w -ANAU$bmvAmthP7L7xwrYZ}# - #{mod -ANAU$bmvAmthP7L7xwrYb}#)) + #{e 21618}# + #{s 21621}#)) + #{e 21618}#) + #{w 21620}# + #{mod 21622}#)) (syntax-violation #f "unexpected syntax" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrYX}#) - #{s -ANAU$bmvAmthP7L7xwrYa}# + (if (if (pair? #{e 21618}#) + #{s 21621}# #f) (set-source-properties! - #{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 -ANAU$bmvAmthP7L7xwroS}# - '(any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwroY}# + #{e 21618}# + #{s 21621}#)) + #{e 21618}#) + #{w 21620}# + #{mod 21622}#)))))))))))))))))) + (#{expand-application 4524}# + (lambda (#{x 22636}# + #{e 22637}# + #{r 22638}# + #{w 22639}# + #{s 22640}# + #{mod 22641}#) + (let ((#{tmp 22643}# + ($sc-dispatch #{e 22637}# '(any . each-any)))) + (if #{tmp 22643}# (@apply - (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}#) + (lambda (#{e0 22647}# #{e1 22648}#) + (#{build-application 4453}# + #{s 22640}# + #{x 22636}# + (map (lambda (#{e 22728}#) + (#{expand 4522}# + #{e 22728}# + #{r 22638}# + #{w 22639}# + #{mod 22641}#)) + #{e1 22648}#))) + #{tmp 22643}#) (syntax-violation #f "source expression failed to match any pattern" - #{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@}#) + #{e 22637}#))))) + (#{expand-macro 4525}# + (lambda (#{p 22804}# + #{e 22805}# + #{r 22806}# + #{w 22807}# + #{s 22808}# + #{rib 22809}# + #{mod 22810}#) (letrec* - ((#{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}#)))) + ((#{rebuild-macro-output 22811}# + (lambda (#{x 22844}# #{m 22845}#) + (if (pair? #{x 22844}#) + (let ((#{e 22849}# + (cons (#{rebuild-macro-output 22811}# + (car #{x 22844}#) + #{m 22845}#) + (#{rebuild-macro-output 22811}# + (cdr #{x 22844}#) + #{m 22845}#)))) (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrrm}#) - #{s -ANAU$bmvAmthP7L7xwrq9}# - #f) - (set-source-properties! - #{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 -ANAU$bmvAmthP7L7xwrrh}# 0) - 'syntax-object) + (if (if (pair? #{e 22849}#) #{s 22808}# #f) + (set-source-properties! #{e 22849}# #{s 22808}#)) + #{e 22849}#)) + (if (if (vector? #{x 22844}#) + (if (= (vector-length #{x 22844}#) 4) + (eq? (vector-ref #{x 22844}# 0) 'syntax-object) #f) #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) + (let ((#{w 22865}# (vector-ref #{x 22844}# 2))) + (let ((#{ms 22866}# (car #{w 22865}#)) + (#{s 22867}# (cdr #{w 22865}#))) + (if (if (pair? #{ms 22866}#) + (eq? (car #{ms 22866}#) #f) #f) - (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))) + (let ((#{expression 22875}# + (vector-ref #{x 22844}# 1)) + (#{wrap 22876}# + (cons (cdr #{ms 22866}#) + (if #{rib 22809}# + (cons #{rib 22809}# + (cdr #{s 22867}#)) + (cdr #{s 22867}#)))) + (#{module 22877}# (vector-ref #{x 22844}# 3))) (vector 'syntax-object - #{expression -ANAU$bmvAmthP7L7xwrsA}# - #{wrap -ANAU$bmvAmthP7L7xwrsB}# - #{module -ANAU$bmvAmthP7L7xwrsC}#)) - (let ((#{expression -ANAU$bmvAmthP7L7xwrsM}# - (let ((#{e -ANAU$bmvAmthP7L7xwrsR}# - (vector-ref - #{x -ANAU$bmvAmthP7L7xwrrh}# - 1))) + #{expression 22875}# + #{wrap 22876}# + #{module 22877}#)) + (let ((#{expression 22887}# + (let ((#{e 22892}# + (vector-ref #{x 22844}# 1))) (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsR}#) - #{s -ANAU$bmvAmthP7L7xwrr4}# + (if (if (pair? #{e 22892}#) + #{s 22867}# #f) (set-source-properties! - #{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 -ANAU$bmvAmthP7L7xwrr4}#)) - (cons 'shift - #{s -ANAU$bmvAmthP7L7xwrr4}#)))) - (#{module -ANAU$bmvAmthP7L7xwrsO}# - (vector-ref #{x -ANAU$bmvAmthP7L7xwrrh}# 3))) + #{e 22892}# + #{s 22867}#)) + #{e 22892}#))) + (#{wrap 22888}# + (cons (cons #{m 22845}# #{ms 22866}#) + (if #{rib 22809}# + (cons #{rib 22809}# + (cons 'shift #{s 22867}#)) + (cons 'shift #{s 22867}#)))) + (#{module 22889}# (vector-ref #{x 22844}# 3))) (vector 'syntax-object - #{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 -ANAU$bmvAmthP7L7xwrsd}#))) + #{expression 22887}# + #{wrap 22888}# + #{module 22889}#))))) + (if (vector? #{x 22844}#) + (let ((#{n 22904}# (vector-length #{x 22844}#))) + (let ((#{v 22905}# + (let ((#{e 22913}# (make-vector #{n 22904}#))) (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrsm}#) - #{x -ANAU$bmvAmthP7L7xwrrh}# - #f) + (if (if (pair? #{e 22913}#) #{x 22844}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrsm}# - #{x -ANAU$bmvAmthP7L7xwrrh}#)) - #{e -ANAU$bmvAmthP7L7xwrsm}#)))) + #{e 22913}# + #{x 22844}#)) + #{e 22913}#)))) (letrec* - ((#{loop -ANAU$bmvAmthP7L7xwrsf}# - (lambda (#{i -ANAU$bmvAmthP7L7xwrtT}#) - (if (= #{i -ANAU$bmvAmthP7L7xwrtT}# - #{n -ANAU$bmvAmthP7L7xwrsd}#) - #{v -ANAU$bmvAmthP7L7xwrse}# + ((#{loop 22906}# + (lambda (#{i 22958}#) + (if (= #{i 22958}# #{n 22904}#) + #{v 22905}# (begin (vector-set! - #{v -ANAU$bmvAmthP7L7xwrse}# - #{i -ANAU$bmvAmthP7L7xwrtT}# - (#{rebuild-macro-output -ANAU$bmvAmthP7L7xwrrA}# - (vector-ref - #{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}#) + #{v 22905}# + #{i 22958}# + (#{rebuild-macro-output 22811}# + (vector-ref #{x 22844}# #{i 22958}#) + #{m 22845}#)) + (#{loop 22906}# (#{1+}# #{i 22958}#))))))) + (#{loop 22906}# 0)))) + (if (symbol? #{x 22844}#) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s -ANAU$bmvAmthP7L7xwrtZ}# - (cdr #{w -ANAU$bmvAmthP7L7xwrq8}#))) - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (let ((#{s 22964}# (cdr #{w 22807}#))) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#) - #{s -ANAU$bmvAmthP7L7xwrtZ}# - #f) + (if (if (pair? #{e 22805}#) #{s 22964}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrq6}# - #{s -ANAU$bmvAmthP7L7xwrtZ}#)) - #{e -ANAU$bmvAmthP7L7xwrq6}#) - #{w -ANAU$bmvAmthP7L7xwrq8}# - #{mod -ANAU$bmvAmthP7L7xwrq@}#)) - #{x -ANAU$bmvAmthP7L7xwrrh}#) + #{e 22805}# + #{s 22964}#)) + #{e 22805}#) + #{w 22807}# + #{mod 22810}#)) + #{x 22844}#) (begin - (if (if (pair? #{x -ANAU$bmvAmthP7L7xwrrh}#) - #{s -ANAU$bmvAmthP7L7xwrq9}# - #f) - (set-source-properties! - #{x -ANAU$bmvAmthP7L7xwrrh}# - #{s -ANAU$bmvAmthP7L7xwrq9}#)) - #{x -ANAU$bmvAmthP7L7xwrrh}#)))))))) + (if (if (pair? #{x 22844}#) #{s 22808}# #f) + (set-source-properties! #{x 22844}# #{s 22808}#)) + #{x 22844}#)))))))) (with-fluids - ((#{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 -ANAU$bmvAmthP7L7xwrq8}#))))) - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + ((#{transformer-environment 4508}# + (lambda (#{k 22812}#) + (#{k 22812}# + #{e 22805}# + #{r 22806}# + #{w 22807}# + #{s 22808}# + #{rib 22809}# + #{mod 22810}#)))) + (#{rebuild-macro-output 22811}# + (#{p 22804}# + (let ((#{w 22819}# + (cons (cons #f (car #{w 22807}#)) + (cons 'shift (cdr #{w 22807}#))))) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrq6}#) - #{s -ANAU$bmvAmthP7L7xwrq9}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrq6}# - #{s -ANAU$bmvAmthP7L7xwrq9}#)) - #{e -ANAU$bmvAmthP7L7xwrq6}#) - #{w -ANAU$bmvAmthP7L7xwrrI}# - #{mod -ANAU$bmvAmthP7L7xwrq@}#))) - (gensym "m")))))) - (#{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 -ANAU$bmvAmthP7L7xwrt7}#))) - (let ((#{ribcage -ANAU$bmvAmthP7L7xwrt@}# - (vector 'ribcage '() '() '()))) - (let ((#{w -ANAU$bmvAmthP7L7xwruA}# - (cons (car #{w -ANAU$bmvAmthP7L7xwrt8}#) - (cons #{ribcage -ANAU$bmvAmthP7L7xwrt@}# - (cdr #{w -ANAU$bmvAmthP7L7xwrt8}#))))) + (if (if (pair? #{e 22805}#) #{s 22808}# #f) + (set-source-properties! #{e 22805}# #{s 22808}#)) + #{e 22805}#) + #{w 22819}# + #{mod 22810}#))) + (gensym + (string-append "m-" (#{session-id 4447}#) "-"))))))) + (#{expand-body 4526}# + (lambda (#{body 22996}# + #{outer-form 22997}# + #{r 22998}# + #{w 22999}# + #{mod 23000}#) + (let ((#{r 23001}# + (cons '("placeholder" placeholder) #{r 22998}#))) + (let ((#{ribcage 23002}# (vector 'ribcage '() '() '()))) + (let ((#{w 23003}# + (cons (car #{w 22999}#) + (cons #{ribcage 23002}# (cdr #{w 22999}#))))) (letrec* - ((#{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}#) + ((#{parse 23004}# + (lambda (#{body 23017}# + #{ids 23018}# + #{labels 23019}# + #{var-ids 23020}# + #{vars 23021}# + #{vals 23022}# + #{bindings 23023}#) + (if (null? #{body 23017}#) (syntax-violation #f "no expressions in body" - #{outer-form -ANAU$bmvAmthP7L7xwrt6}#) - (let ((#{e -ANAU$bmvAmthP7L7xwruV}# - (cdr (car #{body -ANAU$bmvAmthP7L7xwruO}#))) - (#{er -ANAU$bmvAmthP7L7xwruW}# - (car (car #{body -ANAU$bmvAmthP7L7xwruO}#)))) + #{outer-form 22997}#) + (let ((#{e 23024}# (cdr (car #{body 23017}#))) + (#{er 23025}# (car (car #{body 23017}#)))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwruV}# - #{er -ANAU$bmvAmthP7L7xwruW}# + (#{syntax-type 4521}# + #{e 23024}# + #{er 23025}# '(()) - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{er -ANAU$bmvAmthP7L7xwruW}#) - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# - #{mod -ANAU$bmvAmthP7L7xwrt9}# + (#{source-annotation 4479}# #{er 23025}#) + #{ribcage 23002}# + #{mod 23000}# #f)) - (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 -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}# + (lambda (#{type 23182}# + #{value 23183}# + #{e 23184}# + #{w 23185}# + #{s 23186}# + #{mod 23187}#) + (if (eqv? #{type 23182}# 'define-form) + (let ((#{id 23191}# + (#{wrap 4515}# + #{value 23183}# + #{w 23185}# + #{mod 23187}#)) + (#{label 23192}# + (string-append + "l-" + (#{session-id 4447}#) + (symbol->string (gensym "-"))))) + (let ((#{var 23193}# + (let ((#{id 23253}# (if (if (vector? - #{id -ANAU$bmvAmthP7L7xwrw8}#) + #{id 23191}#) (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwrw8}#) + #{id 23191}#) 4) (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwrw8}# + #{id 23191}# 0) 'syntax-object) #f) #f) - (vector-ref - #{id -ANAU$bmvAmthP7L7xwrw8}# - 1) - #{id -ANAU$bmvAmthP7L7xwrw8}#))) + (vector-ref #{id 23191}# 1) + #{id 23191}#))) (gensym (string-append - (symbol->string - #{id -ANAU$bmvAmthP7L7xwrx4}#) - " "))))) + (symbol->string #{id 23253}#) + "-"))))) (begin - (let ((#{update -ANAU$bmvAmthP7L7xwrxu}# - (cons (vector-ref - #{id -ANAU$bmvAmthP7L7xwrw8}# - 1) + (let ((#{update 23243}# + (cons (vector-ref #{id 23191}# 1) (vector-ref - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 1)))) (vector-set! - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 1 - #{update -ANAU$bmvAmthP7L7xwrxu}#)) - (let ((#{update -ANAU$bmvAmthP7L7xwrxw}# + #{update 23243}#)) + (let ((#{update 23245}# (cons (car (vector-ref - #{id -ANAU$bmvAmthP7L7xwrw8}# + #{id 23191}# 2)) (vector-ref - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 2)))) (vector-set! - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 2 - #{update -ANAU$bmvAmthP7L7xwrxw}#)) - (let ((#{update -ANAU$bmvAmthP7L7xwrxy}# - (cons #{label -ANAU$bmvAmthP7L7xwrw9}# + #{update 23245}#)) + (let ((#{update 23247}# + (cons #{label 23192}# (vector-ref - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 3)))) (vector-set! - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 3 - #{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 -ANAU$bmvAmthP7L7xwrw$}#) - #{bindings -ANAU$bmvAmthP7L7xwruU}#))))) - (if (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# + #{update 23247}#)) + (#{parse 23004}# + (cdr #{body 23017}#) + (cons #{id 23191}# #{ids 23018}#) + (cons #{label 23192}# #{labels 23019}#) + (cons #{id 23191}# #{var-ids 23020}#) + (cons #{var 23193}# #{vars 23021}#) + (cons (cons #{er 23025}# + (#{wrap 4515}# + #{e 23184}# + #{w 23185}# + #{mod 23187}#)) + #{vals 23022}#) + (cons (cons 'lexical #{var 23193}#) + #{bindings 23023}#))))) + (if (if (eqv? #{type 23182}# 'define-syntax-form) #t - (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# + (eqv? #{type 23182}# 'define-syntax-parameter-form)) - (let ((#{id -ANAU$bmvAmthP7L7xwryZ}# - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{value -ANAU$bmvAmthP7L7xwrw0}# - #{w -ANAU$bmvAmthP7L7xwrw2}# - #{mod -ANAU$bmvAmthP7L7xwrw4}#)) - (#{label -ANAU$bmvAmthP7L7xwrya}# - (#{gen-label -ANAU$bmvAmthP7L7xwnNi}#))) + (let ((#{id 23286}# + (#{wrap 4515}# + #{value 23183}# + #{w 23185}# + #{mod 23187}#)) + (#{label 23287}# + (string-append + "l-" + (#{session-id 4447}#) + (symbol->string (gensym "-"))))) (begin - (let ((#{update -ANAU$bmvAmthP7L7xwrzK}# - (cons (vector-ref - #{id -ANAU$bmvAmthP7L7xwryZ}# - 1) + (let ((#{update 23337}# + (cons (vector-ref #{id 23286}# 1) (vector-ref - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 1)))) (vector-set! - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 1 - #{update -ANAU$bmvAmthP7L7xwrzK}#)) - (let ((#{update -ANAU$bmvAmthP7L7xwrzM}# + #{update 23337}#)) + (let ((#{update 23339}# (cons (car (vector-ref - #{id -ANAU$bmvAmthP7L7xwryZ}# + #{id 23286}# 2)) (vector-ref - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 2)))) (vector-set! - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 2 - #{update -ANAU$bmvAmthP7L7xwrzM}#)) - (let ((#{update -ANAU$bmvAmthP7L7xwrzO}# - (cons #{label -ANAU$bmvAmthP7L7xwrya}# + #{update 23339}#)) + (let ((#{update 23341}# + (cons #{label 23287}# (vector-ref - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 3)))) (vector-set! - #{ribcage -ANAU$bmvAmthP7L7xwrt@}# + #{ribcage 23002}# 3 - #{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}# + #{update 23341}#)) + (#{parse 23004}# + (cdr #{body 23017}#) + (cons #{id 23286}# #{ids 23018}#) + (cons #{label 23287}# #{labels 23019}#) + #{var-ids 23020}# + #{vars 23021}# + #{vals 23022}# (cons (cons 'macro - (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 -ANAU$bmvAmthP7L7xwrzW}# + (cons #{er 23025}# + (#{wrap 4515}# + #{e 23184}# + #{w 23185}# + #{mod 23187}#))) + #{bindings 23023}#)))) + (if (eqv? #{type 23182}# 'begin-form) + (let ((#{tmp 23349}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwrw1}# + #{e 23184}# '(_ . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwrzW}# + (if #{tmp 23349}# (@apply - (lambda (#{e1 -ANAU$bmvAmthP7L7xwrza}#) - (#{parse -ANAU$bmvAmthP7L7xwruB}# + (lambda (#{e1 23353}#) + (#{parse 23004}# (letrec* - ((#{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}#) + ((#{f 23354}# + (lambda (#{forms 23417}#) + (if (null? #{forms 23417}#) + (cdr #{body 23017}#) + (cons (cons #{er 23025}# + (#{wrap 4515}# + (car #{forms 23417}#) + #{w 23185}# + #{mod 23187}#)) + (#{f 23354}# + (cdr #{forms 23417}#))))))) + (#{f 23354}# #{e1 23353}#)) + #{ids 23018}# + #{labels 23019}# + #{var-ids 23020}# + #{vars 23021}# + #{vals 23022}# + #{bindings 23023}#)) + #{tmp 23349}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwrw1}#))) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwrwz}# + #{e 23184}#))) + (if (eqv? #{type 23182}# 'local-syntax-form) - (#{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}# + (#{expand-local-syntax 4527}# + #{value 23183}# + #{e 23184}# + #{er 23025}# + #{w 23185}# + #{s 23186}# + #{mod 23187}# + (lambda (#{forms 23431}# + #{er 23432}# + #{w 23433}# + #{s 23434}# + #{mod 23435}#) + (#{parse 23004}# (letrec* - ((#{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 23436}# + (lambda (#{forms 23499}#) + (if (null? #{forms 23499}#) + (cdr #{body 23017}#) + (cons (cons #{er 23432}# + (#{wrap 4515}# + (car #{forms 23499}#) + #{w 23433}# + #{mod 23435}#)) + (#{f 23436}# + (cdr #{forms 23499}#))))))) + (#{f 23436}# #{forms 23431}#)) + #{ids 23018}# + #{labels 23019}# + #{var-ids 23020}# + #{vars 23021}# + #{vals 23022}# + #{bindings 23023}#))) + (if (null? #{ids 23018}#) + (#{build-sequence 4467}# #f - (map (lambda (#{x -ANAU$bmvAmthP7L7xwr2t}#) - (let ((#{e -ANAU$bmvAmthP7L7xwr2x}# - (cdr #{x -ANAU$bmvAmthP7L7xwr2t}#)) - (#{r -ANAU$bmvAmthP7L7xwr2y}# - (car #{x -ANAU$bmvAmthP7L7xwr2t}#))) + (map (lambda (#{x 23564}#) + (let ((#{e 23568}# + (cdr #{x 23564}#)) + (#{r 23569}# + (car #{x 23564}#))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwr2x}# - #{r -ANAU$bmvAmthP7L7xwr2y}# + (#{syntax-type 4521}# + #{e 23568}# + #{r 23569}# '(()) - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xwr2x}#) + (#{source-annotation 4479}# + #{e 23568}#) #f - #{mod -ANAU$bmvAmthP7L7xwrw4}# + #{mod 23187}# #f)) - (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}# + (lambda (#{type 23573}# + #{value 23574}# + #{e 23575}# + #{w 23576}# + #{s 23577}# + #{mod 23578}#) + (#{expand-expr 4523}# + #{type 23573}# + #{value 23574}# + #{e 23575}# + #{r 23569}# + #{w 23576}# + #{s 23577}# + #{mod 23578}#))))) + (cons (cons #{er 23025}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#) - #{s -ANAU$bmvAmthP7L7xwrw3}# + (if (if (pair? #{e 23184}#) + #{s 23186}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwrw1}# - #{s -ANAU$bmvAmthP7L7xwrw3}#)) - #{e -ANAU$bmvAmthP7L7xwrw1}#) - #{w -ANAU$bmvAmthP7L7xwrw2}# - #{mod -ANAU$bmvAmthP7L7xwrw4}#)) - (cdr #{body -ANAU$bmvAmthP7L7xwruO}#)))) + #{e 23184}# + #{s 23186}#)) + #{e 23184}#) + #{w 23185}# + #{mod 23187}#)) + (cdr #{body 23017}#)))) (begin - (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# - #{ids -ANAU$bmvAmthP7L7xwruP}#)) + (if (not (#{valid-bound-ids? 4512}# + #{ids 23018}#)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form -ANAU$bmvAmthP7L7xwrt6}#)) + #{outer-form 22997}#)) (letrec* - ((#{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}#) + ((#{loop 23679}# + (lambda (#{bs 23682}# + #{er-cache 23683}# + #{r-cache 23684}#) + (if (not (null? #{bs 23682}#)) + (let ((#{b 23685}# + (car #{bs 23682}#))) + (if (eq? (car #{b 23685}#) 'macro) - (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}#)))) + (let ((#{er 23687}# + (car (cdr #{b 23685}#)))) + (let ((#{r-cache 23688}# + (if (eq? #{er 23687}# + #{er-cache 23683}#) + #{r-cache 23684}# + (#{macros-only-env 4482}# + #{er 23687}#)))) (begin (set-cdr! - #{b -ANAU$bmvAmthP7L7xwr4m}# - (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - (cdr (cdr #{b -ANAU$bmvAmthP7L7xwr4m}#)) - #{r-cache -ANAU$bmvAmthP7L7xwr4p}# + #{b 23685}# + (#{eval-local-transformer 4528}# + (#{expand 4522}# + (cdr (cdr #{b 23685}#)) + #{r-cache 23688}# '(()) - #{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}# + #{mod 23187}#) + #{mod 23187}#)) + (#{loop 23679}# + (cdr #{bs 23682}#) + #{er 23687}# + #{r-cache 23688}#)))) + (#{loop 23679}# + (cdr #{bs 23682}#) + #{er-cache 23683}# + #{r-cache 23684}#))))))) + (#{loop 23679}# + #{bindings 23023}# #f #f)) (set-cdr! - #{r -ANAU$bmvAmthP7L7xwrt$}# - (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# - #{labels -ANAU$bmvAmthP7L7xwruQ}# - #{bindings -ANAU$bmvAmthP7L7xwruU}# - (cdr #{r -ANAU$bmvAmthP7L7xwrt$}#))) - (#{build-letrec -ANAU$bmvAmthP7L7xwnNQ}# + #{r 23001}# + (#{extend-env 4480}# + #{labels 23019}# + #{bindings 23023}# + (cdr #{r 23001}#))) + (#{build-letrec 4470}# #f #t (reverse (map syntax->datum - #{var-ids -ANAU$bmvAmthP7L7xwruR}#)) - (reverse - #{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}#))) + #{var-ids 23020}#)) + (reverse #{vars 23021}#) + (map (lambda (#{x 24031}#) + (let ((#{e 24035}# + (cdr #{x 24031}#)) + (#{r 24036}# + (car #{x 24031}#))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwr$E}# - #{r -ANAU$bmvAmthP7L7xwr$F}# + (#{syntax-type 4521}# + #{e 24035}# + #{r 24036}# '(()) - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xwr$E}#) + (#{source-annotation 4479}# + #{e 24035}#) #f - #{mod -ANAU$bmvAmthP7L7xwrw4}# + #{mod 23187}# #f)) - (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 -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}#))) + (lambda (#{type 24040}# + #{value 24041}# + #{e 24042}# + #{w 24043}# + #{s 24044}# + #{mod 24045}#) + (#{expand-expr 4523}# + #{type 24040}# + #{value 24041}# + #{e 24042}# + #{r 24036}# + #{w 24043}# + #{s 24044}# + #{mod 24045}#))))) + (reverse #{vals 23022}#)) + (let ((#{exps 24051}# + (map (lambda (#{x 24052}#) + (let ((#{e 24055}# + (cdr #{x 24052}#)) + (#{r 24056}# + (car #{x 24052}#))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwr$Y}# - #{r -ANAU$bmvAmthP7L7xwr$Z}# + (#{syntax-type 4521}# + #{e 24055}# + #{r 24056}# '(()) - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xwr$Y}#) + (#{source-annotation 4479}# + #{e 24055}#) #f - #{mod -ANAU$bmvAmthP7L7xwrw4}# + #{mod 23187}# #f)) - (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}# + (lambda (#{type 24060}# + #{value 24061}# + #{e 24062}# + #{w 24063}# + #{s 24064}# + #{mod 24065}#) + (#{expand-expr 4523}# + #{type 24060}# + #{value 24061}# + #{e 24062}# + #{r 24056}# + #{w 24063}# + #{s 24064}# + #{mod 24065}#))))) + (cons (cons #{er 23025}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwrw1}#) - #{s -ANAU$bmvAmthP7L7xwrw3}# + (if (if (pair? #{e 23184}#) + #{s 23186}# #f) (set-source-properties! - #{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}#) + #{e 23184}# + #{s 23186}#)) + #{e 23184}#) + #{w 23185}# + #{mod 23187}#)) + (cdr #{body 23017}#))))) + (if (null? (cdr #{exps 24051}#)) + (car #{exps 24051}#) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{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}#) + #{exps 24051}#))))))))))))))))) + (#{parse 23004}# + (map (lambda (#{x 23007}#) + (cons #{r 23001}# + (#{wrap 4515}# + #{x 23007}# + #{w 23003}# + #{mod 23000}#))) + #{body 22996}#) '() '() '() '() '() '()))))))) - (#{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}# + (#{expand-local-syntax 4527}# + (lambda (#{rec? 24091}# + #{e 24092}# + #{r 24093}# + #{w 24094}# + #{s 24095}# + #{mod 24096}# + #{k 24097}#) + (let ((#{tmp 24099}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwr$9}# + #{e 24092}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwr@E}# + (if #{tmp 24099}# (@apply - (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}#)) + (lambda (#{id 24103}# + #{val 24104}# + #{e1 24105}# + #{e2 24106}#) + (if (not (#{valid-bound-ids? 4512}# #{id 24103}#)) (syntax-violation #f "duplicate bound keyword" - #{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$$}#))) + #{e 24092}#) + (let ((#{labels 24196}# + (#{gen-labels 4489}# #{id 24103}#))) + (let ((#{new-w 24197}# + (#{make-binding-wrap 4500}# + #{id 24103}# + #{labels 24196}# + #{w 24094}#))) + (#{k 24097}# + (cons #{e1 24105}# #{e2 24106}#) + (#{extend-env 4480}# + #{labels 24196}# + (let ((#{trans-r 24233}# + (#{macros-only-env 4482}# #{r 24093}#))) (begin - (if #{rec? -ANAU$bmvAmthP7L7xwr$8}# - #{new-w -ANAU$bmvAmthP7L7xwsAm}# - #{w -ANAU$bmvAmthP7L7xwr$@}#) - (map (lambda (#{x -ANAU$bmvAmthP7L7xwsBH}#) + (if #{rec? 24091}# #{new-w 24197}# #{w 24094}#) + (map (lambda (#{x 24234}#) (cons 'macro - (#{eval-local-transformer -ANAU$bmvAmthP7L7xwnOK}# - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - #{x -ANAU$bmvAmthP7L7xwsBH}# - #{trans-r -ANAU$bmvAmthP7L7xwsBG}# + (#{eval-local-transformer 4528}# + (#{expand 4522}# + #{x 24234}# + #{trans-r 24233}# (values - (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}#) + (if #{rec? 24091}# + #{new-w 24197}# + #{w 24094}#)) + #{mod 24096}#) + #{mod 24096}#))) + #{val 24104}#))) + #{r 24093}#) + #{new-w 24197}# + #{s 24095}# + #{mod 24096}#))))) + #{tmp 24099}#) (syntax-violation #f "bad local syntax definition" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwr$9}#) - #{s -ANAU$bmvAmthP7L7xwr@A}# - #f) - (set-source-properties! - #{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 -ANAU$bmvAmthP7L7xwsFb}#))) - (if (procedure? #{p -ANAU$bmvAmthP7L7xwsFd}#) - #{p -ANAU$bmvAmthP7L7xwsFd}# + (if (if (pair? #{e 24092}#) #{s 24095}# #f) + (set-source-properties! #{e 24092}# #{s 24095}#)) + #{e 24092}#) + #{w 24094}# + #{mod 24096}#)))))) + (#{eval-local-transformer 4528}# + (lambda (#{expanded 24514}# #{mod 24515}#) + (let ((#{p 24516}# (primitive-eval #{expanded 24514}#))) + (if (procedure? #{p 24516}#) + #{p 24516}# (syntax-violation #f "nonprocedure transformer" - #{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 -ANAU$bmvAmthP7L7xwnYh}# 0) - 'syntax-object) + #{p 24516}#))))) + (#{ellipsis? 4530}# + (lambda (#{x 5191}#) + (if (if (if (vector? #{x 5191}#) + (if (= (vector-length #{x 5191}#) 4) + (eq? (vector-ref #{x 5191}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1)) + (symbol? (vector-ref #{x 5191}# 1)) #f) - (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwnYh}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwnYh}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 0) - 'syntax-object) + (if (eq? (if (if (vector? #{x 5191}#) + (if (= (vector-length #{x 5191}#) 4) + (eq? (vector-ref #{x 5191}# 0) 'syntax-object) #f) #f) - (vector-ref #{x -ANAU$bmvAmthP7L7xwnYh}# 1) - #{x -ANAU$bmvAmthP7L7xwnYh}#) + (vector-ref #{x 5191}# 1) + #{x 5191}#) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("p6")) + #(ribcage #(x) #((top)) #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -5379,7 +5024,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -5547,152 +5192,152 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile))) 4) #t @@ -5703,7 +5348,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("p6")) + #(ribcage #(x) #((top)) #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -5817,7 +5462,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -5985,163 +5630,161 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{x -ANAU$bmvAmthP7L7xwnYh}# - '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (eq? (#{id-var-name 4505}# #{x 5191}# '(())) + (#{id-var-name 4505}# '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("p6")) + #(ribcage #(x) #((top)) #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -6255,7 +5898,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -6423,539 +6066,445 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(()))) #f) #f))) - (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}# - (lambda (#{orig-args -ANAU$bmvAmthP7L7xwsFi}#) + (#{lambda-formals 4531}# + (lambda (#{orig-args 24521}#) (letrec* - ((#{req -ANAU$bmvAmthP7L7xwsFj}# - (lambda (#{args -ANAU$bmvAmthP7L7xwsFn}# - #{rreq -ANAU$bmvAmthP7L7xwsFo}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsFq}# - ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsFn}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xwsFq}# + ((#{req 24522}# + (lambda (#{args 24526}# #{rreq 24527}#) + (let ((#{tmp 24529}# ($sc-dispatch #{args 24526}# '()))) + (if #{tmp 24529}# (@apply (lambda () - (#{check -ANAU$bmvAmthP7L7xwsFk}# - (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#) - #f)) - #{tmp -ANAU$bmvAmthP7L7xwsFq}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsHl}# - ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsFn}# - '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsHl}# + (#{check 24523}# (reverse #{rreq 24527}#) #f)) + #{tmp 24529}#) + (let ((#{tmp 24652}# + ($sc-dispatch #{args 24526}# '(any . any)))) + (if (if #{tmp 24652}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsHp}# - #{b -ANAU$bmvAmthP7L7xwsHq}#) - (if (symbol? #{a -ANAU$bmvAmthP7L7xwsHp}#) + (lambda (#{a 24656}# #{b 24657}#) + (if (symbol? #{a 24656}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsHp}#) - (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsHp}#) - 4) - (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsHp}# - 0) + (if (if (vector? #{a 24656}#) + (if (= (vector-length #{a 24656}#) 4) + (eq? (vector-ref #{a 24656}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsHp}# - 1)) + (symbol? (vector-ref #{a 24656}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsHl}#) + #{tmp 24652}#) #f) (@apply - (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}#))) + (lambda (#{a 24684}# #{b 24685}#) + (#{req 24522}# + #{b 24685}# + (cons #{a 24684}# #{rreq 24527}#))) + #{tmp 24652}#) + (let ((#{tmp 24686}# (list #{args 24526}#))) (if (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsIJ}#) - (if (symbol? #{r -ANAU$bmvAmthP7L7xwsIJ}#) + (lambda (#{r 24688}#) + (if (symbol? #{r 24688}#) #t - (if (if (vector? - #{r -ANAU$bmvAmthP7L7xwsIJ}#) - (if (= (vector-length - #{r -ANAU$bmvAmthP7L7xwsIJ}#) - 4) - (eq? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsIJ}# - 0) + (if (if (vector? #{r 24688}#) + (if (= (vector-length #{r 24688}#) 4) + (eq? (vector-ref #{r 24688}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{r -ANAU$bmvAmthP7L7xwsIJ}# - 1)) + (symbol? (vector-ref #{r 24688}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsIH}#) + #{tmp 24686}#) (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsIn}#) - (#{check -ANAU$bmvAmthP7L7xwsFk}# - (reverse #{rreq -ANAU$bmvAmthP7L7xwsFo}#) - #{r -ANAU$bmvAmthP7L7xwsIn}#)) - #{tmp -ANAU$bmvAmthP7L7xwsIH}#) + (lambda (#{r 24718}#) + (#{check 24523}# + (reverse #{rreq 24527}#) + #{r 24718}#)) + #{tmp 24686}#) (syntax-violation 'lambda "invalid argument list" - #{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 -ANAU$bmvAmthP7L7xwsKq}# - #f - #{rest -ANAU$bmvAmthP7L7xwsKr}# - #f) + #{orig-args 24521}# + #{args 24526}#))))))))) + (#{check 24523}# + (lambda (#{req 24849}# #{rest 24850}#) + (if (#{distinct-bound-ids? 4513}# + (if #{rest 24850}# + (cons #{rest 24850}# #{req 24849}#) + #{req 24849}#)) + (values #{req 24849}# #f #{rest 24850}# #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args -ANAU$bmvAmthP7L7xwsFi}#))))) - (#{req -ANAU$bmvAmthP7L7xwsFj}# - #{orig-args -ANAU$bmvAmthP7L7xwsFi}# - '())))) - (#{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 -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 -ANAU$bmvAmthP7L7xwsMk}#) - (if #{rest -ANAU$bmvAmthP7L7xwsMl}# - (syntax->datum #{rest -ANAU$bmvAmthP7L7xwsMl}#) + #{orig-args 24521}#))))) + (#{req 24522}# #{orig-args 24521}# '())))) + (#{expand-simple-lambda 4532}# + (lambda (#{e 24966}# + #{r 24967}# + #{w 24968}# + #{s 24969}# + #{mod 24970}# + #{req 24971}# + #{rest 24972}# + #{meta 24973}# + #{body 24974}#) + (let ((#{ids 24975}# + (if #{rest 24972}# + (append #{req 24971}# (list #{rest 24972}#)) + #{req 24971}#))) + (let ((#{vars 24976}# + (map #{gen-var 4536}# #{ids 24975}#))) + (let ((#{labels 24977}# + (#{gen-labels 4489}# #{ids 24975}#))) + (#{build-simple-lambda 4462}# + #{s 24969}# + (map syntax->datum #{req 24971}#) + (if #{rest 24972}# + (syntax->datum #{rest 24972}#) #f) - #{vars -ANAU$bmvAmthP7L7xwsMp}# - #{meta -ANAU$bmvAmthP7L7xwsMm}# - (#{expand-body -ANAU$bmvAmthP7L7xwnOI}# - #{body -ANAU$bmvAmthP7L7xwsMn}# - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{vars 24976}# + #{meta 24973}# + (#{expand-body 4526}# + #{body 24974}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsMf}#) - #{s -ANAU$bmvAmthP7L7xwsMi}# - #f) - (set-source-properties! - #{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}#) + (if (if (pair? #{e 24966}#) #{s 24969}# #f) + (set-source-properties! #{e 24966}# #{s 24969}#)) + #{e 24966}#) + #{w 24968}# + #{mod 24970}#) + (#{extend-var-env 4481}# + #{labels 24977}# + #{vars 24976}# + #{r 24967}#) + (#{make-binding-wrap 4500}# + #{ids 24975}# + #{labels 24977}# + #{w 24968}#) + #{mod 24970}#))))))) + (#{lambda*-formals 4533}# + (lambda (#{orig-args 25257}#) (letrec* - ((#{req -ANAU$bmvAmthP7L7xwsQ7}# - (lambda (#{args -ANAU$bmvAmthP7L7xwsRC}# - #{rreq -ANAU$bmvAmthP7L7xwsRD}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsRF}# - ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsRC}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xwsRF}# + ((#{req 25258}# + (lambda (#{args 25265}# #{rreq 25266}#) + (let ((#{tmp 25268}# ($sc-dispatch #{args 25265}# '()))) + (if #{tmp 25268}# (@apply (lambda () - (#{check -ANAU$bmvAmthP7L7xwsQ@}# - (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (#{check 25262}# + (reverse #{rreq 25266}#) '() #f '())) - #{tmp -ANAU$bmvAmthP7L7xwsRF}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsRL}# - ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsRC}# - '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsRL}# + #{tmp 25268}#) + (let ((#{tmp 25274}# + ($sc-dispatch #{args 25265}# '(any . any)))) + (if (if #{tmp 25274}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsRP}# - #{b -ANAU$bmvAmthP7L7xwsRQ}#) - (if (symbol? #{a -ANAU$bmvAmthP7L7xwsRP}#) + (lambda (#{a 25278}# #{b 25279}#) + (if (symbol? #{a 25278}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsRP}#) - (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsRP}#) - 4) - (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsRP}# - 0) + (if (if (vector? #{a 25278}#) + (if (= (vector-length #{a 25278}#) 4) + (eq? (vector-ref #{a 25278}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsRP}# - 1)) + (symbol? (vector-ref #{a 25278}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsRL}#) + #{tmp 25274}#) #f) (@apply - (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 -ANAU$bmvAmthP7L7xwsRC}# - '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsRt}# + (lambda (#{a 25306}# #{b 25307}#) + (#{req 25258}# + #{b 25307}# + (cons #{a 25306}# #{rreq 25266}#))) + #{tmp 25274}#) + (let ((#{tmp 25308}# + ($sc-dispatch #{args 25265}# '(any . any)))) + (if (if #{tmp 25308}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsRx}# - #{b -ANAU$bmvAmthP7L7xwsRy}#) - (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsRx}#) + (lambda (#{a 25312}# #{b 25313}#) + (eq? (syntax->datum #{a 25312}#) #:optional)) - #{tmp -ANAU$bmvAmthP7L7xwsRt}#) + #{tmp 25308}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsRz}# - #{b -ANAU$bmvAmthP7L7xwsR0}#) - (#{opt -ANAU$bmvAmthP7L7xwsQ8}# - #{b -ANAU$bmvAmthP7L7xwsR0}# - (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (lambda (#{a 25314}# #{b 25315}#) + (#{opt 25259}# + #{b 25315}# + (reverse #{rreq 25266}#) '())) - #{tmp -ANAU$bmvAmthP7L7xwsRt}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsR3}# + #{tmp 25308}#) + (let ((#{tmp 25318}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsRC}# + #{args 25265}# '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsR3}# + (if (if #{tmp 25318}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsR7}# - #{b -ANAU$bmvAmthP7L7xwsR8}#) - (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsR7}#) + (lambda (#{a 25322}# #{b 25323}#) + (eq? (syntax->datum #{a 25322}#) #:key)) - #{tmp -ANAU$bmvAmthP7L7xwsR3}#) + #{tmp 25318}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsR9}# - #{b -ANAU$bmvAmthP7L7xwsR$}#) - (#{key -ANAU$bmvAmthP7L7xwsQ9}# - #{b -ANAU$bmvAmthP7L7xwsR$}# - (reverse #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (lambda (#{a 25324}# #{b 25325}#) + (#{key 25260}# + #{b 25325}# + (reverse #{rreq 25266}#) '() '())) - #{tmp -ANAU$bmvAmthP7L7xwsR3}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsSB}# + #{tmp 25318}#) + (let ((#{tmp 25328}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsRC}# + #{args 25265}# '(any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsSB}# + (if (if #{tmp 25328}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsSF}# - #{b -ANAU$bmvAmthP7L7xwsSG}#) - (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsSF}#) + (lambda (#{a 25332}# #{b 25333}#) + (eq? (syntax->datum #{a 25332}#) #:rest)) - #{tmp -ANAU$bmvAmthP7L7xwsSB}#) + #{tmp 25328}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsSH}# - #{b -ANAU$bmvAmthP7L7xwsSI}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{b -ANAU$bmvAmthP7L7xwsSI}# - (reverse - #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (lambda (#{a 25334}# #{b 25335}#) + (#{rest 25261}# + #{b 25335}# + (reverse #{rreq 25266}#) '() '())) - #{tmp -ANAU$bmvAmthP7L7xwsSB}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsSL}# - (list #{args -ANAU$bmvAmthP7L7xwsRC}#))) + #{tmp 25328}#) + (let ((#{tmp 25338}# + (list #{args 25265}#))) (if (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsSN}#) - (if (symbol? - #{r -ANAU$bmvAmthP7L7xwsSN}#) + (lambda (#{r 25340}#) + (if (symbol? #{r 25340}#) #t - (if (if (vector? - #{r -ANAU$bmvAmthP7L7xwsSN}#) + (if (if (vector? #{r 25340}#) (if (= (vector-length - #{r -ANAU$bmvAmthP7L7xwsSN}#) + #{r 25340}#) 4) (eq? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsSN}# + #{r 25340}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{r -ANAU$bmvAmthP7L7xwsSN}# - 1)) + (vector-ref #{r 25340}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsSL}#) + #{tmp 25338}#) (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsSr}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{r -ANAU$bmvAmthP7L7xwsSr}# - (reverse - #{rreq -ANAU$bmvAmthP7L7xwsRD}#) + (lambda (#{r 25370}#) + (#{rest 25261}# + #{r 25370}# + (reverse #{rreq 25266}#) '() '())) - #{tmp -ANAU$bmvAmthP7L7xwsSL}#) + #{tmp 25338}#) (syntax-violation 'lambda* "invalid argument list" - #{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 -ANAU$bmvAmthP7L7xwsS$}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xwsTC}# + #{orig-args 25257}# + #{args 25265}#))))))))))))))) + (#{opt 25259}# + (lambda (#{args 25389}# #{req 25390}# #{ropt 25391}#) + (let ((#{tmp 25393}# ($sc-dispatch #{args 25389}# '()))) + (if #{tmp 25393}# (@apply (lambda () - (#{check -ANAU$bmvAmthP7L7xwsQ@}# - #{req -ANAU$bmvAmthP7L7xwsS@}# - (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#) + (#{check 25262}# + #{req 25390}# + (reverse #{ropt 25391}#) #f '())) - #{tmp -ANAU$bmvAmthP7L7xwsTC}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsTI}# - ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsS$}# - '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsTI}# + #{tmp 25393}#) + (let ((#{tmp 25399}# + ($sc-dispatch #{args 25389}# '(any . any)))) + (if (if #{tmp 25399}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsTM}# - #{b -ANAU$bmvAmthP7L7xwsTN}#) - (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTM}#) + (lambda (#{a 25403}# #{b 25404}#) + (if (symbol? #{a 25403}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsTM}#) - (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsTM}#) - 4) - (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsTM}# - 0) + (if (if (vector? #{a 25403}#) + (if (= (vector-length #{a 25403}#) 4) + (eq? (vector-ref #{a 25403}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsTM}# - 1)) + (symbol? (vector-ref #{a 25403}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsTI}#) + #{tmp 25399}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsTo}# - #{b -ANAU$bmvAmthP7L7xwsTp}#) - (#{opt -ANAU$bmvAmthP7L7xwsQ8}# - #{b -ANAU$bmvAmthP7L7xwsTp}# - #{req -ANAU$bmvAmthP7L7xwsS@}# - (cons (cons #{a -ANAU$bmvAmthP7L7xwsTo}# + (lambda (#{a 25431}# #{b 25432}#) + (#{opt 25259}# + #{b 25432}# + #{req 25390}# + (cons (cons #{a 25431}# '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("qt" "qu")) + #("l-*-2482" "l-*-2483")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("qo" "qp" "qq")) + #("l-*-2472" + "l-*-2473" + "l-*-2474")) #(ribcage (check rest key opt req) ((top) @@ -6963,11 +6512,15 @@ (top) (top) (top)) - ("q2" "q1" "q0" "pz" "py")) + ("l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410")) #(ribcage #(orig-args) #((top)) - #("px")) + #("l-*-2409")) #(ribcage (lambda-var-list gen-var @@ -7081,7 +6634,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -7249,338 +6802,299 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - #{ropt -ANAU$bmvAmthP7L7xwsTA}#))) - #{tmp -ANAU$bmvAmthP7L7xwsTI}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsTq}# + #{ropt 25391}#))) + #{tmp 25399}#) + (let ((#{tmp 25433}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsS$}# + #{args 25389}# '((any any) . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsTq}# + (if (if #{tmp 25433}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsTu}# - #{init -ANAU$bmvAmthP7L7xwsTv}# - #{b -ANAU$bmvAmthP7L7xwsTw}#) - (if (symbol? #{a -ANAU$bmvAmthP7L7xwsTu}#) + (lambda (#{a 25437}# + #{init 25438}# + #{b 25439}#) + (if (symbol? #{a 25437}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsTu}#) - (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsTu}#) + (if (if (vector? #{a 25437}#) + (if (= (vector-length #{a 25437}#) 4) - (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsTu}# - 0) + (eq? (vector-ref #{a 25437}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsTu}# - 1)) + (symbol? (vector-ref #{a 25437}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsTq}#) + #{tmp 25433}#) #f) (@apply - (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}# + (lambda (#{a 25466}# #{init 25467}# #{b 25468}#) + (#{opt 25259}# + #{b 25468}# + #{req 25390}# + (cons (list #{a 25466}# #{init 25467}#) + #{ropt 25391}#))) + #{tmp 25433}#) + (let ((#{tmp 25469}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsS$}# + #{args 25389}# '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsUO}# + (if (if #{tmp 25469}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsUS}# - #{b -ANAU$bmvAmthP7L7xwsUT}#) - (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsUS}#) + (lambda (#{a 25473}# #{b 25474}#) + (eq? (syntax->datum #{a 25473}#) #:key)) - #{tmp -ANAU$bmvAmthP7L7xwsUO}#) + #{tmp 25469}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsUU}# - #{b -ANAU$bmvAmthP7L7xwsUV}#) - (#{key -ANAU$bmvAmthP7L7xwsQ9}# - #{b -ANAU$bmvAmthP7L7xwsUV}# - #{req -ANAU$bmvAmthP7L7xwsS@}# - (reverse #{ropt -ANAU$bmvAmthP7L7xwsTA}#) + (lambda (#{a 25475}# #{b 25476}#) + (#{key 25260}# + #{b 25476}# + #{req 25390}# + (reverse #{ropt 25391}#) '())) - #{tmp -ANAU$bmvAmthP7L7xwsUO}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsUY}# + #{tmp 25469}#) + (let ((#{tmp 25479}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsS$}# + #{args 25389}# '(any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsUY}# + (if (if #{tmp 25479}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsUc}# - #{b -ANAU$bmvAmthP7L7xwsUd}#) - (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsUc}#) + (lambda (#{a 25483}# #{b 25484}#) + (eq? (syntax->datum #{a 25483}#) #:rest)) - #{tmp -ANAU$bmvAmthP7L7xwsUY}#) + #{tmp 25479}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsUe}# - #{b -ANAU$bmvAmthP7L7xwsUf}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{b -ANAU$bmvAmthP7L7xwsUf}# - #{req -ANAU$bmvAmthP7L7xwsS@}# - (reverse - #{ropt -ANAU$bmvAmthP7L7xwsTA}#) + (lambda (#{a 25485}# #{b 25486}#) + (#{rest 25261}# + #{b 25486}# + #{req 25390}# + (reverse #{ropt 25391}#) '())) - #{tmp -ANAU$bmvAmthP7L7xwsUY}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsUi}# - (list #{args -ANAU$bmvAmthP7L7xwsS$}#))) + #{tmp 25479}#) + (let ((#{tmp 25489}# + (list #{args 25389}#))) (if (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsUk}#) - (if (symbol? - #{r -ANAU$bmvAmthP7L7xwsUk}#) + (lambda (#{r 25491}#) + (if (symbol? #{r 25491}#) #t - (if (if (vector? - #{r -ANAU$bmvAmthP7L7xwsUk}#) + (if (if (vector? #{r 25491}#) (if (= (vector-length - #{r -ANAU$bmvAmthP7L7xwsUk}#) + #{r 25491}#) 4) (eq? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsUk}# + #{r 25491}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{r -ANAU$bmvAmthP7L7xwsUk}# - 1)) + (vector-ref #{r 25491}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsUi}#) + #{tmp 25489}#) (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsVC}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{r -ANAU$bmvAmthP7L7xwsVC}# - #{req -ANAU$bmvAmthP7L7xwsS@}# - (reverse - #{ropt -ANAU$bmvAmthP7L7xwsTA}#) + (lambda (#{r 25521}#) + (#{rest 25261}# + #{r 25521}# + #{req 25390}# + (reverse #{ropt 25391}#) '())) - #{tmp -ANAU$bmvAmthP7L7xwsUi}#) + #{tmp 25489}#) (syntax-violation 'lambda* "invalid optional argument list" - #{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 -ANAU$bmvAmthP7L7xwsVV}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xwsVa}# + #{orig-args 25257}# + #{args 25389}#))))))))))))))) + (#{key 25260}# + (lambda (#{args 25540}# + #{req 25541}# + #{opt 25542}# + #{rkey 25543}#) + (let ((#{tmp 25545}# ($sc-dispatch #{args 25540}# '()))) + (if #{tmp 25545}# (@apply (lambda () - (#{check -ANAU$bmvAmthP7L7xwsQ@}# - #{req -ANAU$bmvAmthP7L7xwsVW}# - #{opt -ANAU$bmvAmthP7L7xwsVX}# + (#{check 25262}# + #{req 25541}# + #{opt 25542}# #f - (cons #f - (reverse #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsVa}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsVg}# - ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsVV}# - '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsVg}# + (cons #f (reverse #{rkey 25543}#)))) + #{tmp 25545}#) + (let ((#{tmp 25551}# + ($sc-dispatch #{args 25540}# '(any . any)))) + (if (if #{tmp 25551}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsVk}# - #{b -ANAU$bmvAmthP7L7xwsVl}#) - (if (symbol? #{a -ANAU$bmvAmthP7L7xwsVk}#) + (lambda (#{a 25555}# #{b 25556}#) + (if (symbol? #{a 25555}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsVk}#) - (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsVk}#) - 4) - (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsVk}# - 0) + (if (if (vector? #{a 25555}#) + (if (= (vector-length #{a 25555}#) 4) + (eq? (vector-ref #{a 25555}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsVk}# - 1)) + (symbol? (vector-ref #{a 25555}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsVg}#) + #{tmp 25551}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsWA}# - #{b -ANAU$bmvAmthP7L7xwsWB}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsWC}# + (lambda (#{a 25583}# #{b 25584}#) + (let ((#{tmp 25585}# (symbol->keyword - (syntax->datum - #{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->datum #{a 25583}#)))) + (#{key 25260}# + #{b 25584}# + #{req 25541}# + #{opt 25542}# + (cons (cons #{tmp 25585}# + (cons #{a 25583}# '(#(syntax-object #f ((top) @@ -7588,11 +7102,12 @@ #(ribcage #(k) #((top)) - #("rk")) + #("l-*-2545")) #(ribcage #(a b) #((top) (top)) - #("ri" "rj")) + #("l-*-2539" + "l-*-2540")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -7600,10 +7115,10 @@ (top) (top) (top)) - #("rc" - "rd" - "re" - "rf")) + #("l-*-2528" + "l-*-2529" + "l-*-2530" + "l-*-2531")) #(ribcage (check rest key @@ -7614,15 +7129,15 @@ (top) (top) (top)) - ("q2" - "q1" - "q0" - "pz" - "py")) + ("l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410")) #(ribcage #(orig-args) #((top)) - #("px")) + #("l-*-2409")) #(ribcage (lambda-var-list gen-var @@ -7736,7 +7251,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -7904,1063 +7419,953 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))))) - #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsVg}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsWF}# + #{rkey 25543}#)))) + #{tmp 25551}#) + (let ((#{tmp 25588}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsVV}# + #{args 25540}# '((any any) . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsWF}# + (if (if #{tmp 25588}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsWJ}# - #{init -ANAU$bmvAmthP7L7xwsWK}# - #{b -ANAU$bmvAmthP7L7xwsWL}#) - (if (symbol? #{a -ANAU$bmvAmthP7L7xwsWJ}#) + (lambda (#{a 25592}# + #{init 25593}# + #{b 25594}#) + (if (symbol? #{a 25592}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsWJ}#) - (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsWJ}#) + (if (if (vector? #{a 25592}#) + (if (= (vector-length #{a 25592}#) 4) - (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsWJ}# - 0) + (eq? (vector-ref #{a 25592}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsWJ}# - 1)) + (symbol? (vector-ref #{a 25592}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsWF}#) + #{tmp 25588}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsWm}# - #{init -ANAU$bmvAmthP7L7xwsWn}# - #{b -ANAU$bmvAmthP7L7xwsWo}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsWp}# + (lambda (#{a 25621}# #{init 25622}# #{b 25623}#) + (let ((#{tmp 25624}# (symbol->keyword - (syntax->datum - #{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}# + (syntax->datum #{a 25621}#)))) + (#{key 25260}# + #{b 25623}# + #{req 25541}# + #{opt 25542}# + (cons (list #{tmp 25624}# + #{a 25621}# + #{init 25622}#) + #{rkey 25543}#)))) + #{tmp 25588}#) + (let ((#{tmp 25627}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsVV}# + #{args 25540}# '((any any any) . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsWs}# + (if (if #{tmp 25627}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsWw}# - #{init -ANAU$bmvAmthP7L7xwsWx}# - #{k -ANAU$bmvAmthP7L7xwsWy}# - #{b -ANAU$bmvAmthP7L7xwsWz}#) - (if (if (symbol? - #{a -ANAU$bmvAmthP7L7xwsWw}#) + (lambda (#{a 25631}# + #{init 25632}# + #{k 25633}# + #{b 25634}#) + (if (if (symbol? #{a 25631}#) #t - (if (if (vector? - #{a -ANAU$bmvAmthP7L7xwsWw}#) + (if (if (vector? #{a 25631}#) (if (= (vector-length - #{a -ANAU$bmvAmthP7L7xwsWw}#) + #{a 25631}#) 4) (eq? (vector-ref - #{a -ANAU$bmvAmthP7L7xwsWw}# + #{a 25631}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{a -ANAU$bmvAmthP7L7xwsWw}# - 1)) + (vector-ref #{a 25631}# 1)) #f)) (keyword? - (syntax->datum - #{k -ANAU$bmvAmthP7L7xwsWy}#)) + (syntax->datum #{k 25633}#)) #f)) - #{tmp -ANAU$bmvAmthP7L7xwsWs}#) + #{tmp 25627}#) #f) (@apply - (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 -ANAU$bmvAmthP7L7xwsVV}# - '(any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsXS}# + (lambda (#{a 25661}# + #{init 25662}# + #{k 25663}# + #{b 25664}#) + (#{key 25260}# + #{b 25664}# + #{req 25541}# + #{opt 25542}# + (cons (list #{k 25663}# + #{a 25661}# + #{init 25662}#) + #{rkey 25543}#))) + #{tmp 25627}#) + (let ((#{tmp 25665}# + ($sc-dispatch #{args 25540}# '(any)))) + (if (if #{tmp 25665}# (@apply - (lambda (#{aok -ANAU$bmvAmthP7L7xwsXW}#) - (eq? (syntax->datum - #{aok -ANAU$bmvAmthP7L7xwsXW}#) + (lambda (#{aok 25669}#) + (eq? (syntax->datum #{aok 25669}#) #:allow-other-keys)) - #{tmp -ANAU$bmvAmthP7L7xwsXS}#) + #{tmp 25665}#) #f) (@apply - (lambda (#{aok -ANAU$bmvAmthP7L7xwsXX}#) - (#{check -ANAU$bmvAmthP7L7xwsQ@}# - #{req -ANAU$bmvAmthP7L7xwsVW}# - #{opt -ANAU$bmvAmthP7L7xwsVX}# + (lambda (#{aok 25670}#) + (#{check 25262}# + #{req 25541}# + #{opt 25542}# #f - (cons #t - (reverse - #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsXS}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsXa}# + (cons #t (reverse #{rkey 25543}#)))) + #{tmp 25665}#) + (let ((#{tmp 25673}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsVV}# + #{args 25540}# '(any any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsXa}# + (if (if #{tmp 25673}# (@apply - (lambda (#{aok -ANAU$bmvAmthP7L7xwsXe}# - #{a -ANAU$bmvAmthP7L7xwsXf}# - #{b -ANAU$bmvAmthP7L7xwsXg}#) + (lambda (#{aok 25677}# + #{a 25678}# + #{b 25679}#) (if (eq? (syntax->datum - #{aok -ANAU$bmvAmthP7L7xwsXe}#) + #{aok 25677}#) #:allow-other-keys) (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsXf}#) + #{a 25678}#) #:rest) #f)) - #{tmp -ANAU$bmvAmthP7L7xwsXa}#) + #{tmp 25673}#) #f) (@apply - (lambda (#{aok -ANAU$bmvAmthP7L7xwsXh}# - #{a -ANAU$bmvAmthP7L7xwsXi}# - #{b -ANAU$bmvAmthP7L7xwsXj}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{b -ANAU$bmvAmthP7L7xwsXj}# - #{req -ANAU$bmvAmthP7L7xwsVW}# - #{opt -ANAU$bmvAmthP7L7xwsVX}# + (lambda (#{aok 25680}# + #{a 25681}# + #{b 25682}#) + (#{rest 25261}# + #{b 25682}# + #{req 25541}# + #{opt 25542}# (cons #t - (reverse - #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsXa}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsXm}# + (reverse #{rkey 25543}#)))) + #{tmp 25673}#) + (let ((#{tmp 25685}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsVV}# + #{args 25540}# '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsXm}# + (if (if #{tmp 25685}# (@apply - (lambda (#{aok -ANAU$bmvAmthP7L7xwsXq}# - #{r -ANAU$bmvAmthP7L7xwsXr}#) + (lambda (#{aok 25689}# + #{r 25690}#) (if (eq? (syntax->datum - #{aok -ANAU$bmvAmthP7L7xwsXq}#) + #{aok 25689}#) #:allow-other-keys) - (if (symbol? - #{r -ANAU$bmvAmthP7L7xwsXr}#) + (if (symbol? #{r 25690}#) #t (if (if (vector? - #{r -ANAU$bmvAmthP7L7xwsXr}#) + #{r 25690}#) (if (= (vector-length - #{r -ANAU$bmvAmthP7L7xwsXr}#) + #{r 25690}#) 4) (eq? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsXr}# + #{r 25690}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsXr}# + #{r 25690}# 1)) #f)) #f)) - #{tmp -ANAU$bmvAmthP7L7xwsXm}#) + #{tmp 25685}#) #f) (@apply - (lambda (#{aok -ANAU$bmvAmthP7L7xwsYG}# - #{r -ANAU$bmvAmthP7L7xwsYH}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{r -ANAU$bmvAmthP7L7xwsYH}# - #{req -ANAU$bmvAmthP7L7xwsVW}# - #{opt -ANAU$bmvAmthP7L7xwsVX}# + (lambda (#{aok 25717}# + #{r 25718}#) + (#{rest 25261}# + #{r 25718}# + #{req 25541}# + #{opt 25542}# (cons #t (reverse - #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsXm}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsYK}# + #{rkey 25543}#)))) + #{tmp 25685}#) + (let ((#{tmp 25721}# ($sc-dispatch - #{args -ANAU$bmvAmthP7L7xwsVV}# + #{args 25540}# '(any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsYK}# + (if (if #{tmp 25721}# (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsYO}# - #{b -ANAU$bmvAmthP7L7xwsYP}#) + (lambda (#{a 25725}# + #{b 25726}#) (eq? (syntax->datum - #{a -ANAU$bmvAmthP7L7xwsYO}#) + #{a 25725}#) #:rest)) - #{tmp -ANAU$bmvAmthP7L7xwsYK}#) + #{tmp 25721}#) #f) (@apply - (lambda (#{a -ANAU$bmvAmthP7L7xwsYQ}# - #{b -ANAU$bmvAmthP7L7xwsYR}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{b -ANAU$bmvAmthP7L7xwsYR}# - #{req -ANAU$bmvAmthP7L7xwsVW}# - #{opt -ANAU$bmvAmthP7L7xwsVX}# + (lambda (#{a 25727}# + #{b 25728}#) + (#{rest 25261}# + #{b 25728}# + #{req 25541}# + #{opt 25542}# (cons #f (reverse - #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsYK}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsYU}# - (list #{args -ANAU$bmvAmthP7L7xwsVV}#))) + #{rkey 25543}#)))) + #{tmp 25721}#) + (let ((#{tmp 25731}# + (list #{args 25540}#))) (if (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsYW}#) + (lambda (#{r 25733}#) (if (symbol? - #{r -ANAU$bmvAmthP7L7xwsYW}#) + #{r 25733}#) #t (if (if (vector? - #{r -ANAU$bmvAmthP7L7xwsYW}#) + #{r 25733}#) (if (= (vector-length - #{r -ANAU$bmvAmthP7L7xwsYW}#) + #{r 25733}#) 4) (eq? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsYW}# + #{r 25733}# 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsYW}# + #{r 25733}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsYU}#) + #{tmp 25731}#) (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsY0}#) - (#{rest -ANAU$bmvAmthP7L7xwsQ$}# - #{r -ANAU$bmvAmthP7L7xwsY0}# - #{req -ANAU$bmvAmthP7L7xwsVW}# - #{opt -ANAU$bmvAmthP7L7xwsVX}# + (lambda (#{r 25763}#) + (#{rest 25261}# + #{r 25763}# + #{req 25541}# + #{opt 25542}# (cons #f (reverse - #{rkey -ANAU$bmvAmthP7L7xwsVY}#)))) - #{tmp -ANAU$bmvAmthP7L7xwsYU}#) + #{rkey 25543}#)))) + #{tmp 25731}#) (syntax-violation 'lambda* "invalid keyword argument list" - #{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}#))) + #{orig-args 25257}# + #{args 25540}#))))))))))))))))))))) + (#{rest 25261}# + (lambda (#{args 25791}# + #{req 25792}# + #{opt 25793}# + #{kw 25794}#) + (let ((#{tmp 25796}# (list #{args 25791}#))) (if (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsZX}#) - (if (symbol? #{r -ANAU$bmvAmthP7L7xwsZX}#) + (lambda (#{r 25798}#) + (if (symbol? #{r 25798}#) #t - (if (if (vector? #{r -ANAU$bmvAmthP7L7xwsZX}#) - (if (= (vector-length - #{r -ANAU$bmvAmthP7L7xwsZX}#) - 4) - (eq? (vector-ref - #{r -ANAU$bmvAmthP7L7xwsZX}# - 0) + (if (if (vector? #{r 25798}#) + (if (= (vector-length #{r 25798}#) 4) + (eq? (vector-ref #{r 25798}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{r -ANAU$bmvAmthP7L7xwsZX}# 1)) + (symbol? (vector-ref #{r 25798}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwsZV}#) + #{tmp 25796}#) (@apply - (lambda (#{r -ANAU$bmvAmthP7L7xwsZ1}#) - (#{check -ANAU$bmvAmthP7L7xwsQ@}# - #{req -ANAU$bmvAmthP7L7xwsZR}# - #{opt -ANAU$bmvAmthP7L7xwsZS}# - #{r -ANAU$bmvAmthP7L7xwsZ1}# - #{kw -ANAU$bmvAmthP7L7xwsZT}#)) - #{tmp -ANAU$bmvAmthP7L7xwsZV}#) + (lambda (#{r 25828}#) + (#{check 25262}# + #{req 25792}# + #{opt 25793}# + #{r 25828}# + #{kw 25794}#)) + #{tmp 25796}#) (syntax-violation 'lambda* "invalid rest argument" - #{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}# + #{orig-args 25257}# + #{args 25791}#))))) + (#{check 25262}# + (lambda (#{req 25832}# + #{opt 25833}# + #{rest 25834}# + #{kw 25835}#) + (if (#{distinct-bound-ids? 4513}# (append - #{req -ANAU$bmvAmthP7L7xwsZ5}# - (map car #{opt -ANAU$bmvAmthP7L7xwsZ6}#) - (if #{rest -ANAU$bmvAmthP7L7xwsZ7}# - (list #{rest -ANAU$bmvAmthP7L7xwsZ7}#) - '()) - (if (pair? #{kw -ANAU$bmvAmthP7L7xwsZ8}#) - (map cadr (cdr #{kw -ANAU$bmvAmthP7L7xwsZ8}#)) + #{req 25832}# + (map car #{opt 25833}#) + (if #{rest 25834}# (list #{rest 25834}#) '()) + (if (pair? #{kw 25835}#) + (map cadr (cdr #{kw 25835}#)) '()))) (values - #{req -ANAU$bmvAmthP7L7xwsZ5}# - #{opt -ANAU$bmvAmthP7L7xwsZ6}# - #{rest -ANAU$bmvAmthP7L7xwsZ7}# - #{kw -ANAU$bmvAmthP7L7xwsZ8}#) + #{req 25832}# + #{opt 25833}# + #{rest 25834}# + #{kw 25835}#) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args -ANAU$bmvAmthP7L7xwsQ6}#))))) - (#{req -ANAU$bmvAmthP7L7xwsQ7}# - #{orig-args -ANAU$bmvAmthP7L7xwsQ6}# - '())))) - (#{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}#) + #{orig-args 25257}#))))) + (#{req 25258}# #{orig-args 25257}# '())))) + (#{expand-lambda-case 4534}# + (lambda (#{e 25951}# + #{r 25952}# + #{w 25953}# + #{s 25954}# + #{mod 25955}# + #{get-formals 25956}# + #{clauses 25957}#) (letrec* - ((#{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 -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-req 25958}# + (lambda (#{req 26089}# + #{opt 26090}# + #{rest 26091}# + #{kw 26092}# + #{body 26093}#) + (let ((#{vars 26094}# + (map #{gen-var 4536}# #{req 26089}#)) + (#{labels 26095}# + (#{gen-labels 4489}# #{req 26089}#))) + (let ((#{r* 26096}# + (#{extend-var-env 4481}# + #{labels 26095}# + #{vars 26094}# + #{r 25952}#)) + (#{w* 26097}# + (#{make-binding-wrap 4500}# + #{req 26089}# + #{labels 26095}# + #{w 25953}#))) + (#{parse-opt 25959}# + (map syntax->datum #{req 26089}#) + #{opt 26090}# + #{rest 26091}# + #{kw 26092}# + #{body 26093}# + (reverse #{vars 26094}#) + #{r* 26096}# + #{w* 26097}# '() '()))))) - (#{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 -ANAU$bmvAmthP7L7xwsg4}# - '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwsg5}# + (#{parse-opt 25959}# + (lambda (#{req 26283}# + #{opt 26284}# + #{rest 26285}# + #{kw 26286}# + #{body 26287}# + #{vars 26288}# + #{r* 26289}# + #{w* 26290}# + #{out 26291}# + #{inits 26292}#) + (if (pair? #{opt 26284}#) + (let ((#{tmp 26293}# (car #{opt 26284}#))) + (let ((#{tmp 26294}# + ($sc-dispatch #{tmp 26293}# '(any any)))) + (if #{tmp 26294}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwsg7}# - #{i -ANAU$bmvAmthP7L7xwsg8}#) - (let ((#{v -ANAU$bmvAmthP7L7xwsg9}# - (let ((#{id -ANAU$bmvAmthP7L7xwshF}# - (if (if (vector? - #{id -ANAU$bmvAmthP7L7xwsg7}#) + (lambda (#{id 26296}# #{i 26297}#) + (let ((#{v 26298}# + (let ((#{id 26306}# + (if (if (vector? #{id 26296}#) (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwsg7}#) + #{id 26296}#) 4) (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwsg7}# + #{id 26296}# 0) 'syntax-object) #f) #f) - (vector-ref - #{id -ANAU$bmvAmthP7L7xwsg7}# - 1) - #{id -ANAU$bmvAmthP7L7xwsg7}#))) + (vector-ref #{id 26296}# 1) + #{id 26296}#))) (gensym (string-append - (symbol->string - #{id -ANAU$bmvAmthP7L7xwshF}#) - " "))))) - (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 -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}#) + (symbol->string #{id 26306}#) + "-"))))) + (let ((#{l 26299}# + (#{gen-labels 4489}# + (list #{v 26298}#)))) + (let ((#{r** 26300}# + (#{extend-var-env 4481}# + #{l 26299}# + (list #{v 26298}#) + #{r* 26289}#))) + (let ((#{w** 26301}# + (#{make-binding-wrap 4500}# + (list #{id 26296}#) + #{l 26299}# + #{w* 26290}#))) + (#{parse-opt 25959}# + #{req 26283}# + (cdr #{opt 26284}#) + #{rest 26285}# + #{kw 26286}# + #{body 26287}# + (cons #{v 26298}# #{vars 26288}#) + #{r** 26300}# + #{w** 26301}# + (cons (syntax->datum #{id 26296}#) + #{out 26291}#) + (cons (#{expand 4522}# + #{i 26297}# + #{r* 26289}# + #{w* 26290}# + #{mod 25955}#) + #{inits 26292}#))))))) + #{tmp 26294}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwsg4}#)))) - (if #{rest -ANAU$bmvAmthP7L7xwsgw}# - (let ((#{v -ANAU$bmvAmthP7L7xwskq}# - (let ((#{id -ANAU$bmvAmthP7L7xwsk0}# - (if (if (vector? - #{rest -ANAU$bmvAmthP7L7xwsgw}#) - (if (= (vector-length - #{rest -ANAU$bmvAmthP7L7xwsgw}#) + #{tmp 26293}#)))) + (if #{rest 26285}# + (let ((#{v 26544}# + (let ((#{id 26554}# + (if (if (vector? #{rest 26285}#) + (if (= (vector-length #{rest 26285}#) 4) - (eq? (vector-ref - #{rest -ANAU$bmvAmthP7L7xwsgw}# - 0) + (eq? (vector-ref #{rest 26285}# 0) 'syntax-object) #f) #f) - (vector-ref - #{rest -ANAU$bmvAmthP7L7xwsgw}# - 1) - #{rest -ANAU$bmvAmthP7L7xwsgw}#))) + (vector-ref #{rest 26285}# 1) + #{rest 26285}#))) (gensym (string-append - (symbol->string - #{id -ANAU$bmvAmthP7L7xwsk0}#) - " "))))) - (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 -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}#) + (symbol->string #{id 26554}#) + "-"))))) + (let ((#{l 26545}# + (#{gen-labels 4489}# (list #{v 26544}#)))) + (let ((#{r* 26546}# + (#{extend-var-env 4481}# + #{l 26545}# + (list #{v 26544}#) + #{r* 26289}#))) + (let ((#{w* 26547}# + (#{make-binding-wrap 4500}# + (list #{rest 26285}#) + #{l 26545}# + #{w* 26290}#))) + (#{parse-kw 25960}# + #{req 26283}# + (if (pair? #{out 26291}#) + (reverse #{out 26291}#) #f) + (syntax->datum #{rest 26285}#) + (if (pair? #{kw 26286}#) + (cdr #{kw 26286}#) + #{kw 26286}#) + #{body 26287}# + (cons #{v 26544}# #{vars 26288}#) + #{r* 26546}# + #{w* 26547}# + (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f) '() - #{inits -ANAU$bmvAmthP7L7xwsg3}#))))) - (#{parse-kw -ANAU$bmvAmthP7L7xwsb5}# - #{req -ANAU$bmvAmthP7L7xwsgu}# - (if (pair? #{out -ANAU$bmvAmthP7L7xwsg2}#) - (reverse #{out -ANAU$bmvAmthP7L7xwsg2}#) + #{inits 26292}#))))) + (#{parse-kw 25960}# + #{req 26283}# + (if (pair? #{out 26291}#) + (reverse #{out 26291}#) #f) #f - (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) + (if (pair? #{kw 26286}#) + (cdr #{kw 26286}#) + #{kw 26286}#) + #{body 26287}# + #{vars 26288}# + #{r* 26289}# + #{w* 26290}# + (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f) '() - #{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 -ANAU$bmvAmthP7L7xwsnh}# - '(any any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwsni}# + #{inits 26292}#))))) + (#{parse-kw 25960}# + (lambda (#{req 26725}# + #{opt 26726}# + #{rest 26727}# + #{kw 26728}# + #{body 26729}# + #{vars 26730}# + #{r* 26731}# + #{w* 26732}# + #{aok 26733}# + #{out 26734}# + #{inits 26735}#) + (if (pair? #{kw 26728}#) + (let ((#{tmp 26736}# (car #{kw 26728}#))) + (let ((#{tmp 26737}# + ($sc-dispatch #{tmp 26736}# '(any any any)))) + (if #{tmp 26737}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xwsnk}# - #{id -ANAU$bmvAmthP7L7xwsnl}# - #{i -ANAU$bmvAmthP7L7xwsnm}#) - (let ((#{v -ANAU$bmvAmthP7L7xwsnn}# - (let ((#{id -ANAU$bmvAmthP7L7xwsnv}# - (if (if (vector? - #{id -ANAU$bmvAmthP7L7xwsnl}#) + (lambda (#{k 26739}# #{id 26740}# #{i 26741}#) + (let ((#{v 26742}# + (let ((#{id 26750}# + (if (if (vector? #{id 26740}#) (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwsnl}#) + #{id 26740}#) 4) (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwsnl}# + #{id 26740}# 0) 'syntax-object) #f) #f) - (vector-ref - #{id -ANAU$bmvAmthP7L7xwsnl}# - 1) - #{id -ANAU$bmvAmthP7L7xwsnl}#))) + (vector-ref #{id 26740}# 1) + #{id 26740}#))) (gensym (string-append - (symbol->string - #{id -ANAU$bmvAmthP7L7xwsnv}#) - " "))))) - (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 -ANAU$bmvAmthP7L7xwsnk}#) - (syntax->datum - #{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}#) + (symbol->string #{id 26750}#) + "-"))))) + (let ((#{l 26743}# + (#{gen-labels 4489}# + (list #{v 26742}#)))) + (let ((#{r** 26744}# + (#{extend-var-env 4481}# + #{l 26743}# + (list #{v 26742}#) + #{r* 26731}#))) + (let ((#{w** 26745}# + (#{make-binding-wrap 4500}# + (list #{id 26740}#) + #{l 26743}# + #{w* 26732}#))) + (#{parse-kw 25960}# + #{req 26725}# + #{opt 26726}# + #{rest 26727}# + (cdr #{kw 26728}#) + #{body 26729}# + (cons #{v 26742}# #{vars 26730}#) + #{r** 26744}# + #{w** 26745}# + #{aok 26733}# + (cons (list (syntax->datum #{k 26739}#) + (syntax->datum #{id 26740}#) + #{v 26742}#) + #{out 26734}#) + (cons (#{expand 4522}# + #{i 26741}# + #{r* 26731}# + #{w* 26732}# + #{mod 25955}#) + #{inits 26735}#))))))) + #{tmp 26737}#) (syntax-violation #f "source expression failed to match any pattern" - #{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}#)) + #{tmp 26736}#)))) + (#{parse-body 25961}# + #{req 26725}# + #{opt 26726}# + #{rest 26727}# + (if (if #{aok 26733}# + #{aok 26733}# + (pair? #{out 26734}#)) + (cons #{aok 26733}# (reverse #{out 26734}#)) #f) - #{body -ANAU$bmvAmthP7L7xwsna}# - (reverse #{vars -ANAU$bmvAmthP7L7xwsnb}#) - #{r* -ANAU$bmvAmthP7L7xwsnc}# - #{w* -ANAU$bmvAmthP7L7xwsnd}# - (reverse #{inits -ANAU$bmvAmthP7L7xwsng}#) + #{body 26729}# + (reverse #{vars 26730}#) + #{r* 26731}# + #{w* 26732}# + (reverse #{inits 26735}#) '())))) - (#{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}# + (#{parse-body 25961}# + (lambda (#{req 26997}# + #{opt 26998}# + #{rest 26999}# + #{kw 27000}# + #{body 27001}# + #{vars 27002}# + #{r* 27003}# + #{w* 27004}# + #{inits 27005}# + #{meta 27006}#) + (let ((#{tmp 27008}# ($sc-dispatch - #{body -ANAU$bmvAmthP7L7xwsrh}# + #{body 27001}# '(any any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwsro}# + (if (if #{tmp 27008}# (@apply - (lambda (#{docstring -ANAU$bmvAmthP7L7xwsrs}# - #{e1 -ANAU$bmvAmthP7L7xwsrt}# - #{e2 -ANAU$bmvAmthP7L7xwsru}#) - (string? - (syntax->datum - #{docstring -ANAU$bmvAmthP7L7xwsrs}#))) - #{tmp -ANAU$bmvAmthP7L7xwsro}#) + (lambda (#{docstring 27012}# + #{e1 27013}# + #{e2 27014}#) + (string? (syntax->datum #{docstring 27012}#))) + #{tmp 27008}#) #f) (@apply - (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}# + (lambda (#{docstring 27015}# #{e1 27016}# #{e2 27017}#) + (#{parse-body 25961}# + #{req 26997}# + #{opt 26998}# + #{rest 26999}# + #{kw 27000}# + (cons #{e1 27016}# #{e2 27017}#) + #{vars 27002}# + #{r* 27003}# + #{w* 27004}# + #{inits 27005}# (append - #{meta -ANAU$bmvAmthP7L7xwsrm}# + #{meta 27006}# (list (cons 'documentation (syntax->datum - #{docstring -ANAU$bmvAmthP7L7xwsrv}#)))))) - #{tmp -ANAU$bmvAmthP7L7xwsro}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsry}# + #{docstring 27015}#)))))) + #{tmp 27008}#) + (let ((#{tmp 27018}# ($sc-dispatch - #{body -ANAU$bmvAmthP7L7xwsrh}# + #{body 27001}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwsry}# + (if #{tmp 27018}# (@apply - (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}# + (lambda (#{k 27022}# + #{v 27023}# + #{e1 27024}# + #{e2 27025}#) + (#{parse-body 25961}# + #{req 26997}# + #{opt 26998}# + #{rest 26999}# + #{kw 27000}# + (cons #{e1 27024}# #{e2 27025}#) + #{vars 27002}# + #{r* 27003}# + #{w* 27004}# + #{inits 27005}# (append - #{meta -ANAU$bmvAmthP7L7xwsrm}# + #{meta 27006}# (syntax->datum - (map cons - #{k -ANAU$bmvAmthP7L7xwsr2}# - #{v -ANAU$bmvAmthP7L7xwsr3}#))))) - #{tmp -ANAU$bmvAmthP7L7xwsry}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsr6}# + (map cons #{k 27022}# #{v 27023}#))))) + #{tmp 27018}#) + (let ((#{tmp 27026}# ($sc-dispatch - #{body -ANAU$bmvAmthP7L7xwsrh}# + #{body 27001}# '(any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwsr6}# + (if #{tmp 27026}# (@apply - (lambda (#{e1 -ANAU$bmvAmthP7L7xwsr$}# - #{e2 -ANAU$bmvAmthP7L7xwsr@}#) + (lambda (#{e1 27030}# #{e2 27031}#) (values - #{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}# + #{meta 27006}# + #{req 26997}# + #{opt 26998}# + #{rest 26999}# + #{kw 27000}# + #{inits 27005}# + #{vars 27002}# + (#{expand-body 4526}# + (cons #{e1 27030}# #{e2 27031}#) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwsbw}#) - #{s -ANAU$bmvAmthP7L7xwsbz}# + (if (if (pair? #{e 25951}#) + #{s 25954}# #f) (set-source-properties! - #{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}#) + #{e 25951}# + #{s 25954}#)) + #{e 25951}#) + #{w 25953}# + #{mod 25955}#) + #{r* 27003}# + #{w* 27004}# + #{mod 25955}#))) + #{tmp 27026}#) (syntax-violation #f "source expression failed to match any pattern" - #{body -ANAU$bmvAmthP7L7xwsrh}#)))))))))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwsb8}# - ($sc-dispatch - #{clauses -ANAU$bmvAmthP7L7xwsb2}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xwsb8}# + #{body 27001}#)))))))))) + (let ((#{tmp 25963}# + ($sc-dispatch #{clauses 25957}# '()))) + (if #{tmp 25963}# (@apply (lambda () (values '() #f)) - #{tmp -ANAU$bmvAmthP7L7xwsb8}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwscA}# + #{tmp 25963}#) + (let ((#{tmp 25967}# ($sc-dispatch - #{clauses -ANAU$bmvAmthP7L7xwsb2}# + #{clauses 25957}# '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp -ANAU$bmvAmthP7L7xwscA}# + (if #{tmp 25967}# (@apply - (lambda (#{args -ANAU$bmvAmthP7L7xwscE}# - #{e1 -ANAU$bmvAmthP7L7xwscF}# - #{e2 -ANAU$bmvAmthP7L7xwscG}# - #{args* -ANAU$bmvAmthP7L7xwscH}# - #{e1* -ANAU$bmvAmthP7L7xwscI}# - #{e2* -ANAU$bmvAmthP7L7xwscJ}#) + (lambda (#{args 25971}# + #{e1 25972}# + #{e2 25973}# + #{args* 25974}# + #{e1* 25975}# + #{e2* 25976}#) (call-with-values (lambda () - (#{get-formals -ANAU$bmvAmthP7L7xwsb1}# - #{args -ANAU$bmvAmthP7L7xwscE}#)) - (lambda (#{req -ANAU$bmvAmthP7L7xwscK}# - #{opt -ANAU$bmvAmthP7L7xwscL}# - #{rest -ANAU$bmvAmthP7L7xwscM}# - #{kw -ANAU$bmvAmthP7L7xwscN}#) + (#{get-formals 25956}# #{args 25971}#)) + (lambda (#{req 25977}# + #{opt 25978}# + #{rest 25979}# + #{kw 25980}#) (call-with-values (lambda () - (#{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}#) + (#{parse-req 25958}# + #{req 25977}# + #{opt 25978}# + #{rest 25979}# + #{kw 25980}# + (cons #{e1 25972}# #{e2 25973}#))) + (lambda (#{meta 26045}# + #{req 26046}# + #{opt 26047}# + #{rest 26048}# + #{kw 26049}# + #{inits 26050}# + #{vars 26051}# + #{body 26052}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case 4534}# + #{e 25951}# + #{r 25952}# + #{w 25953}# + #{s 25954}# + #{mod 25955}# + #{get-formals 25956}# + (map (lambda (#{tmp-2888 26053}# + #{tmp-2887 26054}# + #{tmp-2886 26055}#) + (cons #{tmp-2886 26055}# + (cons #{tmp-2887 26054}# + #{tmp-2888 26053}#))) + #{e2* 25976}# + #{e1* 25975}# + #{args* 25974}#))) + (lambda (#{meta* 26056}# #{else* 26057}#) (values - (append - #{meta -ANAU$bmvAmthP7L7xwsdK}# - #{meta* -ANAU$bmvAmthP7L7xwsdV}#) + (append #{meta 26045}# #{meta* 26056}#) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{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}#) + #{s 25954}# + #{req 26046}# + #{opt 26047}# + #{rest 26048}# + #{kw 26049}# + #{inits 26050}# + #{vars 26051}# + #{body 26052}# + #{else* 26057}#))))))))) + #{tmp 25967}#) (syntax-violation #f "source expression failed to match any pattern" - #{clauses -ANAU$bmvAmthP7L7xwsb2}#)))))))) - (#{strip -ANAU$bmvAmthP7L7xwnOR}# - (lambda (#{x -ANAU$bmvAmthP7L7xwssk}# - #{w -ANAU$bmvAmthP7L7xwssl}#) - (if (memq 'top (car #{w -ANAU$bmvAmthP7L7xwssl}#)) - #{x -ANAU$bmvAmthP7L7xwssk}# + #{clauses 25957}#)))))))) + (#{strip 4535}# + (lambda (#{x 27068}# #{w 27069}#) + (if (memq 'top (car #{w 27069}#)) + #{x 27068}# (letrec* - ((#{f -ANAU$bmvAmthP7L7xwssm}# - (lambda (#{x -ANAU$bmvAmthP7L7xwssp}#) - (if (if (vector? #{x -ANAU$bmvAmthP7L7xwssp}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwssp}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwssp}# 0) - 'syntax-object) + ((#{f 27070}# + (lambda (#{x 27073}#) + (if (if (vector? #{x 27073}#) + (if (= (vector-length #{x 27073}#) 4) + (eq? (vector-ref #{x 27073}# 0) 'syntax-object) #f) #f) - (#{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}#)) + (#{strip 4535}# + (vector-ref #{x 27073}# 1) + (vector-ref #{x 27073}# 2)) + (if (pair? #{x 27073}#) + (let ((#{a 27092}# (#{f 27070}# (car #{x 27073}#))) + (#{d 27093}# (#{f 27070}# (cdr #{x 27073}#)))) + (if (if (eq? #{a 27092}# (car #{x 27073}#)) + (eq? #{d 27093}# (cdr #{x 27073}#)) #f) - #{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}#))) + #{x 27073}# + (cons #{a 27092}# #{d 27093}#))) + (if (vector? #{x 27073}#) + (let ((#{old 27096}# (vector->list #{x 27073}#))) + (let ((#{new 27097}# + (map #{f 27070}# #{old 27096}#))) (letrec* - ((#{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 -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 -ANAU$bmvAmthP7L7xwseC}# 0) - 'syntax-object) + ((#{lp 27098}# + (lambda (#{l1 27174}# #{l2 27175}#) + (if (null? #{l1 27174}#) + #{x 27073}# + (if (eq? (car #{l1 27174}#) + (car #{l2 27175}#)) + (#{lp 27098}# + (cdr #{l1 27174}#) + (cdr #{l2 27175}#)) + (list->vector #{new 27097}#)))))) + (#{lp 27098}# #{old 27096}# #{new 27097}#)))) + #{x 27073}#)))))) + (#{f 27070}# #{x 27068}#))))) + (#{gen-var 4536}# + (lambda (#{id 26101}#) + (let ((#{id 26102}# + (if (if (vector? #{id 26101}#) + (if (= (vector-length #{id 26101}#) 4) + (eq? (vector-ref #{id 26101}# 0) 'syntax-object) #f) #f) - (vector-ref #{id -ANAU$bmvAmthP7L7xwseC}# 1) - #{id -ANAU$bmvAmthP7L7xwseC}#))) + (vector-ref #{id 26101}# 1) + #{id 26101}#))) (gensym - (string-append - (symbol->string #{id -ANAU$bmvAmthP7L7xwseD}#) - " ")))))) + (string-append (symbol->string #{id 26102}#) "-")))))) (begin - (set! #{gen-label -ANAU$bmvAmthP7L7xwnNi}# - (let ((#{i -ANAU$bmvAmthP7L7xwqAX}# 0)) - (lambda () - (let ((#{n -ANAU$bmvAmthP7L7xwqAY}# - #{i -ANAU$bmvAmthP7L7xwqAX}#)) - (begin - (set! #{i -ANAU$bmvAmthP7L7xwqAX}# - (#{1+}# #{n -ANAU$bmvAmthP7L7xwqAY}#)) - (number->string #{n -ANAU$bmvAmthP7L7xwqAY}# 36)))))) - (set! #{transformer-environment -ANAU$bmvAmthP7L7xwnN2}# + (set! #{session-id 4447}# + (let ((#{v 15641}# + (module-variable + (current-module) + 'syntax-session-id))) + (lambda () ((variable-ref #{v 15641}#))))) + (set! #{transformer-environment 4508}# (make-fluid - (lambda (#{k -ANAU$bmvAmthP7L7xwpsD}#) + (lambda (#{k 14684}#) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8976,1500 +8381,1284 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (#{global-extend 4484}# 'core 'syntax-parameterize - (lambda (#{e -ANAU$bmvAmthP7L7xwnQL}# - #{r -ANAU$bmvAmthP7L7xwnQM}# - #{w -ANAU$bmvAmthP7L7xwnQN}# - #{s -ANAU$bmvAmthP7L7xwnQO}# - #{mod -ANAU$bmvAmthP7L7xwnQP}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnQR}# + (lambda (#{e 4657}# + #{r 4658}# + #{w 4659}# + #{s 4660}# + #{mod 4661}#) + (let ((#{tmp 4663}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnQL}# + #{e 4657}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwnQR}# + (if (if #{tmp 4663}# (@apply - (lambda (#{var -ANAU$bmvAmthP7L7xwnQV}# - #{val -ANAU$bmvAmthP7L7xwnQW}# - #{e1 -ANAU$bmvAmthP7L7xwnQX}# - #{e2 -ANAU$bmvAmthP7L7xwnQY}#) - (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# - #{var -ANAU$bmvAmthP7L7xwnQV}#)) - #{tmp -ANAU$bmvAmthP7L7xwnQR}#) + (lambda (#{var 4667}# + #{val 4668}# + #{e1 4669}# + #{e2 4670}#) + (#{valid-bound-ids? 4512}# #{var 4667}#)) + #{tmp 4663}#) #f) (@apply - (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}#))) + (lambda (#{var 4748}# + #{val 4749}# + #{e1 4750}# + #{e2 4751}#) + (let ((#{names 4752}# + (map (lambda (#{x 4802}#) + (#{id-var-name 4505}# #{x 4802}# #{w 4659}#)) + #{var 4748}#))) (begin (for-each - (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 -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}# + (lambda (#{id 4753}# #{n 4754}#) + (let ((#{atom-key 4755}# + (car (let ((#{t 4762}# + (assq #{n 4754}# #{r 4658}#))) + (if #{t 4762}# + (cdr #{t 4762}#) + (if (symbol? #{n 4754}#) + (let ((#{t 4767}# + (#{get-global-definition-hook 4449}# + #{n 4754}# + #{mod 4661}#))) + (if #{t 4767}# + #{t 4767}# '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwnRt}# - 'displaced-lexical) + (if (eqv? #{atom-key 4755}# 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e -ANAU$bmvAmthP7L7xwnQL}# - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + #{e 4657}# + (#{wrap 4515}# (begin - (if (if (pair? #{id -ANAU$bmvAmthP7L7xwnRr}#) - #{s -ANAU$bmvAmthP7L7xwnQO}# - #f) + (if (if (pair? #{id 4753}#) #{s 4660}# #f) (set-source-properties! - #{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}# + #{id 4753}# + #{s 4660}#)) + #{id 4753}#) + #{w 4659}# + #{mod 4661}#))))) + #{var 4748}# + #{names 4752}#) + (#{expand-body 4526}# + (cons #{e1 4750}# #{e2 4751}#) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#) - #{s -ANAU$bmvAmthP7L7xwnQO}# - #f) - (set-source-properties! - #{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}#) + (if (if (pair? #{e 4657}#) #{s 4660}# #f) + (set-source-properties! #{e 4657}# #{s 4660}#)) + #{e 4657}#) + #{w 4659}# + #{mod 4661}#) + (#{extend-env 4480}# + #{names 4752}# + (let ((#{trans-r 4888}# + (#{macros-only-env 4482}# #{r 4658}#))) + (map (lambda (#{x 4889}#) (cons 'macro - (#{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}#) + (#{eval-local-transformer 4528}# + (#{expand 4522}# + #{x 4889}# + #{trans-r 4888}# + #{w 4659}# + #{mod 4661}#) + #{mod 4661}#))) + #{val 4749}#)) + #{r 4658}#) + #{w 4659}# + #{mod 4661}#)))) + #{tmp 4663}#) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnQL}#) - #{s -ANAU$bmvAmthP7L7xwnQO}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwnQL}# - #{s -ANAU$bmvAmthP7L7xwnQO}#)) - #{e -ANAU$bmvAmthP7L7xwnQL}#) - #{w -ANAU$bmvAmthP7L7xwnQN}# - #{mod -ANAU$bmvAmthP7L7xwnQP}#)))))) + (if (if (pair? #{e 4657}#) #{s 4660}# #f) + (set-source-properties! #{e 4657}# #{s 4660}#)) + #{e 4657}#) + #{w 4659}# + #{mod 4661}#)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e -ANAU$bmvAmthP7L7xwnXE}# - #{r -ANAU$bmvAmthP7L7xwnXF}# - #{w -ANAU$bmvAmthP7L7xwnXG}# - #{s -ANAU$bmvAmthP7L7xwnXH}# - #{mod -ANAU$bmvAmthP7L7xwnXI}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnXK}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnXE}# - '(_ any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwnXK}# + (lambda (#{e 5098}# + #{r 5099}# + #{w 5100}# + #{s 5101}# + #{mod 5102}#) + (let ((#{tmp 5104}# ($sc-dispatch #{e 5098}# '(_ any)))) + (if #{tmp 5104}# (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xwnXN}#) - (let ((#{exp -ANAU$bmvAmthP7L7xwnXR}# - (#{strip -ANAU$bmvAmthP7L7xwnOR}# - #{e -ANAU$bmvAmthP7L7xwnXN}# - #{w -ANAU$bmvAmthP7L7xwnXG}#))) + (lambda (#{e 5107}#) + (let ((#{exp 5111}# + (#{strip 4535}# #{e 5107}# #{w 5100}#))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s -ANAU$bmvAmthP7L7xwnXH}# - #{exp -ANAU$bmvAmthP7L7xwnXR}#))) - #{tmp -ANAU$bmvAmthP7L7xwnXK}#) + #{s 5101}# + #{exp 5111}#))) + #{tmp 5104}#) (syntax-violation 'quote "bad syntax" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnXE}#) - #{s -ANAU$bmvAmthP7L7xwnXH}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwnXE}# - #{s -ANAU$bmvAmthP7L7xwnXH}#)) - #{e -ANAU$bmvAmthP7L7xwnXE}#) - #{w -ANAU$bmvAmthP7L7xwnXG}# - #{mod -ANAU$bmvAmthP7L7xwnXI}#))))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (if (if (pair? #{e 5098}#) #{s 5101}# #f) + (set-source-properties! #{e 5098}# #{s 5101}#)) + #{e 5098}#) + #{w 5100}# + #{mod 5102}#))))))) + (#{global-extend 4484}# 'core 'syntax (letrec* - ((#{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}#) + ((#{gen-syntax 5331}# + (lambda (#{src 5433}# + #{e 5434}# + #{r 5435}# + #{maps 5436}# + #{ellipsis? 5437}# + #{mod 5438}#) + (if (if (symbol? #{e 5434}#) #t - (if (if (vector? #{e -ANAU$bmvAmthP7L7xwncU}#) - (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwncU}#) - 4) - (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 0) - 'syntax-object) + (if (if (vector? #{e 5434}#) + (if (= (vector-length #{e 5434}#) 4) + (eq? (vector-ref #{e 5434}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{e -ANAU$bmvAmthP7L7xwncU}# 1)) + (symbol? (vector-ref #{e 5434}# 1)) #f)) - (let ((#{label -ANAU$bmvAmthP7L7xwncz}# - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{e -ANAU$bmvAmthP7L7xwncU}# - '(())))) - (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))) + (let ((#{label 5465}# + (#{id-var-name 4505}# #{e 5434}# '(())))) + (let ((#{b 5466}# + (let ((#{t 5473}# (assq #{label 5465}# #{r 5435}#))) + (if #{t 5473}# + (cdr #{t 5473}#) + (if (symbol? #{label 5465}#) + (let ((#{t 5479}# + (#{get-global-definition-hook 4449}# + #{label 5465}# + #{mod 5438}#))) + (if #{t 5479}# #{t 5479}# '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b -ANAU$bmvAmthP7L7xwnc0}#) 'syntax) + (if (eq? (car #{b 5466}#) 'syntax) (call-with-values (lambda () - (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 -ANAU$bmvAmthP7L7xwndO}#) - #{maps -ANAU$bmvAmthP7L7xwndP}#))) - (if (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# - #{e -ANAU$bmvAmthP7L7xwncU}#) + (let ((#{var.lev 5488}# (cdr #{b 5466}#))) + (#{gen-ref 5332}# + #{src 5433}# + (car #{var.lev 5488}#) + (cdr #{var.lev 5488}#) + #{maps 5436}#))) + (lambda (#{var 5492}# #{maps 5493}#) + (values (list 'ref #{var 5492}#) #{maps 5493}#))) + (if (#{ellipsis? 5437}# #{e 5434}#) (syntax-violation 'syntax "misplaced ellipsis" - #{src -ANAU$bmvAmthP7L7xwncT}#) - (values - (list 'quote #{e -ANAU$bmvAmthP7L7xwncU}#) - #{maps -ANAU$bmvAmthP7L7xwncW}#))))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwndR}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwncU}# - '(any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwndR}# + #{src 5433}#) + (values (list 'quote #{e 5434}#) #{maps 5436}#))))) + (let ((#{tmp 5495}# + ($sc-dispatch #{e 5434}# '(any any)))) + (if (if #{tmp 5495}# (@apply - (lambda (#{dots -ANAU$bmvAmthP7L7xwndV}# - #{e -ANAU$bmvAmthP7L7xwndW}#) - (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# - #{dots -ANAU$bmvAmthP7L7xwndV}#)) - #{tmp -ANAU$bmvAmthP7L7xwndR}#) + (lambda (#{dots 5499}# #{e 5500}#) + (#{ellipsis? 5437}# #{dots 5499}#)) + #{tmp 5495}#) #f) (@apply - (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 -ANAU$bmvAmthP7L7xwncU}# - '(any any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwnda}# + (lambda (#{dots 5501}# #{e 5502}#) + (#{gen-syntax 5331}# + #{src 5433}# + #{e 5502}# + #{r 5435}# + #{maps 5436}# + (lambda (#{x 5503}#) #f) + #{mod 5438}#)) + #{tmp 5495}#) + (let ((#{tmp 5504}# + ($sc-dispatch #{e 5434}# '(any any . any)))) + (if (if #{tmp 5504}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwnde}# - #{dots -ANAU$bmvAmthP7L7xwndf}# - #{y -ANAU$bmvAmthP7L7xwndg}#) - (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# - #{dots -ANAU$bmvAmthP7L7xwndf}#)) - #{tmp -ANAU$bmvAmthP7L7xwnda}#) + (lambda (#{x 5508}# #{dots 5509}# #{y 5510}#) + (#{ellipsis? 5437}# #{dots 5509}#)) + #{tmp 5504}#) #f) (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwndh}# - #{dots -ANAU$bmvAmthP7L7xwndi}# - #{y -ANAU$bmvAmthP7L7xwndj}#) + (lambda (#{x 5511}# #{dots 5512}# #{y 5513}#) (letrec* - ((#{f -ANAU$bmvAmthP7L7xwndk}# - (lambda (#{y -ANAU$bmvAmthP7L7xwnds}# - #{k -ANAU$bmvAmthP7L7xwndt}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwndv}# + ((#{f 5514}# + (lambda (#{y 5522}# #{k 5523}#) + (let ((#{tmp 5525}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwnds}# + #{y 5522}# '(any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwndv}# + (if (if #{tmp 5525}# (@apply - (lambda (#{dots -ANAU$bmvAmthP7L7xwndz}# - #{y -ANAU$bmvAmthP7L7xwnd0}#) - (#{ellipsis? -ANAU$bmvAmthP7L7xwncX}# - #{dots -ANAU$bmvAmthP7L7xwndz}#)) - #{tmp -ANAU$bmvAmthP7L7xwndv}#) + (lambda (#{dots 5529}# + #{y 5530}#) + (#{ellipsis? 5437}# + #{dots 5529}#)) + #{tmp 5525}#) #f) (@apply - (lambda (#{dots -ANAU$bmvAmthP7L7xwnd1}# - #{y -ANAU$bmvAmthP7L7xwnd2}#) - (#{f -ANAU$bmvAmthP7L7xwndk}# - #{y -ANAU$bmvAmthP7L7xwnd2}# - (lambda (#{maps -ANAU$bmvAmthP7L7xwnd3}#) + (lambda (#{dots 5531}# #{y 5532}#) + (#{f 5514}# + #{y 5532}# + (lambda (#{maps 5533}#) (call-with-values (lambda () - (#{k -ANAU$bmvAmthP7L7xwndt}# + (#{k 5523}# (cons '() - #{maps -ANAU$bmvAmthP7L7xwnd3}#))) - (lambda (#{x -ANAU$bmvAmthP7L7xwnd4}# - #{maps -ANAU$bmvAmthP7L7xwnd5}#) - (if (null? (car #{maps -ANAU$bmvAmthP7L7xwnd5}#)) + #{maps 5533}#))) + (lambda (#{x 5534}# + #{maps 5535}#) + (if (null? (car #{maps 5535}#)) (syntax-violation 'syntax "extra ellipsis" - #{src -ANAU$bmvAmthP7L7xwncT}#) + #{src 5433}#) (values - (let ((#{map-env -ANAU$bmvAmthP7L7xwnd9}# - (car #{maps -ANAU$bmvAmthP7L7xwnd5}#))) + (let ((#{map-env 5539}# + (car #{maps 5535}#))) (list 'apply '(primitive append) - (#{gen-map -ANAU$bmvAmthP7L7xwnaw}# - #{x -ANAU$bmvAmthP7L7xwnd4}# - #{map-env -ANAU$bmvAmthP7L7xwnd9}#))) - (cdr #{maps -ANAU$bmvAmthP7L7xwnd5}#)))))))) - #{tmp -ANAU$bmvAmthP7L7xwndv}#) + (#{gen-map 5334}# + #{x 5534}# + #{map-env 5539}#))) + (cdr #{maps 5535}#)))))))) + #{tmp 5525}#) (call-with-values (lambda () - (#{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}#) + (#{gen-syntax 5331}# + #{src 5433}# + #{y 5522}# + #{r 5435}# + #{maps 5436}# + #{ellipsis? 5437}# + #{mod 5438}#)) + (lambda (#{y 5542}# #{maps 5543}#) (call-with-values (lambda () - (#{k -ANAU$bmvAmthP7L7xwndt}# - #{maps -ANAU$bmvAmthP7L7xwneB}#)) - (lambda (#{x -ANAU$bmvAmthP7L7xwneC}# - #{maps -ANAU$bmvAmthP7L7xwneD}#) + (#{k 5523}# #{maps 5543}#)) + (lambda (#{x 5544}# + #{maps 5545}#) (values - (if (equal? - #{y -ANAU$bmvAmthP7L7xwneA}# - ''()) - #{x -ANAU$bmvAmthP7L7xwneC}# + (if (equal? #{y 5542}# ''()) + #{x 5544}# (list 'append - #{x -ANAU$bmvAmthP7L7xwneC}# - #{y -ANAU$bmvAmthP7L7xwneA}#)) - #{maps -ANAU$bmvAmthP7L7xwneD}#)))))))))) - (#{f -ANAU$bmvAmthP7L7xwndk}# - #{y -ANAU$bmvAmthP7L7xwndj}# - (lambda (#{maps -ANAU$bmvAmthP7L7xwndn}#) + #{x 5544}# + #{y 5542}#)) + #{maps 5545}#)))))))))) + (#{f 5514}# + #{y 5513}# + (lambda (#{maps 5517}#) (call-with-values (lambda () - (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# - #{src -ANAU$bmvAmthP7L7xwncT}# - #{x -ANAU$bmvAmthP7L7xwndh}# - #{r -ANAU$bmvAmthP7L7xwncV}# - (cons '() - #{maps -ANAU$bmvAmthP7L7xwndn}#) - #{ellipsis? -ANAU$bmvAmthP7L7xwncX}# - #{mod -ANAU$bmvAmthP7L7xwncY}#)) - (lambda (#{x -ANAU$bmvAmthP7L7xwndo}# - #{maps -ANAU$bmvAmthP7L7xwndp}#) - (if (null? (car #{maps -ANAU$bmvAmthP7L7xwndp}#)) + (#{gen-syntax 5331}# + #{src 5433}# + #{x 5511}# + #{r 5435}# + (cons '() #{maps 5517}#) + #{ellipsis? 5437}# + #{mod 5438}#)) + (lambda (#{x 5518}# #{maps 5519}#) + (if (null? (car #{maps 5519}#)) (syntax-violation 'syntax "extra ellipsis" - #{src -ANAU$bmvAmthP7L7xwncT}#) + #{src 5433}#) (values - (#{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 -ANAU$bmvAmthP7L7xwncU}# - '(any . any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwneT}# + (#{gen-map 5334}# + #{x 5518}# + (car #{maps 5519}#)) + (cdr #{maps 5519}#))))))))) + #{tmp 5504}#) + (let ((#{tmp 5561}# + ($sc-dispatch #{e 5434}# '(any . any)))) + (if #{tmp 5561}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwneX}# - #{y -ANAU$bmvAmthP7L7xwneY}#) + (lambda (#{x 5565}# #{y 5566}#) (call-with-values (lambda () - (#{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}#) + (#{gen-syntax 5331}# + #{src 5433}# + #{x 5565}# + #{r 5435}# + #{maps 5436}# + #{ellipsis? 5437}# + #{mod 5438}#)) + (lambda (#{x 5567}# #{maps 5568}#) (call-with-values (lambda () - (#{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}#) + (#{gen-syntax 5331}# + #{src 5433}# + #{y 5566}# + #{r 5435}# + #{maps 5568}# + #{ellipsis? 5437}# + #{mod 5438}#)) + (lambda (#{y 5569}# #{maps 5570}#) (values - (let ((#{atom-key -ANAU$bmvAmthP7L7xwneh}# - (car #{y -ANAU$bmvAmthP7L7xwneb}#))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}# + (let ((#{atom-key 5575}# + (car #{y 5569}#))) + (if (eqv? #{atom-key 5575}# 'quote) - (if (eq? (car #{x -ANAU$bmvAmthP7L7xwneZ}#) + (if (eq? (car #{x 5567}#) 'quote) (list 'quote - (cons (car (cdr #{x -ANAU$bmvAmthP7L7xwneZ}#)) - (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)))) - (if (eq? (car (cdr #{y -ANAU$bmvAmthP7L7xwneb}#)) + (cons (car (cdr #{x 5567}#)) + (car (cdr #{y 5569}#)))) + (if (eq? (car (cdr #{y 5569}#)) '()) - (list 'list - #{x -ANAU$bmvAmthP7L7xwneZ}#) + (list 'list #{x 5567}#) (list 'cons - #{x -ANAU$bmvAmthP7L7xwneZ}# - #{y -ANAU$bmvAmthP7L7xwneb}#))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwneh}# + #{x 5567}# + #{y 5569}#))) + (if (eqv? #{atom-key 5575}# 'list) (cons 'list - (cons #{x -ANAU$bmvAmthP7L7xwneZ}# - (cdr #{y -ANAU$bmvAmthP7L7xwneb}#))) + (cons #{x 5567}# + (cdr #{y 5569}#))) (list 'cons - #{x -ANAU$bmvAmthP7L7xwneZ}# - #{y -ANAU$bmvAmthP7L7xwneb}#)))) - #{maps -ANAU$bmvAmthP7L7xwnec}#)))))) - #{tmp -ANAU$bmvAmthP7L7xwneT}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwne$}# + #{x 5567}# + #{y 5569}#)))) + #{maps 5570}#)))))) + #{tmp 5561}#) + (let ((#{tmp 5604}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwncU}# + #{e 5434}# '#(vector (any . each-any))))) - (if #{tmp -ANAU$bmvAmthP7L7xwne$}# + (if #{tmp 5604}# (@apply - (lambda (#{e1 -ANAU$bmvAmthP7L7xwnfC}# - #{e2 -ANAU$bmvAmthP7L7xwnfD}#) + (lambda (#{e1 5608}# #{e2 5609}#) (call-with-values (lambda () - (#{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}#) + (#{gen-syntax 5331}# + #{src 5433}# + (cons #{e1 5608}# #{e2 5609}#) + #{r 5435}# + #{maps 5436}# + #{ellipsis? 5437}# + #{mod 5438}#)) + (lambda (#{e 5610}# #{maps 5611}#) (values - (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#) - 'list) - (cons 'vector - (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#)) - (if (eq? (car #{e -ANAU$bmvAmthP7L7xwnfE}#) - 'quote) + (if (eq? (car #{e 5610}#) 'list) + (cons 'vector (cdr #{e 5610}#)) + (if (eq? (car #{e 5610}#) 'quote) (list 'quote (list->vector - (car (cdr #{e -ANAU$bmvAmthP7L7xwnfE}#)))) + (car (cdr #{e 5610}#)))) (list 'list->vector - #{e -ANAU$bmvAmthP7L7xwnfE}#))) - #{maps -ANAU$bmvAmthP7L7xwnfF}#)))) - #{tmp -ANAU$bmvAmthP7L7xwne$}#) + #{e 5610}#))) + #{maps 5611}#)))) + #{tmp 5604}#) (values - (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 -ANAU$bmvAmthP7L7xwnfh}# - #{maps -ANAU$bmvAmthP7L7xwnfj}#) - (if (null? #{maps -ANAU$bmvAmthP7L7xwnfj}#) + (list 'quote #{e 5434}#) + #{maps 5436}#)))))))))))) + (#{gen-ref 5332}# + (lambda (#{src 5638}# + #{var 5639}# + #{level 5640}# + #{maps 5641}#) + (if (= #{level 5640}# 0) + (values #{var 5639}# #{maps 5641}#) + (if (null? #{maps 5641}#) (syntax-violation 'syntax "missing ellipsis" - #{src -ANAU$bmvAmthP7L7xwnfg}#) + #{src 5638}#) (call-with-values (lambda () - (#{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 -ANAU$bmvAmthP7L7xwnfm}#) - #{maps -ANAU$bmvAmthP7L7xwnfj}#) - (let ((#{inner-var -ANAU$bmvAmthP7L7xwnfo}# + (#{gen-ref 5332}# + #{src 5638}# + #{var 5639}# + (#{1-}# #{level 5640}#) + (cdr #{maps 5641}#))) + (lambda (#{outer-var 5642}# #{outer-maps 5643}#) + (let ((#{b 5644}# + (assq #{outer-var 5642}# (car #{maps 5641}#)))) + (if #{b 5644}# + (values (cdr #{b 5644}#) #{maps 5641}#) + (let ((#{inner-var 5646}# (gensym (string-append (symbol->string 'tmp) - " ")))) + "-")))) (values - #{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}#) + #{inner-var 5646}# + (cons (cons (cons #{outer-var 5642}# + #{inner-var 5646}#) + (car #{maps 5641}#)) + #{outer-maps 5643}#))))))))))) + (#{gen-map 5334}# + (lambda (#{e 5660}# #{map-env 5661}#) + (let ((#{formals 5662}# (map cdr #{map-env 5661}#)) + (#{actuals 5663}# + (map (lambda (#{x 5665}#) + (list 'ref (car #{x 5665}#))) + #{map-env 5661}#))) + (if (eq? (car #{e 5660}#) 'ref) + (car #{actuals 5663}#) (if (and-map - (lambda (#{x -ANAU$bmvAmthP7L7xwnf8}#) - (if (eq? (car #{x -ANAU$bmvAmthP7L7xwnf8}#) 'ref) - (memq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf8}#)) - #{formals -ANAU$bmvAmthP7L7xwnf4}#) + (lambda (#{x 5666}#) + (if (eq? (car #{x 5666}#) 'ref) + (memq (car (cdr #{x 5666}#)) #{formals 5662}#) #f)) - (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#)) + (cdr #{e 5660}#)) (cons 'map - (cons (list 'primitive - (car #{e -ANAU$bmvAmthP7L7xwnf2}#)) - (map (let ((#{r -ANAU$bmvAmthP7L7xwnf$}# + (cons (list 'primitive (car #{e 5660}#)) + (map (let ((#{r 5668}# (map cons - #{formals -ANAU$bmvAmthP7L7xwnf4}# - #{actuals -ANAU$bmvAmthP7L7xwnf5}#))) - (lambda (#{x -ANAU$bmvAmthP7L7xwnf@}#) - (cdr (assq (car (cdr #{x -ANAU$bmvAmthP7L7xwnf@}#)) - #{r -ANAU$bmvAmthP7L7xwnf$}#)))) - (cdr #{e -ANAU$bmvAmthP7L7xwnf2}#)))) + #{formals 5662}# + #{actuals 5663}#))) + (lambda (#{x 5669}#) + (cdr (assq (car (cdr #{x 5669}#)) + #{r 5668}#)))) + (cdr #{e 5660}#)))) (cons 'map - (cons (list 'lambda - #{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}#)))) + (cons (list 'lambda #{formals 5662}# #{e 5660}#) + #{actuals 5663}#))))))) + (#{regen 5338}# + (lambda (#{x 5671}#) + (let ((#{atom-key 5672}# (car #{x 5671}#))) + (if (eqv? #{atom-key 5672}# 'ref) + (let ((#{name 5682}# (car (cdr #{x 5671}#))) + (#{var 5683}# (car (cdr #{x 5671}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name -ANAU$bmvAmthP7L7xwngM}# - #{var -ANAU$bmvAmthP7L7xwngN}#)) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# - 'primitive) - (let ((#{name -ANAU$bmvAmthP7L7xwngZ}# - (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) + #{name 5682}# + #{var 5683}#)) + (if (eqv? #{atom-key 5672}# 'primitive) + (let ((#{name 5695}# (car (cdr #{x 5671}#)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name -ANAU$bmvAmthP7L7xwngZ}#) + #{name 5695}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name -ANAU$bmvAmthP7L7xwngZ}# + #{name 5695}# #f))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# 'quote) - (let ((#{exp -ANAU$bmvAmthP7L7xwngr}# - (car (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) + (if (eqv? #{atom-key 5672}# 'quote) + (let ((#{exp 5713}# (car (cdr #{x 5671}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp -ANAU$bmvAmthP7L7xwngr}#)) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwngC}# - 'lambda) - (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@}# + #{exp 5713}#)) + (if (eqv? #{atom-key 5672}# 'lambda) + (if (list? (car (cdr #{x 5671}#))) + (let ((#{req 5724}# (car (cdr #{x 5671}#))) + (#{vars 5726}# (car (cdr #{x 5671}#))) + (#{exp 5728}# + (#{regen 5338}# + (car (cdr (cdr #{x 5671}#)))))) + (let ((#{body 5733}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req -ANAU$bmvAmthP7L7xwng2}# + #{req 5724}# #f #f #f '() - #{vars -ANAU$bmvAmthP7L7xwng4}# - #{exp -ANAU$bmvAmthP7L7xwng6}# + #{vars 5726}# + #{exp 5728}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body -ANAU$bmvAmthP7L7xwng@}#))) - (error "how did we get here" - #{x -ANAU$bmvAmthP7L7xwngB}#)) - (let ((#{fun-exp -ANAU$bmvAmthP7L7xwnhP}# - (let ((#{name -ANAU$bmvAmthP7L7xwnhY}# - (car #{x -ANAU$bmvAmthP7L7xwngB}#))) + #{body 5733}#))) + (error "how did we get here" #{x 5671}#)) + (let ((#{fun-exp 5749}# + (let ((#{name 5758}# (car #{x 5671}#))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name -ANAU$bmvAmthP7L7xwnhY}#) + #{name 5758}#) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name -ANAU$bmvAmthP7L7xwnhY}# + #{name 5758}# #f)))) - (#{arg-exps -ANAU$bmvAmthP7L7xwnhQ}# - (map #{regen -ANAU$bmvAmthP7L7xwna0}# - (cdr #{x -ANAU$bmvAmthP7L7xwngB}#)))) + (#{arg-exps 5750}# + (map #{regen 5338}# (cdr #{x 5671}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{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}# + #{fun-exp 5749}# + #{arg-exps 5750}#)))))))))) + (lambda (#{e 5339}# + #{r 5340}# + #{w 5341}# + #{s 5342}# + #{mod 5343}#) + (let ((#{e 5344}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwna1}#) - #{s -ANAU$bmvAmthP7L7xwna4}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwna1}# - #{s -ANAU$bmvAmthP7L7xwna4}#)) - #{e -ANAU$bmvAmthP7L7xwna1}#) - #{w -ANAU$bmvAmthP7L7xwna3}# - #{mod -ANAU$bmvAmthP7L7xwna5}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwna8}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwna6}# - '(_ any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwna8}# + (if (if (pair? #{e 5339}#) #{s 5342}# #f) + (set-source-properties! #{e 5339}# #{s 5342}#)) + #{e 5339}#) + #{w 5341}# + #{mod 5343}#))) + (let ((#{tmp 5346}# ($sc-dispatch #{e 5344}# '(_ any)))) + (if #{tmp 5346}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwnbV}#) + (lambda (#{x 5371}#) (call-with-values (lambda () - (#{gen-syntax -ANAU$bmvAmthP7L7xwnat}# - #{e -ANAU$bmvAmthP7L7xwna6}# - #{x -ANAU$bmvAmthP7L7xwnbV}# - #{r -ANAU$bmvAmthP7L7xwna2}# + (#{gen-syntax 5331}# + #{e 5344}# + #{x 5371}# + #{r 5340}# '() - #{ellipsis? -ANAU$bmvAmthP7L7xwnOM}# - #{mod -ANAU$bmvAmthP7L7xwna5}#)) - (lambda (#{e -ANAU$bmvAmthP7L7xwncL}# - #{maps -ANAU$bmvAmthP7L7xwncM}#) - (#{regen -ANAU$bmvAmthP7L7xwna0}# - #{e -ANAU$bmvAmthP7L7xwncL}#)))) - #{tmp -ANAU$bmvAmthP7L7xwna8}#) + #{ellipsis? 4530}# + #{mod 5343}#)) + (lambda (#{e 5425}# #{maps 5426}#) + (#{regen 5338}# #{e 5425}#)))) + #{tmp 5346}#) (syntax-violation 'syntax "bad `syntax' form" - #{e -ANAU$bmvAmthP7L7xwna6}#))))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 5344}#))))))) + (#{global-extend 4484}# 'core 'lambda - (lambda (#{e -ANAU$bmvAmthP7L7xwnkV}# - #{r -ANAU$bmvAmthP7L7xwnkW}# - #{w -ANAU$bmvAmthP7L7xwnkX}# - #{s -ANAU$bmvAmthP7L7xwnkY}# - #{mod -ANAU$bmvAmthP7L7xwnkZ}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnkb}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnkV}# - '(_ any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwnkb}# + (lambda (#{e 5946}# + #{r 5947}# + #{w 5948}# + #{s 5949}# + #{mod 5950}#) + (let ((#{tmp 5952}# + ($sc-dispatch #{e 5946}# '(_ any any . each-any)))) + (if #{tmp 5952}# (@apply - (lambda (#{args -ANAU$bmvAmthP7L7xwnkf}# - #{e1 -ANAU$bmvAmthP7L7xwnkg}# - #{e2 -ANAU$bmvAmthP7L7xwnkh}#) + (lambda (#{args 5956}# #{e1 5957}# #{e2 5958}#) (call-with-values (lambda () - (#{lambda-formals -ANAU$bmvAmthP7L7xwnON}# - #{args -ANAU$bmvAmthP7L7xwnkf}#)) - (lambda (#{req -ANAU$bmvAmthP7L7xwnkk}# - #{opt -ANAU$bmvAmthP7L7xwnkl}# - #{rest -ANAU$bmvAmthP7L7xwnkm}# - #{kw -ANAU$bmvAmthP7L7xwnkn}#) + (#{lambda-formals 4531}# #{args 5956}#)) + (lambda (#{req 5961}# + #{opt 5962}# + #{rest 5963}# + #{kw 5964}#) (letrec* - ((#{lp -ANAU$bmvAmthP7L7xwnko}# - (lambda (#{body -ANAU$bmvAmthP7L7xwnkr}# - #{meta -ANAU$bmvAmthP7L7xwnks}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnku}# + ((#{lp 5965}# + (lambda (#{body 5968}# #{meta 5969}#) + (let ((#{tmp 5971}# ($sc-dispatch - #{body -ANAU$bmvAmthP7L7xwnkr}# + #{body 5968}# '(any any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwnku}# + (if (if #{tmp 5971}# (@apply - (lambda (#{docstring -ANAU$bmvAmthP7L7xwnky}# - #{e1 -ANAU$bmvAmthP7L7xwnkz}# - #{e2 -ANAU$bmvAmthP7L7xwnk0}#) + (lambda (#{docstring 5975}# + #{e1 5976}# + #{e2 5977}#) (string? - (syntax->datum - #{docstring -ANAU$bmvAmthP7L7xwnky}#))) - #{tmp -ANAU$bmvAmthP7L7xwnku}#) + (syntax->datum #{docstring 5975}#))) + #{tmp 5971}#) #f) (@apply - (lambda (#{docstring -ANAU$bmvAmthP7L7xwnk1}# - #{e1 -ANAU$bmvAmthP7L7xwnk2}# - #{e2 -ANAU$bmvAmthP7L7xwnk3}#) - (#{lp -ANAU$bmvAmthP7L7xwnko}# - (cons #{e1 -ANAU$bmvAmthP7L7xwnk2}# - #{e2 -ANAU$bmvAmthP7L7xwnk3}#) + (lambda (#{docstring 5978}# + #{e1 5979}# + #{e2 5980}#) + (#{lp 5965}# + (cons #{e1 5979}# #{e2 5980}#) (append - #{meta -ANAU$bmvAmthP7L7xwnks}# + #{meta 5969}# (list (cons 'documentation (syntax->datum - #{docstring -ANAU$bmvAmthP7L7xwnk1}#)))))) - #{tmp -ANAU$bmvAmthP7L7xwnku}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnk4}# + #{docstring 5978}#)))))) + #{tmp 5971}#) + (let ((#{tmp 5981}# ($sc-dispatch - #{body -ANAU$bmvAmthP7L7xwnkr}# + #{body 5968}# '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwnk4}# + (if #{tmp 5981}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xwnk8}# - #{v -ANAU$bmvAmthP7L7xwnk9}# - #{e1 -ANAU$bmvAmthP7L7xwnk$}# - #{e2 -ANAU$bmvAmthP7L7xwnk@}#) - (#{lp -ANAU$bmvAmthP7L7xwnko}# - (cons #{e1 -ANAU$bmvAmthP7L7xwnk$}# - #{e2 -ANAU$bmvAmthP7L7xwnk@}#) + (lambda (#{k 5985}# + #{v 5986}# + #{e1 5987}# + #{e2 5988}#) + (#{lp 5965}# + (cons #{e1 5987}# #{e2 5988}#) (append - #{meta -ANAU$bmvAmthP7L7xwnks}# + #{meta 5969}# (syntax->datum (map cons - #{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 -ANAU$bmvAmthP7L7xwnkb}#) + #{k 5985}# + #{v 5986}#))))) + #{tmp 5981}#) + (#{expand-simple-lambda 4532}# + #{e 5946}# + #{r 5947}# + #{w 5948}# + #{s 5949}# + #{mod 5950}# + #{req 5961}# + #{rest 5963}# + #{meta 5969}# + #{body 5968}#)))))))) + (#{lp 5965}# (cons #{e1 5957}# #{e2 5958}#) '()))))) + #{tmp 5952}#) (syntax-violation 'lambda "bad lambda" - #{e -ANAU$bmvAmthP7L7xwnkV}#))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 5946}#))))) + (#{global-extend 4484}# 'core 'lambda* - (lambda (#{e -ANAU$bmvAmthP7L7xwnpc}# - #{r -ANAU$bmvAmthP7L7xwnpd}# - #{w -ANAU$bmvAmthP7L7xwnpe}# - #{s -ANAU$bmvAmthP7L7xwnpf}# - #{mod -ANAU$bmvAmthP7L7xwnpg}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnpi}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnpc}# - '(_ any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwnpi}# + (lambda (#{e 6277}# + #{r 6278}# + #{w 6279}# + #{s 6280}# + #{mod 6281}#) + (let ((#{tmp 6283}# + ($sc-dispatch #{e 6277}# '(_ any any . each-any)))) + (if #{tmp 6283}# (@apply - (lambda (#{args -ANAU$bmvAmthP7L7xwnpm}# - #{e1 -ANAU$bmvAmthP7L7xwnpn}# - #{e2 -ANAU$bmvAmthP7L7xwnpo}#) + (lambda (#{args 6287}# #{e1 6288}# #{e2 6289}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case 4534}# + #{e 6277}# + #{r 6278}# + #{w 6279}# + #{s 6280}# + #{mod 6281}# + #{lambda*-formals 4533}# + (list (cons #{args 6287}# + (cons #{e1 6288}# #{e2 6289}#))))) + (lambda (#{meta 6292}# #{lcase 6293}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s -ANAU$bmvAmthP7L7xwnpf}# - #{meta -ANAU$bmvAmthP7L7xwnpr}# - #{lcase -ANAU$bmvAmthP7L7xwnps}#)))) - #{tmp -ANAU$bmvAmthP7L7xwnpi}#) + #{s 6280}# + #{meta 6292}# + #{lcase 6293}#)))) + #{tmp 6283}#) (syntax-violation 'lambda "bad lambda*" - #{e -ANAU$bmvAmthP7L7xwnpc}#))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 6277}#))))) + (#{global-extend 4484}# 'core 'case-lambda - (lambda (#{e -ANAU$bmvAmthP7L7xwnsW}# - #{r -ANAU$bmvAmthP7L7xwnsX}# - #{w -ANAU$bmvAmthP7L7xwnsY}# - #{s -ANAU$bmvAmthP7L7xwnsZ}# - #{mod -ANAU$bmvAmthP7L7xwnsa}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnsc}# + (lambda (#{e 6463}# + #{r 6464}# + #{w 6465}# + #{s 6466}# + #{mod 6467}#) + (let ((#{tmp 6469}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnsW}# + #{e 6463}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp -ANAU$bmvAmthP7L7xwnsc}# + (if #{tmp 6469}# (@apply - (lambda (#{args -ANAU$bmvAmthP7L7xwnsg}# - #{e1 -ANAU$bmvAmthP7L7xwnsh}# - #{e2 -ANAU$bmvAmthP7L7xwnsi}# - #{args* -ANAU$bmvAmthP7L7xwnsj}# - #{e1* -ANAU$bmvAmthP7L7xwnsk}# - #{e2* -ANAU$bmvAmthP7L7xwnsl}#) + (lambda (#{args 6473}# + #{e1 6474}# + #{e2 6475}# + #{args* 6476}# + #{e1* 6477}# + #{e2* 6478}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case 4534}# + #{e 6463}# + #{r 6464}# + #{w 6465}# + #{s 6466}# + #{mod 6467}# + #{lambda-formals 4531}# + (cons (cons #{args 6473}# + (cons #{e1 6474}# #{e2 6475}#)) + (map (lambda (#{tmp-3387 6481}# + #{tmp-3386 6482}# + #{tmp-3385 6483}#) + (cons #{tmp-3385 6483}# + (cons #{tmp-3386 6482}# + #{tmp-3387 6481}#))) + #{e2* 6478}# + #{e1* 6477}# + #{args* 6476}#)))) + (lambda (#{meta 6484}# #{lcase 6485}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s -ANAU$bmvAmthP7L7xwnsZ}# - #{meta -ANAU$bmvAmthP7L7xwnsr}# - #{lcase -ANAU$bmvAmthP7L7xwnss}#)))) - #{tmp -ANAU$bmvAmthP7L7xwnsc}#) + #{s 6466}# + #{meta 6484}# + #{lcase 6485}#)))) + #{tmp 6469}#) (syntax-violation 'case-lambda "bad case-lambda" - #{e -ANAU$bmvAmthP7L7xwnsW}#))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 6463}#))))) + (#{global-extend 4484}# 'core 'case-lambda* - (lambda (#{e -ANAU$bmvAmthP7L7xwnvO}# - #{r -ANAU$bmvAmthP7L7xwnvP}# - #{w -ANAU$bmvAmthP7L7xwnvQ}# - #{s -ANAU$bmvAmthP7L7xwnvR}# - #{mod -ANAU$bmvAmthP7L7xwnvS}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwnvU}# + (lambda (#{e 6647}# + #{r 6648}# + #{w 6649}# + #{s 6650}# + #{mod 6651}#) + (let ((#{tmp 6653}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnvO}# + #{e 6647}# '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp -ANAU$bmvAmthP7L7xwnvU}# + (if #{tmp 6653}# (@apply - (lambda (#{args -ANAU$bmvAmthP7L7xwnvY}# - #{e1 -ANAU$bmvAmthP7L7xwnvZ}# - #{e2 -ANAU$bmvAmthP7L7xwnva}# - #{args* -ANAU$bmvAmthP7L7xwnvb}# - #{e1* -ANAU$bmvAmthP7L7xwnvc}# - #{e2* -ANAU$bmvAmthP7L7xwnvd}#) + (lambda (#{args 6657}# + #{e1 6658}# + #{e2 6659}# + #{args* 6660}# + #{e1* 6661}# + #{e2* 6662}#) (call-with-values (lambda () - (#{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}#) + (#{expand-lambda-case 4534}# + #{e 6647}# + #{r 6648}# + #{w 6649}# + #{s 6650}# + #{mod 6651}# + #{lambda*-formals 4533}# + (cons (cons #{args 6657}# + (cons #{e1 6658}# #{e2 6659}#)) + (map (lambda (#{tmp-3422 6665}# + #{tmp-3421 6666}# + #{tmp-3420 6667}#) + (cons #{tmp-3420 6667}# + (cons #{tmp-3421 6666}# + #{tmp-3422 6665}#))) + #{e2* 6662}# + #{e1* 6661}# + #{args* 6660}#)))) + (lambda (#{meta 6668}# #{lcase 6669}#) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s -ANAU$bmvAmthP7L7xwnvR}# - #{meta -ANAU$bmvAmthP7L7xwnvj}# - #{lcase -ANAU$bmvAmthP7L7xwnvk}#)))) - #{tmp -ANAU$bmvAmthP7L7xwnvU}#) + #{s 6650}# + #{meta 6668}# + #{lcase 6669}#)))) + #{tmp 6653}#) (syntax-violation 'case-lambda "bad case-lambda*" - #{e -ANAU$bmvAmthP7L7xwnvO}#))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 6647}#))))) + (#{global-extend 4484}# 'core 'let (letrec* - ((#{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$}#)) + ((#{expand-let 6860}# + (lambda (#{e 7009}# + #{r 7010}# + #{w 7011}# + #{s 7012}# + #{mod 7013}# + #{constructor 7014}# + #{ids 7015}# + #{vals 7016}# + #{exps 7017}#) + (if (not (#{valid-bound-ids? 4512}# #{ids 7015}#)) (syntax-violation 'let "duplicate bound variable" - #{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 -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}# + #{e 7009}#) + (let ((#{labels 7095}# + (#{gen-labels 4489}# #{ids 7015}#)) + (#{new-vars 7096}# + (map #{gen-var 4536}# #{ids 7015}#))) + (let ((#{nw 7097}# + (#{make-binding-wrap 4500}# + #{ids 7015}# + #{labels 7095}# + #{w 7011}#)) + (#{nr 7098}# + (#{extend-var-env 4481}# + #{labels 7095}# + #{new-vars 7096}# + #{r 7010}#))) + (#{constructor 7014}# + #{s 7012}# + (map syntax->datum #{ids 7015}#) + #{new-vars 7096}# + (map (lambda (#{x 7115}#) + (#{expand 4522}# + #{x 7115}# + #{r 7010}# + #{w 7011}# + #{mod 7013}#)) + #{vals 7016}#) + (#{expand-body 4526}# + #{exps 7017}# + (#{source-wrap 4516}# + #{e 7009}# + #{nw 7097}# + #{s 7012}# + #{mod 7013}#) + #{nr 7098}# + #{nw 7097}# + #{mod 7013}#)))))))) + (lambda (#{e 6861}# + #{r 6862}# + #{w 6863}# + #{s 6864}# + #{mod 6865}#) + (let ((#{tmp 6867}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnyk}# + #{e 6861}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwnyq}# + (if (if #{tmp 6867}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwnyu}# - #{val -ANAU$bmvAmthP7L7xwnyv}# - #{e1 -ANAU$bmvAmthP7L7xwnyw}# - #{e2 -ANAU$bmvAmthP7L7xwnyx}#) - (and-map - #{id? -ANAU$bmvAmthP7L7xwnNg}# - #{id -ANAU$bmvAmthP7L7xwnyu}#)) - #{tmp -ANAU$bmvAmthP7L7xwnyq}#) + (lambda (#{id 6871}# + #{val 6872}# + #{e1 6873}# + #{e2 6874}#) + (and-map #{id? 4486}# #{id 6871}#)) + #{tmp 6867}#) #f) (@apply - (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}# + (lambda (#{id 6890}# + #{val 6891}# + #{e1 6892}# + #{e2 6893}#) + (#{expand-let 6860}# + #{e 6861}# + #{r 6862}# + #{w 6863}# + #{s 6864}# + #{mod 6865}# + #{build-let 4468}# + #{id 6890}# + #{val 6891}# + (cons #{e1 6892}# #{e2 6893}#))) + #{tmp 6867}#) + (let ((#{tmp 6923}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwnyk}# + #{e 6861}# '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwnzi}# + (if (if #{tmp 6923}# (@apply - (lambda (#{f -ANAU$bmvAmthP7L7xwnzm}# - #{id -ANAU$bmvAmthP7L7xwnzn}# - #{val -ANAU$bmvAmthP7L7xwnzo}# - #{e1 -ANAU$bmvAmthP7L7xwnzp}# - #{e2 -ANAU$bmvAmthP7L7xwnzq}#) - (if (if (symbol? #{f -ANAU$bmvAmthP7L7xwnzm}#) + (lambda (#{f 6927}# + #{id 6928}# + #{val 6929}# + #{e1 6930}# + #{e2 6931}#) + (if (if (symbol? #{f 6927}#) #t - (if (if (vector? - #{f -ANAU$bmvAmthP7L7xwnzm}#) - (if (= (vector-length - #{f -ANAU$bmvAmthP7L7xwnzm}#) - 4) - (eq? (vector-ref - #{f -ANAU$bmvAmthP7L7xwnzm}# - 0) + (if (if (vector? #{f 6927}#) + (if (= (vector-length #{f 6927}#) 4) + (eq? (vector-ref #{f 6927}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{f -ANAU$bmvAmthP7L7xwnzm}# - 1)) + (symbol? (vector-ref #{f 6927}# 1)) #f)) - (and-map - #{id? -ANAU$bmvAmthP7L7xwnNg}# - #{id -ANAU$bmvAmthP7L7xwnzn}#) + (and-map #{id? 4486}# #{id 6928}#) #f)) - #{tmp -ANAU$bmvAmthP7L7xwnzi}#) + #{tmp 6923}#) #f) (@apply - (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}#) + (lambda (#{f 6973}# + #{id 6974}# + #{val 6975}# + #{e1 6976}# + #{e2 6977}#) + (#{expand-let 6860}# + #{e 6861}# + #{r 6862}# + #{w 6863}# + #{s 6864}# + #{mod 6865}# + #{build-named-let 4469}# + (cons #{f 6973}# #{id 6974}#) + #{val 6975}# + (cons #{e1 6976}# #{e2 6977}#))) + #{tmp 6923}#) (syntax-violation 'let "bad let" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwnyk}#) - #{s -ANAU$bmvAmthP7L7xwnyn}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwnyk}# - #{s -ANAU$bmvAmthP7L7xwnyn}#)) - #{e -ANAU$bmvAmthP7L7xwnyk}#) - #{w -ANAU$bmvAmthP7L7xwnym}# - #{mod -ANAU$bmvAmthP7L7xwnyo}#))))))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (if (if (pair? #{e 6861}#) #{s 6864}# #f) + (set-source-properties! #{e 6861}# #{s 6864}#)) + #{e 6861}#) + #{w 6863}# + #{mod 6865}#))))))))) + (#{global-extend 4484}# 'core 'letrec - (lambda (#{e -ANAU$bmvAmthP7L7xwn8w}# - #{r -ANAU$bmvAmthP7L7xwn8x}# - #{w -ANAU$bmvAmthP7L7xwn8y}# - #{s -ANAU$bmvAmthP7L7xwn8z}# - #{mod -ANAU$bmvAmthP7L7xwn80}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwn82}# + (lambda (#{e 7527}# + #{r 7528}# + #{w 7529}# + #{s 7530}# + #{mod 7531}#) + (let ((#{tmp 7533}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwn8w}# + #{e 7527}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwn82}# + (if (if #{tmp 7533}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwn86}# - #{val -ANAU$bmvAmthP7L7xwn87}# - #{e1 -ANAU$bmvAmthP7L7xwn88}# - #{e2 -ANAU$bmvAmthP7L7xwn89}#) - (and-map - #{id? -ANAU$bmvAmthP7L7xwnNg}# - #{id -ANAU$bmvAmthP7L7xwn86}#)) - #{tmp -ANAU$bmvAmthP7L7xwn82}#) + (lambda (#{id 7537}# + #{val 7538}# + #{e1 7539}# + #{e2 7540}#) + (and-map #{id? 4486}# #{id 7537}#)) + #{tmp 7533}#) #f) (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwn9N}# - #{val -ANAU$bmvAmthP7L7xwn9O}# - #{e1 -ANAU$bmvAmthP7L7xwn9P}# - #{e2 -ANAU$bmvAmthP7L7xwn9Q}#) - (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# - #{id -ANAU$bmvAmthP7L7xwn9N}#)) + (lambda (#{id 7556}# + #{val 7557}# + #{e1 7558}# + #{e2 7559}#) + (if (not (#{valid-bound-ids? 4512}# #{id 7556}#)) (syntax-violation 'letrec "duplicate bound variable" - #{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}# + #{e 7527}#) + (let ((#{labels 7649}# + (#{gen-labels 4489}# #{id 7556}#)) + (#{new-vars 7650}# + (map #{gen-var 4536}# #{id 7556}#))) + (let ((#{w 7651}# + (#{make-binding-wrap 4500}# + #{id 7556}# + #{labels 7649}# + #{w 7529}#)) + (#{r 7652}# + (#{extend-var-env 4481}# + #{labels 7649}# + #{new-vars 7650}# + #{r 7528}#))) + (#{build-letrec 4470}# + #{s 7530}# #f - (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}# + (map syntax->datum #{id 7556}#) + #{new-vars 7650}# + (map (lambda (#{x 7737}#) + (#{expand 4522}# + #{x 7737}# + #{r 7652}# + #{w 7651}# + #{mod 7531}#)) + #{val 7557}#) + (#{expand-body 4526}# + (cons #{e1 7558}# #{e2 7559}#) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#) - #{s -ANAU$bmvAmthP7L7xwn8z}# - #f) + (if (if (pair? #{e 7527}#) #{s 7530}# #f) (set-source-properties! - #{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}#) + #{e 7527}# + #{s 7530}#)) + #{e 7527}#) + #{w 7651}# + #{mod 7531}#) + #{r 7652}# + #{w 7651}# + #{mod 7531}#)))))) + #{tmp 7533}#) (syntax-violation 'letrec "bad letrec" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwn8w}#) - #{s -ANAU$bmvAmthP7L7xwn8z}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwn8w}# - #{s -ANAU$bmvAmthP7L7xwn8z}#)) - #{e -ANAU$bmvAmthP7L7xwn8w}#) - #{w -ANAU$bmvAmthP7L7xwn8y}# - #{mod -ANAU$bmvAmthP7L7xwn80}#)))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (if (if (pair? #{e 7527}#) #{s 7530}# #f) + (set-source-properties! #{e 7527}# #{s 7530}#)) + #{e 7527}#) + #{w 7529}# + #{mod 7531}#)))))) + (#{global-extend 4484}# 'core 'letrec* - (lambda (#{e -ANAU$bmvAmthP7L7xwoGB}# - #{r -ANAU$bmvAmthP7L7xwoGC}# - #{w -ANAU$bmvAmthP7L7xwoGD}# - #{s -ANAU$bmvAmthP7L7xwoGE}# - #{mod -ANAU$bmvAmthP7L7xwoGF}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwoGH}# + (lambda (#{e 8132}# + #{r 8133}# + #{w 8134}# + #{s 8135}# + #{mod 8136}#) + (let ((#{tmp 8138}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwoGB}# + #{e 8132}# '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwoGH}# + (if (if #{tmp 8138}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwoGL}# - #{val -ANAU$bmvAmthP7L7xwoGM}# - #{e1 -ANAU$bmvAmthP7L7xwoGN}# - #{e2 -ANAU$bmvAmthP7L7xwoGO}#) - (and-map - #{id? -ANAU$bmvAmthP7L7xwnNg}# - #{id -ANAU$bmvAmthP7L7xwoGL}#)) - #{tmp -ANAU$bmvAmthP7L7xwoGH}#) + (lambda (#{id 8142}# + #{val 8143}# + #{e1 8144}# + #{e2 8145}#) + (and-map #{id? 4486}# #{id 8142}#)) + #{tmp 8138}#) #f) (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwoGe}# - #{val -ANAU$bmvAmthP7L7xwoGf}# - #{e1 -ANAU$bmvAmthP7L7xwoGg}# - #{e2 -ANAU$bmvAmthP7L7xwoGh}#) - (if (not (#{valid-bound-ids? -ANAU$bmvAmthP7L7xwnN6}# - #{id -ANAU$bmvAmthP7L7xwoGe}#)) + (lambda (#{id 8161}# + #{val 8162}# + #{e1 8163}# + #{e2 8164}#) + (if (not (#{valid-bound-ids? 4512}# #{id 8161}#)) (syntax-violation 'letrec* "duplicate bound variable" - #{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}# + #{e 8132}#) + (let ((#{labels 8254}# + (#{gen-labels 4489}# #{id 8161}#)) + (#{new-vars 8255}# + (map #{gen-var 4536}# #{id 8161}#))) + (let ((#{w 8256}# + (#{make-binding-wrap 4500}# + #{id 8161}# + #{labels 8254}# + #{w 8134}#)) + (#{r 8257}# + (#{extend-var-env 4481}# + #{labels 8254}# + #{new-vars 8255}# + #{r 8133}#))) + (#{build-letrec 4470}# + #{s 8135}# #t - (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}# + (map syntax->datum #{id 8161}#) + #{new-vars 8255}# + (map (lambda (#{x 8342}#) + (#{expand 4522}# + #{x 8342}# + #{r 8257}# + #{w 8256}# + #{mod 8136}#)) + #{val 8162}#) + (#{expand-body 4526}# + (cons #{e1 8163}# #{e2 8164}#) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#) - #{s -ANAU$bmvAmthP7L7xwoGE}# - #f) + (if (if (pair? #{e 8132}#) #{s 8135}# #f) (set-source-properties! - #{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}#) + #{e 8132}# + #{s 8135}#)) + #{e 8132}#) + #{w 8256}# + #{mod 8136}#) + #{r 8257}# + #{w 8256}# + #{mod 8136}#)))))) + #{tmp 8138}#) (syntax-violation 'letrec* "bad letrec*" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoGB}#) - #{s -ANAU$bmvAmthP7L7xwoGE}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwoGB}# - #{s -ANAU$bmvAmthP7L7xwoGE}#)) - #{e -ANAU$bmvAmthP7L7xwoGB}#) - #{w -ANAU$bmvAmthP7L7xwoGD}# - #{mod -ANAU$bmvAmthP7L7xwoGF}#)))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (if (if (pair? #{e 8132}#) #{s 8135}# #f) + (set-source-properties! #{e 8132}# #{s 8135}#)) + #{e 8132}#) + #{w 8134}# + #{mod 8136}#)))))) + (#{global-extend 4484}# 'core 'set! - (lambda (#{e -ANAU$bmvAmthP7L7xwoP5}# - #{r -ANAU$bmvAmthP7L7xwoP6}# - #{w -ANAU$bmvAmthP7L7xwoP7}# - #{s -ANAU$bmvAmthP7L7xwoP8}# - #{mod -ANAU$bmvAmthP7L7xwoP9}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwoP@}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwoP5}# - '(_ any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwoP@}# + (lambda (#{e 8776}# + #{r 8777}# + #{w 8778}# + #{s 8779}# + #{mod 8780}#) + (let ((#{tmp 8782}# + ($sc-dispatch #{e 8776}# '(_ any any)))) + (if (if #{tmp 8782}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwoQD}# - #{val -ANAU$bmvAmthP7L7xwoQE}#) - (if (symbol? #{id -ANAU$bmvAmthP7L7xwoQD}#) + (lambda (#{id 8786}# #{val 8787}#) + (if (symbol? #{id 8786}#) #t - (if (if (vector? #{id -ANAU$bmvAmthP7L7xwoQD}#) - (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwoQD}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwoQD}# - 0) - 'syntax-object) + (if (if (vector? #{id 8786}#) + (if (= (vector-length #{id 8786}#) 4) + (eq? (vector-ref #{id 8786}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{id -ANAU$bmvAmthP7L7xwoQD}# 1)) + (symbol? (vector-ref #{id 8786}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwoP@}#) + #{tmp 8782}#) #f) (@apply - (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 -ANAU$bmvAmthP7L7xwoQf}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwoQf}# - 0) + (lambda (#{id 8814}# #{val 8815}#) + (let ((#{n 8816}# + (#{id-var-name 4505}# #{id 8814}# #{w 8778}#)) + (#{id-mod 8817}# + (if (if (vector? #{id 8814}#) + (if (= (vector-length #{id 8814}#) 4) + (eq? (vector-ref #{id 8814}# 0) 'syntax-object) #f) #f) - (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))) + (vector-ref #{id 8814}# 3) + #{mod 8780}#))) + (let ((#{b 8818}# + (let ((#{t 8859}# (assq #{n 8816}# #{r 8777}#))) + (if #{t 8859}# + (cdr #{t 8859}#) + (if (symbol? #{n 8816}#) + (let ((#{t 8864}# + (#{get-global-definition-hook 4449}# + #{n 8816}# + #{id-mod 8817}#))) + (if #{t 8864}# #{t 8864}# '(global))) '(displaced-lexical)))))) - (let ((#{atom-key -ANAU$bmvAmthP7L7xwoQk}# - (car #{b -ANAU$bmvAmthP7L7xwoQj}#))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwoQk}# - 'lexical) - (#{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 -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 -ANAU$bmvAmthP7L7xwoWL}# - (cdr #{b -ANAU$bmvAmthP7L7xwoQj}#))) + (let ((#{atom-key 8819}# (car #{b 8818}#))) + (if (eqv? #{atom-key 8819}# 'lexical) + (#{build-lexical-assignment 4457}# + #{s 8779}# + (syntax->datum #{id 8814}#) + (cdr #{b 8818}#) + (#{expand 4522}# + #{val 8815}# + #{r 8777}# + #{w 8778}# + #{mod 8780}#)) + (if (eqv? #{atom-key 8819}# 'global) + (#{build-global-assignment 4460}# + #{s 8779}# + #{n 8816}# + (#{expand 4522}# + #{val 8815}# + #{r 8777}# + #{w 8778}# + #{mod 8780}#) + #{id-mod 8817}#) + (if (eqv? #{atom-key 8819}# 'macro) + (let ((#{p 9178}# (cdr #{b 8818}#))) (if (procedure-property - #{p -ANAU$bmvAmthP7L7xwoWL}# + #{p 9178}# 'variable-transformer) - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - (#{expand-macro -ANAU$bmvAmthP7L7xwnOH}# - #{p -ANAU$bmvAmthP7L7xwoWL}# - #{e -ANAU$bmvAmthP7L7xwoP5}# - #{r -ANAU$bmvAmthP7L7xwoP6}# - #{w -ANAU$bmvAmthP7L7xwoP7}# - #{s -ANAU$bmvAmthP7L7xwoP8}# + (#{expand 4522}# + (#{expand-macro 4525}# + #{p 9178}# + #{e 8776}# + #{r 8777}# + #{w 8778}# + #{s 8779}# #f - #{mod -ANAU$bmvAmthP7L7xwoP9}#) - #{r -ANAU$bmvAmthP7L7xwoP6}# + #{mod 8780}#) + #{r 8777}# '(()) - #{mod -ANAU$bmvAmthP7L7xwoP9}#) + #{mod 8780}#) (syntax-violation 'set! "not a variable transformer" - (#{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) + (#{wrap 4515}# + #{e 8776}# + #{w 8778}# + #{mod 8780}#) + (#{wrap 4515}# + #{id 8814}# + #{w 8778}# + #{id-mod 8817}#)))) + (if (eqv? #{atom-key 8819}# 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{id -ANAU$bmvAmthP7L7xwoQf}# - #{w -ANAU$bmvAmthP7L7xwoP7}# - #{mod -ANAU$bmvAmthP7L7xwoP9}#)) + (#{wrap 4515}# + #{id 8814}# + #{w 8778}# + #{mod 8780}#)) (syntax-violation 'set! "bad set!" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#) - #{s -ANAU$bmvAmthP7L7xwoP8}# - #f) + (if (if (pair? #{e 8776}#) #{s 8779}# #f) (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwoP5}# - #{s -ANAU$bmvAmthP7L7xwoP8}#)) - #{e -ANAU$bmvAmthP7L7xwoP5}#) - #{w -ANAU$bmvAmthP7L7xwoP7}# - #{mod -ANAU$bmvAmthP7L7xwoP9}#)))))))))) - #{tmp -ANAU$bmvAmthP7L7xwoP@}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwoXq}# + #{e 8776}# + #{s 8779}#)) + #{e 8776}#) + #{w 8778}# + #{mod 8780}#)))))))))) + #{tmp 8782}#) + (let ((#{tmp 9273}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwoP5}# + #{e 8776}# '(_ (any . each-any) any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwoXq}# + (if #{tmp 9273}# (@apply - (lambda (#{head -ANAU$bmvAmthP7L7xwoXu}# - #{tail -ANAU$bmvAmthP7L7xwoXv}# - #{val -ANAU$bmvAmthP7L7xwoXw}#) + (lambda (#{head 9277}# #{tail 9278}# #{val 9279}#) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{head -ANAU$bmvAmthP7L7xwoXu}# - #{r -ANAU$bmvAmthP7L7xwoP6}# + (#{syntax-type 4521}# + #{head 9277}# + #{r 8777}# '(()) #f #f - #{mod -ANAU$bmvAmthP7L7xwoP9}# + #{mod 8780}# #t)) - (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 -ANAU$bmvAmthP7L7xwoX8}# - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - #{val -ANAU$bmvAmthP7L7xwoXw}# - #{r -ANAU$bmvAmthP7L7xwoP6}# - #{w -ANAU$bmvAmthP7L7xwoP7}# - #{mod -ANAU$bmvAmthP7L7xwoP9}#))) + (lambda (#{type 9282}# + #{value 9283}# + #{ee 9284}# + #{ww 9285}# + #{ss 9286}# + #{modmod 9287}#) + (if (eqv? #{type 9282}# 'module-ref) + (let ((#{val 9291}# + (#{expand 4522}# + #{val 9279}# + #{r 8777}# + #{w 8778}# + #{mod 8780}#))) (call-with-values (lambda () - (#{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}#))) + (#{value 9283}# + (cons #{head 9277}# #{tail 9278}#) + #{r 8777}# + #{w 8778}#)) + (lambda (#{e 9292}# + #{r 9293}# + #{w 9294}# + #{s* 9295}# + #{mod 9296}#) + (let ((#{tmp 9298}# (list #{e 9292}#))) (if (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xwoYF}#) - (if (symbol? - #{e -ANAU$bmvAmthP7L7xwoYF}#) + (lambda (#{e 9300}#) + (if (symbol? #{e 9300}#) #t - (if (if (vector? - #{e -ANAU$bmvAmthP7L7xwoYF}#) + (if (if (vector? #{e 9300}#) (if (= (vector-length - #{e -ANAU$bmvAmthP7L7xwoYF}#) + #{e 9300}#) 4) (eq? (vector-ref - #{e -ANAU$bmvAmthP7L7xwoYF}# + #{e 9300}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{e -ANAU$bmvAmthP7L7xwoYF}# - 1)) + (vector-ref #{e 9300}# 1)) #f))) - #{tmp -ANAU$bmvAmthP7L7xwoYD}#) + #{tmp 9298}#) (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xwoYj}#) - (#{build-global-assignment -ANAU$bmvAmthP7L7xwnNG}# - #{s -ANAU$bmvAmthP7L7xwoP8}# - (syntax->datum - #{e -ANAU$bmvAmthP7L7xwoYj}#) - #{val -ANAU$bmvAmthP7L7xwoX8}# - #{mod -ANAU$bmvAmthP7L7xwoYB}#)) - #{tmp -ANAU$bmvAmthP7L7xwoYD}#) + (lambda (#{e 9330}#) + (#{build-global-assignment 4460}# + #{s 8779}# + (syntax->datum #{e 9330}#) + #{val 9291}# + #{mod 9296}#)) + #{tmp 9298}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwoX9}#)))))) - (#{build-application -ANAU$bmvAmthP7L7xwnM@}# - #{s -ANAU$bmvAmthP7L7xwoP8}# - (let ((#{e -ANAU$bmvAmthP7L7xwocE}# + #{e 9292}#)))))) + (#{build-application 4453}# + #{s 8779}# + (let ((#{e 9555}# (list '#(syntax-object setter ((top) @@ -10483,16 +9672,18 @@ (top) (top) (top)) - #("142" - "143" - "144" - "145" - "146" - "147")) + #("l-*-3668" + "l-*-3669" + "l-*-3670" + "l-*-3671" + "l-*-3672" + "l-*-3673")) #(ribcage #(head tail val) #((top) (top) (top)) - #("13z" "140" "141")) + #("l-*-3654" + "l-*-3655" + "l-*-3656")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -10501,11 +9692,11 @@ (top) (top) (top)) - #("13l" - "13m" - "13n" - "13o" - "13p")) + #("l-*-3618" + "l-*-3619" + "l-*-3620" + "l-*-3621" + "l-*-3622")) #(ribcage (lambda-var-list gen-var @@ -10619,7 +9810,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -10787,268 +9978,252 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) - #{head -ANAU$bmvAmthP7L7xwoXu}#))) + #{head 9277}#))) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwocE}# - #{r -ANAU$bmvAmthP7L7xwoP6}# - #{w -ANAU$bmvAmthP7L7xwoP7}# - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xwocE}#) + (#{syntax-type 4521}# + #{e 9555}# + #{r 8777}# + #{w 8778}# + (#{source-annotation 4479}# #{e 9555}#) #f - #{mod -ANAU$bmvAmthP7L7xwoP9}# + #{mod 8780}# #f)) - (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}#) + (lambda (#{type 9562}# + #{value 9563}# + #{e 9564}# + #{w 9565}# + #{s 9566}# + #{mod 9567}#) + (#{expand-expr 4523}# + #{type 9562}# + #{value 9563}# + #{e 9564}# + #{r 8777}# + #{w 9565}# + #{s 9566}# + #{mod 9567}#)))) + (map (lambda (#{e 9571}#) (call-with-values (lambda () - (#{syntax-type -ANAU$bmvAmthP7L7xwnOD}# - #{e -ANAU$bmvAmthP7L7xwocU}# - #{r -ANAU$bmvAmthP7L7xwoP6}# - #{w -ANAU$bmvAmthP7L7xwoP7}# - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{e -ANAU$bmvAmthP7L7xwocU}#) + (#{syntax-type 4521}# + #{e 9571}# + #{r 8777}# + #{w 8778}# + (#{source-annotation 4479}# + #{e 9571}#) #f - #{mod -ANAU$bmvAmthP7L7xwoP9}# + #{mod 8780}# #f)) - (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}#)))) + (lambda (#{type 9586}# + #{value 9587}# + #{e 9588}# + #{w 9589}# + #{s 9590}# + #{mod 9591}#) + (#{expand-expr 4523}# + #{type 9586}# + #{value 9587}# + #{e 9588}# + #{r 8777}# + #{w 9589}# + #{s 9590}# + #{mod 9591}#)))) (append - #{tail -ANAU$bmvAmthP7L7xwoXv}# - (list #{val -ANAU$bmvAmthP7L7xwoXw}#)))))))) - #{tmp -ANAU$bmvAmthP7L7xwoXq}#) + #{tail 9278}# + (list #{val 9279}#)))))))) + #{tmp 9273}#) (syntax-violation 'set! "bad set!" - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwoP5}#) - #{s -ANAU$bmvAmthP7L7xwoP8}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwoP5}# - #{s -ANAU$bmvAmthP7L7xwoP8}#)) - #{e -ANAU$bmvAmthP7L7xwoP5}#) - #{w -ANAU$bmvAmthP7L7xwoP7}# - #{mod -ANAU$bmvAmthP7L7xwoP9}#)))))))) + (if (if (pair? #{e 8776}#) #{s 8779}# #f) + (set-source-properties! #{e 8776}# #{s 8779}#)) + #{e 8776}#) + #{w 8778}# + #{mod 8780}#)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e -ANAU$bmvAmthP7L7xwodT}# - #{r -ANAU$bmvAmthP7L7xwodU}# - #{w -ANAU$bmvAmthP7L7xwodV}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwodX}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwodT}# - '(_ each-any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwodX}# + (lambda (#{e 9634}# #{r 9635}# #{w 9636}#) + (let ((#{tmp 9638}# + ($sc-dispatch #{e 9634}# '(_ each-any any)))) + (if (if #{tmp 9638}# (@apply - (lambda (#{mod -ANAU$bmvAmthP7L7xwoda}# - #{id -ANAU$bmvAmthP7L7xwodb}#) - (if (and-map - #{id? -ANAU$bmvAmthP7L7xwnNg}# - #{mod -ANAU$bmvAmthP7L7xwoda}#) - (if (symbol? #{id -ANAU$bmvAmthP7L7xwodb}#) + (lambda (#{mod 9641}# #{id 9642}#) + (if (and-map #{id? 4486}# #{mod 9641}#) + (if (symbol? #{id 9642}#) #t - (if (if (vector? #{id -ANAU$bmvAmthP7L7xwodb}#) - (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwodb}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwodb}# - 0) + (if (if (vector? #{id 9642}#) + (if (= (vector-length #{id 9642}#) 4) + (eq? (vector-ref #{id 9642}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{id -ANAU$bmvAmthP7L7xwodb}# 1)) + (symbol? (vector-ref #{id 9642}# 1)) #f)) #f)) - #{tmp -ANAU$bmvAmthP7L7xwodX}#) + #{tmp 9638}#) #f) (@apply - (lambda (#{mod -ANAU$bmvAmthP7L7xwoeD}# - #{id -ANAU$bmvAmthP7L7xwoeE}#) + (lambda (#{mod 9682}# #{id 9683}#) (values - (syntax->datum #{id -ANAU$bmvAmthP7L7xwoeE}#) - #{r -ANAU$bmvAmthP7L7xwodU}# - #{w -ANAU$bmvAmthP7L7xwodV}# + (syntax->datum #{id 9683}#) + #{r 9635}# + #{w 9636}# #f (syntax->datum (cons '#(syntax-object @@ -11057,12 +10232,12 @@ #(ribcage #(mod id) #((top) (top)) - #("14n" "14o")) + #("l-*-3715" "l-*-3716")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("14i" "14j" "14k")) + #("l-*-3703" "l-*-3704" "l-*-3705")) #(ribcage (lambda-var-list gen-var @@ -11176,7 +10351,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -11344,235 +10519,217 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - #{mod -ANAU$bmvAmthP7L7xwoeD}#)))) - #{tmp -ANAU$bmvAmthP7L7xwodX}#) + #{mod 9682}#)))) + #{tmp 9638}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwodT}#)))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 9634}#)))))) + (#{global-extend 4484}# 'module-ref '@@ - (lambda (#{e -ANAU$bmvAmthP7L7xwofg}# - #{r -ANAU$bmvAmthP7L7xwofh}# - #{w -ANAU$bmvAmthP7L7xwofi}#) + (lambda (#{e 9775}# #{r 9776}# #{w 9777}#) (letrec* - ((#{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 -ANAU$bmvAmthP7L7xwogG}# 0) - 'syntax-object) + ((#{remodulate 9778}# + (lambda (#{x 9813}# #{mod 9814}#) + (if (pair? #{x 9813}#) + (cons (#{remodulate 9778}# + (car #{x 9813}#) + #{mod 9814}#) + (#{remodulate 9778}# + (cdr #{x 9813}#) + #{mod 9814}#)) + (if (if (vector? #{x 9813}#) + (if (= (vector-length #{x 9813}#) 4) + (eq? (vector-ref #{x 9813}# 0) 'syntax-object) #f) #f) - (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))) + (let ((#{expression 9828}# + (#{remodulate 9778}# + (vector-ref #{x 9813}# 1) + #{mod 9814}#)) + (#{wrap 9829}# (vector-ref #{x 9813}# 2))) (vector 'syntax-object - #{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}#))) + #{expression 9828}# + #{wrap 9829}# + #{mod 9814}#)) + (if (vector? #{x 9813}#) + (let ((#{n 9837}# (vector-length #{x 9813}#))) + (let ((#{v 9838}# (make-vector #{n 9837}#))) (letrec* - ((#{loop -ANAU$bmvAmthP7L7xwogg}# - (lambda (#{i -ANAU$bmvAmthP7L7xwohP}#) - (if (= #{i -ANAU$bmvAmthP7L7xwohP}# - #{n -ANAU$bmvAmthP7L7xwoge}#) - #{v -ANAU$bmvAmthP7L7xwogf}# + ((#{loop 9839}# + (lambda (#{i 9886}#) + (if (= #{i 9886}# #{n 9837}#) + #{v 9838}# (begin (vector-set! - #{v -ANAU$bmvAmthP7L7xwogf}# - #{i -ANAU$bmvAmthP7L7xwohP}# - (#{remodulate -ANAU$bmvAmthP7L7xwofj}# - (vector-ref - #{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 -ANAU$bmvAmthP7L7xwofg}# - '(_ each-any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwofl}# + #{v 9838}# + #{i 9886}# + (#{remodulate 9778}# + (vector-ref #{x 9813}# #{i 9886}#) + #{mod 9814}#)) + (#{loop 9839}# (#{1+}# #{i 9886}#))))))) + (#{loop 9839}# 0)))) + #{x 9813}#)))))) + (let ((#{tmp 9780}# + ($sc-dispatch #{e 9775}# '(_ each-any any)))) + (if (if #{tmp 9780}# (@apply - (lambda (#{mod -ANAU$bmvAmthP7L7xwofp}# - #{exp -ANAU$bmvAmthP7L7xwofq}#) - (and-map - #{id? -ANAU$bmvAmthP7L7xwnNg}# - #{mod -ANAU$bmvAmthP7L7xwofp}#)) - #{tmp -ANAU$bmvAmthP7L7xwofl}#) + (lambda (#{mod 9784}# #{exp 9785}#) + (and-map #{id? 4486}# #{mod 9784}#)) + #{tmp 9780}#) #f) (@apply - (lambda (#{mod -ANAU$bmvAmthP7L7xwof6}# - #{exp -ANAU$bmvAmthP7L7xwof7}#) - (let ((#{mod -ANAU$bmvAmthP7L7xwof8}# + (lambda (#{mod 9801}# #{exp 9802}#) + (let ((#{mod 9803}# (syntax->datum (cons '#(syntax-object private @@ -11580,12 +10737,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("151" "152")) - #(ribcage (remodulate) ((top)) ("14s")) + #("l-*-3759" "l-*-3760")) + #(ribcage + (remodulate) + ((top)) + ("l-*-3726")) #(ribcage #(e r w) #((top) (top) (top)) - #("14p" "14q" "14r")) + #("l-*-3723" "l-*-3724" "l-*-3725")) #(ribcage (lambda-var-list gen-var @@ -11699,7 +10859,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -11867,287 +11027,272 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - #{mod -ANAU$bmvAmthP7L7xwof6}#)))) + #{mod 9801}#)))) (values - (#{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}#) + (#{remodulate 9778}# #{exp 9802}# #{mod 9803}#) + #{r 9776}# + #{w 9777}# + (#{source-annotation 4479}# #{exp 9802}#) + #{mod 9803}#))) + #{tmp 9780}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwofg}#)))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 9775}#)))))) + (#{global-extend 4484}# 'core 'if - (lambda (#{e -ANAU$bmvAmthP7L7xwoi0}# - #{r -ANAU$bmvAmthP7L7xwoi1}# - #{w -ANAU$bmvAmthP7L7xwoi2}# - #{s -ANAU$bmvAmthP7L7xwoi3}# - #{mod -ANAU$bmvAmthP7L7xwoi4}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwoi6}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwoi0}# - '(_ any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwoi6}# + (lambda (#{e 9987}# + #{r 9988}# + #{w 9989}# + #{s 9990}# + #{mod 9991}#) + (let ((#{tmp 9993}# + ($sc-dispatch #{e 9987}# '(_ any any)))) + (if #{tmp 9993}# (@apply - (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}#) + (lambda (#{test 9997}# #{then 9998}#) + (#{build-conditional 4454}# + #{s 9990}# + (#{expand 4522}# + #{test 9997}# + #{r 9988}# + #{w 9989}# + #{mod 9991}#) + (#{expand 4522}# + #{then 9998}# + #{r 9988}# + #{w 9989}# + #{mod 9991}#) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp -ANAU$bmvAmthP7L7xwoi6}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwomg}# - ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwoi0}# - '(_ any any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwomg}# + #{tmp 9993}#) + (let ((#{tmp 10223}# + ($sc-dispatch #{e 9987}# '(_ any any any)))) + (if #{tmp 10223}# (@apply - (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}#) + (lambda (#{test 10227}# #{then 10228}# #{else 10229}#) + (#{build-conditional 4454}# + #{s 9990}# + (#{expand 4522}# + #{test 10227}# + #{r 9988}# + #{w 9989}# + #{mod 9991}#) + (#{expand 4522}# + #{then 10228}# + #{r 9988}# + #{w 9989}# + #{mod 9991}#) + (#{expand 4522}# + #{else 10229}# + #{r 9988}# + #{w 9989}# + #{mod 9991}#))) + #{tmp 10223}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwoi0}#))))))) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + #{e 9987}#))))))) + (#{global-extend 4484}# 'core 'with-fluids - (lambda (#{e -ANAU$bmvAmthP7L7xwos1}# - #{r -ANAU$bmvAmthP7L7xwos2}# - #{w -ANAU$bmvAmthP7L7xwos3}# - #{s -ANAU$bmvAmthP7L7xwos4}# - #{mod -ANAU$bmvAmthP7L7xwos5}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwos7}# + (lambda (#{e 10628}# + #{r 10629}# + #{w 10630}# + #{s 10631}# + #{mod 10632}#) + (let ((#{tmp 10634}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwos1}# + #{e 10628}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwos7}# + (if #{tmp 10634}# (@apply - (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}# + (lambda (#{fluid 10638}# + #{val 10639}# + #{b 10640}# + #{b* 10641}#) + (#{build-dynlet 4455}# + #{s 10631}# + (map (lambda (#{x 10722}#) + (#{expand 4522}# + #{x 10722}# + #{r 10629}# + #{w 10630}# + #{mod 10632}#)) + #{fluid 10638}#) + (map (lambda (#{x 10792}#) + (#{expand 4522}# + #{x 10792}# + #{r 10629}# + #{w 10630}# + #{mod 10632}#)) + #{val 10639}#) + (#{expand-body 4526}# + (cons #{b 10640}# #{b* 10641}#) + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwos1}#) - #{s -ANAU$bmvAmthP7L7xwos4}# - #f) - (set-source-properties! - #{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}#) + (if (if (pair? #{e 10628}#) #{s 10631}# #f) + (set-source-properties! #{e 10628}# #{s 10631}#)) + #{e 10628}#) + #{w 10630}# + #{mod 10632}#) + #{r 10629}# + #{w 10630}# + #{mod 10632}#))) + #{tmp 10634}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwos1}#))))) + #{e 10628}#))))) (module-define! (current-module) 'begin @@ -12177,100 +11322,75 @@ 'eval-when 'eval-when '())) - (#{global-extend -ANAU$bmvAmthP7L7xwnNe}# + (#{global-extend 4484}# 'core 'syntax-case (letrec* - ((#{convert-pattern -ANAU$bmvAmthP7L7xwo1J}# - (lambda (#{pattern -ANAU$bmvAmthP7L7xwpOE}# - #{keys -ANAU$bmvAmthP7L7xwpOF}#) + ((#{convert-pattern 11160}# + (lambda (#{pattern 12757}# #{keys 12758}#) (letrec* - ((#{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}#) + ((#{cvt* 12759}# + (lambda (#{p* 13383}# #{n 13384}# #{ids 13385}#) + (if (not (pair? #{p* 13383}#)) + (#{cvt 12761}# + #{p* 13383}# + #{n 13384}# + #{ids 13385}#) (call-with-values (lambda () - (#{cvt* -ANAU$bmvAmthP7L7xwpOG}# - (cdr #{p* -ANAU$bmvAmthP7L7xwpX2}#) - #{n -ANAU$bmvAmthP7L7xwpX3}# - #{ids -ANAU$bmvAmthP7L7xwpX4}#)) - (lambda (#{y -ANAU$bmvAmthP7L7xwpX7}# - #{ids -ANAU$bmvAmthP7L7xwpX8}#) + (#{cvt* 12759}# + (cdr #{p* 13383}#) + #{n 13384}# + #{ids 13385}#)) + (lambda (#{y 13388}# #{ids 13389}#) (call-with-values (lambda () - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - (car #{p* -ANAU$bmvAmthP7L7xwpX2}#) - #{n -ANAU$bmvAmthP7L7xwpX3}# - #{ids -ANAU$bmvAmthP7L7xwpX8}#)) - (lambda (#{x -ANAU$bmvAmthP7L7xwpX@}# - #{ids -ANAU$bmvAmthP7L7xwpYA}#) + (#{cvt 12761}# + (car #{p* 13383}#) + #{n 13384}# + #{ids 13389}#)) + (lambda (#{x 13392}# #{ids 13393}#) (values - (cons #{x -ANAU$bmvAmthP7L7xwpX@}# - #{y -ANAU$bmvAmthP7L7xwpX7}#) - #{ids -ANAU$bmvAmthP7L7xwpYA}#)))))))) - (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}# - (lambda (#{x -ANAU$bmvAmthP7L7xwpYB}#) + (cons #{x 13392}# #{y 13388}#) + #{ids 13393}#)))))))) + (#{v-reverse 12760}# + (lambda (#{x 13394}#) (letrec* - ((#{loop -ANAU$bmvAmthP7L7xwpYC}# - (lambda (#{r -ANAU$bmvAmthP7L7xwpZS}# - #{x -ANAU$bmvAmthP7L7xwpZT}#) - (if (not (pair? #{x -ANAU$bmvAmthP7L7xwpZT}#)) - (values - #{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 -ANAU$bmvAmthP7L7xwpYB}#)))) - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - (lambda (#{p -ANAU$bmvAmthP7L7xwpOL}# - #{n -ANAU$bmvAmthP7L7xwpOM}# - #{ids -ANAU$bmvAmthP7L7xwpON}#) - (if (if (symbol? #{p -ANAU$bmvAmthP7L7xwpOL}#) + ((#{loop 13395}# + (lambda (#{r 13475}# #{x 13476}#) + (if (not (pair? #{x 13476}#)) + (values #{r 13475}# #{x 13476}#) + (#{loop 13395}# + (cons (car #{x 13476}#) #{r 13475}#) + (cdr #{x 13476}#)))))) + (#{loop 13395}# '() #{x 13394}#)))) + (#{cvt 12761}# + (lambda (#{p 12764}# #{n 12765}# #{ids 12766}#) + (if (if (symbol? #{p 12764}#) #t - (if (if (vector? #{p -ANAU$bmvAmthP7L7xwpOL}#) - (if (= (vector-length - #{p -ANAU$bmvAmthP7L7xwpOL}#) - 4) - (eq? (vector-ref - #{p -ANAU$bmvAmthP7L7xwpOL}# - 0) + (if (if (vector? #{p 12764}#) + (if (= (vector-length #{p 12764}#) 4) + (eq? (vector-ref #{p 12764}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{p -ANAU$bmvAmthP7L7xwpOL}# 1)) + (symbol? (vector-ref #{p 12764}# 1)) #f)) - (if (#{bound-id-member? -ANAU$bmvAmthP7L7xwnN8}# - #{p -ANAU$bmvAmthP7L7xwpOL}# - #{keys -ANAU$bmvAmthP7L7xwpOF}#) + (if (#{bound-id-member? 4514}# + #{p 12764}# + #{keys 12758}#) (values - (vector 'free-id #{p -ANAU$bmvAmthP7L7xwpOL}#) - #{ids -ANAU$bmvAmthP7L7xwpON}#) - (if (if (eq? (if (if (vector? - #{p -ANAU$bmvAmthP7L7xwpOL}#) - (if (= (vector-length - #{p -ANAU$bmvAmthP7L7xwpOL}#) + (vector 'free-id #{p 12764}#) + #{ids 12766}#) + (if (if (eq? (if (if (vector? #{p 12764}#) + (if (= (vector-length #{p 12764}#) 4) - (eq? (vector-ref - #{p -ANAU$bmvAmthP7L7xwpOL}# - 0) + (eq? (vector-ref #{p 12764}# 0) 'syntax-object) #f) #f) - (vector-ref - #{p -ANAU$bmvAmthP7L7xwpOL}# - 1) - #{p -ANAU$bmvAmthP7L7xwpOL}#) + (vector-ref #{p 12764}# 1) + #{p 12764}#) (if (if (= (vector-length '#(syntax-object _ @@ -12279,15 +11399,20 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("169" "16a" "16b")) + #("l-*-3860" + "l-*-3861" + "l-*-3862")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("15x" "15w" "15v")) + ("l-*-3833" + "l-*-3831" + "l-*-3829")) #(ribcage #(pattern keys) #((top) (top)) - #("15t" "15u")) + #("l-*-3827" + "l-*-3828")) #(ribcage (gen-syntax-case gen-clause @@ -12297,10 +11422,10 @@ (top) (top) (top)) - ("15s" - "15r" - "15q" - "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -12414,7 +11539,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -12582,152 +11707,154 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) #t @@ -12740,22 +11867,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("169" "16a" "16b")) + #("l-*-3860" + "l-*-3861" + "l-*-3862")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("15x" "15w" "15v")) + ("l-*-3833" + "l-*-3831" + "l-*-3829")) #(ribcage #(pattern keys) #((top) (top)) - #("15t" "15u")) + #("l-*-3827" "l-*-3828")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -12869,7 +12003,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -13037,157 +12171,155 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{p -ANAU$bmvAmthP7L7xwpOL}# - '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (eq? (#{id-var-name 4505}# #{p 12764}# '(())) + (#{id-var-name 4505}# '#(syntax-object _ ((top) @@ -13195,22 +12327,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("169" "16a" "16b")) + #("l-*-3860" + "l-*-3861" + "l-*-3862")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("15x" "15w" "15v")) + ("l-*-3833" + "l-*-3831" + "l-*-3829")) #(ribcage #(pattern keys) #((top) (top)) - #("15t" "15u")) + #("l-*-3827" "l-*-3828")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -13324,7 +12463,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -13492,200 +12631,190 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(()))) #f) - (values '_ #{ids -ANAU$bmvAmthP7L7xwpON}#) + (values '_ #{ids 12766}#) (values 'any - (cons (cons #{p -ANAU$bmvAmthP7L7xwpOL}# - #{n -ANAU$bmvAmthP7L7xwpOM}#) - #{ids -ANAU$bmvAmthP7L7xwpON}#)))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwpTN}# - ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwpOL}# - '(any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwpTN}# + (cons (cons #{p 12764}# #{n 12765}#) + #{ids 12766}#)))) + (let ((#{tmp 13086}# + ($sc-dispatch #{p 12764}# '(any any)))) + (if (if #{tmp 13086}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwpTR}# - #{dots -ANAU$bmvAmthP7L7xwpTS}#) - (if (if (if (vector? - #{dots -ANAU$bmvAmthP7L7xwpTS}#) + (lambda (#{x 13090}# #{dots 13091}#) + (if (if (if (vector? #{dots 13091}#) (if (= (vector-length - #{dots -ANAU$bmvAmthP7L7xwpTS}#) + #{dots 13091}#) 4) (eq? (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpTS}# + #{dots 13091}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpTS}# - 1)) + (vector-ref #{dots 13091}# 1)) #f) - (if (eq? (if (if (vector? - #{dots -ANAU$bmvAmthP7L7xwpTS}#) + (if (eq? (if (if (vector? #{dots 13091}#) (if (= (vector-length - #{dots -ANAU$bmvAmthP7L7xwpTS}#) + #{dots 13091}#) 4) (eq? (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpTS}# + #{dots 13091}# 0) 'syntax-object) #f) #f) - (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpTS}# - 1) - #{dots -ANAU$bmvAmthP7L7xwpTS}#) + (vector-ref #{dots 13091}# 1) + #{dots 13091}#) (if (if (= (vector-length '#(syntax-object ... @@ -13701,7 +12830,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -13815,7 +12944,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -13983,146 +13112,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -14130,9 +13259,9 @@ ((top) (top) (top)) - ("8" - "7" - "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -14147,7 +13276,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -14261,7 +13390,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -14429,157 +13558,159 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{dots -ANAU$bmvAmthP7L7xwpTS}# + (eq? (#{id-var-name 4505}# + #{dots 13091}# '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (#{id-var-name 4505}# '#(syntax-object ... ((top) @@ -14588,7 +13719,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -14702,7 +13833,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -14870,218 +14001,212 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp -ANAU$bmvAmthP7L7xwpTN}#) + #{tmp 13086}#) #f) (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwpU2}# - #{dots -ANAU$bmvAmthP7L7xwpU3}#) + (lambda (#{x 13191}# #{dots 13192}#) (call-with-values (lambda () - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - #{x -ANAU$bmvAmthP7L7xwpU2}# - (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#) - #{ids -ANAU$bmvAmthP7L7xwpON}#)) - (lambda (#{p -ANAU$bmvAmthP7L7xwpU4}# - #{ids -ANAU$bmvAmthP7L7xwpU5}#) + (#{cvt 12761}# + #{x 13191}# + (#{1+}# #{n 12765}#) + #{ids 12766}#)) + (lambda (#{p 13193}# #{ids 13194}#) (values - (if (eq? #{p -ANAU$bmvAmthP7L7xwpU4}# - 'any) + (if (eq? #{p 13193}# 'any) 'each-any - (vector - 'each - #{p -ANAU$bmvAmthP7L7xwpU4}#)) - #{ids -ANAU$bmvAmthP7L7xwpU5}#)))) - #{tmp -ANAU$bmvAmthP7L7xwpTN}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwpU6}# + (vector 'each #{p 13193}#)) + #{ids 13194}#)))) + #{tmp 13086}#) + (let ((#{tmp 13195}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwpOL}# + #{p 12764}# '(any any . any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwpU6}# + (if (if #{tmp 13195}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwpU$}# - #{dots -ANAU$bmvAmthP7L7xwpU@}# - #{ys -ANAU$bmvAmthP7L7xwpVA}#) - (if (if (if (vector? - #{dots -ANAU$bmvAmthP7L7xwpU@}#) + (lambda (#{x 13199}# + #{dots 13200}# + #{ys 13201}#) + (if (if (if (vector? #{dots 13200}#) (if (= (vector-length - #{dots -ANAU$bmvAmthP7L7xwpU@}#) + #{dots 13200}#) 4) (eq? (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpU@}# + #{dots 13200}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpU@}# - 1)) + (vector-ref #{dots 13200}# 1)) #f) (if (eq? (if (if (vector? - #{dots -ANAU$bmvAmthP7L7xwpU@}#) + #{dots 13200}#) (if (= (vector-length - #{dots -ANAU$bmvAmthP7L7xwpU@}#) + #{dots 13200}#) 4) (eq? (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpU@}# + #{dots 13200}# 0) 'syntax-object) #f) #f) (vector-ref - #{dots -ANAU$bmvAmthP7L7xwpU@}# + #{dots 13200}# 1) - #{dots -ANAU$bmvAmthP7L7xwpU@}#) + #{dots 13200}#) (if (if (= (vector-length '#(syntax-object ... @@ -15097,7 +14222,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -15211,7 +14336,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -15379,146 +14504,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -15526,9 +14651,9 @@ ((top) (top) (top)) - ("8" - "7" - "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -15543,7 +14668,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -15657,7 +14782,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -15825,157 +14950,159 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{dots -ANAU$bmvAmthP7L7xwpU@}# + (eq? (#{id-var-name 4505}# + #{dots 13200}# '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (#{id-var-name 4505}# '#(syntax-object ... ((top) @@ -15984,7 +15111,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -16098,7 +15225,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -16266,281 +15393,269 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)) - #{tmp -ANAU$bmvAmthP7L7xwpU6}#) + #{tmp 13195}#) #f) (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwpWk}# - #{dots -ANAU$bmvAmthP7L7xwpWl}# - #{ys -ANAU$bmvAmthP7L7xwpWm}#) + (lambda (#{x 13301}# + #{dots 13302}# + #{ys 13303}#) (call-with-values (lambda () - (#{cvt* -ANAU$bmvAmthP7L7xwpOG}# - #{ys -ANAU$bmvAmthP7L7xwpWm}# - #{n -ANAU$bmvAmthP7L7xwpOM}# - #{ids -ANAU$bmvAmthP7L7xwpON}#)) - (lambda (#{ys -ANAU$bmvAmthP7L7xwpWp}# - #{ids -ANAU$bmvAmthP7L7xwpWq}#) + (#{cvt* 12759}# + #{ys 13303}# + #{n 12765}# + #{ids 12766}#)) + (lambda (#{ys 13306}# #{ids 13307}#) (call-with-values (lambda () - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - #{x -ANAU$bmvAmthP7L7xwpWk}# - (#{1+}# #{n -ANAU$bmvAmthP7L7xwpOM}#) - #{ids -ANAU$bmvAmthP7L7xwpWq}#)) - (lambda (#{x -ANAU$bmvAmthP7L7xwpWr}# - #{ids -ANAU$bmvAmthP7L7xwpWs}#) + (#{cvt 12761}# + #{x 13301}# + (#{1+}# #{n 12765}#) + #{ids 13307}#)) + (lambda (#{x 13308}# #{ids 13309}#) (call-with-values (lambda () - (#{v-reverse -ANAU$bmvAmthP7L7xwpOH}# - #{ys -ANAU$bmvAmthP7L7xwpWp}#)) - (lambda (#{ys -ANAU$bmvAmthP7L7xwpXN}# - #{e -ANAU$bmvAmthP7L7xwpXO}#) + (#{v-reverse 12760}# + #{ys 13306}#)) + (lambda (#{ys 13342}# + #{e 13343}#) (values (vector 'each+ - #{x -ANAU$bmvAmthP7L7xwpWr}# - #{ys -ANAU$bmvAmthP7L7xwpXN}# - #{e -ANAU$bmvAmthP7L7xwpXO}#) - #{ids -ANAU$bmvAmthP7L7xwpWs}#)))))))) - #{tmp -ANAU$bmvAmthP7L7xwpU6}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwpXP}# + #{x 13308}# + #{ys 13342}# + #{e 13343}#) + #{ids 13309}#)))))))) + #{tmp 13195}#) + (let ((#{tmp 13344}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwpOL}# + #{p 12764}# '(any . any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwpXP}# + (if #{tmp 13344}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwpXT}# - #{y -ANAU$bmvAmthP7L7xwpXU}#) + (lambda (#{x 13348}# #{y 13349}#) (call-with-values (lambda () - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - #{y -ANAU$bmvAmthP7L7xwpXU}# - #{n -ANAU$bmvAmthP7L7xwpOM}# - #{ids -ANAU$bmvAmthP7L7xwpON}#)) - (lambda (#{y -ANAU$bmvAmthP7L7xwpXV}# - #{ids -ANAU$bmvAmthP7L7xwpXW}#) + (#{cvt 12761}# + #{y 13349}# + #{n 12765}# + #{ids 12766}#)) + (lambda (#{y 13350}# #{ids 13351}#) (call-with-values (lambda () - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - #{x -ANAU$bmvAmthP7L7xwpXT}# - #{n -ANAU$bmvAmthP7L7xwpOM}# - #{ids -ANAU$bmvAmthP7L7xwpXW}#)) - (lambda (#{x -ANAU$bmvAmthP7L7xwpXX}# - #{ids -ANAU$bmvAmthP7L7xwpXY}#) + (#{cvt 12761}# + #{x 13348}# + #{n 12765}# + #{ids 13351}#)) + (lambda (#{x 13352}# + #{ids 13353}#) (values - (cons #{x -ANAU$bmvAmthP7L7xwpXX}# - #{y -ANAU$bmvAmthP7L7xwpXV}#) - #{ids -ANAU$bmvAmthP7L7xwpXY}#)))))) - #{tmp -ANAU$bmvAmthP7L7xwpXP}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwpXZ}# - ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwpOL}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xwpXZ}# + (cons #{x 13352}# + #{y 13350}#) + #{ids 13353}#)))))) + #{tmp 13344}#) + (let ((#{tmp 13354}# + ($sc-dispatch #{p 12764}# '()))) + (if #{tmp 13354}# (@apply (lambda () - (values - '() - #{ids -ANAU$bmvAmthP7L7xwpON}#)) - #{tmp -ANAU$bmvAmthP7L7xwpXZ}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwpXd}# + (values '() #{ids 12766}#)) + #{tmp 13354}#) + (let ((#{tmp 13358}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwpOL}# + #{p 12764}# '#(vector each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwpXd}# + (if #{tmp 13358}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwpXh}#) + (lambda (#{x 13362}#) (call-with-values (lambda () - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - #{x -ANAU$bmvAmthP7L7xwpXh}# - #{n -ANAU$bmvAmthP7L7xwpOM}# - #{ids -ANAU$bmvAmthP7L7xwpON}#)) - (lambda (#{p -ANAU$bmvAmthP7L7xwpXi}# - #{ids -ANAU$bmvAmthP7L7xwpXj}#) + (#{cvt 12761}# + #{x 13362}# + #{n 12765}# + #{ids 12766}#)) + (lambda (#{p 13363}# + #{ids 13364}#) (values (vector 'vector - #{p -ANAU$bmvAmthP7L7xwpXi}#) - #{ids -ANAU$bmvAmthP7L7xwpXj}#)))) - #{tmp -ANAU$bmvAmthP7L7xwpXd}#) + #{p 13363}#) + #{ids 13364}#)))) + #{tmp 13358}#) (values (vector 'atom - (#{strip -ANAU$bmvAmthP7L7xwnOR}# - #{p -ANAU$bmvAmthP7L7xwpOL}# + (#{strip 4535}# + #{p 12764}# '(()))) - #{ids -ANAU$bmvAmthP7L7xwpON}#))))))))))))))) - (#{cvt -ANAU$bmvAmthP7L7xwpOI}# - #{pattern -ANAU$bmvAmthP7L7xwpOE}# - 0 - '())))) - (#{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}#))) + #{ids 12766}#))))))))))))))) + (#{cvt 12761}# #{pattern 12757}# 0 '())))) + (#{build-dispatch-call 11161}# + (lambda (#{pvars 13477}# + #{exp 13478}# + #{y 13479}# + #{r 13480}# + #{mod 13481}#) + (let ((#{ids 13482}# (map car #{pvars 13477}#))) (begin - (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@}# + (map cdr #{pvars 13477}#) + (let ((#{labels 13484}# + (#{gen-labels 4489}# #{ids 13482}#)) + (#{new-vars 13485}# + (map #{gen-var 4536}# #{ids 13482}#))) + (#{build-application 4453}# #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -16553,89 +15668,81 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# + (list (#{build-simple-lambda 4462}# #f - (map syntax->datum - #{ids -ANAU$bmvAmthP7L7xwpZZ}#) + (map syntax->datum #{ids 13482}#) #f - #{new-vars -ANAU$bmvAmthP7L7xwpZc}# + #{new-vars 13485}# '() - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - #{exp -ANAU$bmvAmthP7L7xwpZV}# - (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# - #{labels -ANAU$bmvAmthP7L7xwpZb}# - (map (lambda (#{var -ANAU$bmvAmthP7L7xwpeb}# - #{level -ANAU$bmvAmthP7L7xwpec}#) + (#{expand 4522}# + #{exp 13478}# + (#{extend-env 4480}# + #{labels 13484}# + (map (lambda (#{var 13808}# #{level 13809}#) (cons 'syntax - (cons #{var -ANAU$bmvAmthP7L7xwpeb}# - #{level -ANAU$bmvAmthP7L7xwpec}#))) - #{new-vars -ANAU$bmvAmthP7L7xwpZc}# - (map cdr - #{pvars -ANAU$bmvAmthP7L7xwpZU}#)) - #{r -ANAU$bmvAmthP7L7xwpZX}#) - (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# - #{ids -ANAU$bmvAmthP7L7xwpZZ}# - #{labels -ANAU$bmvAmthP7L7xwpZb}# + (cons #{var 13808}# + #{level 13809}#))) + #{new-vars 13485}# + (map cdr #{pvars 13477}#)) + #{r 13480}#) + (#{make-binding-wrap 4500}# + #{ids 13482}# + #{labels 13484}# '(())) - #{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}#) + #{mod 13481}#)) + #{y 13479}#))))))) + (#{gen-clause 11162}# + (lambda (#{x 12129}# + #{keys 12130}# + #{clauses 12131}# + #{r 12132}# + #{pat 12133}# + #{fender 12134}# + #{exp 12135}# + #{mod 12136}#) (call-with-values (lambda () - (#{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}#))) + (#{convert-pattern 11160}# + #{pat 12133}# + #{keys 12130}#)) + (lambda (#{p 12291}# #{pvars 12292}#) + (if (not (#{distinct-bound-ids? 4513}# + (map car #{pvars 12292}#))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat -ANAU$bmvAmthP7L7xwpEU}#) + #{pat 12133}#) (if (not (and-map - (lambda (#{x -ANAU$bmvAmthP7L7xwpIn}#) - (not (let ((#{x -ANAU$bmvAmthP7L7xwpIr}# - (car #{x -ANAU$bmvAmthP7L7xwpIn}#))) - (if (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwpIr}#) + (lambda (#{x 12408}#) + (not (let ((#{x 12412}# (car #{x 12408}#))) + (if (if (if (vector? #{x 12412}#) (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwpIr}#) + #{x 12412}#) 4) (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwpIr}# + #{x 12412}# 0) 'syntax-object) #f) #f) (symbol? - (vector-ref - #{x -ANAU$bmvAmthP7L7xwpIr}# - 1)) + (vector-ref #{x 12412}# 1)) #f) (if (eq? (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwpIr}#) + #{x 12412}#) (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwpIr}#) + #{x 12412}#) 4) (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwpIr}# + #{x 12412}# 0) 'syntax-object) #f) #f) (vector-ref - #{x -ANAU$bmvAmthP7L7xwpIr}# + #{x 12412}# 1) - #{x -ANAU$bmvAmthP7L7xwpIr}#) + #{x 12412}#) (if (if (= (vector-length '#(syntax-object ... @@ -16651,7 +15758,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -16765,7 +15872,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -16933,146 +16040,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -17080,9 +16187,9 @@ ((top) (top) (top)) - ("8" - "7" - "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -17097,7 +16204,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -17211,7 +16318,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -17379,157 +16486,159 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{x -ANAU$bmvAmthP7L7xwpIr}# + (eq? (#{id-var-name 4505}# + #{x 12412}# '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (#{id-var-name 4505}# '#(syntax-object ... ((top) @@ -17538,7 +16647,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -17652,7 +16761,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -17820,194 +16929,194 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)))) - #{pvars -ANAU$bmvAmthP7L7xwpGz}#)) + #{pvars 12292}#)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat -ANAU$bmvAmthP7L7xwpEU}#) - (let ((#{y -ANAU$bmvAmthP7L7xwpJ3}# + #{pat 12133}#) + (let ((#{y 12488}# (gensym - (string-append (symbol->string 'tmp) " ")))) - (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + (string-append (symbol->string 'tmp) "-")))) + (#{build-application 4453}# #f - (let ((#{req -ANAU$bmvAmthP7L7xwpMG}# (list 'tmp)) - (#{vars -ANAU$bmvAmthP7L7xwpMI}# - (list #{y -ANAU$bmvAmthP7L7xwpJ3}#)) - (#{exp -ANAU$bmvAmthP7L7xwpMK}# - (let ((#{y -ANAU$bmvAmthP7L7xwpMb}# + (let ((#{req 12631}# (list 'tmp)) + (#{vars 12633}# (list #{y 12488}#)) + (#{exp 12635}# + (let ((#{y 12652}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y -ANAU$bmvAmthP7L7xwpJ3}#))) - (let ((#{test-exp -ANAU$bmvAmthP7L7xwpMf}# - (let ((#{tmp -ANAU$bmvAmthP7L7xwpMo}# + #{y 12488}#))) + (let ((#{test-exp 12656}# + (let ((#{tmp 12665}# ($sc-dispatch - #{fender -ANAU$bmvAmthP7L7xwpEV}# + #{fender 12134}# '#(atom #t)))) - (if #{tmp -ANAU$bmvAmthP7L7xwpMo}# + (if #{tmp 12665}# (@apply - (lambda () - #{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}# + (lambda () #{y 12652}#) + #{tmp 12665}#) + (let ((#{then-exp 12683}# + (#{build-dispatch-call 11161}# + #{pvars 12292}# + #{fender 12134}# + #{y 12652}# + #{r 12132}# + #{mod 12136}#)) + (#{else-exp 12684}# (make-struct/no-tail (vector-ref %expanded-vtables @@ -18019,48 +17128,48 @@ %expanded-vtables 10) #f - #{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}#))) + #{y 12652}# + #{then-exp 12683}# + #{else-exp 12684}#))))) + (#{then-exp 12657}# + (#{build-dispatch-call 11161}# + #{pvars 12292}# + #{exp 12135}# + #{y 12652}# + #{r 12132}# + #{mod 12136}#)) + (#{else-exp 12658}# + (#{gen-syntax-case 11163}# + #{x 12129}# + #{keys 12130}# + #{clauses 12131}# + #{r 12132}# + #{mod 12136}#))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp -ANAU$bmvAmthP7L7xwpMf}# - #{then-exp -ANAU$bmvAmthP7L7xwpMg}# - #{else-exp -ANAU$bmvAmthP7L7xwpMh}#))))) - (let ((#{body -ANAU$bmvAmthP7L7xwpMP}# + #{test-exp 12656}# + #{then-exp 12657}# + #{else-exp 12658}#))))) + (let ((#{body 12640}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req -ANAU$bmvAmthP7L7xwpMG}# + #{req 12631}# #f #f #f '() - #{vars -ANAU$bmvAmthP7L7xwpMI}# - #{exp -ANAU$bmvAmthP7L7xwpMK}# + #{vars 12633}# + #{exp 12635}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body -ANAU$bmvAmthP7L7xwpMP}#))) - (list (if (eq? #{p -ANAU$bmvAmthP7L7xwpGy}# 'any) - (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNR}# + #{body 12640}#))) + (list (if (eq? #{p 12291}# 'any) + (let ((#{fun-exp 12706}# (if (equal? (module-name (current-module)) '(guile)) @@ -18074,14 +17183,14 @@ '(guile) 'list #f))) - (#{arg-exps -ANAU$bmvAmthP7L7xwpNS}# - (list #{x -ANAU$bmvAmthP7L7xwpEQ}#))) + (#{arg-exps 12707}# + (list #{x 12129}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp -ANAU$bmvAmthP7L7xwpNR}# - #{arg-exps -ANAU$bmvAmthP7L7xwpNS}#)) - (let ((#{fun-exp -ANAU$bmvAmthP7L7xwpNp}# + #{fun-exp 12706}# + #{arg-exps 12707}#)) + (let ((#{fun-exp 12730}# (if (equal? (module-name (current-module)) '(guile)) @@ -18095,27 +17204,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps -ANAU$bmvAmthP7L7xwpNq}# - (list #{x -ANAU$bmvAmthP7L7xwpEQ}# + (#{arg-exps 12731}# + (list #{x 12129}# (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p -ANAU$bmvAmthP7L7xwpGy}#)))) + #{p 12291}#)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{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}# + #{fun-exp 12730}# + #{arg-exps 12731}#)))))))))))) + (#{gen-syntax-case 11163}# + (lambda (#{x 11562}# + #{keys 11563}# + #{clauses 11564}# + #{r 11565}# + #{mod 11566}#) + (if (null? #{clauses 11564}#) + (let ((#{fun-exp 11571}# (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -18127,7 +17236,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps -ANAU$bmvAmthP7L7xwo7l}# + (#{arg-exps 11572}# (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -18136,77 +17245,64 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x -ANAU$bmvAmthP7L7xwo7b}#))) + #{x 11562}#))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp -ANAU$bmvAmthP7L7xwo7k}# - #{arg-exps -ANAU$bmvAmthP7L7xwo7l}#)) - (let ((#{tmp -ANAU$bmvAmthP7L7xwo8G}# - (car #{clauses -ANAU$bmvAmthP7L7xwo7d}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwo8H}# - ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwo8G}# - '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwo8H}# + #{fun-exp 11571}# + #{arg-exps 11572}#)) + (let ((#{tmp 11605}# (car #{clauses 11564}#))) + (let ((#{tmp 11606}# + ($sc-dispatch #{tmp 11605}# '(any any)))) + (if #{tmp 11606}# (@apply - (lambda (#{pat -ANAU$bmvAmthP7L7xwo8J}# - #{exp -ANAU$bmvAmthP7L7xwo8K}#) - (if (if (if (symbol? #{pat -ANAU$bmvAmthP7L7xwo8J}#) + (lambda (#{pat 11608}# #{exp 11609}#) + (if (if (if (symbol? #{pat 11608}#) #t - (if (if (vector? - #{pat -ANAU$bmvAmthP7L7xwo8J}#) - (if (= (vector-length - #{pat -ANAU$bmvAmthP7L7xwo8J}#) + (if (if (vector? #{pat 11608}#) + (if (= (vector-length #{pat 11608}#) 4) - (eq? (vector-ref - #{pat -ANAU$bmvAmthP7L7xwo8J}# - 0) + (eq? (vector-ref #{pat 11608}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{pat -ANAU$bmvAmthP7L7xwo8J}# - 1)) + (symbol? (vector-ref #{pat 11608}# 1)) #f)) (and-map - (lambda (#{x -ANAU$bmvAmthP7L7xwo8l}#) + (lambda (#{x 11636}#) (not (if (eq? (if (if (vector? - #{pat -ANAU$bmvAmthP7L7xwo8J}#) + #{pat 11608}#) (if (= (vector-length - #{pat -ANAU$bmvAmthP7L7xwo8J}#) + #{pat 11608}#) 4) (eq? (vector-ref - #{pat -ANAU$bmvAmthP7L7xwo8J}# + #{pat 11608}# 0) 'syntax-object) #f) #f) (vector-ref - #{pat -ANAU$bmvAmthP7L7xwo8J}# + #{pat 11608}# 1) - #{pat -ANAU$bmvAmthP7L7xwo8J}#) + #{pat 11608}#) (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwo8l}#) + #{x 11636}#) (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwo8l}#) + #{x 11636}#) 4) (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwo8l}# + #{x 11636}# 0) 'syntax-object) #f) #f) - (vector-ref - #{x -ANAU$bmvAmthP7L7xwo8l}# - 1) - #{x -ANAU$bmvAmthP7L7xwo8l}#)) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{pat -ANAU$bmvAmthP7L7xwo8J}# + (vector-ref #{x 11636}# 1) + #{x 11636}#)) + (eq? (#{id-var-name 4505}# + #{pat 11608}# '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{x -ANAU$bmvAmthP7L7xwo8l}# + (#{id-var-name 4505}# + #{x 11636}# '(()))) #f))) (cons '#(syntax-object @@ -18215,23 +17311,26 @@ #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" "l-*-4025")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -18345,7 +17444,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -18513,154 +17612,154 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - #{keys -ANAU$bmvAmthP7L7xwo7c}#)) + #{keys 11563}#)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -18669,7 +17768,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" + "l-*-4025")) #(ribcage () () ()) #(ribcage #(x @@ -18682,11 +17782,11 @@ (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause @@ -18696,10 +17796,10 @@ (top) (top) (top)) - ("15s" - "15r" - "15q" - "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -18813,7 +17913,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -18981,146 +18081,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -19128,7 +18228,9 @@ ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) #t @@ -19140,7 +18242,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" "l-*-4025")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19149,18 +18251,21 @@ (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -19274,7 +18379,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -19442,152 +18547,154 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -19596,7 +18703,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" + "l-*-4025")) #(ribcage () () ()) #(ribcage #(x @@ -19609,11 +18717,11 @@ (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause @@ -19623,10 +18731,10 @@ (top) (top) (top)) - ("15s" - "15r" - "15q" - "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -19740,7 +18848,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -19908,146 +19016,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -20055,7 +19163,9 @@ ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) #t @@ -20067,7 +19177,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" "l-*-4025")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20076,18 +19186,21 @@ (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -20201,7 +19314,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -20369,161 +19482,163 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (eq? (#{id-var-name 4505}# '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" "l-*-4025")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20532,18 +19647,21 @@ (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -20657,7 +19775,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -20825,162 +19943,162 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (#{id-var-name 4505}# '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("17y" "17z")) + #("l-*-4024" "l-*-4025")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -20989,18 +20107,21 @@ (top) (top) (top)) - #("17t" - "17u" - "17v" - "17w" - "17x")) + #("l-*-4013" + "l-*-4014" + "l-*-4015" + "l-*-4016" + "l-*-4017")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("15s" "15r" "15q" "15p")) + ("l-*-3823" + "l-*-3821" + "l-*-3819" + "l-*-3817")) #(ribcage (lambda-var-list gen-var @@ -21114,7 +20235,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -21282,317 +20403,291 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(()))) #f) - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - #{exp -ANAU$bmvAmthP7L7xwo8K}# - #{r -ANAU$bmvAmthP7L7xwo7e}# + (#{expand 4522}# + #{exp 11609}# + #{r 11565}# '(()) - #{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 -ANAU$bmvAmthP7L7xwo8J}#) + #{mod 11566}#) + (let ((#{labels 11812}# + (list (string-append + "l-" + (#{session-id 4447}#) + (symbol->string (gensym "-"))))) + (#{var 11813}# + (let ((#{id 11851}# + (if (if (vector? #{pat 11608}#) (if (= (vector-length - #{pat -ANAU$bmvAmthP7L7xwo8J}#) + #{pat 11608}#) 4) (eq? (vector-ref - #{pat -ANAU$bmvAmthP7L7xwo8J}# + #{pat 11608}# 0) 'syntax-object) #f) #f) - (vector-ref - #{pat -ANAU$bmvAmthP7L7xwo8J}# - 1) - #{pat -ANAU$bmvAmthP7L7xwo8J}#))) + (vector-ref #{pat 11608}# 1) + #{pat 11608}#))) (gensym (string-append - (symbol->string - #{id -ANAU$bmvAmthP7L7xwo@8}#) - " "))))) - (#{build-application -ANAU$bmvAmthP7L7xwnM@}# + (symbol->string #{id 11851}#) + "-"))))) + (#{build-application 4453}# #f - (#{build-simple-lambda -ANAU$bmvAmthP7L7xwnNI}# + (#{build-simple-lambda 4462}# #f - (list (syntax->datum - #{pat -ANAU$bmvAmthP7L7xwo8J}#)) + (list (syntax->datum #{pat 11608}#)) #f - (list #{var -ANAU$bmvAmthP7L7xwo@W}#) + (list #{var 11813}#) '() - (#{expand -ANAU$bmvAmthP7L7xwnOE}# - #{exp -ANAU$bmvAmthP7L7xwo8K}# - (#{extend-env -ANAU$bmvAmthP7L7xwnNa}# - #{labels -ANAU$bmvAmthP7L7xwo@V}# + (#{expand 4522}# + #{exp 11609}# + (#{extend-env 4480}# + #{labels 11812}# (list (cons 'syntax - (cons #{var -ANAU$bmvAmthP7L7xwo@W}# - 0))) - #{r -ANAU$bmvAmthP7L7xwo7e}#) - (#{make-binding-wrap -ANAU$bmvAmthP7L7xwnNu}# - (list #{pat -ANAU$bmvAmthP7L7xwo8J}#) - #{labels -ANAU$bmvAmthP7L7xwo@V}# + (cons #{var 11813}# 0))) + #{r 11565}#) + (#{make-binding-wrap 4500}# + (list #{pat 11608}#) + #{labels 11812}# '(())) - #{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}# + #{mod 11566}#)) + (list #{x 11562}#)))) + (#{gen-clause 11162}# + #{x 11562}# + #{keys 11563}# + (cdr #{clauses 11564}#) + #{r 11565}# + #{pat 11608}# #t - #{exp -ANAU$bmvAmthP7L7xwo8K}# - #{mod -ANAU$bmvAmthP7L7xwo7f}#))) - #{tmp -ANAU$bmvAmthP7L7xwo8H}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwpEI}# - ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwo8G}# - '(any any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwpEI}# + #{exp 11609}# + #{mod 11566}#))) + #{tmp 11606}#) + (let ((#{tmp 12121}# + ($sc-dispatch #{tmp 11605}# '(any any any)))) + (if #{tmp 12121}# (@apply - (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}#) + (lambda (#{pat 12123}# + #{fender 12124}# + #{exp 12125}#) + (#{gen-clause 11162}# + #{x 11562}# + #{keys 11563}# + (cdr #{clauses 11564}#) + #{r 11565}# + #{pat 12123}# + #{fender 12124}# + #{exp 12125}# + #{mod 11566}#)) + #{tmp 12121}#) (syntax-violation 'syntax-case "invalid clause" - (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}# + (car #{clauses 11564}#))))))))))) + (lambda (#{e 11164}# + #{r 11165}# + #{w 11166}# + #{s 11167}# + #{mod 11168}#) + (let ((#{e 11169}# + (#{wrap 4515}# (begin - (if (if (pair? #{e -ANAU$bmvAmthP7L7xwo1N}#) - #{s -ANAU$bmvAmthP7L7xwo1Q}# - #f) - (set-source-properties! - #{e -ANAU$bmvAmthP7L7xwo1N}# - #{s -ANAU$bmvAmthP7L7xwo1Q}#)) - #{e -ANAU$bmvAmthP7L7xwo1N}#) - #{w -ANAU$bmvAmthP7L7xwo1P}# - #{mod -ANAU$bmvAmthP7L7xwo1R}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwo1U}# + (if (if (pair? #{e 11164}#) #{s 11167}# #f) + (set-source-properties! #{e 11164}# #{s 11167}#)) + #{e 11164}#) + #{w 11166}# + #{mod 11168}#))) + (let ((#{tmp 11171}# ($sc-dispatch - #{e -ANAU$bmvAmthP7L7xwo1S}# + #{e 11169}# '(_ any each-any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwo1U}# + (if #{tmp 11171}# (@apply - (lambda (#{val -ANAU$bmvAmthP7L7xwo1t}# - #{key -ANAU$bmvAmthP7L7xwo1u}# - #{m -ANAU$bmvAmthP7L7xwo1v}#) + (lambda (#{val 11196}# #{key 11197}# #{m 11198}#) (if (and-map - (lambda (#{x -ANAU$bmvAmthP7L7xwo1w}#) - (if (if (symbol? #{x -ANAU$bmvAmthP7L7xwo1w}#) + (lambda (#{x 11199}#) + (if (if (symbol? #{x 11199}#) #t - (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwo1w}#) - (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwo1w}#) - 4) - (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwo1w}# - 0) + (if (if (vector? #{x 11199}#) + (if (= (vector-length #{x 11199}#) 4) + (eq? (vector-ref #{x 11199}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{x -ANAU$bmvAmthP7L7xwo1w}# - 1)) + (symbol? (vector-ref #{x 11199}# 1)) #f)) - (not (if (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwo1w}#) + (not (if (if (if (vector? #{x 11199}#) (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwo1w}#) + #{x 11199}#) 4) (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwo1w}# + #{x 11199}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{x -ANAU$bmvAmthP7L7xwo1w}# - 1)) + (symbol? (vector-ref #{x 11199}# 1)) #f) - (if (eq? (if (if (vector? - #{x -ANAU$bmvAmthP7L7xwo1w}#) + (if (eq? (if (if (vector? #{x 11199}#) (if (= (vector-length - #{x -ANAU$bmvAmthP7L7xwo1w}#) + #{x 11199}#) 4) (eq? (vector-ref - #{x -ANAU$bmvAmthP7L7xwo1w}# + #{x 11199}# 0) 'syntax-object) #f) #f) - (vector-ref - #{x -ANAU$bmvAmthP7L7xwo1w}# - 1) - #{x -ANAU$bmvAmthP7L7xwo1w}#) + (vector-ref #{x 11199}# 1) + #{x 11199}#) (if (if (= (vector-length '#(syntax-object ... @@ -21608,7 +20703,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -21722,7 +20817,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -21890,146 +20985,146 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors @@ -22037,9 +21132,9 @@ ((top) (top) (top)) - ("8" - "7" - "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile))) 4) @@ -22054,7 +21149,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -22168,7 +21263,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -22336,157 +21431,159 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{x -ANAU$bmvAmthP7L7xwo1w}# + (eq? (#{id-var-name 4505}# + #{x 11199}# '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# + (#{id-var-name 4505}# '#(syntax-object ... ((top) @@ -22495,7 +21592,7 @@ #(ribcage #(x) #((top)) - #("p6")) + #("l-*-2343")) #(ribcage (lambda-var-list gen-var @@ -22609,7 +21706,7 @@ decorate-source get-global-definition-hook put-global-definition-hook - gensym-hook + session-id local-eval-hook top-level-eval-hook fx< @@ -22777,1063 +21874,907 @@ (top) (top) (top)) - ("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")) + ("l-*-476" + "l-*-474" + "l-*-472" + "l-*-470" + "l-*-468" + "l-*-466" + "l-*-464" + "l-*-462" + "l-*-460" + "l-*-458" + "l-*-456" + "l-*-454" + "l-*-452" + "l-*-450" + "l-*-448" + "l-*-446" + "l-*-444" + "l-*-442" + "l-*-440" + "l-*-438" + "l-*-436" + "l-*-434" + "l-*-432" + "l-*-430" + "l-*-428" + "l-*-426" + "l-*-424" + "l-*-422" + "l-*-420" + "l-*-418" + "l-*-416" + "l-*-414" + "l-*-412" + "l-*-410" + "l-*-408" + "l-*-406" + "l-*-404" + "l-*-402" + "l-*-400" + "l-*-399" + "l-*-397" + "l-*-394" + "l-*-393" + "l-*-392" + "l-*-390" + "l-*-389" + "l-*-387" + "l-*-385" + "l-*-383" + "l-*-381" + "l-*-379" + "l-*-377" + "l-*-375" + "l-*-373" + "l-*-370" + "l-*-368" + "l-*-367" + "l-*-365" + "l-*-363" + "l-*-361" + "l-*-359" + "l-*-358" + "l-*-357" + "l-*-356" + "l-*-354" + "l-*-353" + "l-*-350" + "l-*-348" + "l-*-346" + "l-*-344" + "l-*-342" + "l-*-340" + "l-*-338" + "l-*-337" + "l-*-336" + "l-*-334" + "l-*-332" + "l-*-331" + "l-*-328" + "l-*-327" + "l-*-325" + "l-*-323" + "l-*-321" + "l-*-319" + "l-*-317" + "l-*-315" + "l-*-313" + "l-*-311" + "l-*-309" + "l-*-306" + "l-*-304" + "l-*-302" + "l-*-300" + "l-*-298" + "l-*-296" + "l-*-294" + "l-*-292" + "l-*-290" + "l-*-288" + "l-*-286" + "l-*-284" + "l-*-282" + "l-*-280" + "l-*-278" + "l-*-276" + "l-*-274" + "l-*-272" + "l-*-270" + "l-*-268" + "l-*-266" + "l-*-264" + "l-*-262" + "l-*-260" + "l-*-258" + "l-*-256" + "l-*-255" + "l-*-254" + "l-*-253" + "l-*-252" + "l-*-250" + "l-*-248" + "l-*-246" + "l-*-243" + "l-*-241" + "l-*-239" + "l-*-237" + "l-*-235" + "l-*-233" + "l-*-231" + "l-*-229" + "l-*-227" + "l-*-225" + "l-*-223" + "l-*-221" + "l-*-219" + "l-*-217" + "l-*-215" + "l-*-213" + "l-*-211" + "l-*-209")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("8" "7" "6"))) + ("l-*-47" + "l-*-46" + "l-*-45"))) (hygiene guile)) '(()))) #f) #f)) #f)) - #{key -ANAU$bmvAmthP7L7xwo1u}#) - (let ((#{x -ANAU$bmvAmthP7L7xwo3u}# + #{key 11197}#) + (let ((#{x 11325}# (gensym - (string-append (symbol->string 'tmp) " ")))) - (#{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}# + (string-append (symbol->string 'tmp) "-")))) + (#{build-application 4453}# + #{s 11167}# + (let ((#{req 11455}# (list 'tmp)) + (#{vars 11457}# (list #{x 11325}#)) + (#{exp 11459}# + (#{gen-syntax-case 11163}# (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x -ANAU$bmvAmthP7L7xwo3u}#) - #{key -ANAU$bmvAmthP7L7xwo1u}# - #{m -ANAU$bmvAmthP7L7xwo1v}# - #{r -ANAU$bmvAmthP7L7xwo1O}# - #{mod -ANAU$bmvAmthP7L7xwo1R}#))) - (let ((#{body -ANAU$bmvAmthP7L7xwo55}# + #{x 11325}#) + #{key 11197}# + #{m 11198}# + #{r 11165}# + #{mod 11168}#))) + (let ((#{body 11464}# (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req -ANAU$bmvAmthP7L7xwo5w}# + #{req 11455}# #f #f #f '() - #{vars -ANAU$bmvAmthP7L7xwo5y}# - #{exp -ANAU$bmvAmthP7L7xwo50}# + #{vars 11457}# + #{exp 11459}# #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body -ANAU$bmvAmthP7L7xwo55}#))) - (list (#{expand -ANAU$bmvAmthP7L7xwnOE}# - #{val -ANAU$bmvAmthP7L7xwo1t}# - #{r -ANAU$bmvAmthP7L7xwo1O}# + #{body 11464}#))) + (list (#{expand 4522}# + #{val 11196}# + #{r 11165}# '(()) - #{mod -ANAU$bmvAmthP7L7xwo1R}#)))) + #{mod 11168}#)))) (syntax-violation 'syntax-case "invalid literals list" - #{e -ANAU$bmvAmthP7L7xwo1S}#))) - #{tmp -ANAU$bmvAmthP7L7xwo1U}#) + #{e 11169}#))) + #{tmp 11171}#) (syntax-violation #f "source expression failed to match any pattern" - #{e -ANAU$bmvAmthP7L7xwo1S}#))))))) + #{e 11169}#))))))) (set! macroexpand (lambda* - (#{x -ANAU$bmvAmthP7L7xwpfh}# + (#{x 13882}# #:optional - (#{m -ANAU$bmvAmthP7L7xwpfi}# 'e) - (#{esew -ANAU$bmvAmthP7L7xwpfj}# '(eval))) - (#{expand-top-sequence -ANAU$bmvAmthP7L7xwnOA}# - (list #{x -ANAU$bmvAmthP7L7xwpfh}#) + (#{m 13883}# 'e) + (#{esew 13884}# '(eval))) + (#{expand-top-sequence 4518}# + (list #{x 13882}#) '() '((top)) #f - #{m -ANAU$bmvAmthP7L7xwpfi}# - #{esew -ANAU$bmvAmthP7L7xwpfj}# + #{m 13883}# + #{esew 13884}# (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x -ANAU$bmvAmthP7L7xwpfm}#) - (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpfm}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpfm}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 0) - 'syntax-object) + (lambda (#{x 13887}#) + (if (if (vector? #{x 13887}#) + (if (= (vector-length #{x 13887}#) 4) + (eq? (vector-ref #{x 13887}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x -ANAU$bmvAmthP7L7xwpfm}# 1)) + (symbol? (vector-ref #{x 13887}# 1)) #f))) (set! datum->syntax - (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))) + (lambda (#{id 13912}# #{datum 13913}#) + (let ((#{wrap 13918}# (vector-ref #{id 13912}# 2)) + (#{module 13919}# (vector-ref #{id 13912}# 3))) (vector 'syntax-object - #{datum -ANAU$bmvAmthP7L7xwpgA}# - #{wrap -ANAU$bmvAmthP7L7xwpgF}# - #{module -ANAU$bmvAmthP7L7xwpgG}#)))) + #{datum 13913}# + #{wrap 13918}# + #{module 13919}#)))) (set! syntax->datum - (lambda (#{x -ANAU$bmvAmthP7L7xwpgN}#) - (#{strip -ANAU$bmvAmthP7L7xwnOR}# - #{x -ANAU$bmvAmthP7L7xwpgN}# - '(())))) + (lambda (#{x 13926}#) + (#{strip 4535}# #{x 13926}# '(())))) (set! syntax-source - (lambda (#{x -ANAU$bmvAmthP7L7xwpgQ}#) - (#{source-annotation -ANAU$bmvAmthP7L7xwnNZ}# - #{x -ANAU$bmvAmthP7L7xwpgQ}#))) + (lambda (#{x 13929}#) + (#{source-annotation 4479}# #{x 13929}#))) (set! generate-temporaries - (lambda (#{ls -ANAU$bmvAmthP7L7xwpip}#) + (lambda (#{ls 14082}#) (begin - (if (not (list? #{ls -ANAU$bmvAmthP7L7xwpip}#)) + (if (not (list? #{ls 14082}#)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls -ANAU$bmvAmthP7L7xwpip}#)) - (let ((#{mod -ANAU$bmvAmthP7L7xwpix}# + #{ls 14082}#)) + (let ((#{mod 14090}# (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x -ANAU$bmvAmthP7L7xwpiy}#) - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - (gensym) + (map (lambda (#{x 14091}#) + (#{wrap 4515}# + (gensym "t-") '((top)) - #{mod -ANAU$bmvAmthP7L7xwpix}#)) - #{ls -ANAU$bmvAmthP7L7xwpip}#))))) + #{mod 14090}#)) + #{ls 14082}#))))) (set! free-identifier=? - (lambda (#{x -ANAU$bmvAmthP7L7xwpi2}# - #{y -ANAU$bmvAmthP7L7xwpi3}#) + (lambda (#{x 14095}# #{y 14096}#) (begin - (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0) - 'syntax-object) + (if (not (if (if (vector? #{x 14095}#) + (if (= (vector-length #{x 14095}#) 4) + (eq? (vector-ref #{x 14095}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 1)) + (symbol? (vector-ref #{x 14095}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x -ANAU$bmvAmthP7L7xwpi2}#)) - (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwpi3}#) - (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwpi3}#) - 4) - (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 0) - 'syntax-object) + #{x 14095}#)) + (if (not (if (if (vector? #{y 14096}#) + (if (= (vector-length #{y 14096}#) 4) + (eq? (vector-ref #{y 14096}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1)) + (symbol? (vector-ref #{y 14096}# 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y -ANAU$bmvAmthP7L7xwpi3}#)) - (if (eq? (if (if (vector? #{x -ANAU$bmvAmthP7L7xwpi2}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwpi2}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwpi2}# 0) - 'syntax-object) + #{y 14096}#)) + (if (eq? (if (if (vector? #{x 14095}#) + (if (= (vector-length #{x 14095}#) 4) + (eq? (vector-ref #{x 14095}# 0) 'syntax-object) #f) #f) - (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 -ANAU$bmvAmthP7L7xwpi3}# 0) - 'syntax-object) + (vector-ref #{x 14095}# 1) + #{x 14095}#) + (if (if (vector? #{y 14096}#) + (if (= (vector-length #{y 14096}#) 4) + (eq? (vector-ref #{y 14096}# 0) 'syntax-object) #f) #f) - (vector-ref #{y -ANAU$bmvAmthP7L7xwpi3}# 1) - #{y -ANAU$bmvAmthP7L7xwpi3}#)) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{x -ANAU$bmvAmthP7L7xwpi2}# - '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{y -ANAU$bmvAmthP7L7xwpi3}# - '(()))) + (vector-ref #{y 14096}# 1) + #{y 14096}#)) + (eq? (#{id-var-name 4505}# #{x 14095}# '(())) + (#{id-var-name 4505}# #{y 14096}# '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x -ANAU$bmvAmthP7L7xwplN}# - #{y -ANAU$bmvAmthP7L7xwplO}#) + (lambda (#{x 14246}# #{y 14247}#) (begin - (if (not (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0) - 'syntax-object) + (if (not (if (if (vector? #{x 14246}#) + (if (= (vector-length #{x 14246}#) 4) + (eq? (vector-ref #{x 14246}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 1)) + (symbol? (vector-ref #{x 14246}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x -ANAU$bmvAmthP7L7xwplN}#)) - (if (not (if (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#) - (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#) - 4) - (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0) - 'syntax-object) + #{x 14246}#)) + (if (not (if (if (vector? #{y 14247}#) + (if (= (vector-length #{y 14247}#) 4) + (eq? (vector-ref #{y 14247}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 1)) + (symbol? (vector-ref #{y 14247}# 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y -ANAU$bmvAmthP7L7xwplO}#)) - (if (if (if (vector? #{x -ANAU$bmvAmthP7L7xwplN}#) - (if (= (vector-length #{x -ANAU$bmvAmthP7L7xwplN}#) - 4) - (eq? (vector-ref #{x -ANAU$bmvAmthP7L7xwplN}# 0) - 'syntax-object) + #{y 14247}#)) + (if (if (if (vector? #{x 14246}#) + (if (= (vector-length #{x 14246}#) 4) + (eq? (vector-ref #{x 14246}# 0) 'syntax-object) #f) #f) - (if (vector? #{y -ANAU$bmvAmthP7L7xwplO}#) - (if (= (vector-length #{y -ANAU$bmvAmthP7L7xwplO}#) - 4) - (eq? (vector-ref #{y -ANAU$bmvAmthP7L7xwplO}# 0) - 'syntax-object) + (if (vector? #{y 14247}#) + (if (= (vector-length #{y 14247}#) 4) + (eq? (vector-ref #{y 14247}# 0) 'syntax-object) #f) #f) #f) - (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))) + (if (eq? (vector-ref #{x 14246}# 1) + (vector-ref #{y 14247}# 1)) + (#{same-marks? 4504}# + (car (vector-ref #{x 14246}# 2)) + (car (vector-ref #{y 14247}# 2))) #f) - (eq? #{x -ANAU$bmvAmthP7L7xwplN}# - #{y -ANAU$bmvAmthP7L7xwplO}#))))) + (eq? #{x 14246}# #{y 14247}#))))) (set! syntax-violation (lambda* - (#{who -ANAU$bmvAmthP7L7xwpnT}# - #{message -ANAU$bmvAmthP7L7xwpnU}# - #{form -ANAU$bmvAmthP7L7xwpnV}# + (#{who 14380}# + #{message 14381}# + #{form 14382}# #:optional - (#{subform -ANAU$bmvAmthP7L7xwpnW}# #f)) + (#{subform 14383}# #f)) (begin - (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}#))))) + (if (not (if (not #{who 14380}#) + (not #{who 14380}#) + (let ((#{t 14401}# (string? #{who 14380}#))) + (if #{t 14401}# + #{t 14401}# + (symbol? #{who 14380}#))))) (syntax-violation 'syntax-violation "invalid argument" - #{who -ANAU$bmvAmthP7L7xwpnT}#)) - (if (not (string? #{message -ANAU$bmvAmthP7L7xwpnU}#)) + #{who 14380}#)) + (if (not (string? #{message 14381}#)) (syntax-violation 'syntax-violation "invalid argument" - #{message -ANAU$bmvAmthP7L7xwpnU}#)) + #{message 14381}#)) (throw 'syntax-error - #{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 -ANAU$bmvAmthP7L7xwpnW}# - (#{strip -ANAU$bmvAmthP7L7xwnOR}# - #{subform -ANAU$bmvAmthP7L7xwpnW}# - '(())) + #{who 14380}# + #{message 14381}# + (#{source-annotation 4479}# + (if #{form 14382}# + #{form 14382}# + #{subform 14383}#)) + (#{strip 4535}# #{form 14382}# '(())) + (if #{subform 14383}# + (#{strip 4535}# #{subform 14383}# '(())) #f))))) (letrec* - ((#{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}# - (lambda (#{id -ANAU$bmvAmthP7L7xwps5}#) + ((#{syntax-local-binding 14605}# + (lambda (#{id 14738}#) (begin - (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwps5}#) - (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwps5}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwps5}# - 0) + (if (not (if (if (vector? #{id 14738}#) + (if (= (vector-length #{id 14738}#) 4) + (eq? (vector-ref #{id 14738}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{id -ANAU$bmvAmthP7L7xwps5}# 1)) + (symbol? (vector-ref #{id 14738}# 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}#) + #{id 14738}#)) + ((fluid-ref #{transformer-environment 4508}#) + (lambda (#{e 14778}# + #{r 14779}# + #{w 14780}# + #{s 14781}# + #{rib 14782}# + #{mod 14783}#) (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) + (let ((#{id 14786}# (vector-ref #{id 14738}# 1)) + (#{w 14787}# + (let ((#{w 14798}# (vector-ref #{id 14738}# 2))) + (let ((#{ms 14799}# (car #{w 14798}#)) + (#{s 14800}# (cdr #{w 14798}#))) + (if (if (pair? #{ms 14799}#) + (eq? (car #{ms 14799}#) #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}#) + (cons (cdr #{ms 14799}#) + (if #{rib 14782}# + (cons #{rib 14782}# + (cdr #{s 14800}#)) + (cdr #{s 14800}#))) + (cons #{ms 14799}# + (if #{rib 14782}# + (cons #{rib 14782}# #{s 14800}#) + #{s 14800}#)))))) + (#{mod 14789}# (vector-ref #{id 14738}# 3))) + (let ((#{n 14792}# + (#{id-var-name 4505}# + #{id 14786}# + #{w 14787}#))) + (if (symbol? #{n 14792}#) + (let ((#{mod 14806}# + (if (if (vector? #{id 14786}#) + (if (= (vector-length #{id 14786}#) 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwptp}# - 0) + (eq? (vector-ref #{id 14786}# 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@}# + (vector-ref #{id 14786}# 3) + #{mod 14789}#))) + (let ((#{b 14807}# + (let ((#{t 14808}# + (#{get-global-definition-hook 4449}# + #{n 14792}# + #{mod 14806}#))) + (if #{t 14808}# + #{t 14808}# '(global))))) - (if (eq? (car #{b -ANAU$bmvAmthP7L7xwpt$}#) - 'global) + (if (eq? (car #{b 14807}#) 'global) + (values 'global #{n 14792}# #{mod 14806}#) (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}#) + (car #{b 14807}#) + (cdr #{b 14807}#) + #{mod 14806}#)))) + (if (string? #{n 14792}#) + (let ((#{mod 14834}# + (if (if (vector? #{id 14786}#) + (if (= (vector-length #{id 14786}#) 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwptp}# - 0) + (eq? (vector-ref #{id 14786}# 0) 'syntax-object) #f) #f) - (vector-ref - #{id -ANAU$bmvAmthP7L7xwptp}# - 3) - #{mod -ANAU$bmvAmthP7L7xwpts}#))) - (let ((#{b -ANAU$bmvAmthP7L7xwpua}# - (let ((#{t -ANAU$bmvAmthP7L7xwpub}# + (vector-ref #{id 14786}# 3) + #{mod 14789}#))) + (let ((#{b 14835}# + (let ((#{t 14836}# (assq-ref - #{r -ANAU$bmvAmthP7L7xwpti}# - #{n -ANAU$bmvAmthP7L7xwptv}#))) - (if #{t -ANAU$bmvAmthP7L7xwpub}# - #{t -ANAU$bmvAmthP7L7xwpub}# + #{r 14779}# + #{n 14792}#))) + (if #{t 14836}# + #{t 14836}# '(displaced-lexical))))) (values - (car #{b -ANAU$bmvAmthP7L7xwpua}#) - (cdr #{b -ANAU$bmvAmthP7L7xwpua}#) - #{mod -ANAU$bmvAmthP7L7xwpuZ}#))) + (car #{b 14835}#) + (cdr #{b 14835}#) + #{mod 14834}#))) (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) + #{id 14786}# + #{w 14787}# + #{n 14792}#)))))) + (lambda (#{type 14849}# #{value 14850}# #{mod 14851}#) + (if (eqv? #{type 14849}# 'lexical) + (values 'lexical #{value 14850}#) + (if (eqv? #{type 14849}# 'macro) + (values 'macro #{value 14850}#) + (if (eqv? #{type 14849}# 'syntax) + (values 'pattern-variable #{value 14850}#) + (if (eqv? #{type 14849}# 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? #{type -ANAU$bmvAmthP7L7xwpuo}# - 'global) + (if (eqv? #{type 14849}# 'global) (values 'global - (cons #{value -ANAU$bmvAmthP7L7xwpup}# - (cdr #{mod -ANAU$bmvAmthP7L7xwpuq}#))) + (cons #{value 14850}# (cdr #{mod 14851}#))) (values 'other #f))))))))))))) - (#{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}# - (lambda (#{id -ANAU$bmvAmthP7L7xwpu1}#) + (#{syntax-locally-bound-identifiers 14606}# + (lambda (#{id 14862}#) (begin - (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpu1}#) - (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwpu1}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwpu1}# - 0) + (if (not (if (if (vector? #{id 14862}#) + (if (= (vector-length #{id 14862}#) 4) + (eq? (vector-ref #{id 14862}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{id -ANAU$bmvAmthP7L7xwpu1}# 1)) + (symbol? (vector-ref #{id 14862}# 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)))))) + #{id 14862}#)) + (#{locally-bound-identifiers 4506}# + (vector-ref #{id 14862}# 2) + (vector-ref #{id 14862}# 3)))))) (begin (define! 'syntax-module - (lambda (#{id -ANAU$bmvAmthP7L7xwpq3}#) + (lambda (#{id 14608}#) (begin - (if (not (if (if (vector? #{id -ANAU$bmvAmthP7L7xwpq3}#) - (if (= (vector-length - #{id -ANAU$bmvAmthP7L7xwpq3}#) - 4) - (eq? (vector-ref - #{id -ANAU$bmvAmthP7L7xwpq3}# - 0) + (if (not (if (if (vector? #{id 14608}#) + (if (= (vector-length #{id 14608}#) 4) + (eq? (vector-ref #{id 14608}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 1)) + (symbol? (vector-ref #{id 14608}# 1)) #f)) (syntax-violation 'syntax-module "invalid argument" - #{id -ANAU$bmvAmthP7L7xwpq3}#)) - (cdr (vector-ref #{id -ANAU$bmvAmthP7L7xwpq3}# 3))))) + #{id 14608}#)) + (cdr (vector-ref #{id 14608}# 3))))) (define! 'syntax-local-binding - #{syntax-local-binding -ANAU$bmvAmthP7L7xwpq0}#) + #{syntax-local-binding 14605}#) (define! 'syntax-locally-bound-identifiers - #{syntax-locally-bound-identifiers -ANAU$bmvAmthP7L7xwpq1}#))) + #{syntax-locally-bound-identifiers 14606}#))) (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}# + ((#{match-each 14969}# + (lambda (#{e 15556}# + #{p 15557}# + #{w 15558}# + #{mod 15559}#) + (if (pair? #{e 15556}#) + (let ((#{first 15560}# + (#{match 14975}# + (car #{e 15556}#) + #{p 15557}# + #{w 15558}# '() - #{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}#) + #{mod 15559}#))) + (if #{first 15560}# + (let ((#{rest 15563}# + (#{match-each 14969}# + (cdr #{e 15556}#) + #{p 15557}# + #{w 15558}# + #{mod 15559}#))) + (if #{rest 15563}# + (cons #{first 15560}# #{rest 15563}#) #f)) #f)) - (if (null? #{e -ANAU$bmvAmthP7L7xwp5r}#) + (if (null? #{e 15556}#) '() - (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp5r}#) - (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp5r}#) - 4) - (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp5r}# 0) - 'syntax-object) + (if (if (vector? #{e 15556}#) + (if (= (vector-length #{e 15556}#) 4) + (eq? (vector-ref #{e 15556}# 0) 'syntax-object) #f) #f) - (#{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)) + (#{match-each 14969}# + (vector-ref #{e 15556}# 1) + #{p 15557}# + (#{join-wraps 4502}# + #{w 15558}# + (vector-ref #{e 15556}# 2)) + (vector-ref #{e 15556}# 3)) #f))))) - (#{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}#) + (#{match-each-any 14971}# + (lambda (#{e 15591}# #{w 15592}# #{mod 15593}#) + (if (pair? #{e 15591}#) + (let ((#{l 15594}# + (#{match-each-any 14971}# + (cdr #{e 15591}#) + #{w 15592}# + #{mod 15593}#))) + (if #{l 15594}# + (cons (#{wrap 4515}# + (car #{e 15591}#) + #{w 15592}# + #{mod 15593}#) + #{l 15594}#) #f)) - (if (null? #{e -ANAU$bmvAmthP7L7xwp6O}#) + (if (null? #{e 15591}#) '() - (if (if (vector? #{e -ANAU$bmvAmthP7L7xwp6O}#) - (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwp6O}#) - 4) - (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwp6O}# 0) - 'syntax-object) + (if (if (vector? #{e 15591}#) + (if (= (vector-length #{e 15591}#) 4) + (eq? (vector-ref #{e 15591}# 0) 'syntax-object) #f) #f) - (#{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}#) + (#{match-each-any 14971}# + (vector-ref #{e 15591}# 1) + (#{join-wraps 4502}# + #{w 15592}# + (vector-ref #{e 15591}# 2)) + #{mod 15593}#) #f))))) - (#{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 -ANAU$bmvAmthP7L7xwpwj}# - (vector-ref #{p -ANAU$bmvAmthP7L7xwp6p}# 1) - (#{match-empty -ANAU$bmvAmthP7L7xwpwj}# - (reverse - (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) + (#{match-empty 14972}# + (lambda (#{p 15618}# #{r 15619}#) + (if (null? #{p 15618}#) + #{r 15619}# + (if (eq? #{p 15618}# '_) + #{r 15619}# + (if (eq? #{p 15618}# 'any) + (cons '() #{r 15619}#) + (if (pair? #{p 15618}#) + (#{match-empty 14972}# + (car #{p 15618}#) + (#{match-empty 14972}# + (cdr #{p 15618}#) + #{r 15619}#)) + (if (eq? #{p 15618}# 'each-any) + (cons '() #{r 15619}#) + (let ((#{atom-key 15620}# (vector-ref #{p 15618}# 0))) + (if (eqv? #{atom-key 15620}# 'each) + (#{match-empty 14972}# + (vector-ref #{p 15618}# 1) + #{r 15619}#) + (if (eqv? #{atom-key 15620}# 'each+) + (#{match-empty 14972}# + (vector-ref #{p 15618}# 1) + (#{match-empty 14972}# + (reverse (vector-ref #{p 15618}# 2)) + (#{match-empty 14972}# + (vector-ref #{p 15618}# 3) + #{r 15619}#))) + (if (if (eqv? #{atom-key 15620}# 'free-id) #t - (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# - 'atom)) - #{r -ANAU$bmvAmthP7L7xwp6q}# - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwp6r}# - 'vector) - (#{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 -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}#) + (eqv? #{atom-key 15620}# 'atom)) + #{r 15619}# + (if (eqv? #{atom-key 15620}# 'vector) + (#{match-empty 14972}# + (vector-ref #{p 15618}# 1) + #{r 15619}#))))))))))))) + (#{combine 14973}# + (lambda (#{r* 15639}# #{r 15640}#) + (if (null? (car #{r* 15639}#)) + #{r 15640}# + (cons (map car #{r* 15639}#) + (#{combine 14973}# + (map cdr #{r* 15639}#) + #{r 15640}#))))) + (#{match* 14974}# + (lambda (#{e 15004}# + #{p 15005}# + #{w 15006}# + #{r 15007}# + #{mod 15008}#) + (if (null? #{p 15005}#) + (if (null? #{e 15004}#) #{r 15007}# #f) + (if (pair? #{p 15005}#) + (if (pair? #{e 15004}#) + (#{match 14975}# + (car #{e 15004}#) + (car #{p 15005}#) + #{w 15006}# + (#{match 14975}# + (cdr #{e 15004}#) + (cdr #{p 15005}#) + #{w 15006}# + #{r 15007}# + #{mod 15008}#) + #{mod 15008}#) #f) - (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}#) + (if (eq? #{p 15005}# 'each-any) + (let ((#{l 15013}# + (#{match-each-any 14971}# + #{e 15004}# + #{w 15006}# + #{mod 15008}#))) + (if #{l 15013}# + (cons #{l 15013}# #{r 15007}#) #f)) - (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}# + (let ((#{atom-key 15018}# (vector-ref #{p 15005}# 0))) + (if (eqv? #{atom-key 15018}# 'each) + (if (null? #{e 15004}#) + (#{match-empty 14972}# + (vector-ref #{p 15005}# 1) + #{r 15007}#) + (let ((#{l 15025}# + (#{match-each 14969}# + #{e 15004}# + (vector-ref #{p 15005}# 1) + #{w 15006}# + #{mod 15008}#))) + (if #{l 15025}# (letrec* - ((#{collect -ANAU$bmvAmthP7L7xwpxb}# - (lambda (#{l -ANAU$bmvAmthP7L7xwpyO}#) - (if (null? (car #{l -ANAU$bmvAmthP7L7xwpyO}#)) - #{r -ANAU$bmvAmthP7L7xwpxG}# - (cons (map car - #{l -ANAU$bmvAmthP7L7xwpyO}#) - (#{collect -ANAU$bmvAmthP7L7xwpxb}# - (map cdr - #{l -ANAU$bmvAmthP7L7xwpyO}#))))))) - (#{collect -ANAU$bmvAmthP7L7xwpxb}# - #{l -ANAU$bmvAmthP7L7xwpxY}#)) + ((#{collect 15028}# + (lambda (#{l 15079}#) + (if (null? (car #{l 15079}#)) + #{r 15007}# + (cons (map car #{l 15079}#) + (#{collect 15028}# + (map cdr #{l 15079}#))))))) + (#{collect 15028}# #{l 15025}#)) #f))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'each+) + (if (eqv? #{atom-key 15018}# 'each+) (call-with-values (lambda () - (let ((#{x-pat -ANAU$bmvAmthP7L7xwpyX}# - (vector-ref - #{p -ANAU$bmvAmthP7L7xwpxE}# - 1)) - (#{y-pat -ANAU$bmvAmthP7L7xwpyY}# - (vector-ref - #{p -ANAU$bmvAmthP7L7xwpxE}# - 2)) - (#{z-pat -ANAU$bmvAmthP7L7xwpyZ}# - (vector-ref - #{p -ANAU$bmvAmthP7L7xwpxE}# - 3))) + (let ((#{x-pat 15088}# (vector-ref #{p 15005}# 1)) + (#{y-pat 15089}# (vector-ref #{p 15005}# 2)) + (#{z-pat 15090}# + (vector-ref #{p 15005}# 3))) (letrec* - ((#{f -ANAU$bmvAmthP7L7xwpyd}# - (lambda (#{e -ANAU$bmvAmthP7L7xwpyf}# - #{w -ANAU$bmvAmthP7L7xwpyg}#) - (if (pair? #{e -ANAU$bmvAmthP7L7xwpyf}#) + ((#{f 15094}# + (lambda (#{e 15096}# #{w 15097}#) + (if (pair? #{e 15096}#) (call-with-values (lambda () - (#{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}# + (#{f 15094}# + (cdr #{e 15096}#) + #{w 15097}#)) + (lambda (#{xr* 15098}# + #{y-pat 15099}# + #{r 15100}#) + (if #{r 15100}# + (if (null? #{y-pat 15099}#) + (let ((#{xr 15101}# + (#{match 14975}# + (car #{e 15096}#) + #{x-pat 15088}# + #{w 15097}# '() - #{mod -ANAU$bmvAmthP7L7xwpxH}#))) - (if #{xr -ANAU$bmvAmthP7L7xwpyk}# + #{mod 15008}#))) + (if #{xr 15101}# (values - (cons #{xr -ANAU$bmvAmthP7L7xwpyk}# - #{xr* -ANAU$bmvAmthP7L7xwpyh}#) - #{y-pat -ANAU$bmvAmthP7L7xwpyi}# - #{r -ANAU$bmvAmthP7L7xwpyj}#) + (cons #{xr 15101}# + #{xr* 15098}#) + #{y-pat 15099}# + #{r 15100}#) (values #f #f #f))) (values '() - (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}#))) + (cdr #{y-pat 15099}#) + (#{match 14975}# + (car #{e 15096}#) + (car #{y-pat 15099}#) + #{w 15097}# + #{r 15100}# + #{mod 15008}#))) (values #f #f #f)))) - (if (if (vector? - #{e -ANAU$bmvAmthP7L7xwpyf}#) + (if (if (vector? #{e 15096}#) (if (= (vector-length - #{e -ANAU$bmvAmthP7L7xwpyf}#) + #{e 15096}#) 4) - (eq? (vector-ref - #{e -ANAU$bmvAmthP7L7xwpyf}# - 0) + (eq? (vector-ref #{e 15096}# 0) 'syntax-object) #f) #f) - (#{f -ANAU$bmvAmthP7L7xwpyd}# - (vector-ref - #{e -ANAU$bmvAmthP7L7xwpyf}# - 1) - (#{join-wraps -ANAU$bmvAmthP7L7xwnNw}# - #{w -ANAU$bmvAmthP7L7xwpyg}# - #{e -ANAU$bmvAmthP7L7xwpyf}#)) + (#{f 15094}# + (vector-ref #{e 15096}# 1) + (#{join-wraps 4502}# + #{w 15097}# + #{e 15096}#)) (values '() - #{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 -ANAU$bmvAmthP7L7xwpxE}# - 1) - #{r -ANAU$bmvAmthP7L7xwpzA}#) - (#{combine -ANAU$bmvAmthP7L7xwpwk}# - #{xr* -ANAU$bmvAmthP7L7xwpy$}# - #{r -ANAU$bmvAmthP7L7xwpzA}#)) + #{y-pat 15089}# + (#{match 14975}# + #{e 15096}# + #{z-pat 15090}# + #{w 15097}# + #{r 15007}# + #{mod 15008}#))))))) + (#{f 15094}# #{e 15004}# #{w 15006}#)))) + (lambda (#{xr* 15127}# #{y-pat 15128}# #{r 15129}#) + (if #{r 15129}# + (if (null? #{y-pat 15128}#) + (if (null? #{xr* 15127}#) + (#{match-empty 14972}# + (vector-ref #{p 15005}# 1) + #{r 15129}#) + (#{combine 14973}# + #{xr* 15127}# + #{r 15129}#)) #f) #f))) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# - 'free-id) - (if (if (symbol? #{e -ANAU$bmvAmthP7L7xwpxD}#) + (if (eqv? #{atom-key 15018}# 'free-id) + (if (if (symbol? #{e 15004}#) #t - (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpxD}#) - (if (= (vector-length - #{e -ANAU$bmvAmthP7L7xwpxD}#) - 4) - (eq? (vector-ref - #{e -ANAU$bmvAmthP7L7xwpxD}# - 0) + (if (if (vector? #{e 15004}#) + (if (= (vector-length #{e 15004}#) 4) + (eq? (vector-ref #{e 15004}# 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref - #{e -ANAU$bmvAmthP7L7xwpxD}# - 1)) + (symbol? (vector-ref #{e 15004}# 1)) #f)) - (if (let ((#{i -ANAU$bmvAmthP7L7xwp4L}# - (#{wrap -ANAU$bmvAmthP7L7xwnN9}# - #{e -ANAU$bmvAmthP7L7xwpxD}# - #{w -ANAU$bmvAmthP7L7xwpxF}# - #{mod -ANAU$bmvAmthP7L7xwpxH}#)) - (#{j -ANAU$bmvAmthP7L7xwp4M}# - (vector-ref - #{p -ANAU$bmvAmthP7L7xwpxE}# - 1))) - (if (eq? (if (if (vector? - #{i -ANAU$bmvAmthP7L7xwp4L}#) + (if (let ((#{i 15460}# + (#{wrap 4515}# + #{e 15004}# + #{w 15006}# + #{mod 15008}#)) + (#{j 15461}# + (vector-ref #{p 15005}# 1))) + (if (eq? (if (if (vector? #{i 15460}#) (if (= (vector-length - #{i -ANAU$bmvAmthP7L7xwp4L}#) + #{i 15460}#) 4) (eq? (vector-ref - #{i -ANAU$bmvAmthP7L7xwp4L}# + #{i 15460}# 0) 'syntax-object) #f) #f) - (vector-ref - #{i -ANAU$bmvAmthP7L7xwp4L}# - 1) - #{i -ANAU$bmvAmthP7L7xwp4L}#) - (if (if (vector? - #{j -ANAU$bmvAmthP7L7xwp4M}#) + (vector-ref #{i 15460}# 1) + #{i 15460}#) + (if (if (vector? #{j 15461}#) (if (= (vector-length - #{j -ANAU$bmvAmthP7L7xwp4M}#) + #{j 15461}#) 4) (eq? (vector-ref - #{j -ANAU$bmvAmthP7L7xwp4M}# + #{j 15461}# 0) 'syntax-object) #f) #f) - (vector-ref - #{j -ANAU$bmvAmthP7L7xwp4M}# - 1) - #{j -ANAU$bmvAmthP7L7xwp4M}#)) - (eq? (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{i -ANAU$bmvAmthP7L7xwp4L}# + (vector-ref #{j 15461}# 1) + #{j 15461}#)) + (eq? (#{id-var-name 4505}# + #{i 15460}# '(())) - (#{id-var-name -ANAU$bmvAmthP7L7xwnNz}# - #{j -ANAU$bmvAmthP7L7xwp4M}# + (#{id-var-name 4505}# + #{j 15461}# '(()))) #f)) - #{r -ANAU$bmvAmthP7L7xwpxG}# + #{r 15007}# #f) #f) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# 'atom) + (if (eqv? #{atom-key 15018}# 'atom) (if (equal? - (vector-ref #{p -ANAU$bmvAmthP7L7xwpxE}# 1) - (#{strip -ANAU$bmvAmthP7L7xwnOR}# - #{e -ANAU$bmvAmthP7L7xwpxD}# - #{w -ANAU$bmvAmthP7L7xwpxF}#)) - #{r -ANAU$bmvAmthP7L7xwpxG}# + (vector-ref #{p 15005}# 1) + (#{strip 4535}# #{e 15004}# #{w 15006}#)) + #{r 15007}# #f) - (if (eqv? #{atom-key -ANAU$bmvAmthP7L7xwpxR}# - 'vector) - (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}#) + (if (eqv? #{atom-key 15018}# 'vector) + (if (vector? #{e 15004}#) + (#{match 14975}# + (vector->list #{e 15004}#) + (vector-ref #{p 15005}# 1) + #{w 15006}# + #{r 15007}# + #{mod 15008}#) #f)))))))))))) - (#{match -ANAU$bmvAmthP7L7xwpwm}# - (lambda (#{e -ANAU$bmvAmthP7L7xwp5I}# - #{p -ANAU$bmvAmthP7L7xwp5J}# - #{w -ANAU$bmvAmthP7L7xwp5K}# - #{r -ANAU$bmvAmthP7L7xwp5L}# - #{mod -ANAU$bmvAmthP7L7xwp5M}#) - (if (not #{r -ANAU$bmvAmthP7L7xwp5L}#) + (#{match 14975}# + (lambda (#{e 15521}# + #{p 15522}# + #{w 15523}# + #{r 15524}# + #{mod 15525}#) + (if (not #{r 15524}#) #f - (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 -ANAU$bmvAmthP7L7xwp5I}# 0) - 'syntax-object) + (if (eq? #{p 15522}# '_) + #{r 15524}# + (if (eq? #{p 15522}# 'any) + (cons (#{wrap 4515}# + #{e 15521}# + #{w 15523}# + #{mod 15525}#) + #{r 15524}#) + (if (if (vector? #{e 15521}#) + (if (= (vector-length #{e 15521}#) 4) + (eq? (vector-ref #{e 15521}# 0) 'syntax-object) #f) #f) - (#{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}#)))))))) + (#{match* 14974}# + (vector-ref #{e 15521}# 1) + #{p 15522}# + (#{join-wraps 4502}# + #{w 15523}# + (vector-ref #{e 15521}# 2)) + #{r 15524}# + (vector-ref #{e 15521}# 3)) + (#{match* 14974}# + #{e 15521}# + #{p 15522}# + #{w 15523}# + #{r 15524}# + #{mod 15525}#)))))))) (set! $sc-dispatch - (lambda (#{e -ANAU$bmvAmthP7L7xwpwn}# - #{p -ANAU$bmvAmthP7L7xwpwo}#) - (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# 'any) - (list #{e -ANAU$bmvAmthP7L7xwpwn}#) - (if (eq? #{p -ANAU$bmvAmthP7L7xwpwo}# '_) + (lambda (#{e 14976}# #{p 14977}#) + (if (eq? #{p 14977}# 'any) + (list #{e 14976}#) + (if (eq? #{p 14977}# '_) '() - (if (if (vector? #{e -ANAU$bmvAmthP7L7xwpwn}#) - (if (= (vector-length #{e -ANAU$bmvAmthP7L7xwpwn}#) - 4) - (eq? (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 0) - 'syntax-object) + (if (if (vector? #{e 14976}#) + (if (= (vector-length #{e 14976}#) 4) + (eq? (vector-ref #{e 14976}# 0) 'syntax-object) #f) #f) - (#{match* -ANAU$bmvAmthP7L7xwpwl}# - (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 1) - #{p -ANAU$bmvAmthP7L7xwpwo}# - (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 2) + (#{match* 14974}# + (vector-ref #{e 14976}# 1) + #{p 14977}# + (vector-ref #{e 14976}# 2) '() - (vector-ref #{e -ANAU$bmvAmthP7L7xwpwn}# 3)) - (#{match* -ANAU$bmvAmthP7L7xwpwl}# - #{e -ANAU$bmvAmthP7L7xwpwn}# - #{p -ANAU$bmvAmthP7L7xwpwo}# + (vector-ref #{e 14976}# 3)) + (#{match* 14974}# + #{e 14976}# + #{p 14977}# '(()) '() #f)))))))))) @@ -23842,82 +22783,91 @@ (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xws3J}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws3L}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws3J}# - '(_ () any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws3L}# + (lambda (#{x 27756}#) + (let ((#{tmp 27758}# + ($sc-dispatch #{x 27756}# '(_ () any . each-any)))) + (if #{tmp 27758}# (@apply - (lambda (#{e1 -ANAU$bmvAmthP7L7xws3P}# - #{e2 -ANAU$bmvAmthP7L7xws3Q}#) + (lambda (#{e1 27762}# #{e2 27763}#) (cons '#(syntax-object let ((top) - #(ribcage #(e1 e2) #((top) (top)) #("1bj" "1bk")) + #(ribcage + #(e1 e2) + #((top) (top)) + #("l-*-27729" "l-*-27730")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bi"))) + #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) - (cons '() - (cons #{e1 -ANAU$bmvAmthP7L7xws3P}# - #{e2 -ANAU$bmvAmthP7L7xws3Q}#)))) - #{tmp -ANAU$bmvAmthP7L7xws3L}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws3R}# + (cons '() (cons #{e1 27762}# #{e2 27763}#)))) + #{tmp 27758}#) + (let ((#{tmp 27764}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws3J}# + #{x 27756}# '(_ ((any any)) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws3R}# + (if #{tmp 27764}# (@apply - (lambda (#{out -ANAU$bmvAmthP7L7xws3V}# - #{in -ANAU$bmvAmthP7L7xws3W}# - #{e1 -ANAU$bmvAmthP7L7xws3X}# - #{e2 -ANAU$bmvAmthP7L7xws3Y}#) + (lambda (#{out 27768}# + #{in 27769}# + #{e1 27770}# + #{e2 27771}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("1bl" "1bm" "1bn" "1bo")) + #("l-*-27735" + "l-*-27736" + "l-*-27737" + "l-*-27738")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bi"))) + #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) - #{in -ANAU$bmvAmthP7L7xws3W}# + #{in 27769}# '() - (list #{out -ANAU$bmvAmthP7L7xws3V}# + (list #{out 27768}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("1bl" "1bm" "1bn" "1bo")) + #("l-*-27735" + "l-*-27736" + "l-*-27737" + "l-*-27738")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bi"))) + #(ribcage + #(x) + #((top)) + #("l-*-27726"))) (hygiene guile)) (cons '() - (cons #{e1 -ANAU$bmvAmthP7L7xws3X}# - #{e2 -ANAU$bmvAmthP7L7xws3Y}#)))))) - #{tmp -ANAU$bmvAmthP7L7xws3R}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws3Z}# + (cons #{e1 27770}# #{e2 27771}#)))))) + #{tmp 27764}#) + (let ((#{tmp 27772}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws3J}# + #{x 27756}# '(_ #(each (any any)) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws3Z}# + (if #{tmp 27772}# (@apply - (lambda (#{out -ANAU$bmvAmthP7L7xws3d}# - #{in -ANAU$bmvAmthP7L7xws3e}# - #{e1 -ANAU$bmvAmthP7L7xws3f}# - #{e2 -ANAU$bmvAmthP7L7xws3g}#) + (lambda (#{out 27776}# + #{in 27777}# + #{e1 27778}# + #{e2 27779}#) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("1bp" "1bq" "1br" "1bs")) + #("l-*-27745" + "l-*-27746" + "l-*-27747" + "l-*-27748")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bi"))) + #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) (cons '#(syntax-object list @@ -23925,56 +22875,68 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("1bp" "1bq" "1br" "1bs")) + #("l-*-27745" + "l-*-27746" + "l-*-27747" + "l-*-27748")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bi"))) + #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) - #{in -ANAU$bmvAmthP7L7xws3e}#) + #{in 27777}#) '() - (list #{out -ANAU$bmvAmthP7L7xws3d}# + (list #{out 27776}# (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("1bp" "1bq" "1br" "1bs")) + #("l-*-27745" + "l-*-27746" + "l-*-27747" + "l-*-27748")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bi"))) + #(ribcage + #(x) + #((top)) + #("l-*-27726"))) (hygiene guile)) (cons '() - (cons #{e1 -ANAU$bmvAmthP7L7xws3f}# - #{e2 -ANAU$bmvAmthP7L7xws3g}#)))))) - #{tmp -ANAU$bmvAmthP7L7xws3Z}#) + (cons #{e1 27778}# + #{e2 27779}#)))))) + #{tmp 27772}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xws3J}#)))))))))) + #{x 27756}#)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xws4H}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws4J}# + (lambda (#{x 27833}#) + (let ((#{tmp 27835}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws4H}# + #{x 27833}# '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp -ANAU$bmvAmthP7L7xws4J}# + (if #{tmp 27835}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xws4N}# - #{keyword -ANAU$bmvAmthP7L7xws4O}# - #{pattern -ANAU$bmvAmthP7L7xws4P}# - #{template -ANAU$bmvAmthP7L7xws4Q}#) + (lambda (#{k 27839}# + #{keyword 27840}# + #{pattern 27841}# + #{template 27842}#) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) '(#(syntax-object x @@ -23982,9 +22944,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile))) (vector '(#(syntax-object @@ -23993,9 +22958,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) . #(syntax-object @@ -24004,9 +22972,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24014,20 +22985,26 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) - #{pattern -ANAU$bmvAmthP7L7xws4P}#)) + #{pattern 27841}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) (cons '#(syntax-object x @@ -24035,13 +23012,16 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("1bu" "1bv" "1bw" "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) - (cons #{k -ANAU$bmvAmthP7L7xws4N}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}# - #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#) + (cons #{k 27839}# + (map (lambda (#{tmp-27807 27843}# + #{tmp-27806 27844}#) (list (cons '#(syntax-object dummy ((top) @@ -24054,10 +23034,10 @@ (top) (top) (top)) - #("1bu" - "1bv" - "1bw" - "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () @@ -24065,9 +23045,9 @@ #(ribcage #(x) #((top)) - #("1bt"))) + #("l-*-27793"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xws32 -ANAU$bmvAmthP7L7xws4S}#) + #{tmp-27806 27844}#) (list '#(syntax-object syntax ((top) @@ -24080,10 +23060,10 @@ (top) (top) (top)) - #("1bu" - "1bv" - "1bw" - "1bx")) + #("l-*-27796" + "l-*-27797" + "l-*-27798" + "l-*-27799")) #(ribcage () () @@ -24091,43 +23071,45 @@ #(ribcage #(x) #((top)) - #("1bt"))) + #("l-*-27793"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xws33 -ANAU$bmvAmthP7L7xws4R}#))) - #{template -ANAU$bmvAmthP7L7xws4Q}# - #{pattern -ANAU$bmvAmthP7L7xws4P}#)))))) - #{tmp -ANAU$bmvAmthP7L7xws4J}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws4T}# + #{tmp-27807 27843}#))) + #{template 27842}# + #{pattern 27841}#)))))) + #{tmp 27835}#) + (let ((#{tmp 27845}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws4H}# + #{x 27833}# '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp -ANAU$bmvAmthP7L7xws4T}# + (if (if #{tmp 27845}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xws4X}# - #{docstring -ANAU$bmvAmthP7L7xws4Y}# - #{keyword -ANAU$bmvAmthP7L7xws4Z}# - #{pattern -ANAU$bmvAmthP7L7xws4a}# - #{template -ANAU$bmvAmthP7L7xws4b}#) - (string? - (syntax->datum - #{docstring -ANAU$bmvAmthP7L7xws4Y}#))) - #{tmp -ANAU$bmvAmthP7L7xws4T}#) + (lambda (#{k 27849}# + #{docstring 27850}# + #{keyword 27851}# + #{pattern 27852}# + #{template 27853}#) + (string? (syntax->datum #{docstring 27850}#))) + #{tmp 27845}#) #f) (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xws4c}# - #{docstring -ANAU$bmvAmthP7L7xws4d}# - #{keyword -ANAU$bmvAmthP7L7xws4e}# - #{pattern -ANAU$bmvAmthP7L7xws4f}# - #{template -ANAU$bmvAmthP7L7xws4g}#) + (lambda (#{k 27854}# + #{docstring 27855}# + #{keyword 27856}# + #{pattern 27857}# + #{template 27858}#) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) '(#(syntax-object x @@ -24135,11 +23117,15 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile))) - #{docstring -ANAU$bmvAmthP7L7xws4d}# + #{docstring 27855}# (vector '(#(syntax-object macro-type @@ -24147,9 +23133,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) . #(syntax-object @@ -24158,9 +23148,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -24168,20 +23162,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) - #{pattern -ANAU$bmvAmthP7L7xws4f}#)) + #{pattern 27857}#)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) (cons '#(syntax-object x @@ -24193,13 +23195,20 @@ pattern template) #((top) (top) (top) (top) (top)) - #("1c3" "1c4" "1c5" "1c6" "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1bt"))) + #(ribcage + #(x) + #((top)) + #("l-*-27793"))) (hygiene guile)) - (cons #{k -ANAU$bmvAmthP7L7xws4c}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}# - #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#) + (cons #{k 27854}# + (map (lambda (#{tmp-27832 27859}# + #{tmp-27831 27860}#) (list (cons '#(syntax-object dummy ((top) @@ -24214,11 +23223,11 @@ (top) (top) (top)) - #("1c3" - "1c4" - "1c5" - "1c6" - "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () @@ -24226,10 +23235,10 @@ #(ribcage #(x) #((top)) - #("1bt"))) + #("l-*-27793"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xws4F -ANAU$bmvAmthP7L7xws4i}#) + #{tmp-27831 27860}#) (list '#(syntax-object syntax ((top) @@ -24244,11 +23253,11 @@ (top) (top) (top)) - #("1c3" - "1c4" - "1c5" - "1c6" - "1c7")) + #("l-*-27819" + "l-*-27820" + "l-*-27821" + "l-*-27822" + "l-*-27823")) #(ribcage () () @@ -24256,52 +23265,50 @@ #(ribcage #(x) #((top)) - #("1bt"))) + #("l-*-27793"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xws4G -ANAU$bmvAmthP7L7xws4h}#))) - #{template -ANAU$bmvAmthP7L7xws4g}# - #{pattern -ANAU$bmvAmthP7L7xws4f}#)))))) - #{tmp -ANAU$bmvAmthP7L7xws4T}#) + #{tmp-27832 27859}#))) + #{template 27858}# + #{pattern 27857}#)))))) + #{tmp 27845}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xws4H}#)))))))) + #{x 27833}#)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xws47}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws49}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws47}# - '(_ (any . any) any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws49}# + (lambda (#{x 27897}#) + (let ((#{tmp 27899}# + ($sc-dispatch #{x 27897}# '(_ (any . any) any)))) + (if #{tmp 27899}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xws5B}# - #{pattern -ANAU$bmvAmthP7L7xws5C}# - #{template -ANAU$bmvAmthP7L7xws5D}#) + (lambda (#{name 27903}# + #{pattern 27904}# + #{template 27905}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("1c9" "1ca" "1cb")) + #("l-*-27874" "l-*-27875" "l-*-27876")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1c8"))) + #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) - #{name -ANAU$bmvAmthP7L7xws5B}# + #{name 27903}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("1c9" "1ca" "1cb")) + #("l-*-27874" "l-*-27875" "l-*-27876")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1c8"))) + #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -24310,56 +23317,65 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("1c9" "1ca" "1cb")) + #("l-*-27874" + "l-*-27875" + "l-*-27876")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1c8"))) + #(ribcage + #(x) + #((top)) + #("l-*-27871"))) (hygiene guile)) - #{pattern -ANAU$bmvAmthP7L7xws5C}#) - #{template -ANAU$bmvAmthP7L7xws5D}#)))) - #{tmp -ANAU$bmvAmthP7L7xws49}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws5E}# + #{pattern 27904}#) + #{template 27905}#)))) + #{tmp 27899}#) + (let ((#{tmp 27906}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws47}# + #{x 27897}# '(_ (any . any) any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xws5E}# + (if (if #{tmp 27906}# (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xws5I}# - #{pattern -ANAU$bmvAmthP7L7xws5J}# - #{docstring -ANAU$bmvAmthP7L7xws5K}# - #{template -ANAU$bmvAmthP7L7xws5L}#) - (string? - (syntax->datum - #{docstring -ANAU$bmvAmthP7L7xws5K}#))) - #{tmp -ANAU$bmvAmthP7L7xws5E}#) + (lambda (#{name 27910}# + #{pattern 27911}# + #{docstring 27912}# + #{template 27913}#) + (string? (syntax->datum #{docstring 27912}#))) + #{tmp 27906}#) #f) (@apply - (lambda (#{name -ANAU$bmvAmthP7L7xws5M}# - #{pattern -ANAU$bmvAmthP7L7xws5N}# - #{docstring -ANAU$bmvAmthP7L7xws5O}# - #{template -ANAU$bmvAmthP7L7xws5P}#) + (lambda (#{name 27914}# + #{pattern 27915}# + #{docstring 27916}# + #{template 27917}#) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("1cg" "1ch" "1ci" "1cj")) + #("l-*-27889" + "l-*-27890" + "l-*-27891" + "l-*-27892")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1c8"))) + #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) - #{name -ANAU$bmvAmthP7L7xws5M}# + #{name 27914}# (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("1cg" "1ch" "1ci" "1cj")) + #("l-*-27889" + "l-*-27890" + "l-*-27891" + "l-*-27892")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1c8"))) + #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) '() - #{docstring -ANAU$bmvAmthP7L7xws5O}# + #{docstring 27916}# (list (cons '#(syntax-object _ ((top) @@ -24369,52 +23385,53 @@ docstring template) #((top) (top) (top) (top)) - #("1cg" "1ch" "1ci" "1cj")) + #("l-*-27889" + "l-*-27890" + "l-*-27891" + "l-*-27892")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1c8"))) + #("l-*-27871"))) (hygiene guile)) - #{pattern -ANAU$bmvAmthP7L7xws5N}#) - #{template -ANAU$bmvAmthP7L7xws5P}#)))) - #{tmp -ANAU$bmvAmthP7L7xws5E}#) + #{pattern 27915}#) + #{template 27917}#)))) + #{tmp 27906}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xws47}#)))))))) + #{x 27897}#)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xws5x}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws5z}# + (lambda (#{x 27966}#) + (let ((#{tmp 27968}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws5x}# + #{x 27966}# '(any #(each (any any)) any . each-any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xws5z}# + (if (if #{tmp 27968}# (@apply - (lambda (#{let* -ANAU$bmvAmthP7L7xws53}# - #{x -ANAU$bmvAmthP7L7xws54}# - #{v -ANAU$bmvAmthP7L7xws55}# - #{e1 -ANAU$bmvAmthP7L7xws56}# - #{e2 -ANAU$bmvAmthP7L7xws57}#) - (and-map - identifier? - #{x -ANAU$bmvAmthP7L7xws54}#)) - #{tmp -ANAU$bmvAmthP7L7xws5z}#) + (lambda (#{let* 27972}# + #{x 27973}# + #{v 27974}# + #{e1 27975}# + #{e2 27976}#) + (and-map identifier? #{x 27973}#)) + #{tmp 27968}#) #f) (@apply - (lambda (#{let* -ANAU$bmvAmthP7L7xws58}# - #{x -ANAU$bmvAmthP7L7xws59}# - #{v -ANAU$bmvAmthP7L7xws5$}# - #{e1 -ANAU$bmvAmthP7L7xws5@}# - #{e2 -ANAU$bmvAmthP7L7xws6A}#) + (lambda (#{let* 27977}# + #{x 27978}# + #{v 27979}# + #{e1 27980}# + #{e2 27981}#) (letrec* - ((#{f -ANAU$bmvAmthP7L7xws6B}# - (lambda (#{bindings -ANAU$bmvAmthP7L7xws6E}#) - (if (null? #{bindings -ANAU$bmvAmthP7L7xws6E}#) + ((#{f 27982}# + (lambda (#{bindings 27985}#) + (if (null? #{bindings 27985}#) (cons '#(syntax-object let ((top) @@ -24422,29 +23439,27 @@ #(ribcage #(f bindings) #((top) (top)) - #("1cv" "1cw")) + #("l-*-27952" "l-*-27953")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("1cq" "1cr" "1cs" "1ct" "1cu")) + #("l-*-27942" + "l-*-27943" + "l-*-27944" + "l-*-27945" + "l-*-27946")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1ck"))) + #(ribcage #(x) #((top)) #("l-*-27928"))) (hygiene guile)) - (cons '() - (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 -ANAU$bmvAmthP7L7xws6F}# - '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws6G}# + (cons '() (cons #{e1 27980}# #{e2 27981}#))) + (let ((#{tmp 27986}# + (list (#{f 27982}# (cdr #{bindings 27985}#)) + (car #{bindings 27985}#)))) + (let ((#{tmp 27987}# + ($sc-dispatch #{tmp 27986}# '(any any)))) + (if #{tmp 27987}# (@apply - (lambda (#{body -ANAU$bmvAmthP7L7xws6I}# - #{binding -ANAU$bmvAmthP7L7xws6J}#) + (lambda (#{body 27989}# #{binding 27990}#) (list '#(syntax-object let ((top) @@ -24452,102 +23467,96 @@ #(ribcage #(body binding) #((top) (top)) - #("1cx" "1cy")) + #("l-*-27962" "l-*-27963")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("1cv" "1cw")) + #("l-*-27952" "l-*-27953")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("1cq" "1cr" "1cs" "1ct" "1cu")) + #("l-*-27942" + "l-*-27943" + "l-*-27944" + "l-*-27945" + "l-*-27946")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1ck"))) + #(ribcage + #(x) + #((top)) + #("l-*-27928"))) (hygiene guile)) - (list #{binding -ANAU$bmvAmthP7L7xws6J}#) - #{body -ANAU$bmvAmthP7L7xws6I}#)) - #{tmp -ANAU$bmvAmthP7L7xws6G}#) + (list #{binding 27990}#) + #{body 27989}#)) + #{tmp 27987}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xws6F}#)))))))) - (#{f -ANAU$bmvAmthP7L7xws6B}# - (map list - #{x -ANAU$bmvAmthP7L7xws59}# - #{v -ANAU$bmvAmthP7L7xws5$}#)))) - #{tmp -ANAU$bmvAmthP7L7xws5z}#) + #{tmp 27986}#)))))))) + (#{f 27982}# (map list #{x 27978}# #{v 27979}#)))) + #{tmp 27968}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xws5x}#)))))) + #{x 27966}#)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x -ANAU$bmvAmthP7L7xws61}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws63}# + (lambda (#{orig-x 28048}#) + (let ((#{tmp 28050}# ($sc-dispatch - #{orig-x -ANAU$bmvAmthP7L7xws61}# + #{orig-x 28048}# '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws63}# + (if #{tmp 28050}# (@apply - (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 -ANAU$bmvAmthP7L7xws7F}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xws7H}# - (@apply - (lambda () #{v -ANAU$bmvAmthP7L7xws7E}#) - #{tmp -ANAU$bmvAmthP7L7xws7H}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws7K}# - ($sc-dispatch - #{s -ANAU$bmvAmthP7L7xws7F}# - '(any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws7K}# + (lambda (#{var 28054}# + #{init 28055}# + #{step 28056}# + #{e0 28057}# + #{e1 28058}# + #{c 28059}#) + (let ((#{tmp 28060}# + (map (lambda (#{v 28063}# #{s 28064}#) + (let ((#{tmp 28066}# + ($sc-dispatch #{s 28064}# '()))) + (if #{tmp 28066}# + (@apply (lambda () #{v 28063}#) #{tmp 28066}#) + (let ((#{tmp 28069}# + ($sc-dispatch #{s 28064}# '(any)))) + (if #{tmp 28069}# (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xws7N}#) - #{e -ANAU$bmvAmthP7L7xws7N}#) - #{tmp -ANAU$bmvAmthP7L7xws7K}#) + (lambda (#{e 28072}#) #{e 28072}#) + #{tmp 28069}#) (syntax-violation 'do "bad step expression" - #{orig-x -ANAU$bmvAmthP7L7xws61}# - #{s -ANAU$bmvAmthP7L7xws7F}#)))))) - #{var -ANAU$bmvAmthP7L7xws67}# - #{step -ANAU$bmvAmthP7L7xws69}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xws7C}# - ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xws7B}# - 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xws7C}# + #{orig-x 28048}# + #{s 28064}#)))))) + #{var 28054}# + #{step 28056}#))) + (let ((#{tmp 28061}# + ($sc-dispatch #{tmp 28060}# 'each-any))) + (if #{tmp 28061}# (@apply - (lambda (#{step -ANAU$bmvAmthP7L7xws7T}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws7V}# - ($sc-dispatch - #{e1 -ANAU$bmvAmthP7L7xws6@}# - '()))) - (if #{tmp -ANAU$bmvAmthP7L7xws7V}# + (lambda (#{step 28078}#) + (let ((#{tmp 28080}# ($sc-dispatch #{e1 28058}# '()))) + (if #{tmp 28080}# (@apply (lambda () (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("1d6")) + #(ribcage + #(step) + #((top)) + #("l-*-28016")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24556,23 +23565,26 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) '#(syntax-object doloop ((top) #(ribcage () () ()) - #(ribcage #(step) #((top)) #("1d6")) + #(ribcage + #(step) + #((top)) + #("l-*-28016")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24581,21 +23593,19 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) - (map list - #{var -ANAU$bmvAmthP7L7xws67}# - #{init -ANAU$bmvAmthP7L7xws68}#) + (map list #{var 28054}# #{init 28055}#) (list '#(syntax-object if ((top) @@ -24603,7 +23613,7 @@ #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24612,17 +23622,17 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) (list '#(syntax-object not @@ -24631,7 +23641,7 @@ #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init @@ -24645,19 +23655,19 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) - #{e0 -ANAU$bmvAmthP7L7xws6$}#) + #{e0 28057}#) (cons '#(syntax-object begin ((top) @@ -24665,7 +23675,7 @@ #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init @@ -24679,20 +23689,20 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) (append - #{c -ANAU$bmvAmthP7L7xws7A}# + #{c 28059}# (list (cons '#(syntax-object doloop ((top) @@ -24703,7 +23713,7 @@ #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init @@ -24717,12 +23727,12 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () @@ -24730,31 +23740,30 @@ #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) - #{step -ANAU$bmvAmthP7L7xws7T}#))))))) - #{tmp -ANAU$bmvAmthP7L7xws7V}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws7Z}# + #{step 28078}#))))))) + #{tmp 28080}#) + (let ((#{tmp 28084}# ($sc-dispatch - #{e1 -ANAU$bmvAmthP7L7xws6@}# + #{e1 28058}# '(any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws7Z}# + (if #{tmp 28084}# (@apply - (lambda (#{e1 -ANAU$bmvAmthP7L7xws7d}# - #{e2 -ANAU$bmvAmthP7L7xws7e}#) + (lambda (#{e1 28088}# #{e2 28089}#) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("1d7" "1d8")) + #("l-*-28025" "l-*-28026")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24763,17 +23772,17 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) '#(syntax-object doloop @@ -24781,12 +23790,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("1d7" "1d8")) + #("l-*-28025" "l-*-28026")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24795,33 +23804,34 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) (map list - #{var -ANAU$bmvAmthP7L7xws67}# - #{init -ANAU$bmvAmthP7L7xws68}#) + #{var 28054}# + #{init 28055}#) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("1d7" "1d8")) + #("l-*-28025" + "l-*-28026")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init step e0 e1 c) #((top) @@ -24830,31 +23840,32 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) - #{e0 -ANAU$bmvAmthP7L7xws6$}# + #{e0 28057}# (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("1d7" "1d8")) + #("l-*-28025" + "l-*-28026")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init @@ -24868,32 +23879,33 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) - (cons #{e1 -ANAU$bmvAmthP7L7xws7d}# - #{e2 -ANAU$bmvAmthP7L7xws7e}#)) + (cons #{e1 28088}# + #{e2 28089}#)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("1d7" "1d8")) + #("l-*-28025" + "l-*-28026")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init @@ -24907,20 +23919,20 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) (append - #{c -ANAU$bmvAmthP7L7xws7A}# + #{c 28059}# (list (cons '#(syntax-object doloop ((top) @@ -24929,8 +23941,8 @@ e2) #((top) (top)) - #("1d7" - "1d8")) + #("l-*-28025" + "l-*-28026")) #(ribcage () () @@ -24938,7 +23950,7 @@ #(ribcage #(step) #((top)) - #("1d6")) + #("l-*-28016")) #(ribcage #(var init @@ -24952,12 +23964,12 @@ (top) (top) (top)) - #("1d0" - "1d1" - "1d2" - "1d3" - "1d4" - "1d5")) + #("l-*-28001" + "l-*-28002" + "l-*-28003" + "l-*-28004" + "l-*-28005" + "l-*-28006")) #(ribcage () () @@ -24965,43 +23977,45 @@ #(ribcage #(orig-x) #((top)) - #("1cz"))) + #("l-*-27998"))) (hygiene guile)) - #{step -ANAU$bmvAmthP7L7xws7T}#))))))) - #{tmp -ANAU$bmvAmthP7L7xws7Z}#) + #{step 28078}#))))))) + #{tmp 28084}#) (syntax-violation #f "source expression failed to match any pattern" - #{e1 -ANAU$bmvAmthP7L7xws6@}#)))))) - #{tmp -ANAU$bmvAmthP7L7xws7C}#) + #{e1 28058}#)))))) + #{tmp 28061}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xws7B}#))))) - #{tmp -ANAU$bmvAmthP7L7xws63}#) + #{tmp 28060}#))))) + #{tmp 28050}#) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x -ANAU$bmvAmthP7L7xws61}#)))))) + #{orig-x 28048}#)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi -ANAU$bmvAmthP7L7xws$t}# - (lambda (#{p -ANAU$bmvAmthP7L7xws@F}# - #{lev -ANAU$bmvAmthP7L7xws@G}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws@I}# + ((#{quasi 28375}# + (lambda (#{p 28399}# #{lev 28400}#) + (let ((#{tmp 28402}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xws@F}# + #{p 28399}# '(#(free-id #(syntax-object unquote ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) + #(ribcage + #(p lev) + #((top) (top)) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25010,22 +24024,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws@I}# + (if #{tmp 28402}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xws@M}#) - (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) + (lambda (#{p 28406}#) + (if (= #{lev 28400}# 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("1dm")) + #(ribcage #(p) #((top)) #("l-*-28125")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25034,16 +24054,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{p -ANAU$bmvAmthP7L7xws@M}#) - (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + #{p 28406}#) + (#{quasicons 28377}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("1dm")) + #(ribcage #(p) #((top)) #("l-*-28125")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) + #(ribcage + #(p lev) + #((top) (top)) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25052,14 +24081,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("1dm")) + #(ribcage #(p) #((top)) #("l-*-28125")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) + #(ribcage + #(p lev) + #((top) (top)) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25068,15 +24106,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) - (#{quasi -ANAU$bmvAmthP7L7xws$t}# - (list #{p -ANAU$bmvAmthP7L7xws@M}#) - (#{1-}# #{lev -ANAU$bmvAmthP7L7xws@G}#))))) - #{tmp -ANAU$bmvAmthP7L7xws@I}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws@P}# + (#{quasi 28375}# + (list #{p 28406}#) + (#{1-}# #{lev 28400}#))))) + #{tmp 28402}#) + (let ((#{tmp 28409}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xws@F}# + #{p 28399}# '(#(free-id #(syntax-object quasiquote @@ -25085,7 +24129,7 @@ #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25094,19 +24138,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws@P}# + (if #{tmp 28409}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xws@T}#) - (#{quasicons -ANAU$bmvAmthP7L7xws$v}# + (lambda (#{p 28413}#) + (#{quasicons 28377}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("1dn")) + #(ribcage #(p) #((top)) #("l-*-28128")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) + #(ribcage + #(p lev) + #((top) (top)) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25115,14 +24168,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("1dn")) + #(ribcage #(p) #((top)) #("l-*-28128")) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("1dk" "1dl")) + #(ribcage + #(p lev) + #((top) (top)) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25131,23 +24193,26 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) - (#{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 -ANAU$bmvAmthP7L7xws@F}# - '(any . any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws@W}# + (#{quasi 28375}# + (list #{p 28413}#) + (#{1+}# #{lev 28400}#)))) + #{tmp 28409}#) + (let ((#{tmp 28416}# + ($sc-dispatch #{p 28399}# '(any . any)))) + (if #{tmp 28416}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xws@a}# - #{q -ANAU$bmvAmthP7L7xws@b}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws@d}# + (lambda (#{p 28420}# #{q 28421}#) + (let ((#{tmp 28423}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xws@a}# + #{p 28420}# '(#(free-id #(syntax-object unquote @@ -25155,12 +24220,12 @@ #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25175,38 +24240,40 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws@d}# + (if #{tmp 28423}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xws@h}#) - (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) - (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8C -ANAU$bmvAmthP7L7xwtAF}#) + (lambda (#{p 28427}#) + (if (= #{lev 28400}# 0) + (#{quasilist* 28379}# + (map (lambda (#{tmp-28139 28463}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("1dq")) + #("l-*-28137")) #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" + "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" + "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25221,34 +24288,37 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{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}# + #{tmp-28139 28463}#)) + #{p 28427}#) + (#{quasi 28375}# + #{q 28421}# + #{lev 28400}#)) + (#{quasicons 28377}# + (#{quasicons 28377}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("1dq")) + #(ribcage + #(p) + #((top)) + #("l-*-28137")) #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25263,27 +24333,30 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("1dq")) + #(ribcage + #(p) + #((top)) + #("l-*-28137")) #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25298,24 +24371,24 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) - (#{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}# + (#{quasi 28375}# + #{p 28427}# + (#{1-}# #{lev 28400}#))) + (#{quasi 28375}# + #{q 28421}# + #{lev 28400}#)))) + #{tmp 28423}#) + (let ((#{tmp 28468}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xws@a}# + #{p 28420}# '(#(free-id #(syntax-object unquote-splicing @@ -25323,12 +24396,12 @@ #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25343,38 +24416,40 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtAK}# + (if #{tmp 28468}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xwtAO}#) - (if (= #{lev -ANAU$bmvAmthP7L7xws@G}# 0) - (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8G -ANAU$bmvAmthP7L7xwtAR}#) + (lambda (#{p 28472}#) + (if (= #{lev 28400}# 0) + (#{quasiappend 28378}# + (map (lambda (#{tmp-28144 28475}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("1dr")) + #("l-*-28142")) #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" + "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" + "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25389,37 +24464,37 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{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}# + #{tmp-28144 28475}#)) + #{p 28472}#) + (#{quasi 28375}# + #{q 28421}# + #{lev 28400}#)) + (#{quasicons 28377}# + (#{quasicons 28377}# '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("1dr")) + #("l-*-28142")) #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25434,13 +24509,13 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -25448,16 +24523,16 @@ #(ribcage #(p) #((top)) - #("1dr")) + #("l-*-28142")) #(ribcage #(p q) #((top) (top)) - #("1do" "1dp")) + #("l-*-28131" "l-*-28132")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25472,59 +24547,57 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) - (#{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 -ANAU$bmvAmthP7L7xws@F}# - '#(vector each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtAf}# + (#{quasi 28375}# + #{p 28472}# + (#{1-}# #{lev 28400}#))) + (#{quasi 28375}# + #{q 28421}# + #{lev 28400}#)))) + #{tmp 28468}#) + (#{quasicons 28377}# + (#{quasi 28375}# + #{p 28420}# + #{lev 28400}#) + (#{quasi 28375}# + #{q 28421}# + #{lev 28400}#))))))) + #{tmp 28416}#) + (let ((#{tmp 28489}# + ($sc-dispatch #{p 28399}# '#(vector each-any)))) + (if #{tmp 28489}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtAj}#) - (let ((#{x -ANAU$bmvAmthP7L7xwtAm}# - (#{vquasi -ANAU$bmvAmthP7L7xws$u}# - #{x -ANAU$bmvAmthP7L7xwtAj}# - #{lev -ANAU$bmvAmthP7L7xws@G}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtAo}# + (lambda (#{x 28493}#) + (let ((#{x 28496}# + (#{vquasi 28376}# + #{x 28493}# + #{lev 28400}#))) + (let ((#{tmp 28498}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtAm}# + #{x 28496}# '(#(atom "quote") each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtAo}# + (if #{tmp 28498}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtAs}#) + (lambda (#{x 28502}#) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("1en")) + #("l-*-28249")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1em")) + #("l-*-28246")) #(ribcage (emit quasivector quasilist* @@ -25539,38 +24612,36 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - (list->vector - #{x -ANAU$bmvAmthP7L7xwtAs}#))) - #{tmp -ANAU$bmvAmthP7L7xwtAo}#) + (list->vector #{x 28502}#))) + #{tmp 28498}#) (letrec* - ((#{f -ANAU$bmvAmthP7L7xwtAu}# - (lambda (#{y -ANAU$bmvAmthP7L7xwtA6}# - #{k -ANAU$bmvAmthP7L7xwtA7}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtA9}# + ((#{f 28504}# + (lambda (#{y 28516}# #{k 28517}#) + (let ((#{tmp 28519}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtA6}# + #{y 28516}# '(#(atom "quote") each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtA9}# + (if #{tmp 28519}# (@apply - (lambda (#{y -ANAU$bmvAmthP7L7xwtBA}#) - (#{k -ANAU$bmvAmthP7L7xwtA7}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#) + (lambda (#{y 28522}#) + (#{k 28517}# + (map (lambda (#{tmp-28274 28523}#) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("1eu")) + #("l-*-28272")) #(ribcage () () @@ -25582,13 +24653,13 @@ #((top) (top) (top)) - #("1ep" - "1eq" - "1er")) + #("l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage #(_) #((top)) - #("1eo")) + #("l-*-28252")) #(ribcage () () @@ -25596,7 +24667,7 @@ #(ribcage #(x) #((top)) - #("1em")) + #("l-*-28246")) #(ribcage (emit quasivector quasilist* @@ -25611,51 +24682,51 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xws9h -ANAU$bmvAmthP7L7xwtBB}#)) - #{y -ANAU$bmvAmthP7L7xwtBA}#))) - #{tmp -ANAU$bmvAmthP7L7xwtA9}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtBC}# + #{tmp-28274 28523}#)) + #{y 28522}#))) + #{tmp 28519}#) + (let ((#{tmp 28524}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtA6}# + #{y 28516}# '(#(atom "list") . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtBC}# + (if #{tmp 28524}# (@apply - (lambda (#{y -ANAU$bmvAmthP7L7xwtBF}#) - (#{k -ANAU$bmvAmthP7L7xwtA7}# - #{y -ANAU$bmvAmthP7L7xwtBF}#)) - #{tmp -ANAU$bmvAmthP7L7xwtBC}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtBG}# + (lambda (#{y 28527}#) + (#{k 28517}# + #{y 28527}#)) + #{tmp 28524}#) + (let ((#{tmp 28528}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtA6}# + #{y 28516}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp -ANAU$bmvAmthP7L7xwtBG}# + (if #{tmp 28528}# (@apply - (lambda (#{y -ANAU$bmvAmthP7L7xwtBJ}# - #{z -ANAU$bmvAmthP7L7xwtBK}#) - (#{f -ANAU$bmvAmthP7L7xwtAu}# - #{z -ANAU$bmvAmthP7L7xwtBK}# - (lambda (#{ls -ANAU$bmvAmthP7L7xwtBL}#) - (#{k -ANAU$bmvAmthP7L7xwtA7}# + (lambda (#{y 28531}# + #{z 28532}#) + (#{f 28504}# + #{z 28532}# + (lambda (#{ls 28533}#) + (#{k 28517}# (append - #{y -ANAU$bmvAmthP7L7xwtBJ}# - #{ls -ANAU$bmvAmthP7L7xwtBL}#))))) - #{tmp -ANAU$bmvAmthP7L7xwtBG}#) + #{y 28531}# + #{ls 28533}#))))) + #{tmp 28528}#) (list '#(syntax-object "list->vector" ((top) @@ -25664,14 +24735,14 @@ () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws9r}#) - #((m-ANAU$bmvAmthP7L7xws9s + #(t-28289) + #((m-*-28290 top)) - #("1f0")) + #("l-*-28293")) #(ribcage #(else) #((top)) - #("1ez")) + #("l-*-28287")) #(ribcage () () @@ -25681,13 +24752,13 @@ #((top) (top) (top)) - #("1ep" - "1eq" - "1er")) + #("l-*-28254" + "l-*-28255" + "l-*-28256")) #(ribcage #(_) #((top)) - #("1eo")) + #("l-*-28252")) #(ribcage () () @@ -25695,7 +24766,7 @@ #(ribcage #(x) #((top)) - #("1em")) + #("l-*-28246")) #(ribcage (emit quasivector quasilist* @@ -25710,26 +24781,26 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{x -ANAU$bmvAmthP7L7xwtAm}#)))))))))) - (#{f -ANAU$bmvAmthP7L7xwtAu}# - #{x -ANAU$bmvAmthP7L7xwtAm}# - (lambda (#{ls -ANAU$bmvAmthP7L7xwtAw}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtAy}# + #{x 28496}#)))))))))) + (#{f 28504}# + #{x 28496}# + (lambda (#{ls 28506}#) + (let ((#{tmp 28508}# ($sc-dispatch - #{ls -ANAU$bmvAmthP7L7xwtAw}# + #{ls 28506}# 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xwtAy}# + (if #{tmp 28508}# (@apply - (lambda (#{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#) + (lambda (#{t-28262 28511}#) (cons '#(syntax-object "vector" ((top) @@ -25738,10 +24809,10 @@ () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws9X}#) - #((m-ANAU$bmvAmthP7L7xws9Y + #(t-28262) + #((m-*-28263 top)) - #("1et")) + #("l-*-28267")) #(ribcage () () @@ -25757,11 +24828,11 @@ #(ribcage #(ls) #((top)) - #("1es")) + #("l-*-28261")) #(ribcage #(_) #((top)) - #("1eo")) + #("l-*-28252")) #(ribcage () () @@ -25769,7 +24840,7 @@ #(ribcage #(x) #((top)) - #("1em")) + #("l-*-28246")) #(ribcage (emit quasivector quasilist* @@ -25784,30 +24855,30 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{ g-ANAU$bmvAmthP7L7xws9X -ANAU$bmvAmthP7L7xwtA1}#)) - #{tmp -ANAU$bmvAmthP7L7xwtAy}#) + #{t-28262 28511}#)) + #{tmp 28508}#) (syntax-violation #f "source expression failed to match any pattern" - #{ls -ANAU$bmvAmthP7L7xwtAw}#)))))))))) - #{tmp -ANAU$bmvAmthP7L7xwtAf}#) + #{ls 28506}#)))))))))) + #{tmp 28489}#) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("1du")) + #(ribcage #(p) #((top)) #("l-*-28152")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dk" "1dl")) + #("l-*-28121" "l-*-28122")) #(ribcage (emit quasivector quasilist* @@ -25822,29 +24893,25 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{p -ANAU$bmvAmthP7L7xws@F}#))))))))))) - (#{vquasi -ANAU$bmvAmthP7L7xws$u}# - (lambda (#{p -ANAU$bmvAmthP7L7xwtBn}# - #{lev -ANAU$bmvAmthP7L7xwtBo}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtBq}# - ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwtBn}# - '(any . any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtBq}# + #{p 28399}#))))))))))) + (#{vquasi 28376}# + (lambda (#{p 28561}# #{lev 28562}#) + (let ((#{tmp 28564}# + ($sc-dispatch #{p 28561}# '(any . any)))) + (if #{tmp 28564}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xwtBu}# - #{q -ANAU$bmvAmthP7L7xwtBv}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtBx}# + (lambda (#{p 28568}# #{q 28569}#) + (let ((#{tmp 28571}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwtBu}# + #{p 28568}# '(#(free-id #(syntax-object unquote @@ -25852,12 +24919,12 @@ #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -25872,38 +24939,38 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtBx}# + (if #{tmp 28571}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xwtB1}#) - (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0) - (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8W -ANAU$bmvAmthP7L7xwtCZ}#) + (lambda (#{p 28575}#) + (if (= #{lev 28562}# 0) + (#{quasilist* 28379}# + (map (lambda (#{tmp-28168 28611}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("1dz")) + #("l-*-28166")) #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -25918,34 +24985,32 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{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}# + #{tmp-28168 28611}#)) + #{p 28575}#) + (#{vquasi 28376}# #{q 28569}# #{lev 28562}#)) + (#{quasicons 28377}# + (#{quasicons 28377}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("1dz")) + #(ribcage #(p) #((top)) #("l-*-28166")) #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -25960,27 +25025,27 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("1dz")) + #(ribcage #(p) #((top)) #("l-*-28166")) #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -25995,24 +25060,22 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) - (#{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}# + (#{quasi 28375}# + #{p 28575}# + (#{1-}# #{lev 28562}#))) + (#{vquasi 28376}# #{q 28569}# #{lev 28562}#)))) + #{tmp 28571}#) + (let ((#{tmp 28618}# ($sc-dispatch - #{p -ANAU$bmvAmthP7L7xwtBu}# + #{p 28568}# '(#(free-id #(syntax-object unquote-splicing @@ -26020,12 +25083,12 @@ #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -26040,38 +25103,40 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtCg}# + (if #{tmp 28618}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xwtCk}#) - (if (= #{lev -ANAU$bmvAmthP7L7xwtBo}# 0) - (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# - (map (lambda (#{tmp -ANAU$bmvAmthP7L7xws8a -ANAU$bmvAmthP7L7xwtCn}#) + (lambda (#{p 28622}#) + (if (= #{lev 28562}# 0) + (#{quasiappend 28378}# + (map (lambda (#{tmp-28173 28625}#) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("1e0")) + #("l-*-28171")) #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" + "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" + "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -26086,34 +25151,37 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{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}# + #{tmp-28173 28625}#)) + #{p 28622}#) + (#{vquasi 28376}# + #{q 28569}# + #{lev 28562}#)) + (#{quasicons 28377}# + (#{quasicons 28377}# '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("1e0")) + #(ribcage + #(p) + #((top)) + #("l-*-28171")) #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -26128,27 +25196,30 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) #(syntax-object unquote-splicing ((top) - #(ribcage #(p) #((top)) #("1e0")) + #(ribcage + #(p) + #((top)) + #("l-*-28171")) #(ribcage #(p q) #((top) (top)) - #("1dx" "1dy")) + #("l-*-28160" "l-*-28161")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("1dv" "1dw")) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -26163,39 +25234,37 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile))) - (#{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}# + (#{quasi 28375}# + #{p 28622}# + (#{1-}# #{lev 28562}#))) + (#{vquasi 28376}# + #{q 28569}# + #{lev 28562}#)))) + #{tmp 28618}#) + (#{quasicons 28377}# + (#{quasi 28375}# #{p 28568}# #{lev 28562}#) + (#{vquasi 28376}# #{q 28569}# #{lev 28562}#))))))) + #{tmp 28564}#) + (let ((#{tmp 28643}# ($sc-dispatch #{p 28561}# '()))) + (if #{tmp 28643}# (@apply (lambda () '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(p lev) #((top) (top)) #("1dv" "1dw")) + #(ribcage + #(p lev) + #((top) (top)) + #("l-*-28156" "l-*-28157")) #(ribcage (emit quasivector quasilist* @@ -26204,64 +25273,64 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) ())) - #{tmp -ANAU$bmvAmthP7L7xwtC5}#) + #{tmp 28643}#) (syntax-violation #f "source expression failed to match any pattern" - #{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 -ANAU$bmvAmthP7L7xwtDI}# - '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtDJ}# + #{p 28561}#))))))) + (#{quasicons 28377}# + (lambda (#{x 28656}# #{y 28657}#) + (let ((#{tmp 28658}# (list #{x 28656}# #{y 28657}#))) + (let ((#{tmp 28659}# + ($sc-dispatch #{tmp 28658}# '(any any)))) + (if #{tmp 28659}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtDL}# - #{y -ANAU$bmvAmthP7L7xwtDM}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtDO}# + (lambda (#{x 28661}# #{y 28662}#) + (let ((#{tmp 28664}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtDM}# + #{y 28662}# '(#(atom "quote") any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtDO}# + (if #{tmp 28664}# (@apply - (lambda (#{dy -ANAU$bmvAmthP7L7xwtDS}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtDU}# + (lambda (#{dy 28668}#) + (let ((#{tmp 28670}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtDL}# + #{x 28661}# '(#(atom "quote") any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtDU}# + (if #{tmp 28670}# (@apply - (lambda (#{dx -ANAU$bmvAmthP7L7xwtDY}#) + (lambda (#{dx 28674}#) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("1e7")) + #("l-*-28195")) #(ribcage #(dy) #((top)) - #("1e6")) + #("l-*-28191")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e4" "1e5")) + #("l-*-28185" "l-*-28186")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e2" "1e3")) + #("l-*-28180" "l-*-28181")) #(ribcage (emit quasivector quasilist* @@ -26276,34 +25345,39 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - (cons #{dx -ANAU$bmvAmthP7L7xwtDY}# - #{dy -ANAU$bmvAmthP7L7xwtDS}#))) - #{tmp -ANAU$bmvAmthP7L7xwtDU}#) - (if (null? #{dy -ANAU$bmvAmthP7L7xwtDS}#) + (cons #{dx 28674}# #{dy 28668}#))) + #{tmp 28670}#) + (if (null? #{dy 28668}#) (list '#(syntax-object "list" ((top) - #(ribcage #(_) #((top)) #("1e8")) - #(ribcage #(dy) #((top)) #("1e6")) + #(ribcage + #(_) + #((top)) + #("l-*-28197")) + #(ribcage + #(dy) + #((top)) + #("l-*-28191")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e4" "1e5")) + #("l-*-28185" "l-*-28186")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e2" "1e3")) + #("l-*-28180" "l-*-28181")) #(ribcage (emit quasivector quasilist* @@ -26318,31 +25392,37 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{x -ANAU$bmvAmthP7L7xwtDL}#) + #{x 28661}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("1e8")) - #(ribcage #(dy) #((top)) #("1e6")) + #(ribcage + #(_) + #((top)) + #("l-*-28197")) + #(ribcage + #(dy) + #((top)) + #("l-*-28191")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e4" "1e5")) + #("l-*-28185" "l-*-28186")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e2" "1e3")) + #("l-*-28180" "l-*-28181")) #(ribcage (emit quasivector quasilist* @@ -26357,42 +25437,42 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{x -ANAU$bmvAmthP7L7xwtDL}# - #{y -ANAU$bmvAmthP7L7xwtDM}#))))) - #{tmp -ANAU$bmvAmthP7L7xwtDO}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtDd}# + #{x 28661}# + #{y 28662}#))))) + #{tmp 28664}#) + (let ((#{tmp 28679}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtDM}# + #{y 28662}# '(#(atom "list") . any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtDd}# + (if #{tmp 28679}# (@apply - (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDh}#) + (lambda (#{stuff 28683}#) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("1e9")) + #("l-*-28200")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e4" "1e5")) + #("l-*-28185" "l-*-28186")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e2" "1e3")) + #("l-*-28180" "l-*-28181")) #(ribcage (emit quasivector quasilist* @@ -26407,42 +25487,41 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - (cons #{x -ANAU$bmvAmthP7L7xwtDL}# - #{stuff -ANAU$bmvAmthP7L7xwtDh}#))) - #{tmp -ANAU$bmvAmthP7L7xwtDd}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtDi}# + (cons #{x 28661}# #{stuff 28683}#))) + #{tmp 28679}#) + (let ((#{tmp 28684}# ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtDM}# + #{y 28662}# '(#(atom "list*") . any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtDi}# + (if #{tmp 28684}# (@apply - (lambda (#{stuff -ANAU$bmvAmthP7L7xwtDm}#) + (lambda (#{stuff 28688}#) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("1ea")) + #("l-*-28203")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e4" "1e5")) + #("l-*-28185" "l-*-28186")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e2" "1e3")) + #("l-*-28180" "l-*-28181")) #(ribcage (emit quasivector quasilist* @@ -26457,32 +25536,34 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - (cons #{x -ANAU$bmvAmthP7L7xwtDL}# - #{stuff -ANAU$bmvAmthP7L7xwtDm}#))) - #{tmp -ANAU$bmvAmthP7L7xwtDi}#) + (cons #{x 28661}# #{stuff 28688}#))) + #{tmp 28684}#) (list '#(syntax-object "list*" ((top) - #(ribcage #(_) #((top)) #("1eb")) + #(ribcage + #(_) + #((top)) + #("l-*-28205")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e4" "1e5")) + #("l-*-28185" "l-*-28186")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1e2" "1e3")) + #("l-*-28180" "l-*-28181")) #(ribcage (emit quasivector quasilist* @@ -26497,37 +25578,37 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{x -ANAU$bmvAmthP7L7xwtDL}# - #{y -ANAU$bmvAmthP7L7xwtDM}#)))))))) - #{tmp -ANAU$bmvAmthP7L7xwtDJ}#) + #{x 28661}# + #{y 28662}#)))))))) + #{tmp 28659}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtDI}#)))))) - (#{quasiappend -ANAU$bmvAmthP7L7xws$w}# - (lambda (#{x -ANAU$bmvAmthP7L7xwtDx}# - #{y -ANAU$bmvAmthP7L7xwtDy}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtD0}# - ($sc-dispatch - #{y -ANAU$bmvAmthP7L7xwtDy}# - '(#(atom "quote") ())))) - (if #{tmp -ANAU$bmvAmthP7L7xwtD0}# + #{tmp 28658}#)))))) + (#{quasiappend 28378}# + (lambda (#{x 28699}# #{y 28700}#) + (let ((#{tmp 28702}# + ($sc-dispatch #{y 28700}# '(#(atom "quote") ())))) + (if #{tmp 28702}# (@apply (lambda () - (if (null? #{x -ANAU$bmvAmthP7L7xwtDx}#) + (if (null? #{x 28699}#) '(#(syntax-object "quote" ((top) #(ribcage () () ()) - #(ribcage #(x y) #((top) (top)) #("1ec" "1ed")) + #(ribcage + #(x y) + #((top) (top)) + #("l-*-28209" "l-*-28210")) #(ribcage (emit quasivector quasilist* @@ -26536,28 +25617,35 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) ()) - (if (null? (cdr #{x -ANAU$bmvAmthP7L7xwtDx}#)) - (car #{x -ANAU$bmvAmthP7L7xwtDx}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtD5}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtDx}# - 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xwtD5}# + (if (null? (cdr #{x 28699}#)) + (car #{x 28699}#) + (let ((#{tmp 28707}# + ($sc-dispatch #{x 28699}# 'each-any))) + (if #{tmp 28707}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xwtD9}#) + (lambda (#{p 28711}#) (cons '#(syntax-object "append" ((top) #(ribcage () () ()) - #(ribcage #(p) #((top)) #("1ee")) + #(ribcage + #(p) + #((top)) + #("l-*-28221")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1ec" "1ed")) + #("l-*-28209" "l-*-28210")) #(ribcage (emit quasivector quasilist* @@ -26572,34 +25660,29 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{p -ANAU$bmvAmthP7L7xwtD9}#)) - #{tmp -ANAU$bmvAmthP7L7xwtD5}#) + #{p 28711}#)) + #{tmp 28707}#) (syntax-violation #f "source expression failed to match any pattern" - #{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 -ANAU$bmvAmthP7L7xwtEF}# - '(each-any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtEG}# + #{x 28699}#)))))) + #{tmp 28702}#) + (if (null? #{x 28699}#) + #{y 28700}# + (let ((#{tmp 28719}# (list #{x 28699}# #{y 28700}#))) + (let ((#{tmp 28720}# + ($sc-dispatch #{tmp 28719}# '(each-any any)))) + (if #{tmp 28720}# (@apply - (lambda (#{p -ANAU$bmvAmthP7L7xwtEI}# - #{y -ANAU$bmvAmthP7L7xwtEJ}#) + (lambda (#{p 28722}# #{y 28723}#) (cons '#(syntax-object "append" ((top) @@ -26607,13 +25690,13 @@ #(ribcage #(p y) #((top) (top)) - #("1eg" "1eh")) - #(ribcage #(_) #((top)) #("1ef")) + #("l-*-28232" "l-*-28233")) + #(ribcage #(_) #((top)) #("l-*-28224")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("1ec" "1ed")) + #("l-*-28209" "l-*-28210")) #(ribcage (emit quasivector quasilist* @@ -26628,51 +25711,44 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - (append - #{p -ANAU$bmvAmthP7L7xwtEI}# - (list #{y -ANAU$bmvAmthP7L7xwtEJ}#)))) - #{tmp -ANAU$bmvAmthP7L7xwtEG}#) + (append #{p 28722}# (list #{y 28723}#)))) + #{tmp 28720}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtEF}#))))))))) - (#{quasilist* -ANAU$bmvAmthP7L7xws$x}# - (lambda (#{x -ANAU$bmvAmthP7L7xwtEN}# - #{y -ANAU$bmvAmthP7L7xwtEO}#) + #{tmp 28719}#))))))))) + (#{quasilist* 28379}# + (lambda (#{x 28727}# #{y 28728}#) (letrec* - ((#{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 -ANAU$bmvAmthP7L7xwtFr}# - '(#(atom "quote") any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtFt}# + ((#{f 28729}# + (lambda (#{x 28818}#) + (if (null? #{x 28818}#) + #{y 28728}# + (#{quasicons 28377}# + (car #{x 28818}#) + (#{f 28729}# (cdr #{x 28818}#))))))) + (#{f 28729}# #{x 28727}#)))) + (#{emit 28381}# + (lambda (#{x 28821}#) + (let ((#{tmp 28823}# + ($sc-dispatch #{x 28821}# '(#(atom "quote") any)))) + (if #{tmp 28823}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtFx}#) + (lambda (#{x 28827}#) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("1f2")) + #(ribcage #(x) #((top)) #("l-*-28299")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1f1")) + #(ribcage #(x) #((top)) #("l-*-28296")) #(ribcage (emit quasivector quasilist* @@ -26681,38 +25757,46 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("1dj" "1di" "1dh" "1dg" "1df" "1de" "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{x -ANAU$bmvAmthP7L7xwtFx}#)) - #{tmp -ANAU$bmvAmthP7L7xwtFt}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtFy}# + #{x 28827}#)) + #{tmp 28823}#) + (let ((#{tmp 28828}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtFr}# + #{x 28821}# '(#(atom "list") . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtFy}# + (if #{tmp 28828}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtF2}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtF3}# - (map #{emit -ANAU$bmvAmthP7L7xws$z}# - #{x -ANAU$bmvAmthP7L7xwtF2}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtF4}# - ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwtF3}# - 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xwtF4}# + (lambda (#{x 28832}#) + (let ((#{tmp 28833}# (map #{emit 28381}# #{x 28832}#))) + (let ((#{tmp 28834}# + ($sc-dispatch #{tmp 28833}# 'each-any))) + (if #{tmp 28834}# (@apply - (lambda (#{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#) + (lambda (#{t-28304 28836}#) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws92}#) - #((m-ANAU$bmvAmthP7L7xws93 top)) - #("1f4")) - #(ribcage #(x) #((top)) #("1f3")) + #(t-28304) + #((m-*-28305 top)) + #("l-*-28309")) + #(ribcage + #(x) + #((top)) + #("l-*-28302")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1f1")) + #(ribcage + #(x) + #((top)) + #("l-*-28296")) #(ribcage (emit quasivector quasilist* @@ -26727,74 +25811,72 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{ g-ANAU$bmvAmthP7L7xws92 -ANAU$bmvAmthP7L7xwtF6}#)) - #{tmp -ANAU$bmvAmthP7L7xwtF4}#) + #{t-28304 28836}#)) + #{tmp 28834}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtF3}#))))) - #{tmp -ANAU$bmvAmthP7L7xwtFy}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtF7}# + #{tmp 28833}#))))) + #{tmp 28828}#) + (let ((#{tmp 28837}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtFr}# + #{x 28821}# '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp -ANAU$bmvAmthP7L7xwtF7}# + (if #{tmp 28837}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtF@}# - #{y -ANAU$bmvAmthP7L7xwtGA}#) + (lambda (#{x 28841}# #{y 28842}#) (letrec* - ((#{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}# + ((#{f 28843}# + (lambda (#{x* 28846}#) + (if (null? #{x* 28846}#) + (#{emit 28381}# #{y 28842}#) + (let ((#{tmp 28847}# + (list (#{emit 28381}# + (car #{x* 28846}#)) + (#{f 28843}# + (cdr #{x* 28846}#))))) + (let ((#{tmp 28848}# ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwtGF}# + #{tmp 28847}# '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGG}# + (if #{tmp 28848}# (@apply - (lambda (#{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}# - #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#) + (lambda (#{t-28324 28850}# + #{t-28323 28851}#) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws$F}# - #{ g-ANAU$bmvAmthP7L7xws$E}#) - #((m-ANAU$bmvAmthP7L7xws$G - top) - (m-ANAU$bmvAmthP7L7xws$G - top)) - #("1f9" "1fa")) + #(t-28324 t-28323) + #((m-*-28325 top) + (m-*-28325 top)) + #("l-*-28329" + "l-*-28330")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("1f7" "1f8")) + #("l-*-28318" + "l-*-28319")) #(ribcage #(x y) #((top) (top)) - #("1f5" "1f6")) + #("l-*-28314" + "l-*-28315")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1f1")) + #("l-*-28296")) #(ribcage (emit quasivector quasilist* @@ -26809,59 +25891,56 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{ g-ANAU$bmvAmthP7L7xws$F -ANAU$bmvAmthP7L7xwtGI}# - #{ g-ANAU$bmvAmthP7L7xws$E -ANAU$bmvAmthP7L7xwtGJ}#)) - #{tmp -ANAU$bmvAmthP7L7xwtGG}#) + #{t-28324 28850}# + #{t-28323 28851}#)) + #{tmp 28848}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtGF}#)))))))) - (#{f -ANAU$bmvAmthP7L7xwtGB}# - #{x -ANAU$bmvAmthP7L7xwtF@}#))) - #{tmp -ANAU$bmvAmthP7L7xwtF7}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGK}# + #{tmp 28847}#)))))))) + (#{f 28843}# #{x 28841}#))) + #{tmp 28837}#) + (let ((#{tmp 28852}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtFr}# + #{x 28821}# '(#(atom "append") . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGK}# + (if #{tmp 28852}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtGO}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGP}# - (map #{emit -ANAU$bmvAmthP7L7xws$z}# - #{x -ANAU$bmvAmthP7L7xwtGO}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGQ}# + (lambda (#{x 28856}#) + (let ((#{tmp 28857}# + (map #{emit 28381}# #{x 28856}#))) + (let ((#{tmp 28858}# ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwtGP}# + #{tmp 28857}# 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGQ}# + (if #{tmp 28858}# (@apply - (lambda (#{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#) + (lambda (#{t-28336 28860}#) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws$O}#) - #((m-ANAU$bmvAmthP7L7xws$P - top)) - #("1fc")) + #(t-28336) + #((m-*-28337 top)) + #("l-*-28341")) #(ribcage #(x) #((top)) - #("1fb")) + #("l-*-28334")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1f1")) + #("l-*-28296")) #(ribcage (emit quasivector quasilist* @@ -26876,56 +25955,54 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{ g-ANAU$bmvAmthP7L7xws$O -ANAU$bmvAmthP7L7xwtGS}#)) - #{tmp -ANAU$bmvAmthP7L7xwtGQ}#) + #{t-28336 28860}#)) + #{tmp 28858}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtGP}#))))) - #{tmp -ANAU$bmvAmthP7L7xwtGK}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGT}# + #{tmp 28857}#))))) + #{tmp 28852}#) + (let ((#{tmp 28861}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtFr}# + #{x 28821}# '(#(atom "vector") . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGT}# + (if #{tmp 28861}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtGX}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGY}# - (map #{emit -ANAU$bmvAmthP7L7xws$z}# - #{x -ANAU$bmvAmthP7L7xwtGX}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGZ}# + (lambda (#{x 28865}#) + (let ((#{tmp 28866}# + (map #{emit 28381}# #{x 28865}#))) + (let ((#{tmp 28867}# ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwtGY}# + #{tmp 28866}# 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGZ}# + (if #{tmp 28867}# (@apply - (lambda (#{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#) + (lambda (#{t-28348 28869}#) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws$Y}#) - #((m-ANAU$bmvAmthP7L7xws$Z - top)) - #("1fe")) + #(t-28348) + #((m-*-28349 top)) + #("l-*-28353")) #(ribcage #(x) #((top)) - #("1fd")) + #("l-*-28346")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1f1")) + #("l-*-28296")) #(ribcage (emit quasivector quasilist* @@ -26940,49 +26017,47 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{ g-ANAU$bmvAmthP7L7xws$Y -ANAU$bmvAmthP7L7xwtGb}#)) - #{tmp -ANAU$bmvAmthP7L7xwtGZ}#) + #{t-28348 28869}#)) + #{tmp 28867}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtGY}#))))) - #{tmp -ANAU$bmvAmthP7L7xwtGT}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGc}# + #{tmp 28866}#))))) + #{tmp 28861}#) + (let ((#{tmp 28870}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtFr}# + #{x 28821}# '(#(atom "list->vector") any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGc}# + (if #{tmp 28870}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtGg}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGh}# - (#{emit -ANAU$bmvAmthP7L7xws$z}# - #{x -ANAU$bmvAmthP7L7xwtGg}#))) + (lambda (#{x 28874}#) + (let ((#{tmp 28875}# + (#{emit 28381}# #{x 28874}#))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(#{ g-ANAU$bmvAmthP7L7xws$i}#) - #((m-ANAU$bmvAmthP7L7xws$j - top)) - #("1fg")) + #(t-28360) + #((m-*-28361 top)) + #("l-*-28364")) #(ribcage #(x) #((top)) - #("1ff")) + #("l-*-28358")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1f1")) + #("l-*-28296")) #(ribcage (emit quasivector quasilist* @@ -26997,218 +26072,191 @@ (top) (top) (top)) - ("1dj" - "1di" - "1dh" - "1dg" - "1df" - "1de" - "1dd"))) + ("l-*-28117" + "l-*-28115" + "l-*-28113" + "l-*-28111" + "l-*-28109" + "l-*-28107" + "l-*-28105"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xwtGh}#))) - #{tmp -ANAU$bmvAmthP7L7xwtGc}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtGk}# + #{tmp 28875}#))) + #{tmp 28870}#) + (let ((#{tmp 28878}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtFr}# + #{x 28821}# '(#(atom "value") any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtGk}# + (if #{tmp 28878}# (@apply - (lambda (#{x -ANAU$bmvAmthP7L7xwtGo}#) - #{x -ANAU$bmvAmthP7L7xwtGo}#) - #{tmp -ANAU$bmvAmthP7L7xwtGk}#) + (lambda (#{x 28882}#) #{x 28882}#) + #{tmp 28878}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xwtFr}#)))))))))))))))))) - (lambda (#{x -ANAU$bmvAmthP7L7xws$0}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xws$2}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xws$0}# - '(_ any)))) - (if #{tmp -ANAU$bmvAmthP7L7xws$2}# + #{x 28821}#)))))))))))))))))) + (lambda (#{x 28382}#) + (let ((#{tmp 28384}# + ($sc-dispatch #{x 28382}# '(_ any)))) + (if #{tmp 28384}# (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xws$6}#) - (#{emit -ANAU$bmvAmthP7L7xws$z}# - (#{quasi -ANAU$bmvAmthP7L7xws$t}# - #{e -ANAU$bmvAmthP7L7xws$6}# - 0))) - #{tmp -ANAU$bmvAmthP7L7xws$2}#) + (lambda (#{e 28388}#) + (#{emit 28381}# (#{quasi 28375}# #{e 28388}# 0))) + #{tmp 28384}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xws$0}#))))))) + #{x 28382}#))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtHT}#) + (lambda (#{x 28937}#) (letrec* - ((#{read-file -ANAU$bmvAmthP7L7xwtHU}# - (lambda (#{fn -ANAU$bmvAmthP7L7xwtJB}# - #{k -ANAU$bmvAmthP7L7xwtJC}#) - (let ((#{p -ANAU$bmvAmthP7L7xwtJD}# - (open-input-file #{fn -ANAU$bmvAmthP7L7xwtJB}#))) + ((#{read-file 28938}# + (lambda (#{fn 29047}# #{k 29048}#) + (let ((#{p 29049}# (open-input-file #{fn 29047}#))) (letrec* - ((#{f -ANAU$bmvAmthP7L7xwtJE}# - (lambda (#{x -ANAU$bmvAmthP7L7xwtJ6}# - #{result -ANAU$bmvAmthP7L7xwtJ7}#) - (if (eof-object? #{x -ANAU$bmvAmthP7L7xwtJ6}#) + ((#{f 29050}# + (lambda (#{x 29104}# #{result 29105}#) + (if (eof-object? #{x 29104}#) (begin - (close-input-port #{p -ANAU$bmvAmthP7L7xwtJD}#) - (reverse #{result -ANAU$bmvAmthP7L7xwtJ7}#)) - (#{f -ANAU$bmvAmthP7L7xwtJE}# - (read #{p -ANAU$bmvAmthP7L7xwtJD}#) - (cons (datum->syntax - #{k -ANAU$bmvAmthP7L7xwtJC}# - #{x -ANAU$bmvAmthP7L7xwtJ6}#) - #{result -ANAU$bmvAmthP7L7xwtJ7}#)))))) - (#{f -ANAU$bmvAmthP7L7xwtJE}# - (read #{p -ANAU$bmvAmthP7L7xwtJD}#) - '())))))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtHW}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtHT}# - '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtHW}# + (close-input-port #{p 29049}#) + (reverse #{result 29105}#)) + (#{f 29050}# + (read #{p 29049}#) + (cons (datum->syntax #{k 29048}# #{x 29104}#) + #{result 29105}#)))))) + (#{f 29050}# (read #{p 29049}#) '())))))) + (let ((#{tmp 28940}# + ($sc-dispatch #{x 28937}# '(any any)))) + (if #{tmp 28940}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xwtHa}# - #{filename -ANAU$bmvAmthP7L7xwtHb}#) - (let ((#{fn -ANAU$bmvAmthP7L7xwtHc}# - (syntax->datum - #{filename -ANAU$bmvAmthP7L7xwtHb}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtHd}# - (#{read-file -ANAU$bmvAmthP7L7xwtHU}# - #{fn -ANAU$bmvAmthP7L7xwtHc}# - #{filename -ANAU$bmvAmthP7L7xwtHb}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtHe}# - ($sc-dispatch - #{tmp -ANAU$bmvAmthP7L7xwtHd}# - 'each-any))) - (if #{tmp -ANAU$bmvAmthP7L7xwtHe}# + (lambda (#{k 28944}# #{filename 28945}#) + (let ((#{fn 28946}# (syntax->datum #{filename 28945}#))) + (let ((#{tmp 28947}# + (#{read-file 28938}# + #{fn 28946}# + #{filename 28945}#))) + (let ((#{tmp 28948}# + ($sc-dispatch #{tmp 28947}# 'each-any))) + (if #{tmp 28948}# (@apply - (lambda (#{exp -ANAU$bmvAmthP7L7xwtHw}#) + (lambda (#{exp 28966}#) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("1fv")) + #(ribcage #(exp) #((top)) #("l-*-28934")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("1fu")) + #(ribcage #(fn) #((top)) #("l-*-28929")) #(ribcage #(k filename) #((top) (top)) - #("1fs" "1ft")) - #(ribcage (read-file) ((top)) ("1fl")) - #(ribcage #(x) #((top)) #("1fk"))) + #("l-*-28925" "l-*-28926")) + #(ribcage + (read-file) + ((top)) + ("l-*-28909")) + #(ribcage #(x) #((top)) #("l-*-28908"))) (hygiene guile)) - #{exp -ANAU$bmvAmthP7L7xwtHw}#)) - #{tmp -ANAU$bmvAmthP7L7xwtHe}#) + #{exp 28966}#)) + #{tmp 28948}#) (syntax-violation #f "source expression failed to match any pattern" - #{tmp -ANAU$bmvAmthP7L7xwtHd}#)))))) - #{tmp -ANAU$bmvAmthP7L7xwtHW}#) + #{tmp 28947}#)))))) + #{tmp 28940}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xwtHT}#))))))) + #{x 28937}#))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtKI}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtKK}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtKI}# - '(any any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtKK}# + (lambda (#{x 29124}#) + (let ((#{tmp 29126}# + ($sc-dispatch #{x 29124}# '(any any)))) + (if #{tmp 29126}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xwtKO}# - #{filename -ANAU$bmvAmthP7L7xwtKP}#) - (let ((#{fn -ANAU$bmvAmthP7L7xwtKQ}# - (syntax->datum - #{filename -ANAU$bmvAmthP7L7xwtKP}#))) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtKR}# + (lambda (#{k 29130}# #{filename 29131}#) + (let ((#{fn 29132}# (syntax->datum #{filename 29131}#))) + (let ((#{tmp 29133}# (datum->syntax - #{filename -ANAU$bmvAmthP7L7xwtKP}# - (let ((#{t -ANAU$bmvAmthP7L7xwtKU}# - (%search-load-path - #{fn -ANAU$bmvAmthP7L7xwtKQ}#))) - (if #{t -ANAU$bmvAmthP7L7xwtKU}# - #{t -ANAU$bmvAmthP7L7xwtKU}# + #{filename 29131}# + (let ((#{t 29136}# (%search-load-path #{fn 29132}#))) + (if #{t 29136}# + #{t 29136}# (syntax-violation 'include-from-path "file not found in path" - #{x -ANAU$bmvAmthP7L7xwtKI}# - #{filename -ANAU$bmvAmthP7L7xwtKP}#)))))) + #{x 29124}# + #{filename 29131}#)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("1g0")) + #(ribcage #(fn) #((top)) #("l-*-29118")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("1fz")) + #(ribcage #(fn) #((top)) #("l-*-29114")) #(ribcage #(k filename) #((top) (top)) - #("1fx" "1fy")) + #("l-*-29110" "l-*-29111")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1fw"))) + #(ribcage #(x) #((top)) #("l-*-29107"))) (hygiene guile)) - #{tmp -ANAU$bmvAmthP7L7xwtKR}#)))) - #{tmp -ANAU$bmvAmthP7L7xwtKK}#) + #{tmp 29133}#)))) + #{tmp 29126}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xwtKI}#)))))) + #{x 29124}#)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtKc}#) + (lambda (#{x 29145}#) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x -ANAU$bmvAmthP7L7xwtKc}#)))) + #{x 29145}#)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtKe}#) + (lambda (#{x 29148}#) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x -ANAU$bmvAmthP7L7xwtKe}#)))) + #{x 29148}#)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtLD}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtLF}# + (lambda (#{x 29204}#) + (let ((#{tmp 29206}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtLD}# + #{x 29204}# '(_ any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtLF}# + (if #{tmp 29206}# (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xwtLJ}# - #{m1 -ANAU$bmvAmthP7L7xwtLK}# - #{m2 -ANAU$bmvAmthP7L7xwtLL}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtLM}# + (lambda (#{e 29210}# #{m1 29211}# #{m2 29212}#) + (let ((#{tmp 29213}# (letrec* - ((#{f -ANAU$bmvAmthP7L7xwtL2}# - (lambda (#{clause -ANAU$bmvAmthP7L7xwtL5}# - #{clauses -ANAU$bmvAmthP7L7xwtL6}#) - (if (null? #{clauses -ANAU$bmvAmthP7L7xwtL6}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtL8}# + ((#{f 29255}# + (lambda (#{clause 29258}# #{clauses 29259}#) + (if (null? #{clauses 29259}#) + (let ((#{tmp 29261}# ($sc-dispatch - #{clause -ANAU$bmvAmthP7L7xwtL5}# + #{clause 29258}# '(#(free-id #(syntax-object else @@ -27217,79 +26265,91 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" "1ga" "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" "1g6" "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile))) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtL8}# + (if #{tmp 29261}# (@apply - (lambda (#{e1 -ANAU$bmvAmthP7L7xwtMA}# - #{e2 -ANAU$bmvAmthP7L7xwtMB}#) + (lambda (#{e1 29265}# #{e2 29266}#) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("1gc" "1gd")) + #("l-*-29172" "l-*-29173")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" "1ga" "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" "1g6" "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) - (cons #{e1 -ANAU$bmvAmthP7L7xwtMA}# - #{e2 -ANAU$bmvAmthP7L7xwtMB}#))) - #{tmp -ANAU$bmvAmthP7L7xwtL8}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtMC}# + (cons #{e1 29265}# #{e2 29266}#))) + #{tmp 29261}#) + (let ((#{tmp 29267}# ($sc-dispatch - #{clause -ANAU$bmvAmthP7L7xwtL5}# + #{clause 29258}# '(each-any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtMC}# + (if #{tmp 29267}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xwtMG}# - #{e1 -ANAU$bmvAmthP7L7xwtMH}# - #{e2 -ANAU$bmvAmthP7L7xwtMI}#) + (lambda (#{k 29271}# + #{e1 29272}# + #{e2 29273}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("1ge" "1gf" "1gg")) + #("l-*-29178" + "l-*-29179" + "l-*-29180")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" "1ga" "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" "1g6" "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) (list '#(syntax-object memv @@ -27299,9 +26359,9 @@ #((top) (top) (top)) - #("1ge" - "1gf" - "1gg")) + #("l-*-29178" + "l-*-29179" + "l-*-29180")) #(ribcage () () ()) #(ribcage #(f @@ -27310,22 +26370,22 @@ #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) '#(syntax-object t @@ -27335,9 +26395,9 @@ #((top) (top) (top)) - #("1ge" - "1gf" - "1gg")) + #("l-*-29178" + "l-*-29179" + "l-*-29180")) #(ribcage () () ()) #(ribcage #(f @@ -27346,22 +26406,22 @@ #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) (list '#(syntax-object quote @@ -27371,9 +26431,9 @@ #((top) (top) (top)) - #("1ge" - "1gf" - "1gg")) + #("l-*-29178" + "l-*-29179" + "l-*-29180")) #(ribcage () () @@ -27385,17 +26445,17 @@ #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () @@ -27403,10 +26463,10 @@ #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) - #{k -ANAU$bmvAmthP7L7xwtMG}#)) + #{k 29271}#)) (cons '#(syntax-object begin ((top) @@ -27415,9 +26475,9 @@ #((top) (top) (top)) - #("1ge" - "1gf" - "1gg")) + #("l-*-29178" + "l-*-29179" + "l-*-29180")) #(ribcage () () ()) #(ribcage #(f @@ -27426,70 +26486,76 @@ #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) - (cons #{e1 -ANAU$bmvAmthP7L7xwtMH}# - #{e2 -ANAU$bmvAmthP7L7xwtMI}#)))) - #{tmp -ANAU$bmvAmthP7L7xwtMC}#) + (cons #{e1 29272}# + #{e2 29273}#)))) + #{tmp 29267}#) (syntax-violation 'case "bad clause" - #{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}# + #{x 29204}# + #{clause 29258}#))))) + (let ((#{tmp 29281}# + (#{f 29255}# + (car #{clauses 29259}#) + (cdr #{clauses 29259}#)))) + (let ((#{tmp 29284}# ($sc-dispatch - #{clause -ANAU$bmvAmthP7L7xwtL5}# + #{clause 29258}# '(each-any any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtMT}# + (if #{tmp 29284}# (@apply - (lambda (#{k -ANAU$bmvAmthP7L7xwtMX}# - #{e1 -ANAU$bmvAmthP7L7xwtMY}# - #{e2 -ANAU$bmvAmthP7L7xwtMZ}#) + (lambda (#{k 29288}# + #{e1 29289}# + #{e2 29290}#) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("1gj" "1gk" "1gl")) + #("l-*-29194" + "l-*-29195" + "l-*-29196")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("1gi")) + #("l-*-29190")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" "1ga" "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" "1g6" "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) (list '#(syntax-object memv @@ -27497,32 +26563,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("1gj" - "1gk" - "1gl")) + #("l-*-29194" + "l-*-29195" + "l-*-29196")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("1gi")) + #("l-*-29190")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) '#(syntax-object t @@ -27530,32 +26596,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("1gj" - "1gk" - "1gl")) + #("l-*-29194" + "l-*-29195" + "l-*-29196")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("1gi")) + #("l-*-29190")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) (list '#(syntax-object quote @@ -27565,9 +26631,9 @@ #((top) (top) (top)) - #("1gj" - "1gk" - "1gl")) + #("l-*-29194" + "l-*-29195" + "l-*-29196")) #(ribcage () () @@ -27575,7 +26641,7 @@ #(ribcage #(rest) #((top)) - #("1gi")) + #("l-*-29190")) #(ribcage () () @@ -27587,17 +26653,17 @@ #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () @@ -27605,238 +26671,252 @@ #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) - #{k -ANAU$bmvAmthP7L7xwtMX}#)) + #{k 29288}#)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("1gj" - "1gk" - "1gl")) + #("l-*-29194" + "l-*-29195" + "l-*-29196")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("1gi")) + #("l-*-29190")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("1g9" - "1ga" - "1gb")) + #("l-*-29163" + "l-*-29164" + "l-*-29165")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" - "1g6" - "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1g4"))) + #("l-*-29150"))) (hygiene guile)) - (cons #{e1 -ANAU$bmvAmthP7L7xwtMY}# - #{e2 -ANAU$bmvAmthP7L7xwtMZ}#)) - #{tmp -ANAU$bmvAmthP7L7xwtMQ}#)) - #{tmp -ANAU$bmvAmthP7L7xwtMT}#) + (cons #{e1 29289}# + #{e2 29290}#)) + #{tmp 29281}#)) + #{tmp 29284}#) (syntax-violation 'case "bad clause" - #{x -ANAU$bmvAmthP7L7xwtLD}# - #{clause -ANAU$bmvAmthP7L7xwtL5}#)))))))) - (#{f -ANAU$bmvAmthP7L7xwtL2}# - #{m1 -ANAU$bmvAmthP7L7xwtLK}# - #{m2 -ANAU$bmvAmthP7L7xwtLL}#)))) - (let ((#{body -ANAU$bmvAmthP7L7xwtLN}# - #{tmp -ANAU$bmvAmthP7L7xwtLM}#)) + #{x 29204}# + #{clause 29258}#)))))))) + (#{f 29255}# #{m1 29211}# #{m2 29212}#)))) + (let ((#{body 29214}# #{tmp 29213}#)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("1g8")) + #(ribcage #(body) #((top)) #("l-*-29161")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" "1g6" "1g7")) + #("l-*-29153" "l-*-29154" "l-*-29155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1g4"))) + #(ribcage #(x) #((top)) #("l-*-29150"))) (hygiene guile)) (list (list '#(syntax-object t ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("1g8")) + #(ribcage + #(body) + #((top)) + #("l-*-29161")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("1g5" "1g6" "1g7")) + #("l-*-29153" + "l-*-29154" + "l-*-29155")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1g4"))) + #(ribcage + #(x) + #((top)) + #("l-*-29150"))) (hygiene guile)) - #{e -ANAU$bmvAmthP7L7xwtLJ}#)) - #{body -ANAU$bmvAmthP7L7xwtLN}#)))) - #{tmp -ANAU$bmvAmthP7L7xwtLF}#) + #{e 29210}#)) + #{body 29214}#)))) + #{tmp 29206}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xwtLD}#)))))) + #{x 29204}#)))))) (define make-variable-transformer - (lambda (#{proc -ANAU$bmvAmthP7L7xwtMo}#) - (if (procedure? #{proc -ANAU$bmvAmthP7L7xwtMo}#) + (lambda (#{proc 29308}#) + (if (procedure? #{proc 29308}#) (letrec* - ((#{trans -ANAU$bmvAmthP7L7xwtMp}# - (lambda (#{x -ANAU$bmvAmthP7L7xwtMv}#) - (#{proc -ANAU$bmvAmthP7L7xwtMo}# - #{x -ANAU$bmvAmthP7L7xwtMv}#)))) + ((#{trans 29309}# + (lambda (#{x 29315}#) + (#{proc 29308}# #{x 29315}#)))) (begin (set-procedure-property! - #{trans -ANAU$bmvAmthP7L7xwtMp}# + #{trans 29309}# 'variable-transformer #t) - #{trans -ANAU$bmvAmthP7L7xwtMp}#)) + #{trans 29309}#)) (error "variable transformer not a procedure" - #{proc -ANAU$bmvAmthP7L7xwtMo}#)))) + #{proc 29308}#)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtND}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtNF}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtND}# - '(_ any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtNF}# + (lambda (#{x 29347}#) + (let ((#{tmp 29349}# + ($sc-dispatch #{x 29347}# '(_ any)))) + (if #{tmp 29349}# (@apply - (lambda (#{e -ANAU$bmvAmthP7L7xwtNJ}#) + (lambda (#{e 29353}#) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage + #(e) + #((top)) + #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage + #(x) + #((top)) + #("l-*-29319"))) (hygiene guile)) - #{e -ANAU$bmvAmthP7L7xwtNJ}#)) + #{e 29353}#)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage #(e) #((top)) #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile))) (list '#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("1gr")) + #(ribcage + #(e) + #((top)) + #("l-*-29322")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage + #(x) + #((top)) + #("l-*-29319"))) (hygiene guile)) - (cons #{e -ANAU$bmvAmthP7L7xwtNJ}# + (cons #{e 29353}# '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("1gr")) + #("l-*-29322")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) #(syntax-object ... @@ -27844,55 +26924,59 @@ #(ribcage #(e) #((top)) - #("1gr")) + #("l-*-29322")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile))))))))) - #{tmp -ANAU$bmvAmthP7L7xwtNF}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtNK}# + #{tmp 29349}#) + (let ((#{tmp 29354}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtND}# + #{x 29347}# '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile))) any any) any))))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwtNK}# + (if (if #{tmp 29354}# (@apply - (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}#) + (lambda (#{id 29358}# + #{exp1 29359}# + #{var 29360}# + #{val 29361}# + #{exp2 29362}#) + (if (identifier? #{id 29358}#) + (identifier? #{var 29360}#) #f)) - #{tmp -ANAU$bmvAmthP7L7xwtNK}#) + #{tmp 29354}#) #f) (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwtNT}# - #{exp1 -ANAU$bmvAmthP7L7xwtNU}# - #{var -ANAU$bmvAmthP7L7xwtNV}# - #{val -ANAU$bmvAmthP7L7xwtNW}# - #{exp2 -ANAU$bmvAmthP7L7xwtNX}#) + (lambda (#{id 29363}# + #{exp1 29364}# + #{var 29365}# + #{val 29366}# + #{exp2 29367}#) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) (list '#(syntax-object lambda @@ -27900,9 +26984,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) '(#(syntax-object x @@ -27910,9 +26998,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -27920,9 +27012,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)) . #(syntax-object @@ -27931,9 +27027,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage #(x) #((top)) #("l-*-29319"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -27941,9 +27041,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage + #(x) + #((top)) + #("l-*-29319"))) (hygiene guile)) '#(syntax-object x @@ -27951,9 +27058,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage + #(x) + #((top)) + #("l-*-29319"))) (hygiene guile)) '(#(syntax-object set! @@ -27961,9 +27075,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("1gx" "1gy" "1gz" "1h0" "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1gq"))) + #(ribcage + #(x) + #((top)) + #("l-*-29319"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -27975,19 +27096,19 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) - #{var -ANAU$bmvAmthP7L7xwtNV}# - #{val -ANAU$bmvAmthP7L7xwtNW}#) + #{var 29365}# + #{val 29366}#) (list '#(syntax-object syntax ((top) @@ -27998,19 +27119,19 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) - #{exp2 -ANAU$bmvAmthP7L7xwtNX}#)) - (list (cons #{id -ANAU$bmvAmthP7L7xwtNT}# + #{exp2 29367}#)) + (list (cons #{id 29363}# '(#(syntax-object x ((top) @@ -28021,16 +27142,16 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) #(syntax-object ... @@ -28042,16 +27163,16 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -28063,18 +27184,18 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) - (cons #{exp1 -ANAU$bmvAmthP7L7xwtNU}# + (cons #{exp1 29364}# '(#(syntax-object x ((top) @@ -28089,16 +27210,16 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) #(syntax-object ... @@ -28114,18 +27235,18 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)))))) - (list #{id -ANAU$bmvAmthP7L7xwtNT}# + (list #{id 29363}# (list '#(syntax-object identifier? ((top) @@ -28136,16 +27257,16 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) (list '#(syntax-object syntax @@ -28161,18 +27282,18 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) - #{id -ANAU$bmvAmthP7L7xwtNT}#)) + #{id 29363}#)) (list '#(syntax-object syntax ((top) @@ -28183,72 +27304,74 @@ (top) (top) (top)) - #("1gx" - "1gy" - "1gz" - "1h0" - "1h1")) + #("l-*-29337" + "l-*-29338" + "l-*-29339" + "l-*-29340" + "l-*-29341")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("1gq"))) + #("l-*-29319"))) (hygiene guile)) - #{exp1 -ANAU$bmvAmthP7L7xwtNU}#)))))) - #{tmp -ANAU$bmvAmthP7L7xwtNK}#) + #{exp1 29364}#)))))) + #{tmp 29354}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xwtND}#)))))))) + #{x 29347}#)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x -ANAU$bmvAmthP7L7xwtNu}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtNw}# + (lambda (#{x 29399}#) + (let ((#{tmp 29401}# ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtNu}# + #{x 29399}# '(_ (any . any) any . each-any)))) - (if #{tmp -ANAU$bmvAmthP7L7xwtNw}# + (if #{tmp 29401}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwtN0}# - #{args -ANAU$bmvAmthP7L7xwtN1}# - #{b0 -ANAU$bmvAmthP7L7xwtN2}# - #{b1 -ANAU$bmvAmthP7L7xwtN3}#) + (lambda (#{id 29405}# + #{args 29406}# + #{b0 29407}# + #{b1 29408}#) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("1h3" "1h4" "1h5" "1h6")) + #("l-*-29381" + "l-*-29382" + "l-*-29383" + "l-*-29384")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1h2"))) + #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)) - #{id -ANAU$bmvAmthP7L7xwtN0}# + #{id 29405}# (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("1h3" "1h4" "1h5" "1h6")) + #("l-*-29381" + "l-*-29382" + "l-*-29383" + "l-*-29384")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1h2"))) + #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)) - (cons #{args -ANAU$bmvAmthP7L7xwtN1}# - (cons #{b0 -ANAU$bmvAmthP7L7xwtN2}# - #{b1 -ANAU$bmvAmthP7L7xwtN3}#))))) - #{tmp -ANAU$bmvAmthP7L7xwtNw}#) - (let ((#{tmp -ANAU$bmvAmthP7L7xwtN4}# - ($sc-dispatch - #{x -ANAU$bmvAmthP7L7xwtNu}# - '(_ any any)))) - (if (if #{tmp -ANAU$bmvAmthP7L7xwtN4}# + (cons #{args 29406}# + (cons #{b0 29407}# #{b1 29408}#))))) + #{tmp 29401}#) + (let ((#{tmp 29409}# + ($sc-dispatch #{x 29399}# '(_ any any)))) + (if (if #{tmp 29409}# (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwtN8}# - #{val -ANAU$bmvAmthP7L7xwtN9}#) + (lambda (#{id 29413}# #{val 29414}#) (identifier? '#(syntax-object x @@ -28256,30 +27379,29 @@ #(ribcage #(id val) #((top) (top)) - #("1h7" "1h8")) + #("l-*-29391" "l-*-29392")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1h2"))) + #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)))) - #{tmp -ANAU$bmvAmthP7L7xwtN4}#) + #{tmp 29409}#) #f) (@apply - (lambda (#{id -ANAU$bmvAmthP7L7xwtN$}# - #{val -ANAU$bmvAmthP7L7xwtN@}#) + (lambda (#{id 29415}# #{val 29416}#) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("1h9" "1ha")) + #("l-*-29395" "l-*-29396")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("1h2"))) + #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)) - #{id -ANAU$bmvAmthP7L7xwtN$}# - #{val -ANAU$bmvAmthP7L7xwtN@}#)) - #{tmp -ANAU$bmvAmthP7L7xwtN4}#) + #{id 29415}# + #{val 29416}#)) + #{tmp 29409}#) (syntax-violation #f "source expression failed to match any pattern" - #{x -ANAU$bmvAmthP7L7xwtNu}#)))))))) + #{x 29399}#)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 8220829ac..20ea8ebcf 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -273,8 +273,11 @@ (lambda (x mod) (primitive-eval x))) - (define-syntax-rule (gensym-hook) - (gensym)) + ;; Capture syntax-session-id before we shove it off into a module. + (define session-id + (let ((v (module-variable (current-module) 'syntax-session-id))) + (lambda () + ((variable-ref v))))) (define put-global-definition-hook (lambda (symbol type val) @@ -450,7 +453,7 @@ ;; FIXME: use a faster gensym (define-syntax-rule (build-lexical-var src id) - (gensym (string-append (symbol->string id) " "))) + (gensym (string-append (symbol->string id) "-"))) (define-structure (syntax-object expression wrap module)) @@ -635,13 +638,8 @@ ;; labels must be comparable with "eq?", have read-write invariance, ;; and distinct from symbols. - (define gen-label - (let ((i 0)) - (lambda () - (let ((n i)) - ;; FIXME: Use atomic ops. - (set! i (1+ n)) - (number->string n 36))))) + (define (gen-label) + (string-append "l-" (session-id) (symbol->string (gensym "-")))) (define gen-labels (lambda (ls) @@ -670,7 +668,7 @@ (cons 'shift (wrap-subst w))))) (define-syntax-rule (new-mark) - (gensym "m")) + (gensym (string-append "m-" (session-id) "-"))) ;; make-empty-ribcage and extend-ribcage maintain list-based ribcages for ;; internal definitions, in which the ribcages are built incrementally @@ -2529,7 +2527,7 @@ (lambda (ls) (arg-check list? ls 'generate-temporaries) (let ((mod (cons 'hygiene (module-name (current-module))))) - (map (lambda (x) (wrap (gensym-hook) top-wrap mod)) ls)))) + (map (lambda (x) (wrap (gensym "t-") top-wrap mod)) ls)))) (set! free-identifier=? (lambda (x y) From 6dc8c138f902abeeabde23dc6fb29bd11e29da3b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 12:02:42 +0100 Subject: [PATCH 10/32] more readable gensyms * module/language/tree-il/peval.scm (peval): * module/language/tree-il/primitives.scm (dynamic-wind): When you make a gensym that just has to be compared against other gensyms, it will be unique if the prefix doesn't end in something that can be interpreted as a number. There's no reason to make that character something difficult like " ". So change to use a dash in that case. * module/ice-9/psyntax-pp.scm: Regenerate. More readable now. --- module/ice-9/psyntax-pp.scm | 11181 +++++++++++------------ module/language/tree-il/peval.scm | 10 +- module/language/tree-il/primitives.scm | 12 +- 3 files changed, 5214 insertions(+), 5989 deletions(-) diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 3fb3659ba..2f9c0d5d0 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1327 +1,1243 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((#{session-id 4447}# (if #f #f)) - (#{transformer-environment 4508}# (if #f #f))) +(let ((session-id-4447 (if #f #f)) + (transformer-environment-4508 (if #f #f))) (letrec* - ((#{top-level-eval-hook 4445}# - (lambda (#{x 27176}# #{mod 27177}#) - (primitive-eval #{x 27176}#))) - (#{get-global-definition-hook 4449}# - (lambda (#{symbol 15643}# #{module 15644}#) + ((top-level-eval-hook-4445 + (lambda (x-27176 mod-27177) + (primitive-eval x-27176))) + (get-global-definition-hook-4449 + (lambda (symbol-15643 module-15644) (begin - (if (if (not #{module 15644}#) (current-module) #f) + (if (if (not module-15644) (current-module) #f) (warn "module system is booted, we should have a module" - #{symbol 15643}#)) - (let ((#{v 15645}# + symbol-15643)) + (let ((v-15645 (module-variable - (if #{module 15644}# - (resolve-module (cdr #{module 15644}#)) + (if module-15644 + (resolve-module (cdr module-15644)) (current-module)) - #{symbol 15643}#))) - (if #{v 15645}# - (if (variable-bound? #{v 15645}#) - (let ((#{val 15647}# (variable-ref #{v 15645}#))) - (if (macro? #{val 15647}#) - (if (macro-type #{val 15647}#) - (cons (macro-type #{val 15647}#) - (macro-binding #{val 15647}#)) + symbol-15643))) + (if v-15645 + (if (variable-bound? v-15645) + (let ((val-15647 (variable-ref v-15645))) + (if (macro? val-15647) + (if (macro-type val-15647) + (cons (macro-type val-15647) + (macro-binding val-15647)) #f) #f)) #f) #f))))) - (#{maybe-name-value! 4451}# - (lambda (#{name 15924}# #{val 15925}#) - (if (if (struct? #{val 15925}#) - (eq? (struct-vtable #{val 15925}#) + (maybe-name-value!-4451 + (lambda (name-15924 val-15925) + (if (if (struct? val-15925) + (eq? (struct-vtable val-15925) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15932}# (struct-ref #{val 15925}# 1))) - (if (not (assq 'name #{meta 15932}#)) - (let ((#{v 15937}# - (cons (cons 'name #{name 15924}#) #{meta 15932}#))) - (struct-set! #{val 15925}# 1 #{v 15937}#))))))) - (#{build-application 4453}# - (lambda (#{source 15649}# - #{fun-exp 15650}# - #{arg-exps 15651}#) + (let ((meta-15932 (struct-ref val-15925 1))) + (if (not (assq 'name meta-15932)) + (let ((v-15937 + (cons (cons 'name name-15924) meta-15932))) + (struct-set! val-15925 1 v-15937))))))) + (build-application-4453 + (lambda (source-15649 fun-exp-15650 arg-exps-15651) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{source 15649}# - #{fun-exp 15650}# - #{arg-exps 15651}#))) - (#{build-conditional 4454}# - (lambda (#{source 15657}# - #{test-exp 15658}# - #{then-exp 15659}# - #{else-exp 15660}#) + source-15649 + fun-exp-15650 + arg-exps-15651))) + (build-conditional-4454 + (lambda (source-15657 + test-exp-15658 + then-exp-15659 + else-exp-15660) (make-struct/no-tail (vector-ref %expanded-vtables 10) - #{source 15657}# - #{test-exp 15658}# - #{then-exp 15659}# - #{else-exp 15660}#))) - (#{build-dynlet 4455}# - (lambda (#{source 15667}# - #{fluids 15668}# - #{vals 15669}# - #{body 15670}#) + source-15657 + test-exp-15658 + then-exp-15659 + else-exp-15660))) + (build-dynlet-4455 + (lambda (source-15667 fluids-15668 vals-15669 body-15670) (make-struct/no-tail (vector-ref %expanded-vtables 17) - #{source 15667}# - #{fluids 15668}# - #{vals 15669}# - #{body 15670}#))) - (#{build-lexical-reference 4456}# - (lambda (#{type 27178}# - #{source 27179}# - #{name 27180}# - #{var 27181}#) + source-15667 + fluids-15668 + vals-15669 + body-15670))) + (build-lexical-reference-4456 + (lambda (type-27178 source-27179 name-27180 var-27181) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{source 27179}# - #{name 27180}# - #{var 27181}#))) - (#{build-lexical-assignment 4457}# - (lambda (#{source 15677}# - #{name 15678}# - #{var 15679}# - #{exp 15680}#) + source-27179 + name-27180 + var-27181))) + (build-lexical-assignment-4457 + (lambda (source-15677 name-15678 var-15679 exp-15680) (begin - (if (if (struct? #{exp 15680}#) - (eq? (struct-vtable #{exp 15680}#) + (if (if (struct? exp-15680) + (eq? (struct-vtable exp-15680) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15696}# (struct-ref #{exp 15680}# 1))) - (if (not (assq 'name #{meta 15696}#)) - (let ((#{v 15703}# - (cons (cons 'name #{name 15678}#) #{meta 15696}#))) - (struct-set! #{exp 15680}# 1 #{v 15703}#))))) + (let ((meta-15696 (struct-ref exp-15680 1))) + (if (not (assq 'name meta-15696)) + (let ((v-15703 + (cons (cons 'name name-15678) meta-15696))) + (struct-set! exp-15680 1 v-15703))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - #{source 15677}# - #{name 15678}# - #{var 15679}# - #{exp 15680}#)))) - (#{analyze-variable 4458}# - (lambda (#{mod 27187}# - #{var 27188}# - #{modref-cont 27189}# - #{bare-cont 27190}#) - (if (not #{mod 27187}#) - (#{bare-cont 27190}# #{var 27188}#) - (let ((#{kind 27191}# (car #{mod 27187}#)) - (#{mod 27192}# (cdr #{mod 27187}#))) - (if (eqv? #{kind 27191}# 'public) - (#{modref-cont 27189}# - #{mod 27192}# - #{var 27188}# - #t) - (if (eqv? #{kind 27191}# 'private) - (if (not (equal? - #{mod 27192}# - (module-name (current-module)))) - (#{modref-cont 27189}# - #{mod 27192}# - #{var 27188}# - #f) - (#{bare-cont 27190}# #{var 27188}#)) - (if (eqv? #{kind 27191}# 'bare) - (#{bare-cont 27190}# #{var 27188}#) - (if (eqv? #{kind 27191}# 'hygiene) + source-15677 + name-15678 + var-15679 + exp-15680)))) + (analyze-variable-4458 + (lambda (mod-27187 + var-27188 + modref-cont-27189 + bare-cont-27190) + (if (not mod-27187) + (bare-cont-27190 var-27188) + (let ((kind-27191 (car mod-27187)) + (mod-27192 (cdr mod-27187))) + (if (eqv? kind-27191 'public) + (modref-cont-27189 mod-27192 var-27188 #t) + (if (eqv? kind-27191 'private) + (if (not (equal? mod-27192 (module-name (current-module)))) + (modref-cont-27189 mod-27192 var-27188 #f) + (bare-cont-27190 var-27188)) + (if (eqv? kind-27191 'bare) + (bare-cont-27190 var-27188) + (if (eqv? kind-27191 'hygiene) (if (if (not (equal? - #{mod 27192}# + mod-27192 (module-name (current-module)))) (module-variable - (resolve-module #{mod 27192}#) - #{var 27188}#) + (resolve-module mod-27192) + var-27188) #f) - (#{modref-cont 27189}# - #{mod 27192}# - #{var 27188}# - #f) - (#{bare-cont 27190}# #{var 27188}#)) + (modref-cont-27189 mod-27192 var-27188 #f) + (bare-cont-27190 var-27188)) (syntax-violation #f "bad module kind" - #{var 27188}# - #{mod 27192}#))))))))) - (#{build-global-reference 4459}# - (lambda (#{source 27207}# #{var 27208}# #{mod 27209}#) - (#{analyze-variable 4458}# - #{mod 27209}# - #{var 27208}# - (lambda (#{mod 27212}# #{var 27213}# #{public? 27214}#) + var-27188 + mod-27192))))))))) + (build-global-reference-4459 + (lambda (source-27207 var-27208 mod-27209) + (analyze-variable-4458 + mod-27209 + var-27208 + (lambda (mod-27212 var-27213 public?-27214) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{source 27207}# - #{mod 27212}# - #{var 27213}# - #{public? 27214}#)) - (lambda (#{var 27222}#) + source-27207 + mod-27212 + var-27213 + public?-27214)) + (lambda (var-27222) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{source 27207}# - #{var 27222}#))))) - (#{build-global-assignment 4460}# - (lambda (#{source 15712}# - #{var 15713}# - #{exp 15714}# - #{mod 15715}#) + source-27207 + var-27222))))) + (build-global-assignment-4460 + (lambda (source-15712 var-15713 exp-15714 mod-15715) (begin - (if (if (struct? #{exp 15714}#) - (eq? (struct-vtable #{exp 15714}#) + (if (if (struct? exp-15714) + (eq? (struct-vtable exp-15714) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15731}# (struct-ref #{exp 15714}# 1))) - (if (not (assq 'name #{meta 15731}#)) - (let ((#{v 15738}# - (cons (cons 'name #{var 15713}#) #{meta 15731}#))) - (struct-set! #{exp 15714}# 1 #{v 15738}#))))) - (#{analyze-variable 4458}# - #{mod 15715}# - #{var 15713}# - (lambda (#{mod 15743}# #{var 15744}# #{public? 15745}#) + (let ((meta-15731 (struct-ref exp-15714 1))) + (if (not (assq 'name meta-15731)) + (let ((v-15738 + (cons (cons 'name var-15713) meta-15731))) + (struct-set! exp-15714 1 v-15738))))) + (analyze-variable-4458 + mod-15715 + var-15713 + (lambda (mod-15743 var-15744 public?-15745) (make-struct/no-tail (vector-ref %expanded-vtables 6) - #{source 15712}# - #{mod 15743}# - #{var 15744}# - #{public? 15745}# - #{exp 15714}#)) - (lambda (#{var 15753}#) + source-15712 + mod-15743 + var-15744 + public?-15745 + exp-15714)) + (lambda (var-15753) (make-struct/no-tail (vector-ref %expanded-vtables 8) - #{source 15712}# - #{var 15753}# - #{exp 15714}#)))))) - (#{build-global-definition 4461}# - (lambda (#{source 27228}# #{var 27229}# #{exp 27230}#) + source-15712 + var-15753 + exp-15714)))))) + (build-global-definition-4461 + (lambda (source-27228 var-27229 exp-27230) (begin - (if (if (struct? #{exp 27230}#) - (eq? (struct-vtable #{exp 27230}#) + (if (if (struct? exp-27230) + (eq? (struct-vtable exp-27230) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 27246}# (struct-ref #{exp 27230}# 1))) - (if (not (assq 'name #{meta 27246}#)) - (let ((#{v 27253}# - (cons (cons 'name #{var 27229}#) #{meta 27246}#))) - (struct-set! #{exp 27230}# 1 #{v 27253}#))))) + (let ((meta-27246 (struct-ref exp-27230 1))) + (if (not (assq 'name meta-27246)) + (let ((v-27253 + (cons (cons 'name var-27229) meta-27246))) + (struct-set! exp-27230 1 v-27253))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - #{source 27228}# - #{var 27229}# - #{exp 27230}#)))) - (#{build-simple-lambda 4462}# - (lambda (#{src 15759}# - #{req 15760}# - #{rest 15761}# - #{vars 15762}# - #{meta 15763}# - #{exp 15764}#) - (let ((#{body 15770}# + source-27228 + var-27229 + exp-27230)))) + (build-simple-lambda-4462 + (lambda (src-15759 + req-15760 + rest-15761 + vars-15762 + meta-15763 + exp-15764) + (let ((body-15770 (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 15759}# - #{req 15760}# + src-15759 + req-15760 #f - #{rest 15761}# + rest-15761 #f '() - #{vars 15762}# - #{exp 15764}# + vars-15762 + exp-15764 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 15759}# - #{meta 15763}# - #{body 15770}#)))) - (#{build-sequence 4467}# - (lambda (#{src 27261}# #{exps 27262}#) - (if (null? (cdr #{exps 27262}#)) - (car #{exps 27262}#) + src-15759 + meta-15763 + body-15770)))) + (build-sequence-4467 + (lambda (src-27261 exps-27262) + (if (null? (cdr exps-27262)) + (car exps-27262) (make-struct/no-tail (vector-ref %expanded-vtables 12) - #{src 27261}# - #{exps 27262}#)))) - (#{build-let 4468}# - (lambda (#{src 15782}# - #{ids 15783}# - #{vars 15784}# - #{val-exps 15785}# - #{body-exp 15786}#) + src-27261 + exps-27262)))) + (build-let-4468 + (lambda (src-15782 + ids-15783 + vars-15784 + val-exps-15785 + body-exp-15786) (begin (for-each - #{maybe-name-value! 4451}# - #{ids 15783}# - #{val-exps 15785}#) - (if (null? #{vars 15784}#) - #{body-exp 15786}# + maybe-name-value!-4451 + ids-15783 + val-exps-15785) + (if (null? vars-15784) + body-exp-15786 (make-struct/no-tail (vector-ref %expanded-vtables 15) - #{src 15782}# - #{ids 15783}# - #{vars 15784}# - #{val-exps 15785}# - #{body-exp 15786}#))))) - (#{build-named-let 4469}# - (lambda (#{src 15810}# - #{ids 15811}# - #{vars 15812}# - #{val-exps 15813}# - #{body-exp 15814}#) - (let ((#{f 15815}# (car #{vars 15812}#)) - (#{f-name 15816}# (car #{ids 15811}#)) - (#{vars 15817}# (cdr #{vars 15812}#)) - (#{ids 15818}# (cdr #{ids 15811}#))) - (let ((#{proc 15819}# - (let ((#{body 15839}# + src-15782 + ids-15783 + vars-15784 + val-exps-15785 + body-exp-15786))))) + (build-named-let-4469 + (lambda (src-15810 + ids-15811 + vars-15812 + val-exps-15813 + body-exp-15814) + (let ((f-15815 (car vars-15812)) + (f-name-15816 (car ids-15811)) + (vars-15817 (cdr vars-15812)) + (ids-15818 (cdr ids-15811))) + (let ((proc-15819 + (let ((body-15839 (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{src 15810}# - #{ids 15818}# + src-15810 + ids-15818 #f #f #f '() - #{vars 15817}# - #{body-exp 15814}# + vars-15817 + body-exp-15814 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{src 15810}# + src-15810 '() - #{body 15839}#)))) + body-15839)))) (begin - (if (if (struct? #{proc 15819}#) - (eq? (struct-vtable #{proc 15819}#) + (if (if (struct? proc-15819) + (eq? (struct-vtable proc-15819) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 15863}# (struct-ref #{proc 15819}# 1))) - (if (not (assq 'name #{meta 15863}#)) - (let ((#{v 15870}# - (cons (cons 'name #{f-name 15816}#) - #{meta 15863}#))) - (struct-set! #{proc 15819}# 1 #{v 15870}#))))) + (let ((meta-15863 (struct-ref proc-15819 1))) + (if (not (assq 'name meta-15863)) + (let ((v-15870 + (cons (cons 'name f-name-15816) meta-15863))) + (struct-set! proc-15819 1 v-15870))))) (for-each - #{maybe-name-value! 4451}# - #{ids 15818}# - #{val-exps 15813}#) - (let ((#{names 15894}# (list #{f-name 15816}#)) - (#{gensyms 15895}# (list #{f 15815}#)) - (#{vals 15896}# (list #{proc 15819}#)) - (#{body 15897}# - (let ((#{fun-exp 15901}# + maybe-name-value!-4451 + ids-15818 + val-exps-15813) + (let ((names-15894 (list f-name-15816)) + (gensyms-15895 (list f-15815)) + (vals-15896 (list proc-15819)) + (body-15897 + (let ((fun-exp-15901 (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{src 15810}# - #{f-name 15816}# - #{f 15815}#))) + src-15810 + f-name-15816 + f-15815))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - #{src 15810}# - #{fun-exp 15901}# - #{val-exps 15813}#)))) + src-15810 + fun-exp-15901 + val-exps-15813)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 15810}# + src-15810 #f - #{names 15894}# - #{gensyms 15895}# - #{vals 15896}# - #{body 15897}#))))))) - (#{build-letrec 4470}# - (lambda (#{src 15917}# - #{in-order? 15918}# - #{ids 15919}# - #{vars 15920}# - #{val-exps 15921}# - #{body-exp 15922}#) - (if (null? #{vars 15920}#) - #{body-exp 15922}# + names-15894 + gensyms-15895 + vals-15896 + body-15897))))))) + (build-letrec-4470 + (lambda (src-15917 + in-order?-15918 + ids-15919 + vars-15920 + val-exps-15921 + body-exp-15922) + (if (null? vars-15920) + body-exp-15922 (begin (for-each - #{maybe-name-value! 4451}# - #{ids 15919}# - #{val-exps 15921}#) + maybe-name-value!-4451 + ids-15919 + val-exps-15921) (make-struct/no-tail (vector-ref %expanded-vtables 16) - #{src 15917}# - #{in-order? 15918}# - #{ids 15919}# - #{vars 15920}# - #{val-exps 15921}# - #{body-exp 15922}#))))) - (#{source-annotation 4479}# - (lambda (#{x 15948}#) - (if (if (vector? #{x 15948}#) - (if (= (vector-length #{x 15948}#) 4) - (eq? (vector-ref #{x 15948}# 0) 'syntax-object) + src-15917 + in-order?-15918 + ids-15919 + vars-15920 + val-exps-15921 + body-exp-15922))))) + (source-annotation-4479 + (lambda (x-15948) + (if (if (vector? x-15948) + (if (= (vector-length x-15948) 4) + (eq? (vector-ref x-15948 0) 'syntax-object) #f) #f) - (#{source-annotation 4479}# - (vector-ref #{x 15948}# 1)) - (if (pair? #{x 15948}#) - (let ((#{props 15963}# (source-properties #{x 15948}#))) - (if (pair? #{props 15963}#) #{props 15963}# #f)) + (source-annotation-4479 (vector-ref x-15948 1)) + (if (pair? x-15948) + (let ((props-15963 (source-properties x-15948))) + (if (pair? props-15963) props-15963 #f)) #f)))) - (#{extend-env 4480}# - (lambda (#{labels 15965}# #{bindings 15966}# #{r 15967}#) - (if (null? #{labels 15965}#) - #{r 15967}# - (#{extend-env 4480}# - (cdr #{labels 15965}#) - (cdr #{bindings 15966}#) - (cons (cons (car #{labels 15965}#) - (car #{bindings 15966}#)) - #{r 15967}#))))) - (#{extend-var-env 4481}# - (lambda (#{labels 15968}# #{vars 15969}# #{r 15970}#) - (if (null? #{labels 15968}#) - #{r 15970}# - (#{extend-var-env 4481}# - (cdr #{labels 15968}#) - (cdr #{vars 15969}#) - (cons (cons (car #{labels 15968}#) - (cons 'lexical (car #{vars 15969}#))) - #{r 15970}#))))) - (#{macros-only-env 4482}# - (lambda (#{r 15971}#) - (if (null? #{r 15971}#) + (extend-env-4480 + (lambda (labels-15965 bindings-15966 r-15967) + (if (null? labels-15965) + r-15967 + (extend-env-4480 + (cdr labels-15965) + (cdr bindings-15966) + (cons (cons (car labels-15965) (car bindings-15966)) + r-15967))))) + (extend-var-env-4481 + (lambda (labels-15968 vars-15969 r-15970) + (if (null? labels-15968) + r-15970 + (extend-var-env-4481 + (cdr labels-15968) + (cdr vars-15969) + (cons (cons (car labels-15968) + (cons 'lexical (car vars-15969))) + r-15970))))) + (macros-only-env-4482 + (lambda (r-15971) + (if (null? r-15971) '() - (let ((#{a 15972}# (car #{r 15971}#))) - (if (eq? (car (cdr #{a 15972}#)) 'macro) - (cons #{a 15972}# - (#{macros-only-env 4482}# (cdr #{r 15971}#))) - (#{macros-only-env 4482}# (cdr #{r 15971}#))))))) - (#{global-extend 4484}# - (lambda (#{type 15974}# #{sym 15975}# #{val 15976}#) + (let ((a-15972 (car r-15971))) + (if (eq? (car (cdr a-15972)) 'macro) + (cons a-15972 + (macros-only-env-4482 (cdr r-15971))) + (macros-only-env-4482 (cdr r-15971))))))) + (global-extend-4484 + (lambda (type-15974 sym-15975 val-15976) (module-define! (current-module) - #{sym 15975}# + sym-15975 (make-syntax-transformer - #{sym 15975}# - #{type 15974}# - #{val 15976}#)))) - (#{id? 4486}# - (lambda (#{x 9787}#) - (if (symbol? #{x 9787}#) + sym-15975 + type-15974 + val-15976)))) + (id?-4486 + (lambda (x-9787) + (if (symbol? x-9787) #t - (if (if (vector? #{x 9787}#) - (if (= (vector-length #{x 9787}#) 4) - (eq? (vector-ref #{x 9787}# 0) 'syntax-object) + (if (if (vector? x-9787) + (if (= (vector-length x-9787) 4) + (eq? (vector-ref x-9787 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 9787}# 1)) + (symbol? (vector-ref x-9787 1)) #f)))) - (#{gen-labels 4489}# - (lambda (#{ls 15986}#) - (if (null? #{ls 15986}#) + (gen-labels-4489 + (lambda (ls-15986) + (if (null? ls-15986) '() (cons (string-append "l-" - (#{session-id 4447}#) + (session-id-4447) (symbol->string (gensym "-"))) - (#{gen-labels 4489}# (cdr #{ls 15986}#)))))) - (#{make-binding-wrap 4500}# - (lambda (#{ids 15990}# #{labels 15991}# #{w 15992}#) - (if (null? #{ids 15990}#) - #{w 15992}# - (cons (car #{w 15992}#) - (cons (let ((#{labelvec 15993}# - (list->vector #{labels 15991}#))) - (let ((#{n 15994}# - (vector-length #{labelvec 15993}#))) - (let ((#{symnamevec 15995}# - (make-vector #{n 15994}#)) - (#{marksvec 15996}# - (make-vector #{n 15994}#))) + (gen-labels-4489 (cdr ls-15986)))))) + (make-binding-wrap-4500 + (lambda (ids-15990 labels-15991 w-15992) + (if (null? ids-15990) + w-15992 + (cons (car w-15992) + (cons (let ((labelvec-15993 (list->vector labels-15991))) + (let ((n-15994 (vector-length labelvec-15993))) + (let ((symnamevec-15995 (make-vector n-15994)) + (marksvec-15996 (make-vector n-15994))) (begin (letrec* - ((#{f 15997}# - (lambda (#{ids 16000}# #{i 16001}#) - (if (not (null? #{ids 16000}#)) + ((f-15997 + (lambda (ids-16000 i-16001) + (if (not (null? ids-16000)) (call-with-values (lambda () - (let ((#{x 16004}# - (car #{ids 16000}#))) - (if (if (vector? #{x 16004}#) + (let ((x-16004 (car ids-16000))) + (if (if (vector? x-16004) (if (= (vector-length - #{x 16004}#) + x-16004) 4) (eq? (vector-ref - #{x 16004}# + x-16004 0) 'syntax-object) #f) #f) (values - (vector-ref #{x 16004}# 1) - (let ((#{m1 16020}# - (car #{w 15992}#)) - (#{m2 16021}# + (vector-ref x-16004 1) + (let ((m1-16020 + (car w-15992)) + (m2-16021 (car (vector-ref - #{x 16004}# + x-16004 2)))) - (if (null? #{m2 16021}#) - #{m1 16020}# + (if (null? m2-16021) + m1-16020 (append - #{m1 16020}# - #{m2 16021}#)))) + m1-16020 + m2-16021)))) (values - #{x 16004}# - (car #{w 15992}#))))) - (lambda (#{symname 16041}# - #{marks 16042}#) + x-16004 + (car w-15992))))) + (lambda (symname-16041 marks-16042) (begin (vector-set! - #{symnamevec 15995}# - #{i 16001}# - #{symname 16041}#) + symnamevec-15995 + i-16001 + symname-16041) (vector-set! - #{marksvec 15996}# - #{i 16001}# - #{marks 16042}#) - (#{f 15997}# - (cdr #{ids 16000}#) - (#{1+}# #{i 16001}#))))))))) - (#{f 15997}# #{ids 15990}# 0)) + marksvec-15996 + i-16001 + marks-16042) + (f-15997 + (cdr ids-16000) + (#{1+}# i-16001))))))))) + (f-15997 ids-15990 0)) (vector 'ribcage - #{symnamevec 15995}# - #{marksvec 15996}# - #{labelvec 15993}#))))) - (cdr #{w 15992}#)))))) - (#{join-wraps 4502}# - (lambda (#{w1 16051}# #{w2 16052}#) - (let ((#{m1 16053}# (car #{w1 16051}#)) - (#{s1 16054}# (cdr #{w1 16051}#))) - (if (null? #{m1 16053}#) - (if (null? #{s1 16054}#) - #{w2 16052}# - (cons (car #{w2 16052}#) - (let ((#{m2 16061}# (cdr #{w2 16052}#))) - (if (null? #{m2 16061}#) - #{s1 16054}# - (append #{s1 16054}# #{m2 16061}#))))) - (cons (let ((#{m2 16070}# (car #{w2 16052}#))) - (if (null? #{m2 16070}#) - #{m1 16053}# - (append #{m1 16053}# #{m2 16070}#))) - (let ((#{m2 16079}# (cdr #{w2 16052}#))) - (if (null? #{m2 16079}#) - #{s1 16054}# - (append #{s1 16054}# #{m2 16079}#)))))))) - (#{same-marks? 4504}# - (lambda (#{x 16084}# #{y 16085}#) - (if (eq? #{x 16084}# #{y 16085}#) - (eq? #{x 16084}# #{y 16085}#) - (if (not (null? #{x 16084}#)) - (if (not (null? #{y 16085}#)) - (if (eq? (car #{x 16084}#) (car #{y 16085}#)) - (#{same-marks? 4504}# - (cdr #{x 16084}#) - (cdr #{y 16085}#)) + symnamevec-15995 + marksvec-15996 + labelvec-15993))))) + (cdr w-15992)))))) + (join-wraps-4502 + (lambda (w1-16051 w2-16052) + (let ((m1-16053 (car w1-16051)) + (s1-16054 (cdr w1-16051))) + (if (null? m1-16053) + (if (null? s1-16054) + w2-16052 + (cons (car w2-16052) + (let ((m2-16061 (cdr w2-16052))) + (if (null? m2-16061) + s1-16054 + (append s1-16054 m2-16061))))) + (cons (let ((m2-16070 (car w2-16052))) + (if (null? m2-16070) + m1-16053 + (append m1-16053 m2-16070))) + (let ((m2-16079 (cdr w2-16052))) + (if (null? m2-16079) + s1-16054 + (append s1-16054 m2-16079)))))))) + (same-marks?-4504 + (lambda (x-16084 y-16085) + (if (eq? x-16084 y-16085) + (eq? x-16084 y-16085) + (if (not (null? x-16084)) + (if (not (null? y-16085)) + (if (eq? (car x-16084) (car y-16085)) + (same-marks?-4504 (cdr x-16084) (cdr y-16085)) #f) #f) #f)))) - (#{id-var-name 4505}# - (lambda (#{id 16093}# #{w 16094}#) + (id-var-name-4505 + (lambda (id-16093 w-16094) (letrec* - ((#{search 16095}# - (lambda (#{sym 16156}# #{subst 16157}# #{marks 16158}#) - (if (null? #{subst 16157}#) - (values #f #{marks 16158}#) - (let ((#{fst 16159}# (car #{subst 16157}#))) - (if (eq? #{fst 16159}# 'shift) - (#{search 16095}# - #{sym 16156}# - (cdr #{subst 16157}#) - (cdr #{marks 16158}#)) - (let ((#{symnames 16161}# (vector-ref #{fst 16159}# 1))) - (if (vector? #{symnames 16161}#) - (let ((#{n 16173}# - (vector-length #{symnames 16161}#))) + ((search-16095 + (lambda (sym-16156 subst-16157 marks-16158) + (if (null? subst-16157) + (values #f marks-16158) + (let ((fst-16159 (car subst-16157))) + (if (eq? fst-16159 'shift) + (search-16095 + sym-16156 + (cdr subst-16157) + (cdr marks-16158)) + (let ((symnames-16161 (vector-ref fst-16159 1))) + (if (vector? symnames-16161) + (let ((n-16173 (vector-length symnames-16161))) (letrec* - ((#{f 16174}# - (lambda (#{i 16176}#) - (if (= #{i 16176}# #{n 16173}#) - (#{search 16095}# - #{sym 16156}# - (cdr #{subst 16157}#) - #{marks 16158}#) + ((f-16174 + (lambda (i-16176) + (if (= i-16176 n-16173) + (search-16095 + sym-16156 + (cdr subst-16157) + marks-16158) (if (if (eq? (vector-ref - #{symnames 16161}# - #{i 16176}#) - #{sym 16156}#) - (#{same-marks? 4504}# - #{marks 16158}# + symnames-16161 + i-16176) + sym-16156) + (same-marks?-4504 + marks-16158 (vector-ref - (vector-ref #{fst 16159}# 2) - #{i 16176}#)) + (vector-ref fst-16159 2) + i-16176)) #f) (values (vector-ref - (vector-ref #{fst 16159}# 3) - #{i 16176}#) - #{marks 16158}#) - (#{f 16174}# (#{1+}# #{i 16176}#))))))) - (#{f 16174}# 0))) + (vector-ref fst-16159 3) + i-16176) + marks-16158) + (f-16174 (#{1+}# i-16176))))))) + (f-16174 0))) (letrec* - ((#{f 16209}# - (lambda (#{symnames 16211}# #{i 16212}#) - (if (null? #{symnames 16211}#) - (#{search 16095}# - #{sym 16156}# - (cdr #{subst 16157}#) - #{marks 16158}#) - (if (if (eq? (car #{symnames 16211}#) - #{sym 16156}#) - (#{same-marks? 4504}# - #{marks 16158}# + ((f-16209 + (lambda (symnames-16211 i-16212) + (if (null? symnames-16211) + (search-16095 + sym-16156 + (cdr subst-16157) + marks-16158) + (if (if (eq? (car symnames-16211) sym-16156) + (same-marks?-4504 + marks-16158 (list-ref - (vector-ref #{fst 16159}# 2) - #{i 16212}#)) + (vector-ref fst-16159 2) + i-16212)) #f) (values (list-ref - (vector-ref #{fst 16159}# 3) - #{i 16212}#) - #{marks 16158}#) - (#{f 16209}# - (cdr #{symnames 16211}#) - (#{1+}# #{i 16212}#))))))) - (#{f 16209}# #{symnames 16161}# 0)))))))))) - (if (symbol? #{id 16093}#) - (let ((#{t 16098}# - (#{search 16095}# - #{id 16093}# - (cdr #{w 16094}#) - (car #{w 16094}#)))) - (if #{t 16098}# #{t 16098}# #{id 16093}#)) - (if (if (vector? #{id 16093}#) - (if (= (vector-length #{id 16093}#) 4) - (eq? (vector-ref #{id 16093}# 0) 'syntax-object) + (vector-ref fst-16159 3) + i-16212) + marks-16158) + (f-16209 + (cdr symnames-16211) + (#{1+}# i-16212))))))) + (f-16209 symnames-16161 0)))))))))) + (if (symbol? id-16093) + (let ((t-16098 + (search-16095 + id-16093 + (cdr w-16094) + (car w-16094)))) + (if t-16098 t-16098 id-16093)) + (if (if (vector? id-16093) + (if (= (vector-length id-16093) 4) + (eq? (vector-ref id-16093 0) 'syntax-object) #f) #f) - (let ((#{id 16113}# (vector-ref #{id 16093}# 1)) - (#{w1 16114}# (vector-ref #{id 16093}# 2))) - (let ((#{marks 16115}# - (let ((#{m1 16125}# (car #{w 16094}#)) - (#{m2 16126}# (car #{w1 16114}#))) - (if (null? #{m2 16126}#) - #{m1 16125}# - (append #{m1 16125}# #{m2 16126}#))))) + (let ((id-16113 (vector-ref id-16093 1)) + (w1-16114 (vector-ref id-16093 2))) + (let ((marks-16115 + (let ((m1-16125 (car w-16094)) + (m2-16126 (car w1-16114))) + (if (null? m2-16126) + m1-16125 + (append m1-16125 m2-16126))))) (call-with-values (lambda () - (#{search 16095}# - #{id 16113}# - (cdr #{w 16094}#) - #{marks 16115}#)) - (lambda (#{new-id 16142}# #{marks 16143}#) - (if #{new-id 16142}# - #{new-id 16142}# - (let ((#{t 16151}# - (#{search 16095}# - #{id 16113}# - (cdr #{w1 16114}#) - #{marks 16143}#))) - (if #{t 16151}# #{t 16151}# #{id 16113}#))))))) + (search-16095 id-16113 (cdr w-16094) marks-16115)) + (lambda (new-id-16142 marks-16143) + (if new-id-16142 + new-id-16142 + (let ((t-16151 + (search-16095 + id-16113 + (cdr w1-16114) + marks-16143))) + (if t-16151 t-16151 id-16113))))))) (syntax-violation 'id-var-name "invalid id" - #{id 16093}#)))))) - (#{locally-bound-identifiers 4506}# - (lambda (#{w 16234}# #{mod 16235}#) + id-16093)))))) + (locally-bound-identifiers-4506 + (lambda (w-16234 mod-16235) (letrec* - ((#{scan 16236}# - (lambda (#{subst 16241}# #{results 16242}#) - (if (null? #{subst 16241}#) - #{results 16242}# - (let ((#{fst 16243}# (car #{subst 16241}#))) - (if (eq? #{fst 16243}# 'shift) - (#{scan 16236}# - (cdr #{subst 16241}#) - #{results 16242}#) - (let ((#{symnames 16245}# (vector-ref #{fst 16243}# 1)) - (#{marks 16246}# (vector-ref #{fst 16243}# 2))) - (if (vector? #{symnames 16245}#) - (#{scan-vector-rib 16238}# - #{subst 16241}# - #{symnames 16245}# - #{marks 16246}# - #{results 16242}#) - (#{scan-list-rib 16237}# - #{subst 16241}# - #{symnames 16245}# - #{marks 16246}# - #{results 16242}#)))))))) - (#{scan-list-rib 16237}# - (lambda (#{subst 16344}# - #{symnames 16345}# - #{marks 16346}# - #{results 16347}#) + ((scan-16236 + (lambda (subst-16241 results-16242) + (if (null? subst-16241) + results-16242 + (let ((fst-16243 (car subst-16241))) + (if (eq? fst-16243 'shift) + (scan-16236 (cdr subst-16241) results-16242) + (let ((symnames-16245 (vector-ref fst-16243 1)) + (marks-16246 (vector-ref fst-16243 2))) + (if (vector? symnames-16245) + (scan-vector-rib-16238 + subst-16241 + symnames-16245 + marks-16246 + results-16242) + (scan-list-rib-16237 + subst-16241 + symnames-16245 + marks-16246 + results-16242)))))))) + (scan-list-rib-16237 + (lambda (subst-16344 + symnames-16345 + marks-16346 + results-16347) (letrec* - ((#{f 16348}# - (lambda (#{symnames 16448}# - #{marks 16449}# - #{results 16450}#) - (if (null? #{symnames 16448}#) - (#{scan 16236}# - (cdr #{subst 16344}#) - #{results 16450}#) - (#{f 16348}# - (cdr #{symnames 16448}#) - (cdr #{marks 16449}#) - (cons (#{wrap 4515}# - (car #{symnames 16448}#) - (let ((#{w 16458}# - (cons (car #{marks 16449}#) - #{subst 16344}#))) - (cons (cons #f (car #{w 16458}#)) - (cons 'shift (cdr #{w 16458}#)))) - #{mod 16235}#) - #{results 16450}#)))))) - (#{f 16348}# - #{symnames 16345}# - #{marks 16346}# - #{results 16347}#)))) - (#{scan-vector-rib 16238}# - (lambda (#{subst 16459}# - #{symnames 16460}# - #{marks 16461}# - #{results 16462}#) - (let ((#{n 16463}# (vector-length #{symnames 16460}#))) + ((f-16348 + (lambda (symnames-16448 marks-16449 results-16450) + (if (null? symnames-16448) + (scan-16236 (cdr subst-16344) results-16450) + (f-16348 + (cdr symnames-16448) + (cdr marks-16449) + (cons (wrap-4515 + (car symnames-16448) + (let ((w-16458 + (cons (car marks-16449) + subst-16344))) + (cons (cons #f (car w-16458)) + (cons 'shift (cdr w-16458)))) + mod-16235) + results-16450)))))) + (f-16348 + symnames-16345 + marks-16346 + results-16347)))) + (scan-vector-rib-16238 + (lambda (subst-16459 + symnames-16460 + marks-16461 + results-16462) + (let ((n-16463 (vector-length symnames-16460))) (letrec* - ((#{f 16464}# - (lambda (#{i 16547}# #{results 16548}#) - (if (= #{i 16547}# #{n 16463}#) - (#{scan 16236}# - (cdr #{subst 16459}#) - #{results 16548}#) - (#{f 16464}# - (#{1+}# #{i 16547}#) - (cons (#{wrap 4515}# - (vector-ref - #{symnames 16460}# - #{i 16547}#) - (let ((#{w 16556}# + ((f-16464 + (lambda (i-16547 results-16548) + (if (= i-16547 n-16463) + (scan-16236 (cdr subst-16459) results-16548) + (f-16464 + (#{1+}# i-16547) + (cons (wrap-4515 + (vector-ref symnames-16460 i-16547) + (let ((w-16556 (cons (vector-ref - #{marks 16461}# - #{i 16547}#) - #{subst 16459}#))) - (cons (cons #f (car #{w 16556}#)) - (cons 'shift (cdr #{w 16556}#)))) - #{mod 16235}#) - #{results 16548}#)))))) - (#{f 16464}# 0 #{results 16462}#)))))) - (#{scan 16236}# (cdr #{w 16234}#) '())))) - (#{valid-bound-ids? 4512}# - (lambda (#{ids 16557}#) + marks-16461 + i-16547) + subst-16459))) + (cons (cons #f (car w-16556)) + (cons 'shift (cdr w-16556)))) + mod-16235) + results-16548)))))) + (f-16464 0 results-16462)))))) + (scan-16236 (cdr w-16234) '())))) + (valid-bound-ids?-4512 + (lambda (ids-16557) (if (letrec* - ((#{all-ids? 16558}# - (lambda (#{ids 16720}#) - (if (null? #{ids 16720}#) - (null? #{ids 16720}#) - (if (let ((#{x 16731}# (car #{ids 16720}#))) - (if (symbol? #{x 16731}#) + ((all-ids?-16558 + (lambda (ids-16720) + (if (null? ids-16720) + (null? ids-16720) + (if (let ((x-16731 (car ids-16720))) + (if (symbol? x-16731) #t - (if (if (vector? #{x 16731}#) - (if (= (vector-length #{x 16731}#) 4) - (eq? (vector-ref #{x 16731}# 0) + (if (if (vector? x-16731) + (if (= (vector-length x-16731) 4) + (eq? (vector-ref x-16731 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 16731}# 1)) + (symbol? (vector-ref x-16731 1)) #f))) - (#{all-ids? 16558}# (cdr #{ids 16720}#)) + (all-ids?-16558 (cdr ids-16720)) #f))))) - (#{all-ids? 16558}# #{ids 16557}#)) - (#{distinct-bound-ids? 4513}# #{ids 16557}#) + (all-ids?-16558 ids-16557)) + (distinct-bound-ids?-4513 ids-16557) #f))) - (#{distinct-bound-ids? 4513}# - (lambda (#{ids 16859}#) + (distinct-bound-ids?-4513 + (lambda (ids-16859) (letrec* - ((#{distinct? 16860}# - (lambda (#{ids 16972}#) - (if (null? #{ids 16972}#) - (null? #{ids 16972}#) - (if (not (#{bound-id-member? 4514}# - (car #{ids 16972}#) - (cdr #{ids 16972}#))) - (#{distinct? 16860}# (cdr #{ids 16972}#)) + ((distinct?-16860 + (lambda (ids-16972) + (if (null? ids-16972) + (null? ids-16972) + (if (not (bound-id-member?-4514 + (car ids-16972) + (cdr ids-16972))) + (distinct?-16860 (cdr ids-16972)) #f))))) - (#{distinct? 16860}# #{ids 16859}#)))) - (#{bound-id-member? 4514}# - (lambda (#{x 17182}# #{list 17183}#) - (if (not (null? #{list 17183}#)) - (let ((#{t 17184}# - (let ((#{j 17265}# (car #{list 17183}#))) - (if (if (if (vector? #{x 17182}#) - (if (= (vector-length #{x 17182}#) 4) - (eq? (vector-ref #{x 17182}# 0) - 'syntax-object) + (distinct?-16860 ids-16859)))) + (bound-id-member?-4514 + (lambda (x-17182 list-17183) + (if (not (null? list-17183)) + (let ((t-17184 + (let ((j-17265 (car list-17183))) + (if (if (if (vector? x-17182) + (if (= (vector-length x-17182) 4) + (eq? (vector-ref x-17182 0) 'syntax-object) #f) #f) - (if (vector? #{j 17265}#) - (if (= (vector-length #{j 17265}#) 4) - (eq? (vector-ref #{j 17265}# 0) 'syntax-object) + (if (vector? j-17265) + (if (= (vector-length j-17265) 4) + (eq? (vector-ref j-17265 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 17182}# 1) - (vector-ref #{j 17265}# 1)) - (#{same-marks? 4504}# - (car (vector-ref #{x 17182}# 2)) - (car (vector-ref #{j 17265}# 2))) + (if (eq? (vector-ref x-17182 1) + (vector-ref j-17265 1)) + (same-marks?-4504 + (car (vector-ref x-17182 2)) + (car (vector-ref j-17265 2))) #f) - (eq? #{x 17182}# #{j 17265}#))))) - (if #{t 17184}# - #{t 17184}# - (#{bound-id-member? 4514}# - #{x 17182}# - (cdr #{list 17183}#)))) + (eq? x-17182 j-17265))))) + (if t-17184 + t-17184 + (bound-id-member?-4514 x-17182 (cdr list-17183)))) #f))) - (#{wrap 4515}# - (lambda (#{x 17309}# #{w 17310}# #{defmod 17311}#) - (if (if (null? (car #{w 17310}#)) - (null? (cdr #{w 17310}#)) + (wrap-4515 + (lambda (x-17309 w-17310 defmod-17311) + (if (if (null? (car w-17310)) + (null? (cdr w-17310)) #f) - #{x 17309}# - (if (if (vector? #{x 17309}#) - (if (= (vector-length #{x 17309}#) 4) - (eq? (vector-ref #{x 17309}# 0) 'syntax-object) + x-17309 + (if (if (vector? x-17309) + (if (= (vector-length x-17309) 4) + (eq? (vector-ref x-17309 0) 'syntax-object) #f) #f) - (let ((#{expression 17325}# (vector-ref #{x 17309}# 1)) - (#{wrap 17326}# - (#{join-wraps 4502}# - #{w 17310}# - (vector-ref #{x 17309}# 2))) - (#{module 17327}# (vector-ref #{x 17309}# 3))) + (let ((expression-17325 (vector-ref x-17309 1)) + (wrap-17326 + (join-wraps-4502 w-17310 (vector-ref x-17309 2))) + (module-17327 (vector-ref x-17309 3))) (vector 'syntax-object - #{expression 17325}# - #{wrap 17326}# - #{module 17327}#)) - (if (null? #{x 17309}#) - #{x 17309}# + expression-17325 + wrap-17326 + module-17327)) + (if (null? x-17309) + x-17309 (vector 'syntax-object - #{x 17309}# - #{w 17310}# - #{defmod 17311}#)))))) - (#{source-wrap 4516}# - (lambda (#{x 17344}# - #{w 17345}# - #{s 17346}# - #{defmod 17347}#) - (#{wrap 4515}# + x-17309 + w-17310 + defmod-17311)))))) + (source-wrap-4516 + (lambda (x-17344 w-17345 s-17346 defmod-17347) + (wrap-4515 (begin - (if (if (pair? #{x 17344}#) #{s 17346}# #f) - (set-source-properties! #{x 17344}# #{s 17346}#)) - #{x 17344}#) - #{w 17345}# - #{defmod 17347}#))) - (#{expand-sequence 4517}# - (lambda (#{body 27267}# - #{r 27268}# - #{w 27269}# - #{s 27270}# - #{mod 27271}#) - (#{build-sequence 4467}# - #{s 27270}# + (if (if (pair? x-17344) s-17346 #f) + (set-source-properties! x-17344 s-17346)) + x-17344) + w-17345 + defmod-17347))) + (expand-sequence-4517 + (lambda (body-27267 r-27268 w-27269 s-27270 mod-27271) + (build-sequence-4467 + s-27270 (letrec* - ((#{dobody 27351}# - (lambda (#{body 27701}# - #{r 27702}# - #{w 27703}# - #{mod 27704}#) - (if (null? #{body 27701}#) + ((dobody-27351 + (lambda (body-27701 r-27702 w-27703 mod-27704) + (if (null? body-27701) '() - (let ((#{first 27705}# - (let ((#{e 27709}# (car #{body 27701}#))) + (let ((first-27705 + (let ((e-27709 (car body-27701))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 27709}# - #{r 27702}# - #{w 27703}# - (#{source-annotation 4479}# #{e 27709}#) + (syntax-type-4521 + e-27709 + r-27702 + w-27703 + (source-annotation-4479 e-27709) #f - #{mod 27704}# + mod-27704 #f)) - (lambda (#{type 27716}# - #{value 27717}# - #{e 27718}# - #{w 27719}# - #{s 27720}# - #{mod 27721}#) - (#{expand-expr 4523}# - #{type 27716}# - #{value 27717}# - #{e 27718}# - #{r 27702}# - #{w 27719}# - #{s 27720}# - #{mod 27721}#)))))) - (cons #{first 27705}# - (#{dobody 27351}# - (cdr #{body 27701}#) - #{r 27702}# - #{w 27703}# - #{mod 27704}#))))))) - (#{dobody 27351}# - #{body 27267}# - #{r 27268}# - #{w 27269}# - #{mod 27271}#))))) - (#{expand-top-sequence 4518}# - (lambda (#{body 17365}# - #{r 17366}# - #{w 17367}# - #{s 17368}# - #{m 17369}# - #{esew 17370}# - #{mod 17371}#) + (lambda (type-27716 + value-27717 + e-27718 + w-27719 + s-27720 + mod-27721) + (expand-expr-4523 + type-27716 + value-27717 + e-27718 + r-27702 + w-27719 + s-27720 + mod-27721)))))) + (cons first-27705 + (dobody-27351 + (cdr body-27701) + r-27702 + w-27703 + mod-27704))))))) + (dobody-27351 + body-27267 + r-27268 + w-27269 + mod-27271))))) + (expand-top-sequence-4518 + (lambda (body-17365 + r-17366 + w-17367 + s-17368 + m-17369 + esew-17370 + mod-17371) (letrec* - ((#{scan 17372}# - (lambda (#{body 17503}# - #{r 17504}# - #{w 17505}# - #{s 17506}# - #{m 17507}# - #{esew 17508}# - #{mod 17509}# - #{exps 17510}#) - (if (null? #{body 17503}#) - #{exps 17510}# + ((scan-17372 + (lambda (body-17503 + r-17504 + w-17505 + s-17506 + m-17507 + esew-17508 + mod-17509 + exps-17510) + (if (null? body-17503) + exps-17510 (call-with-values (lambda () (call-with-values (lambda () - (let ((#{e 17511}# (car #{body 17503}#))) - (#{syntax-type 4521}# - #{e 17511}# - #{r 17504}# - #{w 17505}# - (let ((#{t 17515}# - (#{source-annotation 4479}# - #{e 17511}#))) - (if #{t 17515}# #{t 17515}# #{s 17506}#)) + (let ((e-17511 (car body-17503))) + (syntax-type-4521 + e-17511 + r-17504 + w-17505 + (let ((t-17515 (source-annotation-4479 e-17511))) + (if t-17515 t-17515 s-17506)) #f - #{mod 17509}# + mod-17509 #f))) - (lambda (#{type 17750}# - #{value 17751}# - #{e 17752}# - #{w 17753}# - #{s 17754}# - #{mod 17755}#) - (if (eqv? #{type 17750}# 'begin-form) - (let ((#{tmp 17760}# - ($sc-dispatch #{e 17752}# '(_)))) - (if #{tmp 17760}# - (@apply - (lambda () #{exps 17510}#) - #{tmp 17760}#) - (let ((#{tmp 17764}# + (lambda (type-17750 + value-17751 + e-17752 + w-17753 + s-17754 + mod-17755) + (if (eqv? type-17750 'begin-form) + (let ((tmp-17760 ($sc-dispatch e-17752 '(_)))) + (if tmp-17760 + (@apply (lambda () exps-17510) tmp-17760) + (let ((tmp-17764 ($sc-dispatch - #{e 17752}# + e-17752 '(_ any . each-any)))) - (if #{tmp 17764}# + (if tmp-17764 (@apply - (lambda (#{e1 17768}# #{e2 17769}#) - (#{scan 17372}# - (cons #{e1 17768}# #{e2 17769}#) - #{r 17504}# - #{w 17753}# - #{s 17754}# - #{m 17507}# - #{esew 17508}# - #{mod 17755}# - #{exps 17510}#)) - #{tmp 17764}#) + (lambda (e1-17768 e2-17769) + (scan-17372 + (cons e1-17768 e2-17769) + r-17504 + w-17753 + s-17754 + m-17507 + esew-17508 + mod-17755 + exps-17510)) + tmp-17764) (syntax-violation #f "source expression failed to match any pattern" - #{e 17752}#))))) - (if (eqv? #{type 17750}# 'local-syntax-form) - (#{expand-local-syntax 4527}# - #{value 17751}# - #{e 17752}# - #{r 17504}# - #{w 17753}# - #{s 17754}# - #{mod 17755}# - (lambda (#{body 17784}# - #{r 17785}# - #{w 17786}# - #{s 17787}# - #{mod 17788}#) - (#{scan 17372}# - #{body 17784}# - #{r 17785}# - #{w 17786}# - #{s 17787}# - #{m 17507}# - #{esew 17508}# - #{mod 17788}# - #{exps 17510}#))) - (if (eqv? #{type 17750}# 'eval-when-form) - (let ((#{tmp 17793}# + e-17752))))) + (if (eqv? type-17750 'local-syntax-form) + (expand-local-syntax-4527 + value-17751 + e-17752 + r-17504 + w-17753 + s-17754 + mod-17755 + (lambda (body-17784 + r-17785 + w-17786 + s-17787 + mod-17788) + (scan-17372 + body-17784 + r-17785 + w-17786 + s-17787 + m-17507 + esew-17508 + mod-17788 + exps-17510))) + (if (eqv? type-17750 'eval-when-form) + (let ((tmp-17793 ($sc-dispatch - #{e 17752}# + e-17752 '(_ each-any any . each-any)))) - (if #{tmp 17793}# + (if tmp-17793 (@apply - (lambda (#{x 17797}# - #{e1 17798}# - #{e2 17799}#) - (let ((#{when-list 17800}# - (#{parse-when-list 4520}# - #{e 17752}# - #{x 17797}#)) - (#{body 17801}# - (cons #{e1 17798}# - #{e2 17799}#))) - (if (eq? #{m 17507}# 'e) - (if (memq 'eval - #{when-list 17800}#) - (#{scan 17372}# - #{body 17801}# - #{r 17504}# - #{w 17753}# - #{s 17754}# + (lambda (x-17797 e1-17798 e2-17799) + (let ((when-list-17800 + (parse-when-list-4520 + e-17752 + x-17797)) + (body-17801 + (cons e1-17798 e2-17799))) + (if (eq? m-17507 'e) + (if (memq 'eval when-list-17800) + (scan-17372 + body-17801 + r-17504 + w-17753 + s-17754 (if (memq 'expand - #{when-list 17800}#) + when-list-17800) 'c&e 'e) '(eval) - #{mod 17755}# - #{exps 17510}#) + mod-17755 + exps-17510) (begin (if (memq 'expand - #{when-list 17800}#) - (let ((#{x 17878}# - (#{expand-top-sequence 4518}# - #{body 17801}# - #{r 17504}# - #{w 17753}# - #{s 17754}# + when-list-17800) + (let ((x-17878 + (expand-top-sequence-4518 + body-17801 + r-17504 + w-17753 + s-17754 'e '(eval) - #{mod 17755}#))) - (primitive-eval - #{x 17878}#))) - #{exps 17510}#)) - (if (memq 'load - #{when-list 17800}#) - (if (let ((#{t 17904}# + mod-17755))) + (primitive-eval x-17878))) + exps-17510)) + (if (memq 'load when-list-17800) + (if (let ((t-17904 (memq 'compile - #{when-list 17800}#))) - (if #{t 17904}# - #{t 17904}# - (let ((#{t 17953}# + when-list-17800))) + (if t-17904 + t-17904 + (let ((t-17953 (memq 'expand - #{when-list 17800}#))) - (if #{t 17953}# - #{t 17953}# - (if (eq? #{m 17507}# + when-list-17800))) + (if t-17953 + t-17953 + (if (eq? m-17507 'c&e) (memq 'eval - #{when-list 17800}#) + when-list-17800) #f))))) - (#{scan 17372}# - #{body 17801}# - #{r 17504}# - #{w 17753}# - #{s 17754}# + (scan-17372 + body-17801 + r-17504 + w-17753 + s-17754 'c&e '(compile load) - #{mod 17755}# - #{exps 17510}#) - (if (if (eq? #{m 17507}# 'c) + mod-17755 + exps-17510) + (if (if (eq? m-17507 'c) #t - (eq? #{m 17507}# 'c&e)) - (#{scan 17372}# - #{body 17801}# - #{r 17504}# - #{w 17753}# - #{s 17754}# + (eq? m-17507 'c&e)) + (scan-17372 + body-17801 + r-17504 + w-17753 + s-17754 'c '(load) - #{mod 17755}# - #{exps 17510}#) - #{exps 17510}#)) - (if (let ((#{t 18082}# + mod-17755 + exps-17510) + exps-17510)) + (if (let ((t-18082 (memq 'compile - #{when-list 17800}#))) - (if #{t 18082}# - #{t 18082}# - (let ((#{t 18131}# + when-list-17800))) + (if t-18082 + t-18082 + (let ((t-18131 (memq 'expand - #{when-list 17800}#))) - (if #{t 18131}# - #{t 18131}# - (if (eq? #{m 17507}# + when-list-17800))) + (if t-18131 + t-18131 + (if (eq? m-17507 'c&e) (memq 'eval - #{when-list 17800}#) + when-list-17800) #f))))) (begin - (let ((#{x 18255}# - (#{expand-top-sequence 4518}# - #{body 17801}# - #{r 17504}# - #{w 17753}# - #{s 17754}# + (let ((x-18255 + (expand-top-sequence-4518 + body-17801 + r-17504 + w-17753 + s-17754 'e '(eval) - #{mod 17755}#))) - (primitive-eval - #{x 18255}#)) - #{exps 17510}#) - #{exps 17510}#))))) - #{tmp 17793}#) + mod-17755))) + (primitive-eval x-18255)) + exps-17510) + exps-17510))))) + tmp-17793) (syntax-violation #f "source expression failed to match any pattern" - #{e 17752}#))) - (if (if (eqv? #{type 17750}# - 'define-syntax-form) + e-17752))) + (if (if (eqv? type-17750 'define-syntax-form) #t - (eqv? #{type 17750}# + (eqv? type-17750 'define-syntax-parameter-form)) - (let ((#{n 18301}# - (#{id-var-name 4505}# - #{value 17751}# - #{w 17753}#)) - (#{r 18302}# - (#{macros-only-env 4482}# - #{r 17504}#))) - (if (eqv? #{m 17507}# 'c) - (if (memq 'compile #{esew 17508}#) - (let ((#{e 18306}# - (#{expand-install-global 4519}# - #{n 18301}# - (#{expand 4522}# - #{e 17752}# - #{r 18302}# - #{w 17753}# - #{mod 17755}#)))) + (let ((n-18301 + (id-var-name-4505 + value-17751 + w-17753)) + (r-18302 + (macros-only-env-4482 r-17504))) + (if (eqv? m-17507 'c) + (if (memq 'compile esew-17508) + (let ((e-18306 + (expand-install-global-4519 + n-18301 + (expand-4522 + e-17752 + r-18302 + w-17753 + mod-17755)))) (begin - (#{top-level-eval-hook 4445}# - #{e 18306}# - #{mod 17755}#) - (if (memq 'load #{esew 17508}#) - (cons #{e 18306}# #{exps 17510}#) - #{exps 17510}#))) - (if (memq 'load #{esew 17508}#) - (cons (#{expand-install-global 4519}# - #{n 18301}# - (#{expand 4522}# - #{e 17752}# - #{r 18302}# - #{w 17753}# - #{mod 17755}#)) - #{exps 17510}#) - #{exps 17510}#)) - (if (eqv? #{m 17507}# 'c&e) - (let ((#{e 18948}# - (#{expand-install-global 4519}# - #{n 18301}# - (#{expand 4522}# - #{e 17752}# - #{r 18302}# - #{w 17753}# - #{mod 17755}#)))) + (top-level-eval-hook-4445 + e-18306 + mod-17755) + (if (memq 'load esew-17508) + (cons e-18306 exps-17510) + exps-17510))) + (if (memq 'load esew-17508) + (cons (expand-install-global-4519 + n-18301 + (expand-4522 + e-17752 + r-18302 + w-17753 + mod-17755)) + exps-17510) + exps-17510)) + (if (eqv? m-17507 'c&e) + (let ((e-18948 + (expand-install-global-4519 + n-18301 + (expand-4522 + e-17752 + r-18302 + w-17753 + mod-17755)))) (begin - (#{top-level-eval-hook 4445}# - #{e 18948}# - #{mod 17755}#) - (cons #{e 18948}# #{exps 17510}#))) + (top-level-eval-hook-4445 + e-18948 + mod-17755) + (cons e-18948 exps-17510))) (begin - (if (memq 'eval #{esew 17508}#) - (#{top-level-eval-hook 4445}# - (#{expand-install-global 4519}# - #{n 18301}# - (#{expand 4522}# - #{e 17752}# - #{r 18302}# - #{w 17753}# - #{mod 17755}#)) - #{mod 17755}#)) - #{exps 17510}#)))) - (if (eqv? #{type 17750}# 'define-form) - (let ((#{n 19622}# - (#{id-var-name 4505}# - #{value 17751}# - #{w 17753}#))) - (let ((#{type 19623}# - (car (let ((#{t 19630}# - (assq #{n 19622}# - #{r 17504}#))) - (if #{t 19630}# - (cdr #{t 19630}#) - (if (symbol? - #{n 19622}#) - (let ((#{t 19636}# - (#{get-global-definition-hook 4449}# - #{n 19622}# - #{mod 17755}#))) - (if #{t 19636}# - #{t 19636}# + (if (memq 'eval esew-17508) + (top-level-eval-hook-4445 + (expand-install-global-4519 + n-18301 + (expand-4522 + e-17752 + r-18302 + w-17753 + mod-17755)) + mod-17755)) + exps-17510)))) + (if (eqv? type-17750 'define-form) + (let ((n-19622 + (id-var-name-4505 + value-17751 + w-17753))) + (let ((type-19623 + (car (let ((t-19630 + (assq n-19622 + r-17504))) + (if t-19630 + (cdr t-19630) + (if (symbol? n-19622) + (let ((t-19636 + (get-global-definition-hook-4449 + n-19622 + mod-17755))) + (if t-19636 + t-19636 '(global))) '(displaced-lexical))))))) - (if (if (eqv? #{type 19623}# 'global) + (if (if (eqv? type-19623 'global) #t - (if (eqv? #{type 19623}# 'core) + (if (eqv? type-19623 'core) #t - (if (eqv? #{type 19623}# - 'macro) + (if (eqv? type-19623 'macro) #t - (eqv? #{type 19623}# + (eqv? type-19623 'module-ref)))) (begin - (if (if (if (eq? #{m 17507}# 'c) + (if (if (if (eq? m-17507 'c) #t - (eq? #{m 17507}# 'c&e)) + (eq? m-17507 'c&e)) (if (not (module-local-variable (current-module) - #{n 19622}#)) + n-19622)) (current-module) #f) #f) - (let ((#{old 19667}# + (let ((old-19667 (module-variable (current-module) - #{n 19622}#))) - (if (if (variable? - #{old 19667}#) + n-19622))) + (if (if (variable? old-19667) (variable-bound? - #{old 19667}#) + old-19667) #f) (module-define! (current-module) - #{n 19622}# - (variable-ref - #{old 19667}#)) + n-19622 + (variable-ref old-19667)) (module-add! (current-module) - #{n 19622}# + n-19622 (make-undefined-variable))))) - (cons (if (eq? #{m 17507}# 'c&e) - (let ((#{x 20108}# - (#{build-global-definition 4461}# - #{s 17754}# - #{n 19622}# - (#{expand 4522}# - #{e 17752}# - #{r 17504}# - #{w 17753}# - #{mod 17755}#)))) + (cons (if (eq? m-17507 'c&e) + (let ((x-20108 + (build-global-definition-4461 + s-17754 + n-19622 + (expand-4522 + e-17752 + r-17504 + w-17753 + mod-17755)))) (begin - (#{top-level-eval-hook 4445}# - #{x 20108}# - #{mod 17755}#) - #{x 20108}#)) + (top-level-eval-hook-4445 + x-20108 + mod-17755) + x-20108)) (lambda () - (#{build-global-definition 4461}# - #{s 17754}# - #{n 19622}# - (#{expand 4522}# - #{e 17752}# - #{r 17504}# - #{w 17753}# - #{mod 17755}#)))) - #{exps 17510}#)) - (if (eqv? #{type 19623}# + (build-global-definition-4461 + s-17754 + n-19622 + (expand-4522 + e-17752 + r-17504 + w-17753 + mod-17755)))) + exps-17510)) + (if (eqv? type-19623 'displaced-lexical) (syntax-violation #f "identifier out of context" - #{e 17752}# - (#{wrap 4515}# - #{value 17751}# - #{w 17753}# - #{mod 17755}#)) + e-17752 + (wrap-4515 + value-17751 + w-17753 + mod-17755)) (syntax-violation #f "cannot define keyword at top level" - #{e 17752}# - (#{wrap 4515}# - #{value 17751}# - #{w 17753}# - #{mod 17755}#)))))) - (cons (if (eq? #{m 17507}# 'c&e) - (let ((#{x 20563}# - (#{expand-expr 4523}# - #{type 17750}# - #{value 17751}# - #{e 17752}# - #{r 17504}# - #{w 17753}# - #{s 17754}# - #{mod 17755}#))) + e-17752 + (wrap-4515 + value-17751 + w-17753 + mod-17755)))))) + (cons (if (eq? m-17507 'c&e) + (let ((x-20563 + (expand-expr-4523 + type-17750 + value-17751 + e-17752 + r-17504 + w-17753 + s-17754 + mod-17755))) (begin - (primitive-eval #{x 20563}#) - #{x 20563}#)) + (primitive-eval x-20563) + x-20563)) (lambda () - (#{expand-expr 4523}# - #{type 17750}# - #{value 17751}# - #{e 17752}# - #{r 17504}# - #{w 17753}# - #{s 17754}# - #{mod 17755}#))) - #{exps 17510}#))))))))) - (lambda (#{exps 20568}#) - (#{scan 17372}# - (cdr #{body 17503}#) - #{r 17504}# - #{w 17505}# - #{s 17506}# - #{m 17507}# - #{esew 17508}# - #{mod 17509}# - #{exps 20568}#))))))) + (expand-expr-4523 + type-17750 + value-17751 + e-17752 + r-17504 + w-17753 + s-17754 + mod-17755))) + exps-17510))))))))) + (lambda (exps-20568) + (scan-17372 + (cdr body-17503) + r-17504 + w-17505 + s-17506 + m-17507 + esew-17508 + mod-17509 + exps-20568))))))) (call-with-values (lambda () - (#{scan 17372}# - #{body 17365}# - #{r 17366}# - #{w 17367}# - #{s 17368}# - #{m 17369}# - #{esew 17370}# - #{mod 17371}# + (scan-17372 + body-17365 + r-17366 + w-17367 + s-17368 + m-17369 + esew-17370 + mod-17371 '())) - (lambda (#{exps 17375}#) - (if (null? #{exps 17375}#) + (lambda (exps-17375) + (if (null? exps-17375) (make-struct/no-tail (vector-ref %expanded-vtables 0) - #{s 17368}#) - (#{build-sequence 4467}# - #{s 17368}# + s-17368) + (build-sequence-4467 + s-17368 (letrec* - ((#{lp 17415}# - (lambda (#{in 17499}# #{out 17500}#) - (if (null? #{in 17499}#) - #{out 17500}# - (let ((#{e 17501}# (car #{in 17499}#))) - (#{lp 17415}# - (cdr #{in 17499}#) - (cons (if (procedure? #{e 17501}#) - (#{e 17501}#) - #{e 17501}#) - #{out 17500}#))))))) - (#{lp 17415}# #{exps 17375}# '()))))))))) - (#{expand-install-global 4519}# - (lambda (#{name 20569}# #{e 20570}#) - (let ((#{exp 20576}# - (let ((#{fun-exp 20586}# + ((lp-17415 + (lambda (in-17499 out-17500) + (if (null? in-17499) + out-17500 + (let ((e-17501 (car in-17499))) + (lp-17415 + (cdr in-17499) + (cons (if (procedure? e-17501) + (e-17501) + e-17501) + out-17500))))))) + (lp-17415 exps-17375 '()))))))))) + (expand-install-global-4519 + (lambda (name-20569 e-20570) + (let ((exp-20576 + (let ((fun-exp-20586 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1333,391 +1249,382 @@ '(guile) 'make-syntax-transformer #f))) - (#{arg-exps 20587}# + (arg-exps-20587 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{name 20569}#) + name-20569) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - #{e 20570}#))) + e-20570))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 20586}# - #{arg-exps 20587}#)))) + fun-exp-20586 + arg-exps-20587)))) (begin - (if (if (struct? #{exp 20576}#) - (eq? (struct-vtable #{exp 20576}#) + (if (if (struct? exp-20576) + (eq? (struct-vtable exp-20576) (vector-ref %expanded-vtables 13)) #f) - (let ((#{meta 20628}# (struct-ref #{exp 20576}# 1))) - (if (not (assq 'name #{meta 20628}#)) - (let ((#{v 20635}# - (cons (cons 'name #{name 20569}#) #{meta 20628}#))) - (struct-set! #{exp 20576}# 1 #{v 20635}#))))) + (let ((meta-20628 (struct-ref exp-20576 1))) + (if (not (assq 'name meta-20628)) + (let ((v-20635 + (cons (cons 'name name-20569) meta-20628))) + (struct-set! exp-20576 1 v-20635))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - #{name 20569}# - #{exp 20576}#))))) - (#{parse-when-list 4520}# - (lambda (#{e 20646}# #{when-list 20647}#) - (let ((#{result 20648}# - (#{strip 4535}# #{when-list 20647}# '(())))) + name-20569 + exp-20576))))) + (parse-when-list-4520 + (lambda (e-20646 when-list-20647) + (let ((result-20648 (strip-4535 when-list-20647 '(())))) (letrec* - ((#{lp 20649}# - (lambda (#{l 20703}#) - (if (null? #{l 20703}#) - #{result 20648}# - (if (let ((#{t 20705}# (car #{l 20703}#))) - (if (eq? #{t 20705}# 'compile) + ((lp-20649 + (lambda (l-20703) + (if (null? l-20703) + result-20648 + (if (let ((t-20705 (car l-20703))) + (if (eq? t-20705 'compile) #t - (if (eq? #{t 20705}# 'load) + (if (eq? t-20705 'load) #t - (if (eq? #{t 20705}# 'eval) + (if (eq? t-20705 'eval) #t - (eq? #{t 20705}# 'expand))))) - (#{lp 20649}# (cdr #{l 20703}#)) + (eq? t-20705 'expand))))) + (lp-20649 (cdr l-20703)) (syntax-violation 'eval-when "invalid situation" - #{e 20646}# - (car #{l 20703}#))))))) - (#{lp 20649}# #{result 20648}#))))) - (#{syntax-type 4521}# - (lambda (#{e 20707}# - #{r 20708}# - #{w 20709}# - #{s 20710}# - #{rib 20711}# - #{mod 20712}# - #{for-car? 20713}#) - (if (symbol? #{e 20707}#) - (let ((#{n 20714}# - (#{id-var-name 4505}# #{e 20707}# #{w 20709}#))) - (let ((#{b 20715}# - (let ((#{t 20723}# (assq #{n 20714}# #{r 20708}#))) - (if #{t 20723}# - (cdr #{t 20723}#) - (if (symbol? #{n 20714}#) - (let ((#{t 20729}# - (#{get-global-definition-hook 4449}# - #{n 20714}# - #{mod 20712}#))) - (if #{t 20729}# #{t 20729}# '(global))) + e-20646 + (car l-20703))))))) + (lp-20649 result-20648))))) + (syntax-type-4521 + (lambda (e-20707 + r-20708 + w-20709 + s-20710 + rib-20711 + mod-20712 + for-car?-20713) + (if (symbol? e-20707) + (let ((n-20714 (id-var-name-4505 e-20707 w-20709))) + (let ((b-20715 + (let ((t-20723 (assq n-20714 r-20708))) + (if t-20723 + (cdr t-20723) + (if (symbol? n-20714) + (let ((t-20729 + (get-global-definition-hook-4449 + n-20714 + mod-20712))) + (if t-20729 t-20729 '(global))) '(displaced-lexical)))))) - (let ((#{type 20716}# (car #{b 20715}#))) - (if (eqv? #{type 20716}# 'lexical) + (let ((type-20716 (car b-20715))) + (if (eqv? type-20716 'lexical) (values - #{type 20716}# - (cdr #{b 20715}#) - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{type 20716}# 'global) + type-20716 + (cdr b-20715) + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? type-20716 'global) (values - #{type 20716}# - #{n 20714}# - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{type 20716}# 'macro) - (if #{for-car? 20713}# + type-20716 + n-20714 + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? type-20716 'macro) + (if for-car?-20713 (values - #{type 20716}# - (cdr #{b 20715}#) - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (#{syntax-type 4521}# - (#{expand-macro 4525}# - (cdr #{b 20715}#) - #{e 20707}# - #{r 20708}# - #{w 20709}# - #{s 20710}# - #{rib 20711}# - #{mod 20712}#) - #{r 20708}# + type-20716 + (cdr b-20715) + e-20707 + w-20709 + s-20710 + mod-20712) + (syntax-type-4521 + (expand-macro-4525 + (cdr b-20715) + e-20707 + r-20708 + w-20709 + s-20710 + rib-20711 + mod-20712) + r-20708 '(()) - #{s 20710}# - #{rib 20711}# - #{mod 20712}# + s-20710 + rib-20711 + mod-20712 #f)) (values - #{type 20716}# - (cdr #{b 20715}#) - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#))))))) - (if (pair? #{e 20707}#) - (let ((#{first 20749}# (car #{e 20707}#))) + type-20716 + (cdr b-20715) + e-20707 + w-20709 + s-20710 + mod-20712))))))) + (if (pair? e-20707) + (let ((first-20749 (car e-20707))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{first 20749}# - #{r 20708}# - #{w 20709}# - #{s 20710}# - #{rib 20711}# - #{mod 20712}# + (syntax-type-4521 + first-20749 + r-20708 + w-20709 + s-20710 + rib-20711 + mod-20712 #t)) - (lambda (#{ftype 20751}# - #{fval 20752}# - #{fe 20753}# - #{fw 20754}# - #{fs 20755}# - #{fmod 20756}#) - (if (eqv? #{ftype 20751}# 'lexical) + (lambda (ftype-20751 + fval-20752 + fe-20753 + fw-20754 + fs-20755 + fmod-20756) + (if (eqv? ftype-20751 'lexical) (values 'lexical-call - #{fval 20752}# - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{ftype 20751}# 'global) + fval-20752 + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? ftype-20751 'global) (values 'global-call (vector 'syntax-object - #{fval 20752}# - #{w 20709}# - #{fmod 20756}#) - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{ftype 20751}# 'macro) - (#{syntax-type 4521}# - (#{expand-macro 4525}# - #{fval 20752}# - #{e 20707}# - #{r 20708}# - #{w 20709}# - #{s 20710}# - #{rib 20711}# - #{mod 20712}#) - #{r 20708}# + fval-20752 + w-20709 + fmod-20756) + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? ftype-20751 'macro) + (syntax-type-4521 + (expand-macro-4525 + fval-20752 + e-20707 + r-20708 + w-20709 + s-20710 + rib-20711 + mod-20712) + r-20708 '(()) - #{s 20710}# - #{rib 20711}# - #{mod 20712}# - #{for-car? 20713}#) - (if (eqv? #{ftype 20751}# 'module-ref) + s-20710 + rib-20711 + mod-20712 + for-car?-20713) + (if (eqv? ftype-20751 'module-ref) (call-with-values - (lambda () - (#{fval 20752}# - #{e 20707}# - #{r 20708}# - #{w 20709}#)) - (lambda (#{e 20777}# - #{r 20778}# - #{w 20779}# - #{s 20780}# - #{mod 20781}#) - (#{syntax-type 4521}# - #{e 20777}# - #{r 20778}# - #{w 20779}# - #{s 20780}# - #{rib 20711}# - #{mod 20781}# - #{for-car? 20713}#))) - (if (eqv? #{ftype 20751}# 'core) + (lambda () (fval-20752 e-20707 r-20708 w-20709)) + (lambda (e-20777 + r-20778 + w-20779 + s-20780 + mod-20781) + (syntax-type-4521 + e-20777 + r-20778 + w-20779 + s-20780 + rib-20711 + mod-20781 + for-car?-20713))) + (if (eqv? ftype-20751 'core) (values 'core-form - #{fval 20752}# - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{ftype 20751}# 'local-syntax) + fval-20752 + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? ftype-20751 'local-syntax) (values 'local-syntax-form - #{fval 20752}# - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{ftype 20751}# 'begin) + fval-20752 + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? ftype-20751 'begin) (values 'begin-form #f - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{ftype 20751}# 'eval-when) + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? ftype-20751 'eval-when) (values 'eval-when-form #f - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) - (if (eqv? #{ftype 20751}# 'define) - (let ((#{tmp 20798}# + e-20707 + w-20709 + s-20710 + mod-20712) + (if (eqv? ftype-20751 'define) + (let ((tmp-20798 ($sc-dispatch - #{e 20707}# + e-20707 '(_ any any)))) - (if (if #{tmp 20798}# + (if (if tmp-20798 (@apply - (lambda (#{name 20802}# - #{val 20803}#) - (if (symbol? #{name 20802}#) + (lambda (name-20802 val-20803) + (if (symbol? name-20802) #t - (if (if (vector? - #{name 20802}#) + (if (if (vector? name-20802) (if (= (vector-length - #{name 20802}#) + name-20802) 4) (eq? (vector-ref - #{name 20802}# + name-20802 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 20802}# + name-20802 1)) #f))) - #{tmp 20798}#) + tmp-20798) #f) (@apply - (lambda (#{name 20830}# - #{val 20831}#) + (lambda (name-20830 val-20831) (values 'define-form - #{name 20830}# - #{val 20831}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#)) - #{tmp 20798}#) - (let ((#{tmp 20832}# + name-20830 + val-20831 + w-20709 + s-20710 + mod-20712)) + tmp-20798) + (let ((tmp-20832 ($sc-dispatch - #{e 20707}# + e-20707 '(_ (any . any) any . each-any)))) - (if (if #{tmp 20832}# + (if (if tmp-20832 (@apply - (lambda (#{name 20836}# - #{args 20837}# - #{e1 20838}# - #{e2 20839}#) + (lambda (name-20836 + args-20837 + e1-20838 + e2-20839) (if (if (symbol? - #{name 20836}#) + name-20836) #t (if (if (vector? - #{name 20836}#) + name-20836) (if (= (vector-length - #{name 20836}#) + name-20836) 4) (eq? (vector-ref - #{name 20836}# + name-20836 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 20836}# + name-20836 1)) #f)) - (#{valid-bound-ids? 4512}# + (valid-bound-ids?-4512 (letrec* - ((#{lvl 20988}# - (lambda (#{vars 20990}# - #{ls 20991}# - #{w 20992}#) - (if (pair? #{vars 20990}#) - (#{lvl 20988}# - (cdr #{vars 20990}#) - (cons (#{wrap 4515}# - (car #{vars 20990}#) - #{w 20992}# + ((lvl-20988 + (lambda (vars-20990 + ls-20991 + w-20992) + (if (pair? vars-20990) + (lvl-20988 + (cdr vars-20990) + (cons (wrap-4515 + (car vars-20990) + w-20992 #f) - #{ls 20991}#) - #{w 20992}#) + ls-20991) + w-20992) (if (if (symbol? - #{vars 20990}#) + vars-20990) #t (if (if (vector? - #{vars 20990}#) + vars-20990) (if (= (vector-length - #{vars 20990}#) + vars-20990) 4) (eq? (vector-ref - #{vars 20990}# + vars-20990 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{vars 20990}# + vars-20990 1)) #f)) - (cons (#{wrap 4515}# - #{vars 20990}# - #{w 20992}# + (cons (wrap-4515 + vars-20990 + w-20992 #f) - #{ls 20991}#) - (if (null? #{vars 20990}#) - #{ls 20991}# + ls-20991) + (if (null? vars-20990) + ls-20991 (if (if (vector? - #{vars 20990}#) + vars-20990) (if (= (vector-length - #{vars 20990}#) + vars-20990) 4) (eq? (vector-ref - #{vars 20990}# + vars-20990 0) 'syntax-object) #f) #f) - (#{lvl 20988}# + (lvl-20988 (vector-ref - #{vars 20990}# + vars-20990 1) - #{ls 20991}# - (#{join-wraps 4502}# - #{w 20992}# + ls-20991 + (join-wraps-4502 + w-20992 (vector-ref - #{vars 20990}# + vars-20990 2))) - (cons #{vars 20990}# - #{ls 20991}#)))))))) - (#{lvl 20988}# - #{args 20837}# + (cons vars-20990 + ls-20991)))))))) + (lvl-20988 + args-20837 '() '(())))) #f)) - #{tmp 20832}#) + tmp-20832) #f) (@apply - (lambda (#{name 21036}# - #{args 21037}# - #{e1 21038}# - #{e2 21039}#) + (lambda (name-21036 + args-21037 + e1-21038 + e2-21039) (values 'define-form - (#{wrap 4515}# - #{name 21036}# - #{w 20709}# - #{mod 20712}#) - (let ((#{e 21045}# + (wrap-4515 + name-21036 + w-20709 + mod-20712) + (let ((e-21045 (cons '#(syntax-object lambda ((top) @@ -2236,60 +2143,60 @@ "l-*-45"))) (hygiene guile)) - (#{wrap 4515}# - (cons #{args 21037}# - (cons #{e1 21038}# - #{e2 21039}#)) - #{w 20709}# - #{mod 20712}#)))) + (wrap-4515 + (cons args-21037 + (cons e1-21038 + e2-21039)) + w-20709 + mod-20712)))) (begin - (if (if (pair? #{e 21045}#) - #{s 20710}# + (if (if (pair? e-21045) + s-20710 #f) (set-source-properties! - #{e 21045}# - #{s 20710}#)) - #{e 21045}#)) + e-21045 + s-20710)) + e-21045)) '(()) - #{s 20710}# - #{mod 20712}#)) - #{tmp 20832}#) - (let ((#{tmp 21052}# + s-20710 + mod-20712)) + tmp-20832) + (let ((tmp-21052 ($sc-dispatch - #{e 20707}# + e-20707 '(_ any)))) - (if (if #{tmp 21052}# + (if (if tmp-21052 (@apply - (lambda (#{name 21056}#) + (lambda (name-21056) (if (symbol? - #{name 21056}#) + name-21056) #t (if (if (vector? - #{name 21056}#) + name-21056) (if (= (vector-length - #{name 21056}#) + name-21056) 4) (eq? (vector-ref - #{name 21056}# + name-21056 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21056}# + name-21056 1)) #f))) - #{tmp 21052}#) + tmp-21052) #f) (@apply - (lambda (#{name 21083}#) + (lambda (name-21083) (values 'define-form - (#{wrap 4515}# - #{name 21083}# - #{w 20709}# - #{mod 20712}#) + (wrap-4515 + name-21083 + w-20709 + mod-20712) '(#(syntax-object if ((top) @@ -3761,321 +3668,290 @@ "l-*-45"))) (hygiene guile))) '(()) - #{s 20710}# - #{mod 20712}#)) - #{tmp 21052}#) + s-20710 + mod-20712)) + tmp-21052) (syntax-violation #f "source expression failed to match any pattern" - #{e 20707}#))))))) - (if (eqv? #{ftype 20751}# 'define-syntax) - (let ((#{tmp 21102}# + e-20707))))))) + (if (eqv? ftype-20751 'define-syntax) + (let ((tmp-21102 ($sc-dispatch - #{e 20707}# + e-20707 '(_ any any)))) - (if (if #{tmp 21102}# + (if (if tmp-21102 (@apply - (lambda (#{name 21106}# - #{val 21107}#) - (if (symbol? #{name 21106}#) + (lambda (name-21106 val-21107) + (if (symbol? name-21106) #t (if (if (vector? - #{name 21106}#) + name-21106) (if (= (vector-length - #{name 21106}#) + name-21106) 4) (eq? (vector-ref - #{name 21106}# + name-21106 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21106}# + name-21106 1)) #f))) - #{tmp 21102}#) + tmp-21102) #f) (@apply - (lambda (#{name 21134}# - #{val 21135}#) + (lambda (name-21134 val-21135) (values 'define-syntax-form - #{name 21134}# - #{val 21135}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#)) - #{tmp 21102}#) + name-21134 + val-21135 + w-20709 + s-20710 + mod-20712)) + tmp-21102) (syntax-violation #f "source expression failed to match any pattern" - #{e 20707}#))) - (if (eqv? #{ftype 20751}# + e-20707))) + (if (eqv? ftype-20751 'define-syntax-parameter) - (let ((#{tmp 21146}# + (let ((tmp-21146 ($sc-dispatch - #{e 20707}# + e-20707 '(_ any any)))) - (if (if #{tmp 21146}# + (if (if tmp-21146 (@apply - (lambda (#{name 21150}# - #{val 21151}#) - (if (symbol? - #{name 21150}#) + (lambda (name-21150 + val-21151) + (if (symbol? name-21150) #t (if (if (vector? - #{name 21150}#) + name-21150) (if (= (vector-length - #{name 21150}#) + name-21150) 4) (eq? (vector-ref - #{name 21150}# + name-21150 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{name 21150}# + name-21150 1)) #f))) - #{tmp 21146}#) + tmp-21146) #f) (@apply - (lambda (#{name 21178}# - #{val 21179}#) + (lambda (name-21178 val-21179) (values 'define-syntax-parameter-form - #{name 21178}# - #{val 21179}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#)) - #{tmp 21146}#) + name-21178 + val-21179 + w-20709 + s-20710 + mod-20712)) + tmp-21146) (syntax-violation #f "source expression failed to match any pattern" - #{e 20707}#))) + e-20707))) (values 'call #f - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#))))))))))))))) - (if (if (vector? #{e 20707}#) - (if (= (vector-length #{e 20707}#) 4) - (eq? (vector-ref #{e 20707}# 0) 'syntax-object) + e-20707 + w-20709 + s-20710 + mod-20712))))))))))))))) + (if (if (vector? e-20707) + (if (= (vector-length e-20707) 4) + (eq? (vector-ref e-20707 0) 'syntax-object) #f) #f) - (#{syntax-type 4521}# - (vector-ref #{e 20707}# 1) - #{r 20708}# - (#{join-wraps 4502}# - #{w 20709}# - (vector-ref #{e 20707}# 2)) - (let ((#{t 21206}# - (#{source-annotation 4479}# #{e 20707}#))) - (if #{t 21206}# #{t 21206}# #{s 20710}#)) - #{rib 20711}# - (let ((#{t 21441}# (vector-ref #{e 20707}# 3))) - (if #{t 21441}# #{t 21441}# #{mod 20712}#)) - #{for-car? 20713}#) - (if (self-evaluating? #{e 20707}#) + (syntax-type-4521 + (vector-ref e-20707 1) + r-20708 + (join-wraps-4502 w-20709 (vector-ref e-20707 2)) + (let ((t-21206 (source-annotation-4479 e-20707))) + (if t-21206 t-21206 s-20710)) + rib-20711 + (let ((t-21441 (vector-ref e-20707 3))) + (if t-21441 t-21441 mod-20712)) + for-car?-20713) + (if (self-evaluating? e-20707) (values 'constant #f - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#) + e-20707 + w-20709 + s-20710 + mod-20712) (values 'other #f - #{e 20707}# - #{w 20709}# - #{s 20710}# - #{mod 20712}#))))))) - (#{expand 4522}# - (lambda (#{e 21450}# - #{r 21451}# - #{w 21452}# - #{mod 21453}#) + e-20707 + w-20709 + s-20710 + mod-20712))))))) + (expand-4522 + (lambda (e-21450 r-21451 w-21452 mod-21453) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 21450}# - #{r 21451}# - #{w 21452}# - (#{source-annotation 4479}# #{e 21450}#) + (syntax-type-4521 + e-21450 + r-21451 + w-21452 + (source-annotation-4479 e-21450) #f - #{mod 21453}# + mod-21453 #f)) - (lambda (#{type 21608}# - #{value 21609}# - #{e 21610}# - #{w 21611}# - #{s 21612}# - #{mod 21613}#) - (#{expand-expr 4523}# - #{type 21608}# - #{value 21609}# - #{e 21610}# - #{r 21451}# - #{w 21611}# - #{s 21612}# - #{mod 21613}#))))) - (#{expand-expr 4523}# - (lambda (#{type 21616}# - #{value 21617}# - #{e 21618}# - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#) - (if (eqv? #{type 21616}# 'lexical) + (lambda (type-21608 + value-21609 + e-21610 + w-21611 + s-21612 + mod-21613) + (expand-expr-4523 + type-21608 + value-21609 + e-21610 + r-21451 + w-21611 + s-21612 + mod-21613))))) + (expand-expr-4523 + (lambda (type-21616 + value-21617 + e-21618 + r-21619 + w-21620 + s-21621 + mod-21622) + (if (eqv? type-21616 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - #{s 21621}# - #{e 21618}# - #{value 21617}#) - (if (if (eqv? #{type 21616}# 'core) + s-21621 + e-21618 + value-21617) + (if (if (eqv? type-21616 'core) #t - (eqv? #{type 21616}# 'core-form)) - (#{value 21617}# - #{e 21618}# - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#) - (if (eqv? #{type 21616}# 'module-ref) + (eqv? type-21616 'core-form)) + (value-21617 + e-21618 + r-21619 + w-21620 + s-21621 + mod-21622) + (if (eqv? type-21616 'module-ref) (call-with-values - (lambda () - (#{value 21617}# - #{e 21618}# - #{r 21619}# - #{w 21620}#)) - (lambda (#{e 21648}# - #{r 21649}# - #{w 21650}# - #{s 21651}# - #{mod 21652}#) - (#{expand 4522}# - #{e 21648}# - #{r 21649}# - #{w 21650}# - #{mod 21652}#))) - (if (eqv? #{type 21616}# 'lexical-call) - (#{expand-application 4524}# - (let ((#{id 21727}# (car #{e 21618}#))) - (#{build-lexical-reference 4456}# + (lambda () (value-21617 e-21618 r-21619 w-21620)) + (lambda (e-21648 r-21649 w-21650 s-21651 mod-21652) + (expand-4522 e-21648 r-21649 w-21650 mod-21652))) + (if (eqv? type-21616 'lexical-call) + (expand-application-4524 + (let ((id-21727 (car e-21618))) + (build-lexical-reference-4456 'fun - (#{source-annotation 4479}# #{id 21727}#) - (if (if (vector? #{id 21727}#) - (if (= (vector-length #{id 21727}#) 4) - (eq? (vector-ref #{id 21727}# 0) 'syntax-object) + (source-annotation-4479 id-21727) + (if (if (vector? id-21727) + (if (= (vector-length id-21727) 4) + (eq? (vector-ref id-21727 0) 'syntax-object) #f) #f) - (syntax->datum #{id 21727}#) - #{id 21727}#) - #{value 21617}#)) - #{e 21618}# - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#) - (if (eqv? #{type 21616}# 'global-call) - (#{expand-application 4524}# - (#{build-global-reference 4459}# - (#{source-annotation 4479}# (car #{e 21618}#)) - (if (if (vector? #{value 21617}#) - (if (= (vector-length #{value 21617}#) 4) - (eq? (vector-ref #{value 21617}# 0) - 'syntax-object) + (syntax->datum id-21727) + id-21727) + value-21617)) + e-21618 + r-21619 + w-21620 + s-21621 + mod-21622) + (if (eqv? type-21616 'global-call) + (expand-application-4524 + (build-global-reference-4459 + (source-annotation-4479 (car e-21618)) + (if (if (vector? value-21617) + (if (= (vector-length value-21617) 4) + (eq? (vector-ref value-21617 0) 'syntax-object) #f) #f) - (vector-ref #{value 21617}# 1) - #{value 21617}#) - (if (if (vector? #{value 21617}#) - (if (= (vector-length #{value 21617}#) 4) - (eq? (vector-ref #{value 21617}# 0) - 'syntax-object) + (vector-ref value-21617 1) + value-21617) + (if (if (vector? value-21617) + (if (= (vector-length value-21617) 4) + (eq? (vector-ref value-21617 0) 'syntax-object) #f) #f) - (vector-ref #{value 21617}# 3) - #{mod 21622}#)) - #{e 21618}# - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#) - (if (eqv? #{type 21616}# 'constant) - (let ((#{exp 22064}# - (#{strip 4535}# - (#{wrap 4515}# + (vector-ref value-21617 3) + mod-21622)) + e-21618 + r-21619 + w-21620 + s-21621 + mod-21622) + (if (eqv? type-21616 'constant) + (let ((exp-22064 + (strip-4535 + (wrap-4515 (begin - (if (if (pair? #{e 21618}#) #{s 21621}# #f) - (set-source-properties! - #{e 21618}# - #{s 21621}#)) - #{e 21618}#) - #{w 21620}# - #{mod 21622}#) + (if (if (pair? e-21618) s-21621 #f) + (set-source-properties! e-21618 s-21621)) + e-21618) + w-21620 + mod-21622) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 21621}# - #{exp 22064}#)) - (if (eqv? #{type 21616}# 'global) - (#{analyze-variable 4458}# - #{mod 21622}# - #{value 21617}# - (lambda (#{mod 22100}# - #{var 22101}# - #{public? 22102}#) + s-21621 + exp-22064)) + (if (eqv? type-21616 'global) + (analyze-variable-4458 + mod-21622 + value-21617 + (lambda (mod-22100 var-22101 public?-22102) (make-struct/no-tail (vector-ref %expanded-vtables 5) - #{s 21621}# - #{mod 22100}# - #{var 22101}# - #{public? 22102}#)) - (lambda (#{var 22111}#) + s-21621 + mod-22100 + var-22101 + public?-22102)) + (lambda (var-22111) (make-struct/no-tail (vector-ref %expanded-vtables 7) - #{s 21621}# - #{var 22111}#))) - (if (eqv? #{type 21616}# 'call) - (#{expand-application 4524}# - (#{expand 4522}# - (car #{e 21618}#) - #{r 21619}# - #{w 21620}# - #{mod 21622}#) - #{e 21618}# - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#) - (if (eqv? #{type 21616}# 'begin-form) - (let ((#{tmp 22186}# - ($sc-dispatch - #{e 21618}# - '(_ any . each-any)))) - (if #{tmp 22186}# + s-21621 + var-22111))) + (if (eqv? type-21616 'call) + (expand-application-4524 + (expand-4522 + (car e-21618) + r-21619 + w-21620 + mod-21622) + e-21618 + r-21619 + w-21620 + s-21621 + mod-21622) + (if (eqv? type-21616 'begin-form) + (let ((tmp-22186 + ($sc-dispatch e-21618 '(_ any . each-any)))) + (if tmp-22186 (@apply - (lambda (#{e1 22190}# #{e2 22191}#) - (#{expand-sequence 4517}# - (cons #{e1 22190}# #{e2 22191}#) - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#)) - #{tmp 22186}#) - (let ((#{tmp 22278}# - ($sc-dispatch #{e 21618}# '(_)))) - (if #{tmp 22278}# + (lambda (e1-22190 e2-22191) + (expand-sequence-4517 + (cons e1-22190 e2-22191) + r-21619 + w-21620 + s-21621 + mod-21622)) + tmp-22186) + (let ((tmp-22278 ($sc-dispatch e-21618 '(_)))) + (if tmp-22278 (@apply (lambda () (if (include-deprecated-features) @@ -4088,822 +3964,780 @@ (syntax-violation #f "sequence of zero expressions" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 21618}#) - #{s 21621}# + (if (if (pair? e-21618) + s-21621 #f) (set-source-properties! - #{e 21618}# - #{s 21621}#)) - #{e 21618}#) - #{w 21620}# - #{mod 21622}#)))) - #{tmp 22278}#) + e-21618 + s-21621)) + e-21618) + w-21620 + mod-21622)))) + tmp-22278) (syntax-violation #f "source expression failed to match any pattern" - #{e 21618}#))))) - (if (eqv? #{type 21616}# 'local-syntax-form) - (#{expand-local-syntax 4527}# - #{value 21617}# - #{e 21618}# - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}# - #{expand-sequence 4517}#) - (if (eqv? #{type 21616}# 'eval-when-form) - (let ((#{tmp 22389}# + e-21618))))) + (if (eqv? type-21616 'local-syntax-form) + (expand-local-syntax-4527 + value-21617 + e-21618 + r-21619 + w-21620 + s-21621 + mod-21622 + expand-sequence-4517) + (if (eqv? type-21616 'eval-when-form) + (let ((tmp-22389 ($sc-dispatch - #{e 21618}# + e-21618 '(_ each-any any . each-any)))) - (if #{tmp 22389}# + (if tmp-22389 (@apply - (lambda (#{x 22393}# - #{e1 22394}# - #{e2 22395}#) - (let ((#{when-list 22396}# - (#{parse-when-list 4520}# - #{e 21618}# - #{x 22393}#))) - (if (memq 'eval #{when-list 22396}#) - (#{expand-sequence 4517}# - (cons #{e1 22394}# #{e2 22395}#) - #{r 21619}# - #{w 21620}# - #{s 21621}# - #{mod 21622}#) + (lambda (x-22393 e1-22394 e2-22395) + (let ((when-list-22396 + (parse-when-list-4520 + e-21618 + x-22393))) + (if (memq 'eval when-list-22396) + (expand-sequence-4517 + (cons e1-22394 e2-22395) + r-21619 + w-21620 + s-21621 + mod-21622) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - #{tmp 22389}#) + tmp-22389) (syntax-violation #f "source expression failed to match any pattern" - #{e 21618}#))) - (if (if (eqv? #{type 21616}# 'define-form) + e-21618))) + (if (if (eqv? type-21616 'define-form) #t - (if (eqv? #{type 21616}# - 'define-syntax-form) + (if (eqv? type-21616 'define-syntax-form) #t - (eqv? #{type 21616}# + (eqv? type-21616 'define-syntax-parameter-form))) (syntax-violation #f "definition in expression context" - #{e 21618}# - (#{wrap 4515}# - #{value 21617}# - #{w 21620}# - #{mod 21622}#)) - (if (eqv? #{type 21616}# 'syntax) + e-21618 + (wrap-4515 value-21617 w-21620 mod-21622)) + (if (eqv? type-21616 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 21618}#) - #{s 21621}# - #f) + (if (if (pair? e-21618) s-21621 #f) (set-source-properties! - #{e 21618}# - #{s 21621}#)) - #{e 21618}#) - #{w 21620}# - #{mod 21622}#)) - (if (eqv? #{type 21616}# 'displaced-lexical) + e-21618 + s-21621)) + e-21618) + w-21620 + mod-21622)) + (if (eqv? type-21616 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 21618}#) - #{s 21621}# - #f) + (if (if (pair? e-21618) s-21621 #f) (set-source-properties! - #{e 21618}# - #{s 21621}#)) - #{e 21618}#) - #{w 21620}# - #{mod 21622}#)) + e-21618 + s-21621)) + e-21618) + w-21620 + mod-21622)) (syntax-violation #f "unexpected syntax" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 21618}#) - #{s 21621}# - #f) + (if (if (pair? e-21618) s-21621 #f) (set-source-properties! - #{e 21618}# - #{s 21621}#)) - #{e 21618}#) - #{w 21620}# - #{mod 21622}#)))))))))))))))))) - (#{expand-application 4524}# - (lambda (#{x 22636}# - #{e 22637}# - #{r 22638}# - #{w 22639}# - #{s 22640}# - #{mod 22641}#) - (let ((#{tmp 22643}# - ($sc-dispatch #{e 22637}# '(any . each-any)))) - (if #{tmp 22643}# + e-21618 + s-21621)) + e-21618) + w-21620 + mod-21622)))))))))))))))))) + (expand-application-4524 + (lambda (x-22636 + e-22637 + r-22638 + w-22639 + s-22640 + mod-22641) + (let ((tmp-22643 + ($sc-dispatch e-22637 '(any . each-any)))) + (if tmp-22643 (@apply - (lambda (#{e0 22647}# #{e1 22648}#) - (#{build-application 4453}# - #{s 22640}# - #{x 22636}# - (map (lambda (#{e 22728}#) - (#{expand 4522}# - #{e 22728}# - #{r 22638}# - #{w 22639}# - #{mod 22641}#)) - #{e1 22648}#))) - #{tmp 22643}#) + (lambda (e0-22647 e1-22648) + (build-application-4453 + s-22640 + x-22636 + (map (lambda (e-22728) + (expand-4522 e-22728 r-22638 w-22639 mod-22641)) + e1-22648))) + tmp-22643) (syntax-violation #f "source expression failed to match any pattern" - #{e 22637}#))))) - (#{expand-macro 4525}# - (lambda (#{p 22804}# - #{e 22805}# - #{r 22806}# - #{w 22807}# - #{s 22808}# - #{rib 22809}# - #{mod 22810}#) + e-22637))))) + (expand-macro-4525 + (lambda (p-22804 + e-22805 + r-22806 + w-22807 + s-22808 + rib-22809 + mod-22810) (letrec* - ((#{rebuild-macro-output 22811}# - (lambda (#{x 22844}# #{m 22845}#) - (if (pair? #{x 22844}#) - (let ((#{e 22849}# - (cons (#{rebuild-macro-output 22811}# - (car #{x 22844}#) - #{m 22845}#) - (#{rebuild-macro-output 22811}# - (cdr #{x 22844}#) - #{m 22845}#)))) + ((rebuild-macro-output-22811 + (lambda (x-22844 m-22845) + (if (pair? x-22844) + (let ((e-22849 + (cons (rebuild-macro-output-22811 + (car x-22844) + m-22845) + (rebuild-macro-output-22811 + (cdr x-22844) + m-22845)))) (begin - (if (if (pair? #{e 22849}#) #{s 22808}# #f) - (set-source-properties! #{e 22849}# #{s 22808}#)) - #{e 22849}#)) - (if (if (vector? #{x 22844}#) - (if (= (vector-length #{x 22844}#) 4) - (eq? (vector-ref #{x 22844}# 0) 'syntax-object) + (if (if (pair? e-22849) s-22808 #f) + (set-source-properties! e-22849 s-22808)) + e-22849)) + (if (if (vector? x-22844) + (if (= (vector-length x-22844) 4) + (eq? (vector-ref x-22844 0) 'syntax-object) #f) #f) - (let ((#{w 22865}# (vector-ref #{x 22844}# 2))) - (let ((#{ms 22866}# (car #{w 22865}#)) - (#{s 22867}# (cdr #{w 22865}#))) - (if (if (pair? #{ms 22866}#) - (eq? (car #{ms 22866}#) #f) - #f) - (let ((#{expression 22875}# - (vector-ref #{x 22844}# 1)) - (#{wrap 22876}# - (cons (cdr #{ms 22866}#) - (if #{rib 22809}# - (cons #{rib 22809}# - (cdr #{s 22867}#)) - (cdr #{s 22867}#)))) - (#{module 22877}# (vector-ref #{x 22844}# 3))) + (let ((w-22865 (vector-ref x-22844 2))) + (let ((ms-22866 (car w-22865)) + (s-22867 (cdr w-22865))) + (if (if (pair? ms-22866) (eq? (car ms-22866) #f) #f) + (let ((expression-22875 (vector-ref x-22844 1)) + (wrap-22876 + (cons (cdr ms-22866) + (if rib-22809 + (cons rib-22809 (cdr s-22867)) + (cdr s-22867)))) + (module-22877 (vector-ref x-22844 3))) (vector 'syntax-object - #{expression 22875}# - #{wrap 22876}# - #{module 22877}#)) - (let ((#{expression 22887}# - (let ((#{e 22892}# - (vector-ref #{x 22844}# 1))) + expression-22875 + wrap-22876 + module-22877)) + (let ((expression-22887 + (let ((e-22892 (vector-ref x-22844 1))) (begin - (if (if (pair? #{e 22892}#) - #{s 22867}# - #f) + (if (if (pair? e-22892) s-22867 #f) (set-source-properties! - #{e 22892}# - #{s 22867}#)) - #{e 22892}#))) - (#{wrap 22888}# - (cons (cons #{m 22845}# #{ms 22866}#) - (if #{rib 22809}# - (cons #{rib 22809}# - (cons 'shift #{s 22867}#)) - (cons 'shift #{s 22867}#)))) - (#{module 22889}# (vector-ref #{x 22844}# 3))) + e-22892 + s-22867)) + e-22892))) + (wrap-22888 + (cons (cons m-22845 ms-22866) + (if rib-22809 + (cons rib-22809 + (cons 'shift s-22867)) + (cons 'shift s-22867)))) + (module-22889 (vector-ref x-22844 3))) (vector 'syntax-object - #{expression 22887}# - #{wrap 22888}# - #{module 22889}#))))) - (if (vector? #{x 22844}#) - (let ((#{n 22904}# (vector-length #{x 22844}#))) - (let ((#{v 22905}# - (let ((#{e 22913}# (make-vector #{n 22904}#))) + expression-22887 + wrap-22888 + module-22889))))) + (if (vector? x-22844) + (let ((n-22904 (vector-length x-22844))) + (let ((v-22905 + (let ((e-22913 (make-vector n-22904))) (begin - (if (if (pair? #{e 22913}#) #{x 22844}# #f) - (set-source-properties! - #{e 22913}# - #{x 22844}#)) - #{e 22913}#)))) + (if (if (pair? e-22913) x-22844 #f) + (set-source-properties! e-22913 x-22844)) + e-22913)))) (letrec* - ((#{loop 22906}# - (lambda (#{i 22958}#) - (if (= #{i 22958}# #{n 22904}#) - #{v 22905}# + ((loop-22906 + (lambda (i-22958) + (if (= i-22958 n-22904) + v-22905 (begin (vector-set! - #{v 22905}# - #{i 22958}# - (#{rebuild-macro-output 22811}# - (vector-ref #{x 22844}# #{i 22958}#) - #{m 22845}#)) - (#{loop 22906}# (#{1+}# #{i 22958}#))))))) - (#{loop 22906}# 0)))) - (if (symbol? #{x 22844}#) + v-22905 + i-22958 + (rebuild-macro-output-22811 + (vector-ref x-22844 i-22958) + m-22845)) + (loop-22906 (#{1+}# i-22958))))))) + (loop-22906 0)))) + (if (symbol? x-22844) (syntax-violation #f "encountered raw symbol in macro output" - (let ((#{s 22964}# (cdr #{w 22807}#))) - (#{wrap 4515}# + (let ((s-22964 (cdr w-22807))) + (wrap-4515 (begin - (if (if (pair? #{e 22805}#) #{s 22964}# #f) - (set-source-properties! - #{e 22805}# - #{s 22964}#)) - #{e 22805}#) - #{w 22807}# - #{mod 22810}#)) - #{x 22844}#) + (if (if (pair? e-22805) s-22964 #f) + (set-source-properties! e-22805 s-22964)) + e-22805) + w-22807 + mod-22810)) + x-22844) (begin - (if (if (pair? #{x 22844}#) #{s 22808}# #f) - (set-source-properties! #{x 22844}# #{s 22808}#)) - #{x 22844}#)))))))) + (if (if (pair? x-22844) s-22808 #f) + (set-source-properties! x-22844 s-22808)) + x-22844)))))))) (with-fluids - ((#{transformer-environment 4508}# - (lambda (#{k 22812}#) - (#{k 22812}# - #{e 22805}# - #{r 22806}# - #{w 22807}# - #{s 22808}# - #{rib 22809}# - #{mod 22810}#)))) - (#{rebuild-macro-output 22811}# - (#{p 22804}# - (let ((#{w 22819}# - (cons (cons #f (car #{w 22807}#)) - (cons 'shift (cdr #{w 22807}#))))) - (#{wrap 4515}# + ((transformer-environment-4508 + (lambda (k-22812) + (k-22812 + e-22805 + r-22806 + w-22807 + s-22808 + rib-22809 + mod-22810)))) + (rebuild-macro-output-22811 + (p-22804 + (let ((w-22819 + (cons (cons #f (car w-22807)) + (cons 'shift (cdr w-22807))))) + (wrap-4515 (begin - (if (if (pair? #{e 22805}#) #{s 22808}# #f) - (set-source-properties! #{e 22805}# #{s 22808}#)) - #{e 22805}#) - #{w 22819}# - #{mod 22810}#))) + (if (if (pair? e-22805) s-22808 #f) + (set-source-properties! e-22805 s-22808)) + e-22805) + w-22819 + mod-22810))) (gensym - (string-append "m-" (#{session-id 4447}#) "-"))))))) - (#{expand-body 4526}# - (lambda (#{body 22996}# - #{outer-form 22997}# - #{r 22998}# - #{w 22999}# - #{mod 23000}#) - (let ((#{r 23001}# - (cons '("placeholder" placeholder) #{r 22998}#))) - (let ((#{ribcage 23002}# (vector 'ribcage '() '() '()))) - (let ((#{w 23003}# - (cons (car #{w 22999}#) - (cons #{ribcage 23002}# (cdr #{w 22999}#))))) + (string-append "m-" (session-id-4447) "-"))))))) + (expand-body-4526 + (lambda (body-22996 + outer-form-22997 + r-22998 + w-22999 + mod-23000) + (let ((r-23001 + (cons '("placeholder" placeholder) r-22998))) + (let ((ribcage-23002 (vector 'ribcage '() '() '()))) + (let ((w-23003 + (cons (car w-22999) + (cons ribcage-23002 (cdr w-22999))))) (letrec* - ((#{parse 23004}# - (lambda (#{body 23017}# - #{ids 23018}# - #{labels 23019}# - #{var-ids 23020}# - #{vars 23021}# - #{vals 23022}# - #{bindings 23023}#) - (if (null? #{body 23017}#) + ((parse-23004 + (lambda (body-23017 + ids-23018 + labels-23019 + var-ids-23020 + vars-23021 + vals-23022 + bindings-23023) + (if (null? body-23017) (syntax-violation #f "no expressions in body" - #{outer-form 22997}#) - (let ((#{e 23024}# (cdr (car #{body 23017}#))) - (#{er 23025}# (car (car #{body 23017}#)))) + outer-form-22997) + (let ((e-23024 (cdr (car body-23017))) + (er-23025 (car (car body-23017)))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 23024}# - #{er 23025}# + (syntax-type-4521 + e-23024 + er-23025 '(()) - (#{source-annotation 4479}# #{er 23025}#) - #{ribcage 23002}# - #{mod 23000}# + (source-annotation-4479 er-23025) + ribcage-23002 + mod-23000 #f)) - (lambda (#{type 23182}# - #{value 23183}# - #{e 23184}# - #{w 23185}# - #{s 23186}# - #{mod 23187}#) - (if (eqv? #{type 23182}# 'define-form) - (let ((#{id 23191}# - (#{wrap 4515}# - #{value 23183}# - #{w 23185}# - #{mod 23187}#)) - (#{label 23192}# + (lambda (type-23182 + value-23183 + e-23184 + w-23185 + s-23186 + mod-23187) + (if (eqv? type-23182 'define-form) + (let ((id-23191 + (wrap-4515 + value-23183 + w-23185 + mod-23187)) + (label-23192 (string-append "l-" - (#{session-id 4447}#) + (session-id-4447) (symbol->string (gensym "-"))))) - (let ((#{var 23193}# - (let ((#{id 23253}# - (if (if (vector? - #{id 23191}#) + (let ((var-23193 + (let ((id-23253 + (if (if (vector? id-23191) (if (= (vector-length - #{id 23191}#) + id-23191) 4) (eq? (vector-ref - #{id 23191}# + id-23191 0) 'syntax-object) #f) #f) - (vector-ref #{id 23191}# 1) - #{id 23191}#))) + (vector-ref id-23191 1) + id-23191))) (gensym (string-append - (symbol->string #{id 23253}#) + (symbol->string id-23253) "-"))))) (begin - (let ((#{update 23243}# - (cons (vector-ref #{id 23191}# 1) + (let ((update-23243 + (cons (vector-ref id-23191 1) (vector-ref - #{ribcage 23002}# + ribcage-23002 1)))) (vector-set! - #{ribcage 23002}# + ribcage-23002 1 - #{update 23243}#)) - (let ((#{update 23245}# + update-23243)) + (let ((update-23245 (cons (car (vector-ref - #{id 23191}# + id-23191 2)) (vector-ref - #{ribcage 23002}# + ribcage-23002 2)))) (vector-set! - #{ribcage 23002}# + ribcage-23002 2 - #{update 23245}#)) - (let ((#{update 23247}# - (cons #{label 23192}# + update-23245)) + (let ((update-23247 + (cons label-23192 (vector-ref - #{ribcage 23002}# + ribcage-23002 3)))) (vector-set! - #{ribcage 23002}# + ribcage-23002 3 - #{update 23247}#)) - (#{parse 23004}# - (cdr #{body 23017}#) - (cons #{id 23191}# #{ids 23018}#) - (cons #{label 23192}# #{labels 23019}#) - (cons #{id 23191}# #{var-ids 23020}#) - (cons #{var 23193}# #{vars 23021}#) - (cons (cons #{er 23025}# - (#{wrap 4515}# - #{e 23184}# - #{w 23185}# - #{mod 23187}#)) - #{vals 23022}#) - (cons (cons 'lexical #{var 23193}#) - #{bindings 23023}#))))) - (if (if (eqv? #{type 23182}# - 'define-syntax-form) + update-23247)) + (parse-23004 + (cdr body-23017) + (cons id-23191 ids-23018) + (cons label-23192 labels-23019) + (cons id-23191 var-ids-23020) + (cons var-23193 vars-23021) + (cons (cons er-23025 + (wrap-4515 + e-23184 + w-23185 + mod-23187)) + vals-23022) + (cons (cons 'lexical var-23193) + bindings-23023))))) + (if (if (eqv? type-23182 'define-syntax-form) #t - (eqv? #{type 23182}# + (eqv? type-23182 'define-syntax-parameter-form)) - (let ((#{id 23286}# - (#{wrap 4515}# - #{value 23183}# - #{w 23185}# - #{mod 23187}#)) - (#{label 23287}# + (let ((id-23286 + (wrap-4515 + value-23183 + w-23185 + mod-23187)) + (label-23287 (string-append "l-" - (#{session-id 4447}#) + (session-id-4447) (symbol->string (gensym "-"))))) (begin - (let ((#{update 23337}# - (cons (vector-ref #{id 23286}# 1) + (let ((update-23337 + (cons (vector-ref id-23286 1) (vector-ref - #{ribcage 23002}# + ribcage-23002 1)))) (vector-set! - #{ribcage 23002}# + ribcage-23002 1 - #{update 23337}#)) - (let ((#{update 23339}# + update-23337)) + (let ((update-23339 (cons (car (vector-ref - #{id 23286}# + id-23286 2)) (vector-ref - #{ribcage 23002}# + ribcage-23002 2)))) (vector-set! - #{ribcage 23002}# + ribcage-23002 2 - #{update 23339}#)) - (let ((#{update 23341}# - (cons #{label 23287}# + update-23339)) + (let ((update-23341 + (cons label-23287 (vector-ref - #{ribcage 23002}# + ribcage-23002 3)))) (vector-set! - #{ribcage 23002}# + ribcage-23002 3 - #{update 23341}#)) - (#{parse 23004}# - (cdr #{body 23017}#) - (cons #{id 23286}# #{ids 23018}#) - (cons #{label 23287}# #{labels 23019}#) - #{var-ids 23020}# - #{vars 23021}# - #{vals 23022}# + update-23341)) + (parse-23004 + (cdr body-23017) + (cons id-23286 ids-23018) + (cons label-23287 labels-23019) + var-ids-23020 + vars-23021 + vals-23022 (cons (cons 'macro - (cons #{er 23025}# - (#{wrap 4515}# - #{e 23184}# - #{w 23185}# - #{mod 23187}#))) - #{bindings 23023}#)))) - (if (eqv? #{type 23182}# 'begin-form) - (let ((#{tmp 23349}# + (cons er-23025 + (wrap-4515 + e-23184 + w-23185 + mod-23187))) + bindings-23023)))) + (if (eqv? type-23182 'begin-form) + (let ((tmp-23349 ($sc-dispatch - #{e 23184}# + e-23184 '(_ . each-any)))) - (if #{tmp 23349}# + (if tmp-23349 (@apply - (lambda (#{e1 23353}#) - (#{parse 23004}# + (lambda (e1-23353) + (parse-23004 (letrec* - ((#{f 23354}# - (lambda (#{forms 23417}#) - (if (null? #{forms 23417}#) - (cdr #{body 23017}#) - (cons (cons #{er 23025}# - (#{wrap 4515}# - (car #{forms 23417}#) - #{w 23185}# - #{mod 23187}#)) - (#{f 23354}# - (cdr #{forms 23417}#))))))) - (#{f 23354}# #{e1 23353}#)) - #{ids 23018}# - #{labels 23019}# - #{var-ids 23020}# - #{vars 23021}# - #{vals 23022}# - #{bindings 23023}#)) - #{tmp 23349}#) + ((f-23354 + (lambda (forms-23417) + (if (null? forms-23417) + (cdr body-23017) + (cons (cons er-23025 + (wrap-4515 + (car forms-23417) + w-23185 + mod-23187)) + (f-23354 + (cdr forms-23417))))))) + (f-23354 e1-23353)) + ids-23018 + labels-23019 + var-ids-23020 + vars-23021 + vals-23022 + bindings-23023)) + tmp-23349) (syntax-violation #f "source expression failed to match any pattern" - #{e 23184}#))) - (if (eqv? #{type 23182}# - 'local-syntax-form) - (#{expand-local-syntax 4527}# - #{value 23183}# - #{e 23184}# - #{er 23025}# - #{w 23185}# - #{s 23186}# - #{mod 23187}# - (lambda (#{forms 23431}# - #{er 23432}# - #{w 23433}# - #{s 23434}# - #{mod 23435}#) - (#{parse 23004}# + e-23184))) + (if (eqv? type-23182 'local-syntax-form) + (expand-local-syntax-4527 + value-23183 + e-23184 + er-23025 + w-23185 + s-23186 + mod-23187 + (lambda (forms-23431 + er-23432 + w-23433 + s-23434 + mod-23435) + (parse-23004 (letrec* - ((#{f 23436}# - (lambda (#{forms 23499}#) - (if (null? #{forms 23499}#) - (cdr #{body 23017}#) - (cons (cons #{er 23432}# - (#{wrap 4515}# - (car #{forms 23499}#) - #{w 23433}# - #{mod 23435}#)) - (#{f 23436}# - (cdr #{forms 23499}#))))))) - (#{f 23436}# #{forms 23431}#)) - #{ids 23018}# - #{labels 23019}# - #{var-ids 23020}# - #{vars 23021}# - #{vals 23022}# - #{bindings 23023}#))) - (if (null? #{ids 23018}#) - (#{build-sequence 4467}# + ((f-23436 + (lambda (forms-23499) + (if (null? forms-23499) + (cdr body-23017) + (cons (cons er-23432 + (wrap-4515 + (car forms-23499) + w-23433 + mod-23435)) + (f-23436 + (cdr forms-23499))))))) + (f-23436 forms-23431)) + ids-23018 + labels-23019 + var-ids-23020 + vars-23021 + vals-23022 + bindings-23023))) + (if (null? ids-23018) + (build-sequence-4467 #f - (map (lambda (#{x 23564}#) - (let ((#{e 23568}# - (cdr #{x 23564}#)) - (#{r 23569}# - (car #{x 23564}#))) + (map (lambda (x-23564) + (let ((e-23568 (cdr x-23564)) + (r-23569 (car x-23564))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 23568}# - #{r 23569}# + (syntax-type-4521 + e-23568 + r-23569 '(()) - (#{source-annotation 4479}# - #{e 23568}#) + (source-annotation-4479 + e-23568) #f - #{mod 23187}# + mod-23187 #f)) - (lambda (#{type 23573}# - #{value 23574}# - #{e 23575}# - #{w 23576}# - #{s 23577}# - #{mod 23578}#) - (#{expand-expr 4523}# - #{type 23573}# - #{value 23574}# - #{e 23575}# - #{r 23569}# - #{w 23576}# - #{s 23577}# - #{mod 23578}#))))) - (cons (cons #{er 23025}# - (#{wrap 4515}# + (lambda (type-23573 + value-23574 + e-23575 + w-23576 + s-23577 + mod-23578) + (expand-expr-4523 + type-23573 + value-23574 + e-23575 + r-23569 + w-23576 + s-23577 + mod-23578))))) + (cons (cons er-23025 + (wrap-4515 (begin - (if (if (pair? #{e 23184}#) - #{s 23186}# + (if (if (pair? e-23184) + s-23186 #f) (set-source-properties! - #{e 23184}# - #{s 23186}#)) - #{e 23184}#) - #{w 23185}# - #{mod 23187}#)) - (cdr #{body 23017}#)))) + e-23184 + s-23186)) + e-23184) + w-23185 + mod-23187)) + (cdr body-23017)))) (begin - (if (not (#{valid-bound-ids? 4512}# - #{ids 23018}#)) + (if (not (valid-bound-ids?-4512 + ids-23018)) (syntax-violation #f "invalid or duplicate identifier in definition" - #{outer-form 22997}#)) + outer-form-22997)) (letrec* - ((#{loop 23679}# - (lambda (#{bs 23682}# - #{er-cache 23683}# - #{r-cache 23684}#) - (if (not (null? #{bs 23682}#)) - (let ((#{b 23685}# - (car #{bs 23682}#))) - (if (eq? (car #{b 23685}#) + ((loop-23679 + (lambda (bs-23682 + er-cache-23683 + r-cache-23684) + (if (not (null? bs-23682)) + (let ((b-23685 + (car bs-23682))) + (if (eq? (car b-23685) 'macro) - (let ((#{er 23687}# - (car (cdr #{b 23685}#)))) - (let ((#{r-cache 23688}# - (if (eq? #{er 23687}# - #{er-cache 23683}#) - #{r-cache 23684}# - (#{macros-only-env 4482}# - #{er 23687}#)))) + (let ((er-23687 + (car (cdr b-23685)))) + (let ((r-cache-23688 + (if (eq? er-23687 + er-cache-23683) + r-cache-23684 + (macros-only-env-4482 + er-23687)))) (begin (set-cdr! - #{b 23685}# - (#{eval-local-transformer 4528}# - (#{expand 4522}# - (cdr (cdr #{b 23685}#)) - #{r-cache 23688}# + b-23685 + (eval-local-transformer-4528 + (expand-4522 + (cdr (cdr b-23685)) + r-cache-23688 '(()) - #{mod 23187}#) - #{mod 23187}#)) - (#{loop 23679}# - (cdr #{bs 23682}#) - #{er 23687}# - #{r-cache 23688}#)))) - (#{loop 23679}# - (cdr #{bs 23682}#) - #{er-cache 23683}# - #{r-cache 23684}#))))))) - (#{loop 23679}# - #{bindings 23023}# - #f - #f)) + mod-23187) + mod-23187)) + (loop-23679 + (cdr bs-23682) + er-23687 + r-cache-23688)))) + (loop-23679 + (cdr bs-23682) + er-cache-23683 + r-cache-23684))))))) + (loop-23679 bindings-23023 #f #f)) (set-cdr! - #{r 23001}# - (#{extend-env 4480}# - #{labels 23019}# - #{bindings 23023}# - (cdr #{r 23001}#))) - (#{build-letrec 4470}# + r-23001 + (extend-env-4480 + labels-23019 + bindings-23023 + (cdr r-23001))) + (build-letrec-4470 #f #t (reverse (map syntax->datum - #{var-ids 23020}#)) - (reverse #{vars 23021}#) - (map (lambda (#{x 24031}#) - (let ((#{e 24035}# - (cdr #{x 24031}#)) - (#{r 24036}# - (car #{x 24031}#))) + var-ids-23020)) + (reverse vars-23021) + (map (lambda (x-24031) + (let ((e-24035 + (cdr x-24031)) + (r-24036 + (car x-24031))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 24035}# - #{r 24036}# + (syntax-type-4521 + e-24035 + r-24036 '(()) - (#{source-annotation 4479}# - #{e 24035}#) + (source-annotation-4479 + e-24035) #f - #{mod 23187}# + mod-23187 #f)) - (lambda (#{type 24040}# - #{value 24041}# - #{e 24042}# - #{w 24043}# - #{s 24044}# - #{mod 24045}#) - (#{expand-expr 4523}# - #{type 24040}# - #{value 24041}# - #{e 24042}# - #{r 24036}# - #{w 24043}# - #{s 24044}# - #{mod 24045}#))))) - (reverse #{vals 23022}#)) - (let ((#{exps 24051}# - (map (lambda (#{x 24052}#) - (let ((#{e 24055}# - (cdr #{x 24052}#)) - (#{r 24056}# - (car #{x 24052}#))) + (lambda (type-24040 + value-24041 + e-24042 + w-24043 + s-24044 + mod-24045) + (expand-expr-4523 + type-24040 + value-24041 + e-24042 + r-24036 + w-24043 + s-24044 + mod-24045))))) + (reverse vals-23022)) + (let ((exps-24051 + (map (lambda (x-24052) + (let ((e-24055 + (cdr x-24052)) + (r-24056 + (car x-24052))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 24055}# - #{r 24056}# + (syntax-type-4521 + e-24055 + r-24056 '(()) - (#{source-annotation 4479}# - #{e 24055}#) + (source-annotation-4479 + e-24055) #f - #{mod 23187}# + mod-23187 #f)) - (lambda (#{type 24060}# - #{value 24061}# - #{e 24062}# - #{w 24063}# - #{s 24064}# - #{mod 24065}#) - (#{expand-expr 4523}# - #{type 24060}# - #{value 24061}# - #{e 24062}# - #{r 24056}# - #{w 24063}# - #{s 24064}# - #{mod 24065}#))))) - (cons (cons #{er 23025}# - (#{wrap 4515}# + (lambda (type-24060 + value-24061 + e-24062 + w-24063 + s-24064 + mod-24065) + (expand-expr-4523 + type-24060 + value-24061 + e-24062 + r-24056 + w-24063 + s-24064 + mod-24065))))) + (cons (cons er-23025 + (wrap-4515 (begin - (if (if (pair? #{e 23184}#) - #{s 23186}# + (if (if (pair? e-23184) + s-23186 #f) (set-source-properties! - #{e 23184}# - #{s 23186}#)) - #{e 23184}#) - #{w 23185}# - #{mod 23187}#)) - (cdr #{body 23017}#))))) - (if (null? (cdr #{exps 24051}#)) - (car #{exps 24051}#) + e-23184 + s-23186)) + e-23184) + w-23185 + mod-23187)) + (cdr body-23017))))) + (if (null? (cdr exps-24051)) + (car exps-24051) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - #{exps 24051}#))))))))))))))))) - (#{parse 23004}# - (map (lambda (#{x 23007}#) - (cons #{r 23001}# - (#{wrap 4515}# - #{x 23007}# - #{w 23003}# - #{mod 23000}#))) - #{body 22996}#) + exps-24051))))))))))))))))) + (parse-23004 + (map (lambda (x-23007) + (cons r-23001 + (wrap-4515 x-23007 w-23003 mod-23000))) + body-22996) '() '() '() '() '() '()))))))) - (#{expand-local-syntax 4527}# - (lambda (#{rec? 24091}# - #{e 24092}# - #{r 24093}# - #{w 24094}# - #{s 24095}# - #{mod 24096}# - #{k 24097}#) - (let ((#{tmp 24099}# + (expand-local-syntax-4527 + (lambda (rec?-24091 + e-24092 + r-24093 + w-24094 + s-24095 + mod-24096 + k-24097) + (let ((tmp-24099 ($sc-dispatch - #{e 24092}# + e-24092 '(_ #(each (any any)) any . each-any)))) - (if #{tmp 24099}# + (if tmp-24099 (@apply - (lambda (#{id 24103}# - #{val 24104}# - #{e1 24105}# - #{e2 24106}#) - (if (not (#{valid-bound-ids? 4512}# #{id 24103}#)) + (lambda (id-24103 val-24104 e1-24105 e2-24106) + (if (not (valid-bound-ids?-4512 id-24103)) (syntax-violation #f "duplicate bound keyword" - #{e 24092}#) - (let ((#{labels 24196}# - (#{gen-labels 4489}# #{id 24103}#))) - (let ((#{new-w 24197}# - (#{make-binding-wrap 4500}# - #{id 24103}# - #{labels 24196}# - #{w 24094}#))) - (#{k 24097}# - (cons #{e1 24105}# #{e2 24106}#) - (#{extend-env 4480}# - #{labels 24196}# - (let ((#{trans-r 24233}# - (#{macros-only-env 4482}# #{r 24093}#))) + e-24092) + (let ((labels-24196 (gen-labels-4489 id-24103))) + (let ((new-w-24197 + (make-binding-wrap-4500 + id-24103 + labels-24196 + w-24094))) + (k-24097 + (cons e1-24105 e2-24106) + (extend-env-4480 + labels-24196 + (let ((trans-r-24233 + (macros-only-env-4482 r-24093))) (begin - (if #{rec? 24091}# #{new-w 24197}# #{w 24094}#) - (map (lambda (#{x 24234}#) + (if rec?-24091 new-w-24197 w-24094) + (map (lambda (x-24234) (cons 'macro - (#{eval-local-transformer 4528}# - (#{expand 4522}# - #{x 24234}# - #{trans-r 24233}# + (eval-local-transformer-4528 + (expand-4522 + x-24234 + trans-r-24233 (values - (if #{rec? 24091}# - #{new-w 24197}# - #{w 24094}#)) - #{mod 24096}#) - #{mod 24096}#))) - #{val 24104}#))) - #{r 24093}#) - #{new-w 24197}# - #{s 24095}# - #{mod 24096}#))))) - #{tmp 24099}#) + (if rec?-24091 + new-w-24197 + w-24094)) + mod-24096) + mod-24096))) + val-24104))) + r-24093) + new-w-24197 + s-24095 + mod-24096))))) + tmp-24099) (syntax-violation #f "bad local syntax definition" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 24092}#) #{s 24095}# #f) - (set-source-properties! #{e 24092}# #{s 24095}#)) - #{e 24092}#) - #{w 24094}# - #{mod 24096}#)))))) - (#{eval-local-transformer 4528}# - (lambda (#{expanded 24514}# #{mod 24515}#) - (let ((#{p 24516}# (primitive-eval #{expanded 24514}#))) - (if (procedure? #{p 24516}#) - #{p 24516}# + (if (if (pair? e-24092) s-24095 #f) + (set-source-properties! e-24092 s-24095)) + e-24092) + w-24094 + mod-24096)))))) + (eval-local-transformer-4528 + (lambda (expanded-24514 mod-24515) + (let ((p-24516 (primitive-eval expanded-24514))) + (if (procedure? p-24516) + p-24516 (syntax-violation #f "nonprocedure transformer" - #{p 24516}#))))) - (#{ellipsis? 4530}# - (lambda (#{x 5191}#) - (if (if (if (vector? #{x 5191}#) - (if (= (vector-length #{x 5191}#) 4) - (eq? (vector-ref #{x 5191}# 0) 'syntax-object) + p-24516))))) + (ellipsis?-4530 + (lambda (x-5191) + (if (if (if (vector? x-5191) + (if (= (vector-length x-5191) 4) + (eq? (vector-ref x-5191 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 5191}# 1)) + (symbol? (vector-ref x-5191 1)) #f) - (if (eq? (if (if (vector? #{x 5191}#) - (if (= (vector-length #{x 5191}#) 4) - (eq? (vector-ref #{x 5191}# 0) 'syntax-object) + (if (eq? (if (if (vector? x-5191) + (if (= (vector-length x-5191) 4) + (eq? (vector-ref x-5191 0) 'syntax-object) #f) #f) - (vector-ref #{x 5191}# 1) - #{x 5191}#) + (vector-ref x-5191 1) + x-5191) (if (if (= (vector-length '#(syntax-object ... @@ -5777,8 +5611,8 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# #{x 5191}# '(())) - (#{id-var-name 4505}# + (eq? (id-var-name-4505 x-5191 '(())) + (id-var-name-4505 '#(syntax-object ... ((top) @@ -6216,281 +6050,256 @@ '(()))) #f) #f))) - (#{lambda-formals 4531}# - (lambda (#{orig-args 24521}#) + (lambda-formals-4531 + (lambda (orig-args-24521) (letrec* - ((#{req 24522}# - (lambda (#{args 24526}# #{rreq 24527}#) - (let ((#{tmp 24529}# ($sc-dispatch #{args 24526}# '()))) - (if #{tmp 24529}# + ((req-24522 + (lambda (args-24526 rreq-24527) + (let ((tmp-24529 ($sc-dispatch args-24526 '()))) + (if tmp-24529 (@apply - (lambda () - (#{check 24523}# (reverse #{rreq 24527}#) #f)) - #{tmp 24529}#) - (let ((#{tmp 24652}# - ($sc-dispatch #{args 24526}# '(any . any)))) - (if (if #{tmp 24652}# + (lambda () (check-24523 (reverse rreq-24527) #f)) + tmp-24529) + (let ((tmp-24652 + ($sc-dispatch args-24526 '(any . any)))) + (if (if tmp-24652 (@apply - (lambda (#{a 24656}# #{b 24657}#) - (if (symbol? #{a 24656}#) + (lambda (a-24656 b-24657) + (if (symbol? a-24656) #t - (if (if (vector? #{a 24656}#) - (if (= (vector-length #{a 24656}#) 4) - (eq? (vector-ref #{a 24656}# 0) + (if (if (vector? a-24656) + (if (= (vector-length a-24656) 4) + (eq? (vector-ref a-24656 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 24656}# 1)) + (symbol? (vector-ref a-24656 1)) #f))) - #{tmp 24652}#) + tmp-24652) #f) (@apply - (lambda (#{a 24684}# #{b 24685}#) - (#{req 24522}# - #{b 24685}# - (cons #{a 24684}# #{rreq 24527}#))) - #{tmp 24652}#) - (let ((#{tmp 24686}# (list #{args 24526}#))) + (lambda (a-24684 b-24685) + (req-24522 b-24685 (cons a-24684 rreq-24527))) + tmp-24652) + (let ((tmp-24686 (list args-24526))) (if (@apply - (lambda (#{r 24688}#) - (if (symbol? #{r 24688}#) + (lambda (r-24688) + (if (symbol? r-24688) #t - (if (if (vector? #{r 24688}#) - (if (= (vector-length #{r 24688}#) 4) - (eq? (vector-ref #{r 24688}# 0) + (if (if (vector? r-24688) + (if (= (vector-length r-24688) 4) + (eq? (vector-ref r-24688 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 24688}# 1)) + (symbol? (vector-ref r-24688 1)) #f))) - #{tmp 24686}#) + tmp-24686) (@apply - (lambda (#{r 24718}#) - (#{check 24523}# - (reverse #{rreq 24527}#) - #{r 24718}#)) - #{tmp 24686}#) + (lambda (r-24718) + (check-24523 (reverse rreq-24527) r-24718)) + tmp-24686) (syntax-violation 'lambda "invalid argument list" - #{orig-args 24521}# - #{args 24526}#))))))))) - (#{check 24523}# - (lambda (#{req 24849}# #{rest 24850}#) - (if (#{distinct-bound-ids? 4513}# - (if #{rest 24850}# - (cons #{rest 24850}# #{req 24849}#) - #{req 24849}#)) - (values #{req 24849}# #f #{rest 24850}# #f) + orig-args-24521 + args-24526))))))))) + (check-24523 + (lambda (req-24849 rest-24850) + (if (distinct-bound-ids?-4513 + (if rest-24850 + (cons rest-24850 req-24849) + req-24849)) + (values req-24849 #f rest-24850 #f) (syntax-violation 'lambda "duplicate identifier in argument list" - #{orig-args 24521}#))))) - (#{req 24522}# #{orig-args 24521}# '())))) - (#{expand-simple-lambda 4532}# - (lambda (#{e 24966}# - #{r 24967}# - #{w 24968}# - #{s 24969}# - #{mod 24970}# - #{req 24971}# - #{rest 24972}# - #{meta 24973}# - #{body 24974}#) - (let ((#{ids 24975}# - (if #{rest 24972}# - (append #{req 24971}# (list #{rest 24972}#)) - #{req 24971}#))) - (let ((#{vars 24976}# - (map #{gen-var 4536}# #{ids 24975}#))) - (let ((#{labels 24977}# - (#{gen-labels 4489}# #{ids 24975}#))) - (#{build-simple-lambda 4462}# - #{s 24969}# - (map syntax->datum #{req 24971}#) - (if #{rest 24972}# - (syntax->datum #{rest 24972}#) - #f) - #{vars 24976}# - #{meta 24973}# - (#{expand-body 4526}# - #{body 24974}# - (#{wrap 4515}# + orig-args-24521))))) + (req-24522 orig-args-24521 '())))) + (expand-simple-lambda-4532 + (lambda (e-24966 + r-24967 + w-24968 + s-24969 + mod-24970 + req-24971 + rest-24972 + meta-24973 + body-24974) + (let ((ids-24975 + (if rest-24972 + (append req-24971 (list rest-24972)) + req-24971))) + (let ((vars-24976 (map gen-var-4536 ids-24975))) + (let ((labels-24977 (gen-labels-4489 ids-24975))) + (build-simple-lambda-4462 + s-24969 + (map syntax->datum req-24971) + (if rest-24972 (syntax->datum rest-24972) #f) + vars-24976 + meta-24973 + (expand-body-4526 + body-24974 + (wrap-4515 (begin - (if (if (pair? #{e 24966}#) #{s 24969}# #f) - (set-source-properties! #{e 24966}# #{s 24969}#)) - #{e 24966}#) - #{w 24968}# - #{mod 24970}#) - (#{extend-var-env 4481}# - #{labels 24977}# - #{vars 24976}# - #{r 24967}#) - (#{make-binding-wrap 4500}# - #{ids 24975}# - #{labels 24977}# - #{w 24968}#) - #{mod 24970}#))))))) - (#{lambda*-formals 4533}# - (lambda (#{orig-args 25257}#) + (if (if (pair? e-24966) s-24969 #f) + (set-source-properties! e-24966 s-24969)) + e-24966) + w-24968 + mod-24970) + (extend-var-env-4481 + labels-24977 + vars-24976 + r-24967) + (make-binding-wrap-4500 + ids-24975 + labels-24977 + w-24968) + mod-24970))))))) + (lambda*-formals-4533 + (lambda (orig-args-25257) (letrec* - ((#{req 25258}# - (lambda (#{args 25265}# #{rreq 25266}#) - (let ((#{tmp 25268}# ($sc-dispatch #{args 25265}# '()))) - (if #{tmp 25268}# + ((req-25258 + (lambda (args-25265 rreq-25266) + (let ((tmp-25268 ($sc-dispatch args-25265 '()))) + (if tmp-25268 (@apply (lambda () - (#{check 25262}# - (reverse #{rreq 25266}#) - '() - #f - '())) - #{tmp 25268}#) - (let ((#{tmp 25274}# - ($sc-dispatch #{args 25265}# '(any . any)))) - (if (if #{tmp 25274}# + (check-25262 (reverse rreq-25266) '() #f '())) + tmp-25268) + (let ((tmp-25274 + ($sc-dispatch args-25265 '(any . any)))) + (if (if tmp-25274 (@apply - (lambda (#{a 25278}# #{b 25279}#) - (if (symbol? #{a 25278}#) + (lambda (a-25278 b-25279) + (if (symbol? a-25278) #t - (if (if (vector? #{a 25278}#) - (if (= (vector-length #{a 25278}#) 4) - (eq? (vector-ref #{a 25278}# 0) + (if (if (vector? a-25278) + (if (= (vector-length a-25278) 4) + (eq? (vector-ref a-25278 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25278}# 1)) + (symbol? (vector-ref a-25278 1)) #f))) - #{tmp 25274}#) + tmp-25274) #f) (@apply - (lambda (#{a 25306}# #{b 25307}#) - (#{req 25258}# - #{b 25307}# - (cons #{a 25306}# #{rreq 25266}#))) - #{tmp 25274}#) - (let ((#{tmp 25308}# - ($sc-dispatch #{args 25265}# '(any . any)))) - (if (if #{tmp 25308}# + (lambda (a-25306 b-25307) + (req-25258 b-25307 (cons a-25306 rreq-25266))) + tmp-25274) + (let ((tmp-25308 + ($sc-dispatch args-25265 '(any . any)))) + (if (if tmp-25308 (@apply - (lambda (#{a 25312}# #{b 25313}#) - (eq? (syntax->datum #{a 25312}#) - #:optional)) - #{tmp 25308}#) + (lambda (a-25312 b-25313) + (eq? (syntax->datum a-25312) #:optional)) + tmp-25308) #f) (@apply - (lambda (#{a 25314}# #{b 25315}#) - (#{opt 25259}# - #{b 25315}# - (reverse #{rreq 25266}#) - '())) - #{tmp 25308}#) - (let ((#{tmp 25318}# - ($sc-dispatch - #{args 25265}# - '(any . any)))) - (if (if #{tmp 25318}# + (lambda (a-25314 b-25315) + (opt-25259 b-25315 (reverse rreq-25266) '())) + tmp-25308) + (let ((tmp-25318 + ($sc-dispatch args-25265 '(any . any)))) + (if (if tmp-25318 (@apply - (lambda (#{a 25322}# #{b 25323}#) - (eq? (syntax->datum #{a 25322}#) - #:key)) - #{tmp 25318}#) + (lambda (a-25322 b-25323) + (eq? (syntax->datum a-25322) #:key)) + tmp-25318) #f) (@apply - (lambda (#{a 25324}# #{b 25325}#) - (#{key 25260}# - #{b 25325}# - (reverse #{rreq 25266}#) + (lambda (a-25324 b-25325) + (key-25260 + b-25325 + (reverse rreq-25266) '() '())) - #{tmp 25318}#) - (let ((#{tmp 25328}# - ($sc-dispatch - #{args 25265}# - '(any any)))) - (if (if #{tmp 25328}# + tmp-25318) + (let ((tmp-25328 + ($sc-dispatch args-25265 '(any any)))) + (if (if tmp-25328 (@apply - (lambda (#{a 25332}# #{b 25333}#) - (eq? (syntax->datum #{a 25332}#) + (lambda (a-25332 b-25333) + (eq? (syntax->datum a-25332) #:rest)) - #{tmp 25328}#) + tmp-25328) #f) (@apply - (lambda (#{a 25334}# #{b 25335}#) - (#{rest 25261}# - #{b 25335}# - (reverse #{rreq 25266}#) + (lambda (a-25334 b-25335) + (rest-25261 + b-25335 + (reverse rreq-25266) '() '())) - #{tmp 25328}#) - (let ((#{tmp 25338}# - (list #{args 25265}#))) + tmp-25328) + (let ((tmp-25338 (list args-25265))) (if (@apply - (lambda (#{r 25340}#) - (if (symbol? #{r 25340}#) + (lambda (r-25340) + (if (symbol? r-25340) #t - (if (if (vector? #{r 25340}#) + (if (if (vector? r-25340) (if (= (vector-length - #{r 25340}#) + r-25340) 4) (eq? (vector-ref - #{r 25340}# + r-25340 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 25340}# 1)) + (vector-ref r-25340 1)) #f))) - #{tmp 25338}#) + tmp-25338) (@apply - (lambda (#{r 25370}#) - (#{rest 25261}# - #{r 25370}# - (reverse #{rreq 25266}#) + (lambda (r-25370) + (rest-25261 + r-25370 + (reverse rreq-25266) '() '())) - #{tmp 25338}#) + tmp-25338) (syntax-violation 'lambda* "invalid argument list" - #{orig-args 25257}# - #{args 25265}#))))))))))))))) - (#{opt 25259}# - (lambda (#{args 25389}# #{req 25390}# #{ropt 25391}#) - (let ((#{tmp 25393}# ($sc-dispatch #{args 25389}# '()))) - (if #{tmp 25393}# + orig-args-25257 + args-25265))))))))))))))) + (opt-25259 + (lambda (args-25389 req-25390 ropt-25391) + (let ((tmp-25393 ($sc-dispatch args-25389 '()))) + (if tmp-25393 (@apply (lambda () - (#{check 25262}# - #{req 25390}# - (reverse #{ropt 25391}#) + (check-25262 + req-25390 + (reverse ropt-25391) #f '())) - #{tmp 25393}#) - (let ((#{tmp 25399}# - ($sc-dispatch #{args 25389}# '(any . any)))) - (if (if #{tmp 25399}# + tmp-25393) + (let ((tmp-25399 + ($sc-dispatch args-25389 '(any . any)))) + (if (if tmp-25399 (@apply - (lambda (#{a 25403}# #{b 25404}#) - (if (symbol? #{a 25403}#) + (lambda (a-25403 b-25404) + (if (symbol? a-25403) #t - (if (if (vector? #{a 25403}#) - (if (= (vector-length #{a 25403}#) 4) - (eq? (vector-ref #{a 25403}# 0) + (if (if (vector? a-25403) + (if (= (vector-length a-25403) 4) + (eq? (vector-ref a-25403 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25403}# 1)) + (symbol? (vector-ref a-25403 1)) #f))) - #{tmp 25399}#) + tmp-25399) #f) (@apply - (lambda (#{a 25431}# #{b 25432}#) - (#{opt 25259}# - #{b 25432}# - #{req 25390}# - (cons (cons #{a 25431}# + (lambda (a-25431 b-25432) + (opt-25259 + b-25432 + req-25390 + (cons (cons a-25431 '(#(syntax-object #f ((top) @@ -6949,152 +6758,136 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - #{ropt 25391}#))) - #{tmp 25399}#) - (let ((#{tmp 25433}# - ($sc-dispatch - #{args 25389}# - '((any any) . any)))) - (if (if #{tmp 25433}# + ropt-25391))) + tmp-25399) + (let ((tmp-25433 + ($sc-dispatch args-25389 '((any any) . any)))) + (if (if tmp-25433 (@apply - (lambda (#{a 25437}# - #{init 25438}# - #{b 25439}#) - (if (symbol? #{a 25437}#) + (lambda (a-25437 init-25438 b-25439) + (if (symbol? a-25437) #t - (if (if (vector? #{a 25437}#) - (if (= (vector-length #{a 25437}#) - 4) - (eq? (vector-ref #{a 25437}# 0) + (if (if (vector? a-25437) + (if (= (vector-length a-25437) 4) + (eq? (vector-ref a-25437 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25437}# 1)) + (symbol? (vector-ref a-25437 1)) #f))) - #{tmp 25433}#) + tmp-25433) #f) (@apply - (lambda (#{a 25466}# #{init 25467}# #{b 25468}#) - (#{opt 25259}# - #{b 25468}# - #{req 25390}# - (cons (list #{a 25466}# #{init 25467}#) - #{ropt 25391}#))) - #{tmp 25433}#) - (let ((#{tmp 25469}# - ($sc-dispatch - #{args 25389}# - '(any . any)))) - (if (if #{tmp 25469}# + (lambda (a-25466 init-25467 b-25468) + (opt-25259 + b-25468 + req-25390 + (cons (list a-25466 init-25467) ropt-25391))) + tmp-25433) + (let ((tmp-25469 + ($sc-dispatch args-25389 '(any . any)))) + (if (if tmp-25469 (@apply - (lambda (#{a 25473}# #{b 25474}#) - (eq? (syntax->datum #{a 25473}#) - #:key)) - #{tmp 25469}#) + (lambda (a-25473 b-25474) + (eq? (syntax->datum a-25473) #:key)) + tmp-25469) #f) (@apply - (lambda (#{a 25475}# #{b 25476}#) - (#{key 25260}# - #{b 25476}# - #{req 25390}# - (reverse #{ropt 25391}#) + (lambda (a-25475 b-25476) + (key-25260 + b-25476 + req-25390 + (reverse ropt-25391) '())) - #{tmp 25469}#) - (let ((#{tmp 25479}# - ($sc-dispatch - #{args 25389}# - '(any any)))) - (if (if #{tmp 25479}# + tmp-25469) + (let ((tmp-25479 + ($sc-dispatch args-25389 '(any any)))) + (if (if tmp-25479 (@apply - (lambda (#{a 25483}# #{b 25484}#) - (eq? (syntax->datum #{a 25483}#) + (lambda (a-25483 b-25484) + (eq? (syntax->datum a-25483) #:rest)) - #{tmp 25479}#) + tmp-25479) #f) (@apply - (lambda (#{a 25485}# #{b 25486}#) - (#{rest 25261}# - #{b 25486}# - #{req 25390}# - (reverse #{ropt 25391}#) + (lambda (a-25485 b-25486) + (rest-25261 + b-25486 + req-25390 + (reverse ropt-25391) '())) - #{tmp 25479}#) - (let ((#{tmp 25489}# - (list #{args 25389}#))) + tmp-25479) + (let ((tmp-25489 (list args-25389))) (if (@apply - (lambda (#{r 25491}#) - (if (symbol? #{r 25491}#) + (lambda (r-25491) + (if (symbol? r-25491) #t - (if (if (vector? #{r 25491}#) + (if (if (vector? r-25491) (if (= (vector-length - #{r 25491}#) + r-25491) 4) (eq? (vector-ref - #{r 25491}# + r-25491 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{r 25491}# 1)) + (vector-ref r-25491 1)) #f))) - #{tmp 25489}#) + tmp-25489) (@apply - (lambda (#{r 25521}#) - (#{rest 25261}# - #{r 25521}# - #{req 25390}# - (reverse #{ropt 25391}#) + (lambda (r-25521) + (rest-25261 + r-25521 + req-25390 + (reverse ropt-25391) '())) - #{tmp 25489}#) + tmp-25489) (syntax-violation 'lambda* "invalid optional argument list" - #{orig-args 25257}# - #{args 25389}#))))))))))))))) - (#{key 25260}# - (lambda (#{args 25540}# - #{req 25541}# - #{opt 25542}# - #{rkey 25543}#) - (let ((#{tmp 25545}# ($sc-dispatch #{args 25540}# '()))) - (if #{tmp 25545}# + orig-args-25257 + args-25389))))))))))))))) + (key-25260 + (lambda (args-25540 req-25541 opt-25542 rkey-25543) + (let ((tmp-25545 ($sc-dispatch args-25540 '()))) + (if tmp-25545 (@apply (lambda () - (#{check 25262}# - #{req 25541}# - #{opt 25542}# + (check-25262 + req-25541 + opt-25542 #f - (cons #f (reverse #{rkey 25543}#)))) - #{tmp 25545}#) - (let ((#{tmp 25551}# - ($sc-dispatch #{args 25540}# '(any . any)))) - (if (if #{tmp 25551}# + (cons #f (reverse rkey-25543)))) + tmp-25545) + (let ((tmp-25551 + ($sc-dispatch args-25540 '(any . any)))) + (if (if tmp-25551 (@apply - (lambda (#{a 25555}# #{b 25556}#) - (if (symbol? #{a 25555}#) + (lambda (a-25555 b-25556) + (if (symbol? a-25555) #t - (if (if (vector? #{a 25555}#) - (if (= (vector-length #{a 25555}#) 4) - (eq? (vector-ref #{a 25555}# 0) + (if (if (vector? a-25555) + (if (= (vector-length a-25555) 4) + (eq? (vector-ref a-25555 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25555}# 1)) + (symbol? (vector-ref a-25555 1)) #f))) - #{tmp 25551}#) + tmp-25551) #f) (@apply - (lambda (#{a 25583}# #{b 25584}#) - (let ((#{tmp 25585}# - (symbol->keyword - (syntax->datum #{a 25583}#)))) - (#{key 25260}# - #{b 25584}# - #{req 25541}# - #{opt 25542}# - (cons (cons #{tmp 25585}# - (cons #{a 25583}# + (lambda (a-25583 b-25584) + (let ((tmp-25585 + (symbol->keyword (syntax->datum a-25583)))) + (key-25260 + b-25584 + req-25541 + opt-25542 + (cons (cons tmp-25585 + (cons a-25583 '(#(syntax-object #f ((top) @@ -7568,804 +7361,726 @@ "l-*-46" "l-*-45"))) (hygiene guile))))) - #{rkey 25543}#)))) - #{tmp 25551}#) - (let ((#{tmp 25588}# - ($sc-dispatch - #{args 25540}# - '((any any) . any)))) - (if (if #{tmp 25588}# + rkey-25543)))) + tmp-25551) + (let ((tmp-25588 + ($sc-dispatch args-25540 '((any any) . any)))) + (if (if tmp-25588 (@apply - (lambda (#{a 25592}# - #{init 25593}# - #{b 25594}#) - (if (symbol? #{a 25592}#) + (lambda (a-25592 init-25593 b-25594) + (if (symbol? a-25592) #t - (if (if (vector? #{a 25592}#) - (if (= (vector-length #{a 25592}#) - 4) - (eq? (vector-ref #{a 25592}# 0) + (if (if (vector? a-25592) + (if (= (vector-length a-25592) 4) + (eq? (vector-ref a-25592 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{a 25592}# 1)) + (symbol? (vector-ref a-25592 1)) #f))) - #{tmp 25588}#) + tmp-25588) #f) (@apply - (lambda (#{a 25621}# #{init 25622}# #{b 25623}#) - (let ((#{tmp 25624}# + (lambda (a-25621 init-25622 b-25623) + (let ((tmp-25624 (symbol->keyword - (syntax->datum #{a 25621}#)))) - (#{key 25260}# - #{b 25623}# - #{req 25541}# - #{opt 25542}# - (cons (list #{tmp 25624}# - #{a 25621}# - #{init 25622}#) - #{rkey 25543}#)))) - #{tmp 25588}#) - (let ((#{tmp 25627}# + (syntax->datum a-25621)))) + (key-25260 + b-25623 + req-25541 + opt-25542 + (cons (list tmp-25624 a-25621 init-25622) + rkey-25543)))) + tmp-25588) + (let ((tmp-25627 ($sc-dispatch - #{args 25540}# + args-25540 '((any any any) . any)))) - (if (if #{tmp 25627}# + (if (if tmp-25627 (@apply - (lambda (#{a 25631}# - #{init 25632}# - #{k 25633}# - #{b 25634}#) - (if (if (symbol? #{a 25631}#) + (lambda (a-25631 + init-25632 + k-25633 + b-25634) + (if (if (symbol? a-25631) #t - (if (if (vector? #{a 25631}#) + (if (if (vector? a-25631) (if (= (vector-length - #{a 25631}#) + a-25631) 4) (eq? (vector-ref - #{a 25631}# + a-25631 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{a 25631}# 1)) + (vector-ref a-25631 1)) #f)) - (keyword? - (syntax->datum #{k 25633}#)) + (keyword? (syntax->datum k-25633)) #f)) - #{tmp 25627}#) + tmp-25627) #f) (@apply - (lambda (#{a 25661}# - #{init 25662}# - #{k 25663}# - #{b 25664}#) - (#{key 25260}# - #{b 25664}# - #{req 25541}# - #{opt 25542}# - (cons (list #{k 25663}# - #{a 25661}# - #{init 25662}#) - #{rkey 25543}#))) - #{tmp 25627}#) - (let ((#{tmp 25665}# - ($sc-dispatch #{args 25540}# '(any)))) - (if (if #{tmp 25665}# + (lambda (a-25661 init-25662 k-25663 b-25664) + (key-25260 + b-25664 + req-25541 + opt-25542 + (cons (list k-25663 a-25661 init-25662) + rkey-25543))) + tmp-25627) + (let ((tmp-25665 + ($sc-dispatch args-25540 '(any)))) + (if (if tmp-25665 (@apply - (lambda (#{aok 25669}#) - (eq? (syntax->datum #{aok 25669}#) + (lambda (aok-25669) + (eq? (syntax->datum aok-25669) #:allow-other-keys)) - #{tmp 25665}#) + tmp-25665) #f) (@apply - (lambda (#{aok 25670}#) - (#{check 25262}# - #{req 25541}# - #{opt 25542}# + (lambda (aok-25670) + (check-25262 + req-25541 + opt-25542 #f - (cons #t (reverse #{rkey 25543}#)))) - #{tmp 25665}#) - (let ((#{tmp 25673}# + (cons #t (reverse rkey-25543)))) + tmp-25665) + (let ((tmp-25673 ($sc-dispatch - #{args 25540}# + args-25540 '(any any any)))) - (if (if #{tmp 25673}# + (if (if tmp-25673 (@apply - (lambda (#{aok 25677}# - #{a 25678}# - #{b 25679}#) + (lambda (aok-25677 + a-25678 + b-25679) (if (eq? (syntax->datum - #{aok 25677}#) + aok-25677) #:allow-other-keys) - (eq? (syntax->datum - #{a 25678}#) + (eq? (syntax->datum a-25678) #:rest) #f)) - #{tmp 25673}#) + tmp-25673) #f) (@apply - (lambda (#{aok 25680}# - #{a 25681}# - #{b 25682}#) - (#{rest 25261}# - #{b 25682}# - #{req 25541}# - #{opt 25542}# - (cons #t - (reverse #{rkey 25543}#)))) - #{tmp 25673}#) - (let ((#{tmp 25685}# + (lambda (aok-25680 a-25681 b-25682) + (rest-25261 + b-25682 + req-25541 + opt-25542 + (cons #t (reverse rkey-25543)))) + tmp-25673) + (let ((tmp-25685 ($sc-dispatch - #{args 25540}# + args-25540 '(any . any)))) - (if (if #{tmp 25685}# + (if (if tmp-25685 (@apply - (lambda (#{aok 25689}# - #{r 25690}#) + (lambda (aok-25689 r-25690) (if (eq? (syntax->datum - #{aok 25689}#) + aok-25689) #:allow-other-keys) - (if (symbol? #{r 25690}#) + (if (symbol? r-25690) #t (if (if (vector? - #{r 25690}#) + r-25690) (if (= (vector-length - #{r 25690}#) + r-25690) 4) (eq? (vector-ref - #{r 25690}# + r-25690 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 25690}# + r-25690 1)) #f)) #f)) - #{tmp 25685}#) + tmp-25685) #f) (@apply - (lambda (#{aok 25717}# - #{r 25718}#) - (#{rest 25261}# - #{r 25718}# - #{req 25541}# - #{opt 25542}# + (lambda (aok-25717 r-25718) + (rest-25261 + r-25718 + req-25541 + opt-25542 (cons #t - (reverse - #{rkey 25543}#)))) - #{tmp 25685}#) - (let ((#{tmp 25721}# + (reverse rkey-25543)))) + tmp-25685) + (let ((tmp-25721 ($sc-dispatch - #{args 25540}# + args-25540 '(any any)))) - (if (if #{tmp 25721}# + (if (if tmp-25721 (@apply - (lambda (#{a 25725}# - #{b 25726}#) + (lambda (a-25725 b-25726) (eq? (syntax->datum - #{a 25725}#) + a-25725) #:rest)) - #{tmp 25721}#) + tmp-25721) #f) (@apply - (lambda (#{a 25727}# - #{b 25728}#) - (#{rest 25261}# - #{b 25728}# - #{req 25541}# - #{opt 25542}# + (lambda (a-25727 b-25728) + (rest-25261 + b-25728 + req-25541 + opt-25542 (cons #f (reverse - #{rkey 25543}#)))) - #{tmp 25721}#) - (let ((#{tmp 25731}# - (list #{args 25540}#))) + rkey-25543)))) + tmp-25721) + (let ((tmp-25731 + (list args-25540))) (if (@apply - (lambda (#{r 25733}#) - (if (symbol? - #{r 25733}#) + (lambda (r-25733) + (if (symbol? r-25733) #t (if (if (vector? - #{r 25733}#) + r-25733) (if (= (vector-length - #{r 25733}#) + r-25733) 4) (eq? (vector-ref - #{r 25733}# + r-25733 0) 'syntax-object) #f) #f) (symbol? (vector-ref - #{r 25733}# + r-25733 1)) #f))) - #{tmp 25731}#) + tmp-25731) (@apply - (lambda (#{r 25763}#) - (#{rest 25261}# - #{r 25763}# - #{req 25541}# - #{opt 25542}# + (lambda (r-25763) + (rest-25261 + r-25763 + req-25541 + opt-25542 (cons #f (reverse - #{rkey 25543}#)))) - #{tmp 25731}#) + rkey-25543)))) + tmp-25731) (syntax-violation 'lambda* "invalid keyword argument list" - #{orig-args 25257}# - #{args 25540}#))))))))))))))))))))) - (#{rest 25261}# - (lambda (#{args 25791}# - #{req 25792}# - #{opt 25793}# - #{kw 25794}#) - (let ((#{tmp 25796}# (list #{args 25791}#))) + orig-args-25257 + args-25540))))))))))))))))))))) + (rest-25261 + (lambda (args-25791 req-25792 opt-25793 kw-25794) + (let ((tmp-25796 (list args-25791))) (if (@apply - (lambda (#{r 25798}#) - (if (symbol? #{r 25798}#) + (lambda (r-25798) + (if (symbol? r-25798) #t - (if (if (vector? #{r 25798}#) - (if (= (vector-length #{r 25798}#) 4) - (eq? (vector-ref #{r 25798}# 0) - 'syntax-object) + (if (if (vector? r-25798) + (if (= (vector-length r-25798) 4) + (eq? (vector-ref r-25798 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{r 25798}# 1)) + (symbol? (vector-ref r-25798 1)) #f))) - #{tmp 25796}#) + tmp-25796) (@apply - (lambda (#{r 25828}#) - (#{check 25262}# - #{req 25792}# - #{opt 25793}# - #{r 25828}# - #{kw 25794}#)) - #{tmp 25796}#) + (lambda (r-25828) + (check-25262 + req-25792 + opt-25793 + r-25828 + kw-25794)) + tmp-25796) (syntax-violation 'lambda* "invalid rest argument" - #{orig-args 25257}# - #{args 25791}#))))) - (#{check 25262}# - (lambda (#{req 25832}# - #{opt 25833}# - #{rest 25834}# - #{kw 25835}#) - (if (#{distinct-bound-ids? 4513}# + orig-args-25257 + args-25791))))) + (check-25262 + (lambda (req-25832 opt-25833 rest-25834 kw-25835) + (if (distinct-bound-ids?-4513 (append - #{req 25832}# - (map car #{opt 25833}#) - (if #{rest 25834}# (list #{rest 25834}#) '()) - (if (pair? #{kw 25835}#) - (map cadr (cdr #{kw 25835}#)) + req-25832 + (map car opt-25833) + (if rest-25834 (list rest-25834) '()) + (if (pair? kw-25835) + (map cadr (cdr kw-25835)) '()))) - (values - #{req 25832}# - #{opt 25833}# - #{rest 25834}# - #{kw 25835}#) + (values req-25832 opt-25833 rest-25834 kw-25835) (syntax-violation 'lambda* "duplicate identifier in argument list" - #{orig-args 25257}#))))) - (#{req 25258}# #{orig-args 25257}# '())))) - (#{expand-lambda-case 4534}# - (lambda (#{e 25951}# - #{r 25952}# - #{w 25953}# - #{s 25954}# - #{mod 25955}# - #{get-formals 25956}# - #{clauses 25957}#) + orig-args-25257))))) + (req-25258 orig-args-25257 '())))) + (expand-lambda-case-4534 + (lambda (e-25951 + r-25952 + w-25953 + s-25954 + mod-25955 + get-formals-25956 + clauses-25957) (letrec* - ((#{parse-req 25958}# - (lambda (#{req 26089}# - #{opt 26090}# - #{rest 26091}# - #{kw 26092}# - #{body 26093}#) - (let ((#{vars 26094}# - (map #{gen-var 4536}# #{req 26089}#)) - (#{labels 26095}# - (#{gen-labels 4489}# #{req 26089}#))) - (let ((#{r* 26096}# - (#{extend-var-env 4481}# - #{labels 26095}# - #{vars 26094}# - #{r 25952}#)) - (#{w* 26097}# - (#{make-binding-wrap 4500}# - #{req 26089}# - #{labels 26095}# - #{w 25953}#))) - (#{parse-opt 25959}# - (map syntax->datum #{req 26089}#) - #{opt 26090}# - #{rest 26091}# - #{kw 26092}# - #{body 26093}# - (reverse #{vars 26094}#) - #{r* 26096}# - #{w* 26097}# + ((parse-req-25958 + (lambda (req-26089 + opt-26090 + rest-26091 + kw-26092 + body-26093) + (let ((vars-26094 (map gen-var-4536 req-26089)) + (labels-26095 (gen-labels-4489 req-26089))) + (let ((r*-26096 + (extend-var-env-4481 + labels-26095 + vars-26094 + r-25952)) + (w*-26097 + (make-binding-wrap-4500 + req-26089 + labels-26095 + w-25953))) + (parse-opt-25959 + (map syntax->datum req-26089) + opt-26090 + rest-26091 + kw-26092 + body-26093 + (reverse vars-26094) + r*-26096 + w*-26097 '() '()))))) - (#{parse-opt 25959}# - (lambda (#{req 26283}# - #{opt 26284}# - #{rest 26285}# - #{kw 26286}# - #{body 26287}# - #{vars 26288}# - #{r* 26289}# - #{w* 26290}# - #{out 26291}# - #{inits 26292}#) - (if (pair? #{opt 26284}#) - (let ((#{tmp 26293}# (car #{opt 26284}#))) - (let ((#{tmp 26294}# - ($sc-dispatch #{tmp 26293}# '(any any)))) - (if #{tmp 26294}# + (parse-opt-25959 + (lambda (req-26283 + opt-26284 + rest-26285 + kw-26286 + body-26287 + vars-26288 + r*-26289 + w*-26290 + out-26291 + inits-26292) + (if (pair? opt-26284) + (let ((tmp-26293 (car opt-26284))) + (let ((tmp-26294 ($sc-dispatch tmp-26293 '(any any)))) + (if tmp-26294 (@apply - (lambda (#{id 26296}# #{i 26297}#) - (let ((#{v 26298}# - (let ((#{id 26306}# - (if (if (vector? #{id 26296}#) + (lambda (id-26296 i-26297) + (let ((v-26298 + (let ((id-26306 + (if (if (vector? id-26296) (if (= (vector-length - #{id 26296}#) + id-26296) 4) (eq? (vector-ref - #{id 26296}# + id-26296 0) 'syntax-object) #f) #f) - (vector-ref #{id 26296}# 1) - #{id 26296}#))) + (vector-ref id-26296 1) + id-26296))) (gensym (string-append - (symbol->string #{id 26306}#) + (symbol->string id-26306) "-"))))) - (let ((#{l 26299}# - (#{gen-labels 4489}# - (list #{v 26298}#)))) - (let ((#{r** 26300}# - (#{extend-var-env 4481}# - #{l 26299}# - (list #{v 26298}#) - #{r* 26289}#))) - (let ((#{w** 26301}# - (#{make-binding-wrap 4500}# - (list #{id 26296}#) - #{l 26299}# - #{w* 26290}#))) - (#{parse-opt 25959}# - #{req 26283}# - (cdr #{opt 26284}#) - #{rest 26285}# - #{kw 26286}# - #{body 26287}# - (cons #{v 26298}# #{vars 26288}#) - #{r** 26300}# - #{w** 26301}# - (cons (syntax->datum #{id 26296}#) - #{out 26291}#) - (cons (#{expand 4522}# - #{i 26297}# - #{r* 26289}# - #{w* 26290}# - #{mod 25955}#) - #{inits 26292}#))))))) - #{tmp 26294}#) + (let ((l-26299 (gen-labels-4489 (list v-26298)))) + (let ((r**-26300 + (extend-var-env-4481 + l-26299 + (list v-26298) + r*-26289))) + (let ((w**-26301 + (make-binding-wrap-4500 + (list id-26296) + l-26299 + w*-26290))) + (parse-opt-25959 + req-26283 + (cdr opt-26284) + rest-26285 + kw-26286 + body-26287 + (cons v-26298 vars-26288) + r**-26300 + w**-26301 + (cons (syntax->datum id-26296) out-26291) + (cons (expand-4522 + i-26297 + r*-26289 + w*-26290 + mod-25955) + inits-26292))))))) + tmp-26294) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 26293}#)))) - (if #{rest 26285}# - (let ((#{v 26544}# - (let ((#{id 26554}# - (if (if (vector? #{rest 26285}#) - (if (= (vector-length #{rest 26285}#) - 4) - (eq? (vector-ref #{rest 26285}# 0) + tmp-26293)))) + (if rest-26285 + (let ((v-26544 + (let ((id-26554 + (if (if (vector? rest-26285) + (if (= (vector-length rest-26285) 4) + (eq? (vector-ref rest-26285 0) 'syntax-object) #f) #f) - (vector-ref #{rest 26285}# 1) - #{rest 26285}#))) + (vector-ref rest-26285 1) + rest-26285))) (gensym (string-append - (symbol->string #{id 26554}#) + (symbol->string id-26554) "-"))))) - (let ((#{l 26545}# - (#{gen-labels 4489}# (list #{v 26544}#)))) - (let ((#{r* 26546}# - (#{extend-var-env 4481}# - #{l 26545}# - (list #{v 26544}#) - #{r* 26289}#))) - (let ((#{w* 26547}# - (#{make-binding-wrap 4500}# - (list #{rest 26285}#) - #{l 26545}# - #{w* 26290}#))) - (#{parse-kw 25960}# - #{req 26283}# - (if (pair? #{out 26291}#) - (reverse #{out 26291}#) - #f) - (syntax->datum #{rest 26285}#) - (if (pair? #{kw 26286}#) - (cdr #{kw 26286}#) - #{kw 26286}#) - #{body 26287}# - (cons #{v 26544}# #{vars 26288}#) - #{r* 26546}# - #{w* 26547}# - (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f) + (let ((l-26545 (gen-labels-4489 (list v-26544)))) + (let ((r*-26546 + (extend-var-env-4481 + l-26545 + (list v-26544) + r*-26289))) + (let ((w*-26547 + (make-binding-wrap-4500 + (list rest-26285) + l-26545 + w*-26290))) + (parse-kw-25960 + req-26283 + (if (pair? out-26291) (reverse out-26291) #f) + (syntax->datum rest-26285) + (if (pair? kw-26286) (cdr kw-26286) kw-26286) + body-26287 + (cons v-26544 vars-26288) + r*-26546 + w*-26547 + (if (pair? kw-26286) (car kw-26286) #f) '() - #{inits 26292}#))))) - (#{parse-kw 25960}# - #{req 26283}# - (if (pair? #{out 26291}#) - (reverse #{out 26291}#) - #f) + inits-26292))))) + (parse-kw-25960 + req-26283 + (if (pair? out-26291) (reverse out-26291) #f) #f - (if (pair? #{kw 26286}#) - (cdr #{kw 26286}#) - #{kw 26286}#) - #{body 26287}# - #{vars 26288}# - #{r* 26289}# - #{w* 26290}# - (if (pair? #{kw 26286}#) (car #{kw 26286}#) #f) + (if (pair? kw-26286) (cdr kw-26286) kw-26286) + body-26287 + vars-26288 + r*-26289 + w*-26290 + (if (pair? kw-26286) (car kw-26286) #f) '() - #{inits 26292}#))))) - (#{parse-kw 25960}# - (lambda (#{req 26725}# - #{opt 26726}# - #{rest 26727}# - #{kw 26728}# - #{body 26729}# - #{vars 26730}# - #{r* 26731}# - #{w* 26732}# - #{aok 26733}# - #{out 26734}# - #{inits 26735}#) - (if (pair? #{kw 26728}#) - (let ((#{tmp 26736}# (car #{kw 26728}#))) - (let ((#{tmp 26737}# - ($sc-dispatch #{tmp 26736}# '(any any any)))) - (if #{tmp 26737}# + inits-26292))))) + (parse-kw-25960 + (lambda (req-26725 + opt-26726 + rest-26727 + kw-26728 + body-26729 + vars-26730 + r*-26731 + w*-26732 + aok-26733 + out-26734 + inits-26735) + (if (pair? kw-26728) + (let ((tmp-26736 (car kw-26728))) + (let ((tmp-26737 + ($sc-dispatch tmp-26736 '(any any any)))) + (if tmp-26737 (@apply - (lambda (#{k 26739}# #{id 26740}# #{i 26741}#) - (let ((#{v 26742}# - (let ((#{id 26750}# - (if (if (vector? #{id 26740}#) + (lambda (k-26739 id-26740 i-26741) + (let ((v-26742 + (let ((id-26750 + (if (if (vector? id-26740) (if (= (vector-length - #{id 26740}#) + id-26740) 4) (eq? (vector-ref - #{id 26740}# + id-26740 0) 'syntax-object) #f) #f) - (vector-ref #{id 26740}# 1) - #{id 26740}#))) + (vector-ref id-26740 1) + id-26740))) (gensym (string-append - (symbol->string #{id 26750}#) + (symbol->string id-26750) "-"))))) - (let ((#{l 26743}# - (#{gen-labels 4489}# - (list #{v 26742}#)))) - (let ((#{r** 26744}# - (#{extend-var-env 4481}# - #{l 26743}# - (list #{v 26742}#) - #{r* 26731}#))) - (let ((#{w** 26745}# - (#{make-binding-wrap 4500}# - (list #{id 26740}#) - #{l 26743}# - #{w* 26732}#))) - (#{parse-kw 25960}# - #{req 26725}# - #{opt 26726}# - #{rest 26727}# - (cdr #{kw 26728}#) - #{body 26729}# - (cons #{v 26742}# #{vars 26730}#) - #{r** 26744}# - #{w** 26745}# - #{aok 26733}# - (cons (list (syntax->datum #{k 26739}#) - (syntax->datum #{id 26740}#) - #{v 26742}#) - #{out 26734}#) - (cons (#{expand 4522}# - #{i 26741}# - #{r* 26731}# - #{w* 26732}# - #{mod 25955}#) - #{inits 26735}#))))))) - #{tmp 26737}#) + (let ((l-26743 (gen-labels-4489 (list v-26742)))) + (let ((r**-26744 + (extend-var-env-4481 + l-26743 + (list v-26742) + r*-26731))) + (let ((w**-26745 + (make-binding-wrap-4500 + (list id-26740) + l-26743 + w*-26732))) + (parse-kw-25960 + req-26725 + opt-26726 + rest-26727 + (cdr kw-26728) + body-26729 + (cons v-26742 vars-26730) + r**-26744 + w**-26745 + aok-26733 + (cons (list (syntax->datum k-26739) + (syntax->datum id-26740) + v-26742) + out-26734) + (cons (expand-4522 + i-26741 + r*-26731 + w*-26732 + mod-25955) + inits-26735))))))) + tmp-26737) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 26736}#)))) - (#{parse-body 25961}# - #{req 26725}# - #{opt 26726}# - #{rest 26727}# - (if (if #{aok 26733}# - #{aok 26733}# - (pair? #{out 26734}#)) - (cons #{aok 26733}# (reverse #{out 26734}#)) + tmp-26736)))) + (parse-body-25961 + req-26725 + opt-26726 + rest-26727 + (if (if aok-26733 aok-26733 (pair? out-26734)) + (cons aok-26733 (reverse out-26734)) #f) - #{body 26729}# - (reverse #{vars 26730}#) - #{r* 26731}# - #{w* 26732}# - (reverse #{inits 26735}#) + body-26729 + (reverse vars-26730) + r*-26731 + w*-26732 + (reverse inits-26735) '())))) - (#{parse-body 25961}# - (lambda (#{req 26997}# - #{opt 26998}# - #{rest 26999}# - #{kw 27000}# - #{body 27001}# - #{vars 27002}# - #{r* 27003}# - #{w* 27004}# - #{inits 27005}# - #{meta 27006}#) - (let ((#{tmp 27008}# - ($sc-dispatch - #{body 27001}# - '(any any . each-any)))) - (if (if #{tmp 27008}# + (parse-body-25961 + (lambda (req-26997 + opt-26998 + rest-26999 + kw-27000 + body-27001 + vars-27002 + r*-27003 + w*-27004 + inits-27005 + meta-27006) + (let ((tmp-27008 + ($sc-dispatch body-27001 '(any any . each-any)))) + (if (if tmp-27008 (@apply - (lambda (#{docstring 27012}# - #{e1 27013}# - #{e2 27014}#) - (string? (syntax->datum #{docstring 27012}#))) - #{tmp 27008}#) + (lambda (docstring-27012 e1-27013 e2-27014) + (string? (syntax->datum docstring-27012))) + tmp-27008) #f) (@apply - (lambda (#{docstring 27015}# #{e1 27016}# #{e2 27017}#) - (#{parse-body 25961}# - #{req 26997}# - #{opt 26998}# - #{rest 26999}# - #{kw 27000}# - (cons #{e1 27016}# #{e2 27017}#) - #{vars 27002}# - #{r* 27003}# - #{w* 27004}# - #{inits 27005}# + (lambda (docstring-27015 e1-27016 e2-27017) + (parse-body-25961 + req-26997 + opt-26998 + rest-26999 + kw-27000 + (cons e1-27016 e2-27017) + vars-27002 + r*-27003 + w*-27004 + inits-27005 (append - #{meta 27006}# + meta-27006 (list (cons 'documentation - (syntax->datum - #{docstring 27015}#)))))) - #{tmp 27008}#) - (let ((#{tmp 27018}# + (syntax->datum docstring-27015)))))) + tmp-27008) + (let ((tmp-27018 ($sc-dispatch - #{body 27001}# + body-27001 '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 27018}# + (if tmp-27018 (@apply - (lambda (#{k 27022}# - #{v 27023}# - #{e1 27024}# - #{e2 27025}#) - (#{parse-body 25961}# - #{req 26997}# - #{opt 26998}# - #{rest 26999}# - #{kw 27000}# - (cons #{e1 27024}# #{e2 27025}#) - #{vars 27002}# - #{r* 27003}# - #{w* 27004}# - #{inits 27005}# + (lambda (k-27022 v-27023 e1-27024 e2-27025) + (parse-body-25961 + req-26997 + opt-26998 + rest-26999 + kw-27000 + (cons e1-27024 e2-27025) + vars-27002 + r*-27003 + w*-27004 + inits-27005 (append - #{meta 27006}# - (syntax->datum - (map cons #{k 27022}# #{v 27023}#))))) - #{tmp 27018}#) - (let ((#{tmp 27026}# - ($sc-dispatch - #{body 27001}# - '(any . each-any)))) - (if #{tmp 27026}# + meta-27006 + (syntax->datum (map cons k-27022 v-27023))))) + tmp-27018) + (let ((tmp-27026 + ($sc-dispatch body-27001 '(any . each-any)))) + (if tmp-27026 (@apply - (lambda (#{e1 27030}# #{e2 27031}#) + (lambda (e1-27030 e2-27031) (values - #{meta 27006}# - #{req 26997}# - #{opt 26998}# - #{rest 26999}# - #{kw 27000}# - #{inits 27005}# - #{vars 27002}# - (#{expand-body 4526}# - (cons #{e1 27030}# #{e2 27031}#) - (#{wrap 4515}# + meta-27006 + req-26997 + opt-26998 + rest-26999 + kw-27000 + inits-27005 + vars-27002 + (expand-body-4526 + (cons e1-27030 e2-27031) + (wrap-4515 (begin - (if (if (pair? #{e 25951}#) - #{s 25954}# - #f) + (if (if (pair? e-25951) s-25954 #f) (set-source-properties! - #{e 25951}# - #{s 25954}#)) - #{e 25951}#) - #{w 25953}# - #{mod 25955}#) - #{r* 27003}# - #{w* 27004}# - #{mod 25955}#))) - #{tmp 27026}#) + e-25951 + s-25954)) + e-25951) + w-25953 + mod-25955) + r*-27003 + w*-27004 + mod-25955))) + tmp-27026) (syntax-violation #f "source expression failed to match any pattern" - #{body 27001}#)))))))))) - (let ((#{tmp 25963}# - ($sc-dispatch #{clauses 25957}# '()))) - (if #{tmp 25963}# - (@apply - (lambda () (values '() #f)) - #{tmp 25963}#) - (let ((#{tmp 25967}# + body-27001)))))))))) + (let ((tmp-25963 ($sc-dispatch clauses-25957 '()))) + (if tmp-25963 + (@apply (lambda () (values '() #f)) tmp-25963) + (let ((tmp-25967 ($sc-dispatch - #{clauses 25957}# + clauses-25957 '((any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 25967}# + (if tmp-25967 (@apply - (lambda (#{args 25971}# - #{e1 25972}# - #{e2 25973}# - #{args* 25974}# - #{e1* 25975}# - #{e2* 25976}#) + (lambda (args-25971 + e1-25972 + e2-25973 + args*-25974 + e1*-25975 + e2*-25976) (call-with-values - (lambda () - (#{get-formals 25956}# #{args 25971}#)) - (lambda (#{req 25977}# - #{opt 25978}# - #{rest 25979}# - #{kw 25980}#) + (lambda () (get-formals-25956 args-25971)) + (lambda (req-25977 opt-25978 rest-25979 kw-25980) (call-with-values (lambda () - (#{parse-req 25958}# - #{req 25977}# - #{opt 25978}# - #{rest 25979}# - #{kw 25980}# - (cons #{e1 25972}# #{e2 25973}#))) - (lambda (#{meta 26045}# - #{req 26046}# - #{opt 26047}# - #{rest 26048}# - #{kw 26049}# - #{inits 26050}# - #{vars 26051}# - #{body 26052}#) + (parse-req-25958 + req-25977 + opt-25978 + rest-25979 + kw-25980 + (cons e1-25972 e2-25973))) + (lambda (meta-26045 + req-26046 + opt-26047 + rest-26048 + kw-26049 + inits-26050 + vars-26051 + body-26052) (call-with-values (lambda () - (#{expand-lambda-case 4534}# - #{e 25951}# - #{r 25952}# - #{w 25953}# - #{s 25954}# - #{mod 25955}# - #{get-formals 25956}# - (map (lambda (#{tmp-2888 26053}# - #{tmp-2887 26054}# - #{tmp-2886 26055}#) - (cons #{tmp-2886 26055}# - (cons #{tmp-2887 26054}# - #{tmp-2888 26053}#))) - #{e2* 25976}# - #{e1* 25975}# - #{args* 25974}#))) - (lambda (#{meta* 26056}# #{else* 26057}#) + (expand-lambda-case-4534 + e-25951 + r-25952 + w-25953 + s-25954 + mod-25955 + get-formals-25956 + (map (lambda (tmp-2888-26053 + tmp-2887-26054 + tmp-2886-26055) + (cons tmp-2886-26055 + (cons tmp-2887-26054 + tmp-2888-26053))) + e2*-25976 + e1*-25975 + args*-25974))) + (lambda (meta*-26056 else*-26057) (values - (append #{meta 26045}# #{meta* 26056}#) + (append meta-26045 meta*-26056) (make-struct/no-tail (vector-ref %expanded-vtables 14) - #{s 25954}# - #{req 26046}# - #{opt 26047}# - #{rest 26048}# - #{kw 26049}# - #{inits 26050}# - #{vars 26051}# - #{body 26052}# - #{else* 26057}#))))))))) - #{tmp 25967}#) + s-25954 + req-26046 + opt-26047 + rest-26048 + kw-26049 + inits-26050 + vars-26051 + body-26052 + else*-26057))))))))) + tmp-25967) (syntax-violation #f "source expression failed to match any pattern" - #{clauses 25957}#)))))))) - (#{strip 4535}# - (lambda (#{x 27068}# #{w 27069}#) - (if (memq 'top (car #{w 27069}#)) - #{x 27068}# + clauses-25957)))))))) + (strip-4535 + (lambda (x-27068 w-27069) + (if (memq 'top (car w-27069)) + x-27068 (letrec* - ((#{f 27070}# - (lambda (#{x 27073}#) - (if (if (vector? #{x 27073}#) - (if (= (vector-length #{x 27073}#) 4) - (eq? (vector-ref #{x 27073}# 0) 'syntax-object) + ((f-27070 + (lambda (x-27073) + (if (if (vector? x-27073) + (if (= (vector-length x-27073) 4) + (eq? (vector-ref x-27073 0) 'syntax-object) #f) #f) - (#{strip 4535}# - (vector-ref #{x 27073}# 1) - (vector-ref #{x 27073}# 2)) - (if (pair? #{x 27073}#) - (let ((#{a 27092}# (#{f 27070}# (car #{x 27073}#))) - (#{d 27093}# (#{f 27070}# (cdr #{x 27073}#)))) - (if (if (eq? #{a 27092}# (car #{x 27073}#)) - (eq? #{d 27093}# (cdr #{x 27073}#)) + (strip-4535 + (vector-ref x-27073 1) + (vector-ref x-27073 2)) + (if (pair? x-27073) + (let ((a-27092 (f-27070 (car x-27073))) + (d-27093 (f-27070 (cdr x-27073)))) + (if (if (eq? a-27092 (car x-27073)) + (eq? d-27093 (cdr x-27073)) #f) - #{x 27073}# - (cons #{a 27092}# #{d 27093}#))) - (if (vector? #{x 27073}#) - (let ((#{old 27096}# (vector->list #{x 27073}#))) - (let ((#{new 27097}# - (map #{f 27070}# #{old 27096}#))) + x-27073 + (cons a-27092 d-27093))) + (if (vector? x-27073) + (let ((old-27096 (vector->list x-27073))) + (let ((new-27097 (map f-27070 old-27096))) (letrec* - ((#{lp 27098}# - (lambda (#{l1 27174}# #{l2 27175}#) - (if (null? #{l1 27174}#) - #{x 27073}# - (if (eq? (car #{l1 27174}#) - (car #{l2 27175}#)) - (#{lp 27098}# - (cdr #{l1 27174}#) - (cdr #{l2 27175}#)) - (list->vector #{new 27097}#)))))) - (#{lp 27098}# #{old 27096}# #{new 27097}#)))) - #{x 27073}#)))))) - (#{f 27070}# #{x 27068}#))))) - (#{gen-var 4536}# - (lambda (#{id 26101}#) - (let ((#{id 26102}# - (if (if (vector? #{id 26101}#) - (if (= (vector-length #{id 26101}#) 4) - (eq? (vector-ref #{id 26101}# 0) 'syntax-object) + ((lp-27098 + (lambda (l1-27174 l2-27175) + (if (null? l1-27174) + x-27073 + (if (eq? (car l1-27174) (car l2-27175)) + (lp-27098 (cdr l1-27174) (cdr l2-27175)) + (list->vector new-27097)))))) + (lp-27098 old-27096 new-27097)))) + x-27073)))))) + (f-27070 x-27068))))) + (gen-var-4536 + (lambda (id-26101) + (let ((id-26102 + (if (if (vector? id-26101) + (if (= (vector-length id-26101) 4) + (eq? (vector-ref id-26101 0) 'syntax-object) #f) #f) - (vector-ref #{id 26101}# 1) - #{id 26101}#))) + (vector-ref id-26101 1) + id-26101))) (gensym - (string-append (symbol->string #{id 26102}#) "-")))))) + (string-append (symbol->string id-26102) "-")))))) (begin - (set! #{session-id 4447}# - (let ((#{v 15641}# + (set! session-id-4447 + (let ((v-15641 (module-variable (current-module) 'syntax-session-id))) - (lambda () ((variable-ref #{v 15641}#))))) - (set! #{transformer-environment 4508}# + (lambda () ((variable-ref v-15641))))) + (set! transformer-environment-4508 (make-fluid - (lambda (#{k 14684}#) + (lambda (k-14684) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8381,1284 +8096,1094 @@ 'let-syntax 'local-syntax #f)) - (#{global-extend 4484}# + (global-extend-4484 'core 'syntax-parameterize - (lambda (#{e 4657}# - #{r 4658}# - #{w 4659}# - #{s 4660}# - #{mod 4661}#) - (let ((#{tmp 4663}# + (lambda (e-4657 r-4658 w-4659 s-4660 mod-4661) + (let ((tmp-4663 ($sc-dispatch - #{e 4657}# + e-4657 '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 4663}# + (if (if tmp-4663 (@apply - (lambda (#{var 4667}# - #{val 4668}# - #{e1 4669}# - #{e2 4670}#) - (#{valid-bound-ids? 4512}# #{var 4667}#)) - #{tmp 4663}#) + (lambda (var-4667 val-4668 e1-4669 e2-4670) + (valid-bound-ids?-4512 var-4667)) + tmp-4663) #f) (@apply - (lambda (#{var 4748}# - #{val 4749}# - #{e1 4750}# - #{e2 4751}#) - (let ((#{names 4752}# - (map (lambda (#{x 4802}#) - (#{id-var-name 4505}# #{x 4802}# #{w 4659}#)) - #{var 4748}#))) + (lambda (var-4748 val-4749 e1-4750 e2-4751) + (let ((names-4752 + (map (lambda (x-4802) + (id-var-name-4505 x-4802 w-4659)) + var-4748))) (begin (for-each - (lambda (#{id 4753}# #{n 4754}#) - (let ((#{atom-key 4755}# - (car (let ((#{t 4762}# - (assq #{n 4754}# #{r 4658}#))) - (if #{t 4762}# - (cdr #{t 4762}#) - (if (symbol? #{n 4754}#) - (let ((#{t 4767}# - (#{get-global-definition-hook 4449}# - #{n 4754}# - #{mod 4661}#))) - (if #{t 4767}# - #{t 4767}# - '(global))) + (lambda (id-4753 n-4754) + (let ((atom-key-4755 + (car (let ((t-4762 (assq n-4754 r-4658))) + (if t-4762 + (cdr t-4762) + (if (symbol? n-4754) + (let ((t-4767 + (get-global-definition-hook-4449 + n-4754 + mod-4661))) + (if t-4767 t-4767 '(global))) '(displaced-lexical))))))) - (if (eqv? #{atom-key 4755}# 'displaced-lexical) + (if (eqv? atom-key-4755 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - #{e 4657}# - (#{wrap 4515}# + e-4657 + (wrap-4515 (begin - (if (if (pair? #{id 4753}#) #{s 4660}# #f) - (set-source-properties! - #{id 4753}# - #{s 4660}#)) - #{id 4753}#) - #{w 4659}# - #{mod 4661}#))))) - #{var 4748}# - #{names 4752}#) - (#{expand-body 4526}# - (cons #{e1 4750}# #{e2 4751}#) - (#{wrap 4515}# + (if (if (pair? id-4753) s-4660 #f) + (set-source-properties! id-4753 s-4660)) + id-4753) + w-4659 + mod-4661))))) + var-4748 + names-4752) + (expand-body-4526 + (cons e1-4750 e2-4751) + (wrap-4515 (begin - (if (if (pair? #{e 4657}#) #{s 4660}# #f) - (set-source-properties! #{e 4657}# #{s 4660}#)) - #{e 4657}#) - #{w 4659}# - #{mod 4661}#) - (#{extend-env 4480}# - #{names 4752}# - (let ((#{trans-r 4888}# - (#{macros-only-env 4482}# #{r 4658}#))) - (map (lambda (#{x 4889}#) + (if (if (pair? e-4657) s-4660 #f) + (set-source-properties! e-4657 s-4660)) + e-4657) + w-4659 + mod-4661) + (extend-env-4480 + names-4752 + (let ((trans-r-4888 (macros-only-env-4482 r-4658))) + (map (lambda (x-4889) (cons 'macro - (#{eval-local-transformer 4528}# - (#{expand 4522}# - #{x 4889}# - #{trans-r 4888}# - #{w 4659}# - #{mod 4661}#) - #{mod 4661}#))) - #{val 4749}#)) - #{r 4658}#) - #{w 4659}# - #{mod 4661}#)))) - #{tmp 4663}#) + (eval-local-transformer-4528 + (expand-4522 + x-4889 + trans-r-4888 + w-4659 + mod-4661) + mod-4661))) + val-4749)) + r-4658) + w-4659 + mod-4661)))) + tmp-4663) (syntax-violation 'syntax-parameterize "bad syntax" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 4657}#) #{s 4660}# #f) - (set-source-properties! #{e 4657}# #{s 4660}#)) - #{e 4657}#) - #{w 4659}# - #{mod 4661}#)))))) + (if (if (pair? e-4657) s-4660 #f) + (set-source-properties! e-4657 s-4660)) + e-4657) + w-4659 + mod-4661)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (#{e 5098}# - #{r 5099}# - #{w 5100}# - #{s 5101}# - #{mod 5102}#) - (let ((#{tmp 5104}# ($sc-dispatch #{e 5098}# '(_ any)))) - (if #{tmp 5104}# + (lambda (e-5098 r-5099 w-5100 s-5101 mod-5102) + (let ((tmp-5104 ($sc-dispatch e-5098 '(_ any)))) + (if tmp-5104 (@apply - (lambda (#{e 5107}#) - (let ((#{exp 5111}# - (#{strip 4535}# #{e 5107}# #{w 5100}#))) + (lambda (e-5107) + (let ((exp-5111 (strip-4535 e-5107 w-5100))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - #{s 5101}# - #{exp 5111}#))) - #{tmp 5104}#) + s-5101 + exp-5111))) + tmp-5104) (syntax-violation 'quote "bad syntax" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 5098}#) #{s 5101}# #f) - (set-source-properties! #{e 5098}# #{s 5101}#)) - #{e 5098}#) - #{w 5100}# - #{mod 5102}#))))))) - (#{global-extend 4484}# + (if (if (pair? e-5098) s-5101 #f) + (set-source-properties! e-5098 s-5101)) + e-5098) + w-5100 + mod-5102))))))) + (global-extend-4484 'core 'syntax (letrec* - ((#{gen-syntax 5331}# - (lambda (#{src 5433}# - #{e 5434}# - #{r 5435}# - #{maps 5436}# - #{ellipsis? 5437}# - #{mod 5438}#) - (if (if (symbol? #{e 5434}#) + ((gen-syntax-5331 + (lambda (src-5433 + e-5434 + r-5435 + maps-5436 + ellipsis?-5437 + mod-5438) + (if (if (symbol? e-5434) #t - (if (if (vector? #{e 5434}#) - (if (= (vector-length #{e 5434}#) 4) - (eq? (vector-ref #{e 5434}# 0) 'syntax-object) + (if (if (vector? e-5434) + (if (= (vector-length e-5434) 4) + (eq? (vector-ref e-5434 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 5434}# 1)) + (symbol? (vector-ref e-5434 1)) #f)) - (let ((#{label 5465}# - (#{id-var-name 4505}# #{e 5434}# '(())))) - (let ((#{b 5466}# - (let ((#{t 5473}# (assq #{label 5465}# #{r 5435}#))) - (if #{t 5473}# - (cdr #{t 5473}#) - (if (symbol? #{label 5465}#) - (let ((#{t 5479}# - (#{get-global-definition-hook 4449}# - #{label 5465}# - #{mod 5438}#))) - (if #{t 5479}# #{t 5479}# '(global))) + (let ((label-5465 (id-var-name-4505 e-5434 '(())))) + (let ((b-5466 + (let ((t-5473 (assq label-5465 r-5435))) + (if t-5473 + (cdr t-5473) + (if (symbol? label-5465) + (let ((t-5479 + (get-global-definition-hook-4449 + label-5465 + mod-5438))) + (if t-5479 t-5479 '(global))) '(displaced-lexical)))))) - (if (eq? (car #{b 5466}#) 'syntax) + (if (eq? (car b-5466) 'syntax) (call-with-values (lambda () - (let ((#{var.lev 5488}# (cdr #{b 5466}#))) - (#{gen-ref 5332}# - #{src 5433}# - (car #{var.lev 5488}#) - (cdr #{var.lev 5488}#) - #{maps 5436}#))) - (lambda (#{var 5492}# #{maps 5493}#) - (values (list 'ref #{var 5492}#) #{maps 5493}#))) - (if (#{ellipsis? 5437}# #{e 5434}#) + (let ((var.lev-5488 (cdr b-5466))) + (gen-ref-5332 + src-5433 + (car var.lev-5488) + (cdr var.lev-5488) + maps-5436))) + (lambda (var-5492 maps-5493) + (values (list 'ref var-5492) maps-5493))) + (if (ellipsis?-5437 e-5434) (syntax-violation 'syntax "misplaced ellipsis" - #{src 5433}#) - (values (list 'quote #{e 5434}#) #{maps 5436}#))))) - (let ((#{tmp 5495}# - ($sc-dispatch #{e 5434}# '(any any)))) - (if (if #{tmp 5495}# + src-5433) + (values (list 'quote e-5434) maps-5436))))) + (let ((tmp-5495 ($sc-dispatch e-5434 '(any any)))) + (if (if tmp-5495 (@apply - (lambda (#{dots 5499}# #{e 5500}#) - (#{ellipsis? 5437}# #{dots 5499}#)) - #{tmp 5495}#) + (lambda (dots-5499 e-5500) + (ellipsis?-5437 dots-5499)) + tmp-5495) #f) (@apply - (lambda (#{dots 5501}# #{e 5502}#) - (#{gen-syntax 5331}# - #{src 5433}# - #{e 5502}# - #{r 5435}# - #{maps 5436}# - (lambda (#{x 5503}#) #f) - #{mod 5438}#)) - #{tmp 5495}#) - (let ((#{tmp 5504}# - ($sc-dispatch #{e 5434}# '(any any . any)))) - (if (if #{tmp 5504}# + (lambda (dots-5501 e-5502) + (gen-syntax-5331 + src-5433 + e-5502 + r-5435 + maps-5436 + (lambda (x-5503) #f) + mod-5438)) + tmp-5495) + (let ((tmp-5504 ($sc-dispatch e-5434 '(any any . any)))) + (if (if tmp-5504 (@apply - (lambda (#{x 5508}# #{dots 5509}# #{y 5510}#) - (#{ellipsis? 5437}# #{dots 5509}#)) - #{tmp 5504}#) + (lambda (x-5508 dots-5509 y-5510) + (ellipsis?-5437 dots-5509)) + tmp-5504) #f) (@apply - (lambda (#{x 5511}# #{dots 5512}# #{y 5513}#) + (lambda (x-5511 dots-5512 y-5513) (letrec* - ((#{f 5514}# - (lambda (#{y 5522}# #{k 5523}#) - (let ((#{tmp 5525}# + ((f-5514 + (lambda (y-5522 k-5523) + (let ((tmp-5525 ($sc-dispatch - #{y 5522}# + y-5522 '(any . any)))) - (if (if #{tmp 5525}# + (if (if tmp-5525 (@apply - (lambda (#{dots 5529}# - #{y 5530}#) - (#{ellipsis? 5437}# - #{dots 5529}#)) - #{tmp 5525}#) + (lambda (dots-5529 y-5530) + (ellipsis?-5437 dots-5529)) + tmp-5525) #f) (@apply - (lambda (#{dots 5531}# #{y 5532}#) - (#{f 5514}# - #{y 5532}# - (lambda (#{maps 5533}#) + (lambda (dots-5531 y-5532) + (f-5514 + y-5532 + (lambda (maps-5533) (call-with-values (lambda () - (#{k 5523}# - (cons '() - #{maps 5533}#))) - (lambda (#{x 5534}# - #{maps 5535}#) - (if (null? (car #{maps 5535}#)) + (k-5523 + (cons '() maps-5533))) + (lambda (x-5534 maps-5535) + (if (null? (car maps-5535)) (syntax-violation 'syntax "extra ellipsis" - #{src 5433}#) + src-5433) (values - (let ((#{map-env 5539}# - (car #{maps 5535}#))) + (let ((map-env-5539 + (car maps-5535))) (list 'apply '(primitive append) - (#{gen-map 5334}# - #{x 5534}# - #{map-env 5539}#))) - (cdr #{maps 5535}#)))))))) - #{tmp 5525}#) + (gen-map-5334 + x-5534 + map-env-5539))) + (cdr maps-5535)))))))) + tmp-5525) (call-with-values (lambda () - (#{gen-syntax 5331}# - #{src 5433}# - #{y 5522}# - #{r 5435}# - #{maps 5436}# - #{ellipsis? 5437}# - #{mod 5438}#)) - (lambda (#{y 5542}# #{maps 5543}#) + (gen-syntax-5331 + src-5433 + y-5522 + r-5435 + maps-5436 + ellipsis?-5437 + mod-5438)) + (lambda (y-5542 maps-5543) (call-with-values - (lambda () - (#{k 5523}# #{maps 5543}#)) - (lambda (#{x 5544}# - #{maps 5545}#) + (lambda () (k-5523 maps-5543)) + (lambda (x-5544 maps-5545) (values - (if (equal? #{y 5542}# ''()) - #{x 5544}# + (if (equal? y-5542 ''()) + x-5544 (list 'append - #{x 5544}# - #{y 5542}#)) - #{maps 5545}#)))))))))) - (#{f 5514}# - #{y 5513}# - (lambda (#{maps 5517}#) + x-5544 + y-5542)) + maps-5545)))))))))) + (f-5514 + y-5513 + (lambda (maps-5517) (call-with-values (lambda () - (#{gen-syntax 5331}# - #{src 5433}# - #{x 5511}# - #{r 5435}# - (cons '() #{maps 5517}#) - #{ellipsis? 5437}# - #{mod 5438}#)) - (lambda (#{x 5518}# #{maps 5519}#) - (if (null? (car #{maps 5519}#)) + (gen-syntax-5331 + src-5433 + x-5511 + r-5435 + (cons '() maps-5517) + ellipsis?-5437 + mod-5438)) + (lambda (x-5518 maps-5519) + (if (null? (car maps-5519)) (syntax-violation 'syntax "extra ellipsis" - #{src 5433}#) + src-5433) (values - (#{gen-map 5334}# - #{x 5518}# - (car #{maps 5519}#)) - (cdr #{maps 5519}#))))))))) - #{tmp 5504}#) - (let ((#{tmp 5561}# - ($sc-dispatch #{e 5434}# '(any . any)))) - (if #{tmp 5561}# + (gen-map-5334 + x-5518 + (car maps-5519)) + (cdr maps-5519))))))))) + tmp-5504) + (let ((tmp-5561 ($sc-dispatch e-5434 '(any . any)))) + (if tmp-5561 (@apply - (lambda (#{x 5565}# #{y 5566}#) + (lambda (x-5565 y-5566) (call-with-values (lambda () - (#{gen-syntax 5331}# - #{src 5433}# - #{x 5565}# - #{r 5435}# - #{maps 5436}# - #{ellipsis? 5437}# - #{mod 5438}#)) - (lambda (#{x 5567}# #{maps 5568}#) + (gen-syntax-5331 + src-5433 + x-5565 + r-5435 + maps-5436 + ellipsis?-5437 + mod-5438)) + (lambda (x-5567 maps-5568) (call-with-values (lambda () - (#{gen-syntax 5331}# - #{src 5433}# - #{y 5566}# - #{r 5435}# - #{maps 5568}# - #{ellipsis? 5437}# - #{mod 5438}#)) - (lambda (#{y 5569}# #{maps 5570}#) + (gen-syntax-5331 + src-5433 + y-5566 + r-5435 + maps-5568 + ellipsis?-5437 + mod-5438)) + (lambda (y-5569 maps-5570) (values - (let ((#{atom-key 5575}# - (car #{y 5569}#))) - (if (eqv? #{atom-key 5575}# - 'quote) - (if (eq? (car #{x 5567}#) - 'quote) + (let ((atom-key-5575 (car y-5569))) + (if (eqv? atom-key-5575 'quote) + (if (eq? (car x-5567) 'quote) (list 'quote - (cons (car (cdr #{x 5567}#)) - (car (cdr #{y 5569}#)))) - (if (eq? (car (cdr #{y 5569}#)) + (cons (car (cdr x-5567)) + (car (cdr y-5569)))) + (if (eq? (car (cdr y-5569)) '()) - (list 'list #{x 5567}#) - (list 'cons - #{x 5567}# - #{y 5569}#))) - (if (eqv? #{atom-key 5575}# - 'list) + (list 'list x-5567) + (list 'cons x-5567 y-5569))) + (if (eqv? atom-key-5575 'list) (cons 'list - (cons #{x 5567}# - (cdr #{y 5569}#))) - (list 'cons - #{x 5567}# - #{y 5569}#)))) - #{maps 5570}#)))))) - #{tmp 5561}#) - (let ((#{tmp 5604}# + (cons x-5567 + (cdr y-5569))) + (list 'cons x-5567 y-5569)))) + maps-5570)))))) + tmp-5561) + (let ((tmp-5604 ($sc-dispatch - #{e 5434}# + e-5434 '#(vector (any . each-any))))) - (if #{tmp 5604}# + (if tmp-5604 (@apply - (lambda (#{e1 5608}# #{e2 5609}#) + (lambda (e1-5608 e2-5609) (call-with-values (lambda () - (#{gen-syntax 5331}# - #{src 5433}# - (cons #{e1 5608}# #{e2 5609}#) - #{r 5435}# - #{maps 5436}# - #{ellipsis? 5437}# - #{mod 5438}#)) - (lambda (#{e 5610}# #{maps 5611}#) + (gen-syntax-5331 + src-5433 + (cons e1-5608 e2-5609) + r-5435 + maps-5436 + ellipsis?-5437 + mod-5438)) + (lambda (e-5610 maps-5611) (values - (if (eq? (car #{e 5610}#) 'list) - (cons 'vector (cdr #{e 5610}#)) - (if (eq? (car #{e 5610}#) 'quote) + (if (eq? (car e-5610) 'list) + (cons 'vector (cdr e-5610)) + (if (eq? (car e-5610) 'quote) (list 'quote (list->vector - (car (cdr #{e 5610}#)))) - (list 'list->vector - #{e 5610}#))) - #{maps 5611}#)))) - #{tmp 5604}#) + (car (cdr e-5610)))) + (list 'list->vector e-5610))) + maps-5611)))) + tmp-5604) (values - (list 'quote #{e 5434}#) - #{maps 5436}#)))))))))))) - (#{gen-ref 5332}# - (lambda (#{src 5638}# - #{var 5639}# - #{level 5640}# - #{maps 5641}#) - (if (= #{level 5640}# 0) - (values #{var 5639}# #{maps 5641}#) - (if (null? #{maps 5641}#) + (list 'quote e-5434) + maps-5436)))))))))))) + (gen-ref-5332 + (lambda (src-5638 var-5639 level-5640 maps-5641) + (if (= level-5640 0) + (values var-5639 maps-5641) + (if (null? maps-5641) (syntax-violation 'syntax "missing ellipsis" - #{src 5638}#) + src-5638) (call-with-values (lambda () - (#{gen-ref 5332}# - #{src 5638}# - #{var 5639}# - (#{1-}# #{level 5640}#) - (cdr #{maps 5641}#))) - (lambda (#{outer-var 5642}# #{outer-maps 5643}#) - (let ((#{b 5644}# - (assq #{outer-var 5642}# (car #{maps 5641}#)))) - (if #{b 5644}# - (values (cdr #{b 5644}#) #{maps 5641}#) - (let ((#{inner-var 5646}# + (gen-ref-5332 + src-5638 + var-5639 + (#{1-}# level-5640) + (cdr maps-5641))) + (lambda (outer-var-5642 outer-maps-5643) + (let ((b-5644 (assq outer-var-5642 (car maps-5641)))) + (if b-5644 + (values (cdr b-5644) maps-5641) + (let ((inner-var-5646 (gensym (string-append (symbol->string 'tmp) "-")))) (values - #{inner-var 5646}# - (cons (cons (cons #{outer-var 5642}# - #{inner-var 5646}#) - (car #{maps 5641}#)) - #{outer-maps 5643}#))))))))))) - (#{gen-map 5334}# - (lambda (#{e 5660}# #{map-env 5661}#) - (let ((#{formals 5662}# (map cdr #{map-env 5661}#)) - (#{actuals 5663}# - (map (lambda (#{x 5665}#) - (list 'ref (car #{x 5665}#))) - #{map-env 5661}#))) - (if (eq? (car #{e 5660}#) 'ref) - (car #{actuals 5663}#) + inner-var-5646 + (cons (cons (cons outer-var-5642 inner-var-5646) + (car maps-5641)) + outer-maps-5643))))))))))) + (gen-map-5334 + (lambda (e-5660 map-env-5661) + (let ((formals-5662 (map cdr map-env-5661)) + (actuals-5663 + (map (lambda (x-5665) (list 'ref (car x-5665))) + map-env-5661))) + (if (eq? (car e-5660) 'ref) + (car actuals-5663) (if (and-map - (lambda (#{x 5666}#) - (if (eq? (car #{x 5666}#) 'ref) - (memq (car (cdr #{x 5666}#)) #{formals 5662}#) + (lambda (x-5666) + (if (eq? (car x-5666) 'ref) + (memq (car (cdr x-5666)) formals-5662) #f)) - (cdr #{e 5660}#)) + (cdr e-5660)) (cons 'map - (cons (list 'primitive (car #{e 5660}#)) - (map (let ((#{r 5668}# + (cons (list 'primitive (car e-5660)) + (map (let ((r-5668 (map cons - #{formals 5662}# - #{actuals 5663}#))) - (lambda (#{x 5669}#) - (cdr (assq (car (cdr #{x 5669}#)) - #{r 5668}#)))) - (cdr #{e 5660}#)))) + formals-5662 + actuals-5663))) + (lambda (x-5669) + (cdr (assq (car (cdr x-5669)) + r-5668)))) + (cdr e-5660)))) (cons 'map - (cons (list 'lambda #{formals 5662}# #{e 5660}#) - #{actuals 5663}#))))))) - (#{regen 5338}# - (lambda (#{x 5671}#) - (let ((#{atom-key 5672}# (car #{x 5671}#))) - (if (eqv? #{atom-key 5672}# 'ref) - (let ((#{name 5682}# (car (cdr #{x 5671}#))) - (#{var 5683}# (car (cdr #{x 5671}#)))) + (cons (list 'lambda formals-5662 e-5660) + actuals-5663))))))) + (regen-5338 + (lambda (x-5671) + (let ((atom-key-5672 (car x-5671))) + (if (eqv? atom-key-5672 'ref) + (let ((name-5682 (car (cdr x-5671))) + (var-5683 (car (cdr x-5671)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - #{name 5682}# - #{var 5683}#)) - (if (eqv? #{atom-key 5672}# 'primitive) - (let ((#{name 5695}# (car (cdr #{x 5671}#)))) + name-5682 + var-5683)) + (if (eqv? atom-key-5672 'primitive) + (let ((name-5695 (car (cdr x-5671)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5695}#) + name-5695) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5695}# + name-5695 #f))) - (if (eqv? #{atom-key 5672}# 'quote) - (let ((#{exp 5713}# (car (cdr #{x 5671}#)))) + (if (eqv? atom-key-5672 'quote) + (let ((exp-5713 (car (cdr x-5671)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{exp 5713}#)) - (if (eqv? #{atom-key 5672}# 'lambda) - (if (list? (car (cdr #{x 5671}#))) - (let ((#{req 5724}# (car (cdr #{x 5671}#))) - (#{vars 5726}# (car (cdr #{x 5671}#))) - (#{exp 5728}# - (#{regen 5338}# - (car (cdr (cdr #{x 5671}#)))))) - (let ((#{body 5733}# + exp-5713)) + (if (eqv? atom-key-5672 'lambda) + (if (list? (car (cdr x-5671))) + (let ((req-5724 (car (cdr x-5671))) + (vars-5726 (car (cdr x-5671))) + (exp-5728 + (regen-5338 (car (cdr (cdr x-5671)))))) + (let ((body-5733 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 5724}# + req-5724 #f #f #f '() - #{vars 5726}# - #{exp 5728}# + vars-5726 + exp-5728 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 5733}#))) - (error "how did we get here" #{x 5671}#)) - (let ((#{fun-exp 5749}# - (let ((#{name 5758}# (car #{x 5671}#))) + body-5733))) + (error "how did we get here" x-5671)) + (let ((fun-exp-5749 + (let ((name-5758 (car x-5671))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - #{name 5758}#) + name-5758) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - #{name 5758}# + name-5758 #f)))) - (#{arg-exps 5750}# - (map #{regen 5338}# (cdr #{x 5671}#)))) + (arg-exps-5750 (map regen-5338 (cdr x-5671)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 5749}# - #{arg-exps 5750}#)))))))))) - (lambda (#{e 5339}# - #{r 5340}# - #{w 5341}# - #{s 5342}# - #{mod 5343}#) - (let ((#{e 5344}# - (#{wrap 4515}# + fun-exp-5749 + arg-exps-5750)))))))))) + (lambda (e-5339 r-5340 w-5341 s-5342 mod-5343) + (let ((e-5344 + (wrap-4515 (begin - (if (if (pair? #{e 5339}#) #{s 5342}# #f) - (set-source-properties! #{e 5339}# #{s 5342}#)) - #{e 5339}#) - #{w 5341}# - #{mod 5343}#))) - (let ((#{tmp 5346}# ($sc-dispatch #{e 5344}# '(_ any)))) - (if #{tmp 5346}# + (if (if (pair? e-5339) s-5342 #f) + (set-source-properties! e-5339 s-5342)) + e-5339) + w-5341 + mod-5343))) + (let ((tmp-5346 ($sc-dispatch e-5344 '(_ any)))) + (if tmp-5346 (@apply - (lambda (#{x 5371}#) + (lambda (x-5371) (call-with-values (lambda () - (#{gen-syntax 5331}# - #{e 5344}# - #{x 5371}# - #{r 5340}# + (gen-syntax-5331 + e-5344 + x-5371 + r-5340 '() - #{ellipsis? 4530}# - #{mod 5343}#)) - (lambda (#{e 5425}# #{maps 5426}#) - (#{regen 5338}# #{e 5425}#)))) - #{tmp 5346}#) + ellipsis?-4530 + mod-5343)) + (lambda (e-5425 maps-5426) (regen-5338 e-5425)))) + tmp-5346) (syntax-violation 'syntax "bad `syntax' form" - #{e 5344}#))))))) - (#{global-extend 4484}# + e-5344))))))) + (global-extend-4484 'core 'lambda - (lambda (#{e 5946}# - #{r 5947}# - #{w 5948}# - #{s 5949}# - #{mod 5950}#) - (let ((#{tmp 5952}# - ($sc-dispatch #{e 5946}# '(_ any any . each-any)))) - (if #{tmp 5952}# + (lambda (e-5946 r-5947 w-5948 s-5949 mod-5950) + (let ((tmp-5952 + ($sc-dispatch e-5946 '(_ any any . each-any)))) + (if tmp-5952 (@apply - (lambda (#{args 5956}# #{e1 5957}# #{e2 5958}#) + (lambda (args-5956 e1-5957 e2-5958) (call-with-values - (lambda () - (#{lambda-formals 4531}# #{args 5956}#)) - (lambda (#{req 5961}# - #{opt 5962}# - #{rest 5963}# - #{kw 5964}#) + (lambda () (lambda-formals-4531 args-5956)) + (lambda (req-5961 opt-5962 rest-5963 kw-5964) (letrec* - ((#{lp 5965}# - (lambda (#{body 5968}# #{meta 5969}#) - (let ((#{tmp 5971}# + ((lp-5965 + (lambda (body-5968 meta-5969) + (let ((tmp-5971 ($sc-dispatch - #{body 5968}# + body-5968 '(any any . each-any)))) - (if (if #{tmp 5971}# + (if (if tmp-5971 (@apply - (lambda (#{docstring 5975}# - #{e1 5976}# - #{e2 5977}#) + (lambda (docstring-5975 e1-5976 e2-5977) (string? - (syntax->datum #{docstring 5975}#))) - #{tmp 5971}#) + (syntax->datum docstring-5975))) + tmp-5971) #f) (@apply - (lambda (#{docstring 5978}# - #{e1 5979}# - #{e2 5980}#) - (#{lp 5965}# - (cons #{e1 5979}# #{e2 5980}#) + (lambda (docstring-5978 e1-5979 e2-5980) + (lp-5965 + (cons e1-5979 e2-5980) (append - #{meta 5969}# + meta-5969 (list (cons 'documentation (syntax->datum - #{docstring 5978}#)))))) - #{tmp 5971}#) - (let ((#{tmp 5981}# + docstring-5978)))))) + tmp-5971) + (let ((tmp-5981 ($sc-dispatch - #{body 5968}# + body-5968 '(#(vector #(each (any . any))) any . each-any)))) - (if #{tmp 5981}# + (if tmp-5981 (@apply - (lambda (#{k 5985}# - #{v 5986}# - #{e1 5987}# - #{e2 5988}#) - (#{lp 5965}# - (cons #{e1 5987}# #{e2 5988}#) + (lambda (k-5985 v-5986 e1-5987 e2-5988) + (lp-5965 + (cons e1-5987 e2-5988) (append - #{meta 5969}# + meta-5969 (syntax->datum - (map cons - #{k 5985}# - #{v 5986}#))))) - #{tmp 5981}#) - (#{expand-simple-lambda 4532}# - #{e 5946}# - #{r 5947}# - #{w 5948}# - #{s 5949}# - #{mod 5950}# - #{req 5961}# - #{rest 5963}# - #{meta 5969}# - #{body 5968}#)))))))) - (#{lp 5965}# (cons #{e1 5957}# #{e2 5958}#) '()))))) - #{tmp 5952}#) - (syntax-violation - 'lambda - "bad lambda" - #{e 5946}#))))) - (#{global-extend 4484}# + (map cons k-5985 v-5986))))) + tmp-5981) + (expand-simple-lambda-4532 + e-5946 + r-5947 + w-5948 + s-5949 + mod-5950 + req-5961 + rest-5963 + meta-5969 + body-5968)))))))) + (lp-5965 (cons e1-5957 e2-5958) '()))))) + tmp-5952) + (syntax-violation 'lambda "bad lambda" e-5946))))) + (global-extend-4484 'core 'lambda* - (lambda (#{e 6277}# - #{r 6278}# - #{w 6279}# - #{s 6280}# - #{mod 6281}#) - (let ((#{tmp 6283}# - ($sc-dispatch #{e 6277}# '(_ any any . each-any)))) - (if #{tmp 6283}# + (lambda (e-6277 r-6278 w-6279 s-6280 mod-6281) + (let ((tmp-6283 + ($sc-dispatch e-6277 '(_ any any . each-any)))) + (if tmp-6283 (@apply - (lambda (#{args 6287}# #{e1 6288}# #{e2 6289}#) + (lambda (args-6287 e1-6288 e2-6289) (call-with-values (lambda () - (#{expand-lambda-case 4534}# - #{e 6277}# - #{r 6278}# - #{w 6279}# - #{s 6280}# - #{mod 6281}# - #{lambda*-formals 4533}# - (list (cons #{args 6287}# - (cons #{e1 6288}# #{e2 6289}#))))) - (lambda (#{meta 6292}# #{lcase 6293}#) + (expand-lambda-case-4534 + e-6277 + r-6278 + w-6279 + s-6280 + mod-6281 + lambda*-formals-4533 + (list (cons args-6287 (cons e1-6288 e2-6289))))) + (lambda (meta-6292 lcase-6293) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6280}# - #{meta 6292}# - #{lcase 6293}#)))) - #{tmp 6283}#) - (syntax-violation - 'lambda - "bad lambda*" - #{e 6277}#))))) - (#{global-extend 4484}# + s-6280 + meta-6292 + lcase-6293)))) + tmp-6283) + (syntax-violation 'lambda "bad lambda*" e-6277))))) + (global-extend-4484 'core 'case-lambda - (lambda (#{e 6463}# - #{r 6464}# - #{w 6465}# - #{s 6466}# - #{mod 6467}#) - (let ((#{tmp 6469}# + (lambda (e-6463 r-6464 w-6465 s-6466 mod-6467) + (let ((tmp-6469 ($sc-dispatch - #{e 6463}# + e-6463 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6469}# + (if tmp-6469 (@apply - (lambda (#{args 6473}# - #{e1 6474}# - #{e2 6475}# - #{args* 6476}# - #{e1* 6477}# - #{e2* 6478}#) + (lambda (args-6473 + e1-6474 + e2-6475 + args*-6476 + e1*-6477 + e2*-6478) (call-with-values (lambda () - (#{expand-lambda-case 4534}# - #{e 6463}# - #{r 6464}# - #{w 6465}# - #{s 6466}# - #{mod 6467}# - #{lambda-formals 4531}# - (cons (cons #{args 6473}# - (cons #{e1 6474}# #{e2 6475}#)) - (map (lambda (#{tmp-3387 6481}# - #{tmp-3386 6482}# - #{tmp-3385 6483}#) - (cons #{tmp-3385 6483}# - (cons #{tmp-3386 6482}# - #{tmp-3387 6481}#))) - #{e2* 6478}# - #{e1* 6477}# - #{args* 6476}#)))) - (lambda (#{meta 6484}# #{lcase 6485}#) + (expand-lambda-case-4534 + e-6463 + r-6464 + w-6465 + s-6466 + mod-6467 + lambda-formals-4531 + (cons (cons args-6473 (cons e1-6474 e2-6475)) + (map (lambda (tmp-3387-6481 + tmp-3386-6482 + tmp-3385-6483) + (cons tmp-3385-6483 + (cons tmp-3386-6482 tmp-3387-6481))) + e2*-6478 + e1*-6477 + args*-6476)))) + (lambda (meta-6484 lcase-6485) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6466}# - #{meta 6484}# - #{lcase 6485}#)))) - #{tmp 6469}#) + s-6466 + meta-6484 + lcase-6485)))) + tmp-6469) (syntax-violation 'case-lambda "bad case-lambda" - #{e 6463}#))))) - (#{global-extend 4484}# + e-6463))))) + (global-extend-4484 'core 'case-lambda* - (lambda (#{e 6647}# - #{r 6648}# - #{w 6649}# - #{s 6650}# - #{mod 6651}#) - (let ((#{tmp 6653}# + (lambda (e-6647 r-6648 w-6649 s-6650 mod-6651) + (let ((tmp-6653 ($sc-dispatch - #{e 6647}# + e-6647 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if #{tmp 6653}# + (if tmp-6653 (@apply - (lambda (#{args 6657}# - #{e1 6658}# - #{e2 6659}# - #{args* 6660}# - #{e1* 6661}# - #{e2* 6662}#) + (lambda (args-6657 + e1-6658 + e2-6659 + args*-6660 + e1*-6661 + e2*-6662) (call-with-values (lambda () - (#{expand-lambda-case 4534}# - #{e 6647}# - #{r 6648}# - #{w 6649}# - #{s 6650}# - #{mod 6651}# - #{lambda*-formals 4533}# - (cons (cons #{args 6657}# - (cons #{e1 6658}# #{e2 6659}#)) - (map (lambda (#{tmp-3422 6665}# - #{tmp-3421 6666}# - #{tmp-3420 6667}#) - (cons #{tmp-3420 6667}# - (cons #{tmp-3421 6666}# - #{tmp-3422 6665}#))) - #{e2* 6662}# - #{e1* 6661}# - #{args* 6660}#)))) - (lambda (#{meta 6668}# #{lcase 6669}#) + (expand-lambda-case-4534 + e-6647 + r-6648 + w-6649 + s-6650 + mod-6651 + lambda*-formals-4533 + (cons (cons args-6657 (cons e1-6658 e2-6659)) + (map (lambda (tmp-3422-6665 + tmp-3421-6666 + tmp-3420-6667) + (cons tmp-3420-6667 + (cons tmp-3421-6666 tmp-3422-6665))) + e2*-6662 + e1*-6661 + args*-6660)))) + (lambda (meta-6668 lcase-6669) (make-struct/no-tail (vector-ref %expanded-vtables 13) - #{s 6650}# - #{meta 6668}# - #{lcase 6669}#)))) - #{tmp 6653}#) + s-6650 + meta-6668 + lcase-6669)))) + tmp-6653) (syntax-violation 'case-lambda "bad case-lambda*" - #{e 6647}#))))) - (#{global-extend 4484}# + e-6647))))) + (global-extend-4484 'core 'let (letrec* - ((#{expand-let 6860}# - (lambda (#{e 7009}# - #{r 7010}# - #{w 7011}# - #{s 7012}# - #{mod 7013}# - #{constructor 7014}# - #{ids 7015}# - #{vals 7016}# - #{exps 7017}#) - (if (not (#{valid-bound-ids? 4512}# #{ids 7015}#)) + ((expand-let-6860 + (lambda (e-7009 + r-7010 + w-7011 + s-7012 + mod-7013 + constructor-7014 + ids-7015 + vals-7016 + exps-7017) + (if (not (valid-bound-ids?-4512 ids-7015)) (syntax-violation 'let "duplicate bound variable" - #{e 7009}#) - (let ((#{labels 7095}# - (#{gen-labels 4489}# #{ids 7015}#)) - (#{new-vars 7096}# - (map #{gen-var 4536}# #{ids 7015}#))) - (let ((#{nw 7097}# - (#{make-binding-wrap 4500}# - #{ids 7015}# - #{labels 7095}# - #{w 7011}#)) - (#{nr 7098}# - (#{extend-var-env 4481}# - #{labels 7095}# - #{new-vars 7096}# - #{r 7010}#))) - (#{constructor 7014}# - #{s 7012}# - (map syntax->datum #{ids 7015}#) - #{new-vars 7096}# - (map (lambda (#{x 7115}#) - (#{expand 4522}# - #{x 7115}# - #{r 7010}# - #{w 7011}# - #{mod 7013}#)) - #{vals 7016}#) - (#{expand-body 4526}# - #{exps 7017}# - (#{source-wrap 4516}# - #{e 7009}# - #{nw 7097}# - #{s 7012}# - #{mod 7013}#) - #{nr 7098}# - #{nw 7097}# - #{mod 7013}#)))))))) - (lambda (#{e 6861}# - #{r 6862}# - #{w 6863}# - #{s 6864}# - #{mod 6865}#) - (let ((#{tmp 6867}# + e-7009) + (let ((labels-7095 (gen-labels-4489 ids-7015)) + (new-vars-7096 (map gen-var-4536 ids-7015))) + (let ((nw-7097 + (make-binding-wrap-4500 + ids-7015 + labels-7095 + w-7011)) + (nr-7098 + (extend-var-env-4481 + labels-7095 + new-vars-7096 + r-7010))) + (constructor-7014 + s-7012 + (map syntax->datum ids-7015) + new-vars-7096 + (map (lambda (x-7115) + (expand-4522 x-7115 r-7010 w-7011 mod-7013)) + vals-7016) + (expand-body-4526 + exps-7017 + (source-wrap-4516 e-7009 nw-7097 s-7012 mod-7013) + nr-7098 + nw-7097 + mod-7013)))))))) + (lambda (e-6861 r-6862 w-6863 s-6864 mod-6865) + (let ((tmp-6867 ($sc-dispatch - #{e 6861}# + e-6861 '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 6867}# + (if (if tmp-6867 (@apply - (lambda (#{id 6871}# - #{val 6872}# - #{e1 6873}# - #{e2 6874}#) - (and-map #{id? 4486}# #{id 6871}#)) - #{tmp 6867}#) + (lambda (id-6871 val-6872 e1-6873 e2-6874) + (and-map id?-4486 id-6871)) + tmp-6867) #f) (@apply - (lambda (#{id 6890}# - #{val 6891}# - #{e1 6892}# - #{e2 6893}#) - (#{expand-let 6860}# - #{e 6861}# - #{r 6862}# - #{w 6863}# - #{s 6864}# - #{mod 6865}# - #{build-let 4468}# - #{id 6890}# - #{val 6891}# - (cons #{e1 6892}# #{e2 6893}#))) - #{tmp 6867}#) - (let ((#{tmp 6923}# + (lambda (id-6890 val-6891 e1-6892 e2-6893) + (expand-let-6860 + e-6861 + r-6862 + w-6863 + s-6864 + mod-6865 + build-let-4468 + id-6890 + val-6891 + (cons e1-6892 e2-6893))) + tmp-6867) + (let ((tmp-6923 ($sc-dispatch - #{e 6861}# + e-6861 '(_ any #(each (any any)) any . each-any)))) - (if (if #{tmp 6923}# + (if (if tmp-6923 (@apply - (lambda (#{f 6927}# - #{id 6928}# - #{val 6929}# - #{e1 6930}# - #{e2 6931}#) - (if (if (symbol? #{f 6927}#) + (lambda (f-6927 id-6928 val-6929 e1-6930 e2-6931) + (if (if (symbol? f-6927) #t - (if (if (vector? #{f 6927}#) - (if (= (vector-length #{f 6927}#) 4) - (eq? (vector-ref #{f 6927}# 0) + (if (if (vector? f-6927) + (if (= (vector-length f-6927) 4) + (eq? (vector-ref f-6927 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{f 6927}# 1)) + (symbol? (vector-ref f-6927 1)) #f)) - (and-map #{id? 4486}# #{id 6928}#) + (and-map id?-4486 id-6928) #f)) - #{tmp 6923}#) + tmp-6923) #f) (@apply - (lambda (#{f 6973}# - #{id 6974}# - #{val 6975}# - #{e1 6976}# - #{e2 6977}#) - (#{expand-let 6860}# - #{e 6861}# - #{r 6862}# - #{w 6863}# - #{s 6864}# - #{mod 6865}# - #{build-named-let 4469}# - (cons #{f 6973}# #{id 6974}#) - #{val 6975}# - (cons #{e1 6976}# #{e2 6977}#))) - #{tmp 6923}#) + (lambda (f-6973 id-6974 val-6975 e1-6976 e2-6977) + (expand-let-6860 + e-6861 + r-6862 + w-6863 + s-6864 + mod-6865 + build-named-let-4469 + (cons f-6973 id-6974) + val-6975 + (cons e1-6976 e2-6977))) + tmp-6923) (syntax-violation 'let "bad let" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 6861}#) #{s 6864}# #f) - (set-source-properties! #{e 6861}# #{s 6864}#)) - #{e 6861}#) - #{w 6863}# - #{mod 6865}#))))))))) - (#{global-extend 4484}# + (if (if (pair? e-6861) s-6864 #f) + (set-source-properties! e-6861 s-6864)) + e-6861) + w-6863 + mod-6865))))))))) + (global-extend-4484 'core 'letrec - (lambda (#{e 7527}# - #{r 7528}# - #{w 7529}# - #{s 7530}# - #{mod 7531}#) - (let ((#{tmp 7533}# + (lambda (e-7527 r-7528 w-7529 s-7530 mod-7531) + (let ((tmp-7533 ($sc-dispatch - #{e 7527}# + e-7527 '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 7533}# + (if (if tmp-7533 (@apply - (lambda (#{id 7537}# - #{val 7538}# - #{e1 7539}# - #{e2 7540}#) - (and-map #{id? 4486}# #{id 7537}#)) - #{tmp 7533}#) + (lambda (id-7537 val-7538 e1-7539 e2-7540) + (and-map id?-4486 id-7537)) + tmp-7533) #f) (@apply - (lambda (#{id 7556}# - #{val 7557}# - #{e1 7558}# - #{e2 7559}#) - (if (not (#{valid-bound-ids? 4512}# #{id 7556}#)) + (lambda (id-7556 val-7557 e1-7558 e2-7559) + (if (not (valid-bound-ids?-4512 id-7556)) (syntax-violation 'letrec "duplicate bound variable" - #{e 7527}#) - (let ((#{labels 7649}# - (#{gen-labels 4489}# #{id 7556}#)) - (#{new-vars 7650}# - (map #{gen-var 4536}# #{id 7556}#))) - (let ((#{w 7651}# - (#{make-binding-wrap 4500}# - #{id 7556}# - #{labels 7649}# - #{w 7529}#)) - (#{r 7652}# - (#{extend-var-env 4481}# - #{labels 7649}# - #{new-vars 7650}# - #{r 7528}#))) - (#{build-letrec 4470}# - #{s 7530}# + e-7527) + (let ((labels-7649 (gen-labels-4489 id-7556)) + (new-vars-7650 (map gen-var-4536 id-7556))) + (let ((w-7651 + (make-binding-wrap-4500 + id-7556 + labels-7649 + w-7529)) + (r-7652 + (extend-var-env-4481 + labels-7649 + new-vars-7650 + r-7528))) + (build-letrec-4470 + s-7530 #f - (map syntax->datum #{id 7556}#) - #{new-vars 7650}# - (map (lambda (#{x 7737}#) - (#{expand 4522}# - #{x 7737}# - #{r 7652}# - #{w 7651}# - #{mod 7531}#)) - #{val 7557}#) - (#{expand-body 4526}# - (cons #{e1 7558}# #{e2 7559}#) - (#{wrap 4515}# + (map syntax->datum id-7556) + new-vars-7650 + (map (lambda (x-7737) + (expand-4522 x-7737 r-7652 w-7651 mod-7531)) + val-7557) + (expand-body-4526 + (cons e1-7558 e2-7559) + (wrap-4515 (begin - (if (if (pair? #{e 7527}#) #{s 7530}# #f) - (set-source-properties! - #{e 7527}# - #{s 7530}#)) - #{e 7527}#) - #{w 7651}# - #{mod 7531}#) - #{r 7652}# - #{w 7651}# - #{mod 7531}#)))))) - #{tmp 7533}#) + (if (if (pair? e-7527) s-7530 #f) + (set-source-properties! e-7527 s-7530)) + e-7527) + w-7651 + mod-7531) + r-7652 + w-7651 + mod-7531)))))) + tmp-7533) (syntax-violation 'letrec "bad letrec" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 7527}#) #{s 7530}# #f) - (set-source-properties! #{e 7527}# #{s 7530}#)) - #{e 7527}#) - #{w 7529}# - #{mod 7531}#)))))) - (#{global-extend 4484}# + (if (if (pair? e-7527) s-7530 #f) + (set-source-properties! e-7527 s-7530)) + e-7527) + w-7529 + mod-7531)))))) + (global-extend-4484 'core 'letrec* - (lambda (#{e 8132}# - #{r 8133}# - #{w 8134}# - #{s 8135}# - #{mod 8136}#) - (let ((#{tmp 8138}# + (lambda (e-8132 r-8133 w-8134 s-8135 mod-8136) + (let ((tmp-8138 ($sc-dispatch - #{e 8132}# + e-8132 '(_ #(each (any any)) any . each-any)))) - (if (if #{tmp 8138}# + (if (if tmp-8138 (@apply - (lambda (#{id 8142}# - #{val 8143}# - #{e1 8144}# - #{e2 8145}#) - (and-map #{id? 4486}# #{id 8142}#)) - #{tmp 8138}#) + (lambda (id-8142 val-8143 e1-8144 e2-8145) + (and-map id?-4486 id-8142)) + tmp-8138) #f) (@apply - (lambda (#{id 8161}# - #{val 8162}# - #{e1 8163}# - #{e2 8164}#) - (if (not (#{valid-bound-ids? 4512}# #{id 8161}#)) + (lambda (id-8161 val-8162 e1-8163 e2-8164) + (if (not (valid-bound-ids?-4512 id-8161)) (syntax-violation 'letrec* "duplicate bound variable" - #{e 8132}#) - (let ((#{labels 8254}# - (#{gen-labels 4489}# #{id 8161}#)) - (#{new-vars 8255}# - (map #{gen-var 4536}# #{id 8161}#))) - (let ((#{w 8256}# - (#{make-binding-wrap 4500}# - #{id 8161}# - #{labels 8254}# - #{w 8134}#)) - (#{r 8257}# - (#{extend-var-env 4481}# - #{labels 8254}# - #{new-vars 8255}# - #{r 8133}#))) - (#{build-letrec 4470}# - #{s 8135}# + e-8132) + (let ((labels-8254 (gen-labels-4489 id-8161)) + (new-vars-8255 (map gen-var-4536 id-8161))) + (let ((w-8256 + (make-binding-wrap-4500 + id-8161 + labels-8254 + w-8134)) + (r-8257 + (extend-var-env-4481 + labels-8254 + new-vars-8255 + r-8133))) + (build-letrec-4470 + s-8135 #t - (map syntax->datum #{id 8161}#) - #{new-vars 8255}# - (map (lambda (#{x 8342}#) - (#{expand 4522}# - #{x 8342}# - #{r 8257}# - #{w 8256}# - #{mod 8136}#)) - #{val 8162}#) - (#{expand-body 4526}# - (cons #{e1 8163}# #{e2 8164}#) - (#{wrap 4515}# + (map syntax->datum id-8161) + new-vars-8255 + (map (lambda (x-8342) + (expand-4522 x-8342 r-8257 w-8256 mod-8136)) + val-8162) + (expand-body-4526 + (cons e1-8163 e2-8164) + (wrap-4515 (begin - (if (if (pair? #{e 8132}#) #{s 8135}# #f) - (set-source-properties! - #{e 8132}# - #{s 8135}#)) - #{e 8132}#) - #{w 8256}# - #{mod 8136}#) - #{r 8257}# - #{w 8256}# - #{mod 8136}#)))))) - #{tmp 8138}#) + (if (if (pair? e-8132) s-8135 #f) + (set-source-properties! e-8132 s-8135)) + e-8132) + w-8256 + mod-8136) + r-8257 + w-8256 + mod-8136)))))) + tmp-8138) (syntax-violation 'letrec* "bad letrec*" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 8132}#) #{s 8135}# #f) - (set-source-properties! #{e 8132}# #{s 8135}#)) - #{e 8132}#) - #{w 8134}# - #{mod 8136}#)))))) - (#{global-extend 4484}# + (if (if (pair? e-8132) s-8135 #f) + (set-source-properties! e-8132 s-8135)) + e-8132) + w-8134 + mod-8136)))))) + (global-extend-4484 'core 'set! - (lambda (#{e 8776}# - #{r 8777}# - #{w 8778}# - #{s 8779}# - #{mod 8780}#) - (let ((#{tmp 8782}# - ($sc-dispatch #{e 8776}# '(_ any any)))) - (if (if #{tmp 8782}# + (lambda (e-8776 r-8777 w-8778 s-8779 mod-8780) + (let ((tmp-8782 ($sc-dispatch e-8776 '(_ any any)))) + (if (if tmp-8782 (@apply - (lambda (#{id 8786}# #{val 8787}#) - (if (symbol? #{id 8786}#) + (lambda (id-8786 val-8787) + (if (symbol? id-8786) #t - (if (if (vector? #{id 8786}#) - (if (= (vector-length #{id 8786}#) 4) - (eq? (vector-ref #{id 8786}# 0) 'syntax-object) + (if (if (vector? id-8786) + (if (= (vector-length id-8786) 4) + (eq? (vector-ref id-8786 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 8786}# 1)) + (symbol? (vector-ref id-8786 1)) #f))) - #{tmp 8782}#) + tmp-8782) #f) (@apply - (lambda (#{id 8814}# #{val 8815}#) - (let ((#{n 8816}# - (#{id-var-name 4505}# #{id 8814}# #{w 8778}#)) - (#{id-mod 8817}# - (if (if (vector? #{id 8814}#) - (if (= (vector-length #{id 8814}#) 4) - (eq? (vector-ref #{id 8814}# 0) - 'syntax-object) + (lambda (id-8814 val-8815) + (let ((n-8816 (id-var-name-4505 id-8814 w-8778)) + (id-mod-8817 + (if (if (vector? id-8814) + (if (= (vector-length id-8814) 4) + (eq? (vector-ref id-8814 0) 'syntax-object) #f) #f) - (vector-ref #{id 8814}# 3) - #{mod 8780}#))) - (let ((#{b 8818}# - (let ((#{t 8859}# (assq #{n 8816}# #{r 8777}#))) - (if #{t 8859}# - (cdr #{t 8859}#) - (if (symbol? #{n 8816}#) - (let ((#{t 8864}# - (#{get-global-definition-hook 4449}# - #{n 8816}# - #{id-mod 8817}#))) - (if #{t 8864}# #{t 8864}# '(global))) + (vector-ref id-8814 3) + mod-8780))) + (let ((b-8818 + (let ((t-8859 (assq n-8816 r-8777))) + (if t-8859 + (cdr t-8859) + (if (symbol? n-8816) + (let ((t-8864 + (get-global-definition-hook-4449 + n-8816 + id-mod-8817))) + (if t-8864 t-8864 '(global))) '(displaced-lexical)))))) - (let ((#{atom-key 8819}# (car #{b 8818}#))) - (if (eqv? #{atom-key 8819}# 'lexical) - (#{build-lexical-assignment 4457}# - #{s 8779}# - (syntax->datum #{id 8814}#) - (cdr #{b 8818}#) - (#{expand 4522}# - #{val 8815}# - #{r 8777}# - #{w 8778}# - #{mod 8780}#)) - (if (eqv? #{atom-key 8819}# 'global) - (#{build-global-assignment 4460}# - #{s 8779}# - #{n 8816}# - (#{expand 4522}# - #{val 8815}# - #{r 8777}# - #{w 8778}# - #{mod 8780}#) - #{id-mod 8817}#) - (if (eqv? #{atom-key 8819}# 'macro) - (let ((#{p 9178}# (cdr #{b 8818}#))) + (let ((atom-key-8819 (car b-8818))) + (if (eqv? atom-key-8819 'lexical) + (build-lexical-assignment-4457 + s-8779 + (syntax->datum id-8814) + (cdr b-8818) + (expand-4522 val-8815 r-8777 w-8778 mod-8780)) + (if (eqv? atom-key-8819 'global) + (build-global-assignment-4460 + s-8779 + n-8816 + (expand-4522 val-8815 r-8777 w-8778 mod-8780) + id-mod-8817) + (if (eqv? atom-key-8819 'macro) + (let ((p-9178 (cdr b-8818))) (if (procedure-property - #{p 9178}# + p-9178 'variable-transformer) - (#{expand 4522}# - (#{expand-macro 4525}# - #{p 9178}# - #{e 8776}# - #{r 8777}# - #{w 8778}# - #{s 8779}# + (expand-4522 + (expand-macro-4525 + p-9178 + e-8776 + r-8777 + w-8778 + s-8779 #f - #{mod 8780}#) - #{r 8777}# + mod-8780) + r-8777 '(()) - #{mod 8780}#) + mod-8780) (syntax-violation 'set! "not a variable transformer" - (#{wrap 4515}# - #{e 8776}# - #{w 8778}# - #{mod 8780}#) - (#{wrap 4515}# - #{id 8814}# - #{w 8778}# - #{id-mod 8817}#)))) - (if (eqv? #{atom-key 8819}# 'displaced-lexical) + (wrap-4515 e-8776 w-8778 mod-8780) + (wrap-4515 id-8814 w-8778 id-mod-8817)))) + (if (eqv? atom-key-8819 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (#{wrap 4515}# - #{id 8814}# - #{w 8778}# - #{mod 8780}#)) + (wrap-4515 id-8814 w-8778 mod-8780)) (syntax-violation 'set! "bad set!" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 8776}#) #{s 8779}# #f) - (set-source-properties! - #{e 8776}# - #{s 8779}#)) - #{e 8776}#) - #{w 8778}# - #{mod 8780}#)))))))))) - #{tmp 8782}#) - (let ((#{tmp 9273}# - ($sc-dispatch - #{e 8776}# - '(_ (any . each-any) any)))) - (if #{tmp 9273}# + (if (if (pair? e-8776) s-8779 #f) + (set-source-properties! e-8776 s-8779)) + e-8776) + w-8778 + mod-8780)))))))))) + tmp-8782) + (let ((tmp-9273 + ($sc-dispatch e-8776 '(_ (any . each-any) any)))) + (if tmp-9273 (@apply - (lambda (#{head 9277}# #{tail 9278}# #{val 9279}#) + (lambda (head-9277 tail-9278 val-9279) (call-with-values (lambda () - (#{syntax-type 4521}# - #{head 9277}# - #{r 8777}# + (syntax-type-4521 + head-9277 + r-8777 '(()) #f #f - #{mod 8780}# + mod-8780 #t)) - (lambda (#{type 9282}# - #{value 9283}# - #{ee 9284}# - #{ww 9285}# - #{ss 9286}# - #{modmod 9287}#) - (if (eqv? #{type 9282}# 'module-ref) - (let ((#{val 9291}# - (#{expand 4522}# - #{val 9279}# - #{r 8777}# - #{w 8778}# - #{mod 8780}#))) + (lambda (type-9282 + value-9283 + ee-9284 + ww-9285 + ss-9286 + modmod-9287) + (if (eqv? type-9282 'module-ref) + (let ((val-9291 + (expand-4522 + val-9279 + r-8777 + w-8778 + mod-8780))) (call-with-values (lambda () - (#{value 9283}# - (cons #{head 9277}# #{tail 9278}#) - #{r 8777}# - #{w 8778}#)) - (lambda (#{e 9292}# - #{r 9293}# - #{w 9294}# - #{s* 9295}# - #{mod 9296}#) - (let ((#{tmp 9298}# (list #{e 9292}#))) + (value-9283 + (cons head-9277 tail-9278) + r-8777 + w-8778)) + (lambda (e-9292 r-9293 w-9294 s*-9295 mod-9296) + (let ((tmp-9298 (list e-9292))) (if (@apply - (lambda (#{e 9300}#) - (if (symbol? #{e 9300}#) + (lambda (e-9300) + (if (symbol? e-9300) #t - (if (if (vector? #{e 9300}#) + (if (if (vector? e-9300) (if (= (vector-length - #{e 9300}#) + e-9300) 4) (eq? (vector-ref - #{e 9300}# + e-9300 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{e 9300}# 1)) + (symbol? (vector-ref e-9300 1)) #f))) - #{tmp 9298}#) + tmp-9298) (@apply - (lambda (#{e 9330}#) - (#{build-global-assignment 4460}# - #{s 8779}# - (syntax->datum #{e 9330}#) - #{val 9291}# - #{mod 9296}#)) - #{tmp 9298}#) + (lambda (e-9330) + (build-global-assignment-4460 + s-8779 + (syntax->datum e-9330) + val-9291 + mod-9296)) + tmp-9298) (syntax-violation #f "source expression failed to match any pattern" - #{e 9292}#)))))) - (#{build-application 4453}# - #{s 8779}# - (let ((#{e 9555}# + e-9292)))))) + (build-application-4453 + s-8779 + (let ((e-9555 (list '#(syntax-object setter ((top) @@ -10127,103 +9652,99 @@ "l-*-46" "l-*-45"))) (hygiene guile)) - #{head 9277}#))) + head-9277))) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 9555}# - #{r 8777}# - #{w 8778}# - (#{source-annotation 4479}# #{e 9555}#) + (syntax-type-4521 + e-9555 + r-8777 + w-8778 + (source-annotation-4479 e-9555) #f - #{mod 8780}# + mod-8780 #f)) - (lambda (#{type 9562}# - #{value 9563}# - #{e 9564}# - #{w 9565}# - #{s 9566}# - #{mod 9567}#) - (#{expand-expr 4523}# - #{type 9562}# - #{value 9563}# - #{e 9564}# - #{r 8777}# - #{w 9565}# - #{s 9566}# - #{mod 9567}#)))) - (map (lambda (#{e 9571}#) + (lambda (type-9562 + value-9563 + e-9564 + w-9565 + s-9566 + mod-9567) + (expand-expr-4523 + type-9562 + value-9563 + e-9564 + r-8777 + w-9565 + s-9566 + mod-9567)))) + (map (lambda (e-9571) (call-with-values (lambda () - (#{syntax-type 4521}# - #{e 9571}# - #{r 8777}# - #{w 8778}# - (#{source-annotation 4479}# - #{e 9571}#) + (syntax-type-4521 + e-9571 + r-8777 + w-8778 + (source-annotation-4479 e-9571) #f - #{mod 8780}# + mod-8780 #f)) - (lambda (#{type 9586}# - #{value 9587}# - #{e 9588}# - #{w 9589}# - #{s 9590}# - #{mod 9591}#) - (#{expand-expr 4523}# - #{type 9586}# - #{value 9587}# - #{e 9588}# - #{r 8777}# - #{w 9589}# - #{s 9590}# - #{mod 9591}#)))) - (append - #{tail 9278}# - (list #{val 9279}#)))))))) - #{tmp 9273}#) + (lambda (type-9586 + value-9587 + e-9588 + w-9589 + s-9590 + mod-9591) + (expand-expr-4523 + type-9586 + value-9587 + e-9588 + r-8777 + w-9589 + s-9590 + mod-9591)))) + (append tail-9278 (list val-9279)))))))) + tmp-9273) (syntax-violation 'set! "bad set!" - (#{wrap 4515}# + (wrap-4515 (begin - (if (if (pair? #{e 8776}#) #{s 8779}# #f) - (set-source-properties! #{e 8776}# #{s 8779}#)) - #{e 8776}#) - #{w 8778}# - #{mod 8780}#)))))))) + (if (if (pair? e-8776) s-8779 #f) + (set-source-properties! e-8776 s-8779)) + e-8776) + w-8778 + mod-8780)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (#{e 9634}# #{r 9635}# #{w 9636}#) - (let ((#{tmp 9638}# - ($sc-dispatch #{e 9634}# '(_ each-any any)))) - (if (if #{tmp 9638}# + (lambda (e-9634 r-9635 w-9636) + (let ((tmp-9638 + ($sc-dispatch e-9634 '(_ each-any any)))) + (if (if tmp-9638 (@apply - (lambda (#{mod 9641}# #{id 9642}#) - (if (and-map #{id? 4486}# #{mod 9641}#) - (if (symbol? #{id 9642}#) + (lambda (mod-9641 id-9642) + (if (and-map id?-4486 mod-9641) + (if (symbol? id-9642) #t - (if (if (vector? #{id 9642}#) - (if (= (vector-length #{id 9642}#) 4) - (eq? (vector-ref #{id 9642}# 0) - 'syntax-object) + (if (if (vector? id-9642) + (if (= (vector-length id-9642) 4) + (eq? (vector-ref id-9642 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 9642}# 1)) + (symbol? (vector-ref id-9642 1)) #f)) #f)) - #{tmp 9638}#) + tmp-9638) #f) (@apply - (lambda (#{mod 9682}# #{id 9683}#) + (lambda (mod-9682 id-9683) (values - (syntax->datum #{id 9683}#) - #{r 9635}# - #{w 9636}# + (syntax->datum id-9683) + r-9635 + w-9636 #f (syntax->datum (cons '#(syntax-object @@ -10666,70 +10187,64 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - #{mod 9682}#)))) - #{tmp 9638}#) + mod-9682)))) + tmp-9638) (syntax-violation #f "source expression failed to match any pattern" - #{e 9634}#)))))) - (#{global-extend 4484}# + e-9634)))))) + (global-extend-4484 'module-ref '@@ - (lambda (#{e 9775}# #{r 9776}# #{w 9777}#) + (lambda (e-9775 r-9776 w-9777) (letrec* - ((#{remodulate 9778}# - (lambda (#{x 9813}# #{mod 9814}#) - (if (pair? #{x 9813}#) - (cons (#{remodulate 9778}# - (car #{x 9813}#) - #{mod 9814}#) - (#{remodulate 9778}# - (cdr #{x 9813}#) - #{mod 9814}#)) - (if (if (vector? #{x 9813}#) - (if (= (vector-length #{x 9813}#) 4) - (eq? (vector-ref #{x 9813}# 0) 'syntax-object) + ((remodulate-9778 + (lambda (x-9813 mod-9814) + (if (pair? x-9813) + (cons (remodulate-9778 (car x-9813) mod-9814) + (remodulate-9778 (cdr x-9813) mod-9814)) + (if (if (vector? x-9813) + (if (= (vector-length x-9813) 4) + (eq? (vector-ref x-9813 0) 'syntax-object) #f) #f) - (let ((#{expression 9828}# - (#{remodulate 9778}# - (vector-ref #{x 9813}# 1) - #{mod 9814}#)) - (#{wrap 9829}# (vector-ref #{x 9813}# 2))) + (let ((expression-9828 + (remodulate-9778 (vector-ref x-9813 1) mod-9814)) + (wrap-9829 (vector-ref x-9813 2))) (vector 'syntax-object - #{expression 9828}# - #{wrap 9829}# - #{mod 9814}#)) - (if (vector? #{x 9813}#) - (let ((#{n 9837}# (vector-length #{x 9813}#))) - (let ((#{v 9838}# (make-vector #{n 9837}#))) + expression-9828 + wrap-9829 + mod-9814)) + (if (vector? x-9813) + (let ((n-9837 (vector-length x-9813))) + (let ((v-9838 (make-vector n-9837))) (letrec* - ((#{loop 9839}# - (lambda (#{i 9886}#) - (if (= #{i 9886}# #{n 9837}#) - #{v 9838}# + ((loop-9839 + (lambda (i-9886) + (if (= i-9886 n-9837) + v-9838 (begin (vector-set! - #{v 9838}# - #{i 9886}# - (#{remodulate 9778}# - (vector-ref #{x 9813}# #{i 9886}#) - #{mod 9814}#)) - (#{loop 9839}# (#{1+}# #{i 9886}#))))))) - (#{loop 9839}# 0)))) - #{x 9813}#)))))) - (let ((#{tmp 9780}# - ($sc-dispatch #{e 9775}# '(_ each-any any)))) - (if (if #{tmp 9780}# + v-9838 + i-9886 + (remodulate-9778 + (vector-ref x-9813 i-9886) + mod-9814)) + (loop-9839 (#{1+}# i-9886))))))) + (loop-9839 0)))) + x-9813)))))) + (let ((tmp-9780 + ($sc-dispatch e-9775 '(_ each-any any)))) + (if (if tmp-9780 (@apply - (lambda (#{mod 9784}# #{exp 9785}#) - (and-map #{id? 4486}# #{mod 9784}#)) - #{tmp 9780}#) + (lambda (mod-9784 exp-9785) + (and-map id?-4486 mod-9784)) + tmp-9780) #f) (@apply - (lambda (#{mod 9801}# #{exp 9802}#) - (let ((#{mod 9803}# + (lambda (mod-9801 exp-9802) + (let ((mod-9803 (syntax->datum (cons '#(syntax-object private @@ -11174,125 +10689,85 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - #{mod 9801}#)))) + mod-9801)))) (values - (#{remodulate 9778}# #{exp 9802}# #{mod 9803}#) - #{r 9776}# - #{w 9777}# - (#{source-annotation 4479}# #{exp 9802}#) - #{mod 9803}#))) - #{tmp 9780}#) + (remodulate-9778 exp-9802 mod-9803) + r-9776 + w-9777 + (source-annotation-4479 exp-9802) + mod-9803))) + tmp-9780) (syntax-violation #f "source expression failed to match any pattern" - #{e 9775}#)))))) - (#{global-extend 4484}# + e-9775)))))) + (global-extend-4484 'core 'if - (lambda (#{e 9987}# - #{r 9988}# - #{w 9989}# - #{s 9990}# - #{mod 9991}#) - (let ((#{tmp 9993}# - ($sc-dispatch #{e 9987}# '(_ any any)))) - (if #{tmp 9993}# + (lambda (e-9987 r-9988 w-9989 s-9990 mod-9991) + (let ((tmp-9993 ($sc-dispatch e-9987 '(_ any any)))) + (if tmp-9993 (@apply - (lambda (#{test 9997}# #{then 9998}#) - (#{build-conditional 4454}# - #{s 9990}# - (#{expand 4522}# - #{test 9997}# - #{r 9988}# - #{w 9989}# - #{mod 9991}#) - (#{expand 4522}# - #{then 9998}# - #{r 9988}# - #{w 9989}# - #{mod 9991}#) + (lambda (test-9997 then-9998) + (build-conditional-4454 + s-9990 + (expand-4522 test-9997 r-9988 w-9989 mod-9991) + (expand-4522 then-9998 r-9988 w-9989 mod-9991) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - #{tmp 9993}#) - (let ((#{tmp 10223}# - ($sc-dispatch #{e 9987}# '(_ any any any)))) - (if #{tmp 10223}# + tmp-9993) + (let ((tmp-10223 + ($sc-dispatch e-9987 '(_ any any any)))) + (if tmp-10223 (@apply - (lambda (#{test 10227}# #{then 10228}# #{else 10229}#) - (#{build-conditional 4454}# - #{s 9990}# - (#{expand 4522}# - #{test 10227}# - #{r 9988}# - #{w 9989}# - #{mod 9991}#) - (#{expand 4522}# - #{then 10228}# - #{r 9988}# - #{w 9989}# - #{mod 9991}#) - (#{expand 4522}# - #{else 10229}# - #{r 9988}# - #{w 9989}# - #{mod 9991}#))) - #{tmp 10223}#) + (lambda (test-10227 then-10228 else-10229) + (build-conditional-4454 + s-9990 + (expand-4522 test-10227 r-9988 w-9989 mod-9991) + (expand-4522 then-10228 r-9988 w-9989 mod-9991) + (expand-4522 else-10229 r-9988 w-9989 mod-9991))) + tmp-10223) (syntax-violation #f "source expression failed to match any pattern" - #{e 9987}#))))))) - (#{global-extend 4484}# + e-9987))))))) + (global-extend-4484 'core 'with-fluids - (lambda (#{e 10628}# - #{r 10629}# - #{w 10630}# - #{s 10631}# - #{mod 10632}#) - (let ((#{tmp 10634}# + (lambda (e-10628 r-10629 w-10630 s-10631 mod-10632) + (let ((tmp-10634 ($sc-dispatch - #{e 10628}# + e-10628 '(_ #(each (any any)) any . each-any)))) - (if #{tmp 10634}# + (if tmp-10634 (@apply - (lambda (#{fluid 10638}# - #{val 10639}# - #{b 10640}# - #{b* 10641}#) - (#{build-dynlet 4455}# - #{s 10631}# - (map (lambda (#{x 10722}#) - (#{expand 4522}# - #{x 10722}# - #{r 10629}# - #{w 10630}# - #{mod 10632}#)) - #{fluid 10638}#) - (map (lambda (#{x 10792}#) - (#{expand 4522}# - #{x 10792}# - #{r 10629}# - #{w 10630}# - #{mod 10632}#)) - #{val 10639}#) - (#{expand-body 4526}# - (cons #{b 10640}# #{b* 10641}#) - (#{wrap 4515}# + (lambda (fluid-10638 val-10639 b-10640 b*-10641) + (build-dynlet-4455 + s-10631 + (map (lambda (x-10722) + (expand-4522 x-10722 r-10629 w-10630 mod-10632)) + fluid-10638) + (map (lambda (x-10792) + (expand-4522 x-10792 r-10629 w-10630 mod-10632)) + val-10639) + (expand-body-4526 + (cons b-10640 b*-10641) + (wrap-4515 (begin - (if (if (pair? #{e 10628}#) #{s 10631}# #f) - (set-source-properties! #{e 10628}# #{s 10631}#)) - #{e 10628}#) - #{w 10630}# - #{mod 10632}#) - #{r 10629}# - #{w 10630}# - #{mod 10632}#))) - #{tmp 10634}#) + (if (if (pair? e-10628) s-10631 #f) + (set-source-properties! e-10628 s-10631)) + e-10628) + w-10630 + mod-10632) + r-10629 + w-10630 + mod-10632))) + tmp-10634) (syntax-violation #f "source expression failed to match any pattern" - #{e 10628}#))))) + e-10628))))) (module-define! (current-module) 'begin @@ -11322,75 +10797,60 @@ 'eval-when 'eval-when '())) - (#{global-extend 4484}# + (global-extend-4484 'core 'syntax-case (letrec* - ((#{convert-pattern 11160}# - (lambda (#{pattern 12757}# #{keys 12758}#) + ((convert-pattern-11160 + (lambda (pattern-12757 keys-12758) (letrec* - ((#{cvt* 12759}# - (lambda (#{p* 13383}# #{n 13384}# #{ids 13385}#) - (if (not (pair? #{p* 13383}#)) - (#{cvt 12761}# - #{p* 13383}# - #{n 13384}# - #{ids 13385}#) + ((cvt*-12759 + (lambda (p*-13383 n-13384 ids-13385) + (if (not (pair? p*-13383)) + (cvt-12761 p*-13383 n-13384 ids-13385) (call-with-values (lambda () - (#{cvt* 12759}# - (cdr #{p* 13383}#) - #{n 13384}# - #{ids 13385}#)) - (lambda (#{y 13388}# #{ids 13389}#) + (cvt*-12759 (cdr p*-13383) n-13384 ids-13385)) + (lambda (y-13388 ids-13389) (call-with-values (lambda () - (#{cvt 12761}# - (car #{p* 13383}#) - #{n 13384}# - #{ids 13389}#)) - (lambda (#{x 13392}# #{ids 13393}#) + (cvt-12761 (car p*-13383) n-13384 ids-13389)) + (lambda (x-13392 ids-13393) (values - (cons #{x 13392}# #{y 13388}#) - #{ids 13393}#)))))))) - (#{v-reverse 12760}# - (lambda (#{x 13394}#) + (cons x-13392 y-13388) + ids-13393)))))))) + (v-reverse-12760 + (lambda (x-13394) (letrec* - ((#{loop 13395}# - (lambda (#{r 13475}# #{x 13476}#) - (if (not (pair? #{x 13476}#)) - (values #{r 13475}# #{x 13476}#) - (#{loop 13395}# - (cons (car #{x 13476}#) #{r 13475}#) - (cdr #{x 13476}#)))))) - (#{loop 13395}# '() #{x 13394}#)))) - (#{cvt 12761}# - (lambda (#{p 12764}# #{n 12765}# #{ids 12766}#) - (if (if (symbol? #{p 12764}#) + ((loop-13395 + (lambda (r-13475 x-13476) + (if (not (pair? x-13476)) + (values r-13475 x-13476) + (loop-13395 + (cons (car x-13476) r-13475) + (cdr x-13476)))))) + (loop-13395 '() x-13394)))) + (cvt-12761 + (lambda (p-12764 n-12765 ids-12766) + (if (if (symbol? p-12764) #t - (if (if (vector? #{p 12764}#) - (if (= (vector-length #{p 12764}#) 4) - (eq? (vector-ref #{p 12764}# 0) - 'syntax-object) + (if (if (vector? p-12764) + (if (= (vector-length p-12764) 4) + (eq? (vector-ref p-12764 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{p 12764}# 1)) + (symbol? (vector-ref p-12764 1)) #f)) - (if (#{bound-id-member? 4514}# - #{p 12764}# - #{keys 12758}#) - (values - (vector 'free-id #{p 12764}#) - #{ids 12766}#) - (if (if (eq? (if (if (vector? #{p 12764}#) - (if (= (vector-length #{p 12764}#) - 4) - (eq? (vector-ref #{p 12764}# 0) + (if (bound-id-member?-4514 p-12764 keys-12758) + (values (vector 'free-id p-12764) ids-12766) + (if (if (eq? (if (if (vector? p-12764) + (if (= (vector-length p-12764) 4) + (eq? (vector-ref p-12764 0) 'syntax-object) #f) #f) - (vector-ref #{p 12764}# 1) - #{p 12764}#) + (vector-ref p-12764 1) + p-12764) (if (if (= (vector-length '#(syntax-object _ @@ -12318,8 +11778,8 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# #{p 12764}# '(())) - (#{id-var-name 4505}# + (eq? (id-var-name-4505 p-12764 '(())) + (id-var-name-4505 '#(syntax-object _ ((top) @@ -12780,41 +12240,35 @@ (hygiene guile)) '(()))) #f) - (values '_ #{ids 12766}#) + (values '_ ids-12766) (values 'any - (cons (cons #{p 12764}# #{n 12765}#) - #{ids 12766}#)))) - (let ((#{tmp 13086}# - ($sc-dispatch #{p 12764}# '(any any)))) - (if (if #{tmp 13086}# + (cons (cons p-12764 n-12765) ids-12766)))) + (let ((tmp-13086 ($sc-dispatch p-12764 '(any any)))) + (if (if tmp-13086 (@apply - (lambda (#{x 13090}# #{dots 13091}#) - (if (if (if (vector? #{dots 13091}#) - (if (= (vector-length - #{dots 13091}#) + (lambda (x-13090 dots-13091) + (if (if (if (vector? dots-13091) + (if (= (vector-length dots-13091) 4) - (eq? (vector-ref - #{dots 13091}# - 0) + (eq? (vector-ref dots-13091 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{dots 13091}# 1)) + (symbol? (vector-ref dots-13091 1)) #f) - (if (eq? (if (if (vector? #{dots 13091}#) + (if (eq? (if (if (vector? dots-13091) (if (= (vector-length - #{dots 13091}#) + dots-13091) 4) (eq? (vector-ref - #{dots 13091}# + dots-13091 0) 'syntax-object) #f) #f) - (vector-ref #{dots 13091}# 1) - #{dots 13091}#) + (vector-ref dots-13091 1) + dots-13091) (if (if (= (vector-length '#(syntax-object ... @@ -13707,10 +13161,10 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# - #{dots 13091}# + (eq? (id-var-name-4505 + dots-13091 '(())) - (#{id-var-name 4505}# + (id-var-name-4505 '#(syntax-object ... ((top) @@ -14153,60 +13607,53 @@ '(()))) #f) #f)) - #{tmp 13086}#) + tmp-13086) #f) (@apply - (lambda (#{x 13191}# #{dots 13192}#) + (lambda (x-13191 dots-13192) (call-with-values (lambda () - (#{cvt 12761}# - #{x 13191}# - (#{1+}# #{n 12765}#) - #{ids 12766}#)) - (lambda (#{p 13193}# #{ids 13194}#) + (cvt-12761 + x-13191 + (#{1+}# n-12765) + ids-12766)) + (lambda (p-13193 ids-13194) (values - (if (eq? #{p 13193}# 'any) + (if (eq? p-13193 'any) 'each-any - (vector 'each #{p 13193}#)) - #{ids 13194}#)))) - #{tmp 13086}#) - (let ((#{tmp 13195}# - ($sc-dispatch - #{p 12764}# - '(any any . any)))) - (if (if #{tmp 13195}# + (vector 'each p-13193)) + ids-13194)))) + tmp-13086) + (let ((tmp-13195 + ($sc-dispatch p-12764 '(any any . any)))) + (if (if tmp-13195 (@apply - (lambda (#{x 13199}# - #{dots 13200}# - #{ys 13201}#) - (if (if (if (vector? #{dots 13200}#) + (lambda (x-13199 dots-13200 ys-13201) + (if (if (if (vector? dots-13200) (if (= (vector-length - #{dots 13200}#) + dots-13200) 4) (eq? (vector-ref - #{dots 13200}# + dots-13200 0) 'syntax-object) #f) #f) (symbol? - (vector-ref #{dots 13200}# 1)) + (vector-ref dots-13200 1)) #f) - (if (eq? (if (if (vector? - #{dots 13200}#) + (if (eq? (if (if (vector? dots-13200) (if (= (vector-length - #{dots 13200}#) + dots-13200) 4) (eq? (vector-ref - #{dots 13200}# + dots-13200 0) 'syntax-object) #f) #f) - (vector-ref - #{dots 13200}# - 1) - #{dots 13200}#) + (vector-ref dots-13200 1) + dots-13200) (if (if (= (vector-length '#(syntax-object ... @@ -15099,10 +14546,10 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# - #{dots 13200}# + (eq? (id-var-name-4505 + dots-13200 '(())) - (#{id-var-name 4505}# + (id-var-name-4505 '#(syntax-object ... ((top) @@ -15545,117 +14992,97 @@ '(()))) #f) #f)) - #{tmp 13195}#) + tmp-13195) #f) (@apply - (lambda (#{x 13301}# - #{dots 13302}# - #{ys 13303}#) + (lambda (x-13301 dots-13302 ys-13303) (call-with-values (lambda () - (#{cvt* 12759}# - #{ys 13303}# - #{n 12765}# - #{ids 12766}#)) - (lambda (#{ys 13306}# #{ids 13307}#) + (cvt*-12759 + ys-13303 + n-12765 + ids-12766)) + (lambda (ys-13306 ids-13307) (call-with-values (lambda () - (#{cvt 12761}# - #{x 13301}# - (#{1+}# #{n 12765}#) - #{ids 13307}#)) - (lambda (#{x 13308}# #{ids 13309}#) + (cvt-12761 + x-13301 + (#{1+}# n-12765) + ids-13307)) + (lambda (x-13308 ids-13309) (call-with-values (lambda () - (#{v-reverse 12760}# - #{ys 13306}#)) - (lambda (#{ys 13342}# - #{e 13343}#) + (v-reverse-12760 ys-13306)) + (lambda (ys-13342 e-13343) (values (vector 'each+ - #{x 13308}# - #{ys 13342}# - #{e 13343}#) - #{ids 13309}#)))))))) - #{tmp 13195}#) - (let ((#{tmp 13344}# - ($sc-dispatch - #{p 12764}# - '(any . any)))) - (if #{tmp 13344}# + x-13308 + ys-13342 + e-13343) + ids-13309)))))))) + tmp-13195) + (let ((tmp-13344 + ($sc-dispatch p-12764 '(any . any)))) + (if tmp-13344 (@apply - (lambda (#{x 13348}# #{y 13349}#) + (lambda (x-13348 y-13349) (call-with-values (lambda () - (#{cvt 12761}# - #{y 13349}# - #{n 12765}# - #{ids 12766}#)) - (lambda (#{y 13350}# #{ids 13351}#) + (cvt-12761 + y-13349 + n-12765 + ids-12766)) + (lambda (y-13350 ids-13351) (call-with-values (lambda () - (#{cvt 12761}# - #{x 13348}# - #{n 12765}# - #{ids 13351}#)) - (lambda (#{x 13352}# - #{ids 13353}#) + (cvt-12761 + x-13348 + n-12765 + ids-13351)) + (lambda (x-13352 ids-13353) (values - (cons #{x 13352}# - #{y 13350}#) - #{ids 13353}#)))))) - #{tmp 13344}#) - (let ((#{tmp 13354}# - ($sc-dispatch #{p 12764}# '()))) - (if #{tmp 13354}# + (cons x-13352 y-13350) + ids-13353)))))) + tmp-13344) + (let ((tmp-13354 + ($sc-dispatch p-12764 '()))) + (if tmp-13354 (@apply - (lambda () - (values '() #{ids 12766}#)) - #{tmp 13354}#) - (let ((#{tmp 13358}# + (lambda () (values '() ids-12766)) + tmp-13354) + (let ((tmp-13358 ($sc-dispatch - #{p 12764}# + p-12764 '#(vector each-any)))) - (if #{tmp 13358}# + (if tmp-13358 (@apply - (lambda (#{x 13362}#) + (lambda (x-13362) (call-with-values (lambda () - (#{cvt 12761}# - #{x 13362}# - #{n 12765}# - #{ids 12766}#)) - (lambda (#{p 13363}# - #{ids 13364}#) + (cvt-12761 + x-13362 + n-12765 + ids-12766)) + (lambda (p-13363 ids-13364) (values - (vector - 'vector - #{p 13363}#) - #{ids 13364}#)))) - #{tmp 13358}#) + (vector 'vector p-13363) + ids-13364)))) + tmp-13358) (values (vector 'atom - (#{strip 4535}# - #{p 12764}# - '(()))) - #{ids 12766}#))))))))))))))) - (#{cvt 12761}# #{pattern 12757}# 0 '())))) - (#{build-dispatch-call 11161}# - (lambda (#{pvars 13477}# - #{exp 13478}# - #{y 13479}# - #{r 13480}# - #{mod 13481}#) - (let ((#{ids 13482}# (map car #{pvars 13477}#))) + (strip-4535 p-12764 '(()))) + ids-12766))))))))))))))) + (cvt-12761 pattern-12757 0 '())))) + (build-dispatch-call-11161 + (lambda (pvars-13477 exp-13478 y-13479 r-13480 mod-13481) + (let ((ids-13482 (map car pvars-13477))) (begin - (map cdr #{pvars 13477}#) - (let ((#{labels 13484}# - (#{gen-labels 4489}# #{ids 13482}#)) - (#{new-vars 13485}# - (map #{gen-var 4536}# #{ids 13482}#))) - (#{build-application 4453}# + (map cdr pvars-13477) + (let ((labels-13484 (gen-labels-4489 ids-13482)) + (new-vars-13485 (map gen-var-4536 ids-13482))) + (build-application-4453 #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15668,81 +15095,73 @@ '(guile) 'apply #f)) - (list (#{build-simple-lambda 4462}# + (list (build-simple-lambda-4462 #f - (map syntax->datum #{ids 13482}#) + (map syntax->datum ids-13482) #f - #{new-vars 13485}# + new-vars-13485 '() - (#{expand 4522}# - #{exp 13478}# - (#{extend-env 4480}# - #{labels 13484}# - (map (lambda (#{var 13808}# #{level 13809}#) + (expand-4522 + exp-13478 + (extend-env-4480 + labels-13484 + (map (lambda (var-13808 level-13809) (cons 'syntax - (cons #{var 13808}# - #{level 13809}#))) - #{new-vars 13485}# - (map cdr #{pvars 13477}#)) - #{r 13480}#) - (#{make-binding-wrap 4500}# - #{ids 13482}# - #{labels 13484}# + (cons var-13808 level-13809))) + new-vars-13485 + (map cdr pvars-13477)) + r-13480) + (make-binding-wrap-4500 + ids-13482 + labels-13484 '(())) - #{mod 13481}#)) - #{y 13479}#))))))) - (#{gen-clause 11162}# - (lambda (#{x 12129}# - #{keys 12130}# - #{clauses 12131}# - #{r 12132}# - #{pat 12133}# - #{fender 12134}# - #{exp 12135}# - #{mod 12136}#) + mod-13481)) + y-13479))))))) + (gen-clause-11162 + (lambda (x-12129 + keys-12130 + clauses-12131 + r-12132 + pat-12133 + fender-12134 + exp-12135 + mod-12136) (call-with-values (lambda () - (#{convert-pattern 11160}# - #{pat 12133}# - #{keys 12130}#)) - (lambda (#{p 12291}# #{pvars 12292}#) - (if (not (#{distinct-bound-ids? 4513}# - (map car #{pvars 12292}#))) + (convert-pattern-11160 pat-12133 keys-12130)) + (lambda (p-12291 pvars-12292) + (if (not (distinct-bound-ids?-4513 (map car pvars-12292))) (syntax-violation 'syntax-case "duplicate pattern variable" - #{pat 12133}#) + pat-12133) (if (not (and-map - (lambda (#{x 12408}#) - (not (let ((#{x 12412}# (car #{x 12408}#))) - (if (if (if (vector? #{x 12412}#) + (lambda (x-12408) + (not (let ((x-12412 (car x-12408))) + (if (if (if (vector? x-12412) (if (= (vector-length - #{x 12412}#) + x-12412) 4) (eq? (vector-ref - #{x 12412}# + x-12412 0) 'syntax-object) #f) #f) - (symbol? - (vector-ref #{x 12412}# 1)) + (symbol? (vector-ref x-12412 1)) #f) - (if (eq? (if (if (vector? - #{x 12412}#) + (if (eq? (if (if (vector? x-12412) (if (= (vector-length - #{x 12412}#) + x-12412) 4) (eq? (vector-ref - #{x 12412}# + x-12412 0) 'syntax-object) #f) #f) - (vector-ref - #{x 12412}# - 1) - #{x 12412}#) + (vector-ref x-12412 1) + x-12412) (if (if (= (vector-length '#(syntax-object ... @@ -16635,10 +16054,10 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# - #{x 12412}# + (eq? (id-var-name-4505 + x-12412 '(())) - (#{id-var-name 4505}# + (id-var-name-4505 '#(syntax-object ... ((top) @@ -17081,42 +16500,42 @@ '(()))) #f) #f)))) - #{pvars 12292}#)) + pvars-12292)) (syntax-violation 'syntax-case "misplaced ellipsis" - #{pat 12133}#) - (let ((#{y 12488}# + pat-12133) + (let ((y-12488 (gensym (string-append (symbol->string 'tmp) "-")))) - (#{build-application 4453}# + (build-application-4453 #f - (let ((#{req 12631}# (list 'tmp)) - (#{vars 12633}# (list #{y 12488}#)) - (#{exp 12635}# - (let ((#{y 12652}# + (let ((req-12631 (list 'tmp)) + (vars-12633 (list y-12488)) + (exp-12635 + (let ((y-12652 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{y 12488}#))) - (let ((#{test-exp 12656}# - (let ((#{tmp 12665}# + y-12488))) + (let ((test-exp-12656 + (let ((tmp-12665 ($sc-dispatch - #{fender 12134}# + fender-12134 '#(atom #t)))) - (if #{tmp 12665}# + (if tmp-12665 (@apply - (lambda () #{y 12652}#) - #{tmp 12665}#) - (let ((#{then-exp 12683}# - (#{build-dispatch-call 11161}# - #{pvars 12292}# - #{fender 12134}# - #{y 12652}# - #{r 12132}# - #{mod 12136}#)) - (#{else-exp 12684}# + (lambda () y-12652) + tmp-12665) + (let ((then-exp-12683 + (build-dispatch-call-11161 + pvars-12292 + fender-12134 + y-12652 + r-12132 + mod-12136)) + (else-exp-12684 (make-struct/no-tail (vector-ref %expanded-vtables @@ -17128,48 +16547,48 @@ %expanded-vtables 10) #f - #{y 12652}# - #{then-exp 12683}# - #{else-exp 12684}#))))) - (#{then-exp 12657}# - (#{build-dispatch-call 11161}# - #{pvars 12292}# - #{exp 12135}# - #{y 12652}# - #{r 12132}# - #{mod 12136}#)) - (#{else-exp 12658}# - (#{gen-syntax-case 11163}# - #{x 12129}# - #{keys 12130}# - #{clauses 12131}# - #{r 12132}# - #{mod 12136}#))) + y-12652 + then-exp-12683 + else-exp-12684))))) + (then-exp-12657 + (build-dispatch-call-11161 + pvars-12292 + exp-12135 + y-12652 + r-12132 + mod-12136)) + (else-exp-12658 + (gen-syntax-case-11163 + x-12129 + keys-12130 + clauses-12131 + r-12132 + mod-12136))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - #{test-exp 12656}# - #{then-exp 12657}# - #{else-exp 12658}#))))) - (let ((#{body 12640}# + test-exp-12656 + then-exp-12657 + else-exp-12658))))) + (let ((body-12640 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 12631}# + req-12631 #f #f #f '() - #{vars 12633}# - #{exp 12635}# + vars-12633 + exp-12635 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 12640}#))) - (list (if (eq? #{p 12291}# 'any) - (let ((#{fun-exp 12706}# + body-12640))) + (list (if (eq? p-12291 'any) + (let ((fun-exp-12706 (if (equal? (module-name (current-module)) '(guile)) @@ -17183,14 +16602,13 @@ '(guile) 'list #f))) - (#{arg-exps 12707}# - (list #{x 12129}#))) + (arg-exps-12707 (list x-12129))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12706}# - #{arg-exps 12707}#)) - (let ((#{fun-exp 12730}# + fun-exp-12706 + arg-exps-12707)) + (let ((fun-exp-12730 (if (equal? (module-name (current-module)) '(guile)) @@ -17204,27 +16622,27 @@ '(guile) '$sc-dispatch #f))) - (#{arg-exps 12731}# - (list #{x 12129}# + (arg-exps-12731 + (list x-12129 (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - #{p 12291}#)))) + p-12291)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 12730}# - #{arg-exps 12731}#)))))))))))) - (#{gen-syntax-case 11163}# - (lambda (#{x 11562}# - #{keys 11563}# - #{clauses 11564}# - #{r 11565}# - #{mod 11566}#) - (if (null? #{clauses 11564}#) - (let ((#{fun-exp 11571}# + fun-exp-12730 + arg-exps-12731)))))))))))) + (gen-syntax-case-11163 + (lambda (x-11562 + keys-11563 + clauses-11564 + r-11565 + mod-11566) + (if (null? clauses-11564) + (let ((fun-exp-11571 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -17236,7 +16654,7 @@ '(guile) 'syntax-violation #f))) - (#{arg-exps 11572}# + (arg-exps-11572 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -17245,64 +16663,58 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - #{x 11562}#))) + x-11562))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - #{fun-exp 11571}# - #{arg-exps 11572}#)) - (let ((#{tmp 11605}# (car #{clauses 11564}#))) - (let ((#{tmp 11606}# - ($sc-dispatch #{tmp 11605}# '(any any)))) - (if #{tmp 11606}# + fun-exp-11571 + arg-exps-11572)) + (let ((tmp-11605 (car clauses-11564))) + (let ((tmp-11606 ($sc-dispatch tmp-11605 '(any any)))) + (if tmp-11606 (@apply - (lambda (#{pat 11608}# #{exp 11609}#) - (if (if (if (symbol? #{pat 11608}#) + (lambda (pat-11608 exp-11609) + (if (if (if (symbol? pat-11608) #t - (if (if (vector? #{pat 11608}#) - (if (= (vector-length #{pat 11608}#) - 4) - (eq? (vector-ref #{pat 11608}# 0) + (if (if (vector? pat-11608) + (if (= (vector-length pat-11608) 4) + (eq? (vector-ref pat-11608 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{pat 11608}# 1)) + (symbol? (vector-ref pat-11608 1)) #f)) (and-map - (lambda (#{x 11636}#) - (not (if (eq? (if (if (vector? - #{pat 11608}#) + (lambda (x-11636) + (not (if (eq? (if (if (vector? pat-11608) (if (= (vector-length - #{pat 11608}#) + pat-11608) 4) (eq? (vector-ref - #{pat 11608}# + pat-11608 0) 'syntax-object) #f) #f) - (vector-ref - #{pat 11608}# - 1) - #{pat 11608}#) - (if (if (vector? - #{x 11636}#) + (vector-ref pat-11608 1) + pat-11608) + (if (if (vector? x-11636) (if (= (vector-length - #{x 11636}#) + x-11636) 4) (eq? (vector-ref - #{x 11636}# + x-11636 0) 'syntax-object) #f) #f) - (vector-ref #{x 11636}# 1) - #{x 11636}#)) - (eq? (#{id-var-name 4505}# - #{pat 11608}# + (vector-ref x-11636 1) + x-11636)) + (eq? (id-var-name-4505 + pat-11608 '(())) - (#{id-var-name 4505}# - #{x 11636}# + (id-var-name-4505 + x-11636 '(()))) #f))) (cons '#(syntax-object @@ -17759,7 +17171,7 @@ ((top) (top) (top)) ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) - #{keys 11563}#)) + keys-11563)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -19631,7 +19043,7 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# + (eq? (id-var-name-4505 '#(syntax-object pad ((top) @@ -20091,7 +19503,7 @@ ("l-*-47" "l-*-46" "l-*-45"))) (hygiene guile)) '(())) - (#{id-var-name 4505}# + (id-var-name-4505 '#(syntax-object _ ((top) @@ -20552,142 +19964,129 @@ (hygiene guile)) '(()))) #f) - (#{expand 4522}# - #{exp 11609}# - #{r 11565}# - '(()) - #{mod 11566}#) - (let ((#{labels 11812}# + (expand-4522 exp-11609 r-11565 '(()) mod-11566) + (let ((labels-11812 (list (string-append "l-" - (#{session-id 4447}#) + (session-id-4447) (symbol->string (gensym "-"))))) - (#{var 11813}# - (let ((#{id 11851}# - (if (if (vector? #{pat 11608}#) + (var-11813 + (let ((id-11851 + (if (if (vector? pat-11608) (if (= (vector-length - #{pat 11608}#) + pat-11608) 4) (eq? (vector-ref - #{pat 11608}# + pat-11608 0) 'syntax-object) #f) #f) - (vector-ref #{pat 11608}# 1) - #{pat 11608}#))) + (vector-ref pat-11608 1) + pat-11608))) (gensym (string-append - (symbol->string #{id 11851}#) + (symbol->string id-11851) "-"))))) - (#{build-application 4453}# + (build-application-4453 #f - (#{build-simple-lambda 4462}# + (build-simple-lambda-4462 #f - (list (syntax->datum #{pat 11608}#)) + (list (syntax->datum pat-11608)) #f - (list #{var 11813}#) + (list var-11813) '() - (#{expand 4522}# - #{exp 11609}# - (#{extend-env 4480}# - #{labels 11812}# + (expand-4522 + exp-11609 + (extend-env-4480 + labels-11812 (list (cons 'syntax - (cons #{var 11813}# 0))) - #{r 11565}#) - (#{make-binding-wrap 4500}# - (list #{pat 11608}#) - #{labels 11812}# + (cons var-11813 0))) + r-11565) + (make-binding-wrap-4500 + (list pat-11608) + labels-11812 '(())) - #{mod 11566}#)) - (list #{x 11562}#)))) - (#{gen-clause 11162}# - #{x 11562}# - #{keys 11563}# - (cdr #{clauses 11564}#) - #{r 11565}# - #{pat 11608}# + mod-11566)) + (list x-11562)))) + (gen-clause-11162 + x-11562 + keys-11563 + (cdr clauses-11564) + r-11565 + pat-11608 #t - #{exp 11609}# - #{mod 11566}#))) - #{tmp 11606}#) - (let ((#{tmp 12121}# - ($sc-dispatch #{tmp 11605}# '(any any any)))) - (if #{tmp 12121}# + exp-11609 + mod-11566))) + tmp-11606) + (let ((tmp-12121 + ($sc-dispatch tmp-11605 '(any any any)))) + (if tmp-12121 (@apply - (lambda (#{pat 12123}# - #{fender 12124}# - #{exp 12125}#) - (#{gen-clause 11162}# - #{x 11562}# - #{keys 11563}# - (cdr #{clauses 11564}#) - #{r 11565}# - #{pat 12123}# - #{fender 12124}# - #{exp 12125}# - #{mod 11566}#)) - #{tmp 12121}#) + (lambda (pat-12123 fender-12124 exp-12125) + (gen-clause-11162 + x-11562 + keys-11563 + (cdr clauses-11564) + r-11565 + pat-12123 + fender-12124 + exp-12125 + mod-11566)) + tmp-12121) (syntax-violation 'syntax-case "invalid clause" - (car #{clauses 11564}#))))))))))) - (lambda (#{e 11164}# - #{r 11165}# - #{w 11166}# - #{s 11167}# - #{mod 11168}#) - (let ((#{e 11169}# - (#{wrap 4515}# + (car clauses-11564))))))))))) + (lambda (e-11164 r-11165 w-11166 s-11167 mod-11168) + (let ((e-11169 + (wrap-4515 (begin - (if (if (pair? #{e 11164}#) #{s 11167}# #f) - (set-source-properties! #{e 11164}# #{s 11167}#)) - #{e 11164}#) - #{w 11166}# - #{mod 11168}#))) - (let ((#{tmp 11171}# + (if (if (pair? e-11164) s-11167 #f) + (set-source-properties! e-11164 s-11167)) + e-11164) + w-11166 + mod-11168))) + (let ((tmp-11171 ($sc-dispatch - #{e 11169}# + e-11169 '(_ any each-any . each-any)))) - (if #{tmp 11171}# + (if tmp-11171 (@apply - (lambda (#{val 11196}# #{key 11197}# #{m 11198}#) + (lambda (val-11196 key-11197 m-11198) (if (and-map - (lambda (#{x 11199}#) - (if (if (symbol? #{x 11199}#) + (lambda (x-11199) + (if (if (symbol? x-11199) #t - (if (if (vector? #{x 11199}#) - (if (= (vector-length #{x 11199}#) 4) - (eq? (vector-ref #{x 11199}# 0) + (if (if (vector? x-11199) + (if (= (vector-length x-11199) 4) + (eq? (vector-ref x-11199 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 11199}# 1)) + (symbol? (vector-ref x-11199 1)) #f)) - (not (if (if (if (vector? #{x 11199}#) - (if (= (vector-length - #{x 11199}#) + (not (if (if (if (vector? x-11199) + (if (= (vector-length x-11199) 4) - (eq? (vector-ref - #{x 11199}# - 0) + (eq? (vector-ref x-11199 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 11199}# 1)) + (symbol? (vector-ref x-11199 1)) #f) - (if (eq? (if (if (vector? #{x 11199}#) + (if (eq? (if (if (vector? x-11199) (if (= (vector-length - #{x 11199}#) + x-11199) 4) (eq? (vector-ref - #{x 11199}# + x-11199 0) 'syntax-object) #f) #f) - (vector-ref #{x 11199}# 1) - #{x 11199}#) + (vector-ref x-11199 1) + x-11199) (if (if (= (vector-length '#(syntax-object ... @@ -21580,10 +20979,8 @@ "l-*-46" "l-*-45"))) (hygiene guile)))) - (eq? (#{id-var-name 4505}# - #{x 11199}# - '(())) - (#{id-var-name 4505}# + (eq? (id-var-name-4505 x-11199 '(())) + (id-var-name-4505 '#(syntax-object ... ((top) @@ -22027,768 +21424,686 @@ #f) #f)) #f)) - #{key 11197}#) - (let ((#{x 11325}# + key-11197) + (let ((x-11325 (gensym (string-append (symbol->string 'tmp) "-")))) - (#{build-application 4453}# - #{s 11167}# - (let ((#{req 11455}# (list 'tmp)) - (#{vars 11457}# (list #{x 11325}#)) - (#{exp 11459}# - (#{gen-syntax-case 11163}# + (build-application-4453 + s-11167 + (let ((req-11455 (list 'tmp)) + (vars-11457 (list x-11325)) + (exp-11459 + (gen-syntax-case-11163 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - #{x 11325}#) - #{key 11197}# - #{m 11198}# - #{r 11165}# - #{mod 11168}#))) - (let ((#{body 11464}# + x-11325) + key-11197 + m-11198 + r-11165 + mod-11168))) + (let ((body-11464 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - #{req 11455}# + req-11455 #f #f #f '() - #{vars 11457}# - #{exp 11459}# + vars-11457 + exp-11459 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - #{body 11464}#))) - (list (#{expand 4522}# - #{val 11196}# - #{r 11165}# + body-11464))) + (list (expand-4522 + val-11196 + r-11165 '(()) - #{mod 11168}#)))) + mod-11168)))) (syntax-violation 'syntax-case "invalid literals list" - #{e 11169}#))) - #{tmp 11171}#) + e-11169))) + tmp-11171) (syntax-violation #f "source expression failed to match any pattern" - #{e 11169}#))))))) + e-11169))))))) (set! macroexpand (lambda* - (#{x 13882}# + (x-13882 #:optional - (#{m 13883}# 'e) - (#{esew 13884}# '(eval))) - (#{expand-top-sequence 4518}# - (list #{x 13882}#) + (m-13883 'e) + (esew-13884 '(eval))) + (expand-top-sequence-4518 + (list x-13882) '() '((top)) #f - #{m 13883}# - #{esew 13884}# + m-13883 + esew-13884 (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (#{x 13887}#) - (if (if (vector? #{x 13887}#) - (if (= (vector-length #{x 13887}#) 4) - (eq? (vector-ref #{x 13887}# 0) 'syntax-object) + (lambda (x-13887) + (if (if (vector? x-13887) + (if (= (vector-length x-13887) 4) + (eq? (vector-ref x-13887 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 13887}# 1)) + (symbol? (vector-ref x-13887 1)) #f))) (set! datum->syntax - (lambda (#{id 13912}# #{datum 13913}#) - (let ((#{wrap 13918}# (vector-ref #{id 13912}# 2)) - (#{module 13919}# (vector-ref #{id 13912}# 3))) + (lambda (id-13912 datum-13913) + (let ((wrap-13918 (vector-ref id-13912 2)) + (module-13919 (vector-ref id-13912 3))) (vector 'syntax-object - #{datum 13913}# - #{wrap 13918}# - #{module 13919}#)))) + datum-13913 + wrap-13918 + module-13919)))) (set! syntax->datum - (lambda (#{x 13926}#) - (#{strip 4535}# #{x 13926}# '(())))) + (lambda (x-13926) (strip-4535 x-13926 '(())))) (set! syntax-source - (lambda (#{x 13929}#) - (#{source-annotation 4479}# #{x 13929}#))) + (lambda (x-13929) + (source-annotation-4479 x-13929))) (set! generate-temporaries - (lambda (#{ls 14082}#) + (lambda (ls-14082) (begin - (if (not (list? #{ls 14082}#)) + (if (not (list? ls-14082)) (syntax-violation 'generate-temporaries "invalid argument" - #{ls 14082}#)) - (let ((#{mod 14090}# + ls-14082)) + (let ((mod-14090 (cons 'hygiene (module-name (current-module))))) - (map (lambda (#{x 14091}#) - (#{wrap 4515}# - (gensym "t-") - '((top)) - #{mod 14090}#)) - #{ls 14082}#))))) + (map (lambda (x-14091) + (wrap-4515 (gensym "t-") '((top)) mod-14090)) + ls-14082))))) (set! free-identifier=? - (lambda (#{x 14095}# #{y 14096}#) + (lambda (x-14095 y-14096) (begin - (if (not (if (if (vector? #{x 14095}#) - (if (= (vector-length #{x 14095}#) 4) - (eq? (vector-ref #{x 14095}# 0) 'syntax-object) + (if (not (if (if (vector? x-14095) + (if (= (vector-length x-14095) 4) + (eq? (vector-ref x-14095 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14095}# 1)) + (symbol? (vector-ref x-14095 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{x 14095}#)) - (if (not (if (if (vector? #{y 14096}#) - (if (= (vector-length #{y 14096}#) 4) - (eq? (vector-ref #{y 14096}# 0) 'syntax-object) + x-14095)) + (if (not (if (if (vector? y-14096) + (if (= (vector-length y-14096) 4) + (eq? (vector-ref y-14096 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 14096}# 1)) + (symbol? (vector-ref y-14096 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - #{y 14096}#)) - (if (eq? (if (if (vector? #{x 14095}#) - (if (= (vector-length #{x 14095}#) 4) - (eq? (vector-ref #{x 14095}# 0) 'syntax-object) + y-14096)) + (if (eq? (if (if (vector? x-14095) + (if (= (vector-length x-14095) 4) + (eq? (vector-ref x-14095 0) 'syntax-object) #f) #f) - (vector-ref #{x 14095}# 1) - #{x 14095}#) - (if (if (vector? #{y 14096}#) - (if (= (vector-length #{y 14096}#) 4) - (eq? (vector-ref #{y 14096}# 0) 'syntax-object) + (vector-ref x-14095 1) + x-14095) + (if (if (vector? y-14096) + (if (= (vector-length y-14096) 4) + (eq? (vector-ref y-14096 0) 'syntax-object) #f) #f) - (vector-ref #{y 14096}# 1) - #{y 14096}#)) - (eq? (#{id-var-name 4505}# #{x 14095}# '(())) - (#{id-var-name 4505}# #{y 14096}# '(()))) + (vector-ref y-14096 1) + y-14096)) + (eq? (id-var-name-4505 x-14095 '(())) + (id-var-name-4505 y-14096 '(()))) #f)))) (set! bound-identifier=? - (lambda (#{x 14246}# #{y 14247}#) + (lambda (x-14246 y-14247) (begin - (if (not (if (if (vector? #{x 14246}#) - (if (= (vector-length #{x 14246}#) 4) - (eq? (vector-ref #{x 14246}# 0) 'syntax-object) + (if (not (if (if (vector? x-14246) + (if (= (vector-length x-14246) 4) + (eq? (vector-ref x-14246 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{x 14246}# 1)) + (symbol? (vector-ref x-14246 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{x 14246}#)) - (if (not (if (if (vector? #{y 14247}#) - (if (= (vector-length #{y 14247}#) 4) - (eq? (vector-ref #{y 14247}# 0) 'syntax-object) + x-14246)) + (if (not (if (if (vector? y-14247) + (if (= (vector-length y-14247) 4) + (eq? (vector-ref y-14247 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{y 14247}# 1)) + (symbol? (vector-ref y-14247 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - #{y 14247}#)) - (if (if (if (vector? #{x 14246}#) - (if (= (vector-length #{x 14246}#) 4) - (eq? (vector-ref #{x 14246}# 0) 'syntax-object) + y-14247)) + (if (if (if (vector? x-14246) + (if (= (vector-length x-14246) 4) + (eq? (vector-ref x-14246 0) 'syntax-object) #f) #f) - (if (vector? #{y 14247}#) - (if (= (vector-length #{y 14247}#) 4) - (eq? (vector-ref #{y 14247}# 0) 'syntax-object) + (if (vector? y-14247) + (if (= (vector-length y-14247) 4) + (eq? (vector-ref y-14247 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref #{x 14246}# 1) - (vector-ref #{y 14247}# 1)) - (#{same-marks? 4504}# - (car (vector-ref #{x 14246}# 2)) - (car (vector-ref #{y 14247}# 2))) + (if (eq? (vector-ref x-14246 1) + (vector-ref y-14247 1)) + (same-marks?-4504 + (car (vector-ref x-14246 2)) + (car (vector-ref y-14247 2))) #f) - (eq? #{x 14246}# #{y 14247}#))))) + (eq? x-14246 y-14247))))) (set! syntax-violation (lambda* - (#{who 14380}# - #{message 14381}# - #{form 14382}# + (who-14380 + message-14381 + form-14382 #:optional - (#{subform 14383}# #f)) + (subform-14383 #f)) (begin - (if (not (if (not #{who 14380}#) - (not #{who 14380}#) - (let ((#{t 14401}# (string? #{who 14380}#))) - (if #{t 14401}# - #{t 14401}# - (symbol? #{who 14380}#))))) + (if (not (if (not who-14380) + (not who-14380) + (let ((t-14401 (string? who-14380))) + (if t-14401 t-14401 (symbol? who-14380))))) (syntax-violation 'syntax-violation "invalid argument" - #{who 14380}#)) - (if (not (string? #{message 14381}#)) + who-14380)) + (if (not (string? message-14381)) (syntax-violation 'syntax-violation "invalid argument" - #{message 14381}#)) + message-14381)) (throw 'syntax-error - #{who 14380}# - #{message 14381}# - (#{source-annotation 4479}# - (if #{form 14382}# - #{form 14382}# - #{subform 14383}#)) - (#{strip 4535}# #{form 14382}# '(())) - (if #{subform 14383}# - (#{strip 4535}# #{subform 14383}# '(())) + who-14380 + message-14381 + (source-annotation-4479 + (if form-14382 form-14382 subform-14383)) + (strip-4535 form-14382 '(())) + (if subform-14383 + (strip-4535 subform-14383 '(())) #f))))) (letrec* - ((#{syntax-local-binding 14605}# - (lambda (#{id 14738}#) + ((syntax-local-binding-14605 + (lambda (id-14738) (begin - (if (not (if (if (vector? #{id 14738}#) - (if (= (vector-length #{id 14738}#) 4) - (eq? (vector-ref #{id 14738}# 0) - 'syntax-object) + (if (not (if (if (vector? id-14738) + (if (= (vector-length id-14738) 4) + (eq? (vector-ref id-14738 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 14738}# 1)) + (symbol? (vector-ref id-14738 1)) #f)) (syntax-violation 'syntax-local-binding "invalid argument" - #{id 14738}#)) - ((fluid-ref #{transformer-environment 4508}#) - (lambda (#{e 14778}# - #{r 14779}# - #{w 14780}# - #{s 14781}# - #{rib 14782}# - #{mod 14783}#) + id-14738)) + ((fluid-ref transformer-environment-4508) + (lambda (e-14778 + r-14779 + w-14780 + s-14781 + rib-14782 + mod-14783) (call-with-values (lambda () - (let ((#{id 14786}# (vector-ref #{id 14738}# 1)) - (#{w 14787}# - (let ((#{w 14798}# (vector-ref #{id 14738}# 2))) - (let ((#{ms 14799}# (car #{w 14798}#)) - (#{s 14800}# (cdr #{w 14798}#))) - (if (if (pair? #{ms 14799}#) - (eq? (car #{ms 14799}#) #f) + (let ((id-14786 (vector-ref id-14738 1)) + (w-14787 + (let ((w-14798 (vector-ref id-14738 2))) + (let ((ms-14799 (car w-14798)) + (s-14800 (cdr w-14798))) + (if (if (pair? ms-14799) + (eq? (car ms-14799) #f) #f) - (cons (cdr #{ms 14799}#) - (if #{rib 14782}# - (cons #{rib 14782}# - (cdr #{s 14800}#)) - (cdr #{s 14800}#))) - (cons #{ms 14799}# - (if #{rib 14782}# - (cons #{rib 14782}# #{s 14800}#) - #{s 14800}#)))))) - (#{mod 14789}# (vector-ref #{id 14738}# 3))) - (let ((#{n 14792}# - (#{id-var-name 4505}# - #{id 14786}# - #{w 14787}#))) - (if (symbol? #{n 14792}#) - (let ((#{mod 14806}# - (if (if (vector? #{id 14786}#) - (if (= (vector-length #{id 14786}#) - 4) - (eq? (vector-ref #{id 14786}# 0) + (cons (cdr ms-14799) + (if rib-14782 + (cons rib-14782 (cdr s-14800)) + (cdr s-14800))) + (cons ms-14799 + (if rib-14782 + (cons rib-14782 s-14800) + s-14800)))))) + (mod-14789 (vector-ref id-14738 3))) + (let ((n-14792 (id-var-name-4505 id-14786 w-14787))) + (if (symbol? n-14792) + (let ((mod-14806 + (if (if (vector? id-14786) + (if (= (vector-length id-14786) 4) + (eq? (vector-ref id-14786 0) 'syntax-object) #f) #f) - (vector-ref #{id 14786}# 3) - #{mod 14789}#))) - (let ((#{b 14807}# - (let ((#{t 14808}# - (#{get-global-definition-hook 4449}# - #{n 14792}# - #{mod 14806}#))) - (if #{t 14808}# - #{t 14808}# - '(global))))) - (if (eq? (car #{b 14807}#) 'global) - (values 'global #{n 14792}# #{mod 14806}#) + (vector-ref id-14786 3) + mod-14789))) + (let ((b-14807 + (let ((t-14808 + (get-global-definition-hook-4449 + n-14792 + mod-14806))) + (if t-14808 t-14808 '(global))))) + (if (eq? (car b-14807) 'global) + (values 'global n-14792 mod-14806) (values - (car #{b 14807}#) - (cdr #{b 14807}#) - #{mod 14806}#)))) - (if (string? #{n 14792}#) - (let ((#{mod 14834}# - (if (if (vector? #{id 14786}#) - (if (= (vector-length #{id 14786}#) - 4) - (eq? (vector-ref #{id 14786}# 0) + (car b-14807) + (cdr b-14807) + mod-14806)))) + (if (string? n-14792) + (let ((mod-14834 + (if (if (vector? id-14786) + (if (= (vector-length id-14786) 4) + (eq? (vector-ref id-14786 0) 'syntax-object) #f) #f) - (vector-ref #{id 14786}# 3) - #{mod 14789}#))) - (let ((#{b 14835}# - (let ((#{t 14836}# - (assq-ref - #{r 14779}# - #{n 14792}#))) - (if #{t 14836}# - #{t 14836}# + (vector-ref id-14786 3) + mod-14789))) + (let ((b-14835 + (let ((t-14836 + (assq-ref r-14779 n-14792))) + (if t-14836 + t-14836 '(displaced-lexical))))) (values - (car #{b 14835}#) - (cdr #{b 14835}#) - #{mod 14834}#))) + (car b-14835) + (cdr b-14835) + mod-14834))) (error "unexpected id-var-name" - #{id 14786}# - #{w 14787}# - #{n 14792}#)))))) - (lambda (#{type 14849}# #{value 14850}# #{mod 14851}#) - (if (eqv? #{type 14849}# 'lexical) - (values 'lexical #{value 14850}#) - (if (eqv? #{type 14849}# 'macro) - (values 'macro #{value 14850}#) - (if (eqv? #{type 14849}# 'syntax) - (values 'pattern-variable #{value 14850}#) - (if (eqv? #{type 14849}# 'displaced-lexical) + id-14786 + w-14787 + n-14792)))))) + (lambda (type-14849 value-14850 mod-14851) + (if (eqv? type-14849 'lexical) + (values 'lexical value-14850) + (if (eqv? type-14849 'macro) + (values 'macro value-14850) + (if (eqv? type-14849 'syntax) + (values 'pattern-variable value-14850) + (if (eqv? type-14849 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? #{type 14849}# 'global) + (if (eqv? type-14849 'global) (values 'global - (cons #{value 14850}# (cdr #{mod 14851}#))) + (cons value-14850 (cdr mod-14851))) (values 'other #f))))))))))))) - (#{syntax-locally-bound-identifiers 14606}# - (lambda (#{id 14862}#) + (syntax-locally-bound-identifiers-14606 + (lambda (id-14862) (begin - (if (not (if (if (vector? #{id 14862}#) - (if (= (vector-length #{id 14862}#) 4) - (eq? (vector-ref #{id 14862}# 0) - 'syntax-object) + (if (not (if (if (vector? id-14862) + (if (= (vector-length id-14862) 4) + (eq? (vector-ref id-14862 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 14862}# 1)) + (symbol? (vector-ref id-14862 1)) #f)) (syntax-violation 'syntax-locally-bound-identifiers "invalid argument" - #{id 14862}#)) - (#{locally-bound-identifiers 4506}# - (vector-ref #{id 14862}# 2) - (vector-ref #{id 14862}# 3)))))) + id-14862)) + (locally-bound-identifiers-4506 + (vector-ref id-14862 2) + (vector-ref id-14862 3)))))) (begin (define! 'syntax-module - (lambda (#{id 14608}#) + (lambda (id-14608) (begin - (if (not (if (if (vector? #{id 14608}#) - (if (= (vector-length #{id 14608}#) 4) - (eq? (vector-ref #{id 14608}# 0) - 'syntax-object) + (if (not (if (if (vector? id-14608) + (if (= (vector-length id-14608) 4) + (eq? (vector-ref id-14608 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{id 14608}# 1)) + (symbol? (vector-ref id-14608 1)) #f)) (syntax-violation 'syntax-module "invalid argument" - #{id 14608}#)) - (cdr (vector-ref #{id 14608}# 3))))) + id-14608)) + (cdr (vector-ref id-14608 3))))) (define! 'syntax-local-binding - #{syntax-local-binding 14605}#) + syntax-local-binding-14605) (define! 'syntax-locally-bound-identifiers - #{syntax-locally-bound-identifiers 14606}#))) + syntax-locally-bound-identifiers-14606))) (letrec* - ((#{match-each 14969}# - (lambda (#{e 15556}# - #{p 15557}# - #{w 15558}# - #{mod 15559}#) - (if (pair? #{e 15556}#) - (let ((#{first 15560}# - (#{match 14975}# - (car #{e 15556}#) - #{p 15557}# - #{w 15558}# + ((match-each-14969 + (lambda (e-15556 p-15557 w-15558 mod-15559) + (if (pair? e-15556) + (let ((first-15560 + (match-14975 + (car e-15556) + p-15557 + w-15558 '() - #{mod 15559}#))) - (if #{first 15560}# - (let ((#{rest 15563}# - (#{match-each 14969}# - (cdr #{e 15556}#) - #{p 15557}# - #{w 15558}# - #{mod 15559}#))) - (if #{rest 15563}# - (cons #{first 15560}# #{rest 15563}#) - #f)) + mod-15559))) + (if first-15560 + (let ((rest-15563 + (match-each-14969 + (cdr e-15556) + p-15557 + w-15558 + mod-15559))) + (if rest-15563 (cons first-15560 rest-15563) #f)) #f)) - (if (null? #{e 15556}#) + (if (null? e-15556) '() - (if (if (vector? #{e 15556}#) - (if (= (vector-length #{e 15556}#) 4) - (eq? (vector-ref #{e 15556}# 0) 'syntax-object) + (if (if (vector? e-15556) + (if (= (vector-length e-15556) 4) + (eq? (vector-ref e-15556 0) 'syntax-object) #f) #f) - (#{match-each 14969}# - (vector-ref #{e 15556}# 1) - #{p 15557}# - (#{join-wraps 4502}# - #{w 15558}# - (vector-ref #{e 15556}# 2)) - (vector-ref #{e 15556}# 3)) + (match-each-14969 + (vector-ref e-15556 1) + p-15557 + (join-wraps-4502 w-15558 (vector-ref e-15556 2)) + (vector-ref e-15556 3)) #f))))) - (#{match-each-any 14971}# - (lambda (#{e 15591}# #{w 15592}# #{mod 15593}#) - (if (pair? #{e 15591}#) - (let ((#{l 15594}# - (#{match-each-any 14971}# - (cdr #{e 15591}#) - #{w 15592}# - #{mod 15593}#))) - (if #{l 15594}# - (cons (#{wrap 4515}# - (car #{e 15591}#) - #{w 15592}# - #{mod 15593}#) - #{l 15594}#) + (match-each-any-14971 + (lambda (e-15591 w-15592 mod-15593) + (if (pair? e-15591) + (let ((l-15594 + (match-each-any-14971 + (cdr e-15591) + w-15592 + mod-15593))) + (if l-15594 + (cons (wrap-4515 (car e-15591) w-15592 mod-15593) + l-15594) #f)) - (if (null? #{e 15591}#) + (if (null? e-15591) '() - (if (if (vector? #{e 15591}#) - (if (= (vector-length #{e 15591}#) 4) - (eq? (vector-ref #{e 15591}# 0) 'syntax-object) + (if (if (vector? e-15591) + (if (= (vector-length e-15591) 4) + (eq? (vector-ref e-15591 0) 'syntax-object) #f) #f) - (#{match-each-any 14971}# - (vector-ref #{e 15591}# 1) - (#{join-wraps 4502}# - #{w 15592}# - (vector-ref #{e 15591}# 2)) - #{mod 15593}#) + (match-each-any-14971 + (vector-ref e-15591 1) + (join-wraps-4502 w-15592 (vector-ref e-15591 2)) + mod-15593) #f))))) - (#{match-empty 14972}# - (lambda (#{p 15618}# #{r 15619}#) - (if (null? #{p 15618}#) - #{r 15619}# - (if (eq? #{p 15618}# '_) - #{r 15619}# - (if (eq? #{p 15618}# 'any) - (cons '() #{r 15619}#) - (if (pair? #{p 15618}#) - (#{match-empty 14972}# - (car #{p 15618}#) - (#{match-empty 14972}# - (cdr #{p 15618}#) - #{r 15619}#)) - (if (eq? #{p 15618}# 'each-any) - (cons '() #{r 15619}#) - (let ((#{atom-key 15620}# (vector-ref #{p 15618}# 0))) - (if (eqv? #{atom-key 15620}# 'each) - (#{match-empty 14972}# - (vector-ref #{p 15618}# 1) - #{r 15619}#) - (if (eqv? #{atom-key 15620}# 'each+) - (#{match-empty 14972}# - (vector-ref #{p 15618}# 1) - (#{match-empty 14972}# - (reverse (vector-ref #{p 15618}# 2)) - (#{match-empty 14972}# - (vector-ref #{p 15618}# 3) - #{r 15619}#))) - (if (if (eqv? #{atom-key 15620}# 'free-id) + (match-empty-14972 + (lambda (p-15618 r-15619) + (if (null? p-15618) + r-15619 + (if (eq? p-15618 '_) + r-15619 + (if (eq? p-15618 'any) + (cons '() r-15619) + (if (pair? p-15618) + (match-empty-14972 + (car p-15618) + (match-empty-14972 (cdr p-15618) r-15619)) + (if (eq? p-15618 'each-any) + (cons '() r-15619) + (let ((atom-key-15620 (vector-ref p-15618 0))) + (if (eqv? atom-key-15620 'each) + (match-empty-14972 + (vector-ref p-15618 1) + r-15619) + (if (eqv? atom-key-15620 'each+) + (match-empty-14972 + (vector-ref p-15618 1) + (match-empty-14972 + (reverse (vector-ref p-15618 2)) + (match-empty-14972 + (vector-ref p-15618 3) + r-15619))) + (if (if (eqv? atom-key-15620 'free-id) #t - (eqv? #{atom-key 15620}# 'atom)) - #{r 15619}# - (if (eqv? #{atom-key 15620}# 'vector) - (#{match-empty 14972}# - (vector-ref #{p 15618}# 1) - #{r 15619}#))))))))))))) - (#{combine 14973}# - (lambda (#{r* 15639}# #{r 15640}#) - (if (null? (car #{r* 15639}#)) - #{r 15640}# - (cons (map car #{r* 15639}#) - (#{combine 14973}# - (map cdr #{r* 15639}#) - #{r 15640}#))))) - (#{match* 14974}# - (lambda (#{e 15004}# - #{p 15005}# - #{w 15006}# - #{r 15007}# - #{mod 15008}#) - (if (null? #{p 15005}#) - (if (null? #{e 15004}#) #{r 15007}# #f) - (if (pair? #{p 15005}#) - (if (pair? #{e 15004}#) - (#{match 14975}# - (car #{e 15004}#) - (car #{p 15005}#) - #{w 15006}# - (#{match 14975}# - (cdr #{e 15004}#) - (cdr #{p 15005}#) - #{w 15006}# - #{r 15007}# - #{mod 15008}#) - #{mod 15008}#) + (eqv? atom-key-15620 'atom)) + r-15619 + (if (eqv? atom-key-15620 'vector) + (match-empty-14972 + (vector-ref p-15618 1) + r-15619))))))))))))) + (combine-14973 + (lambda (r*-15639 r-15640) + (if (null? (car r*-15639)) + r-15640 + (cons (map car r*-15639) + (combine-14973 (map cdr r*-15639) r-15640))))) + (match*-14974 + (lambda (e-15004 p-15005 w-15006 r-15007 mod-15008) + (if (null? p-15005) + (if (null? e-15004) r-15007 #f) + (if (pair? p-15005) + (if (pair? e-15004) + (match-14975 + (car e-15004) + (car p-15005) + w-15006 + (match-14975 + (cdr e-15004) + (cdr p-15005) + w-15006 + r-15007 + mod-15008) + mod-15008) #f) - (if (eq? #{p 15005}# 'each-any) - (let ((#{l 15013}# - (#{match-each-any 14971}# - #{e 15004}# - #{w 15006}# - #{mod 15008}#))) - (if #{l 15013}# - (cons #{l 15013}# #{r 15007}#) - #f)) - (let ((#{atom-key 15018}# (vector-ref #{p 15005}# 0))) - (if (eqv? #{atom-key 15018}# 'each) - (if (null? #{e 15004}#) - (#{match-empty 14972}# - (vector-ref #{p 15005}# 1) - #{r 15007}#) - (let ((#{l 15025}# - (#{match-each 14969}# - #{e 15004}# - (vector-ref #{p 15005}# 1) - #{w 15006}# - #{mod 15008}#))) - (if #{l 15025}# + (if (eq? p-15005 'each-any) + (let ((l-15013 + (match-each-any-14971 e-15004 w-15006 mod-15008))) + (if l-15013 (cons l-15013 r-15007) #f)) + (let ((atom-key-15018 (vector-ref p-15005 0))) + (if (eqv? atom-key-15018 'each) + (if (null? e-15004) + (match-empty-14972 + (vector-ref p-15005 1) + r-15007) + (let ((l-15025 + (match-each-14969 + e-15004 + (vector-ref p-15005 1) + w-15006 + mod-15008))) + (if l-15025 (letrec* - ((#{collect 15028}# - (lambda (#{l 15079}#) - (if (null? (car #{l 15079}#)) - #{r 15007}# - (cons (map car #{l 15079}#) - (#{collect 15028}# - (map cdr #{l 15079}#))))))) - (#{collect 15028}# #{l 15025}#)) + ((collect-15028 + (lambda (l-15079) + (if (null? (car l-15079)) + r-15007 + (cons (map car l-15079) + (collect-15028 + (map cdr l-15079))))))) + (collect-15028 l-15025)) #f))) - (if (eqv? #{atom-key 15018}# 'each+) + (if (eqv? atom-key-15018 'each+) (call-with-values (lambda () - (let ((#{x-pat 15088}# (vector-ref #{p 15005}# 1)) - (#{y-pat 15089}# (vector-ref #{p 15005}# 2)) - (#{z-pat 15090}# - (vector-ref #{p 15005}# 3))) + (let ((x-pat-15088 (vector-ref p-15005 1)) + (y-pat-15089 (vector-ref p-15005 2)) + (z-pat-15090 (vector-ref p-15005 3))) (letrec* - ((#{f 15094}# - (lambda (#{e 15096}# #{w 15097}#) - (if (pair? #{e 15096}#) + ((f-15094 + (lambda (e-15096 w-15097) + (if (pair? e-15096) (call-with-values (lambda () - (#{f 15094}# - (cdr #{e 15096}#) - #{w 15097}#)) - (lambda (#{xr* 15098}# - #{y-pat 15099}# - #{r 15100}#) - (if #{r 15100}# - (if (null? #{y-pat 15099}#) - (let ((#{xr 15101}# - (#{match 14975}# - (car #{e 15096}#) - #{x-pat 15088}# - #{w 15097}# + (f-15094 (cdr e-15096) w-15097)) + (lambda (xr*-15098 + y-pat-15099 + r-15100) + (if r-15100 + (if (null? y-pat-15099) + (let ((xr-15101 + (match-14975 + (car e-15096) + x-pat-15088 + w-15097 '() - #{mod 15008}#))) - (if #{xr 15101}# + mod-15008))) + (if xr-15101 (values - (cons #{xr 15101}# - #{xr* 15098}#) - #{y-pat 15099}# - #{r 15100}#) + (cons xr-15101 xr*-15098) + y-pat-15099 + r-15100) (values #f #f #f))) (values '() - (cdr #{y-pat 15099}#) - (#{match 14975}# - (car #{e 15096}#) - (car #{y-pat 15099}#) - #{w 15097}# - #{r 15100}# - #{mod 15008}#))) + (cdr y-pat-15099) + (match-14975 + (car e-15096) + (car y-pat-15099) + w-15097 + r-15100 + mod-15008))) (values #f #f #f)))) - (if (if (vector? #{e 15096}#) - (if (= (vector-length - #{e 15096}#) - 4) - (eq? (vector-ref #{e 15096}# 0) + (if (if (vector? e-15096) + (if (= (vector-length e-15096) 4) + (eq? (vector-ref e-15096 0) 'syntax-object) #f) #f) - (#{f 15094}# - (vector-ref #{e 15096}# 1) - (#{join-wraps 4502}# - #{w 15097}# - #{e 15096}#)) + (f-15094 + (vector-ref e-15096 1) + (join-wraps-4502 w-15097 e-15096)) (values '() - #{y-pat 15089}# - (#{match 14975}# - #{e 15096}# - #{z-pat 15090}# - #{w 15097}# - #{r 15007}# - #{mod 15008}#))))))) - (#{f 15094}# #{e 15004}# #{w 15006}#)))) - (lambda (#{xr* 15127}# #{y-pat 15128}# #{r 15129}#) - (if #{r 15129}# - (if (null? #{y-pat 15128}#) - (if (null? #{xr* 15127}#) - (#{match-empty 14972}# - (vector-ref #{p 15005}# 1) - #{r 15129}#) - (#{combine 14973}# - #{xr* 15127}# - #{r 15129}#)) + y-pat-15089 + (match-14975 + e-15096 + z-pat-15090 + w-15097 + r-15007 + mod-15008))))))) + (f-15094 e-15004 w-15006)))) + (lambda (xr*-15127 y-pat-15128 r-15129) + (if r-15129 + (if (null? y-pat-15128) + (if (null? xr*-15127) + (match-empty-14972 + (vector-ref p-15005 1) + r-15129) + (combine-14973 xr*-15127 r-15129)) #f) #f))) - (if (eqv? #{atom-key 15018}# 'free-id) - (if (if (symbol? #{e 15004}#) + (if (eqv? atom-key-15018 'free-id) + (if (if (symbol? e-15004) #t - (if (if (vector? #{e 15004}#) - (if (= (vector-length #{e 15004}#) 4) - (eq? (vector-ref #{e 15004}# 0) + (if (if (vector? e-15004) + (if (= (vector-length e-15004) 4) + (eq? (vector-ref e-15004 0) 'syntax-object) #f) #f) - (symbol? (vector-ref #{e 15004}# 1)) + (symbol? (vector-ref e-15004 1)) #f)) - (if (let ((#{i 15460}# - (#{wrap 4515}# - #{e 15004}# - #{w 15006}# - #{mod 15008}#)) - (#{j 15461}# - (vector-ref #{p 15005}# 1))) - (if (eq? (if (if (vector? #{i 15460}#) + (if (let ((i-15460 + (wrap-4515 e-15004 w-15006 mod-15008)) + (j-15461 (vector-ref p-15005 1))) + (if (eq? (if (if (vector? i-15460) (if (= (vector-length - #{i 15460}#) + i-15460) 4) - (eq? (vector-ref - #{i 15460}# - 0) + (eq? (vector-ref i-15460 0) 'syntax-object) #f) #f) - (vector-ref #{i 15460}# 1) - #{i 15460}#) - (if (if (vector? #{j 15461}#) + (vector-ref i-15460 1) + i-15460) + (if (if (vector? j-15461) (if (= (vector-length - #{j 15461}#) + j-15461) 4) - (eq? (vector-ref - #{j 15461}# - 0) + (eq? (vector-ref j-15461 0) 'syntax-object) #f) #f) - (vector-ref #{j 15461}# 1) - #{j 15461}#)) - (eq? (#{id-var-name 4505}# - #{i 15460}# - '(())) - (#{id-var-name 4505}# - #{j 15461}# - '(()))) + (vector-ref j-15461 1) + j-15461)) + (eq? (id-var-name-4505 i-15460 '(())) + (id-var-name-4505 j-15461 '(()))) #f)) - #{r 15007}# + r-15007 #f) #f) - (if (eqv? #{atom-key 15018}# 'atom) + (if (eqv? atom-key-15018 'atom) (if (equal? - (vector-ref #{p 15005}# 1) - (#{strip 4535}# #{e 15004}# #{w 15006}#)) - #{r 15007}# + (vector-ref p-15005 1) + (strip-4535 e-15004 w-15006)) + r-15007 #f) - (if (eqv? #{atom-key 15018}# 'vector) - (if (vector? #{e 15004}#) - (#{match 14975}# - (vector->list #{e 15004}#) - (vector-ref #{p 15005}# 1) - #{w 15006}# - #{r 15007}# - #{mod 15008}#) + (if (eqv? atom-key-15018 'vector) + (if (vector? e-15004) + (match-14975 + (vector->list e-15004) + (vector-ref p-15005 1) + w-15006 + r-15007 + mod-15008) #f)))))))))))) - (#{match 14975}# - (lambda (#{e 15521}# - #{p 15522}# - #{w 15523}# - #{r 15524}# - #{mod 15525}#) - (if (not #{r 15524}#) + (match-14975 + (lambda (e-15521 p-15522 w-15523 r-15524 mod-15525) + (if (not r-15524) #f - (if (eq? #{p 15522}# '_) - #{r 15524}# - (if (eq? #{p 15522}# 'any) - (cons (#{wrap 4515}# - #{e 15521}# - #{w 15523}# - #{mod 15525}#) - #{r 15524}#) - (if (if (vector? #{e 15521}#) - (if (= (vector-length #{e 15521}#) 4) - (eq? (vector-ref #{e 15521}# 0) 'syntax-object) + (if (eq? p-15522 '_) + r-15524 + (if (eq? p-15522 'any) + (cons (wrap-4515 e-15521 w-15523 mod-15525) + r-15524) + (if (if (vector? e-15521) + (if (= (vector-length e-15521) 4) + (eq? (vector-ref e-15521 0) 'syntax-object) #f) #f) - (#{match* 14974}# - (vector-ref #{e 15521}# 1) - #{p 15522}# - (#{join-wraps 4502}# - #{w 15523}# - (vector-ref #{e 15521}# 2)) - #{r 15524}# - (vector-ref #{e 15521}# 3)) - (#{match* 14974}# - #{e 15521}# - #{p 15522}# - #{w 15523}# - #{r 15524}# - #{mod 15525}#)))))))) + (match*-14974 + (vector-ref e-15521 1) + p-15522 + (join-wraps-4502 w-15523 (vector-ref e-15521 2)) + r-15524 + (vector-ref e-15521 3)) + (match*-14974 + e-15521 + p-15522 + w-15523 + r-15524 + mod-15525)))))))) (set! $sc-dispatch - (lambda (#{e 14976}# #{p 14977}#) - (if (eq? #{p 14977}# 'any) - (list #{e 14976}#) - (if (eq? #{p 14977}# '_) + (lambda (e-14976 p-14977) + (if (eq? p-14977 'any) + (list e-14976) + (if (eq? p-14977 '_) '() - (if (if (vector? #{e 14976}#) - (if (= (vector-length #{e 14976}#) 4) - (eq? (vector-ref #{e 14976}# 0) 'syntax-object) + (if (if (vector? e-14976) + (if (= (vector-length e-14976) 4) + (eq? (vector-ref e-14976 0) 'syntax-object) #f) #f) - (#{match* 14974}# - (vector-ref #{e 14976}# 1) - #{p 14977}# - (vector-ref #{e 14976}# 2) + (match*-14974 + (vector-ref e-14976 1) + p-14977 + (vector-ref e-14976 2) '() - (vector-ref #{e 14976}# 3)) - (#{match* 14974}# - #{e 14976}# - #{p 14977}# - '(()) - '() - #f)))))))))) + (vector-ref e-14976 3)) + (match*-14974 e-14976 p-14977 '(()) '() #f)))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (#{x 27756}#) - (let ((#{tmp 27758}# - ($sc-dispatch #{x 27756}# '(_ () any . each-any)))) - (if #{tmp 27758}# + (lambda (x-27756) + (let ((tmp-27758 + ($sc-dispatch x-27756 '(_ () any . each-any)))) + (if tmp-27758 (@apply - (lambda (#{e1 27762}# #{e2 27763}#) + (lambda (e1-27762 e2-27763) (cons '#(syntax-object let ((top) @@ -22799,18 +22114,15 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) - (cons '() (cons #{e1 27762}# #{e2 27763}#)))) - #{tmp 27758}#) - (let ((#{tmp 27764}# + (cons '() (cons e1-27762 e2-27763)))) + tmp-27758) + (let ((tmp-27764 ($sc-dispatch - #{x 27756}# + x-27756 '(_ ((any any)) any . each-any)))) - (if #{tmp 27764}# + (if tmp-27764 (@apply - (lambda (#{out 27768}# - #{in 27769}# - #{e1 27770}# - #{e2 27771}#) + (lambda (out-27768 in-27769 e1-27770 e2-27771) (list '#(syntax-object syntax-case ((top) @@ -22824,9 +22136,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) - #{in 27769}# + in-27769 '() - (list #{out 27768}# + (list out-27768 (cons '#(syntax-object let ((top) @@ -22843,19 +22155,15 @@ #((top)) #("l-*-27726"))) (hygiene guile)) - (cons '() - (cons #{e1 27770}# #{e2 27771}#)))))) - #{tmp 27764}#) - (let ((#{tmp 27772}# + (cons '() (cons e1-27770 e2-27771)))))) + tmp-27764) + (let ((tmp-27772 ($sc-dispatch - #{x 27756}# + x-27756 '(_ #(each (any any)) any . each-any)))) - (if #{tmp 27772}# + (if tmp-27772 (@apply - (lambda (#{out 27776}# - #{in 27777}# - #{e1 27778}# - #{e2 27779}#) + (lambda (out-27776 in-27777 e1-27778 e2-27779) (list '#(syntax-object syntax-case ((top) @@ -22882,9 +22190,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27726"))) (hygiene guile)) - #{in 27777}#) + in-27777) '() - (list #{out 27776}# + (list out-27776 (cons '#(syntax-object let ((top) @@ -22901,30 +22209,28 @@ #((top)) #("l-*-27726"))) (hygiene guile)) - (cons '() - (cons #{e1 27778}# - #{e2 27779}#)))))) - #{tmp 27772}#) + (cons '() (cons e1-27778 e2-27779)))))) + tmp-27772) (syntax-violation #f "source expression failed to match any pattern" - #{x 27756}#)))))))))) + x-27756)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (#{x 27833}#) - (let ((#{tmp 27835}# + (lambda (x-27833) + (let ((tmp-27835 ($sc-dispatch - #{x 27833}# + x-27833 '(_ each-any . #(each ((any . any) any)))))) - (if #{tmp 27835}# + (if tmp-27835 (@apply - (lambda (#{k 27839}# - #{keyword 27840}# - #{pattern 27841}# - #{template 27842}#) + (lambda (k-27839 + keyword-27840 + pattern-27841 + template-27842) (list '#(syntax-object lambda ((top) @@ -22992,7 +22298,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) - #{pattern 27841}#)) + pattern-27841)) (cons '#(syntax-object syntax-case ((top) @@ -23019,9 +22325,9 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) - (cons #{k 27839}# - (map (lambda (#{tmp-27807 27843}# - #{tmp-27806 27844}#) + (cons k-27839 + (map (lambda (tmp-27807-27843 + tmp-27806-27844) (list (cons '#(syntax-object dummy ((top) @@ -23047,7 +22353,7 @@ #((top)) #("l-*-27793"))) (hygiene guile)) - #{tmp-27806 27844}#) + tmp-27806-27844) (list '#(syntax-object syntax ((top) @@ -23073,30 +22379,30 @@ #((top)) #("l-*-27793"))) (hygiene guile)) - #{tmp-27807 27843}#))) - #{template 27842}# - #{pattern 27841}#)))))) - #{tmp 27835}#) - (let ((#{tmp 27845}# + tmp-27807-27843))) + template-27842 + pattern-27841)))))) + tmp-27835) + (let ((tmp-27845 ($sc-dispatch - #{x 27833}# + x-27833 '(_ each-any any . #(each ((any . any) any)))))) - (if (if #{tmp 27845}# + (if (if tmp-27845 (@apply - (lambda (#{k 27849}# - #{docstring 27850}# - #{keyword 27851}# - #{pattern 27852}# - #{template 27853}#) - (string? (syntax->datum #{docstring 27850}#))) - #{tmp 27845}#) + (lambda (k-27849 + docstring-27850 + keyword-27851 + pattern-27852 + template-27853) + (string? (syntax->datum docstring-27850))) + tmp-27845) #f) (@apply - (lambda (#{k 27854}# - #{docstring 27855}# - #{keyword 27856}# - #{pattern 27857}# - #{template 27858}#) + (lambda (k-27854 + docstring-27855 + keyword-27856 + pattern-27857 + template-27858) (list '#(syntax-object lambda ((top) @@ -23125,7 +22431,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile))) - #{docstring 27855}# + docstring-27855 (vector '(#(syntax-object macro-type @@ -23170,7 +22476,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27793"))) (hygiene guile)) - #{pattern 27857}#)) + pattern-27857)) (cons '#(syntax-object syntax-case ((top) @@ -23206,9 +22512,9 @@ #((top)) #("l-*-27793"))) (hygiene guile)) - (cons #{k 27854}# - (map (lambda (#{tmp-27832 27859}# - #{tmp-27831 27860}#) + (cons k-27854 + (map (lambda (tmp-27832-27859 + tmp-27831-27860) (list (cons '#(syntax-object dummy ((top) @@ -23238,7 +22544,7 @@ #("l-*-27793"))) (hygiene guile)) - #{tmp-27831 27860}#) + tmp-27831-27860) (list '#(syntax-object syntax ((top) @@ -23268,27 +22574,25 @@ #("l-*-27793"))) (hygiene guile)) - #{tmp-27832 27859}#))) - #{template 27858}# - #{pattern 27857}#)))))) - #{tmp 27845}#) + tmp-27832-27859))) + template-27858 + pattern-27857)))))) + tmp-27845) (syntax-violation #f "source expression failed to match any pattern" - #{x 27833}#)))))))) + x-27833)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (#{x 27897}#) - (let ((#{tmp 27899}# - ($sc-dispatch #{x 27897}# '(_ (any . any) any)))) - (if #{tmp 27899}# + (lambda (x-27897) + (let ((tmp-27899 + ($sc-dispatch x-27897 '(_ (any . any) any)))) + (if tmp-27899 (@apply - (lambda (#{name 27903}# - #{pattern 27904}# - #{template 27905}#) + (lambda (name-27903 pattern-27904 template-27905) (list '#(syntax-object define-syntax ((top) @@ -23299,7 +22603,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) - #{name 27903}# + name-27903 (list '#(syntax-object syntax-rules ((top) @@ -23326,27 +22630,25 @@ #((top)) #("l-*-27871"))) (hygiene guile)) - #{pattern 27904}#) - #{template 27905}#)))) - #{tmp 27899}#) - (let ((#{tmp 27906}# - ($sc-dispatch - #{x 27897}# - '(_ (any . any) any any)))) - (if (if #{tmp 27906}# + pattern-27904) + template-27905)))) + tmp-27899) + (let ((tmp-27906 + ($sc-dispatch x-27897 '(_ (any . any) any any)))) + (if (if tmp-27906 (@apply - (lambda (#{name 27910}# - #{pattern 27911}# - #{docstring 27912}# - #{template 27913}#) - (string? (syntax->datum #{docstring 27912}#))) - #{tmp 27906}#) + (lambda (name-27910 + pattern-27911 + docstring-27912 + template-27913) + (string? (syntax->datum docstring-27912))) + tmp-27906) #f) (@apply - (lambda (#{name 27914}# - #{pattern 27915}# - #{docstring 27916}# - #{template 27917}#) + (lambda (name-27914 + pattern-27915 + docstring-27916 + template-27917) (list '#(syntax-object define-syntax ((top) @@ -23360,7 +22662,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) - #{name 27914}# + name-27914 (list '#(syntax-object syntax-rules ((top) @@ -23375,7 +22677,7 @@ #(ribcage #(x) #((top)) #("l-*-27871"))) (hygiene guile)) '() - #{docstring 27916}# + docstring-27916 (list (cons '#(syntax-object _ ((top) @@ -23395,43 +22697,35 @@ #((top)) #("l-*-27871"))) (hygiene guile)) - #{pattern 27915}#) - #{template 27917}#)))) - #{tmp 27906}#) + pattern-27915) + template-27917)))) + tmp-27906) (syntax-violation #f "source expression failed to match any pattern" - #{x 27897}#)))))))) + x-27897)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (#{x 27966}#) - (let ((#{tmp 27968}# + (lambda (x-27966) + (let ((tmp-27968 ($sc-dispatch - #{x 27966}# + x-27966 '(any #(each (any any)) any . each-any)))) - (if (if #{tmp 27968}# + (if (if tmp-27968 (@apply - (lambda (#{let* 27972}# - #{x 27973}# - #{v 27974}# - #{e1 27975}# - #{e2 27976}#) - (and-map identifier? #{x 27973}#)) - #{tmp 27968}#) + (lambda (let*-27972 x-27973 v-27974 e1-27975 e2-27976) + (and-map identifier? x-27973)) + tmp-27968) #f) (@apply - (lambda (#{let* 27977}# - #{x 27978}# - #{v 27979}# - #{e1 27980}# - #{e2 27981}#) + (lambda (let*-27977 x-27978 v-27979 e1-27980 e2-27981) (letrec* - ((#{f 27982}# - (lambda (#{bindings 27985}#) - (if (null? #{bindings 27985}#) + ((f-27982 + (lambda (bindings-27985) + (if (null? bindings-27985) (cons '#(syntax-object let ((top) @@ -23451,15 +22745,14 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-27928"))) (hygiene guile)) - (cons '() (cons #{e1 27980}# #{e2 27981}#))) - (let ((#{tmp 27986}# - (list (#{f 27982}# (cdr #{bindings 27985}#)) - (car #{bindings 27985}#)))) - (let ((#{tmp 27987}# - ($sc-dispatch #{tmp 27986}# '(any any)))) - (if #{tmp 27987}# + (cons '() (cons e1-27980 e2-27981))) + (let ((tmp-27986 + (list (f-27982 (cdr bindings-27985)) + (car bindings-27985)))) + (let ((tmp-27987 ($sc-dispatch tmp-27986 '(any any)))) + (if tmp-27987 (@apply - (lambda (#{body 27989}# #{binding 27990}#) + (lambda (body-27989 binding-27990) (list '#(syntax-object let ((top) @@ -23487,66 +22780,64 @@ #((top)) #("l-*-27928"))) (hygiene guile)) - (list #{binding 27990}#) - #{body 27989}#)) - #{tmp 27987}#) + (list binding-27990) + body-27989)) + tmp-27987) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 27986}#)))))))) - (#{f 27982}# (map list #{x 27978}# #{v 27979}#)))) - #{tmp 27968}#) + tmp-27986)))))))) + (f-27982 (map list x-27978 v-27979)))) + tmp-27968) (syntax-violation #f "source expression failed to match any pattern" - #{x 27966}#)))))) + x-27966)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (#{orig-x 28048}#) - (let ((#{tmp 28050}# + (lambda (orig-x-28048) + (let ((tmp-28050 ($sc-dispatch - #{orig-x 28048}# + orig-x-28048 '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if #{tmp 28050}# + (if tmp-28050 (@apply - (lambda (#{var 28054}# - #{init 28055}# - #{step 28056}# - #{e0 28057}# - #{e1 28058}# - #{c 28059}#) - (let ((#{tmp 28060}# - (map (lambda (#{v 28063}# #{s 28064}#) - (let ((#{tmp 28066}# - ($sc-dispatch #{s 28064}# '()))) - (if #{tmp 28066}# - (@apply (lambda () #{v 28063}#) #{tmp 28066}#) - (let ((#{tmp 28069}# - ($sc-dispatch #{s 28064}# '(any)))) - (if #{tmp 28069}# + (lambda (var-28054 + init-28055 + step-28056 + e0-28057 + e1-28058 + c-28059) + (let ((tmp-28060 + (map (lambda (v-28063 s-28064) + (let ((tmp-28066 ($sc-dispatch s-28064 '()))) + (if tmp-28066 + (@apply (lambda () v-28063) tmp-28066) + (let ((tmp-28069 + ($sc-dispatch s-28064 '(any)))) + (if tmp-28069 (@apply - (lambda (#{e 28072}#) #{e 28072}#) - #{tmp 28069}#) + (lambda (e-28072) e-28072) + tmp-28069) (syntax-violation 'do "bad step expression" - #{orig-x 28048}# - #{s 28064}#)))))) - #{var 28054}# - #{step 28056}#))) - (let ((#{tmp 28061}# - ($sc-dispatch #{tmp 28060}# 'each-any))) - (if #{tmp 28061}# + orig-x-28048 + s-28064)))))) + var-28054 + step-28056))) + (let ((tmp-28061 ($sc-dispatch tmp-28060 'each-any))) + (if tmp-28061 (@apply - (lambda (#{step 28078}#) - (let ((#{tmp 28080}# ($sc-dispatch #{e1 28058}# '()))) - (if #{tmp 28080}# + (lambda (step-28078) + (let ((tmp-28080 ($sc-dispatch e1-28058 '()))) + (if tmp-28080 (@apply (lambda () (list '#(syntax-object @@ -23605,7 +22896,7 @@ #((top)) #("l-*-27998"))) (hygiene guile)) - (map list #{var 28054}# #{init 28055}#) + (map list var-28054 init-28055) (list '#(syntax-object if ((top) @@ -23667,7 +22958,7 @@ #((top)) #("l-*-27998"))) (hygiene guile)) - #{e0 28057}#) + e0-28057) (cons '#(syntax-object begin ((top) @@ -23702,7 +22993,7 @@ #("l-*-27998"))) (hygiene guile)) (append - #{c 28059}# + c-28059 (list (cons '#(syntax-object doloop ((top) @@ -23743,15 +23034,13 @@ #("l-*-27998"))) (hygiene guile)) - #{step 28078}#))))))) - #{tmp 28080}#) - (let ((#{tmp 28084}# - ($sc-dispatch - #{e1 28058}# - '(any . each-any)))) - (if #{tmp 28084}# + step-28078))))))) + tmp-28080) + (let ((tmp-28084 + ($sc-dispatch e1-28058 '(any . each-any)))) + (if tmp-28084 (@apply - (lambda (#{e1 28088}# #{e2 28089}#) + (lambda (e1-28088 e2-28089) (list '#(syntax-object let ((top) @@ -23816,9 +23105,7 @@ #((top)) #("l-*-27998"))) (hygiene guile)) - (map list - #{var 28054}# - #{init 28055}#) + (map list var-28054 init-28055) (list '#(syntax-object if ((top) @@ -23852,7 +23139,7 @@ #((top)) #("l-*-27998"))) (hygiene guile)) - #{e0 28057}# + e0-28057 (cons '#(syntax-object begin ((top) @@ -23891,8 +23178,7 @@ #((top)) #("l-*-27998"))) (hygiene guile)) - (cons #{e1 28088}# - #{e2 28089}#)) + (cons e1-28088 e2-28089)) (cons '#(syntax-object begin ((top) @@ -23932,7 +23218,7 @@ #("l-*-27998"))) (hygiene guile)) (append - #{c 28059}# + c-28059 (list (cons '#(syntax-object doloop ((top) @@ -23980,33 +23266,33 @@ #("l-*-27998"))) (hygiene guile)) - #{step 28078}#))))))) - #{tmp 28084}#) + step-28078))))))) + tmp-28084) (syntax-violation #f "source expression failed to match any pattern" - #{e1 28058}#)))))) - #{tmp 28061}#) + e1-28058)))))) + tmp-28061) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28060}#))))) - #{tmp 28050}#) + tmp-28060))))) + tmp-28050) (syntax-violation #f "source expression failed to match any pattern" - #{orig-x 28048}#)))))) + orig-x-28048)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((#{quasi 28375}# - (lambda (#{p 28399}# #{lev 28400}#) - (let ((#{tmp 28402}# + ((quasi-28375 + (lambda (p-28399 lev-28400) + (let ((tmp-28402 ($sc-dispatch - #{p 28399}# + p-28399 '(#(free-id #(syntax-object unquote @@ -24033,10 +23319,10 @@ "l-*-28105"))) (hygiene guile))) any)))) - (if #{tmp 28402}# + (if tmp-28402 (@apply - (lambda (#{p 28406}#) - (if (= #{lev 28400}# 0) + (lambda (p-28406) + (if (= lev-28400 0) (list '#(syntax-object "value" ((top) @@ -24062,8 +23348,8 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{p 28406}#) - (#{quasicons 28377}# + p-28406) + (quasicons-28377 '(#(syntax-object "quote" ((top) @@ -24114,13 +23400,11 @@ "l-*-28107" "l-*-28105"))) (hygiene guile))) - (#{quasi 28375}# - (list #{p 28406}#) - (#{1-}# #{lev 28400}#))))) - #{tmp 28402}#) - (let ((#{tmp 28409}# + (quasi-28375 (list p-28406) (#{1-}# lev-28400))))) + tmp-28402) + (let ((tmp-28409 ($sc-dispatch - #{p 28399}# + p-28399 '(#(free-id #(syntax-object quasiquote @@ -24147,10 +23431,10 @@ "l-*-28105"))) (hygiene guile))) any)))) - (if #{tmp 28409}# + (if tmp-28409 (@apply - (lambda (#{p 28413}#) - (#{quasicons 28377}# + (lambda (p-28413) + (quasicons-28377 '(#(syntax-object "quote" ((top) @@ -24201,18 +23485,15 @@ "l-*-28107" "l-*-28105"))) (hygiene guile))) - (#{quasi 28375}# - (list #{p 28413}#) - (#{1+}# #{lev 28400}#)))) - #{tmp 28409}#) - (let ((#{tmp 28416}# - ($sc-dispatch #{p 28399}# '(any . any)))) - (if #{tmp 28416}# + (quasi-28375 (list p-28413) (#{1+}# lev-28400)))) + tmp-28409) + (let ((tmp-28416 ($sc-dispatch p-28399 '(any . any)))) + (if tmp-28416 (@apply - (lambda (#{p 28420}# #{q 28421}#) - (let ((#{tmp 28423}# + (lambda (p-28420 q-28421) + (let ((tmp-28423 ($sc-dispatch - #{p 28420}# + p-28420 '(#(free-id #(syntax-object unquote @@ -24250,12 +23531,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp 28423}# + (if tmp-28423 (@apply - (lambda (#{p 28427}#) - (if (= #{lev 28400}# 0) - (#{quasilist* 28379}# - (map (lambda (#{tmp-28139 28463}#) + (lambda (p-28427) + (if (= lev-28400 0) + (quasilist*-28379 + (map (lambda (tmp-28139-28463) (list '#(syntax-object "value" ((top) @@ -24296,13 +23577,11 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{tmp-28139 28463}#)) - #{p 28427}#) - (#{quasi 28375}# - #{q 28421}# - #{lev 28400}#)) - (#{quasicons 28377}# - (#{quasicons 28377}# + tmp-28139-28463)) + p-28427) + (quasi-28375 q-28421 lev-28400)) + (quasicons-28377 + (quasicons-28377 '(#(syntax-object "quote" ((top) @@ -24379,16 +23658,14 @@ "l-*-28107" "l-*-28105"))) (hygiene guile))) - (#{quasi 28375}# - #{p 28427}# - (#{1-}# #{lev 28400}#))) - (#{quasi 28375}# - #{q 28421}# - #{lev 28400}#)))) - #{tmp 28423}#) - (let ((#{tmp 28468}# + (quasi-28375 + p-28427 + (#{1-}# lev-28400))) + (quasi-28375 q-28421 lev-28400)))) + tmp-28423) + (let ((tmp-28468 ($sc-dispatch - #{p 28420}# + p-28420 '(#(free-id #(syntax-object unquote-splicing @@ -24426,12 +23703,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp 28468}# + (if tmp-28468 (@apply - (lambda (#{p 28472}#) - (if (= #{lev 28400}# 0) - (#{quasiappend 28378}# - (map (lambda (#{tmp-28144 28475}#) + (lambda (p-28472) + (if (= lev-28400 0) + (quasiappend-28378 + (map (lambda (tmp-28144-28475) (list '#(syntax-object "value" ((top) @@ -24472,13 +23749,11 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{tmp-28144 28475}#)) - #{p 28472}#) - (#{quasi 28375}# - #{q 28421}# - #{lev 28400}#)) - (#{quasicons 28377}# - (#{quasicons 28377}# + tmp-28144-28475)) + p-28472) + (quasi-28375 q-28421 lev-28400)) + (quasicons-28377 + (quasicons-28377 '(#(syntax-object "quote" ((top) @@ -24555,37 +23830,29 @@ "l-*-28107" "l-*-28105"))) (hygiene guile))) - (#{quasi 28375}# - #{p 28472}# - (#{1-}# #{lev 28400}#))) - (#{quasi 28375}# - #{q 28421}# - #{lev 28400}#)))) - #{tmp 28468}#) - (#{quasicons 28377}# - (#{quasi 28375}# - #{p 28420}# - #{lev 28400}#) - (#{quasi 28375}# - #{q 28421}# - #{lev 28400}#))))))) - #{tmp 28416}#) - (let ((#{tmp 28489}# - ($sc-dispatch #{p 28399}# '#(vector each-any)))) - (if #{tmp 28489}# + (quasi-28375 + p-28472 + (#{1-}# lev-28400))) + (quasi-28375 q-28421 lev-28400)))) + tmp-28468) + (quasicons-28377 + (quasi-28375 p-28420 lev-28400) + (quasi-28375 q-28421 lev-28400))))))) + tmp-28416) + (let ((tmp-28489 + ($sc-dispatch p-28399 '#(vector each-any)))) + (if tmp-28489 (@apply - (lambda (#{x 28493}#) - (let ((#{x 28496}# - (#{vquasi 28376}# - #{x 28493}# - #{lev 28400}#))) - (let ((#{tmp 28498}# + (lambda (x-28493) + (let ((x-28496 + (vquasi-28376 x-28493 lev-28400))) + (let ((tmp-28498 ($sc-dispatch - #{x 28496}# + x-28496 '(#(atom "quote") each-any)))) - (if #{tmp 28498}# + (if tmp-28498 (@apply - (lambda (#{x 28502}#) + (lambda (x-28502) (list '#(syntax-object "quote" ((top) @@ -24620,21 +23887,21 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - (list->vector #{x 28502}#))) - #{tmp 28498}#) + (list->vector x-28502))) + tmp-28498) (letrec* - ((#{f 28504}# - (lambda (#{y 28516}# #{k 28517}#) - (let ((#{tmp 28519}# + ((f-28504 + (lambda (y-28516 k-28517) + (let ((tmp-28519 ($sc-dispatch - #{y 28516}# + y-28516 '(#(atom "quote") each-any)))) - (if #{tmp 28519}# + (if tmp-28519 (@apply - (lambda (#{y 28522}#) - (#{k 28517}# - (map (lambda (#{tmp-28274 28523}#) + (lambda (y-28522) + (k-28517 + (map (lambda (tmp-28274-28523) (list '#(syntax-object "quote" ((top) @@ -24691,42 +23958,41 @@ "l-*-28105"))) (hygiene guile)) - #{tmp-28274 28523}#)) - #{y 28522}#))) - #{tmp 28519}#) - (let ((#{tmp 28524}# + tmp-28274-28523)) + y-28522))) + tmp-28519) + (let ((tmp-28524 ($sc-dispatch - #{y 28516}# + y-28516 '(#(atom "list") . each-any)))) - (if #{tmp 28524}# + (if tmp-28524 (@apply - (lambda (#{y 28527}#) - (#{k 28517}# - #{y 28527}#)) - #{tmp 28524}#) - (let ((#{tmp 28528}# + (lambda (y-28527) + (k-28517 y-28527)) + tmp-28524) + (let ((tmp-28528 ($sc-dispatch - #{y 28516}# + y-28516 '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 28528}# + (if tmp-28528 (@apply - (lambda (#{y 28531}# - #{z 28532}#) - (#{f 28504}# - #{z 28532}# - (lambda (#{ls 28533}#) - (#{k 28517}# + (lambda (y-28531 + z-28532) + (f-28504 + z-28532 + (lambda (ls-28533) + (k-28517 (append - #{y 28531}# - #{ls 28533}#))))) - #{tmp 28528}#) + y-28531 + ls-28533))))) + tmp-28528) (list '#(syntax-object "list->vector" ((top) @@ -24790,17 +24056,17 @@ "l-*-28105"))) (hygiene guile)) - #{x 28496}#)))))))))) - (#{f 28504}# - #{x 28496}# - (lambda (#{ls 28506}#) - (let ((#{tmp 28508}# + x-28496)))))))))) + (f-28504 + x-28496 + (lambda (ls-28506) + (let ((tmp-28508 ($sc-dispatch - #{ls 28506}# + ls-28506 'each-any))) - (if #{tmp 28508}# + (if tmp-28508 (@apply - (lambda (#{t-28262 28511}#) + (lambda (t-28262-28511) (cons '#(syntax-object "vector" ((top) @@ -24863,13 +24129,13 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{t-28262 28511}#)) - #{tmp 28508}#) + t-28262-28511)) + tmp-28508) (syntax-violation #f "source expression failed to match any pattern" - #{ls 28506}#)))))))))) - #{tmp 28489}#) + ls-28506)))))))))) + tmp-28489) (list '#(syntax-object "quote" ((top) @@ -24901,17 +24167,16 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{p 28399}#))))))))))) - (#{vquasi 28376}# - (lambda (#{p 28561}# #{lev 28562}#) - (let ((#{tmp 28564}# - ($sc-dispatch #{p 28561}# '(any . any)))) - (if #{tmp 28564}# + p-28399))))))))))) + (vquasi-28376 + (lambda (p-28561 lev-28562) + (let ((tmp-28564 ($sc-dispatch p-28561 '(any . any)))) + (if tmp-28564 (@apply - (lambda (#{p 28568}# #{q 28569}#) - (let ((#{tmp 28571}# + (lambda (p-28568 q-28569) + (let ((tmp-28571 ($sc-dispatch - #{p 28568}# + p-28568 '(#(free-id #(syntax-object unquote @@ -24949,12 +24214,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp 28571}# + (if tmp-28571 (@apply - (lambda (#{p 28575}#) - (if (= #{lev 28562}# 0) - (#{quasilist* 28379}# - (map (lambda (#{tmp-28168 28611}#) + (lambda (p-28575) + (if (= lev-28562 0) + (quasilist*-28379 + (map (lambda (tmp-28168-28611) (list '#(syntax-object "value" ((top) @@ -24993,11 +24258,11 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{tmp-28168 28611}#)) - #{p 28575}#) - (#{vquasi 28376}# #{q 28569}# #{lev 28562}#)) - (#{quasicons 28377}# - (#{quasicons 28377}# + tmp-28168-28611)) + p-28575) + (vquasi-28376 q-28569 lev-28562)) + (quasicons-28377 + (quasicons-28377 '(#(syntax-object "quote" ((top) @@ -25068,14 +24333,12 @@ "l-*-28107" "l-*-28105"))) (hygiene guile))) - (#{quasi 28375}# - #{p 28575}# - (#{1-}# #{lev 28562}#))) - (#{vquasi 28376}# #{q 28569}# #{lev 28562}#)))) - #{tmp 28571}#) - (let ((#{tmp 28618}# + (quasi-28375 p-28575 (#{1-}# lev-28562))) + (vquasi-28376 q-28569 lev-28562)))) + tmp-28571) + (let ((tmp-28618 ($sc-dispatch - #{p 28568}# + p-28568 '(#(free-id #(syntax-object unquote-splicing @@ -25113,12 +24376,12 @@ (hygiene guile))) . each-any)))) - (if #{tmp 28618}# + (if tmp-28618 (@apply - (lambda (#{p 28622}#) - (if (= #{lev 28562}# 0) - (#{quasiappend 28378}# - (map (lambda (#{tmp-28173 28625}#) + (lambda (p-28622) + (if (= lev-28562 0) + (quasiappend-28378 + (map (lambda (tmp-28173-28625) (list '#(syntax-object "value" ((top) @@ -25159,13 +24422,11 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{tmp-28173 28625}#)) - #{p 28622}#) - (#{vquasi 28376}# - #{q 28569}# - #{lev 28562}#)) - (#{quasicons 28377}# - (#{quasicons 28377}# + tmp-28173-28625)) + p-28622) + (vquasi-28376 q-28569 lev-28562)) + (quasicons-28377 + (quasicons-28377 '(#(syntax-object "quote" ((top) @@ -25242,19 +24503,15 @@ "l-*-28107" "l-*-28105"))) (hygiene guile))) - (#{quasi 28375}# - #{p 28622}# - (#{1-}# #{lev 28562}#))) - (#{vquasi 28376}# - #{q 28569}# - #{lev 28562}#)))) - #{tmp 28618}#) - (#{quasicons 28377}# - (#{quasi 28375}# #{p 28568}# #{lev 28562}#) - (#{vquasi 28376}# #{q 28569}# #{lev 28562}#))))))) - #{tmp 28564}#) - (let ((#{tmp 28643}# ($sc-dispatch #{p 28561}# '()))) - (if #{tmp 28643}# + (quasi-28375 p-28622 (#{1-}# lev-28562))) + (vquasi-28376 q-28569 lev-28562)))) + tmp-28618) + (quasicons-28377 + (quasi-28375 p-28568 lev-28562) + (vquasi-28376 q-28569 lev-28562))))))) + tmp-28564) + (let ((tmp-28643 ($sc-dispatch p-28561 '()))) + (if tmp-28643 (@apply (lambda () '(#(syntax-object @@ -25282,33 +24539,30 @@ "l-*-28105"))) (hygiene guile)) ())) - #{tmp 28643}#) + tmp-28643) (syntax-violation #f "source expression failed to match any pattern" - #{p 28561}#))))))) - (#{quasicons 28377}# - (lambda (#{x 28656}# #{y 28657}#) - (let ((#{tmp 28658}# (list #{x 28656}# #{y 28657}#))) - (let ((#{tmp 28659}# - ($sc-dispatch #{tmp 28658}# '(any any)))) - (if #{tmp 28659}# + p-28561))))))) + (quasicons-28377 + (lambda (x-28656 y-28657) + (let ((tmp-28658 (list x-28656 y-28657))) + (let ((tmp-28659 ($sc-dispatch tmp-28658 '(any any)))) + (if tmp-28659 (@apply - (lambda (#{x 28661}# #{y 28662}#) - (let ((#{tmp 28664}# - ($sc-dispatch - #{y 28662}# - '(#(atom "quote") any)))) - (if #{tmp 28664}# + (lambda (x-28661 y-28662) + (let ((tmp-28664 + ($sc-dispatch y-28662 '(#(atom "quote") any)))) + (if tmp-28664 (@apply - (lambda (#{dy 28668}#) - (let ((#{tmp 28670}# + (lambda (dy-28668) + (let ((tmp-28670 ($sc-dispatch - #{x 28661}# + x-28661 '(#(atom "quote") any)))) - (if #{tmp 28670}# + (if tmp-28670 (@apply - (lambda (#{dx 28674}#) + (lambda (dx-28674) (list '#(syntax-object "quote" ((top) @@ -25353,9 +24607,9 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - (cons #{dx 28674}# #{dy 28668}#))) - #{tmp 28670}#) - (if (null? #{dy 28668}#) + (cons dx-28674 dy-28668))) + tmp-28670) + (if (null? dy-28668) (list '#(syntax-object "list" ((top) @@ -25400,7 +24654,7 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{x 28661}#) + x-28661) (list '#(syntax-object "list*" ((top) @@ -25445,16 +24699,16 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{x 28661}# - #{y 28662}#))))) - #{tmp 28664}#) - (let ((#{tmp 28679}# + x-28661 + y-28662))))) + tmp-28664) + (let ((tmp-28679 ($sc-dispatch - #{y 28662}# + y-28662 '(#(atom "list") . any)))) - (if #{tmp 28679}# + (if tmp-28679 (@apply - (lambda (#{stuff 28683}#) + (lambda (stuff-28683) (cons '#(syntax-object "list" ((top) @@ -25495,15 +24749,15 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - (cons #{x 28661}# #{stuff 28683}#))) - #{tmp 28679}#) - (let ((#{tmp 28684}# + (cons x-28661 stuff-28683))) + tmp-28679) + (let ((tmp-28684 ($sc-dispatch - #{y 28662}# + y-28662 '(#(atom "list*") . any)))) - (if #{tmp 28684}# + (if tmp-28684 (@apply - (lambda (#{stuff 28688}#) + (lambda (stuff-28688) (cons '#(syntax-object "list*" ((top) @@ -25544,8 +24798,8 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - (cons #{x 28661}# #{stuff 28688}#))) - #{tmp 28684}#) + (cons x-28661 stuff-28688))) + tmp-28684) (list '#(syntax-object "list*" ((top) @@ -25586,21 +24840,21 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{x 28661}# - #{y 28662}#)))))))) - #{tmp 28659}#) + x-28661 + y-28662)))))))) + tmp-28659) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28658}#)))))) - (#{quasiappend 28378}# - (lambda (#{x 28699}# #{y 28700}#) - (let ((#{tmp 28702}# - ($sc-dispatch #{y 28700}# '(#(atom "quote") ())))) - (if #{tmp 28702}# + tmp-28658)))))) + (quasiappend-28378 + (lambda (x-28699 y-28700) + (let ((tmp-28702 + ($sc-dispatch y-28700 '(#(atom "quote") ())))) + (if tmp-28702 (@apply (lambda () - (if (null? #{x 28699}#) + (if (null? x-28699) '(#(syntax-object "quote" ((top) @@ -25626,13 +24880,12 @@ "l-*-28105"))) (hygiene guile)) ()) - (if (null? (cdr #{x 28699}#)) - (car #{x 28699}#) - (let ((#{tmp 28707}# - ($sc-dispatch #{x 28699}# 'each-any))) - (if #{tmp 28707}# + (if (null? (cdr x-28699)) + (car x-28699) + (let ((tmp-28707 ($sc-dispatch x-28699 'each-any))) + (if tmp-28707 (@apply - (lambda (#{p 28711}#) + (lambda (p-28711) (cons '#(syntax-object "append" ((top) @@ -25668,21 +24921,21 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{p 28711}#)) - #{tmp 28707}#) + p-28711)) + tmp-28707) (syntax-violation #f "source expression failed to match any pattern" - #{x 28699}#)))))) - #{tmp 28702}#) - (if (null? #{x 28699}#) - #{y 28700}# - (let ((#{tmp 28719}# (list #{x 28699}# #{y 28700}#))) - (let ((#{tmp 28720}# - ($sc-dispatch #{tmp 28719}# '(each-any any)))) - (if #{tmp 28720}# + x-28699)))))) + tmp-28702) + (if (null? x-28699) + y-28700 + (let ((tmp-28719 (list x-28699 y-28700))) + (let ((tmp-28720 + ($sc-dispatch tmp-28719 '(each-any any)))) + (if tmp-28720 (@apply - (lambda (#{p 28722}# #{y 28723}#) + (lambda (p-28722 y-28723) (cons '#(syntax-object "append" ((top) @@ -25719,30 +24972,30 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - (append #{p 28722}# (list #{y 28723}#)))) - #{tmp 28720}#) + (append p-28722 (list y-28723)))) + tmp-28720) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28719}#))))))))) - (#{quasilist* 28379}# - (lambda (#{x 28727}# #{y 28728}#) + tmp-28719))))))))) + (quasilist*-28379 + (lambda (x-28727 y-28728) (letrec* - ((#{f 28729}# - (lambda (#{x 28818}#) - (if (null? #{x 28818}#) - #{y 28728}# - (#{quasicons 28377}# - (car #{x 28818}#) - (#{f 28729}# (cdr #{x 28818}#))))))) - (#{f 28729}# #{x 28727}#)))) - (#{emit 28381}# - (lambda (#{x 28821}#) - (let ((#{tmp 28823}# - ($sc-dispatch #{x 28821}# '(#(atom "quote") any)))) - (if #{tmp 28823}# + ((f-28729 + (lambda (x-28818) + (if (null? x-28818) + y-28728 + (quasicons-28377 + (car x-28818) + (f-28729 (cdr x-28818))))))) + (f-28729 x-28727)))) + (emit-28381 + (lambda (x-28821) + (let ((tmp-28823 + ($sc-dispatch x-28821 '(#(atom "quote") any)))) + (if tmp-28823 (@apply - (lambda (#{x 28827}#) + (lambda (x-28827) (list '#(syntax-object quote ((top) @@ -25765,21 +25018,20 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{x 28827}#)) - #{tmp 28823}#) - (let ((#{tmp 28828}# + x-28827)) + tmp-28823) + (let ((tmp-28828 ($sc-dispatch - #{x 28821}# + x-28821 '(#(atom "list") . each-any)))) - (if #{tmp 28828}# + (if tmp-28828 (@apply - (lambda (#{x 28832}#) - (let ((#{tmp 28833}# (map #{emit 28381}# #{x 28832}#))) - (let ((#{tmp 28834}# - ($sc-dispatch #{tmp 28833}# 'each-any))) - (if #{tmp 28834}# + (lambda (x-28832) + (let ((tmp-28833 (map emit-28381 x-28832))) + (let ((tmp-28834 ($sc-dispatch tmp-28833 'each-any))) + (if tmp-28834 (@apply - (lambda (#{t-28304 28836}#) + (lambda (t-28304-28836) (cons '#(syntax-object list ((top) @@ -25819,38 +25071,36 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{t-28304 28836}#)) - #{tmp 28834}#) + t-28304-28836)) + tmp-28834) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28833}#))))) - #{tmp 28828}#) - (let ((#{tmp 28837}# + tmp-28833))))) + tmp-28828) + (let ((tmp-28837 ($sc-dispatch - #{x 28821}# + x-28821 '(#(atom "list*") . #(each+ any (any) ()))))) - (if #{tmp 28837}# + (if tmp-28837 (@apply - (lambda (#{x 28841}# #{y 28842}#) + (lambda (x-28841 y-28842) (letrec* - ((#{f 28843}# - (lambda (#{x* 28846}#) - (if (null? #{x* 28846}#) - (#{emit 28381}# #{y 28842}#) - (let ((#{tmp 28847}# - (list (#{emit 28381}# - (car #{x* 28846}#)) - (#{f 28843}# - (cdr #{x* 28846}#))))) - (let ((#{tmp 28848}# + ((f-28843 + (lambda (x*-28846) + (if (null? x*-28846) + (emit-28381 y-28842) + (let ((tmp-28847 + (list (emit-28381 (car x*-28846)) + (f-28843 (cdr x*-28846))))) + (let ((tmp-28848 ($sc-dispatch - #{tmp 28847}# + tmp-28847 '(any any)))) - (if #{tmp 28848}# + (if tmp-28848 (@apply - (lambda (#{t-28324 28850}# - #{t-28323 28851}#) + (lambda (t-28324-28850 + t-28323-28851) (list '#(syntax-object cons ((top) @@ -25899,31 +25149,28 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{t-28324 28850}# - #{t-28323 28851}#)) - #{tmp 28848}#) + t-28324-28850 + t-28323-28851)) + tmp-28848) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28847}#)))))))) - (#{f 28843}# #{x 28841}#))) - #{tmp 28837}#) - (let ((#{tmp 28852}# + tmp-28847)))))))) + (f-28843 x-28841))) + tmp-28837) + (let ((tmp-28852 ($sc-dispatch - #{x 28821}# + x-28821 '(#(atom "append") . each-any)))) - (if #{tmp 28852}# + (if tmp-28852 (@apply - (lambda (#{x 28856}#) - (let ((#{tmp 28857}# - (map #{emit 28381}# #{x 28856}#))) - (let ((#{tmp 28858}# - ($sc-dispatch - #{tmp 28857}# - 'each-any))) - (if #{tmp 28858}# + (lambda (x-28856) + (let ((tmp-28857 (map emit-28381 x-28856))) + (let ((tmp-28858 + ($sc-dispatch tmp-28857 'each-any))) + (if tmp-28858 (@apply - (lambda (#{t-28336 28860}#) + (lambda (t-28336-28860) (cons '#(syntax-object append ((top) @@ -25963,29 +25210,28 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{t-28336 28860}#)) - #{tmp 28858}#) + t-28336-28860)) + tmp-28858) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28857}#))))) - #{tmp 28852}#) - (let ((#{tmp 28861}# + tmp-28857))))) + tmp-28852) + (let ((tmp-28861 ($sc-dispatch - #{x 28821}# + x-28821 '(#(atom "vector") . each-any)))) - (if #{tmp 28861}# + (if tmp-28861 (@apply - (lambda (#{x 28865}#) - (let ((#{tmp 28866}# - (map #{emit 28381}# #{x 28865}#))) - (let ((#{tmp 28867}# + (lambda (x-28865) + (let ((tmp-28866 (map emit-28381 x-28865))) + (let ((tmp-28867 ($sc-dispatch - #{tmp 28866}# + tmp-28866 'each-any))) - (if #{tmp 28867}# + (if tmp-28867 (@apply - (lambda (#{t-28348 28869}#) + (lambda (t-28348-28869) (cons '#(syntax-object vector ((top) @@ -26025,22 +25271,21 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{t-28348 28869}#)) - #{tmp 28867}#) + t-28348-28869)) + tmp-28867) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28866}#))))) - #{tmp 28861}#) - (let ((#{tmp 28870}# + tmp-28866))))) + tmp-28861) + (let ((tmp-28870 ($sc-dispatch - #{x 28821}# + x-28821 '(#(atom "list->vector") any)))) - (if #{tmp 28870}# + (if tmp-28870 (@apply - (lambda (#{x 28874}#) - (let ((#{tmp 28875}# - (#{emit 28381}# #{x 28874}#))) + (lambda (x-28874) + (let ((tmp-28875 (emit-28381 x-28874))) (list '#(syntax-object list->vector ((top) @@ -26080,69 +25325,64 @@ "l-*-28107" "l-*-28105"))) (hygiene guile)) - #{tmp 28875}#))) - #{tmp 28870}#) - (let ((#{tmp 28878}# + tmp-28875))) + tmp-28870) + (let ((tmp-28878 ($sc-dispatch - #{x 28821}# + x-28821 '(#(atom "value") any)))) - (if #{tmp 28878}# + (if tmp-28878 (@apply - (lambda (#{x 28882}#) #{x 28882}#) - #{tmp 28878}#) + (lambda (x-28882) x-28882) + tmp-28878) (syntax-violation #f "source expression failed to match any pattern" - #{x 28821}#)))))))))))))))))) - (lambda (#{x 28382}#) - (let ((#{tmp 28384}# - ($sc-dispatch #{x 28382}# '(_ any)))) - (if #{tmp 28384}# + x-28821)))))))))))))))))) + (lambda (x-28382) + (let ((tmp-28384 ($sc-dispatch x-28382 '(_ any)))) + (if tmp-28384 (@apply - (lambda (#{e 28388}#) - (#{emit 28381}# (#{quasi 28375}# #{e 28388}# 0))) - #{tmp 28384}#) + (lambda (e-28388) + (emit-28381 (quasi-28375 e-28388 0))) + tmp-28384) (syntax-violation #f "source expression failed to match any pattern" - #{x 28382}#))))))) + x-28382))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (#{x 28937}#) + (lambda (x-28937) (letrec* - ((#{read-file 28938}# - (lambda (#{fn 29047}# #{k 29048}#) - (let ((#{p 29049}# (open-input-file #{fn 29047}#))) + ((read-file-28938 + (lambda (fn-29047 k-29048) + (let ((p-29049 (open-input-file fn-29047))) (letrec* - ((#{f 29050}# - (lambda (#{x 29104}# #{result 29105}#) - (if (eof-object? #{x 29104}#) + ((f-29050 + (lambda (x-29104 result-29105) + (if (eof-object? x-29104) (begin - (close-input-port #{p 29049}#) - (reverse #{result 29105}#)) - (#{f 29050}# - (read #{p 29049}#) - (cons (datum->syntax #{k 29048}# #{x 29104}#) - #{result 29105}#)))))) - (#{f 29050}# (read #{p 29049}#) '())))))) - (let ((#{tmp 28940}# - ($sc-dispatch #{x 28937}# '(any any)))) - (if #{tmp 28940}# + (close-input-port p-29049) + (reverse result-29105)) + (f-29050 + (read p-29049) + (cons (datum->syntax k-29048 x-29104) + result-29105)))))) + (f-29050 (read p-29049) '())))))) + (let ((tmp-28940 ($sc-dispatch x-28937 '(any any)))) + (if tmp-28940 (@apply - (lambda (#{k 28944}# #{filename 28945}#) - (let ((#{fn 28946}# (syntax->datum #{filename 28945}#))) - (let ((#{tmp 28947}# - (#{read-file 28938}# - #{fn 28946}# - #{filename 28945}#))) - (let ((#{tmp 28948}# - ($sc-dispatch #{tmp 28947}# 'each-any))) - (if #{tmp 28948}# + (lambda (k-28944 filename-28945) + (let ((fn-28946 (syntax->datum filename-28945))) + (let ((tmp-28947 + (read-file-28938 fn-28946 filename-28945))) + (let ((tmp-28948 ($sc-dispatch tmp-28947 'each-any))) + (if tmp-28948 (@apply - (lambda (#{exp 28966}#) + (lambda (exp-28966) (cons '#(syntax-object begin ((top) @@ -26161,40 +25401,39 @@ ("l-*-28909")) #(ribcage #(x) #((top)) #("l-*-28908"))) (hygiene guile)) - #{exp 28966}#)) - #{tmp 28948}#) + exp-28966)) + tmp-28948) (syntax-violation #f "source expression failed to match any pattern" - #{tmp 28947}#)))))) - #{tmp 28940}#) + tmp-28947)))))) + tmp-28940) (syntax-violation #f "source expression failed to match any pattern" - #{x 28937}#))))))) + x-28937))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (#{x 29124}#) - (let ((#{tmp 29126}# - ($sc-dispatch #{x 29124}# '(any any)))) - (if #{tmp 29126}# + (lambda (x-29124) + (let ((tmp-29126 ($sc-dispatch x-29124 '(any any)))) + (if tmp-29126 (@apply - (lambda (#{k 29130}# #{filename 29131}#) - (let ((#{fn 29132}# (syntax->datum #{filename 29131}#))) - (let ((#{tmp 29133}# + (lambda (k-29130 filename-29131) + (let ((fn-29132 (syntax->datum filename-29131))) + (let ((tmp-29133 (datum->syntax - #{filename 29131}# - (let ((#{t 29136}# (%search-load-path #{fn 29132}#))) - (if #{t 29136}# - #{t 29136}# + filename-29131 + (let ((t-29136 (%search-load-path fn-29132))) + (if t-29136 + t-29136 (syntax-violation 'include-from-path "file not found in path" - #{x 29124}# - #{filename 29131}#)))))) + x-29124 + filename-29131)))))) (list '#(syntax-object include ((top) @@ -26210,53 +25449,51 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-29107"))) (hygiene guile)) - #{tmp 29133}#)))) - #{tmp 29126}#) + tmp-29133)))) + tmp-29126) (syntax-violation #f "source expression failed to match any pattern" - #{x 29124}#)))))) + x-29124)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (#{x 29145}#) + (lambda (x-29145) (syntax-violation 'unquote "expression not valid outside of quasiquote" - #{x 29145}#)))) + x-29145)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (#{x 29148}#) + (lambda (x-29148) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - #{x 29148}#)))) + x-29148)))) (define case (make-syntax-transformer 'case 'macro - (lambda (#{x 29204}#) - (let ((#{tmp 29206}# - ($sc-dispatch - #{x 29204}# - '(_ any any . each-any)))) - (if #{tmp 29206}# + (lambda (x-29204) + (let ((tmp-29206 + ($sc-dispatch x-29204 '(_ any any . each-any)))) + (if tmp-29206 (@apply - (lambda (#{e 29210}# #{m1 29211}# #{m2 29212}#) - (let ((#{tmp 29213}# + (lambda (e-29210 m1-29211 m2-29212) + (let ((tmp-29213 (letrec* - ((#{f 29255}# - (lambda (#{clause 29258}# #{clauses 29259}#) - (if (null? #{clauses 29259}#) - (let ((#{tmp 29261}# + ((f-29255 + (lambda (clause-29258 clauses-29259) + (if (null? clauses-29259) + (let ((tmp-29261 ($sc-dispatch - #{clause 29258}# + clause-29258 '(#(free-id #(syntax-object else @@ -26283,9 +25520,9 @@ any . each-any)))) - (if #{tmp 29261}# + (if tmp-29261 (@apply - (lambda (#{e1 29265}# #{e2 29266}#) + (lambda (e1-29265 e2-29266) (cons '#(syntax-object begin ((top) @@ -26312,17 +25549,15 @@ #((top)) #("l-*-29150"))) (hygiene guile)) - (cons #{e1 29265}# #{e2 29266}#))) - #{tmp 29261}#) - (let ((#{tmp 29267}# + (cons e1-29265 e2-29266))) + tmp-29261) + (let ((tmp-29267 ($sc-dispatch - #{clause 29258}# + clause-29258 '(each-any any . each-any)))) - (if #{tmp 29267}# + (if tmp-29267 (@apply - (lambda (#{k 29271}# - #{e1 29272}# - #{e2 29273}#) + (lambda (k-29271 e1-29272 e2-29273) (list '#(syntax-object if ((top) @@ -26466,7 +25701,7 @@ #("l-*-29150"))) (hygiene guile)) - #{k 29271}#)) + k-29271)) (cons '#(syntax-object begin ((top) @@ -26503,27 +25738,25 @@ #((top)) #("l-*-29150"))) (hygiene guile)) - (cons #{e1 29272}# - #{e2 29273}#)))) - #{tmp 29267}#) + (cons e1-29272 + e2-29273)))) + tmp-29267) (syntax-violation 'case "bad clause" - #{x 29204}# - #{clause 29258}#))))) - (let ((#{tmp 29281}# - (#{f 29255}# - (car #{clauses 29259}#) - (cdr #{clauses 29259}#)))) - (let ((#{tmp 29284}# + x-29204 + clause-29258))))) + (let ((tmp-29281 + (f-29255 + (car clauses-29259) + (cdr clauses-29259)))) + (let ((tmp-29284 ($sc-dispatch - #{clause 29258}# + clause-29258 '(each-any any . each-any)))) - (if #{tmp 29284}# + (if tmp-29284 (@apply - (lambda (#{k 29288}# - #{e1 29289}# - #{e2 29290}#) + (lambda (k-29288 e1-29289 e2-29290) (list '#(syntax-object if ((top) @@ -26673,7 +25906,7 @@ #((top)) #("l-*-29150"))) (hygiene guile)) - #{k 29288}#)) + k-29288)) (cons '#(syntax-object begin ((top) @@ -26707,17 +25940,16 @@ #((top)) #("l-*-29150"))) (hygiene guile)) - (cons #{e1 29289}# - #{e2 29290}#)) - #{tmp 29281}#)) - #{tmp 29284}#) + (cons e1-29289 e2-29290)) + tmp-29281)) + tmp-29284) (syntax-violation 'case "bad clause" - #{x 29204}# - #{clause 29258}#)))))))) - (#{f 29255}# #{m1 29211}# #{m2 29212}#)))) - (let ((#{body 29214}# #{tmp 29213}#)) + x-29204 + clause-29258)))))))) + (f-29255 m1-29211 m2-29212)))) + (let ((body-29214 tmp-29213)) (list '#(syntax-object let ((top) @@ -26750,40 +25982,38 @@ #((top)) #("l-*-29150"))) (hygiene guile)) - #{e 29210}#)) - #{body 29214}#)))) - #{tmp 29206}#) + e-29210)) + body-29214)))) + tmp-29206) (syntax-violation #f "source expression failed to match any pattern" - #{x 29204}#)))))) + x-29204)))))) (define make-variable-transformer - (lambda (#{proc 29308}#) - (if (procedure? #{proc 29308}#) + (lambda (proc-29308) + (if (procedure? proc-29308) (letrec* - ((#{trans 29309}# - (lambda (#{x 29315}#) - (#{proc 29308}# #{x 29315}#)))) + ((trans-29309 + (lambda (x-29315) (proc-29308 x-29315)))) (begin (set-procedure-property! - #{trans 29309}# + trans-29309 'variable-transformer #t) - #{trans 29309}#)) + trans-29309)) (error "variable transformer not a procedure" - #{proc 29308}#)))) + proc-29308)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (#{x 29347}#) - (let ((#{tmp 29349}# - ($sc-dispatch #{x 29347}# '(_ any)))) - (if #{tmp 29349}# + (lambda (x-29347) + (let ((tmp-29349 ($sc-dispatch x-29347 '(_ any)))) + (if tmp-29349 (@apply - (lambda (#{e 29353}#) + (lambda (e-29353) (list '#(syntax-object lambda ((top) @@ -26869,7 +26099,7 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - #{e 29353}#)) + e-29353)) (list '(#(syntax-object _ ((top) @@ -26904,7 +26134,7 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - (cons #{e 29353}# + (cons e-29353 '(#(syntax-object x ((top) @@ -26931,10 +26161,10 @@ #((top)) #("l-*-29319"))) (hygiene guile))))))))) - #{tmp 29349}#) - (let ((#{tmp 29354}# + tmp-29349) + (let ((tmp-29354 ($sc-dispatch - #{x 29347}# + x-29347 '(_ (any any) ((#(free-id #(syntax-object @@ -26946,24 +26176,24 @@ any any) any))))) - (if (if #{tmp 29354}# + (if (if tmp-29354 (@apply - (lambda (#{id 29358}# - #{exp1 29359}# - #{var 29360}# - #{val 29361}# - #{exp2 29362}#) - (if (identifier? #{id 29358}#) - (identifier? #{var 29360}#) + (lambda (id-29358 + exp1-29359 + var-29360 + val-29361 + exp2-29362) + (if (identifier? id-29358) + (identifier? var-29360) #f)) - #{tmp 29354}#) + tmp-29354) #f) (@apply - (lambda (#{id 29363}# - #{exp1 29364}# - #{var 29365}# - #{val 29366}# - #{exp2 29367}#) + (lambda (id-29363 + exp1-29364 + var-29365 + val-29366 + exp2-29367) (list '#(syntax-object make-variable-transformer ((top) @@ -27107,8 +26337,8 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - #{var 29365}# - #{val 29366}#) + var-29365 + val-29366) (list '#(syntax-object syntax ((top) @@ -27130,8 +26360,8 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - #{exp2 29367}#)) - (list (cons #{id 29363}# + exp2-29367)) + (list (cons id-29363 '(#(syntax-object x ((top) @@ -27195,7 +26425,7 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - (cons #{exp1 29364}# + (cons exp1-29364 '(#(syntax-object x ((top) @@ -27246,7 +26476,7 @@ #((top)) #("l-*-29319"))) (hygiene guile)))))) - (list #{id 29363}# + (list id-29363 (list '#(syntax-object identifier? ((top) @@ -27293,7 +26523,7 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - #{id 29363}#)) + id-29363)) (list '#(syntax-object syntax ((top) @@ -27315,28 +26545,25 @@ #((top)) #("l-*-29319"))) (hygiene guile)) - #{exp1 29364}#)))))) - #{tmp 29354}#) + exp1-29364)))))) + tmp-29354) (syntax-violation #f "source expression failed to match any pattern" - #{x 29347}#)))))))) + x-29347)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (#{x 29399}#) - (let ((#{tmp 29401}# + (lambda (x-29399) + (let ((tmp-29401 ($sc-dispatch - #{x 29399}# + x-29399 '(_ (any . any) any . each-any)))) - (if #{tmp 29401}# + (if tmp-29401 (@apply - (lambda (#{id 29405}# - #{args 29406}# - #{b0 29407}# - #{b1 29408}#) + (lambda (id-29405 args-29406 b0-29407 b1-29408) (list '#(syntax-object define ((top) @@ -27350,7 +26577,7 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)) - #{id 29405}# + id-29405 (cons '#(syntax-object lambda* ((top) @@ -27364,14 +26591,12 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)) - (cons #{args 29406}# - (cons #{b0 29407}# #{b1 29408}#))))) - #{tmp 29401}#) - (let ((#{tmp 29409}# - ($sc-dispatch #{x 29399}# '(_ any any)))) - (if (if #{tmp 29409}# + (cons args-29406 (cons b0-29407 b1-29408))))) + tmp-29401) + (let ((tmp-29409 ($sc-dispatch x-29399 '(_ any any)))) + (if (if tmp-29409 (@apply - (lambda (#{id 29413}# #{val 29414}#) + (lambda (id-29413 val-29414) (identifier? '#(syntax-object x @@ -27383,10 +26608,10 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)))) - #{tmp 29409}#) + tmp-29409) #f) (@apply - (lambda (#{id 29415}# #{val 29416}#) + (lambda (id-29415 val-29416) (list '#(syntax-object define ((top) @@ -27397,11 +26622,11 @@ #(ribcage () () ()) #(ribcage #(x) #((top)) #("l-*-29378"))) (hygiene guile)) - #{id 29415}# - #{val 29416}#)) - #{tmp 29409}#) + id-29415 + val-29416)) + tmp-29409) (syntax-violation #f "source expression failed to match any pattern" - #{x 29399}#)))))))) + x-29399)))))))) diff --git a/module/language/tree-il/peval.scm b/module/language/tree-il/peval.scm index abc019904..7aad3997a 100644 --- a/module/language/tree-il/peval.scm +++ b/module/language/tree-il/peval.scm @@ -417,7 +417,7 @@ top-level bindings from ENV and return the resulting expression." (define (fresh-gensyms vars) (map (lambda (var) (let ((new (gensym (string-append (symbol->string (var-name var)) - " ")))) + "-")))) (set! store (vhash-consq new var store)) new)) vars)) @@ -919,7 +919,7 @@ top-level bindings from ENV and return the resulting expression." ((not (constant-expression? pre)) (cond ((not (constant-expression? post)) - (let ((pre-sym (gensym "pre ")) (post-sym (gensym "post "))) + (let ((pre-sym (gensym "pre-")) (post-sym (gensym "post-"))) (record-new-temporary! 'pre pre-sym 1) (record-new-temporary! 'post post-sym 1) (make-let src '(pre post) (list pre-sym post-sym) (list pre post) @@ -928,7 +928,7 @@ top-level bindings from ENV and return the resulting expression." body (make-lexical-ref #f 'post post-sym))))) (else - (let ((pre-sym (gensym "pre "))) + (let ((pre-sym (gensym "pre-"))) (record-new-temporary! 'pre pre-sym 1) (make-let src '(pre) (list pre-sym) (list pre) (make-dynwind src @@ -936,7 +936,7 @@ top-level bindings from ENV and return the resulting expression." body post)))))) ((not (constant-expression? post)) - (let ((post-sym (gensym "post "))) + (let ((post-sym (gensym "post-"))) (record-new-temporary! 'post post-sym 1) (make-let src '(post) (list post-sym) (list post) (make-dynwind src @@ -1089,7 +1089,7 @@ top-level bindings from ENV and return the resulting expression." (for-tail (make-sequence src (list k (make-const #f #f))))) (else - (let ((t (gensym "t ")) + (let ((t (gensym "t-")) (eq (if (eq? name 'memq) 'eq? 'eqv?))) (record-new-temporary! 't t (length elts)) (for-tail diff --git a/module/language/tree-il/primitives.scm b/module/language/tree-il/primitives.scm index f7bb5cab2..23f5df5f4 100644 --- a/module/language/tree-il/primitives.scm +++ b/module/language/tree-il/primitives.scm @@ -1,6 +1,6 @@ ;;; open-coding primitive procedures -;; Copyright (C) 2009, 2010, 2011 Free Software Foundation, Inc. +;; Copyright (C) 2009, 2010, 2011, 2012 Free Software Foundation, Inc. ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -473,9 +473,9 @@ 'dynamic-wind (case-lambda ((src pre thunk post) - (let ((PRE (gensym " pre")) - (THUNK (gensym " thunk")) - (POST (gensym " post"))) + (let ((PRE (gensym "pre-")) + (THUNK (gensym "thunk-")) + (POST (gensym "post-"))) (make-let src '(pre thunk post) @@ -492,8 +492,8 @@ '@dynamic-wind (case-lambda ((src pre expr post) - (let ((PRE (gensym " pre")) - (POST (gensym " post"))) + (let ((PRE (gensym "pre-")) + (POST (gensym "post-"))) (make-let src '(pre post) From 68c31a42ab137a5a54a577f19a69dfcbcfd33271 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 16:22:35 +0100 Subject: [PATCH 11/32] update local-eval docs * doc/ref/api-evaluation.texi (Local Evaluation): Update docs, add some examples. --- doc/ref/api-evaluation.texi | 61 ++++++++++++++++++++++++++----------- 1 file changed, 43 insertions(+), 18 deletions(-) diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi index cc62270b0..f2b539e8f 100644 --- a/doc/ref/api-evaluation.texi +++ b/doc/ref/api-evaluation.texi @@ -984,6 +984,14 @@ value. @node Local Evaluation @subsection Local Evaluation +Guile includes a facility to capture a lexical environment, and later +evaluate a new expression within that environment. This code is +implemented in a module. + +@example +(use-modules (ice-9 local-eval)) +@end example + @deffn syntax the-environment Captures and returns a lexical environment for use with @code{local-eval} or @code{local-compile}. @@ -991,27 +999,44 @@ Captures and returns a lexical environment for use with @deffn {Scheme Procedure} local-eval exp env @deffnx {C Function} scm_local_eval (exp, env) -Evaluate the expression @var{exp} in the lexical environment @var{env}. -This mostly behaves as if @var{exp} had been wrapped in a lambda -expression @code{`(lambda () ,@var{exp})} and put in place of -@code{(the-environment)}, with the resulting procedure called by -@code{local-eval}. In other words, @var{exp} is evaluated within the -lexical environment of @code{(the-environment)}, but within the dynamic -environment of the call to @code{local-eval}. +@deffnx {Scheme Procedure} local-compile exp env [opts=()] +Evaluate or compile the expression @var{exp} in the lexical environment +@var{env}. @end deffn -@deffn {Scheme Procedure} local-compile exp env [opts=()] -Compile the expression @var{exp} in the lexical environment @var{env}. -If @var{exp} is a procedure, the result will be a compiled procedure; -otherwise @code{local-compile} is mostly equivalent to -@code{local-eval}. @var{opts} specifies the compilation options. -@end deffn +Here is a simple example, illustrating that it is the variable +that gets captured, not just its value at one point in time. -Note that the current implementation of @code{(the-environment)} does -not capture local syntax transformers bound by @code{let-syntax}, -@code{letrec-syntax} or non-top-level @code{define-syntax} forms. Any -attempt to reference such captured syntactic keywords via -@code{local-eval} or @code{local-compile} produces an error. +@example +(define e (let ((x 100)) (the-environment))) +(define fetch-x (local-eval '(lambda () x) e)) +(fetch-x) +@result{} 100 +(local-eval '(set! x 42) e) +(fetch-x) +@result{} 42 +@end example + +While @var{exp} is evaluated within the lexical environment of +@code{(the-environment)}, it has the dynamic environment of the call to +@code{local-eval}. + +@code{local-eval} and @code{local-compile} can only evaluate +expressions, not definitions. + +@example +(local-eval '(define foo 42) + (let ((x 100)) (the-environment))) +@result{} syntax error: definition in expression context +@end example + +Note that the current implementation of @code{(the-environment)} only +captures ``normal'' lexical bindings, and pattern variables bound by +@code{syntax-case}. It does not currently capture local syntax +transformers bound by @code{let-syntax}, @code{letrec-syntax} or +non-top-level @code{define-syntax} forms. Any attempt to reference such +captured syntactic keywords via @code{local-eval} or +@code{local-compile} produces an error. @c Local Variables: From 0133e13f3424db582f3f58c13d6f3dc0627bd53b Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 18:21:01 +0100 Subject: [PATCH 12/32] fix test-loose-ends * test-suite/standalone/test-loose-ends.c (test_scm_local_eval): Use ice-9 local-eval to get (the-environment). --- test-suite/standalone/test-loose-ends.c | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test-suite/standalone/test-loose-ends.c b/test-suite/standalone/test-loose-ends.c index f815ae253..d1d683175 100644 --- a/test-suite/standalone/test-loose-ends.c +++ b/test-suite/standalone/test-loose-ends.c @@ -45,7 +45,10 @@ test_scm_from_locale_keywordn () static void test_scm_local_eval () { - SCM result = scm_local_eval + SCM result; + + scm_c_use_module ("ice-9 local-eval"); + result = scm_local_eval (scm_list_3 (scm_from_latin1_symbol ("+"), scm_from_latin1_symbol ("x"), scm_from_latin1_symbol ("y")), From d4b5c773e46284ff1aedf0ff7a907f5a37deaf8d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 18:38:57 +0100 Subject: [PATCH 13/32] update NEWS * NEWS: Update. --- NEWS | 105 +++++++++++++++++++++++++++++++++++++++++++---------------- 1 file changed, 77 insertions(+), 28 deletions(-) diff --git a/NEWS b/NEWS index 9d546f0f8..ad0910ceb 100644 --- a/NEWS +++ b/NEWS @@ -25,6 +25,14 @@ different architecture. See the documentation for `--target' in the cross-compiler. See the "Cross building Guile" section of the README, for more on how to cross-compile Guile itself. +** The return of `local-eval'. + +Back by popular demand, `the-environment' and `local-eval' allow the +user to capture a lexical environment, and then evaluate arbitrary +expressions in that context. There is also a new `local-compile' +command. See "Local Evaluation" in the manual, for more. Special +thanks to Mark Weaver for an initial implementation of this feature. + ** Fluids can now have default values. Fluids are used for dynamic and thread-local binding. They have always @@ -77,7 +85,7 @@ default environment. See "Parameters" in the manual, for more information. `current-input-port', `current-output-port', and `current-error-port' are now parameters. -** Add `current-warning-port' +** Add `current-warning-port'. Guile now outputs warnings on a separate port, `current-warning-port', initialized to the value that `current-error-port' has on startup. @@ -97,51 +105,92 @@ locale. However for backwards compatibility with other 2.0.x releases, it does so without actually calling `setlocale'. Please report any bugs in this facility to bug-guile@gnu.org. +** One-armed conditionals: `when' and `unless' + +Guile finally has `when' and `unless' in the default environment. Use +them whenever you would use an `if' with only one branch. See +"Conditionals" in the manual, for more. + +** `current-filename', `add-to-load-path' + +There is a new form, `(current-filename)', which expands out to the +source file in which it occurs. Combined with the new +`add-to-load-path', this allows simple scripts to easily add nearby +directories to the load path. See "Load Paths" in the manual, for more. + +** `random-state-from-platform' + +This procedure initializes a random seed using good random sources +available on your platform, such as /dev/urandom. See "Random Number +Generation" in the manual, for more. + * New interfaces ** (ice-9 session): `apropos-hook' ** New print option: `escape-newlines', defaults to #t. ** (ice-9 ftw): `file-system-fold', `file-system-tree', `scandir' +** `scm_c_value_ref': access to multiple returned values from C +** Some new syntax helpers in (system syntax) + +Search the manual for these identifiers and modules, for more. + +* Build fixes + +** FreeBSD build fixes. +** OpenBSD compilation fixes. +** Solaris 2.10 test suite fixes. +** IA64 compilation fix. +** MinGW build fixes. +** Work around instruction reordering on SPARC and HPPA in the VM. +** Gnulib updates: added `dirfd', `setenv' modules. * Bug fixes -** Fix R6RS `fold-left' so the accumulator is the first argument. -** fix serialization. -** Fix bugs in the new `peval' optimizer. -** Allow values bound in non-tail let expressions to be collected. -** Fix bit-set*! bug from 2005. -** Fix bug in `make-repl' when `lang' is actually a language. -** Hack the port-column of current-output-port after printing a prompt. +** Add a deprecated alias for $expt. +** Add an exception printer for `getaddrinfo-error'. +** Add deprecated shim for `scm_display_error' with stack as first argument. +** Add warnings for unsupported `simple-format' options. +** Allow overlapping regions to be passed to `bytevector-copy!'. +** Avoid calling `u32_conv_from_encoding' on the null string. +** Better function prologue disassembly +** Compiler: fix miscompilation of (values foo ...) in some contexts. +** Compiler: fix serialization of #nil-terminated lists. +** Compiler: allow values bound in non-tail let expressions to be collected. +** Deprecate SCM_ASRTGO. +** Document invalidity of (begin) as expression; add back-compat shim. +** Don't leak file descriptors when mmaping objcode. +** Empty substrings no longer reference the original stringbuf. +** FFI: Fix `set-pointer-finalizer!' to leave the type cell unchanged. +** FFI: Fix signed/unsigned pointer mismatches in implementation. ** FFI: Hold a weak reference to the CIF made by `procedure->pointer'. ** FFI: Hold a weak reference to the procedure passed to `procedure->pointer'. ** FFI: Properly unpack small integer return values in closure call. -** Allow overlapping regions to be passed to `bytevector-copy!'. +** Fix R6RS `fold-left' so the accumulator is the first argument. ** Fix `validate-target' in (system base target). -** `,language' at REPL sets the current-language fluid. -** `primitive-load' returns the value(s) of the last expression. -** Add an exception printer for `getaddrinfo-error'. -** Add a deprecated alias for $expt. -** Document invalidity of (begin) as expression; add back-compat shim. -** Web: Allow URIs with empty authorities, like "file:///etc/hosts". -** HTTP: Fix validators for various list-style headers. +** Fix bit-set*! bug from 2005. +** Fix bug in `make-repl' when `lang' is actually a . +** Fix bugs related to mutation, the null string, and shared substrings. +** Fix serialization. +** Fix erroneous check in `set-procedure-properties!'. +** Fix generalized-vector-{ref,set!} for slices. ** HTTP: Extend handling of "Cache-Control" header. ** HTTP: Fix qstring writing of cache-extension values -** HTTP: `write-request-line' writes absolute paths, not absolute URIs. +** HTTP: Fix validators for various list-style headers. ** HTTP: Permit non-date values for Expires header. -** FreeBSD build fixes. -** Fix generalized-vector-{ref,set!} for slices. -** Fix erroneous check in `set-procedure-properties!'. -** Don't leak file descriptors when mmaping objcode. -** Fix bugs related to mutation, the null string, and shared substrings. -** Deprecate SCM_ASRTGO. -** Add deprecated shim for `scm_display_error' with stack as first argument. -** i18n: Fix gc_malloc/free mismatch on non-GNU systems. -** Make sure `regexp-quote' tests use Unicode-capable string ports. +** HTTP: `write-request-line' writes absolute paths, not absolute URIs. +** Hack the port-column of current-output-port after printing a prompt. ** Have `cpu-word-size' error out on unknown CPUs; add support for MIPSEL. +** Make sure `regexp-quote' tests use Unicode-capable string ports. +** Peval: Fix bugs in the new optimizer. +** Peval: fold (values FOO) to FOO in more cases +** Statistically unique marks and labels, for robust hygiene across sessions. +** Web: Allow URIs with empty authorities, like "file:///etc/hosts". +** `,language' at REPL sets the current-language fluid. +** `primitive-load' returns the value(s) of the last expression. ** `scm_from_stringn' always returns unique strings. -** Empty substrings no longer reference the original stringbuf. ** `scm_i_substring_copy' tries to narrow the substring. -** Avoid calling `u32_conv_from_encoding' on the null string. +** guile-readline: Clean `.go' files. +** i18n: Fix gc_malloc/free mismatch on non-GNU systems. Changes in 2.0.3 (since 2.0.2): From 40e92f09fc3330aa33a169ad1aa6bf458633984c Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Thu, 26 Jan 2012 23:55:24 -0500 Subject: [PATCH 14/32] Fix error messages involving definition forms * module/ice-9/psyntax.scm (syntax-type): Return an additional value that contains the entire form in _all_ cases, including for definition forms. Previously, the entire form was not returned for definition forms. (expand-expr): Add an additional argument that contains the entire form in _all_ cases, including for definition forms. Use it to include the entire form in error messages, notably for definitions in expression context. Include the source location information, which was previously missing from these errors when the rhs expression was an atom. Improve the "definition in expression context" error message to be more comprehensible for Scheme beginners. (expand-top-sequence, expand, expand-body): Adjust as needed to handle the additional return value from 'syntax-type' and the additional argument to 'expand-expr'. * module/ice-9/psyntax-pp.scm: Regenerate. * NEWS: Update. --- NEWS | 1 + module/ice-9/psyntax-pp.scm | 22721 +++++++++++++++++----------------- module/ice-9/psyntax.scm | 75 +- 3 files changed, 11472 insertions(+), 11325 deletions(-) diff --git a/NEWS b/NEWS index ad0910ceb..a91490568 100644 --- a/NEWS +++ b/NEWS @@ -173,6 +173,7 @@ Search the manual for these identifiers and modules, for more. ** Fix serialization. ** Fix erroneous check in `set-procedure-properties!'. ** Fix generalized-vector-{ref,set!} for slices. +** Fix error messages involving definition forms. ** HTTP: Extend handling of "Cache-Control" header. ** HTTP: Fix qstring writing of cache-extension values ** HTTP: Fix validators for various list-style headers. diff --git a/module/ice-9/psyntax-pp.scm b/module/ice-9/psyntax-pp.scm index 2f9c0d5d0..24343d8c8 100644 --- a/module/ice-9/psyntax-pp.scm +++ b/module/ice-9/psyntax-pp.scm @@ -1,1243 +1,1268 @@ (eval-when (compile) (set-current-module (resolve-module (quote (guile))))) (if #f #f) -(let ((session-id-4447 (if #f #f)) - (transformer-environment-4508 (if #f #f))) +(let ((session-id-6510 (if #f #f)) + (transformer-environment-6571 (if #f #f))) (letrec* - ((top-level-eval-hook-4445 - (lambda (x-27176 mod-27177) - (primitive-eval x-27176))) - (get-global-definition-hook-4449 - (lambda (symbol-15643 module-15644) + ((top-level-eval-hook-6508 + (lambda (x-29318 mod-29319) + (primitive-eval x-29318))) + (get-global-definition-hook-6512 + (lambda (symbol-17709 module-17710) (begin - (if (if (not module-15644) (current-module) #f) + (if (if (not module-17710) (current-module) #f) (warn "module system is booted, we should have a module" - symbol-15643)) - (let ((v-15645 + symbol-17709)) + (let ((v-17711 (module-variable - (if module-15644 - (resolve-module (cdr module-15644)) + (if module-17710 + (resolve-module (cdr module-17710)) (current-module)) - symbol-15643))) - (if v-15645 - (if (variable-bound? v-15645) - (let ((val-15647 (variable-ref v-15645))) - (if (macro? val-15647) - (if (macro-type val-15647) - (cons (macro-type val-15647) - (macro-binding val-15647)) + symbol-17709))) + (if v-17711 + (if (variable-bound? v-17711) + (let ((val-17713 (variable-ref v-17711))) + (if (macro? val-17713) + (if (macro-type val-17713) + (cons (macro-type val-17713) + (macro-binding val-17713)) #f) #f)) #f) #f))))) - (maybe-name-value!-4451 - (lambda (name-15924 val-15925) - (if (if (struct? val-15925) - (eq? (struct-vtable val-15925) + (maybe-name-value!-6514 + (lambda (name-17990 val-17991) + (if (if (struct? val-17991) + (eq? (struct-vtable val-17991) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15932 (struct-ref val-15925 1))) - (if (not (assq 'name meta-15932)) - (let ((v-15937 - (cons (cons 'name name-15924) meta-15932))) - (struct-set! val-15925 1 v-15937))))))) - (build-application-4453 - (lambda (source-15649 fun-exp-15650 arg-exps-15651) + (let ((meta-17998 (struct-ref val-17991 1))) + (if (not (assq 'name meta-17998)) + (let ((v-18003 + (cons (cons 'name name-17990) meta-17998))) + (struct-set! val-17991 1 v-18003))))))) + (build-application-6516 + (lambda (source-17715 fun-exp-17716 arg-exps-17717) (make-struct/no-tail (vector-ref %expanded-vtables 11) - source-15649 - fun-exp-15650 - arg-exps-15651))) - (build-conditional-4454 - (lambda (source-15657 - test-exp-15658 - then-exp-15659 - else-exp-15660) + source-17715 + fun-exp-17716 + arg-exps-17717))) + (build-conditional-6517 + (lambda (source-17723 + test-exp-17724 + then-exp-17725 + else-exp-17726) (make-struct/no-tail (vector-ref %expanded-vtables 10) - source-15657 - test-exp-15658 - then-exp-15659 - else-exp-15660))) - (build-dynlet-4455 - (lambda (source-15667 fluids-15668 vals-15669 body-15670) + source-17723 + test-exp-17724 + then-exp-17725 + else-exp-17726))) + (build-dynlet-6518 + (lambda (source-17733 fluids-17734 vals-17735 body-17736) (make-struct/no-tail (vector-ref %expanded-vtables 17) - source-15667 - fluids-15668 - vals-15669 - body-15670))) - (build-lexical-reference-4456 - (lambda (type-27178 source-27179 name-27180 var-27181) + source-17733 + fluids-17734 + vals-17735 + body-17736))) + (build-lexical-reference-6519 + (lambda (type-29320 source-29321 name-29322 var-29323) (make-struct/no-tail (vector-ref %expanded-vtables 3) - source-27179 - name-27180 - var-27181))) - (build-lexical-assignment-4457 - (lambda (source-15677 name-15678 var-15679 exp-15680) + source-29321 + name-29322 + var-29323))) + (build-lexical-assignment-6520 + (lambda (source-17743 name-17744 var-17745 exp-17746) (begin - (if (if (struct? exp-15680) - (eq? (struct-vtable exp-15680) + (if (if (struct? exp-17746) + (eq? (struct-vtable exp-17746) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15696 (struct-ref exp-15680 1))) - (if (not (assq 'name meta-15696)) - (let ((v-15703 - (cons (cons 'name name-15678) meta-15696))) - (struct-set! exp-15680 1 v-15703))))) + (let ((meta-17762 (struct-ref exp-17746 1))) + (if (not (assq 'name meta-17762)) + (let ((v-17769 + (cons (cons 'name name-17744) meta-17762))) + (struct-set! exp-17746 1 v-17769))))) (make-struct/no-tail (vector-ref %expanded-vtables 4) - source-15677 - name-15678 - var-15679 - exp-15680)))) - (analyze-variable-4458 - (lambda (mod-27187 - var-27188 - modref-cont-27189 - bare-cont-27190) - (if (not mod-27187) - (bare-cont-27190 var-27188) - (let ((kind-27191 (car mod-27187)) - (mod-27192 (cdr mod-27187))) - (if (eqv? kind-27191 'public) - (modref-cont-27189 mod-27192 var-27188 #t) - (if (eqv? kind-27191 'private) - (if (not (equal? mod-27192 (module-name (current-module)))) - (modref-cont-27189 mod-27192 var-27188 #f) - (bare-cont-27190 var-27188)) - (if (eqv? kind-27191 'bare) - (bare-cont-27190 var-27188) - (if (eqv? kind-27191 'hygiene) + source-17743 + name-17744 + var-17745 + exp-17746)))) + (analyze-variable-6521 + (lambda (mod-29329 + var-29330 + modref-cont-29331 + bare-cont-29332) + (if (not mod-29329) + (bare-cont-29332 var-29330) + (let ((kind-29333 (car mod-29329)) + (mod-29334 (cdr mod-29329))) + (if (eqv? kind-29333 'public) + (modref-cont-29331 mod-29334 var-29330 #t) + (if (eqv? kind-29333 'private) + (if (not (equal? mod-29334 (module-name (current-module)))) + (modref-cont-29331 mod-29334 var-29330 #f) + (bare-cont-29332 var-29330)) + (if (eqv? kind-29333 'bare) + (bare-cont-29332 var-29330) + (if (eqv? kind-29333 'hygiene) (if (if (not (equal? - mod-27192 + mod-29334 (module-name (current-module)))) (module-variable - (resolve-module mod-27192) - var-27188) + (resolve-module mod-29334) + var-29330) #f) - (modref-cont-27189 mod-27192 var-27188 #f) - (bare-cont-27190 var-27188)) + (modref-cont-29331 mod-29334 var-29330 #f) + (bare-cont-29332 var-29330)) (syntax-violation #f "bad module kind" - var-27188 - mod-27192))))))))) - (build-global-reference-4459 - (lambda (source-27207 var-27208 mod-27209) - (analyze-variable-4458 - mod-27209 - var-27208 - (lambda (mod-27212 var-27213 public?-27214) + var-29330 + mod-29334))))))))) + (build-global-reference-6522 + (lambda (source-29349 var-29350 mod-29351) + (analyze-variable-6521 + mod-29351 + var-29350 + (lambda (mod-29354 var-29355 public?-29356) (make-struct/no-tail (vector-ref %expanded-vtables 5) - source-27207 - mod-27212 - var-27213 - public?-27214)) - (lambda (var-27222) + source-29349 + mod-29354 + var-29355 + public?-29356)) + (lambda (var-29364) (make-struct/no-tail (vector-ref %expanded-vtables 7) - source-27207 - var-27222))))) - (build-global-assignment-4460 - (lambda (source-15712 var-15713 exp-15714 mod-15715) + source-29349 + var-29364))))) + (build-global-assignment-6523 + (lambda (source-17778 var-17779 exp-17780 mod-17781) (begin - (if (if (struct? exp-15714) - (eq? (struct-vtable exp-15714) + (if (if (struct? exp-17780) + (eq? (struct-vtable exp-17780) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15731 (struct-ref exp-15714 1))) - (if (not (assq 'name meta-15731)) - (let ((v-15738 - (cons (cons 'name var-15713) meta-15731))) - (struct-set! exp-15714 1 v-15738))))) - (analyze-variable-4458 - mod-15715 - var-15713 - (lambda (mod-15743 var-15744 public?-15745) + (let ((meta-17797 (struct-ref exp-17780 1))) + (if (not (assq 'name meta-17797)) + (let ((v-17804 + (cons (cons 'name var-17779) meta-17797))) + (struct-set! exp-17780 1 v-17804))))) + (analyze-variable-6521 + mod-17781 + var-17779 + (lambda (mod-17809 var-17810 public?-17811) (make-struct/no-tail (vector-ref %expanded-vtables 6) - source-15712 - mod-15743 - var-15744 - public?-15745 - exp-15714)) - (lambda (var-15753) + source-17778 + mod-17809 + var-17810 + public?-17811 + exp-17780)) + (lambda (var-17819) (make-struct/no-tail (vector-ref %expanded-vtables 8) - source-15712 - var-15753 - exp-15714)))))) - (build-global-definition-4461 - (lambda (source-27228 var-27229 exp-27230) + source-17778 + var-17819 + exp-17780)))))) + (build-global-definition-6524 + (lambda (source-29370 var-29371 exp-29372) (begin - (if (if (struct? exp-27230) - (eq? (struct-vtable exp-27230) + (if (if (struct? exp-29372) + (eq? (struct-vtable exp-29372) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-27246 (struct-ref exp-27230 1))) - (if (not (assq 'name meta-27246)) - (let ((v-27253 - (cons (cons 'name var-27229) meta-27246))) - (struct-set! exp-27230 1 v-27253))))) + (let ((meta-29388 (struct-ref exp-29372 1))) + (if (not (assq 'name meta-29388)) + (let ((v-29395 + (cons (cons 'name var-29371) meta-29388))) + (struct-set! exp-29372 1 v-29395))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) - source-27228 - var-27229 - exp-27230)))) - (build-simple-lambda-4462 - (lambda (src-15759 - req-15760 - rest-15761 - vars-15762 - meta-15763 - exp-15764) - (let ((body-15770 + source-29370 + var-29371 + exp-29372)))) + (build-simple-lambda-6525 + (lambda (src-17825 + req-17826 + rest-17827 + vars-17828 + meta-17829 + exp-17830) + (let ((body-17836 (make-struct/no-tail (vector-ref %expanded-vtables 14) - src-15759 - req-15760 + src-17825 + req-17826 #f - rest-15761 + rest-17827 #f '() - vars-15762 - exp-15764 + vars-17828 + exp-17830 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-15759 - meta-15763 - body-15770)))) - (build-sequence-4467 - (lambda (src-27261 exps-27262) - (if (null? (cdr exps-27262)) - (car exps-27262) + src-17825 + meta-17829 + body-17836)))) + (build-sequence-6530 + (lambda (src-29403 exps-29404) + (if (null? (cdr exps-29404)) + (car exps-29404) (make-struct/no-tail (vector-ref %expanded-vtables 12) - src-27261 - exps-27262)))) - (build-let-4468 - (lambda (src-15782 - ids-15783 - vars-15784 - val-exps-15785 - body-exp-15786) + src-29403 + exps-29404)))) + (build-let-6531 + (lambda (src-17848 + ids-17849 + vars-17850 + val-exps-17851 + body-exp-17852) (begin (for-each - maybe-name-value!-4451 - ids-15783 - val-exps-15785) - (if (null? vars-15784) - body-exp-15786 + maybe-name-value!-6514 + ids-17849 + val-exps-17851) + (if (null? vars-17850) + body-exp-17852 (make-struct/no-tail (vector-ref %expanded-vtables 15) - src-15782 - ids-15783 - vars-15784 - val-exps-15785 - body-exp-15786))))) - (build-named-let-4469 - (lambda (src-15810 - ids-15811 - vars-15812 - val-exps-15813 - body-exp-15814) - (let ((f-15815 (car vars-15812)) - (f-name-15816 (car ids-15811)) - (vars-15817 (cdr vars-15812)) - (ids-15818 (cdr ids-15811))) - (let ((proc-15819 - (let ((body-15839 + src-17848 + ids-17849 + vars-17850 + val-exps-17851 + body-exp-17852))))) + (build-named-let-6532 + (lambda (src-17876 + ids-17877 + vars-17878 + val-exps-17879 + body-exp-17880) + (let ((f-17881 (car vars-17878)) + (f-name-17882 (car ids-17877)) + (vars-17883 (cdr vars-17878)) + (ids-17884 (cdr ids-17877))) + (let ((proc-17885 + (let ((body-17905 (make-struct/no-tail (vector-ref %expanded-vtables 14) - src-15810 - ids-15818 + src-17876 + ids-17884 #f #f #f '() - vars-15817 - body-exp-15814 + vars-17883 + body-exp-17880 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) - src-15810 + src-17876 '() - body-15839)))) + body-17905)))) (begin - (if (if (struct? proc-15819) - (eq? (struct-vtable proc-15819) + (if (if (struct? proc-17885) + (eq? (struct-vtable proc-17885) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-15863 (struct-ref proc-15819 1))) - (if (not (assq 'name meta-15863)) - (let ((v-15870 - (cons (cons 'name f-name-15816) meta-15863))) - (struct-set! proc-15819 1 v-15870))))) + (let ((meta-17929 (struct-ref proc-17885 1))) + (if (not (assq 'name meta-17929)) + (let ((v-17936 + (cons (cons 'name f-name-17882) meta-17929))) + (struct-set! proc-17885 1 v-17936))))) (for-each - maybe-name-value!-4451 - ids-15818 - val-exps-15813) - (let ((names-15894 (list f-name-15816)) - (gensyms-15895 (list f-15815)) - (vals-15896 (list proc-15819)) - (body-15897 - (let ((fun-exp-15901 + maybe-name-value!-6514 + ids-17884 + val-exps-17879) + (let ((names-17960 (list f-name-17882)) + (gensyms-17961 (list f-17881)) + (vals-17962 (list proc-17885)) + (body-17963 + (let ((fun-exp-17967 (make-struct/no-tail (vector-ref %expanded-vtables 3) - src-15810 - f-name-15816 - f-15815))) + src-17876 + f-name-17882 + f-17881))) (make-struct/no-tail (vector-ref %expanded-vtables 11) - src-15810 - fun-exp-15901 - val-exps-15813)))) + src-17876 + fun-exp-17967 + val-exps-17879)))) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-15810 + src-17876 #f - names-15894 - gensyms-15895 - vals-15896 - body-15897))))))) - (build-letrec-4470 - (lambda (src-15917 - in-order?-15918 - ids-15919 - vars-15920 - val-exps-15921 - body-exp-15922) - (if (null? vars-15920) - body-exp-15922 + names-17960 + gensyms-17961 + vals-17962 + body-17963))))))) + (build-letrec-6533 + (lambda (src-17983 + in-order?-17984 + ids-17985 + vars-17986 + val-exps-17987 + body-exp-17988) + (if (null? vars-17986) + body-exp-17988 (begin (for-each - maybe-name-value!-4451 - ids-15919 - val-exps-15921) + maybe-name-value!-6514 + ids-17985 + val-exps-17987) (make-struct/no-tail (vector-ref %expanded-vtables 16) - src-15917 - in-order?-15918 - ids-15919 - vars-15920 - val-exps-15921 - body-exp-15922))))) - (source-annotation-4479 - (lambda (x-15948) - (if (if (vector? x-15948) - (if (= (vector-length x-15948) 4) - (eq? (vector-ref x-15948 0) 'syntax-object) + src-17983 + in-order?-17984 + ids-17985 + vars-17986 + val-exps-17987 + body-exp-17988))))) + (source-annotation-6542 + (lambda (x-18014) + (if (if (vector? x-18014) + (if (= (vector-length x-18014) 4) + (eq? (vector-ref x-18014 0) 'syntax-object) #f) #f) - (source-annotation-4479 (vector-ref x-15948 1)) - (if (pair? x-15948) - (let ((props-15963 (source-properties x-15948))) - (if (pair? props-15963) props-15963 #f)) + (source-annotation-6542 (vector-ref x-18014 1)) + (if (pair? x-18014) + (let ((props-18029 (source-properties x-18014))) + (if (pair? props-18029) props-18029 #f)) #f)))) - (extend-env-4480 - (lambda (labels-15965 bindings-15966 r-15967) - (if (null? labels-15965) - r-15967 - (extend-env-4480 - (cdr labels-15965) - (cdr bindings-15966) - (cons (cons (car labels-15965) (car bindings-15966)) - r-15967))))) - (extend-var-env-4481 - (lambda (labels-15968 vars-15969 r-15970) - (if (null? labels-15968) - r-15970 - (extend-var-env-4481 - (cdr labels-15968) - (cdr vars-15969) - (cons (cons (car labels-15968) - (cons 'lexical (car vars-15969))) - r-15970))))) - (macros-only-env-4482 - (lambda (r-15971) - (if (null? r-15971) + (extend-env-6543 + (lambda (labels-18031 bindings-18032 r-18033) + (if (null? labels-18031) + r-18033 + (extend-env-6543 + (cdr labels-18031) + (cdr bindings-18032) + (cons (cons (car labels-18031) (car bindings-18032)) + r-18033))))) + (extend-var-env-6544 + (lambda (labels-18034 vars-18035 r-18036) + (if (null? labels-18034) + r-18036 + (extend-var-env-6544 + (cdr labels-18034) + (cdr vars-18035) + (cons (cons (car labels-18034) + (cons 'lexical (car vars-18035))) + r-18036))))) + (macros-only-env-6545 + (lambda (r-18037) + (if (null? r-18037) '() - (let ((a-15972 (car r-15971))) - (if (eq? (car (cdr a-15972)) 'macro) - (cons a-15972 - (macros-only-env-4482 (cdr r-15971))) - (macros-only-env-4482 (cdr r-15971))))))) - (global-extend-4484 - (lambda (type-15974 sym-15975 val-15976) + (let ((a-18038 (car r-18037))) + (if (eq? (car (cdr a-18038)) 'macro) + (cons a-18038 + (macros-only-env-6545 (cdr r-18037))) + (macros-only-env-6545 (cdr r-18037))))))) + (global-extend-6547 + (lambda (type-18040 sym-18041 val-18042) (module-define! (current-module) - sym-15975 + sym-18041 (make-syntax-transformer - sym-15975 - type-15974 - val-15976)))) - (id?-4486 - (lambda (x-9787) - (if (symbol? x-9787) + sym-18041 + type-18040 + val-18042)))) + (id?-6549 + (lambda (x-11853) + (if (symbol? x-11853) #t - (if (if (vector? x-9787) - (if (= (vector-length x-9787) 4) - (eq? (vector-ref x-9787 0) 'syntax-object) + (if (if (vector? x-11853) + (if (= (vector-length x-11853) 4) + (eq? (vector-ref x-11853 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-9787 1)) + (symbol? (vector-ref x-11853 1)) #f)))) - (gen-labels-4489 - (lambda (ls-15986) - (if (null? ls-15986) + (gen-labels-6552 + (lambda (ls-18052) + (if (null? ls-18052) '() (cons (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))) - (gen-labels-4489 (cdr ls-15986)))))) - (make-binding-wrap-4500 - (lambda (ids-15990 labels-15991 w-15992) - (if (null? ids-15990) - w-15992 - (cons (car w-15992) - (cons (let ((labelvec-15993 (list->vector labels-15991))) - (let ((n-15994 (vector-length labelvec-15993))) - (let ((symnamevec-15995 (make-vector n-15994)) - (marksvec-15996 (make-vector n-15994))) + (gen-labels-6552 (cdr ls-18052)))))) + (make-binding-wrap-6563 + (lambda (ids-18056 labels-18057 w-18058) + (if (null? ids-18056) + w-18058 + (cons (car w-18058) + (cons (let ((labelvec-18059 (list->vector labels-18057))) + (let ((n-18060 (vector-length labelvec-18059))) + (let ((symnamevec-18061 (make-vector n-18060)) + (marksvec-18062 (make-vector n-18060))) (begin (letrec* - ((f-15997 - (lambda (ids-16000 i-16001) - (if (not (null? ids-16000)) + ((f-18063 + (lambda (ids-18066 i-18067) + (if (not (null? ids-18066)) (call-with-values (lambda () - (let ((x-16004 (car ids-16000))) - (if (if (vector? x-16004) + (let ((x-18070 (car ids-18066))) + (if (if (vector? x-18070) (if (= (vector-length - x-16004) + x-18070) 4) (eq? (vector-ref - x-16004 + x-18070 0) 'syntax-object) #f) #f) (values - (vector-ref x-16004 1) - (let ((m1-16020 - (car w-15992)) - (m2-16021 + (vector-ref x-18070 1) + (let ((m1-18086 + (car w-18058)) + (m2-18087 (car (vector-ref - x-16004 + x-18070 2)))) - (if (null? m2-16021) - m1-16020 + (if (null? m2-18087) + m1-18086 (append - m1-16020 - m2-16021)))) + m1-18086 + m2-18087)))) (values - x-16004 - (car w-15992))))) - (lambda (symname-16041 marks-16042) + x-18070 + (car w-18058))))) + (lambda (symname-18107 marks-18108) (begin (vector-set! - symnamevec-15995 - i-16001 - symname-16041) + symnamevec-18061 + i-18067 + symname-18107) (vector-set! - marksvec-15996 - i-16001 - marks-16042) - (f-15997 - (cdr ids-16000) - (#{1+}# i-16001))))))))) - (f-15997 ids-15990 0)) + marksvec-18062 + i-18067 + marks-18108) + (f-18063 + (cdr ids-18066) + (#{1+}# i-18067))))))))) + (f-18063 ids-18056 0)) (vector 'ribcage - symnamevec-15995 - marksvec-15996 - labelvec-15993))))) - (cdr w-15992)))))) - (join-wraps-4502 - (lambda (w1-16051 w2-16052) - (let ((m1-16053 (car w1-16051)) - (s1-16054 (cdr w1-16051))) - (if (null? m1-16053) - (if (null? s1-16054) - w2-16052 - (cons (car w2-16052) - (let ((m2-16061 (cdr w2-16052))) - (if (null? m2-16061) - s1-16054 - (append s1-16054 m2-16061))))) - (cons (let ((m2-16070 (car w2-16052))) - (if (null? m2-16070) - m1-16053 - (append m1-16053 m2-16070))) - (let ((m2-16079 (cdr w2-16052))) - (if (null? m2-16079) - s1-16054 - (append s1-16054 m2-16079)))))))) - (same-marks?-4504 - (lambda (x-16084 y-16085) - (if (eq? x-16084 y-16085) - (eq? x-16084 y-16085) - (if (not (null? x-16084)) - (if (not (null? y-16085)) - (if (eq? (car x-16084) (car y-16085)) - (same-marks?-4504 (cdr x-16084) (cdr y-16085)) + symnamevec-18061 + marksvec-18062 + labelvec-18059))))) + (cdr w-18058)))))) + (join-wraps-6565 + (lambda (w1-18117 w2-18118) + (let ((m1-18119 (car w1-18117)) + (s1-18120 (cdr w1-18117))) + (if (null? m1-18119) + (if (null? s1-18120) + w2-18118 + (cons (car w2-18118) + (let ((m2-18127 (cdr w2-18118))) + (if (null? m2-18127) + s1-18120 + (append s1-18120 m2-18127))))) + (cons (let ((m2-18136 (car w2-18118))) + (if (null? m2-18136) + m1-18119 + (append m1-18119 m2-18136))) + (let ((m2-18145 (cdr w2-18118))) + (if (null? m2-18145) + s1-18120 + (append s1-18120 m2-18145)))))))) + (same-marks?-6567 + (lambda (x-18150 y-18151) + (if (eq? x-18150 y-18151) + (eq? x-18150 y-18151) + (if (not (null? x-18150)) + (if (not (null? y-18151)) + (if (eq? (car x-18150) (car y-18151)) + (same-marks?-6567 (cdr x-18150) (cdr y-18151)) #f) #f) #f)))) - (id-var-name-4505 - (lambda (id-16093 w-16094) + (id-var-name-6568 + (lambda (id-18159 w-18160) (letrec* - ((search-16095 - (lambda (sym-16156 subst-16157 marks-16158) - (if (null? subst-16157) - (values #f marks-16158) - (let ((fst-16159 (car subst-16157))) - (if (eq? fst-16159 'shift) - (search-16095 - sym-16156 - (cdr subst-16157) - (cdr marks-16158)) - (let ((symnames-16161 (vector-ref fst-16159 1))) - (if (vector? symnames-16161) - (let ((n-16173 (vector-length symnames-16161))) + ((search-18161 + (lambda (sym-18222 subst-18223 marks-18224) + (if (null? subst-18223) + (values #f marks-18224) + (let ((fst-18225 (car subst-18223))) + (if (eq? fst-18225 'shift) + (search-18161 + sym-18222 + (cdr subst-18223) + (cdr marks-18224)) + (let ((symnames-18227 (vector-ref fst-18225 1))) + (if (vector? symnames-18227) + (let ((n-18239 (vector-length symnames-18227))) (letrec* - ((f-16174 - (lambda (i-16176) - (if (= i-16176 n-16173) - (search-16095 - sym-16156 - (cdr subst-16157) - marks-16158) + ((f-18240 + (lambda (i-18242) + (if (= i-18242 n-18239) + (search-18161 + sym-18222 + (cdr subst-18223) + marks-18224) (if (if (eq? (vector-ref - symnames-16161 - i-16176) - sym-16156) - (same-marks?-4504 - marks-16158 + symnames-18227 + i-18242) + sym-18222) + (same-marks?-6567 + marks-18224 (vector-ref - (vector-ref fst-16159 2) - i-16176)) + (vector-ref fst-18225 2) + i-18242)) #f) (values (vector-ref - (vector-ref fst-16159 3) - i-16176) - marks-16158) - (f-16174 (#{1+}# i-16176))))))) - (f-16174 0))) + (vector-ref fst-18225 3) + i-18242) + marks-18224) + (f-18240 (#{1+}# i-18242))))))) + (f-18240 0))) (letrec* - ((f-16209 - (lambda (symnames-16211 i-16212) - (if (null? symnames-16211) - (search-16095 - sym-16156 - (cdr subst-16157) - marks-16158) - (if (if (eq? (car symnames-16211) sym-16156) - (same-marks?-4504 - marks-16158 + ((f-18275 + (lambda (symnames-18277 i-18278) + (if (null? symnames-18277) + (search-18161 + sym-18222 + (cdr subst-18223) + marks-18224) + (if (if (eq? (car symnames-18277) sym-18222) + (same-marks?-6567 + marks-18224 (list-ref - (vector-ref fst-16159 2) - i-16212)) + (vector-ref fst-18225 2) + i-18278)) #f) (values (list-ref - (vector-ref fst-16159 3) - i-16212) - marks-16158) - (f-16209 - (cdr symnames-16211) - (#{1+}# i-16212))))))) - (f-16209 symnames-16161 0)))))))))) - (if (symbol? id-16093) - (let ((t-16098 - (search-16095 - id-16093 - (cdr w-16094) - (car w-16094)))) - (if t-16098 t-16098 id-16093)) - (if (if (vector? id-16093) - (if (= (vector-length id-16093) 4) - (eq? (vector-ref id-16093 0) 'syntax-object) + (vector-ref fst-18225 3) + i-18278) + marks-18224) + (f-18275 + (cdr symnames-18277) + (#{1+}# i-18278))))))) + (f-18275 symnames-18227 0)))))))))) + (if (symbol? id-18159) + (let ((t-18164 + (search-18161 + id-18159 + (cdr w-18160) + (car w-18160)))) + (if t-18164 t-18164 id-18159)) + (if (if (vector? id-18159) + (if (= (vector-length id-18159) 4) + (eq? (vector-ref id-18159 0) 'syntax-object) #f) #f) - (let ((id-16113 (vector-ref id-16093 1)) - (w1-16114 (vector-ref id-16093 2))) - (let ((marks-16115 - (let ((m1-16125 (car w-16094)) - (m2-16126 (car w1-16114))) - (if (null? m2-16126) - m1-16125 - (append m1-16125 m2-16126))))) + (let ((id-18179 (vector-ref id-18159 1)) + (w1-18180 (vector-ref id-18159 2))) + (let ((marks-18181 + (let ((m1-18191 (car w-18160)) + (m2-18192 (car w1-18180))) + (if (null? m2-18192) + m1-18191 + (append m1-18191 m2-18192))))) (call-with-values (lambda () - (search-16095 id-16113 (cdr w-16094) marks-16115)) - (lambda (new-id-16142 marks-16143) - (if new-id-16142 - new-id-16142 - (let ((t-16151 - (search-16095 - id-16113 - (cdr w1-16114) - marks-16143))) - (if t-16151 t-16151 id-16113))))))) + (search-18161 id-18179 (cdr w-18160) marks-18181)) + (lambda (new-id-18208 marks-18209) + (if new-id-18208 + new-id-18208 + (let ((t-18217 + (search-18161 + id-18179 + (cdr w1-18180) + marks-18209))) + (if t-18217 t-18217 id-18179))))))) (syntax-violation 'id-var-name "invalid id" - id-16093)))))) - (locally-bound-identifiers-4506 - (lambda (w-16234 mod-16235) + id-18159)))))) + (locally-bound-identifiers-6569 + (lambda (w-18300 mod-18301) (letrec* - ((scan-16236 - (lambda (subst-16241 results-16242) - (if (null? subst-16241) - results-16242 - (let ((fst-16243 (car subst-16241))) - (if (eq? fst-16243 'shift) - (scan-16236 (cdr subst-16241) results-16242) - (let ((symnames-16245 (vector-ref fst-16243 1)) - (marks-16246 (vector-ref fst-16243 2))) - (if (vector? symnames-16245) - (scan-vector-rib-16238 - subst-16241 - symnames-16245 - marks-16246 - results-16242) - (scan-list-rib-16237 - subst-16241 - symnames-16245 - marks-16246 - results-16242)))))))) - (scan-list-rib-16237 - (lambda (subst-16344 - symnames-16345 - marks-16346 - results-16347) + ((scan-18302 + (lambda (subst-18307 results-18308) + (if (null? subst-18307) + results-18308 + (let ((fst-18309 (car subst-18307))) + (if (eq? fst-18309 'shift) + (scan-18302 (cdr subst-18307) results-18308) + (let ((symnames-18311 (vector-ref fst-18309 1)) + (marks-18312 (vector-ref fst-18309 2))) + (if (vector? symnames-18311) + (scan-vector-rib-18304 + subst-18307 + symnames-18311 + marks-18312 + results-18308) + (scan-list-rib-18303 + subst-18307 + symnames-18311 + marks-18312 + results-18308)))))))) + (scan-list-rib-18303 + (lambda (subst-18410 + symnames-18411 + marks-18412 + results-18413) (letrec* - ((f-16348 - (lambda (symnames-16448 marks-16449 results-16450) - (if (null? symnames-16448) - (scan-16236 (cdr subst-16344) results-16450) - (f-16348 - (cdr symnames-16448) - (cdr marks-16449) - (cons (wrap-4515 - (car symnames-16448) - (let ((w-16458 - (cons (car marks-16449) - subst-16344))) - (cons (cons #f (car w-16458)) - (cons 'shift (cdr w-16458)))) - mod-16235) - results-16450)))))) - (f-16348 - symnames-16345 - marks-16346 - results-16347)))) - (scan-vector-rib-16238 - (lambda (subst-16459 - symnames-16460 - marks-16461 - results-16462) - (let ((n-16463 (vector-length symnames-16460))) + ((f-18414 + (lambda (symnames-18514 marks-18515 results-18516) + (if (null? symnames-18514) + (scan-18302 (cdr subst-18410) results-18516) + (f-18414 + (cdr symnames-18514) + (cdr marks-18515) + (cons (wrap-6578 + (car symnames-18514) + (let ((w-18524 + (cons (car marks-18515) + subst-18410))) + (cons (cons #f (car w-18524)) + (cons 'shift (cdr w-18524)))) + mod-18301) + results-18516)))))) + (f-18414 + symnames-18411 + marks-18412 + results-18413)))) + (scan-vector-rib-18304 + (lambda (subst-18525 + symnames-18526 + marks-18527 + results-18528) + (let ((n-18529 (vector-length symnames-18526))) (letrec* - ((f-16464 - (lambda (i-16547 results-16548) - (if (= i-16547 n-16463) - (scan-16236 (cdr subst-16459) results-16548) - (f-16464 - (#{1+}# i-16547) - (cons (wrap-4515 - (vector-ref symnames-16460 i-16547) - (let ((w-16556 + ((f-18530 + (lambda (i-18613 results-18614) + (if (= i-18613 n-18529) + (scan-18302 (cdr subst-18525) results-18614) + (f-18530 + (#{1+}# i-18613) + (cons (wrap-6578 + (vector-ref symnames-18526 i-18613) + (let ((w-18622 (cons (vector-ref - marks-16461 - i-16547) - subst-16459))) - (cons (cons #f (car w-16556)) - (cons 'shift (cdr w-16556)))) - mod-16235) - results-16548)))))) - (f-16464 0 results-16462)))))) - (scan-16236 (cdr w-16234) '())))) - (valid-bound-ids?-4512 - (lambda (ids-16557) + marks-18527 + i-18613) + subst-18525))) + (cons (cons #f (car w-18622)) + (cons 'shift (cdr w-18622)))) + mod-18301) + results-18614)))))) + (f-18530 0 results-18528)))))) + (scan-18302 (cdr w-18300) '())))) + (valid-bound-ids?-6575 + (lambda (ids-18623) (if (letrec* - ((all-ids?-16558 - (lambda (ids-16720) - (if (null? ids-16720) - (null? ids-16720) - (if (let ((x-16731 (car ids-16720))) - (if (symbol? x-16731) + ((all-ids?-18624 + (lambda (ids-18786) + (if (null? ids-18786) + (null? ids-18786) + (if (let ((x-18797 (car ids-18786))) + (if (symbol? x-18797) #t - (if (if (vector? x-16731) - (if (= (vector-length x-16731) 4) - (eq? (vector-ref x-16731 0) + (if (if (vector? x-18797) + (if (= (vector-length x-18797) 4) + (eq? (vector-ref x-18797 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-16731 1)) + (symbol? (vector-ref x-18797 1)) #f))) - (all-ids?-16558 (cdr ids-16720)) + (all-ids?-18624 (cdr ids-18786)) #f))))) - (all-ids?-16558 ids-16557)) - (distinct-bound-ids?-4513 ids-16557) + (all-ids?-18624 ids-18623)) + (distinct-bound-ids?-6576 ids-18623) #f))) - (distinct-bound-ids?-4513 - (lambda (ids-16859) + (distinct-bound-ids?-6576 + (lambda (ids-18925) (letrec* - ((distinct?-16860 - (lambda (ids-16972) - (if (null? ids-16972) - (null? ids-16972) - (if (not (bound-id-member?-4514 - (car ids-16972) - (cdr ids-16972))) - (distinct?-16860 (cdr ids-16972)) + ((distinct?-18926 + (lambda (ids-19038) + (if (null? ids-19038) + (null? ids-19038) + (if (not (bound-id-member?-6577 + (car ids-19038) + (cdr ids-19038))) + (distinct?-18926 (cdr ids-19038)) #f))))) - (distinct?-16860 ids-16859)))) - (bound-id-member?-4514 - (lambda (x-17182 list-17183) - (if (not (null? list-17183)) - (let ((t-17184 - (let ((j-17265 (car list-17183))) - (if (if (if (vector? x-17182) - (if (= (vector-length x-17182) 4) - (eq? (vector-ref x-17182 0) 'syntax-object) + (distinct?-18926 ids-18925)))) + (bound-id-member?-6577 + (lambda (x-19248 list-19249) + (if (not (null? list-19249)) + (let ((t-19250 + (let ((j-19331 (car list-19249))) + (if (if (if (vector? x-19248) + (if (= (vector-length x-19248) 4) + (eq? (vector-ref x-19248 0) 'syntax-object) #f) #f) - (if (vector? j-17265) - (if (= (vector-length j-17265) 4) - (eq? (vector-ref j-17265 0) 'syntax-object) + (if (vector? j-19331) + (if (= (vector-length j-19331) 4) + (eq? (vector-ref j-19331 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref x-17182 1) - (vector-ref j-17265 1)) - (same-marks?-4504 - (car (vector-ref x-17182 2)) - (car (vector-ref j-17265 2))) + (if (eq? (vector-ref x-19248 1) + (vector-ref j-19331 1)) + (same-marks?-6567 + (car (vector-ref x-19248 2)) + (car (vector-ref j-19331 2))) #f) - (eq? x-17182 j-17265))))) - (if t-17184 - t-17184 - (bound-id-member?-4514 x-17182 (cdr list-17183)))) + (eq? x-19248 j-19331))))) + (if t-19250 + t-19250 + (bound-id-member?-6577 x-19248 (cdr list-19249)))) #f))) - (wrap-4515 - (lambda (x-17309 w-17310 defmod-17311) - (if (if (null? (car w-17310)) - (null? (cdr w-17310)) + (wrap-6578 + (lambda (x-19375 w-19376 defmod-19377) + (if (if (null? (car w-19376)) + (null? (cdr w-19376)) #f) - x-17309 - (if (if (vector? x-17309) - (if (= (vector-length x-17309) 4) - (eq? (vector-ref x-17309 0) 'syntax-object) + x-19375 + (if (if (vector? x-19375) + (if (= (vector-length x-19375) 4) + (eq? (vector-ref x-19375 0) 'syntax-object) #f) #f) - (let ((expression-17325 (vector-ref x-17309 1)) - (wrap-17326 - (join-wraps-4502 w-17310 (vector-ref x-17309 2))) - (module-17327 (vector-ref x-17309 3))) + (let ((expression-19391 (vector-ref x-19375 1)) + (wrap-19392 + (join-wraps-6565 w-19376 (vector-ref x-19375 2))) + (module-19393 (vector-ref x-19375 3))) (vector 'syntax-object - expression-17325 - wrap-17326 - module-17327)) - (if (null? x-17309) - x-17309 + expression-19391 + wrap-19392 + module-19393)) + (if (null? x-19375) + x-19375 (vector 'syntax-object - x-17309 - w-17310 - defmod-17311)))))) - (source-wrap-4516 - (lambda (x-17344 w-17345 s-17346 defmod-17347) - (wrap-4515 + x-19375 + w-19376 + defmod-19377)))))) + (source-wrap-6579 + (lambda (x-19410 w-19411 s-19412 defmod-19413) + (wrap-6578 (begin - (if (if (pair? x-17344) s-17346 #f) - (set-source-properties! x-17344 s-17346)) - x-17344) - w-17345 - defmod-17347))) - (expand-sequence-4517 - (lambda (body-27267 r-27268 w-27269 s-27270 mod-27271) - (build-sequence-4467 - s-27270 + (if (if (pair? x-19410) s-19412 #f) + (set-source-properties! x-19410 s-19412)) + x-19410) + w-19411 + defmod-19413))) + (expand-sequence-6580 + (lambda (body-29409 r-29410 w-29411 s-29412 mod-29413) + (build-sequence-6530 + s-29412 (letrec* - ((dobody-27351 - (lambda (body-27701 r-27702 w-27703 mod-27704) - (if (null? body-27701) + ((dobody-29493 + (lambda (body-29833 r-29834 w-29835 mod-29836) + (if (null? body-29833) '() - (let ((first-27705 - (let ((e-27709 (car body-27701))) + (let ((first-29837 + (let ((e-29841 (car body-29833))) (call-with-values (lambda () - (syntax-type-4521 - e-27709 - r-27702 - w-27703 - (source-annotation-4479 e-27709) + (syntax-type-6584 + e-29841 + r-29834 + w-29835 + (source-annotation-6542 e-29841) #f - mod-27704 + mod-29836 #f)) - (lambda (type-27716 - value-27717 - e-27718 - w-27719 - s-27720 - mod-27721) - (expand-expr-4523 - type-27716 - value-27717 - e-27718 - r-27702 - w-27719 - s-27720 - mod-27721)))))) - (cons first-27705 - (dobody-27351 - (cdr body-27701) - r-27702 - w-27703 - mod-27704))))))) - (dobody-27351 - body-27267 - r-27268 - w-27269 - mod-27271))))) - (expand-top-sequence-4518 - (lambda (body-17365 - r-17366 - w-17367 - s-17368 - m-17369 - esew-17370 - mod-17371) + (lambda (type-29848 + value-29849 + form-29850 + e-29851 + w-29852 + s-29853 + mod-29854) + (expand-expr-6586 + type-29848 + value-29849 + form-29850 + e-29851 + r-29834 + w-29852 + s-29853 + mod-29854)))))) + (cons first-29837 + (dobody-29493 + (cdr body-29833) + r-29834 + w-29835 + mod-29836))))))) + (dobody-29493 + body-29409 + r-29410 + w-29411 + mod-29413))))) + (expand-top-sequence-6581 + (lambda (body-19431 + r-19432 + w-19433 + s-19434 + m-19435 + esew-19436 + mod-19437) (letrec* - ((scan-17372 - (lambda (body-17503 - r-17504 - w-17505 - s-17506 - m-17507 - esew-17508 - mod-17509 - exps-17510) - (if (null? body-17503) - exps-17510 + ((scan-19438 + (lambda (body-19569 + r-19570 + w-19571 + s-19572 + m-19573 + esew-19574 + mod-19575 + exps-19576) + (if (null? body-19569) + exps-19576 (call-with-values (lambda () (call-with-values (lambda () - (let ((e-17511 (car body-17503))) - (syntax-type-4521 - e-17511 - r-17504 - w-17505 - (let ((t-17515 (source-annotation-4479 e-17511))) - (if t-17515 t-17515 s-17506)) + (let ((e-19577 (car body-19569))) + (syntax-type-6584 + e-19577 + r-19570 + w-19571 + (let ((t-19581 (source-annotation-6542 e-19577))) + (if t-19581 t-19581 s-19572)) #f - mod-17509 + mod-19575 #f))) - (lambda (type-17750 - value-17751 - e-17752 - w-17753 - s-17754 - mod-17755) - (if (eqv? type-17750 'begin-form) - (let ((tmp-17760 ($sc-dispatch e-17752 '(_)))) - (if tmp-17760 - (@apply (lambda () exps-17510) tmp-17760) - (let ((tmp-17764 + (lambda (type-19816 + value-19817 + form-19818 + e-19819 + w-19820 + s-19821 + mod-19822) + (if (eqv? type-19816 'begin-form) + (let ((tmp-19827 ($sc-dispatch e-19819 '(_)))) + (if tmp-19827 + (@apply (lambda () exps-19576) tmp-19827) + (let ((tmp-19831 ($sc-dispatch - e-17752 + e-19819 '(_ any . each-any)))) - (if tmp-17764 + (if tmp-19831 (@apply - (lambda (e1-17768 e2-17769) - (scan-17372 - (cons e1-17768 e2-17769) - r-17504 - w-17753 - s-17754 - m-17507 - esew-17508 - mod-17755 - exps-17510)) - tmp-17764) + (lambda (e1-19835 e2-19836) + (scan-19438 + (cons e1-19835 e2-19836) + r-19570 + w-19820 + s-19821 + m-19573 + esew-19574 + mod-19822 + exps-19576)) + tmp-19831) (syntax-violation #f "source expression failed to match any pattern" - e-17752))))) - (if (eqv? type-17750 'local-syntax-form) - (expand-local-syntax-4527 - value-17751 - e-17752 - r-17504 - w-17753 - s-17754 - mod-17755 - (lambda (body-17784 - r-17785 - w-17786 - s-17787 - mod-17788) - (scan-17372 - body-17784 - r-17785 - w-17786 - s-17787 - m-17507 - esew-17508 - mod-17788 - exps-17510))) - (if (eqv? type-17750 'eval-when-form) - (let ((tmp-17793 + e-19819))))) + (if (eqv? type-19816 'local-syntax-form) + (expand-local-syntax-6590 + value-19817 + e-19819 + r-19570 + w-19820 + s-19821 + mod-19822 + (lambda (body-19851 + r-19852 + w-19853 + s-19854 + mod-19855) + (scan-19438 + body-19851 + r-19852 + w-19853 + s-19854 + m-19573 + esew-19574 + mod-19855 + exps-19576))) + (if (eqv? type-19816 'eval-when-form) + (let ((tmp-19860 ($sc-dispatch - e-17752 + e-19819 '(_ each-any any . each-any)))) - (if tmp-17793 + (if tmp-19860 (@apply - (lambda (x-17797 e1-17798 e2-17799) - (let ((when-list-17800 - (parse-when-list-4520 - e-17752 - x-17797)) - (body-17801 - (cons e1-17798 e2-17799))) - (if (eq? m-17507 'e) - (if (memq 'eval when-list-17800) - (scan-17372 - body-17801 - r-17504 - w-17753 - s-17754 + (lambda (x-19864 e1-19865 e2-19866) + (let ((when-list-19867 + (parse-when-list-6583 + e-19819 + x-19864)) + (body-19868 + (cons e1-19865 e2-19866))) + (if (eq? m-19573 'e) + (if (memq 'eval when-list-19867) + (scan-19438 + body-19868 + r-19570 + w-19820 + s-19821 (if (memq 'expand - when-list-17800) + when-list-19867) 'c&e 'e) '(eval) - mod-17755 - exps-17510) + mod-19822 + exps-19576) (begin (if (memq 'expand - when-list-17800) - (let ((x-17878 - (expand-top-sequence-4518 - body-17801 - r-17504 - w-17753 - s-17754 + when-list-19867) + (let ((x-19945 + (expand-top-sequence-6581 + body-19868 + r-19570 + w-19820 + s-19821 'e '(eval) - mod-17755))) - (primitive-eval x-17878))) - exps-17510)) - (if (memq 'load when-list-17800) - (if (let ((t-17904 + mod-19822))) + (primitive-eval x-19945))) + exps-19576)) + (if (memq 'load when-list-19867) + (if (let ((t-19971 (memq 'compile - when-list-17800))) - (if t-17904 - t-17904 - (let ((t-17953 + when-list-19867))) + (if t-19971 + t-19971 + (let ((t-20020 (memq 'expand - when-list-17800))) - (if t-17953 - t-17953 - (if (eq? m-17507 + when-list-19867))) + (if t-20020 + t-20020 + (if (eq? m-19573 'c&e) (memq 'eval - when-list-17800) + when-list-19867) #f))))) - (scan-17372 - body-17801 - r-17504 - w-17753 - s-17754 + (scan-19438 + body-19868 + r-19570 + w-19820 + s-19821 'c&e '(compile load) - mod-17755 - exps-17510) - (if (if (eq? m-17507 'c) + mod-19822 + exps-19576) + (if (if (eq? m-19573 'c) #t - (eq? m-17507 'c&e)) - (scan-17372 - body-17801 - r-17504 - w-17753 - s-17754 + (eq? m-19573 'c&e)) + (scan-19438 + body-19868 + r-19570 + w-19820 + s-19821 'c '(load) - mod-17755 - exps-17510) - exps-17510)) - (if (let ((t-18082 + mod-19822 + exps-19576) + exps-19576)) + (if (let ((t-20149 (memq 'compile - when-list-17800))) - (if t-18082 - t-18082 - (let ((t-18131 + when-list-19867))) + (if t-20149 + t-20149 + (let ((t-20198 (memq 'expand - when-list-17800))) - (if t-18131 - t-18131 - (if (eq? m-17507 + when-list-19867))) + (if t-20198 + t-20198 + (if (eq? m-19573 'c&e) (memq 'eval - when-list-17800) + when-list-19867) #f))))) (begin - (let ((x-18255 - (expand-top-sequence-4518 - body-17801 - r-17504 - w-17753 - s-17754 + (let ((x-20322 + (expand-top-sequence-6581 + body-19868 + r-19570 + w-19820 + s-19821 'e '(eval) - mod-17755))) - (primitive-eval x-18255)) - exps-17510) - exps-17510))))) - tmp-17793) + mod-19822))) + (primitive-eval x-20322)) + exps-19576) + exps-19576))))) + tmp-19860) (syntax-violation #f "source expression failed to match any pattern" - e-17752))) - (if (if (eqv? type-17750 'define-syntax-form) + e-19819))) + (if (if (eqv? type-19816 'define-syntax-form) #t - (eqv? type-17750 + (eqv? type-19816 'define-syntax-parameter-form)) - (let ((n-18301 - (id-var-name-4505 - value-17751 - w-17753)) - (r-18302 - (macros-only-env-4482 r-17504))) - (if (eqv? m-17507 'c) - (if (memq 'compile esew-17508) - (let ((e-18306 - (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)))) + (let ((n-20368 + (id-var-name-6568 + value-19817 + w-19820)) + (r-20369 + (macros-only-env-6545 r-19570))) + (if (eqv? m-19573 'c) + (if (memq 'compile esew-19574) + (let ((e-20373 + (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)))) (begin - (top-level-eval-hook-4445 - e-18306 - mod-17755) - (if (memq 'load esew-17508) - (cons e-18306 exps-17510) - exps-17510))) - (if (memq 'load esew-17508) - (cons (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)) - exps-17510) - exps-17510)) - (if (eqv? m-17507 'c&e) - (let ((e-18948 - (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)))) + (top-level-eval-hook-6508 + e-20373 + mod-19822) + (if (memq 'load esew-19574) + (cons e-20373 exps-19576) + exps-19576))) + (if (memq 'load esew-19574) + (cons (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)) + exps-19576) + exps-19576)) + (if (eqv? m-19573 'c&e) + (let ((e-21015 + (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)))) (begin - (top-level-eval-hook-4445 - e-18948 - mod-17755) - (cons e-18948 exps-17510))) + (top-level-eval-hook-6508 + e-21015 + mod-19822) + (cons e-21015 exps-19576))) (begin - (if (memq 'eval esew-17508) - (top-level-eval-hook-4445 - (expand-install-global-4519 - n-18301 - (expand-4522 - e-17752 - r-18302 - w-17753 - mod-17755)) - mod-17755)) - exps-17510)))) - (if (eqv? type-17750 'define-form) - (let ((n-19622 - (id-var-name-4505 - value-17751 - w-17753))) - (let ((type-19623 - (car (let ((t-19630 - (assq n-19622 - r-17504))) - (if t-19630 - (cdr t-19630) - (if (symbol? n-19622) - (let ((t-19636 - (get-global-definition-hook-4449 - n-19622 - mod-17755))) - (if t-19636 - t-19636 + (if (memq 'eval esew-19574) + (top-level-eval-hook-6508 + (expand-install-global-6582 + n-20368 + (expand-6585 + e-19819 + r-20369 + w-19820 + mod-19822)) + mod-19822)) + exps-19576)))) + (if (eqv? type-19816 'define-form) + (let ((n-21689 + (id-var-name-6568 + value-19817 + w-19820))) + (let ((type-21690 + (car (let ((t-21697 + (assq n-21689 + r-19570))) + (if t-21697 + (cdr t-21697) + (if (symbol? n-21689) + (let ((t-21703 + (get-global-definition-hook-6512 + n-21689 + mod-19822))) + (if t-21703 + t-21703 '(global))) '(displaced-lexical))))))) - (if (if (eqv? type-19623 'global) + (if (if (eqv? type-21690 'global) #t - (if (eqv? type-19623 'core) + (if (eqv? type-21690 'core) #t - (if (eqv? type-19623 'macro) + (if (eqv? type-21690 'macro) #t - (eqv? type-19623 + (eqv? type-21690 'module-ref)))) (begin - (if (if (if (eq? m-17507 'c) + (if (if (if (eq? m-19573 'c) #t - (eq? m-17507 'c&e)) + (eq? m-19573 'c&e)) (if (not (module-local-variable (current-module) - n-19622)) + n-21689)) (current-module) #f) #f) - (let ((old-19667 + (let ((old-21734 (module-variable (current-module) - n-19622))) - (if (if (variable? old-19667) + n-21689))) + (if (if (variable? old-21734) (variable-bound? - old-19667) + old-21734) #f) (module-define! (current-module) - n-19622 - (variable-ref old-19667)) + n-21689 + (variable-ref old-21734)) (module-add! (current-module) - n-19622 + n-21689 (make-undefined-variable))))) - (cons (if (eq? m-17507 'c&e) - (let ((x-20108 - (build-global-definition-4461 - s-17754 - n-19622 - (expand-4522 - e-17752 - r-17504 - w-17753 - mod-17755)))) + (cons (if (eq? m-19573 'c&e) + (let ((x-22175 + (build-global-definition-6524 + s-19821 + n-21689 + (expand-6585 + e-19819 + r-19570 + w-19820 + mod-19822)))) (begin - (top-level-eval-hook-4445 - x-20108 - mod-17755) - x-20108)) + (top-level-eval-hook-6508 + x-22175 + mod-19822) + x-22175)) (lambda () - (build-global-definition-4461 - s-17754 - n-19622 - (expand-4522 - e-17752 - r-17504 - w-17753 - mod-17755)))) - exps-17510)) - (if (eqv? type-19623 + (build-global-definition-6524 + s-19821 + n-21689 + (expand-6585 + e-19819 + r-19570 + w-19820 + mod-19822)))) + exps-19576)) + (if (eqv? type-21690 'displaced-lexical) (syntax-violation #f "identifier out of context" - e-17752 - (wrap-4515 - value-17751 - w-17753 - mod-17755)) + (wrap-6578 + (begin + (if (if (pair? form-19818) + s-19821 + #f) + (set-source-properties! + form-19818 + s-19821)) + form-19818) + w-19820 + mod-19822) + (wrap-6578 + value-19817 + w-19820 + mod-19822)) (syntax-violation #f "cannot define keyword at top level" - e-17752 - (wrap-4515 - value-17751 - w-17753 - mod-17755)))))) - (cons (if (eq? m-17507 'c&e) - (let ((x-20563 - (expand-expr-4523 - type-17750 - value-17751 - e-17752 - r-17504 - w-17753 - s-17754 - mod-17755))) + (wrap-6578 + (begin + (if (if (pair? form-19818) + s-19821 + #f) + (set-source-properties! + form-19818 + s-19821)) + form-19818) + w-19820 + mod-19822) + (wrap-6578 + value-19817 + w-19820 + mod-19822)))))) + (cons (if (eq? m-19573 'c&e) + (let ((x-22674 + (expand-expr-6586 + type-19816 + value-19817 + form-19818 + e-19819 + r-19570 + w-19820 + s-19821 + mod-19822))) (begin - (primitive-eval x-20563) - x-20563)) + (primitive-eval x-22674) + x-22674)) (lambda () - (expand-expr-4523 - type-17750 - value-17751 - e-17752 - r-17504 - w-17753 - s-17754 - mod-17755))) - exps-17510))))))))) - (lambda (exps-20568) - (scan-17372 - (cdr body-17503) - r-17504 - w-17505 - s-17506 - m-17507 - esew-17508 - mod-17509 - exps-20568))))))) + (expand-expr-6586 + type-19816 + value-19817 + form-19818 + e-19819 + r-19570 + w-19820 + s-19821 + mod-19822))) + exps-19576))))))))) + (lambda (exps-22679) + (scan-19438 + (cdr body-19569) + r-19570 + w-19571 + s-19572 + m-19573 + esew-19574 + mod-19575 + exps-22679))))))) (call-with-values (lambda () - (scan-17372 - body-17365 - r-17366 - w-17367 - s-17368 - m-17369 - esew-17370 - mod-17371 + (scan-19438 + body-19431 + r-19432 + w-19433 + s-19434 + m-19435 + esew-19436 + mod-19437 '())) - (lambda (exps-17375) - (if (null? exps-17375) + (lambda (exps-19441) + (if (null? exps-19441) (make-struct/no-tail (vector-ref %expanded-vtables 0) - s-17368) - (build-sequence-4467 - s-17368 + s-19434) + (build-sequence-6530 + s-19434 (letrec* - ((lp-17415 - (lambda (in-17499 out-17500) - (if (null? in-17499) - out-17500 - (let ((e-17501 (car in-17499))) - (lp-17415 - (cdr in-17499) - (cons (if (procedure? e-17501) - (e-17501) - e-17501) - out-17500))))))) - (lp-17415 exps-17375 '()))))))))) - (expand-install-global-4519 - (lambda (name-20569 e-20570) - (let ((exp-20576 - (let ((fun-exp-20586 + ((lp-19481 + (lambda (in-19565 out-19566) + (if (null? in-19565) + out-19566 + (let ((e-19567 (car in-19565))) + (lp-19481 + (cdr in-19565) + (cons (if (procedure? e-19567) + (e-19567) + e-19567) + out-19566))))))) + (lp-19481 exps-19441 '()))))))))) + (expand-install-global-6582 + (lambda (name-22680 e-22681) + (let ((exp-22687 + (let ((fun-exp-22697 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -1249,382 +1274,398 @@ '(guile) 'make-syntax-transformer #f))) - (arg-exps-20587 + (arg-exps-22698 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - name-20569) + name-22680) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f 'macro) - e-20570))) + e-22681))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-20586 - arg-exps-20587)))) + fun-exp-22697 + arg-exps-22698)))) (begin - (if (if (struct? exp-20576) - (eq? (struct-vtable exp-20576) + (if (if (struct? exp-22687) + (eq? (struct-vtable exp-22687) (vector-ref %expanded-vtables 13)) #f) - (let ((meta-20628 (struct-ref exp-20576 1))) - (if (not (assq 'name meta-20628)) - (let ((v-20635 - (cons (cons 'name name-20569) meta-20628))) - (struct-set! exp-20576 1 v-20635))))) + (let ((meta-22739 (struct-ref exp-22687 1))) + (if (not (assq 'name meta-22739)) + (let ((v-22746 + (cons (cons 'name name-22680) meta-22739))) + (struct-set! exp-22687 1 v-22746))))) (make-struct/no-tail (vector-ref %expanded-vtables 9) #f - name-20569 - exp-20576))))) - (parse-when-list-4520 - (lambda (e-20646 when-list-20647) - (let ((result-20648 (strip-4535 when-list-20647 '(())))) + name-22680 + exp-22687))))) + (parse-when-list-6583 + (lambda (e-22757 when-list-22758) + (let ((result-22759 (strip-6598 when-list-22758 '(())))) (letrec* - ((lp-20649 - (lambda (l-20703) - (if (null? l-20703) - result-20648 - (if (let ((t-20705 (car l-20703))) - (if (eq? t-20705 'compile) + ((lp-22760 + (lambda (l-22814) + (if (null? l-22814) + result-22759 + (if (let ((t-22816 (car l-22814))) + (if (eq? t-22816 'compile) #t - (if (eq? t-20705 'load) + (if (eq? t-22816 'load) #t - (if (eq? t-20705 'eval) + (if (eq? t-22816 'eval) #t - (eq? t-20705 'expand))))) - (lp-20649 (cdr l-20703)) + (eq? t-22816 'expand))))) + (lp-22760 (cdr l-22814)) (syntax-violation 'eval-when "invalid situation" - e-20646 - (car l-20703))))))) - (lp-20649 result-20648))))) - (syntax-type-4521 - (lambda (e-20707 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712 - for-car?-20713) - (if (symbol? e-20707) - (let ((n-20714 (id-var-name-4505 e-20707 w-20709))) - (let ((b-20715 - (let ((t-20723 (assq n-20714 r-20708))) - (if t-20723 - (cdr t-20723) - (if (symbol? n-20714) - (let ((t-20729 - (get-global-definition-hook-4449 - n-20714 - mod-20712))) - (if t-20729 t-20729 '(global))) + e-22757 + (car l-22814))))))) + (lp-22760 result-22759))))) + (syntax-type-6584 + (lambda (e-22818 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823 + for-car?-22824) + (if (symbol? e-22818) + (let ((n-22825 (id-var-name-6568 e-22818 w-22820))) + (let ((b-22826 + (let ((t-22834 (assq n-22825 r-22819))) + (if t-22834 + (cdr t-22834) + (if (symbol? n-22825) + (let ((t-22840 + (get-global-definition-hook-6512 + n-22825 + mod-22823))) + (if t-22840 t-22840 '(global))) '(displaced-lexical)))))) - (let ((type-20716 (car b-20715))) - (if (eqv? type-20716 'lexical) + (let ((type-22827 (car b-22826))) + (if (eqv? type-22827 'lexical) (values - type-20716 - (cdr b-20715) - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? type-20716 'global) + type-22827 + (cdr b-22826) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? type-22827 'global) (values - type-20716 - n-20714 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? type-20716 'macro) - (if for-car?-20713 + type-22827 + n-22825 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? type-22827 'macro) + (if for-car?-22824 (values - type-20716 - (cdr b-20715) - e-20707 - w-20709 - s-20710 - mod-20712) - (syntax-type-4521 - (expand-macro-4525 - (cdr b-20715) - e-20707 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712) - r-20708 + type-22827 + (cdr b-22826) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (syntax-type-6584 + (expand-macro-6588 + (cdr b-22826) + e-22818 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823) + r-22819 '(()) - s-20710 - rib-20711 - mod-20712 + s-22821 + rib-22822 + mod-22823 #f)) (values - type-20716 - (cdr b-20715) - e-20707 - w-20709 - s-20710 - mod-20712))))))) - (if (pair? e-20707) - (let ((first-20749 (car e-20707))) + type-22827 + (cdr b-22826) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823))))))) + (if (pair? e-22818) + (let ((first-22860 (car e-22818))) (call-with-values (lambda () - (syntax-type-4521 - first-20749 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712 + (syntax-type-6584 + first-22860 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823 #t)) - (lambda (ftype-20751 - fval-20752 - fe-20753 - fw-20754 - fs-20755 - fmod-20756) - (if (eqv? ftype-20751 'lexical) + (lambda (ftype-22862 + fval-22863 + fform-22864 + fe-22865 + fw-22866 + fs-22867 + fmod-22868) + (if (eqv? ftype-22862 'lexical) (values 'lexical-call - fval-20752 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'global) + fval-22863 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'global) (values 'global-call (vector 'syntax-object - fval-20752 - w-20709 - fmod-20756) - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'macro) - (syntax-type-4521 - (expand-macro-4525 - fval-20752 - e-20707 - r-20708 - w-20709 - s-20710 - rib-20711 - mod-20712) - r-20708 + fval-22863 + w-22820 + fmod-22868) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'macro) + (syntax-type-6584 + (expand-macro-6588 + fval-22863 + e-22818 + r-22819 + w-22820 + s-22821 + rib-22822 + mod-22823) + r-22819 '(()) - s-20710 - rib-20711 - mod-20712 - for-car?-20713) - (if (eqv? ftype-20751 'module-ref) + s-22821 + rib-22822 + mod-22823 + for-car?-22824) + (if (eqv? ftype-22862 'module-ref) (call-with-values - (lambda () (fval-20752 e-20707 r-20708 w-20709)) - (lambda (e-20777 - r-20778 - w-20779 - s-20780 - mod-20781) - (syntax-type-4521 - e-20777 - r-20778 - w-20779 - s-20780 - rib-20711 - mod-20781 - for-car?-20713))) - (if (eqv? ftype-20751 'core) + (lambda () (fval-22863 e-22818 r-22819 w-22820)) + (lambda (e-22889 + r-22890 + w-22891 + s-22892 + mod-22893) + (syntax-type-6584 + e-22889 + r-22890 + w-22891 + s-22892 + rib-22822 + mod-22893 + for-car?-22824))) + (if (eqv? ftype-22862 'core) (values 'core-form - fval-20752 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'local-syntax) + fval-22863 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'local-syntax) (values 'local-syntax-form - fval-20752 - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'begin) + fval-22863 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'begin) (values 'begin-form #f - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'eval-when) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'eval-when) (values 'eval-when-form #f - e-20707 - w-20709 - s-20710 - mod-20712) - (if (eqv? ftype-20751 'define) - (let ((tmp-20798 + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) + (if (eqv? ftype-22862 'define) + (let ((tmp-22910 ($sc-dispatch - e-20707 + e-22818 '(_ any any)))) - (if (if tmp-20798 + (if (if tmp-22910 (@apply - (lambda (name-20802 val-20803) - (if (symbol? name-20802) + (lambda (name-22914 val-22915) + (if (symbol? name-22914) #t - (if (if (vector? name-20802) + (if (if (vector? name-22914) (if (= (vector-length - name-20802) + name-22914) 4) (eq? (vector-ref - name-20802 + name-22914 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-20802 + name-22914 1)) #f))) - tmp-20798) + tmp-22910) #f) (@apply - (lambda (name-20830 val-20831) + (lambda (name-22942 val-22943) (values 'define-form - name-20830 - val-20831 - w-20709 - s-20710 - mod-20712)) - tmp-20798) - (let ((tmp-20832 + name-22942 + e-22818 + val-22943 + w-22820 + s-22821 + mod-22823)) + tmp-22910) + (let ((tmp-22944 ($sc-dispatch - e-20707 + e-22818 '(_ (any . any) any . each-any)))) - (if (if tmp-20832 + (if (if tmp-22944 (@apply - (lambda (name-20836 - args-20837 - e1-20838 - e2-20839) + (lambda (name-22948 + args-22949 + e1-22950 + e2-22951) (if (if (symbol? - name-20836) + name-22948) #t (if (if (vector? - name-20836) + name-22948) (if (= (vector-length - name-20836) + name-22948) 4) (eq? (vector-ref - name-20836 + name-22948 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-20836 + name-22948 1)) #f)) - (valid-bound-ids?-4512 + (valid-bound-ids?-6575 (letrec* - ((lvl-20988 - (lambda (vars-20990 - ls-20991 - w-20992) - (if (pair? vars-20990) - (lvl-20988 - (cdr vars-20990) - (cons (wrap-4515 - (car vars-20990) - w-20992 + ((lvl-23100 + (lambda (vars-23102 + ls-23103 + w-23104) + (if (pair? vars-23102) + (lvl-23100 + (cdr vars-23102) + (cons (wrap-6578 + (car vars-23102) + w-23104 #f) - ls-20991) - w-20992) + ls-23103) + w-23104) (if (if (symbol? - vars-20990) + vars-23102) #t (if (if (vector? - vars-20990) + vars-23102) (if (= (vector-length - vars-20990) + vars-23102) 4) (eq? (vector-ref - vars-20990 + vars-23102 0) 'syntax-object) #f) #f) (symbol? (vector-ref - vars-20990 + vars-23102 1)) #f)) - (cons (wrap-4515 - vars-20990 - w-20992 + (cons (wrap-6578 + vars-23102 + w-23104 #f) - ls-20991) - (if (null? vars-20990) - ls-20991 + ls-23103) + (if (null? vars-23102) + ls-23103 (if (if (vector? - vars-20990) + vars-23102) (if (= (vector-length - vars-20990) + vars-23102) 4) (eq? (vector-ref - vars-20990 + vars-23102 0) 'syntax-object) #f) #f) - (lvl-20988 + (lvl-23100 (vector-ref - vars-20990 + vars-23102 1) - ls-20991 - (join-wraps-4502 - w-20992 + ls-23103 + (join-wraps-6565 + w-23104 (vector-ref - vars-20990 + vars-23102 2))) - (cons vars-20990 - ls-20991)))))))) - (lvl-20988 - args-20837 + (cons vars-23102 + ls-23103)))))))) + (lvl-23100 + args-22949 '() '(())))) #f)) - tmp-20832) + tmp-22944) #f) (@apply - (lambda (name-21036 - args-21037 - e1-21038 - e2-21039) + (lambda (name-23148 + args-23149 + e1-23150 + e2-23151) (values 'define-form - (wrap-4515 - name-21036 - w-20709 - mod-20712) - (let ((e-21045 + (wrap-6578 + name-23148 + w-22820 + mod-22823) + (wrap-6578 + e-22818 + w-22820 + mod-22823) + (let ((e-23159 (cons '#(syntax-object lambda ((top) @@ -1637,10 +1678,10 @@ (top) (top) (top)) - #("l-*-1954" - "l-*-1955" - "l-*-1956" - "l-*-1957")) + #("l-*-4009" + "l-*-4010" + "l-*-4011" + "l-*-4012")) #(ribcage () () @@ -1652,6 +1693,7 @@ #(ribcage #(ftype fval + fform fe fw fs @@ -1661,13 +1703,15 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () @@ -1675,7 +1719,7 @@ #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () @@ -1703,13 +1747,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -1991,146 +2035,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -2138,77 +2182,82 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) - (wrap-4515 - (cons args-21037 - (cons e1-21038 - e2-21039)) - w-20709 - mod-20712)))) + (wrap-6578 + (cons args-23149 + (cons e1-23150 + e2-23151)) + w-22820 + mod-22823)))) (begin - (if (if (pair? e-21045) - s-20710 + (if (if (pair? e-23159) + s-22821 #f) (set-source-properties! - e-21045 - s-20710)) - e-21045)) + e-23159 + s-22821)) + e-23159)) '(()) - s-20710 - mod-20712)) - tmp-20832) - (let ((tmp-21052 + s-22821 + mod-22823)) + tmp-22944) + (let ((tmp-23166 ($sc-dispatch - e-20707 + e-22818 '(_ any)))) - (if (if tmp-21052 + (if (if tmp-23166 (@apply - (lambda (name-21056) + (lambda (name-23170) (if (symbol? - name-21056) + name-23170) #t (if (if (vector? - name-21056) + name-23170) (if (= (vector-length - name-21056) + name-23170) 4) (eq? (vector-ref - name-21056 + name-23170 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21056 + name-23170 1)) #f))) - tmp-21052) + tmp-23166) #f) (@apply - (lambda (name-21083) + (lambda (name-23197) (values 'define-form - (wrap-4515 - name-21083 - w-20709 - mod-20712) + (wrap-6578 + name-23197 + w-22820 + mod-22823) + (wrap-6578 + e-22818 + w-22820 + mod-22823) '(#(syntax-object if ((top) #(ribcage #(name) #((top)) - #("l-*-1967")) + #("l-*-4022")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval + fform fe fw fs @@ -2218,18 +2267,20 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2248,13 +2299,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -2536,146 +2587,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -2683,9 +2734,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) #(syntax-object #f @@ -2693,12 +2744,13 @@ #(ribcage #(name) #((top)) - #("l-*-1967")) + #("l-*-4022")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval + fform fe fw fs @@ -2708,18 +2760,20 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -2738,13 +2792,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -3026,146 +3080,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -3173,9 +3227,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) #(syntax-object #f @@ -3183,12 +3237,13 @@ #(ribcage #(name) #((top)) - #("l-*-1967")) + #("l-*-4022")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(ftype fval + fform fe fw fs @@ -3198,18 +3253,20 @@ (top) (top) (top) + (top) (top)) - #("l-*-1907" - "l-*-1908" - "l-*-1909" - "l-*-1910" - "l-*-1911" - "l-*-1912")) + #("l-*-3961" + "l-*-3962" + "l-*-3963" + "l-*-3964" + "l-*-3965" + "l-*-3966" + "l-*-3967")) #(ribcage () () ()) #(ribcage #(first) #((top)) - #("l-*-1899")) + #("l-*-3952")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage () () ()) @@ -3228,13 +3285,13 @@ (top) (top) (top)) - #("l-*-1871" - "l-*-1872" - "l-*-1873" - "l-*-1874" - "l-*-1875" - "l-*-1876" - "l-*-1877")) + #("l-*-3924" + "l-*-3925" + "l-*-3926" + "l-*-3927" + "l-*-3928" + "l-*-3929" + "l-*-3930")) #(ribcage (lambda-var-list gen-var @@ -3516,146 +3573,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -3663,295 +3720,303 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) '(()) - s-20710 - mod-20712)) - tmp-21052) + s-22821 + mod-22823)) + tmp-23166) (syntax-violation #f "source expression failed to match any pattern" - e-20707))))))) - (if (eqv? ftype-20751 'define-syntax) - (let ((tmp-21102 + e-22818))))))) + (if (eqv? ftype-22862 'define-syntax) + (let ((tmp-23218 ($sc-dispatch - e-20707 + e-22818 '(_ any any)))) - (if (if tmp-21102 + (if (if tmp-23218 (@apply - (lambda (name-21106 val-21107) - (if (symbol? name-21106) + (lambda (name-23222 val-23223) + (if (symbol? name-23222) #t (if (if (vector? - name-21106) + name-23222) (if (= (vector-length - name-21106) + name-23222) 4) (eq? (vector-ref - name-21106 + name-23222 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21106 + name-23222 1)) #f))) - tmp-21102) + tmp-23218) #f) (@apply - (lambda (name-21134 val-21135) + (lambda (name-23250 val-23251) (values 'define-syntax-form - name-21134 - val-21135 - w-20709 - s-20710 - mod-20712)) - tmp-21102) + name-23250 + e-22818 + val-23251 + w-22820 + s-22821 + mod-22823)) + tmp-23218) (syntax-violation #f "source expression failed to match any pattern" - e-20707))) - (if (eqv? ftype-20751 + e-22818))) + (if (eqv? ftype-22862 'define-syntax-parameter) - (let ((tmp-21146 + (let ((tmp-23262 ($sc-dispatch - e-20707 + e-22818 '(_ any any)))) - (if (if tmp-21146 + (if (if tmp-23262 (@apply - (lambda (name-21150 - val-21151) - (if (symbol? name-21150) + (lambda (name-23266 + val-23267) + (if (symbol? name-23266) #t (if (if (vector? - name-21150) + name-23266) (if (= (vector-length - name-21150) + name-23266) 4) (eq? (vector-ref - name-21150 + name-23266 0) 'syntax-object) #f) #f) (symbol? (vector-ref - name-21150 + name-23266 1)) #f))) - tmp-21146) + tmp-23262) #f) (@apply - (lambda (name-21178 val-21179) + (lambda (name-23294 val-23295) (values 'define-syntax-parameter-form - name-21178 - val-21179 - w-20709 - s-20710 - mod-20712)) - tmp-21146) + name-23294 + e-22818 + val-23295 + w-22820 + s-22821 + mod-22823)) + tmp-23262) (syntax-violation #f "source expression failed to match any pattern" - e-20707))) + e-22818))) (values 'call #f - e-20707 - w-20709 - s-20710 - mod-20712))))))))))))))) - (if (if (vector? e-20707) - (if (= (vector-length e-20707) 4) - (eq? (vector-ref e-20707 0) 'syntax-object) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823))))))))))))))) + (if (if (vector? e-22818) + (if (= (vector-length e-22818) 4) + (eq? (vector-ref e-22818 0) 'syntax-object) #f) #f) - (syntax-type-4521 - (vector-ref e-20707 1) - r-20708 - (join-wraps-4502 w-20709 (vector-ref e-20707 2)) - (let ((t-21206 (source-annotation-4479 e-20707))) - (if t-21206 t-21206 s-20710)) - rib-20711 - (let ((t-21441 (vector-ref e-20707 3))) - (if t-21441 t-21441 mod-20712)) - for-car?-20713) - (if (self-evaluating? e-20707) + (syntax-type-6584 + (vector-ref e-22818 1) + r-22819 + (join-wraps-6565 w-22820 (vector-ref e-22818 2)) + (let ((t-23322 (source-annotation-6542 e-22818))) + (if t-23322 t-23322 s-22821)) + rib-22822 + (let ((t-23557 (vector-ref e-22818 3))) + (if t-23557 t-23557 mod-22823)) + for-car?-22824) + (if (self-evaluating? e-22818) (values 'constant #f - e-20707 - w-20709 - s-20710 - mod-20712) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823) (values 'other #f - e-20707 - w-20709 - s-20710 - mod-20712))))))) - (expand-4522 - (lambda (e-21450 r-21451 w-21452 mod-21453) + e-22818 + e-22818 + w-22820 + s-22821 + mod-22823))))))) + (expand-6585 + (lambda (e-23566 r-23567 w-23568 mod-23569) (call-with-values (lambda () - (syntax-type-4521 - e-21450 - r-21451 - w-21452 - (source-annotation-4479 e-21450) + (syntax-type-6584 + e-23566 + r-23567 + w-23568 + (source-annotation-6542 e-23566) #f - mod-21453 + mod-23569 #f)) - (lambda (type-21608 - value-21609 - e-21610 - w-21611 - s-21612 - mod-21613) - (expand-expr-4523 - type-21608 - value-21609 - e-21610 - r-21451 - w-21611 - s-21612 - mod-21613))))) - (expand-expr-4523 - (lambda (type-21616 - value-21617 - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'lexical) + (lambda (type-23724 + value-23725 + form-23726 + e-23727 + w-23728 + s-23729 + mod-23730) + (expand-expr-6586 + type-23724 + value-23725 + form-23726 + e-23727 + r-23567 + w-23728 + s-23729 + mod-23730))))) + (expand-expr-6586 + (lambda (type-23733 + value-23734 + form-23735 + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'lexical) (make-struct/no-tail (vector-ref %expanded-vtables 3) - s-21621 - e-21618 - value-21617) - (if (if (eqv? type-21616 'core) + s-23739 + e-23736 + value-23734) + (if (if (eqv? type-23733 'core) #t - (eqv? type-21616 'core-form)) - (value-21617 - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'module-ref) + (eqv? type-23733 'core-form)) + (value-23734 + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'module-ref) (call-with-values - (lambda () (value-21617 e-21618 r-21619 w-21620)) - (lambda (e-21648 r-21649 w-21650 s-21651 mod-21652) - (expand-4522 e-21648 r-21649 w-21650 mod-21652))) - (if (eqv? type-21616 'lexical-call) - (expand-application-4524 - (let ((id-21727 (car e-21618))) - (build-lexical-reference-4456 + (lambda () (value-23734 e-23736 r-23737 w-23738)) + (lambda (e-23766 r-23767 w-23768 s-23769 mod-23770) + (expand-6585 e-23766 r-23767 w-23768 mod-23770))) + (if (eqv? type-23733 'lexical-call) + (expand-application-6587 + (let ((id-23845 (car e-23736))) + (build-lexical-reference-6519 'fun - (source-annotation-4479 id-21727) - (if (if (vector? id-21727) - (if (= (vector-length id-21727) 4) - (eq? (vector-ref id-21727 0) 'syntax-object) + (source-annotation-6542 id-23845) + (if (if (vector? id-23845) + (if (= (vector-length id-23845) 4) + (eq? (vector-ref id-23845 0) 'syntax-object) #f) #f) - (syntax->datum id-21727) - id-21727) - value-21617)) - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'global-call) - (expand-application-4524 - (build-global-reference-4459 - (source-annotation-4479 (car e-21618)) - (if (if (vector? value-21617) - (if (= (vector-length value-21617) 4) - (eq? (vector-ref value-21617 0) 'syntax-object) + (syntax->datum id-23845) + id-23845) + value-23734)) + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'global-call) + (expand-application-6587 + (build-global-reference-6522 + (source-annotation-6542 (car e-23736)) + (if (if (vector? value-23734) + (if (= (vector-length value-23734) 4) + (eq? (vector-ref value-23734 0) 'syntax-object) #f) #f) - (vector-ref value-21617 1) - value-21617) - (if (if (vector? value-21617) - (if (= (vector-length value-21617) 4) - (eq? (vector-ref value-21617 0) 'syntax-object) + (vector-ref value-23734 1) + value-23734) + (if (if (vector? value-23734) + (if (= (vector-length value-23734) 4) + (eq? (vector-ref value-23734 0) 'syntax-object) #f) #f) - (vector-ref value-21617 3) - mod-21622)) - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'constant) - (let ((exp-22064 - (strip-4535 - (wrap-4515 + (vector-ref value-23734 3) + mod-23740)) + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'constant) + (let ((exp-24182 + (strip-6598 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) - (set-source-properties! e-21618 s-21621)) - e-21618) - w-21620 - mod-21622) + (if (if (pair? e-23736) s-23739 #f) + (set-source-properties! e-23736 s-23739)) + e-23736) + w-23738 + mod-23740) '(())))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-21621 - exp-22064)) - (if (eqv? type-21616 'global) - (analyze-variable-4458 - mod-21622 - value-21617 - (lambda (mod-22100 var-22101 public?-22102) + s-23739 + exp-24182)) + (if (eqv? type-23733 'global) + (analyze-variable-6521 + mod-23740 + value-23734 + (lambda (mod-24218 var-24219 public?-24220) (make-struct/no-tail (vector-ref %expanded-vtables 5) - s-21621 - mod-22100 - var-22101 - public?-22102)) - (lambda (var-22111) + s-23739 + mod-24218 + var-24219 + public?-24220)) + (lambda (var-24229) (make-struct/no-tail (vector-ref %expanded-vtables 7) - s-21621 - var-22111))) - (if (eqv? type-21616 'call) - (expand-application-4524 - (expand-4522 - (car e-21618) - r-21619 - w-21620 - mod-21622) - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622) - (if (eqv? type-21616 'begin-form) - (let ((tmp-22186 - ($sc-dispatch e-21618 '(_ any . each-any)))) - (if tmp-22186 + s-23739 + var-24229))) + (if (eqv? type-23733 'call) + (expand-application-6587 + (expand-6585 + (car e-23736) + r-23737 + w-23738 + mod-23740) + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740) + (if (eqv? type-23733 'begin-form) + (let ((tmp-24304 + ($sc-dispatch e-23736 '(_ any . each-any)))) + (if tmp-24304 (@apply - (lambda (e1-22190 e2-22191) - (expand-sequence-4517 - (cons e1-22190 e2-22191) - r-21619 - w-21620 - s-21621 - mod-21622)) - tmp-22186) - (let ((tmp-22278 ($sc-dispatch e-21618 '(_)))) - (if tmp-22278 + (lambda (e1-24308 e2-24309) + (expand-sequence-6580 + (cons e1-24308 e2-24309) + r-23737 + w-23738 + s-23739 + mod-23740)) + tmp-24304) + (let ((tmp-24396 ($sc-dispatch e-23736 '(_)))) + (if tmp-24396 (@apply (lambda () (if (include-deprecated-features) @@ -3964,787 +4029,801 @@ (syntax-violation #f "sequence of zero expressions" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) - s-21621 + (if (if (pair? e-23736) + s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)))) - tmp-22278) + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)))) + tmp-24396) (syntax-violation #f "source expression failed to match any pattern" - e-21618))))) - (if (eqv? type-21616 'local-syntax-form) - (expand-local-syntax-4527 - value-21617 - e-21618 - r-21619 - w-21620 - s-21621 - mod-21622 - expand-sequence-4517) - (if (eqv? type-21616 'eval-when-form) - (let ((tmp-22389 + e-23736))))) + (if (eqv? type-23733 'local-syntax-form) + (expand-local-syntax-6590 + value-23734 + e-23736 + r-23737 + w-23738 + s-23739 + mod-23740 + expand-sequence-6580) + (if (eqv? type-23733 'eval-when-form) + (let ((tmp-24507 ($sc-dispatch - e-21618 + e-23736 '(_ each-any any . each-any)))) - (if tmp-22389 + (if tmp-24507 (@apply - (lambda (x-22393 e1-22394 e2-22395) - (let ((when-list-22396 - (parse-when-list-4520 - e-21618 - x-22393))) - (if (memq 'eval when-list-22396) - (expand-sequence-4517 - (cons e1-22394 e2-22395) - r-21619 - w-21620 - s-21621 - mod-21622) + (lambda (x-24511 e1-24512 e2-24513) + (let ((when-list-24514 + (parse-when-list-6583 + e-23736 + x-24511))) + (if (memq 'eval when-list-24514) + (expand-sequence-6580 + (cons e1-24512 e2-24513) + r-23737 + w-23738 + s-23739 + mod-23740) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f)))) - tmp-22389) + tmp-24507) (syntax-violation #f "source expression failed to match any pattern" - e-21618))) - (if (if (eqv? type-21616 'define-form) + e-23736))) + (if (if (eqv? type-23733 'define-form) #t - (if (eqv? type-21616 'define-syntax-form) + (if (eqv? type-23733 'define-syntax-form) #t - (eqv? type-21616 + (eqv? type-23733 'define-syntax-parameter-form))) (syntax-violation #f - "definition in expression context" - e-21618 - (wrap-4515 value-21617 w-21620 mod-21622)) - (if (eqv? type-21616 'syntax) + "definition in expression context, where definitions are not allowed," + (wrap-6578 + (begin + (if (if (pair? form-23735) s-23739 #f) + (set-source-properties! + form-23735 + s-23739)) + form-23735) + w-23738 + mod-23740)) + (if (eqv? type-23733 'syntax) (syntax-violation #f "reference to pattern variable outside syntax form" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) + (if (if (pair? e-23736) s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)) - (if (eqv? type-21616 'displaced-lexical) + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)) + (if (eqv? type-23733 'displaced-lexical) (syntax-violation #f "reference to identifier outside its scope" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) + (if (if (pair? e-23736) s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)) + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)) (syntax-violation #f "unexpected syntax" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-21618) s-21621 #f) + (if (if (pair? e-23736) s-23739 #f) (set-source-properties! - e-21618 - s-21621)) - e-21618) - w-21620 - mod-21622)))))))))))))))))) - (expand-application-4524 - (lambda (x-22636 - e-22637 - r-22638 - w-22639 - s-22640 - mod-22641) - (let ((tmp-22643 - ($sc-dispatch e-22637 '(any . each-any)))) - (if tmp-22643 + e-23736 + s-23739)) + e-23736) + w-23738 + mod-23740)))))))))))))))))) + (expand-application-6587 + (lambda (x-24774 + e-24775 + r-24776 + w-24777 + s-24778 + mod-24779) + (let ((tmp-24781 + ($sc-dispatch e-24775 '(any . each-any)))) + (if tmp-24781 (@apply - (lambda (e0-22647 e1-22648) - (build-application-4453 - s-22640 - x-22636 - (map (lambda (e-22728) - (expand-4522 e-22728 r-22638 w-22639 mod-22641)) - e1-22648))) - tmp-22643) + (lambda (e0-24785 e1-24786) + (build-application-6516 + s-24778 + x-24774 + (map (lambda (e-24866) + (expand-6585 e-24866 r-24776 w-24777 mod-24779)) + e1-24786))) + tmp-24781) (syntax-violation #f "source expression failed to match any pattern" - e-22637))))) - (expand-macro-4525 - (lambda (p-22804 - e-22805 - r-22806 - w-22807 - s-22808 - rib-22809 - mod-22810) + e-24775))))) + (expand-macro-6588 + (lambda (p-24942 + e-24943 + r-24944 + w-24945 + s-24946 + rib-24947 + mod-24948) (letrec* - ((rebuild-macro-output-22811 - (lambda (x-22844 m-22845) - (if (pair? x-22844) - (let ((e-22849 - (cons (rebuild-macro-output-22811 - (car x-22844) - m-22845) - (rebuild-macro-output-22811 - (cdr x-22844) - m-22845)))) + ((rebuild-macro-output-24949 + (lambda (x-24982 m-24983) + (if (pair? x-24982) + (let ((e-24987 + (cons (rebuild-macro-output-24949 + (car x-24982) + m-24983) + (rebuild-macro-output-24949 + (cdr x-24982) + m-24983)))) (begin - (if (if (pair? e-22849) s-22808 #f) - (set-source-properties! e-22849 s-22808)) - e-22849)) - (if (if (vector? x-22844) - (if (= (vector-length x-22844) 4) - (eq? (vector-ref x-22844 0) 'syntax-object) + (if (if (pair? e-24987) s-24946 #f) + (set-source-properties! e-24987 s-24946)) + e-24987)) + (if (if (vector? x-24982) + (if (= (vector-length x-24982) 4) + (eq? (vector-ref x-24982 0) 'syntax-object) #f) #f) - (let ((w-22865 (vector-ref x-22844 2))) - (let ((ms-22866 (car w-22865)) - (s-22867 (cdr w-22865))) - (if (if (pair? ms-22866) (eq? (car ms-22866) #f) #f) - (let ((expression-22875 (vector-ref x-22844 1)) - (wrap-22876 - (cons (cdr ms-22866) - (if rib-22809 - (cons rib-22809 (cdr s-22867)) - (cdr s-22867)))) - (module-22877 (vector-ref x-22844 3))) + (let ((w-25003 (vector-ref x-24982 2))) + (let ((ms-25004 (car w-25003)) + (s-25005 (cdr w-25003))) + (if (if (pair? ms-25004) (eq? (car ms-25004) #f) #f) + (let ((expression-25013 (vector-ref x-24982 1)) + (wrap-25014 + (cons (cdr ms-25004) + (if rib-24947 + (cons rib-24947 (cdr s-25005)) + (cdr s-25005)))) + (module-25015 (vector-ref x-24982 3))) (vector 'syntax-object - expression-22875 - wrap-22876 - module-22877)) - (let ((expression-22887 - (let ((e-22892 (vector-ref x-22844 1))) + expression-25013 + wrap-25014 + module-25015)) + (let ((expression-25025 + (let ((e-25030 (vector-ref x-24982 1))) (begin - (if (if (pair? e-22892) s-22867 #f) + (if (if (pair? e-25030) s-25005 #f) (set-source-properties! - e-22892 - s-22867)) - e-22892))) - (wrap-22888 - (cons (cons m-22845 ms-22866) - (if rib-22809 - (cons rib-22809 - (cons 'shift s-22867)) - (cons 'shift s-22867)))) - (module-22889 (vector-ref x-22844 3))) + e-25030 + s-25005)) + e-25030))) + (wrap-25026 + (cons (cons m-24983 ms-25004) + (if rib-24947 + (cons rib-24947 + (cons 'shift s-25005)) + (cons 'shift s-25005)))) + (module-25027 (vector-ref x-24982 3))) (vector 'syntax-object - expression-22887 - wrap-22888 - module-22889))))) - (if (vector? x-22844) - (let ((n-22904 (vector-length x-22844))) - (let ((v-22905 - (let ((e-22913 (make-vector n-22904))) + expression-25025 + wrap-25026 + module-25027))))) + (if (vector? x-24982) + (let ((n-25042 (vector-length x-24982))) + (let ((v-25043 + (let ((e-25051 (make-vector n-25042))) (begin - (if (if (pair? e-22913) x-22844 #f) - (set-source-properties! e-22913 x-22844)) - e-22913)))) + (if (if (pair? e-25051) x-24982 #f) + (set-source-properties! e-25051 x-24982)) + e-25051)))) (letrec* - ((loop-22906 - (lambda (i-22958) - (if (= i-22958 n-22904) - v-22905 + ((loop-25044 + (lambda (i-25096) + (if (= i-25096 n-25042) + v-25043 (begin (vector-set! - v-22905 - i-22958 - (rebuild-macro-output-22811 - (vector-ref x-22844 i-22958) - m-22845)) - (loop-22906 (#{1+}# i-22958))))))) - (loop-22906 0)))) - (if (symbol? x-22844) + v-25043 + i-25096 + (rebuild-macro-output-24949 + (vector-ref x-24982 i-25096) + m-24983)) + (loop-25044 (#{1+}# i-25096))))))) + (loop-25044 0)))) + (if (symbol? x-24982) (syntax-violation #f "encountered raw symbol in macro output" - (let ((s-22964 (cdr w-22807))) - (wrap-4515 + (let ((s-25102 (cdr w-24945))) + (wrap-6578 (begin - (if (if (pair? e-22805) s-22964 #f) - (set-source-properties! e-22805 s-22964)) - e-22805) - w-22807 - mod-22810)) - x-22844) + (if (if (pair? e-24943) s-25102 #f) + (set-source-properties! e-24943 s-25102)) + e-24943) + w-24945 + mod-24948)) + x-24982) (begin - (if (if (pair? x-22844) s-22808 #f) - (set-source-properties! x-22844 s-22808)) - x-22844)))))))) + (if (if (pair? x-24982) s-24946 #f) + (set-source-properties! x-24982 s-24946)) + x-24982)))))))) (with-fluids - ((transformer-environment-4508 - (lambda (k-22812) - (k-22812 - e-22805 - r-22806 - w-22807 - s-22808 - rib-22809 - mod-22810)))) - (rebuild-macro-output-22811 - (p-22804 - (let ((w-22819 - (cons (cons #f (car w-22807)) - (cons 'shift (cdr w-22807))))) - (wrap-4515 + ((transformer-environment-6571 + (lambda (k-24950) + (k-24950 + e-24943 + r-24944 + w-24945 + s-24946 + rib-24947 + mod-24948)))) + (rebuild-macro-output-24949 + (p-24942 + (let ((w-24957 + (cons (cons #f (car w-24945)) + (cons 'shift (cdr w-24945))))) + (wrap-6578 (begin - (if (if (pair? e-22805) s-22808 #f) - (set-source-properties! e-22805 s-22808)) - e-22805) - w-22819 - mod-22810))) + (if (if (pair? e-24943) s-24946 #f) + (set-source-properties! e-24943 s-24946)) + e-24943) + w-24957 + mod-24948))) (gensym - (string-append "m-" (session-id-4447) "-"))))))) - (expand-body-4526 - (lambda (body-22996 - outer-form-22997 - r-22998 - w-22999 - mod-23000) - (let ((r-23001 - (cons '("placeholder" placeholder) r-22998))) - (let ((ribcage-23002 (vector 'ribcage '() '() '()))) - (let ((w-23003 - (cons (car w-22999) - (cons ribcage-23002 (cdr w-22999))))) + (string-append "m-" (session-id-6510) "-"))))))) + (expand-body-6589 + (lambda (body-25134 + outer-form-25135 + r-25136 + w-25137 + mod-25138) + (let ((r-25139 + (cons '("placeholder" placeholder) r-25136))) + (let ((ribcage-25140 (vector 'ribcage '() '() '()))) + (let ((w-25141 + (cons (car w-25137) + (cons ribcage-25140 (cdr w-25137))))) (letrec* - ((parse-23004 - (lambda (body-23017 - ids-23018 - labels-23019 - var-ids-23020 - vars-23021 - vals-23022 - bindings-23023) - (if (null? body-23017) + ((parse-25142 + (lambda (body-25155 + ids-25156 + labels-25157 + var-ids-25158 + vars-25159 + vals-25160 + bindings-25161) + (if (null? body-25155) (syntax-violation #f "no expressions in body" - outer-form-22997) - (let ((e-23024 (cdr (car body-23017))) - (er-23025 (car (car body-23017)))) + outer-form-25135) + (let ((e-25162 (cdr (car body-25155))) + (er-25163 (car (car body-25155)))) (call-with-values (lambda () - (syntax-type-4521 - e-23024 - er-23025 + (syntax-type-6584 + e-25162 + er-25163 '(()) - (source-annotation-4479 er-23025) - ribcage-23002 - mod-23000 + (source-annotation-6542 er-25163) + ribcage-25140 + mod-25138 #f)) - (lambda (type-23182 - value-23183 - e-23184 - w-23185 - s-23186 - mod-23187) - (if (eqv? type-23182 'define-form) - (let ((id-23191 - (wrap-4515 - value-23183 - w-23185 - mod-23187)) - (label-23192 + (lambda (type-25320 + value-25321 + form-25322 + e-25323 + w-25324 + s-25325 + mod-25326) + (if (eqv? type-25320 'define-form) + (let ((id-25330 + (wrap-6578 + value-25321 + w-25324 + mod-25326)) + (label-25331 (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))))) - (let ((var-23193 - (let ((id-23253 - (if (if (vector? id-23191) + (let ((var-25332 + (let ((id-25392 + (if (if (vector? id-25330) (if (= (vector-length - id-23191) + id-25330) 4) (eq? (vector-ref - id-23191 + id-25330 0) 'syntax-object) #f) #f) - (vector-ref id-23191 1) - id-23191))) + (vector-ref id-25330 1) + id-25330))) (gensym (string-append - (symbol->string id-23253) + (symbol->string id-25392) "-"))))) (begin - (let ((update-23243 - (cons (vector-ref id-23191 1) + (let ((update-25382 + (cons (vector-ref id-25330 1) (vector-ref - ribcage-23002 + ribcage-25140 1)))) (vector-set! - ribcage-23002 + ribcage-25140 1 - update-23243)) - (let ((update-23245 + update-25382)) + (let ((update-25384 (cons (car (vector-ref - id-23191 + id-25330 2)) (vector-ref - ribcage-23002 + ribcage-25140 2)))) (vector-set! - ribcage-23002 + ribcage-25140 2 - update-23245)) - (let ((update-23247 - (cons label-23192 + update-25384)) + (let ((update-25386 + (cons label-25331 (vector-ref - ribcage-23002 + ribcage-25140 3)))) (vector-set! - ribcage-23002 + ribcage-25140 3 - update-23247)) - (parse-23004 - (cdr body-23017) - (cons id-23191 ids-23018) - (cons label-23192 labels-23019) - (cons id-23191 var-ids-23020) - (cons var-23193 vars-23021) - (cons (cons er-23025 - (wrap-4515 - e-23184 - w-23185 - mod-23187)) - vals-23022) - (cons (cons 'lexical var-23193) - bindings-23023))))) - (if (if (eqv? type-23182 'define-syntax-form) + update-25386)) + (parse-25142 + (cdr body-25155) + (cons id-25330 ids-25156) + (cons label-25331 labels-25157) + (cons id-25330 var-ids-25158) + (cons var-25332 vars-25159) + (cons (cons er-25163 + (wrap-6578 + e-25323 + w-25324 + mod-25326)) + vals-25160) + (cons (cons 'lexical var-25332) + bindings-25161))))) + (if (if (eqv? type-25320 'define-syntax-form) #t - (eqv? type-23182 + (eqv? type-25320 'define-syntax-parameter-form)) - (let ((id-23286 - (wrap-4515 - value-23183 - w-23185 - mod-23187)) - (label-23287 + (let ((id-25425 + (wrap-6578 + value-25321 + w-25324 + mod-25326)) + (label-25426 (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))))) (begin - (let ((update-23337 - (cons (vector-ref id-23286 1) + (let ((update-25476 + (cons (vector-ref id-25425 1) (vector-ref - ribcage-23002 + ribcage-25140 1)))) (vector-set! - ribcage-23002 + ribcage-25140 1 - update-23337)) - (let ((update-23339 + update-25476)) + (let ((update-25478 (cons (car (vector-ref - id-23286 + id-25425 2)) (vector-ref - ribcage-23002 + ribcage-25140 2)))) (vector-set! - ribcage-23002 + ribcage-25140 2 - update-23339)) - (let ((update-23341 - (cons label-23287 + update-25478)) + (let ((update-25480 + (cons label-25426 (vector-ref - ribcage-23002 + ribcage-25140 3)))) (vector-set! - ribcage-23002 + ribcage-25140 3 - update-23341)) - (parse-23004 - (cdr body-23017) - (cons id-23286 ids-23018) - (cons label-23287 labels-23019) - var-ids-23020 - vars-23021 - vals-23022 + update-25480)) + (parse-25142 + (cdr body-25155) + (cons id-25425 ids-25156) + (cons label-25426 labels-25157) + var-ids-25158 + vars-25159 + vals-25160 (cons (cons 'macro - (cons er-23025 - (wrap-4515 - e-23184 - w-23185 - mod-23187))) - bindings-23023)))) - (if (eqv? type-23182 'begin-form) - (let ((tmp-23349 + (cons er-25163 + (wrap-6578 + e-25323 + w-25324 + mod-25326))) + bindings-25161)))) + (if (eqv? type-25320 'begin-form) + (let ((tmp-25488 ($sc-dispatch - e-23184 + e-25323 '(_ . each-any)))) - (if tmp-23349 + (if tmp-25488 (@apply - (lambda (e1-23353) - (parse-23004 + (lambda (e1-25492) + (parse-25142 (letrec* - ((f-23354 - (lambda (forms-23417) - (if (null? forms-23417) - (cdr body-23017) - (cons (cons er-23025 - (wrap-4515 - (car forms-23417) - w-23185 - mod-23187)) - (f-23354 - (cdr forms-23417))))))) - (f-23354 e1-23353)) - ids-23018 - labels-23019 - var-ids-23020 - vars-23021 - vals-23022 - bindings-23023)) - tmp-23349) + ((f-25493 + (lambda (forms-25556) + (if (null? forms-25556) + (cdr body-25155) + (cons (cons er-25163 + (wrap-6578 + (car forms-25556) + w-25324 + mod-25326)) + (f-25493 + (cdr forms-25556))))))) + (f-25493 e1-25492)) + ids-25156 + labels-25157 + var-ids-25158 + vars-25159 + vals-25160 + bindings-25161)) + tmp-25488) (syntax-violation #f "source expression failed to match any pattern" - e-23184))) - (if (eqv? type-23182 'local-syntax-form) - (expand-local-syntax-4527 - value-23183 - e-23184 - er-23025 - w-23185 - s-23186 - mod-23187 - (lambda (forms-23431 - er-23432 - w-23433 - s-23434 - mod-23435) - (parse-23004 + e-25323))) + (if (eqv? type-25320 'local-syntax-form) + (expand-local-syntax-6590 + value-25321 + e-25323 + er-25163 + w-25324 + s-25325 + mod-25326 + (lambda (forms-25570 + er-25571 + w-25572 + s-25573 + mod-25574) + (parse-25142 (letrec* - ((f-23436 - (lambda (forms-23499) - (if (null? forms-23499) - (cdr body-23017) - (cons (cons er-23432 - (wrap-4515 - (car forms-23499) - w-23433 - mod-23435)) - (f-23436 - (cdr forms-23499))))))) - (f-23436 forms-23431)) - ids-23018 - labels-23019 - var-ids-23020 - vars-23021 - vals-23022 - bindings-23023))) - (if (null? ids-23018) - (build-sequence-4467 + ((f-25575 + (lambda (forms-25638) + (if (null? forms-25638) + (cdr body-25155) + (cons (cons er-25571 + (wrap-6578 + (car forms-25638) + w-25572 + mod-25574)) + (f-25575 + (cdr forms-25638))))))) + (f-25575 forms-25570)) + ids-25156 + labels-25157 + var-ids-25158 + vars-25159 + vals-25160 + bindings-25161))) + (if (null? ids-25156) + (build-sequence-6530 #f - (map (lambda (x-23564) - (let ((e-23568 (cdr x-23564)) - (r-23569 (car x-23564))) + (map (lambda (x-25703) + (let ((e-25707 (cdr x-25703)) + (r-25708 (car x-25703))) (call-with-values (lambda () - (syntax-type-4521 - e-23568 - r-23569 + (syntax-type-6584 + e-25707 + r-25708 '(()) - (source-annotation-4479 - e-23568) + (source-annotation-6542 + e-25707) #f - mod-23187 + mod-25326 #f)) - (lambda (type-23573 - value-23574 - e-23575 - w-23576 - s-23577 - mod-23578) - (expand-expr-4523 - type-23573 - value-23574 - e-23575 - r-23569 - w-23576 - s-23577 - mod-23578))))) - (cons (cons er-23025 - (wrap-4515 + (lambda (type-25712 + value-25713 + form-25714 + e-25715 + w-25716 + s-25717 + mod-25718) + (expand-expr-6586 + type-25712 + value-25713 + form-25714 + e-25715 + r-25708 + w-25716 + s-25717 + mod-25718))))) + (cons (cons er-25163 + (wrap-6578 (begin - (if (if (pair? e-23184) - s-23186 + (if (if (pair? e-25323) + s-25325 #f) (set-source-properties! - e-23184 - s-23186)) - e-23184) - w-23185 - mod-23187)) - (cdr body-23017)))) + e-25323 + s-25325)) + e-25323) + w-25324 + mod-25326)) + (cdr body-25155)))) (begin - (if (not (valid-bound-ids?-4512 - ids-23018)) + (if (not (valid-bound-ids?-6575 + ids-25156)) (syntax-violation #f "invalid or duplicate identifier in definition" - outer-form-22997)) + outer-form-25135)) (letrec* - ((loop-23679 - (lambda (bs-23682 - er-cache-23683 - r-cache-23684) - (if (not (null? bs-23682)) - (let ((b-23685 - (car bs-23682))) - (if (eq? (car b-23685) + ((loop-25819 + (lambda (bs-25822 + er-cache-25823 + r-cache-25824) + (if (not (null? bs-25822)) + (let ((b-25825 + (car bs-25822))) + (if (eq? (car b-25825) 'macro) - (let ((er-23687 - (car (cdr b-23685)))) - (let ((r-cache-23688 - (if (eq? er-23687 - er-cache-23683) - r-cache-23684 - (macros-only-env-4482 - er-23687)))) + (let ((er-25827 + (car (cdr b-25825)))) + (let ((r-cache-25828 + (if (eq? er-25827 + er-cache-25823) + r-cache-25824 + (macros-only-env-6545 + er-25827)))) (begin (set-cdr! - b-23685 - (eval-local-transformer-4528 - (expand-4522 - (cdr (cdr b-23685)) - r-cache-23688 + b-25825 + (eval-local-transformer-6591 + (expand-6585 + (cdr (cdr b-25825)) + r-cache-25828 '(()) - mod-23187) - mod-23187)) - (loop-23679 - (cdr bs-23682) - er-23687 - r-cache-23688)))) - (loop-23679 - (cdr bs-23682) - er-cache-23683 - r-cache-23684))))))) - (loop-23679 bindings-23023 #f #f)) + mod-25326) + mod-25326)) + (loop-25819 + (cdr bs-25822) + er-25827 + r-cache-25828)))) + (loop-25819 + (cdr bs-25822) + er-cache-25823 + r-cache-25824))))))) + (loop-25819 bindings-25161 #f #f)) (set-cdr! - r-23001 - (extend-env-4480 - labels-23019 - bindings-23023 - (cdr r-23001))) - (build-letrec-4470 + r-25139 + (extend-env-6543 + labels-25157 + bindings-25161 + (cdr r-25139))) + (build-letrec-6533 #f #t (reverse (map syntax->datum - var-ids-23020)) - (reverse vars-23021) - (map (lambda (x-24031) - (let ((e-24035 - (cdr x-24031)) - (r-24036 - (car x-24031))) + var-ids-25158)) + (reverse vars-25159) + (map (lambda (x-26171) + (let ((e-26175 + (cdr x-26171)) + (r-26176 + (car x-26171))) (call-with-values (lambda () - (syntax-type-4521 - e-24035 - r-24036 + (syntax-type-6584 + e-26175 + r-26176 '(()) - (source-annotation-4479 - e-24035) + (source-annotation-6542 + e-26175) #f - mod-23187 + mod-25326 #f)) - (lambda (type-24040 - value-24041 - e-24042 - w-24043 - s-24044 - mod-24045) - (expand-expr-4523 - type-24040 - value-24041 - e-24042 - r-24036 - w-24043 - s-24044 - mod-24045))))) - (reverse vals-23022)) - (let ((exps-24051 - (map (lambda (x-24052) - (let ((e-24055 - (cdr x-24052)) - (r-24056 - (car x-24052))) + (lambda (type-26180 + value-26181 + form-26182 + e-26183 + w-26184 + s-26185 + mod-26186) + (expand-expr-6586 + type-26180 + value-26181 + form-26182 + e-26183 + r-26176 + w-26184 + s-26185 + mod-26186))))) + (reverse vals-25160)) + (let ((exps-26192 + (map (lambda (x-26193) + (let ((e-26196 + (cdr x-26193)) + (r-26197 + (car x-26193))) (call-with-values (lambda () - (syntax-type-4521 - e-24055 - r-24056 + (syntax-type-6584 + e-26196 + r-26197 '(()) - (source-annotation-4479 - e-24055) + (source-annotation-6542 + e-26196) #f - mod-23187 + mod-25326 #f)) - (lambda (type-24060 - value-24061 - e-24062 - w-24063 - s-24064 - mod-24065) - (expand-expr-4523 - type-24060 - value-24061 - e-24062 - r-24056 - w-24063 - s-24064 - mod-24065))))) - (cons (cons er-23025 - (wrap-4515 + (lambda (type-26201 + value-26202 + form-26203 + e-26204 + w-26205 + s-26206 + mod-26207) + (expand-expr-6586 + type-26201 + value-26202 + form-26203 + e-26204 + r-26197 + w-26205 + s-26206 + mod-26207))))) + (cons (cons er-25163 + (wrap-6578 (begin - (if (if (pair? e-23184) - s-23186 + (if (if (pair? e-25323) + s-25325 #f) (set-source-properties! - e-23184 - s-23186)) - e-23184) - w-23185 - mod-23187)) - (cdr body-23017))))) - (if (null? (cdr exps-24051)) - (car exps-24051) + e-25323 + s-25325)) + e-25323) + w-25324 + mod-25326)) + (cdr body-25155))))) + (if (null? (cdr exps-26192)) + (car exps-26192) (make-struct/no-tail (vector-ref %expanded-vtables 12) #f - exps-24051))))))))))))))))) - (parse-23004 - (map (lambda (x-23007) - (cons r-23001 - (wrap-4515 x-23007 w-23003 mod-23000))) - body-22996) + exps-26192))))))))))))))))) + (parse-25142 + (map (lambda (x-25145) + (cons r-25139 + (wrap-6578 x-25145 w-25141 mod-25138))) + body-25134) '() '() '() '() '() '()))))))) - (expand-local-syntax-4527 - (lambda (rec?-24091 - e-24092 - r-24093 - w-24094 - s-24095 - mod-24096 - k-24097) - (let ((tmp-24099 + (expand-local-syntax-6590 + (lambda (rec?-26233 + e-26234 + r-26235 + w-26236 + s-26237 + mod-26238 + k-26239) + (let ((tmp-26241 ($sc-dispatch - e-24092 + e-26234 '(_ #(each (any any)) any . each-any)))) - (if tmp-24099 + (if tmp-26241 (@apply - (lambda (id-24103 val-24104 e1-24105 e2-24106) - (if (not (valid-bound-ids?-4512 id-24103)) + (lambda (id-26245 val-26246 e1-26247 e2-26248) + (if (not (valid-bound-ids?-6575 id-26245)) (syntax-violation #f "duplicate bound keyword" - e-24092) - (let ((labels-24196 (gen-labels-4489 id-24103))) - (let ((new-w-24197 - (make-binding-wrap-4500 - id-24103 - labels-24196 - w-24094))) - (k-24097 - (cons e1-24105 e2-24106) - (extend-env-4480 - labels-24196 - (let ((trans-r-24233 - (macros-only-env-4482 r-24093))) + e-26234) + (let ((labels-26338 (gen-labels-6552 id-26245))) + (let ((new-w-26339 + (make-binding-wrap-6563 + id-26245 + labels-26338 + w-26236))) + (k-26239 + (cons e1-26247 e2-26248) + (extend-env-6543 + labels-26338 + (let ((trans-r-26375 + (macros-only-env-6545 r-26235))) (begin - (if rec?-24091 new-w-24197 w-24094) - (map (lambda (x-24234) + (if rec?-26233 new-w-26339 w-26236) + (map (lambda (x-26376) (cons 'macro - (eval-local-transformer-4528 - (expand-4522 - x-24234 - trans-r-24233 + (eval-local-transformer-6591 + (expand-6585 + x-26376 + trans-r-26375 (values - (if rec?-24091 - new-w-24197 - w-24094)) - mod-24096) - mod-24096))) - val-24104))) - r-24093) - new-w-24197 - s-24095 - mod-24096))))) - tmp-24099) + (if rec?-26233 + new-w-26339 + w-26236)) + mod-26238) + mod-26238))) + val-26246))) + r-26235) + new-w-26339 + s-26237 + mod-26238))))) + tmp-26241) (syntax-violation #f "bad local syntax definition" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-24092) s-24095 #f) - (set-source-properties! e-24092 s-24095)) - e-24092) - w-24094 - mod-24096)))))) - (eval-local-transformer-4528 - (lambda (expanded-24514 mod-24515) - (let ((p-24516 (primitive-eval expanded-24514))) - (if (procedure? p-24516) - p-24516 + (if (if (pair? e-26234) s-26237 #f) + (set-source-properties! e-26234 s-26237)) + e-26234) + w-26236 + mod-26238)))))) + (eval-local-transformer-6591 + (lambda (expanded-26656 mod-26657) + (let ((p-26658 (primitive-eval expanded-26656))) + (if (procedure? p-26658) + p-26658 (syntax-violation #f "nonprocedure transformer" - p-24516))))) - (ellipsis?-4530 - (lambda (x-5191) - (if (if (if (vector? x-5191) - (if (= (vector-length x-5191) 4) - (eq? (vector-ref x-5191 0) 'syntax-object) + p-26658))))) + (ellipsis?-6593 + (lambda (x-7254) + (if (if (if (vector? x-7254) + (if (= (vector-length x-7254) 4) + (eq? (vector-ref x-7254 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-5191 1)) + (symbol? (vector-ref x-7254 1)) #f) - (if (eq? (if (if (vector? x-5191) - (if (= (vector-length x-5191) 4) - (eq? (vector-ref x-5191 0) 'syntax-object) + (if (eq? (if (if (vector? x-7254) + (if (= (vector-length x-7254) 4) + (eq? (vector-ref x-7254 0) 'syntax-object) #f) #f) - (vector-ref x-5191 1) - x-5191) + (vector-ref x-7254 1) + x-7254) (if (if (= (vector-length '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2343")) + #(ribcage #(x) #((top)) #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -5026,152 +5105,152 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile))) 4) #t @@ -5182,7 +5261,7 @@ ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2343")) + #(ribcage #(x) #((top)) #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -5464,161 +5543,161 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 x-5191 '(())) - (id-var-name-4505 + (eq? (id-var-name-6568 x-7254 '(())) + (id-var-name-6568 '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-2343")) + #(ribcage #(x) #((top)) #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -5900,420 +5979,420 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)) '(()))) #f) #f))) - (lambda-formals-4531 - (lambda (orig-args-24521) + (lambda-formals-6594 + (lambda (orig-args-26663) (letrec* - ((req-24522 - (lambda (args-24526 rreq-24527) - (let ((tmp-24529 ($sc-dispatch args-24526 '()))) - (if tmp-24529 + ((req-26664 + (lambda (args-26668 rreq-26669) + (let ((tmp-26671 ($sc-dispatch args-26668 '()))) + (if tmp-26671 (@apply - (lambda () (check-24523 (reverse rreq-24527) #f)) - tmp-24529) - (let ((tmp-24652 - ($sc-dispatch args-24526 '(any . any)))) - (if (if tmp-24652 + (lambda () (check-26665 (reverse rreq-26669) #f)) + tmp-26671) + (let ((tmp-26794 + ($sc-dispatch args-26668 '(any . any)))) + (if (if tmp-26794 (@apply - (lambda (a-24656 b-24657) - (if (symbol? a-24656) + (lambda (a-26798 b-26799) + (if (symbol? a-26798) #t - (if (if (vector? a-24656) - (if (= (vector-length a-24656) 4) - (eq? (vector-ref a-24656 0) + (if (if (vector? a-26798) + (if (= (vector-length a-26798) 4) + (eq? (vector-ref a-26798 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-24656 1)) + (symbol? (vector-ref a-26798 1)) #f))) - tmp-24652) + tmp-26794) #f) (@apply - (lambda (a-24684 b-24685) - (req-24522 b-24685 (cons a-24684 rreq-24527))) - tmp-24652) - (let ((tmp-24686 (list args-24526))) + (lambda (a-26826 b-26827) + (req-26664 b-26827 (cons a-26826 rreq-26669))) + tmp-26794) + (let ((tmp-26828 (list args-26668))) (if (@apply - (lambda (r-24688) - (if (symbol? r-24688) + (lambda (r-26830) + (if (symbol? r-26830) #t - (if (if (vector? r-24688) - (if (= (vector-length r-24688) 4) - (eq? (vector-ref r-24688 0) + (if (if (vector? r-26830) + (if (= (vector-length r-26830) 4) + (eq? (vector-ref r-26830 0) 'syntax-object) #f) #f) - (symbol? (vector-ref r-24688 1)) + (symbol? (vector-ref r-26830 1)) #f))) - tmp-24686) + tmp-26828) (@apply - (lambda (r-24718) - (check-24523 (reverse rreq-24527) r-24718)) - tmp-24686) + (lambda (r-26860) + (check-26665 (reverse rreq-26669) r-26860)) + tmp-26828) (syntax-violation 'lambda "invalid argument list" - orig-args-24521 - args-24526))))))))) - (check-24523 - (lambda (req-24849 rest-24850) - (if (distinct-bound-ids?-4513 - (if rest-24850 - (cons rest-24850 req-24849) - req-24849)) - (values req-24849 #f rest-24850 #f) + orig-args-26663 + args-26668))))))))) + (check-26665 + (lambda (req-26991 rest-26992) + (if (distinct-bound-ids?-6576 + (if rest-26992 + (cons rest-26992 req-26991) + req-26991)) + (values req-26991 #f rest-26992 #f) (syntax-violation 'lambda "duplicate identifier in argument list" - orig-args-24521))))) - (req-24522 orig-args-24521 '())))) - (expand-simple-lambda-4532 - (lambda (e-24966 - r-24967 - w-24968 - s-24969 - mod-24970 - req-24971 - rest-24972 - meta-24973 - body-24974) - (let ((ids-24975 - (if rest-24972 - (append req-24971 (list rest-24972)) - req-24971))) - (let ((vars-24976 (map gen-var-4536 ids-24975))) - (let ((labels-24977 (gen-labels-4489 ids-24975))) - (build-simple-lambda-4462 - s-24969 - (map syntax->datum req-24971) - (if rest-24972 (syntax->datum rest-24972) #f) - vars-24976 - meta-24973 - (expand-body-4526 - body-24974 - (wrap-4515 + orig-args-26663))))) + (req-26664 orig-args-26663 '())))) + (expand-simple-lambda-6595 + (lambda (e-27108 + r-27109 + w-27110 + s-27111 + mod-27112 + req-27113 + rest-27114 + meta-27115 + body-27116) + (let ((ids-27117 + (if rest-27114 + (append req-27113 (list rest-27114)) + req-27113))) + (let ((vars-27118 (map gen-var-6599 ids-27117))) + (let ((labels-27119 (gen-labels-6552 ids-27117))) + (build-simple-lambda-6525 + s-27111 + (map syntax->datum req-27113) + (if rest-27114 (syntax->datum rest-27114) #f) + vars-27118 + meta-27115 + (expand-body-6589 + body-27116 + (wrap-6578 (begin - (if (if (pair? e-24966) s-24969 #f) - (set-source-properties! e-24966 s-24969)) - e-24966) - w-24968 - mod-24970) - (extend-var-env-4481 - labels-24977 - vars-24976 - r-24967) - (make-binding-wrap-4500 - ids-24975 - labels-24977 - w-24968) - mod-24970))))))) - (lambda*-formals-4533 - (lambda (orig-args-25257) + (if (if (pair? e-27108) s-27111 #f) + (set-source-properties! e-27108 s-27111)) + e-27108) + w-27110 + mod-27112) + (extend-var-env-6544 + labels-27119 + vars-27118 + r-27109) + (make-binding-wrap-6563 + ids-27117 + labels-27119 + w-27110) + mod-27112))))))) + (lambda*-formals-6596 + (lambda (orig-args-27399) (letrec* - ((req-25258 - (lambda (args-25265 rreq-25266) - (let ((tmp-25268 ($sc-dispatch args-25265 '()))) - (if tmp-25268 + ((req-27400 + (lambda (args-27407 rreq-27408) + (let ((tmp-27410 ($sc-dispatch args-27407 '()))) + (if tmp-27410 (@apply (lambda () - (check-25262 (reverse rreq-25266) '() #f '())) - tmp-25268) - (let ((tmp-25274 - ($sc-dispatch args-25265 '(any . any)))) - (if (if tmp-25274 + (check-27404 (reverse rreq-27408) '() #f '())) + tmp-27410) + (let ((tmp-27416 + ($sc-dispatch args-27407 '(any . any)))) + (if (if tmp-27416 (@apply - (lambda (a-25278 b-25279) - (if (symbol? a-25278) + (lambda (a-27420 b-27421) + (if (symbol? a-27420) #t - (if (if (vector? a-25278) - (if (= (vector-length a-25278) 4) - (eq? (vector-ref a-25278 0) + (if (if (vector? a-27420) + (if (= (vector-length a-27420) 4) + (eq? (vector-ref a-27420 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25278 1)) + (symbol? (vector-ref a-27420 1)) #f))) - tmp-25274) + tmp-27416) #f) (@apply - (lambda (a-25306 b-25307) - (req-25258 b-25307 (cons a-25306 rreq-25266))) - tmp-25274) - (let ((tmp-25308 - ($sc-dispatch args-25265 '(any . any)))) - (if (if tmp-25308 + (lambda (a-27448 b-27449) + (req-27400 b-27449 (cons a-27448 rreq-27408))) + tmp-27416) + (let ((tmp-27450 + ($sc-dispatch args-27407 '(any . any)))) + (if (if tmp-27450 (@apply - (lambda (a-25312 b-25313) - (eq? (syntax->datum a-25312) #:optional)) - tmp-25308) + (lambda (a-27454 b-27455) + (eq? (syntax->datum a-27454) #:optional)) + tmp-27450) #f) (@apply - (lambda (a-25314 b-25315) - (opt-25259 b-25315 (reverse rreq-25266) '())) - tmp-25308) - (let ((tmp-25318 - ($sc-dispatch args-25265 '(any . any)))) - (if (if tmp-25318 + (lambda (a-27456 b-27457) + (opt-27401 b-27457 (reverse rreq-27408) '())) + tmp-27450) + (let ((tmp-27460 + ($sc-dispatch args-27407 '(any . any)))) + (if (if tmp-27460 (@apply - (lambda (a-25322 b-25323) - (eq? (syntax->datum a-25322) #:key)) - tmp-25318) + (lambda (a-27464 b-27465) + (eq? (syntax->datum a-27464) #:key)) + tmp-27460) #f) (@apply - (lambda (a-25324 b-25325) - (key-25260 - b-25325 - (reverse rreq-25266) + (lambda (a-27466 b-27467) + (key-27402 + b-27467 + (reverse rreq-27408) '() '())) - tmp-25318) - (let ((tmp-25328 - ($sc-dispatch args-25265 '(any any)))) - (if (if tmp-25328 + tmp-27460) + (let ((tmp-27470 + ($sc-dispatch args-27407 '(any any)))) + (if (if tmp-27470 (@apply - (lambda (a-25332 b-25333) - (eq? (syntax->datum a-25332) + (lambda (a-27474 b-27475) + (eq? (syntax->datum a-27474) #:rest)) - tmp-25328) + tmp-27470) #f) (@apply - (lambda (a-25334 b-25335) - (rest-25261 - b-25335 - (reverse rreq-25266) + (lambda (a-27476 b-27477) + (rest-27403 + b-27477 + (reverse rreq-27408) '() '())) - tmp-25328) - (let ((tmp-25338 (list args-25265))) + tmp-27470) + (let ((tmp-27480 (list args-27407))) (if (@apply - (lambda (r-25340) - (if (symbol? r-25340) + (lambda (r-27482) + (if (symbol? r-27482) #t - (if (if (vector? r-25340) + (if (if (vector? r-27482) (if (= (vector-length - r-25340) + r-27482) 4) (eq? (vector-ref - r-25340 + r-27482 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-25340 1)) + (vector-ref r-27482 1)) #f))) - tmp-25338) + tmp-27480) (@apply - (lambda (r-25370) - (rest-25261 - r-25370 - (reverse rreq-25266) + (lambda (r-27512) + (rest-27403 + r-27512 + (reverse rreq-27408) '() '())) - tmp-25338) + tmp-27480) (syntax-violation 'lambda* "invalid argument list" - orig-args-25257 - args-25265))))))))))))))) - (opt-25259 - (lambda (args-25389 req-25390 ropt-25391) - (let ((tmp-25393 ($sc-dispatch args-25389 '()))) - (if tmp-25393 + orig-args-27399 + args-27407))))))))))))))) + (opt-27401 + (lambda (args-27531 req-27532 ropt-27533) + (let ((tmp-27535 ($sc-dispatch args-27531 '()))) + (if tmp-27535 (@apply (lambda () - (check-25262 - req-25390 - (reverse ropt-25391) + (check-27404 + req-27532 + (reverse ropt-27533) #f '())) - tmp-25393) - (let ((tmp-25399 - ($sc-dispatch args-25389 '(any . any)))) - (if (if tmp-25399 + tmp-27535) + (let ((tmp-27541 + ($sc-dispatch args-27531 '(any . any)))) + (if (if tmp-27541 (@apply - (lambda (a-25403 b-25404) - (if (symbol? a-25403) + (lambda (a-27545 b-27546) + (if (symbol? a-27545) #t - (if (if (vector? a-25403) - (if (= (vector-length a-25403) 4) - (eq? (vector-ref a-25403 0) + (if (if (vector? a-27545) + (if (= (vector-length a-27545) 4) + (eq? (vector-ref a-27545 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25403 1)) + (symbol? (vector-ref a-27545 1)) #f))) - tmp-25399) + tmp-27541) #f) (@apply - (lambda (a-25431 b-25432) - (opt-25259 - b-25432 - req-25390 - (cons (cons a-25431 + (lambda (a-27573 b-27574) + (opt-27401 + b-27574 + req-27532 + (cons (cons a-27573 '(#(syntax-object #f ((top) #(ribcage #(a b) #((top) (top)) - #("l-*-2482" "l-*-2483")) + #("l-*-4543" "l-*-4544")) #(ribcage () () ()) #(ribcage #(args req ropt) #((top) (top) (top)) - #("l-*-2472" - "l-*-2473" - "l-*-2474")) + #("l-*-4533" + "l-*-4534" + "l-*-4535")) #(ribcage (check rest key opt req) ((top) @@ -6321,15 +6400,15 @@ (top) (top) (top)) - ("l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410")) + ("l-*-4479" + "l-*-4477" + "l-*-4475" + "l-*-4473" + "l-*-4471")) #(ribcage #(orig-args) #((top)) - #("l-*-2409")) + #("l-*-4470")) #(ribcage (lambda-var-list gen-var @@ -6611,283 +6690,285 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - ropt-25391))) - tmp-25399) - (let ((tmp-25433 - ($sc-dispatch args-25389 '((any any) . any)))) - (if (if tmp-25433 + ropt-27533))) + tmp-27541) + (let ((tmp-27575 + ($sc-dispatch args-27531 '((any any) . any)))) + (if (if tmp-27575 (@apply - (lambda (a-25437 init-25438 b-25439) - (if (symbol? a-25437) + (lambda (a-27579 init-27580 b-27581) + (if (symbol? a-27579) #t - (if (if (vector? a-25437) - (if (= (vector-length a-25437) 4) - (eq? (vector-ref a-25437 0) + (if (if (vector? a-27579) + (if (= (vector-length a-27579) 4) + (eq? (vector-ref a-27579 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25437 1)) + (symbol? (vector-ref a-27579 1)) #f))) - tmp-25433) + tmp-27575) #f) (@apply - (lambda (a-25466 init-25467 b-25468) - (opt-25259 - b-25468 - req-25390 - (cons (list a-25466 init-25467) ropt-25391))) - tmp-25433) - (let ((tmp-25469 - ($sc-dispatch args-25389 '(any . any)))) - (if (if tmp-25469 + (lambda (a-27608 init-27609 b-27610) + (opt-27401 + b-27610 + req-27532 + (cons (list a-27608 init-27609) ropt-27533))) + tmp-27575) + (let ((tmp-27611 + ($sc-dispatch args-27531 '(any . any)))) + (if (if tmp-27611 (@apply - (lambda (a-25473 b-25474) - (eq? (syntax->datum a-25473) #:key)) - tmp-25469) + (lambda (a-27615 b-27616) + (eq? (syntax->datum a-27615) #:key)) + tmp-27611) #f) (@apply - (lambda (a-25475 b-25476) - (key-25260 - b-25476 - req-25390 - (reverse ropt-25391) + (lambda (a-27617 b-27618) + (key-27402 + b-27618 + req-27532 + (reverse ropt-27533) '())) - tmp-25469) - (let ((tmp-25479 - ($sc-dispatch args-25389 '(any any)))) - (if (if tmp-25479 + tmp-27611) + (let ((tmp-27621 + ($sc-dispatch args-27531 '(any any)))) + (if (if tmp-27621 (@apply - (lambda (a-25483 b-25484) - (eq? (syntax->datum a-25483) + (lambda (a-27625 b-27626) + (eq? (syntax->datum a-27625) #:rest)) - tmp-25479) + tmp-27621) #f) (@apply - (lambda (a-25485 b-25486) - (rest-25261 - b-25486 - req-25390 - (reverse ropt-25391) + (lambda (a-27627 b-27628) + (rest-27403 + b-27628 + req-27532 + (reverse ropt-27533) '())) - tmp-25479) - (let ((tmp-25489 (list args-25389))) + tmp-27621) + (let ((tmp-27631 (list args-27531))) (if (@apply - (lambda (r-25491) - (if (symbol? r-25491) + (lambda (r-27633) + (if (symbol? r-27633) #t - (if (if (vector? r-25491) + (if (if (vector? r-27633) (if (= (vector-length - r-25491) + r-27633) 4) (eq? (vector-ref - r-25491 + r-27633 0) 'syntax-object) #f) #f) (symbol? - (vector-ref r-25491 1)) + (vector-ref r-27633 1)) #f))) - tmp-25489) + tmp-27631) (@apply - (lambda (r-25521) - (rest-25261 - r-25521 - req-25390 - (reverse ropt-25391) + (lambda (r-27663) + (rest-27403 + r-27663 + req-27532 + (reverse ropt-27533) '())) - tmp-25489) + tmp-27631) (syntax-violation 'lambda* "invalid optional argument list" - orig-args-25257 - args-25389))))))))))))))) - (key-25260 - (lambda (args-25540 req-25541 opt-25542 rkey-25543) - (let ((tmp-25545 ($sc-dispatch args-25540 '()))) - (if tmp-25545 + orig-args-27399 + args-27531))))))))))))))) + (key-27402 + (lambda (args-27682 req-27683 opt-27684 rkey-27685) + (let ((tmp-27687 ($sc-dispatch args-27682 '()))) + (if tmp-27687 (@apply (lambda () - (check-25262 - req-25541 - opt-25542 + (check-27404 + req-27683 + opt-27684 #f - (cons #f (reverse rkey-25543)))) - tmp-25545) - (let ((tmp-25551 - ($sc-dispatch args-25540 '(any . any)))) - (if (if tmp-25551 + (cons #f (reverse rkey-27685)))) + tmp-27687) + (let ((tmp-27693 + ($sc-dispatch args-27682 '(any . any)))) + (if (if tmp-27693 (@apply - (lambda (a-25555 b-25556) - (if (symbol? a-25555) + (lambda (a-27697 b-27698) + (if (symbol? a-27697) #t - (if (if (vector? a-25555) - (if (= (vector-length a-25555) 4) - (eq? (vector-ref a-25555 0) + (if (if (vector? a-27697) + (if (= (vector-length a-27697) 4) + (eq? (vector-ref a-27697 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25555 1)) + (symbol? (vector-ref a-27697 1)) #f))) - tmp-25551) + tmp-27693) #f) (@apply - (lambda (a-25583 b-25584) - (let ((tmp-25585 - (symbol->keyword (syntax->datum a-25583)))) - (key-25260 - b-25584 - req-25541 - opt-25542 - (cons (cons tmp-25585 - (cons a-25583 + (lambda (a-27725 b-27726) + (let ((tmp-27727 + (symbol->keyword (syntax->datum a-27725)))) + (key-27402 + b-27726 + req-27683 + opt-27684 + (cons (cons tmp-27727 + (cons a-27725 '(#(syntax-object #f ((top) @@ -6895,12 +6976,12 @@ #(ribcage #(k) #((top)) - #("l-*-2545")) + #("l-*-4606")) #(ribcage #(a b) #((top) (top)) - #("l-*-2539" - "l-*-2540")) + #("l-*-4600" + "l-*-4601")) #(ribcage () () ()) #(ribcage #(args req opt rkey) @@ -6908,10 +6989,10 @@ (top) (top) (top)) - #("l-*-2528" - "l-*-2529" - "l-*-2530" - "l-*-2531")) + #("l-*-4589" + "l-*-4590" + "l-*-4591" + "l-*-4592")) #(ribcage (check rest key @@ -6922,15 +7003,15 @@ (top) (top) (top)) - ("l-*-2418" - "l-*-2416" - "l-*-2414" - "l-*-2412" - "l-*-2410")) + ("l-*-4479" + "l-*-4477" + "l-*-4475" + "l-*-4473" + "l-*-4471")) #(ribcage #(orig-args) #((top)) - #("l-*-2409")) + #("l-*-4470")) #(ribcage (lambda-var-list gen-var @@ -7212,875 +7293,875 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))))) - rkey-25543)))) - tmp-25551) - (let ((tmp-25588 - ($sc-dispatch args-25540 '((any any) . any)))) - (if (if tmp-25588 + rkey-27685)))) + tmp-27693) + (let ((tmp-27730 + ($sc-dispatch args-27682 '((any any) . any)))) + (if (if tmp-27730 (@apply - (lambda (a-25592 init-25593 b-25594) - (if (symbol? a-25592) + (lambda (a-27734 init-27735 b-27736) + (if (symbol? a-27734) #t - (if (if (vector? a-25592) - (if (= (vector-length a-25592) 4) - (eq? (vector-ref a-25592 0) + (if (if (vector? a-27734) + (if (= (vector-length a-27734) 4) + (eq? (vector-ref a-27734 0) 'syntax-object) #f) #f) - (symbol? (vector-ref a-25592 1)) + (symbol? (vector-ref a-27734 1)) #f))) - tmp-25588) + tmp-27730) #f) (@apply - (lambda (a-25621 init-25622 b-25623) - (let ((tmp-25624 + (lambda (a-27763 init-27764 b-27765) + (let ((tmp-27766 (symbol->keyword - (syntax->datum a-25621)))) - (key-25260 - b-25623 - req-25541 - opt-25542 - (cons (list tmp-25624 a-25621 init-25622) - rkey-25543)))) - tmp-25588) - (let ((tmp-25627 + (syntax->datum a-27763)))) + (key-27402 + b-27765 + req-27683 + opt-27684 + (cons (list tmp-27766 a-27763 init-27764) + rkey-27685)))) + tmp-27730) + (let ((tmp-27769 ($sc-dispatch - args-25540 + args-27682 '((any any any) . any)))) - (if (if tmp-25627 + (if (if tmp-27769 (@apply - (lambda (a-25631 - init-25632 - k-25633 - b-25634) - (if (if (symbol? a-25631) + (lambda (a-27773 + init-27774 + k-27775 + b-27776) + (if (if (symbol? a-27773) #t - (if (if (vector? a-25631) + (if (if (vector? a-27773) (if (= (vector-length - a-25631) + a-27773) 4) (eq? (vector-ref - a-25631 + a-27773 0) 'syntax-object) #f) #f) (symbol? - (vector-ref a-25631 1)) + (vector-ref a-27773 1)) #f)) - (keyword? (syntax->datum k-25633)) + (keyword? (syntax->datum k-27775)) #f)) - tmp-25627) + tmp-27769) #f) (@apply - (lambda (a-25661 init-25662 k-25663 b-25664) - (key-25260 - b-25664 - req-25541 - opt-25542 - (cons (list k-25663 a-25661 init-25662) - rkey-25543))) - tmp-25627) - (let ((tmp-25665 - ($sc-dispatch args-25540 '(any)))) - (if (if tmp-25665 + (lambda (a-27803 init-27804 k-27805 b-27806) + (key-27402 + b-27806 + req-27683 + opt-27684 + (cons (list k-27805 a-27803 init-27804) + rkey-27685))) + tmp-27769) + (let ((tmp-27807 + ($sc-dispatch args-27682 '(any)))) + (if (if tmp-27807 (@apply - (lambda (aok-25669) - (eq? (syntax->datum aok-25669) + (lambda (aok-27811) + (eq? (syntax->datum aok-27811) #:allow-other-keys)) - tmp-25665) + tmp-27807) #f) (@apply - (lambda (aok-25670) - (check-25262 - req-25541 - opt-25542 + (lambda (aok-27812) + (check-27404 + req-27683 + opt-27684 #f - (cons #t (reverse rkey-25543)))) - tmp-25665) - (let ((tmp-25673 + (cons #t (reverse rkey-27685)))) + tmp-27807) + (let ((tmp-27815 ($sc-dispatch - args-25540 + args-27682 '(any any any)))) - (if (if tmp-25673 + (if (if tmp-27815 (@apply - (lambda (aok-25677 - a-25678 - b-25679) + (lambda (aok-27819 + a-27820 + b-27821) (if (eq? (syntax->datum - aok-25677) + aok-27819) #:allow-other-keys) - (eq? (syntax->datum a-25678) + (eq? (syntax->datum a-27820) #:rest) #f)) - tmp-25673) + tmp-27815) #f) (@apply - (lambda (aok-25680 a-25681 b-25682) - (rest-25261 - b-25682 - req-25541 - opt-25542 - (cons #t (reverse rkey-25543)))) - tmp-25673) - (let ((tmp-25685 + (lambda (aok-27822 a-27823 b-27824) + (rest-27403 + b-27824 + req-27683 + opt-27684 + (cons #t (reverse rkey-27685)))) + tmp-27815) + (let ((tmp-27827 ($sc-dispatch - args-25540 + args-27682 '(any . any)))) - (if (if tmp-25685 + (if (if tmp-27827 (@apply - (lambda (aok-25689 r-25690) + (lambda (aok-27831 r-27832) (if (eq? (syntax->datum - aok-25689) + aok-27831) #:allow-other-keys) - (if (symbol? r-25690) + (if (symbol? r-27832) #t (if (if (vector? - r-25690) + r-27832) (if (= (vector-length - r-25690) + r-27832) 4) (eq? (vector-ref - r-25690 + r-27832 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-25690 + r-27832 1)) #f)) #f)) - tmp-25685) + tmp-27827) #f) (@apply - (lambda (aok-25717 r-25718) - (rest-25261 - r-25718 - req-25541 - opt-25542 + (lambda (aok-27859 r-27860) + (rest-27403 + r-27860 + req-27683 + opt-27684 (cons #t - (reverse rkey-25543)))) - tmp-25685) - (let ((tmp-25721 + (reverse rkey-27685)))) + tmp-27827) + (let ((tmp-27863 ($sc-dispatch - args-25540 + args-27682 '(any any)))) - (if (if tmp-25721 + (if (if tmp-27863 (@apply - (lambda (a-25725 b-25726) + (lambda (a-27867 b-27868) (eq? (syntax->datum - a-25725) + a-27867) #:rest)) - tmp-25721) + tmp-27863) #f) (@apply - (lambda (a-25727 b-25728) - (rest-25261 - b-25728 - req-25541 - opt-25542 + (lambda (a-27869 b-27870) + (rest-27403 + b-27870 + req-27683 + opt-27684 (cons #f (reverse - rkey-25543)))) - tmp-25721) - (let ((tmp-25731 - (list args-25540))) + rkey-27685)))) + tmp-27863) + (let ((tmp-27873 + (list args-27682))) (if (@apply - (lambda (r-25733) - (if (symbol? r-25733) + (lambda (r-27875) + (if (symbol? r-27875) #t (if (if (vector? - r-25733) + r-27875) (if (= (vector-length - r-25733) + r-27875) 4) (eq? (vector-ref - r-25733 + r-27875 0) 'syntax-object) #f) #f) (symbol? (vector-ref - r-25733 + r-27875 1)) #f))) - tmp-25731) + tmp-27873) (@apply - (lambda (r-25763) - (rest-25261 - r-25763 - req-25541 - opt-25542 + (lambda (r-27905) + (rest-27403 + r-27905 + req-27683 + opt-27684 (cons #f (reverse - rkey-25543)))) - tmp-25731) + rkey-27685)))) + tmp-27873) (syntax-violation 'lambda* "invalid keyword argument list" - orig-args-25257 - args-25540))))))))))))))))))))) - (rest-25261 - (lambda (args-25791 req-25792 opt-25793 kw-25794) - (let ((tmp-25796 (list args-25791))) + orig-args-27399 + args-27682))))))))))))))))))))) + (rest-27403 + (lambda (args-27933 req-27934 opt-27935 kw-27936) + (let ((tmp-27938 (list args-27933))) (if (@apply - (lambda (r-25798) - (if (symbol? r-25798) + (lambda (r-27940) + (if (symbol? r-27940) #t - (if (if (vector? r-25798) - (if (= (vector-length r-25798) 4) - (eq? (vector-ref r-25798 0) 'syntax-object) + (if (if (vector? r-27940) + (if (= (vector-length r-27940) 4) + (eq? (vector-ref r-27940 0) 'syntax-object) #f) #f) - (symbol? (vector-ref r-25798 1)) + (symbol? (vector-ref r-27940 1)) #f))) - tmp-25796) + tmp-27938) (@apply - (lambda (r-25828) - (check-25262 - req-25792 - opt-25793 - r-25828 - kw-25794)) - tmp-25796) + (lambda (r-27970) + (check-27404 + req-27934 + opt-27935 + r-27970 + kw-27936)) + tmp-27938) (syntax-violation 'lambda* "invalid rest argument" - orig-args-25257 - args-25791))))) - (check-25262 - (lambda (req-25832 opt-25833 rest-25834 kw-25835) - (if (distinct-bound-ids?-4513 + orig-args-27399 + args-27933))))) + (check-27404 + (lambda (req-27974 opt-27975 rest-27976 kw-27977) + (if (distinct-bound-ids?-6576 (append - req-25832 - (map car opt-25833) - (if rest-25834 (list rest-25834) '()) - (if (pair? kw-25835) - (map cadr (cdr kw-25835)) + req-27974 + (map car opt-27975) + (if rest-27976 (list rest-27976) '()) + (if (pair? kw-27977) + (map cadr (cdr kw-27977)) '()))) - (values req-25832 opt-25833 rest-25834 kw-25835) + (values req-27974 opt-27975 rest-27976 kw-27977) (syntax-violation 'lambda* "duplicate identifier in argument list" - orig-args-25257))))) - (req-25258 orig-args-25257 '())))) - (expand-lambda-case-4534 - (lambda (e-25951 - r-25952 - w-25953 - s-25954 - mod-25955 - get-formals-25956 - clauses-25957) + orig-args-27399))))) + (req-27400 orig-args-27399 '())))) + (expand-lambda-case-6597 + (lambda (e-28093 + r-28094 + w-28095 + s-28096 + mod-28097 + get-formals-28098 + clauses-28099) (letrec* - ((parse-req-25958 - (lambda (req-26089 - opt-26090 - rest-26091 - kw-26092 - body-26093) - (let ((vars-26094 (map gen-var-4536 req-26089)) - (labels-26095 (gen-labels-4489 req-26089))) - (let ((r*-26096 - (extend-var-env-4481 - labels-26095 - vars-26094 - r-25952)) - (w*-26097 - (make-binding-wrap-4500 - req-26089 - labels-26095 - w-25953))) - (parse-opt-25959 - (map syntax->datum req-26089) - opt-26090 - rest-26091 - kw-26092 - body-26093 - (reverse vars-26094) - r*-26096 - w*-26097 + ((parse-req-28100 + (lambda (req-28231 + opt-28232 + rest-28233 + kw-28234 + body-28235) + (let ((vars-28236 (map gen-var-6599 req-28231)) + (labels-28237 (gen-labels-6552 req-28231))) + (let ((r*-28238 + (extend-var-env-6544 + labels-28237 + vars-28236 + r-28094)) + (w*-28239 + (make-binding-wrap-6563 + req-28231 + labels-28237 + w-28095))) + (parse-opt-28101 + (map syntax->datum req-28231) + opt-28232 + rest-28233 + kw-28234 + body-28235 + (reverse vars-28236) + r*-28238 + w*-28239 '() '()))))) - (parse-opt-25959 - (lambda (req-26283 - opt-26284 - rest-26285 - kw-26286 - body-26287 - vars-26288 - r*-26289 - w*-26290 - out-26291 - inits-26292) - (if (pair? opt-26284) - (let ((tmp-26293 (car opt-26284))) - (let ((tmp-26294 ($sc-dispatch tmp-26293 '(any any)))) - (if tmp-26294 + (parse-opt-28101 + (lambda (req-28425 + opt-28426 + rest-28427 + kw-28428 + body-28429 + vars-28430 + r*-28431 + w*-28432 + out-28433 + inits-28434) + (if (pair? opt-28426) + (let ((tmp-28435 (car opt-28426))) + (let ((tmp-28436 ($sc-dispatch tmp-28435 '(any any)))) + (if tmp-28436 (@apply - (lambda (id-26296 i-26297) - (let ((v-26298 - (let ((id-26306 - (if (if (vector? id-26296) + (lambda (id-28438 i-28439) + (let ((v-28440 + (let ((id-28448 + (if (if (vector? id-28438) (if (= (vector-length - id-26296) + id-28438) 4) (eq? (vector-ref - id-26296 + id-28438 0) 'syntax-object) #f) #f) - (vector-ref id-26296 1) - id-26296))) + (vector-ref id-28438 1) + id-28438))) (gensym (string-append - (symbol->string id-26306) + (symbol->string id-28448) "-"))))) - (let ((l-26299 (gen-labels-4489 (list v-26298)))) - (let ((r**-26300 - (extend-var-env-4481 - l-26299 - (list v-26298) - r*-26289))) - (let ((w**-26301 - (make-binding-wrap-4500 - (list id-26296) - l-26299 - w*-26290))) - (parse-opt-25959 - req-26283 - (cdr opt-26284) - rest-26285 - kw-26286 - body-26287 - (cons v-26298 vars-26288) - r**-26300 - w**-26301 - (cons (syntax->datum id-26296) out-26291) - (cons (expand-4522 - i-26297 - r*-26289 - w*-26290 - mod-25955) - inits-26292))))))) - tmp-26294) + (let ((l-28441 (gen-labels-6552 (list v-28440)))) + (let ((r**-28442 + (extend-var-env-6544 + l-28441 + (list v-28440) + r*-28431))) + (let ((w**-28443 + (make-binding-wrap-6563 + (list id-28438) + l-28441 + w*-28432))) + (parse-opt-28101 + req-28425 + (cdr opt-28426) + rest-28427 + kw-28428 + body-28429 + (cons v-28440 vars-28430) + r**-28442 + w**-28443 + (cons (syntax->datum id-28438) out-28433) + (cons (expand-6585 + i-28439 + r*-28431 + w*-28432 + mod-28097) + inits-28434))))))) + tmp-28436) (syntax-violation #f "source expression failed to match any pattern" - tmp-26293)))) - (if rest-26285 - (let ((v-26544 - (let ((id-26554 - (if (if (vector? rest-26285) - (if (= (vector-length rest-26285) 4) - (eq? (vector-ref rest-26285 0) + tmp-28435)))) + (if rest-28427 + (let ((v-28686 + (let ((id-28696 + (if (if (vector? rest-28427) + (if (= (vector-length rest-28427) 4) + (eq? (vector-ref rest-28427 0) 'syntax-object) #f) #f) - (vector-ref rest-26285 1) - rest-26285))) + (vector-ref rest-28427 1) + rest-28427))) (gensym (string-append - (symbol->string id-26554) + (symbol->string id-28696) "-"))))) - (let ((l-26545 (gen-labels-4489 (list v-26544)))) - (let ((r*-26546 - (extend-var-env-4481 - l-26545 - (list v-26544) - r*-26289))) - (let ((w*-26547 - (make-binding-wrap-4500 - (list rest-26285) - l-26545 - w*-26290))) - (parse-kw-25960 - req-26283 - (if (pair? out-26291) (reverse out-26291) #f) - (syntax->datum rest-26285) - (if (pair? kw-26286) (cdr kw-26286) kw-26286) - body-26287 - (cons v-26544 vars-26288) - r*-26546 - w*-26547 - (if (pair? kw-26286) (car kw-26286) #f) + (let ((l-28687 (gen-labels-6552 (list v-28686)))) + (let ((r*-28688 + (extend-var-env-6544 + l-28687 + (list v-28686) + r*-28431))) + (let ((w*-28689 + (make-binding-wrap-6563 + (list rest-28427) + l-28687 + w*-28432))) + (parse-kw-28102 + req-28425 + (if (pair? out-28433) (reverse out-28433) #f) + (syntax->datum rest-28427) + (if (pair? kw-28428) (cdr kw-28428) kw-28428) + body-28429 + (cons v-28686 vars-28430) + r*-28688 + w*-28689 + (if (pair? kw-28428) (car kw-28428) #f) '() - inits-26292))))) - (parse-kw-25960 - req-26283 - (if (pair? out-26291) (reverse out-26291) #f) + inits-28434))))) + (parse-kw-28102 + req-28425 + (if (pair? out-28433) (reverse out-28433) #f) #f - (if (pair? kw-26286) (cdr kw-26286) kw-26286) - body-26287 - vars-26288 - r*-26289 - w*-26290 - (if (pair? kw-26286) (car kw-26286) #f) + (if (pair? kw-28428) (cdr kw-28428) kw-28428) + body-28429 + vars-28430 + r*-28431 + w*-28432 + (if (pair? kw-28428) (car kw-28428) #f) '() - inits-26292))))) - (parse-kw-25960 - (lambda (req-26725 - opt-26726 - rest-26727 - kw-26728 - body-26729 - vars-26730 - r*-26731 - w*-26732 - aok-26733 - out-26734 - inits-26735) - (if (pair? kw-26728) - (let ((tmp-26736 (car kw-26728))) - (let ((tmp-26737 - ($sc-dispatch tmp-26736 '(any any any)))) - (if tmp-26737 + inits-28434))))) + (parse-kw-28102 + (lambda (req-28867 + opt-28868 + rest-28869 + kw-28870 + body-28871 + vars-28872 + r*-28873 + w*-28874 + aok-28875 + out-28876 + inits-28877) + (if (pair? kw-28870) + (let ((tmp-28878 (car kw-28870))) + (let ((tmp-28879 + ($sc-dispatch tmp-28878 '(any any any)))) + (if tmp-28879 (@apply - (lambda (k-26739 id-26740 i-26741) - (let ((v-26742 - (let ((id-26750 - (if (if (vector? id-26740) + (lambda (k-28881 id-28882 i-28883) + (let ((v-28884 + (let ((id-28892 + (if (if (vector? id-28882) (if (= (vector-length - id-26740) + id-28882) 4) (eq? (vector-ref - id-26740 + id-28882 0) 'syntax-object) #f) #f) - (vector-ref id-26740 1) - id-26740))) + (vector-ref id-28882 1) + id-28882))) (gensym (string-append - (symbol->string id-26750) + (symbol->string id-28892) "-"))))) - (let ((l-26743 (gen-labels-4489 (list v-26742)))) - (let ((r**-26744 - (extend-var-env-4481 - l-26743 - (list v-26742) - r*-26731))) - (let ((w**-26745 - (make-binding-wrap-4500 - (list id-26740) - l-26743 - w*-26732))) - (parse-kw-25960 - req-26725 - opt-26726 - rest-26727 - (cdr kw-26728) - body-26729 - (cons v-26742 vars-26730) - r**-26744 - w**-26745 - aok-26733 - (cons (list (syntax->datum k-26739) - (syntax->datum id-26740) - v-26742) - out-26734) - (cons (expand-4522 - i-26741 - r*-26731 - w*-26732 - mod-25955) - inits-26735))))))) - tmp-26737) + (let ((l-28885 (gen-labels-6552 (list v-28884)))) + (let ((r**-28886 + (extend-var-env-6544 + l-28885 + (list v-28884) + r*-28873))) + (let ((w**-28887 + (make-binding-wrap-6563 + (list id-28882) + l-28885 + w*-28874))) + (parse-kw-28102 + req-28867 + opt-28868 + rest-28869 + (cdr kw-28870) + body-28871 + (cons v-28884 vars-28872) + r**-28886 + w**-28887 + aok-28875 + (cons (list (syntax->datum k-28881) + (syntax->datum id-28882) + v-28884) + out-28876) + (cons (expand-6585 + i-28883 + r*-28873 + w*-28874 + mod-28097) + inits-28877))))))) + tmp-28879) (syntax-violation #f "source expression failed to match any pattern" - tmp-26736)))) - (parse-body-25961 - req-26725 - opt-26726 - rest-26727 - (if (if aok-26733 aok-26733 (pair? out-26734)) - (cons aok-26733 (reverse out-26734)) + tmp-28878)))) + (parse-body-28103 + req-28867 + opt-28868 + rest-28869 + (if (if aok-28875 aok-28875 (pair? out-28876)) + (cons aok-28875 (reverse out-28876)) #f) - body-26729 - (reverse vars-26730) - r*-26731 - w*-26732 - (reverse inits-26735) + body-28871 + (reverse vars-28872) + r*-28873 + w*-28874 + (reverse inits-28877) '())))) - (parse-body-25961 - (lambda (req-26997 - opt-26998 - rest-26999 - kw-27000 - body-27001 - vars-27002 - r*-27003 - w*-27004 - inits-27005 - meta-27006) - (let ((tmp-27008 - ($sc-dispatch body-27001 '(any any . each-any)))) - (if (if tmp-27008 + (parse-body-28103 + (lambda (req-29139 + opt-29140 + rest-29141 + kw-29142 + body-29143 + vars-29144 + r*-29145 + w*-29146 + inits-29147 + meta-29148) + (let ((tmp-29150 + ($sc-dispatch body-29143 '(any any . each-any)))) + (if (if tmp-29150 (@apply - (lambda (docstring-27012 e1-27013 e2-27014) - (string? (syntax->datum docstring-27012))) - tmp-27008) + (lambda (docstring-29154 e1-29155 e2-29156) + (string? (syntax->datum docstring-29154))) + tmp-29150) #f) (@apply - (lambda (docstring-27015 e1-27016 e2-27017) - (parse-body-25961 - req-26997 - opt-26998 - rest-26999 - kw-27000 - (cons e1-27016 e2-27017) - vars-27002 - r*-27003 - w*-27004 - inits-27005 + (lambda (docstring-29157 e1-29158 e2-29159) + (parse-body-28103 + req-29139 + opt-29140 + rest-29141 + kw-29142 + (cons e1-29158 e2-29159) + vars-29144 + r*-29145 + w*-29146 + inits-29147 (append - meta-27006 + meta-29148 (list (cons 'documentation - (syntax->datum docstring-27015)))))) - tmp-27008) - (let ((tmp-27018 + (syntax->datum docstring-29157)))))) + tmp-29150) + (let ((tmp-29160 ($sc-dispatch - body-27001 + body-29143 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-27018 + (if tmp-29160 (@apply - (lambda (k-27022 v-27023 e1-27024 e2-27025) - (parse-body-25961 - req-26997 - opt-26998 - rest-26999 - kw-27000 - (cons e1-27024 e2-27025) - vars-27002 - r*-27003 - w*-27004 - inits-27005 + (lambda (k-29164 v-29165 e1-29166 e2-29167) + (parse-body-28103 + req-29139 + opt-29140 + rest-29141 + kw-29142 + (cons e1-29166 e2-29167) + vars-29144 + r*-29145 + w*-29146 + inits-29147 (append - meta-27006 - (syntax->datum (map cons k-27022 v-27023))))) - tmp-27018) - (let ((tmp-27026 - ($sc-dispatch body-27001 '(any . each-any)))) - (if tmp-27026 + meta-29148 + (syntax->datum (map cons k-29164 v-29165))))) + tmp-29160) + (let ((tmp-29168 + ($sc-dispatch body-29143 '(any . each-any)))) + (if tmp-29168 (@apply - (lambda (e1-27030 e2-27031) + (lambda (e1-29172 e2-29173) (values - meta-27006 - req-26997 - opt-26998 - rest-26999 - kw-27000 - inits-27005 - vars-27002 - (expand-body-4526 - (cons e1-27030 e2-27031) - (wrap-4515 + meta-29148 + req-29139 + opt-29140 + rest-29141 + kw-29142 + inits-29147 + vars-29144 + (expand-body-6589 + (cons e1-29172 e2-29173) + (wrap-6578 (begin - (if (if (pair? e-25951) s-25954 #f) + (if (if (pair? e-28093) s-28096 #f) (set-source-properties! - e-25951 - s-25954)) - e-25951) - w-25953 - mod-25955) - r*-27003 - w*-27004 - mod-25955))) - tmp-27026) + e-28093 + s-28096)) + e-28093) + w-28095 + mod-28097) + r*-29145 + w*-29146 + mod-28097))) + tmp-29168) (syntax-violation #f "source expression failed to match any pattern" - body-27001)))))))))) - (let ((tmp-25963 ($sc-dispatch clauses-25957 '()))) - (if tmp-25963 - (@apply (lambda () (values '() #f)) tmp-25963) - (let ((tmp-25967 + body-29143)))))))))) + (let ((tmp-28105 ($sc-dispatch clauses-28099 '()))) + (if tmp-28105 + (@apply (lambda () (values '() #f)) tmp-28105) + (let ((tmp-28109 ($sc-dispatch - clauses-25957 + clauses-28099 '((any any . each-any) . #(each (any any . each-any)))))) - (if tmp-25967 + (if tmp-28109 (@apply - (lambda (args-25971 - e1-25972 - e2-25973 - args*-25974 - e1*-25975 - e2*-25976) + (lambda (args-28113 + e1-28114 + e2-28115 + args*-28116 + e1*-28117 + e2*-28118) (call-with-values - (lambda () (get-formals-25956 args-25971)) - (lambda (req-25977 opt-25978 rest-25979 kw-25980) + (lambda () (get-formals-28098 args-28113)) + (lambda (req-28119 opt-28120 rest-28121 kw-28122) (call-with-values (lambda () - (parse-req-25958 - req-25977 - opt-25978 - rest-25979 - kw-25980 - (cons e1-25972 e2-25973))) - (lambda (meta-26045 - req-26046 - opt-26047 - rest-26048 - kw-26049 - inits-26050 - vars-26051 - body-26052) + (parse-req-28100 + req-28119 + opt-28120 + rest-28121 + kw-28122 + (cons e1-28114 e2-28115))) + (lambda (meta-28187 + req-28188 + opt-28189 + rest-28190 + kw-28191 + inits-28192 + vars-28193 + body-28194) (call-with-values (lambda () - (expand-lambda-case-4534 - e-25951 - r-25952 - w-25953 - s-25954 - mod-25955 - get-formals-25956 - (map (lambda (tmp-2888-26053 - tmp-2887-26054 - tmp-2886-26055) - (cons tmp-2886-26055 - (cons tmp-2887-26054 - tmp-2888-26053))) - e2*-25976 - e1*-25975 - args*-25974))) - (lambda (meta*-26056 else*-26057) + (expand-lambda-case-6597 + e-28093 + r-28094 + w-28095 + s-28096 + mod-28097 + get-formals-28098 + (map (lambda (tmp-4949-28195 + tmp-4948-28196 + tmp-4947-28197) + (cons tmp-4947-28197 + (cons tmp-4948-28196 + tmp-4949-28195))) + e2*-28118 + e1*-28117 + args*-28116))) + (lambda (meta*-28198 else*-28199) (values - (append meta-26045 meta*-26056) + (append meta-28187 meta*-28198) (make-struct/no-tail (vector-ref %expanded-vtables 14) - s-25954 - req-26046 - opt-26047 - rest-26048 - kw-26049 - inits-26050 - vars-26051 - body-26052 - else*-26057))))))))) - tmp-25967) + s-28096 + req-28188 + opt-28189 + rest-28190 + kw-28191 + inits-28192 + vars-28193 + body-28194 + else*-28199))))))))) + tmp-28109) (syntax-violation #f "source expression failed to match any pattern" - clauses-25957)))))))) - (strip-4535 - (lambda (x-27068 w-27069) - (if (memq 'top (car w-27069)) - x-27068 + clauses-28099)))))))) + (strip-6598 + (lambda (x-29210 w-29211) + (if (memq 'top (car w-29211)) + x-29210 (letrec* - ((f-27070 - (lambda (x-27073) - (if (if (vector? x-27073) - (if (= (vector-length x-27073) 4) - (eq? (vector-ref x-27073 0) 'syntax-object) + ((f-29212 + (lambda (x-29215) + (if (if (vector? x-29215) + (if (= (vector-length x-29215) 4) + (eq? (vector-ref x-29215 0) 'syntax-object) #f) #f) - (strip-4535 - (vector-ref x-27073 1) - (vector-ref x-27073 2)) - (if (pair? x-27073) - (let ((a-27092 (f-27070 (car x-27073))) - (d-27093 (f-27070 (cdr x-27073)))) - (if (if (eq? a-27092 (car x-27073)) - (eq? d-27093 (cdr x-27073)) + (strip-6598 + (vector-ref x-29215 1) + (vector-ref x-29215 2)) + (if (pair? x-29215) + (let ((a-29234 (f-29212 (car x-29215))) + (d-29235 (f-29212 (cdr x-29215)))) + (if (if (eq? a-29234 (car x-29215)) + (eq? d-29235 (cdr x-29215)) #f) - x-27073 - (cons a-27092 d-27093))) - (if (vector? x-27073) - (let ((old-27096 (vector->list x-27073))) - (let ((new-27097 (map f-27070 old-27096))) + x-29215 + (cons a-29234 d-29235))) + (if (vector? x-29215) + (let ((old-29238 (vector->list x-29215))) + (let ((new-29239 (map f-29212 old-29238))) (letrec* - ((lp-27098 - (lambda (l1-27174 l2-27175) - (if (null? l1-27174) - x-27073 - (if (eq? (car l1-27174) (car l2-27175)) - (lp-27098 (cdr l1-27174) (cdr l2-27175)) - (list->vector new-27097)))))) - (lp-27098 old-27096 new-27097)))) - x-27073)))))) - (f-27070 x-27068))))) - (gen-var-4536 - (lambda (id-26101) - (let ((id-26102 - (if (if (vector? id-26101) - (if (= (vector-length id-26101) 4) - (eq? (vector-ref id-26101 0) 'syntax-object) + ((lp-29240 + (lambda (l1-29316 l2-29317) + (if (null? l1-29316) + x-29215 + (if (eq? (car l1-29316) (car l2-29317)) + (lp-29240 (cdr l1-29316) (cdr l2-29317)) + (list->vector new-29239)))))) + (lp-29240 old-29238 new-29239)))) + x-29215)))))) + (f-29212 x-29210))))) + (gen-var-6599 + (lambda (id-28243) + (let ((id-28244 + (if (if (vector? id-28243) + (if (= (vector-length id-28243) 4) + (eq? (vector-ref id-28243 0) 'syntax-object) #f) #f) - (vector-ref id-26101 1) - id-26101))) + (vector-ref id-28243 1) + id-28243))) (gensym - (string-append (symbol->string id-26102) "-")))))) + (string-append (symbol->string id-28244) "-")))))) (begin - (set! session-id-4447 - (let ((v-15641 + (set! session-id-6510 + (let ((v-17707 (module-variable (current-module) 'syntax-session-id))) - (lambda () ((variable-ref v-15641))))) - (set! transformer-environment-4508 + (lambda () ((variable-ref v-17707))))) + (set! transformer-environment-6571 (make-fluid - (lambda (k-14684) + (lambda (k-16750) (error "called outside the dynamic extent of a syntax transformer")))) (module-define! (current-module) @@ -8096,1119 +8177,1142 @@ 'let-syntax 'local-syntax #f)) - (global-extend-4484 + (global-extend-6547 'core 'syntax-parameterize - (lambda (e-4657 r-4658 w-4659 s-4660 mod-4661) - (let ((tmp-4663 + (lambda (e-6720 r-6721 w-6722 s-6723 mod-6724) + (let ((tmp-6726 ($sc-dispatch - e-4657 + e-6720 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-4663 + (if (if tmp-6726 (@apply - (lambda (var-4667 val-4668 e1-4669 e2-4670) - (valid-bound-ids?-4512 var-4667)) - tmp-4663) + (lambda (var-6730 val-6731 e1-6732 e2-6733) + (valid-bound-ids?-6575 var-6730)) + tmp-6726) #f) (@apply - (lambda (var-4748 val-4749 e1-4750 e2-4751) - (let ((names-4752 - (map (lambda (x-4802) - (id-var-name-4505 x-4802 w-4659)) - var-4748))) + (lambda (var-6811 val-6812 e1-6813 e2-6814) + (let ((names-6815 + (map (lambda (x-6865) + (id-var-name-6568 x-6865 w-6722)) + var-6811))) (begin (for-each - (lambda (id-4753 n-4754) - (let ((atom-key-4755 - (car (let ((t-4762 (assq n-4754 r-4658))) - (if t-4762 - (cdr t-4762) - (if (symbol? n-4754) - (let ((t-4767 - (get-global-definition-hook-4449 - n-4754 - mod-4661))) - (if t-4767 t-4767 '(global))) + (lambda (id-6816 n-6817) + (let ((atom-key-6818 + (car (let ((t-6825 (assq n-6817 r-6721))) + (if t-6825 + (cdr t-6825) + (if (symbol? n-6817) + (let ((t-6830 + (get-global-definition-hook-6512 + n-6817 + mod-6724))) + (if t-6830 t-6830 '(global))) '(displaced-lexical))))))) - (if (eqv? atom-key-4755 'displaced-lexical) + (if (eqv? atom-key-6818 'displaced-lexical) (syntax-violation 'syntax-parameterize "identifier out of context" - e-4657 - (wrap-4515 + e-6720 + (wrap-6578 (begin - (if (if (pair? id-4753) s-4660 #f) - (set-source-properties! id-4753 s-4660)) - id-4753) - w-4659 - mod-4661))))) - var-4748 - names-4752) - (expand-body-4526 - (cons e1-4750 e2-4751) - (wrap-4515 + (if (if (pair? id-6816) s-6723 #f) + (set-source-properties! id-6816 s-6723)) + id-6816) + w-6722 + mod-6724))))) + var-6811 + names-6815) + (expand-body-6589 + (cons e1-6813 e2-6814) + (wrap-6578 (begin - (if (if (pair? e-4657) s-4660 #f) - (set-source-properties! e-4657 s-4660)) - e-4657) - w-4659 - mod-4661) - (extend-env-4480 - names-4752 - (let ((trans-r-4888 (macros-only-env-4482 r-4658))) - (map (lambda (x-4889) + (if (if (pair? e-6720) s-6723 #f) + (set-source-properties! e-6720 s-6723)) + e-6720) + w-6722 + mod-6724) + (extend-env-6543 + names-6815 + (let ((trans-r-6951 (macros-only-env-6545 r-6721))) + (map (lambda (x-6952) (cons 'macro - (eval-local-transformer-4528 - (expand-4522 - x-4889 - trans-r-4888 - w-4659 - mod-4661) - mod-4661))) - val-4749)) - r-4658) - w-4659 - mod-4661)))) - tmp-4663) + (eval-local-transformer-6591 + (expand-6585 + x-6952 + trans-r-6951 + w-6722 + mod-6724) + mod-6724))) + val-6812)) + r-6721) + w-6722 + mod-6724)))) + tmp-6726) (syntax-violation 'syntax-parameterize "bad syntax" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-4657) s-4660 #f) - (set-source-properties! e-4657 s-4660)) - e-4657) - w-4659 - mod-4661)))))) + (if (if (pair? e-6720) s-6723 #f) + (set-source-properties! e-6720 s-6723)) + e-6720) + w-6722 + mod-6724)))))) (module-define! (current-module) 'quote (make-syntax-transformer 'quote 'core - (lambda (e-5098 r-5099 w-5100 s-5101 mod-5102) - (let ((tmp-5104 ($sc-dispatch e-5098 '(_ any)))) - (if tmp-5104 + (lambda (e-7161 r-7162 w-7163 s-7164 mod-7165) + (let ((tmp-7167 ($sc-dispatch e-7161 '(_ any)))) + (if tmp-7167 (@apply - (lambda (e-5107) - (let ((exp-5111 (strip-4535 e-5107 w-5100))) + (lambda (e-7170) + (let ((exp-7174 (strip-6598 e-7170 w-7163))) (make-struct/no-tail (vector-ref %expanded-vtables 1) - s-5101 - exp-5111))) - tmp-5104) + s-7164 + exp-7174))) + tmp-7167) (syntax-violation 'quote "bad syntax" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-5098) s-5101 #f) - (set-source-properties! e-5098 s-5101)) - e-5098) - w-5100 - mod-5102))))))) - (global-extend-4484 + (if (if (pair? e-7161) s-7164 #f) + (set-source-properties! e-7161 s-7164)) + e-7161) + w-7163 + mod-7165))))))) + (global-extend-6547 'core 'syntax (letrec* - ((gen-syntax-5331 - (lambda (src-5433 - e-5434 - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438) - (if (if (symbol? e-5434) + ((gen-syntax-7394 + (lambda (src-7496 + e-7497 + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501) + (if (if (symbol? e-7497) #t - (if (if (vector? e-5434) - (if (= (vector-length e-5434) 4) - (eq? (vector-ref e-5434 0) 'syntax-object) + (if (if (vector? e-7497) + (if (= (vector-length e-7497) 4) + (eq? (vector-ref e-7497 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-5434 1)) + (symbol? (vector-ref e-7497 1)) #f)) - (let ((label-5465 (id-var-name-4505 e-5434 '(())))) - (let ((b-5466 - (let ((t-5473 (assq label-5465 r-5435))) - (if t-5473 - (cdr t-5473) - (if (symbol? label-5465) - (let ((t-5479 - (get-global-definition-hook-4449 - label-5465 - mod-5438))) - (if t-5479 t-5479 '(global))) + (let ((label-7528 (id-var-name-6568 e-7497 '(())))) + (let ((b-7529 + (let ((t-7536 (assq label-7528 r-7498))) + (if t-7536 + (cdr t-7536) + (if (symbol? label-7528) + (let ((t-7542 + (get-global-definition-hook-6512 + label-7528 + mod-7501))) + (if t-7542 t-7542 '(global))) '(displaced-lexical)))))) - (if (eq? (car b-5466) 'syntax) + (if (eq? (car b-7529) 'syntax) (call-with-values (lambda () - (let ((var.lev-5488 (cdr b-5466))) - (gen-ref-5332 - src-5433 - (car var.lev-5488) - (cdr var.lev-5488) - maps-5436))) - (lambda (var-5492 maps-5493) - (values (list 'ref var-5492) maps-5493))) - (if (ellipsis?-5437 e-5434) + (let ((var.lev-7551 (cdr b-7529))) + (gen-ref-7395 + src-7496 + (car var.lev-7551) + (cdr var.lev-7551) + maps-7499))) + (lambda (var-7555 maps-7556) + (values (list 'ref var-7555) maps-7556))) + (if (ellipsis?-7500 e-7497) (syntax-violation 'syntax "misplaced ellipsis" - src-5433) - (values (list 'quote e-5434) maps-5436))))) - (let ((tmp-5495 ($sc-dispatch e-5434 '(any any)))) - (if (if tmp-5495 + src-7496) + (values (list 'quote e-7497) maps-7499))))) + (let ((tmp-7558 ($sc-dispatch e-7497 '(any any)))) + (if (if tmp-7558 (@apply - (lambda (dots-5499 e-5500) - (ellipsis?-5437 dots-5499)) - tmp-5495) + (lambda (dots-7562 e-7563) + (ellipsis?-7500 dots-7562)) + tmp-7558) #f) (@apply - (lambda (dots-5501 e-5502) - (gen-syntax-5331 - src-5433 - e-5502 - r-5435 - maps-5436 - (lambda (x-5503) #f) - mod-5438)) - tmp-5495) - (let ((tmp-5504 ($sc-dispatch e-5434 '(any any . any)))) - (if (if tmp-5504 + (lambda (dots-7564 e-7565) + (gen-syntax-7394 + src-7496 + e-7565 + r-7498 + maps-7499 + (lambda (x-7566) #f) + mod-7501)) + tmp-7558) + (let ((tmp-7567 ($sc-dispatch e-7497 '(any any . any)))) + (if (if tmp-7567 (@apply - (lambda (x-5508 dots-5509 y-5510) - (ellipsis?-5437 dots-5509)) - tmp-5504) + (lambda (x-7571 dots-7572 y-7573) + (ellipsis?-7500 dots-7572)) + tmp-7567) #f) (@apply - (lambda (x-5511 dots-5512 y-5513) + (lambda (x-7574 dots-7575 y-7576) (letrec* - ((f-5514 - (lambda (y-5522 k-5523) - (let ((tmp-5525 + ((f-7577 + (lambda (y-7585 k-7586) + (let ((tmp-7588 ($sc-dispatch - y-5522 + y-7585 '(any . any)))) - (if (if tmp-5525 + (if (if tmp-7588 (@apply - (lambda (dots-5529 y-5530) - (ellipsis?-5437 dots-5529)) - tmp-5525) + (lambda (dots-7592 y-7593) + (ellipsis?-7500 dots-7592)) + tmp-7588) #f) (@apply - (lambda (dots-5531 y-5532) - (f-5514 - y-5532 - (lambda (maps-5533) + (lambda (dots-7594 y-7595) + (f-7577 + y-7595 + (lambda (maps-7596) (call-with-values (lambda () - (k-5523 - (cons '() maps-5533))) - (lambda (x-5534 maps-5535) - (if (null? (car maps-5535)) + (k-7586 + (cons '() maps-7596))) + (lambda (x-7597 maps-7598) + (if (null? (car maps-7598)) (syntax-violation 'syntax "extra ellipsis" - src-5433) + src-7496) (values - (let ((map-env-5539 - (car maps-5535))) + (let ((map-env-7602 + (car maps-7598))) (list 'apply '(primitive append) - (gen-map-5334 - x-5534 - map-env-5539))) - (cdr maps-5535)))))))) - tmp-5525) + (gen-map-7397 + x-7597 + map-env-7602))) + (cdr maps-7598)))))))) + tmp-7588) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - y-5522 - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438)) - (lambda (y-5542 maps-5543) + (gen-syntax-7394 + src-7496 + y-7585 + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501)) + (lambda (y-7605 maps-7606) (call-with-values - (lambda () (k-5523 maps-5543)) - (lambda (x-5544 maps-5545) + (lambda () (k-7586 maps-7606)) + (lambda (x-7607 maps-7608) (values - (if (equal? y-5542 ''()) - x-5544 + (if (equal? y-7605 ''()) + x-7607 (list 'append - x-5544 - y-5542)) - maps-5545)))))))))) - (f-5514 - y-5513 - (lambda (maps-5517) + x-7607 + y-7605)) + maps-7608)))))))))) + (f-7577 + y-7576 + (lambda (maps-7580) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - x-5511 - r-5435 - (cons '() maps-5517) - ellipsis?-5437 - mod-5438)) - (lambda (x-5518 maps-5519) - (if (null? (car maps-5519)) + (gen-syntax-7394 + src-7496 + x-7574 + r-7498 + (cons '() maps-7580) + ellipsis?-7500 + mod-7501)) + (lambda (x-7581 maps-7582) + (if (null? (car maps-7582)) (syntax-violation 'syntax "extra ellipsis" - src-5433) + src-7496) (values - (gen-map-5334 - x-5518 - (car maps-5519)) - (cdr maps-5519))))))))) - tmp-5504) - (let ((tmp-5561 ($sc-dispatch e-5434 '(any . any)))) - (if tmp-5561 + (gen-map-7397 + x-7581 + (car maps-7582)) + (cdr maps-7582))))))))) + tmp-7567) + (let ((tmp-7624 ($sc-dispatch e-7497 '(any . any)))) + (if tmp-7624 (@apply - (lambda (x-5565 y-5566) + (lambda (x-7628 y-7629) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - x-5565 - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438)) - (lambda (x-5567 maps-5568) + (gen-syntax-7394 + src-7496 + x-7628 + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501)) + (lambda (x-7630 maps-7631) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - y-5566 - r-5435 - maps-5568 - ellipsis?-5437 - mod-5438)) - (lambda (y-5569 maps-5570) + (gen-syntax-7394 + src-7496 + y-7629 + r-7498 + maps-7631 + ellipsis?-7500 + mod-7501)) + (lambda (y-7632 maps-7633) (values - (let ((atom-key-5575 (car y-5569))) - (if (eqv? atom-key-5575 'quote) - (if (eq? (car x-5567) 'quote) + (let ((atom-key-7638 (car y-7632))) + (if (eqv? atom-key-7638 'quote) + (if (eq? (car x-7630) 'quote) (list 'quote - (cons (car (cdr x-5567)) - (car (cdr y-5569)))) - (if (eq? (car (cdr y-5569)) + (cons (car (cdr x-7630)) + (car (cdr y-7632)))) + (if (eq? (car (cdr y-7632)) '()) - (list 'list x-5567) - (list 'cons x-5567 y-5569))) - (if (eqv? atom-key-5575 'list) + (list 'list x-7630) + (list 'cons x-7630 y-7632))) + (if (eqv? atom-key-7638 'list) (cons 'list - (cons x-5567 - (cdr y-5569))) - (list 'cons x-5567 y-5569)))) - maps-5570)))))) - tmp-5561) - (let ((tmp-5604 + (cons x-7630 + (cdr y-7632))) + (list 'cons x-7630 y-7632)))) + maps-7633)))))) + tmp-7624) + (let ((tmp-7667 ($sc-dispatch - e-5434 + e-7497 '#(vector (any . each-any))))) - (if tmp-5604 + (if tmp-7667 (@apply - (lambda (e1-5608 e2-5609) + (lambda (e1-7671 e2-7672) (call-with-values (lambda () - (gen-syntax-5331 - src-5433 - (cons e1-5608 e2-5609) - r-5435 - maps-5436 - ellipsis?-5437 - mod-5438)) - (lambda (e-5610 maps-5611) + (gen-syntax-7394 + src-7496 + (cons e1-7671 e2-7672) + r-7498 + maps-7499 + ellipsis?-7500 + mod-7501)) + (lambda (e-7673 maps-7674) (values - (if (eq? (car e-5610) 'list) - (cons 'vector (cdr e-5610)) - (if (eq? (car e-5610) 'quote) + (if (eq? (car e-7673) 'list) + (cons 'vector (cdr e-7673)) + (if (eq? (car e-7673) 'quote) (list 'quote (list->vector - (car (cdr e-5610)))) - (list 'list->vector e-5610))) - maps-5611)))) - tmp-5604) + (car (cdr e-7673)))) + (list 'list->vector e-7673))) + maps-7674)))) + tmp-7667) (values - (list 'quote e-5434) - maps-5436)))))))))))) - (gen-ref-5332 - (lambda (src-5638 var-5639 level-5640 maps-5641) - (if (= level-5640 0) - (values var-5639 maps-5641) - (if (null? maps-5641) + (list 'quote e-7497) + maps-7499)))))))))))) + (gen-ref-7395 + (lambda (src-7701 var-7702 level-7703 maps-7704) + (if (= level-7703 0) + (values var-7702 maps-7704) + (if (null? maps-7704) (syntax-violation 'syntax "missing ellipsis" - src-5638) + src-7701) (call-with-values (lambda () - (gen-ref-5332 - src-5638 - var-5639 - (#{1-}# level-5640) - (cdr maps-5641))) - (lambda (outer-var-5642 outer-maps-5643) - (let ((b-5644 (assq outer-var-5642 (car maps-5641)))) - (if b-5644 - (values (cdr b-5644) maps-5641) - (let ((inner-var-5646 + (gen-ref-7395 + src-7701 + var-7702 + (#{1-}# level-7703) + (cdr maps-7704))) + (lambda (outer-var-7705 outer-maps-7706) + (let ((b-7707 (assq outer-var-7705 (car maps-7704)))) + (if b-7707 + (values (cdr b-7707) maps-7704) + (let ((inner-var-7709 (gensym (string-append (symbol->string 'tmp) "-")))) (values - inner-var-5646 - (cons (cons (cons outer-var-5642 inner-var-5646) - (car maps-5641)) - outer-maps-5643))))))))))) - (gen-map-5334 - (lambda (e-5660 map-env-5661) - (let ((formals-5662 (map cdr map-env-5661)) - (actuals-5663 - (map (lambda (x-5665) (list 'ref (car x-5665))) - map-env-5661))) - (if (eq? (car e-5660) 'ref) - (car actuals-5663) + inner-var-7709 + (cons (cons (cons outer-var-7705 inner-var-7709) + (car maps-7704)) + outer-maps-7706))))))))))) + (gen-map-7397 + (lambda (e-7723 map-env-7724) + (let ((formals-7725 (map cdr map-env-7724)) + (actuals-7726 + (map (lambda (x-7728) (list 'ref (car x-7728))) + map-env-7724))) + (if (eq? (car e-7723) 'ref) + (car actuals-7726) (if (and-map - (lambda (x-5666) - (if (eq? (car x-5666) 'ref) - (memq (car (cdr x-5666)) formals-5662) + (lambda (x-7729) + (if (eq? (car x-7729) 'ref) + (memq (car (cdr x-7729)) formals-7725) #f)) - (cdr e-5660)) + (cdr e-7723)) (cons 'map - (cons (list 'primitive (car e-5660)) - (map (let ((r-5668 + (cons (list 'primitive (car e-7723)) + (map (let ((r-7731 (map cons - formals-5662 - actuals-5663))) - (lambda (x-5669) - (cdr (assq (car (cdr x-5669)) - r-5668)))) - (cdr e-5660)))) + formals-7725 + actuals-7726))) + (lambda (x-7732) + (cdr (assq (car (cdr x-7732)) + r-7731)))) + (cdr e-7723)))) (cons 'map - (cons (list 'lambda formals-5662 e-5660) - actuals-5663))))))) - (regen-5338 - (lambda (x-5671) - (let ((atom-key-5672 (car x-5671))) - (if (eqv? atom-key-5672 'ref) - (let ((name-5682 (car (cdr x-5671))) - (var-5683 (car (cdr x-5671)))) + (cons (list 'lambda formals-7725 e-7723) + actuals-7726))))))) + (regen-7401 + (lambda (x-7734) + (let ((atom-key-7735 (car x-7734))) + (if (eqv? atom-key-7735 'ref) + (let ((name-7745 (car (cdr x-7734))) + (var-7746 (car (cdr x-7734)))) (make-struct/no-tail (vector-ref %expanded-vtables 3) #f - name-5682 - var-5683)) - (if (eqv? atom-key-5672 'primitive) - (let ((name-5695 (car (cdr x-5671)))) + name-7745 + var-7746)) + (if (eqv? atom-key-7735 'primitive) + (let ((name-7758 (car (cdr x-7734)))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - name-5695) + name-7758) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-5695 + name-7758 #f))) - (if (eqv? atom-key-5672 'quote) - (let ((exp-5713 (car (cdr x-5671)))) + (if (eqv? atom-key-7735 'quote) + (let ((exp-7776 (car (cdr x-7734)))) (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - exp-5713)) - (if (eqv? atom-key-5672 'lambda) - (if (list? (car (cdr x-5671))) - (let ((req-5724 (car (cdr x-5671))) - (vars-5726 (car (cdr x-5671))) - (exp-5728 - (regen-5338 (car (cdr (cdr x-5671)))))) - (let ((body-5733 + exp-7776)) + (if (eqv? atom-key-7735 'lambda) + (if (list? (car (cdr x-7734))) + (let ((req-7787 (car (cdr x-7734))) + (vars-7789 (car (cdr x-7734))) + (exp-7791 + (regen-7401 (car (cdr (cdr x-7734)))))) + (let ((body-7796 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-5724 + req-7787 #f #f #f '() - vars-5726 - exp-5728 + vars-7789 + exp-7791 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-5733))) - (error "how did we get here" x-5671)) - (let ((fun-exp-5749 - (let ((name-5758 (car x-5671))) + body-7796))) + (error "how did we get here" x-7734)) + (let ((fun-exp-7812 + (let ((name-7821 (car x-7734))) (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) #f - name-5758) + name-7821) (make-struct/no-tail (vector-ref %expanded-vtables 5) #f '(guile) - name-5758 + name-7821 #f)))) - (arg-exps-5750 (map regen-5338 (cdr x-5671)))) + (arg-exps-7813 (map regen-7401 (cdr x-7734)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-5749 - arg-exps-5750)))))))))) - (lambda (e-5339 r-5340 w-5341 s-5342 mod-5343) - (let ((e-5344 - (wrap-4515 + fun-exp-7812 + arg-exps-7813)))))))))) + (lambda (e-7402 r-7403 w-7404 s-7405 mod-7406) + (let ((e-7407 + (wrap-6578 (begin - (if (if (pair? e-5339) s-5342 #f) - (set-source-properties! e-5339 s-5342)) - e-5339) - w-5341 - mod-5343))) - (let ((tmp-5346 ($sc-dispatch e-5344 '(_ any)))) - (if tmp-5346 + (if (if (pair? e-7402) s-7405 #f) + (set-source-properties! e-7402 s-7405)) + e-7402) + w-7404 + mod-7406))) + (let ((tmp-7409 ($sc-dispatch e-7407 '(_ any)))) + (if tmp-7409 (@apply - (lambda (x-5371) + (lambda (x-7434) (call-with-values (lambda () - (gen-syntax-5331 - e-5344 - x-5371 - r-5340 + (gen-syntax-7394 + e-7407 + x-7434 + r-7403 '() - ellipsis?-4530 - mod-5343)) - (lambda (e-5425 maps-5426) (regen-5338 e-5425)))) - tmp-5346) + ellipsis?-6593 + mod-7406)) + (lambda (e-7488 maps-7489) (regen-7401 e-7488)))) + tmp-7409) (syntax-violation 'syntax "bad `syntax' form" - e-5344))))))) - (global-extend-4484 + e-7407))))))) + (global-extend-6547 'core 'lambda - (lambda (e-5946 r-5947 w-5948 s-5949 mod-5950) - (let ((tmp-5952 - ($sc-dispatch e-5946 '(_ any any . each-any)))) - (if tmp-5952 + (lambda (e-8009 r-8010 w-8011 s-8012 mod-8013) + (let ((tmp-8015 + ($sc-dispatch e-8009 '(_ any any . each-any)))) + (if tmp-8015 (@apply - (lambda (args-5956 e1-5957 e2-5958) + (lambda (args-8019 e1-8020 e2-8021) (call-with-values - (lambda () (lambda-formals-4531 args-5956)) - (lambda (req-5961 opt-5962 rest-5963 kw-5964) + (lambda () (lambda-formals-6594 args-8019)) + (lambda (req-8024 opt-8025 rest-8026 kw-8027) (letrec* - ((lp-5965 - (lambda (body-5968 meta-5969) - (let ((tmp-5971 + ((lp-8028 + (lambda (body-8031 meta-8032) + (let ((tmp-8034 ($sc-dispatch - body-5968 + body-8031 '(any any . each-any)))) - (if (if tmp-5971 + (if (if tmp-8034 (@apply - (lambda (docstring-5975 e1-5976 e2-5977) + (lambda (docstring-8038 e1-8039 e2-8040) (string? - (syntax->datum docstring-5975))) - tmp-5971) + (syntax->datum docstring-8038))) + tmp-8034) #f) (@apply - (lambda (docstring-5978 e1-5979 e2-5980) - (lp-5965 - (cons e1-5979 e2-5980) + (lambda (docstring-8041 e1-8042 e2-8043) + (lp-8028 + (cons e1-8042 e2-8043) (append - meta-5969 + meta-8032 (list (cons 'documentation (syntax->datum - docstring-5978)))))) - tmp-5971) - (let ((tmp-5981 + docstring-8041)))))) + tmp-8034) + (let ((tmp-8044 ($sc-dispatch - body-5968 + body-8031 '(#(vector #(each (any . any))) any . each-any)))) - (if tmp-5981 + (if tmp-8044 (@apply - (lambda (k-5985 v-5986 e1-5987 e2-5988) - (lp-5965 - (cons e1-5987 e2-5988) + (lambda (k-8048 v-8049 e1-8050 e2-8051) + (lp-8028 + (cons e1-8050 e2-8051) (append - meta-5969 + meta-8032 (syntax->datum - (map cons k-5985 v-5986))))) - tmp-5981) - (expand-simple-lambda-4532 - e-5946 - r-5947 - w-5948 - s-5949 - mod-5950 - req-5961 - rest-5963 - meta-5969 - body-5968)))))))) - (lp-5965 (cons e1-5957 e2-5958) '()))))) - tmp-5952) - (syntax-violation 'lambda "bad lambda" e-5946))))) - (global-extend-4484 + (map cons k-8048 v-8049))))) + tmp-8044) + (expand-simple-lambda-6595 + e-8009 + r-8010 + w-8011 + s-8012 + mod-8013 + req-8024 + rest-8026 + meta-8032 + body-8031)))))))) + (lp-8028 (cons e1-8020 e2-8021) '()))))) + tmp-8015) + (syntax-violation 'lambda "bad lambda" e-8009))))) + (global-extend-6547 'core 'lambda* - (lambda (e-6277 r-6278 w-6279 s-6280 mod-6281) - (let ((tmp-6283 - ($sc-dispatch e-6277 '(_ any any . each-any)))) - (if tmp-6283 + (lambda (e-8340 r-8341 w-8342 s-8343 mod-8344) + (let ((tmp-8346 + ($sc-dispatch e-8340 '(_ any any . each-any)))) + (if tmp-8346 (@apply - (lambda (args-6287 e1-6288 e2-6289) + (lambda (args-8350 e1-8351 e2-8352) (call-with-values (lambda () - (expand-lambda-case-4534 - e-6277 - r-6278 - w-6279 - s-6280 - mod-6281 - lambda*-formals-4533 - (list (cons args-6287 (cons e1-6288 e2-6289))))) - (lambda (meta-6292 lcase-6293) + (expand-lambda-case-6597 + e-8340 + r-8341 + w-8342 + s-8343 + mod-8344 + lambda*-formals-6596 + (list (cons args-8350 (cons e1-8351 e2-8352))))) + (lambda (meta-8355 lcase-8356) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-6280 - meta-6292 - lcase-6293)))) - tmp-6283) - (syntax-violation 'lambda "bad lambda*" e-6277))))) - (global-extend-4484 + s-8343 + meta-8355 + lcase-8356)))) + tmp-8346) + (syntax-violation 'lambda "bad lambda*" e-8340))))) + (global-extend-6547 'core 'case-lambda - (lambda (e-6463 r-6464 w-6465 s-6466 mod-6467) - (let ((tmp-6469 + (lambda (e-8526 r-8527 w-8528 s-8529 mod-8530) + (let ((tmp-8532 ($sc-dispatch - e-6463 + e-8526 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-6469 + (if tmp-8532 (@apply - (lambda (args-6473 - e1-6474 - e2-6475 - args*-6476 - e1*-6477 - e2*-6478) + (lambda (args-8536 + e1-8537 + e2-8538 + args*-8539 + e1*-8540 + e2*-8541) (call-with-values (lambda () - (expand-lambda-case-4534 - e-6463 - r-6464 - w-6465 - s-6466 - mod-6467 - lambda-formals-4531 - (cons (cons args-6473 (cons e1-6474 e2-6475)) - (map (lambda (tmp-3387-6481 - tmp-3386-6482 - tmp-3385-6483) - (cons tmp-3385-6483 - (cons tmp-3386-6482 tmp-3387-6481))) - e2*-6478 - e1*-6477 - args*-6476)))) - (lambda (meta-6484 lcase-6485) + (expand-lambda-case-6597 + e-8526 + r-8527 + w-8528 + s-8529 + mod-8530 + lambda-formals-6594 + (cons (cons args-8536 (cons e1-8537 e2-8538)) + (map (lambda (tmp-5448-8544 + tmp-5447-8545 + tmp-5446-8546) + (cons tmp-5446-8546 + (cons tmp-5447-8545 tmp-5448-8544))) + e2*-8541 + e1*-8540 + args*-8539)))) + (lambda (meta-8547 lcase-8548) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-6466 - meta-6484 - lcase-6485)))) - tmp-6469) + s-8529 + meta-8547 + lcase-8548)))) + tmp-8532) (syntax-violation 'case-lambda "bad case-lambda" - e-6463))))) - (global-extend-4484 + e-8526))))) + (global-extend-6547 'core 'case-lambda* - (lambda (e-6647 r-6648 w-6649 s-6650 mod-6651) - (let ((tmp-6653 + (lambda (e-8710 r-8711 w-8712 s-8713 mod-8714) + (let ((tmp-8716 ($sc-dispatch - e-6647 + e-8710 '(_ (any any . each-any) . #(each (any any . each-any)))))) - (if tmp-6653 + (if tmp-8716 (@apply - (lambda (args-6657 - e1-6658 - e2-6659 - args*-6660 - e1*-6661 - e2*-6662) + (lambda (args-8720 + e1-8721 + e2-8722 + args*-8723 + e1*-8724 + e2*-8725) (call-with-values (lambda () - (expand-lambda-case-4534 - e-6647 - r-6648 - w-6649 - s-6650 - mod-6651 - lambda*-formals-4533 - (cons (cons args-6657 (cons e1-6658 e2-6659)) - (map (lambda (tmp-3422-6665 - tmp-3421-6666 - tmp-3420-6667) - (cons tmp-3420-6667 - (cons tmp-3421-6666 tmp-3422-6665))) - e2*-6662 - e1*-6661 - args*-6660)))) - (lambda (meta-6668 lcase-6669) + (expand-lambda-case-6597 + e-8710 + r-8711 + w-8712 + s-8713 + mod-8714 + lambda*-formals-6596 + (cons (cons args-8720 (cons e1-8721 e2-8722)) + (map (lambda (tmp-5483-8728 + tmp-5482-8729 + tmp-5481-8730) + (cons tmp-5481-8730 + (cons tmp-5482-8729 tmp-5483-8728))) + e2*-8725 + e1*-8724 + args*-8723)))) + (lambda (meta-8731 lcase-8732) (make-struct/no-tail (vector-ref %expanded-vtables 13) - s-6650 - meta-6668 - lcase-6669)))) - tmp-6653) + s-8713 + meta-8731 + lcase-8732)))) + tmp-8716) (syntax-violation 'case-lambda "bad case-lambda*" - e-6647))))) - (global-extend-4484 + e-8710))))) + (global-extend-6547 'core 'let (letrec* - ((expand-let-6860 - (lambda (e-7009 - r-7010 - w-7011 - s-7012 - mod-7013 - constructor-7014 - ids-7015 - vals-7016 - exps-7017) - (if (not (valid-bound-ids?-4512 ids-7015)) + ((expand-let-8923 + (lambda (e-9072 + r-9073 + w-9074 + s-9075 + mod-9076 + constructor-9077 + ids-9078 + vals-9079 + exps-9080) + (if (not (valid-bound-ids?-6575 ids-9078)) (syntax-violation 'let "duplicate bound variable" - e-7009) - (let ((labels-7095 (gen-labels-4489 ids-7015)) - (new-vars-7096 (map gen-var-4536 ids-7015))) - (let ((nw-7097 - (make-binding-wrap-4500 - ids-7015 - labels-7095 - w-7011)) - (nr-7098 - (extend-var-env-4481 - labels-7095 - new-vars-7096 - r-7010))) - (constructor-7014 - s-7012 - (map syntax->datum ids-7015) - new-vars-7096 - (map (lambda (x-7115) - (expand-4522 x-7115 r-7010 w-7011 mod-7013)) - vals-7016) - (expand-body-4526 - exps-7017 - (source-wrap-4516 e-7009 nw-7097 s-7012 mod-7013) - nr-7098 - nw-7097 - mod-7013)))))))) - (lambda (e-6861 r-6862 w-6863 s-6864 mod-6865) - (let ((tmp-6867 + e-9072) + (let ((labels-9158 (gen-labels-6552 ids-9078)) + (new-vars-9159 (map gen-var-6599 ids-9078))) + (let ((nw-9160 + (make-binding-wrap-6563 + ids-9078 + labels-9158 + w-9074)) + (nr-9161 + (extend-var-env-6544 + labels-9158 + new-vars-9159 + r-9073))) + (constructor-9077 + s-9075 + (map syntax->datum ids-9078) + new-vars-9159 + (map (lambda (x-9178) + (expand-6585 x-9178 r-9073 w-9074 mod-9076)) + vals-9079) + (expand-body-6589 + exps-9080 + (source-wrap-6579 e-9072 nw-9160 s-9075 mod-9076) + nr-9161 + nw-9160 + mod-9076)))))))) + (lambda (e-8924 r-8925 w-8926 s-8927 mod-8928) + (let ((tmp-8930 ($sc-dispatch - e-6861 + e-8924 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-6867 + (if (if tmp-8930 (@apply - (lambda (id-6871 val-6872 e1-6873 e2-6874) - (and-map id?-4486 id-6871)) - tmp-6867) + (lambda (id-8934 val-8935 e1-8936 e2-8937) + (and-map id?-6549 id-8934)) + tmp-8930) #f) (@apply - (lambda (id-6890 val-6891 e1-6892 e2-6893) - (expand-let-6860 - e-6861 - r-6862 - w-6863 - s-6864 - mod-6865 - build-let-4468 - id-6890 - val-6891 - (cons e1-6892 e2-6893))) - tmp-6867) - (let ((tmp-6923 + (lambda (id-8953 val-8954 e1-8955 e2-8956) + (expand-let-8923 + e-8924 + r-8925 + w-8926 + s-8927 + mod-8928 + build-let-6531 + id-8953 + val-8954 + (cons e1-8955 e2-8956))) + tmp-8930) + (let ((tmp-8986 ($sc-dispatch - e-6861 + e-8924 '(_ any #(each (any any)) any . each-any)))) - (if (if tmp-6923 + (if (if tmp-8986 (@apply - (lambda (f-6927 id-6928 val-6929 e1-6930 e2-6931) - (if (if (symbol? f-6927) + (lambda (f-8990 id-8991 val-8992 e1-8993 e2-8994) + (if (if (symbol? f-8990) #t - (if (if (vector? f-6927) - (if (= (vector-length f-6927) 4) - (eq? (vector-ref f-6927 0) + (if (if (vector? f-8990) + (if (= (vector-length f-8990) 4) + (eq? (vector-ref f-8990 0) 'syntax-object) #f) #f) - (symbol? (vector-ref f-6927 1)) + (symbol? (vector-ref f-8990 1)) #f)) - (and-map id?-4486 id-6928) + (and-map id?-6549 id-8991) #f)) - tmp-6923) + tmp-8986) #f) (@apply - (lambda (f-6973 id-6974 val-6975 e1-6976 e2-6977) - (expand-let-6860 - e-6861 - r-6862 - w-6863 - s-6864 - mod-6865 - build-named-let-4469 - (cons f-6973 id-6974) - val-6975 - (cons e1-6976 e2-6977))) - tmp-6923) + (lambda (f-9036 id-9037 val-9038 e1-9039 e2-9040) + (expand-let-8923 + e-8924 + r-8925 + w-8926 + s-8927 + mod-8928 + build-named-let-6532 + (cons f-9036 id-9037) + val-9038 + (cons e1-9039 e2-9040))) + tmp-8986) (syntax-violation 'let "bad let" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-6861) s-6864 #f) - (set-source-properties! e-6861 s-6864)) - e-6861) - w-6863 - mod-6865))))))))) - (global-extend-4484 + (if (if (pair? e-8924) s-8927 #f) + (set-source-properties! e-8924 s-8927)) + e-8924) + w-8926 + mod-8928))))))))) + (global-extend-6547 'core 'letrec - (lambda (e-7527 r-7528 w-7529 s-7530 mod-7531) - (let ((tmp-7533 + (lambda (e-9590 r-9591 w-9592 s-9593 mod-9594) + (let ((tmp-9596 ($sc-dispatch - e-7527 + e-9590 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-7533 + (if (if tmp-9596 (@apply - (lambda (id-7537 val-7538 e1-7539 e2-7540) - (and-map id?-4486 id-7537)) - tmp-7533) + (lambda (id-9600 val-9601 e1-9602 e2-9603) + (and-map id?-6549 id-9600)) + tmp-9596) #f) (@apply - (lambda (id-7556 val-7557 e1-7558 e2-7559) - (if (not (valid-bound-ids?-4512 id-7556)) + (lambda (id-9619 val-9620 e1-9621 e2-9622) + (if (not (valid-bound-ids?-6575 id-9619)) (syntax-violation 'letrec "duplicate bound variable" - e-7527) - (let ((labels-7649 (gen-labels-4489 id-7556)) - (new-vars-7650 (map gen-var-4536 id-7556))) - (let ((w-7651 - (make-binding-wrap-4500 - id-7556 - labels-7649 - w-7529)) - (r-7652 - (extend-var-env-4481 - labels-7649 - new-vars-7650 - r-7528))) - (build-letrec-4470 - s-7530 + e-9590) + (let ((labels-9712 (gen-labels-6552 id-9619)) + (new-vars-9713 (map gen-var-6599 id-9619))) + (let ((w-9714 + (make-binding-wrap-6563 + id-9619 + labels-9712 + w-9592)) + (r-9715 + (extend-var-env-6544 + labels-9712 + new-vars-9713 + r-9591))) + (build-letrec-6533 + s-9593 #f - (map syntax->datum id-7556) - new-vars-7650 - (map (lambda (x-7737) - (expand-4522 x-7737 r-7652 w-7651 mod-7531)) - val-7557) - (expand-body-4526 - (cons e1-7558 e2-7559) - (wrap-4515 + (map syntax->datum id-9619) + new-vars-9713 + (map (lambda (x-9800) + (expand-6585 x-9800 r-9715 w-9714 mod-9594)) + val-9620) + (expand-body-6589 + (cons e1-9621 e2-9622) + (wrap-6578 (begin - (if (if (pair? e-7527) s-7530 #f) - (set-source-properties! e-7527 s-7530)) - e-7527) - w-7651 - mod-7531) - r-7652 - w-7651 - mod-7531)))))) - tmp-7533) + (if (if (pair? e-9590) s-9593 #f) + (set-source-properties! e-9590 s-9593)) + e-9590) + w-9714 + mod-9594) + r-9715 + w-9714 + mod-9594)))))) + tmp-9596) (syntax-violation 'letrec "bad letrec" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-7527) s-7530 #f) - (set-source-properties! e-7527 s-7530)) - e-7527) - w-7529 - mod-7531)))))) - (global-extend-4484 + (if (if (pair? e-9590) s-9593 #f) + (set-source-properties! e-9590 s-9593)) + e-9590) + w-9592 + mod-9594)))))) + (global-extend-6547 'core 'letrec* - (lambda (e-8132 r-8133 w-8134 s-8135 mod-8136) - (let ((tmp-8138 + (lambda (e-10195 r-10196 w-10197 s-10198 mod-10199) + (let ((tmp-10201 ($sc-dispatch - e-8132 + e-10195 '(_ #(each (any any)) any . each-any)))) - (if (if tmp-8138 + (if (if tmp-10201 (@apply - (lambda (id-8142 val-8143 e1-8144 e2-8145) - (and-map id?-4486 id-8142)) - tmp-8138) + (lambda (id-10205 val-10206 e1-10207 e2-10208) + (and-map id?-6549 id-10205)) + tmp-10201) #f) (@apply - (lambda (id-8161 val-8162 e1-8163 e2-8164) - (if (not (valid-bound-ids?-4512 id-8161)) + (lambda (id-10224 val-10225 e1-10226 e2-10227) + (if (not (valid-bound-ids?-6575 id-10224)) (syntax-violation 'letrec* "duplicate bound variable" - e-8132) - (let ((labels-8254 (gen-labels-4489 id-8161)) - (new-vars-8255 (map gen-var-4536 id-8161))) - (let ((w-8256 - (make-binding-wrap-4500 - id-8161 - labels-8254 - w-8134)) - (r-8257 - (extend-var-env-4481 - labels-8254 - new-vars-8255 - r-8133))) - (build-letrec-4470 - s-8135 + e-10195) + (let ((labels-10317 (gen-labels-6552 id-10224)) + (new-vars-10318 (map gen-var-6599 id-10224))) + (let ((w-10319 + (make-binding-wrap-6563 + id-10224 + labels-10317 + w-10197)) + (r-10320 + (extend-var-env-6544 + labels-10317 + new-vars-10318 + r-10196))) + (build-letrec-6533 + s-10198 #t - (map syntax->datum id-8161) - new-vars-8255 - (map (lambda (x-8342) - (expand-4522 x-8342 r-8257 w-8256 mod-8136)) - val-8162) - (expand-body-4526 - (cons e1-8163 e2-8164) - (wrap-4515 + (map syntax->datum id-10224) + new-vars-10318 + (map (lambda (x-10405) + (expand-6585 + x-10405 + r-10320 + w-10319 + mod-10199)) + val-10225) + (expand-body-6589 + (cons e1-10226 e2-10227) + (wrap-6578 (begin - (if (if (pair? e-8132) s-8135 #f) - (set-source-properties! e-8132 s-8135)) - e-8132) - w-8256 - mod-8136) - r-8257 - w-8256 - mod-8136)))))) - tmp-8138) + (if (if (pair? e-10195) s-10198 #f) + (set-source-properties! e-10195 s-10198)) + e-10195) + w-10319 + mod-10199) + r-10320 + w-10319 + mod-10199)))))) + tmp-10201) (syntax-violation 'letrec* "bad letrec*" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-8132) s-8135 #f) - (set-source-properties! e-8132 s-8135)) - e-8132) - w-8134 - mod-8136)))))) - (global-extend-4484 + (if (if (pair? e-10195) s-10198 #f) + (set-source-properties! e-10195 s-10198)) + e-10195) + w-10197 + mod-10199)))))) + (global-extend-6547 'core 'set! - (lambda (e-8776 r-8777 w-8778 s-8779 mod-8780) - (let ((tmp-8782 ($sc-dispatch e-8776 '(_ any any)))) - (if (if tmp-8782 + (lambda (e-10839 r-10840 w-10841 s-10842 mod-10843) + (let ((tmp-10845 ($sc-dispatch e-10839 '(_ any any)))) + (if (if tmp-10845 (@apply - (lambda (id-8786 val-8787) - (if (symbol? id-8786) + (lambda (id-10849 val-10850) + (if (symbol? id-10849) #t - (if (if (vector? id-8786) - (if (= (vector-length id-8786) 4) - (eq? (vector-ref id-8786 0) 'syntax-object) + (if (if (vector? id-10849) + (if (= (vector-length id-10849) 4) + (eq? (vector-ref id-10849 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-8786 1)) + (symbol? (vector-ref id-10849 1)) #f))) - tmp-8782) + tmp-10845) #f) (@apply - (lambda (id-8814 val-8815) - (let ((n-8816 (id-var-name-4505 id-8814 w-8778)) - (id-mod-8817 - (if (if (vector? id-8814) - (if (= (vector-length id-8814) 4) - (eq? (vector-ref id-8814 0) 'syntax-object) + (lambda (id-10877 val-10878) + (let ((n-10879 (id-var-name-6568 id-10877 w-10841)) + (id-mod-10880 + (if (if (vector? id-10877) + (if (= (vector-length id-10877) 4) + (eq? (vector-ref id-10877 0) 'syntax-object) #f) #f) - (vector-ref id-8814 3) - mod-8780))) - (let ((b-8818 - (let ((t-8859 (assq n-8816 r-8777))) - (if t-8859 - (cdr t-8859) - (if (symbol? n-8816) - (let ((t-8864 - (get-global-definition-hook-4449 - n-8816 - id-mod-8817))) - (if t-8864 t-8864 '(global))) + (vector-ref id-10877 3) + mod-10843))) + (let ((b-10881 + (let ((t-10922 (assq n-10879 r-10840))) + (if t-10922 + (cdr t-10922) + (if (symbol? n-10879) + (let ((t-10927 + (get-global-definition-hook-6512 + n-10879 + id-mod-10880))) + (if t-10927 t-10927 '(global))) '(displaced-lexical)))))) - (let ((atom-key-8819 (car b-8818))) - (if (eqv? atom-key-8819 'lexical) - (build-lexical-assignment-4457 - s-8779 - (syntax->datum id-8814) - (cdr b-8818) - (expand-4522 val-8815 r-8777 w-8778 mod-8780)) - (if (eqv? atom-key-8819 'global) - (build-global-assignment-4460 - s-8779 - n-8816 - (expand-4522 val-8815 r-8777 w-8778 mod-8780) - id-mod-8817) - (if (eqv? atom-key-8819 'macro) - (let ((p-9178 (cdr b-8818))) + (let ((atom-key-10882 (car b-10881))) + (if (eqv? atom-key-10882 'lexical) + (build-lexical-assignment-6520 + s-10842 + (syntax->datum id-10877) + (cdr b-10881) + (expand-6585 val-10878 r-10840 w-10841 mod-10843)) + (if (eqv? atom-key-10882 'global) + (build-global-assignment-6523 + s-10842 + n-10879 + (expand-6585 val-10878 r-10840 w-10841 mod-10843) + id-mod-10880) + (if (eqv? atom-key-10882 'macro) + (let ((p-11241 (cdr b-10881))) (if (procedure-property - p-9178 + p-11241 'variable-transformer) - (expand-4522 - (expand-macro-4525 - p-9178 - e-8776 - r-8777 - w-8778 - s-8779 + (expand-6585 + (expand-macro-6588 + p-11241 + e-10839 + r-10840 + w-10841 + s-10842 #f - mod-8780) - r-8777 + mod-10843) + r-10840 '(()) - mod-8780) + mod-10843) (syntax-violation 'set! "not a variable transformer" - (wrap-4515 e-8776 w-8778 mod-8780) - (wrap-4515 id-8814 w-8778 id-mod-8817)))) - (if (eqv? atom-key-8819 'displaced-lexical) + (wrap-6578 e-10839 w-10841 mod-10843) + (wrap-6578 + id-10877 + w-10841 + id-mod-10880)))) + (if (eqv? atom-key-10882 'displaced-lexical) (syntax-violation 'set! "identifier out of context" - (wrap-4515 id-8814 w-8778 mod-8780)) + (wrap-6578 id-10877 w-10841 mod-10843)) (syntax-violation 'set! "bad set!" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-8776) s-8779 #f) - (set-source-properties! e-8776 s-8779)) - e-8776) - w-8778 - mod-8780)))))))))) - tmp-8782) - (let ((tmp-9273 - ($sc-dispatch e-8776 '(_ (any . each-any) any)))) - (if tmp-9273 + (if (if (pair? e-10839) s-10842 #f) + (set-source-properties! + e-10839 + s-10842)) + e-10839) + w-10841 + mod-10843)))))))))) + tmp-10845) + (let ((tmp-11336 + ($sc-dispatch e-10839 '(_ (any . each-any) any)))) + (if tmp-11336 (@apply - (lambda (head-9277 tail-9278 val-9279) + (lambda (head-11340 tail-11341 val-11342) (call-with-values (lambda () - (syntax-type-4521 - head-9277 - r-8777 + (syntax-type-6584 + head-11340 + r-10840 '(()) #f #f - mod-8780 + mod-10843 #t)) - (lambda (type-9282 - value-9283 - ee-9284 - ww-9285 - ss-9286 - modmod-9287) - (if (eqv? type-9282 'module-ref) - (let ((val-9291 - (expand-4522 - val-9279 - r-8777 - w-8778 - mod-8780))) + (lambda (type-11345 + value-11346 + formform-11347 + ee-11348 + ww-11349 + ss-11350 + modmod-11351) + (if (eqv? type-11345 'module-ref) + (let ((val-11355 + (expand-6585 + val-11342 + r-10840 + w-10841 + mod-10843))) (call-with-values (lambda () - (value-9283 - (cons head-9277 tail-9278) - r-8777 - w-8778)) - (lambda (e-9292 r-9293 w-9294 s*-9295 mod-9296) - (let ((tmp-9298 (list e-9292))) + (value-11346 + (cons head-11340 tail-11341) + r-10840 + w-10841)) + (lambda (e-11356 + r-11357 + w-11358 + s*-11359 + mod-11360) + (let ((tmp-11362 (list e-11356))) (if (@apply - (lambda (e-9300) - (if (symbol? e-9300) + (lambda (e-11364) + (if (symbol? e-11364) #t - (if (if (vector? e-9300) + (if (if (vector? e-11364) (if (= (vector-length - e-9300) + e-11364) 4) (eq? (vector-ref - e-9300 + e-11364 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-9300 1)) + (symbol? + (vector-ref e-11364 1)) #f))) - tmp-9298) + tmp-11362) (@apply - (lambda (e-9330) - (build-global-assignment-4460 - s-8779 - (syntax->datum e-9330) - val-9291 - mod-9296)) - tmp-9298) + (lambda (e-11394) + (build-global-assignment-6523 + s-10842 + (syntax->datum e-11394) + val-11355 + mod-11360)) + tmp-11362) (syntax-violation #f "source expression failed to match any pattern" - e-9292)))))) - (build-application-4453 - s-8779 - (let ((e-9555 + e-11356)))))) + (build-application-6516 + s-10842 + (let ((e-11619 (list '#(syntax-object setter ((top) #(ribcage () () ()) #(ribcage () () ()) #(ribcage - #(type value ee ww ss modmod) + #(type + value + formform + ee + ww + ss + modmod) #((top) (top) (top) (top) (top) + (top) (top)) - #("l-*-3668" - "l-*-3669" - "l-*-3670" - "l-*-3671" - "l-*-3672" - "l-*-3673")) + #("l-*-5730" + "l-*-5731" + "l-*-5732" + "l-*-5733" + "l-*-5734" + "l-*-5735" + "l-*-5736")) #(ribcage #(head tail val) #((top) (top) (top)) - #("l-*-3654" - "l-*-3655" - "l-*-3656")) + #("l-*-5715" + "l-*-5716" + "l-*-5717")) #(ribcage () () ()) #(ribcage #(e r w s mod) @@ -9217,11 +9321,11 @@ (top) (top) (top)) - #("l-*-3618" - "l-*-3619" - "l-*-3620" - "l-*-3621" - "l-*-3622")) + #("l-*-5679" + "l-*-5680" + "l-*-5681" + "l-*-5682" + "l-*-5683")) #(ribcage (lambda-var-list gen-var @@ -9503,248 +9607,253 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) - head-9277))) + head-11340))) (call-with-values (lambda () - (syntax-type-4521 - e-9555 - r-8777 - w-8778 - (source-annotation-4479 e-9555) + (syntax-type-6584 + e-11619 + r-10840 + w-10841 + (source-annotation-6542 e-11619) #f - mod-8780 + mod-10843 #f)) - (lambda (type-9562 - value-9563 - e-9564 - w-9565 - s-9566 - mod-9567) - (expand-expr-4523 - type-9562 - value-9563 - e-9564 - r-8777 - w-9565 - s-9566 - mod-9567)))) - (map (lambda (e-9571) + (lambda (type-11626 + value-11627 + form-11628 + e-11629 + w-11630 + s-11631 + mod-11632) + (expand-expr-6586 + type-11626 + value-11627 + form-11628 + e-11629 + r-10840 + w-11630 + s-11631 + mod-11632)))) + (map (lambda (e-11636) (call-with-values (lambda () - (syntax-type-4521 - e-9571 - r-8777 - w-8778 - (source-annotation-4479 e-9571) + (syntax-type-6584 + e-11636 + r-10840 + w-10841 + (source-annotation-6542 e-11636) #f - mod-8780 + mod-10843 #f)) - (lambda (type-9586 - value-9587 - e-9588 - w-9589 - s-9590 - mod-9591) - (expand-expr-4523 - type-9586 - value-9587 - e-9588 - r-8777 - w-9589 - s-9590 - mod-9591)))) - (append tail-9278 (list val-9279)))))))) - tmp-9273) + (lambda (type-11651 + value-11652 + form-11653 + e-11654 + w-11655 + s-11656 + mod-11657) + (expand-expr-6586 + type-11651 + value-11652 + form-11653 + e-11654 + r-10840 + w-11655 + s-11656 + mod-11657)))) + (append tail-11341 (list val-11342)))))))) + tmp-11336) (syntax-violation 'set! "bad set!" - (wrap-4515 + (wrap-6578 (begin - (if (if (pair? e-8776) s-8779 #f) - (set-source-properties! e-8776 s-8779)) - e-8776) - w-8778 - mod-8780)))))))) + (if (if (pair? e-10839) s-10842 #f) + (set-source-properties! e-10839 s-10842)) + e-10839) + w-10841 + mod-10843)))))))) (module-define! (current-module) '@ (make-syntax-transformer '@ 'module-ref - (lambda (e-9634 r-9635 w-9636) - (let ((tmp-9638 - ($sc-dispatch e-9634 '(_ each-any any)))) - (if (if tmp-9638 + (lambda (e-11700 r-11701 w-11702) + (let ((tmp-11704 + ($sc-dispatch e-11700 '(_ each-any any)))) + (if (if tmp-11704 (@apply - (lambda (mod-9641 id-9642) - (if (and-map id?-4486 mod-9641) - (if (symbol? id-9642) + (lambda (mod-11707 id-11708) + (if (and-map id?-6549 mod-11707) + (if (symbol? id-11708) #t - (if (if (vector? id-9642) - (if (= (vector-length id-9642) 4) - (eq? (vector-ref id-9642 0) 'syntax-object) + (if (if (vector? id-11708) + (if (= (vector-length id-11708) 4) + (eq? (vector-ref id-11708 0) + 'syntax-object) #f) #f) - (symbol? (vector-ref id-9642 1)) + (symbol? (vector-ref id-11708 1)) #f)) #f)) - tmp-9638) + tmp-11704) #f) (@apply - (lambda (mod-9682 id-9683) + (lambda (mod-11748 id-11749) (values - (syntax->datum id-9683) - r-9635 - w-9636 + (syntax->datum id-11749) + r-11701 + w-11702 #f (syntax->datum (cons '#(syntax-object @@ -9753,12 +9862,12 @@ #(ribcage #(mod id) #((top) (top)) - #("l-*-3715" "l-*-3716")) + #("l-*-5778" "l-*-5779")) #(ribcage () () ()) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-3703" "l-*-3704" "l-*-3705")) + #("l-*-5766" "l-*-5767" "l-*-5768")) #(ribcage (lambda-var-list gen-var @@ -10040,211 +10149,213 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)) - mod-9682)))) - tmp-9638) + mod-11748)))) + tmp-11704) (syntax-violation #f "source expression failed to match any pattern" - e-9634)))))) - (global-extend-4484 + e-11700)))))) + (global-extend-6547 'module-ref '@@ - (lambda (e-9775 r-9776 w-9777) + (lambda (e-11841 r-11842 w-11843) (letrec* - ((remodulate-9778 - (lambda (x-9813 mod-9814) - (if (pair? x-9813) - (cons (remodulate-9778 (car x-9813) mod-9814) - (remodulate-9778 (cdr x-9813) mod-9814)) - (if (if (vector? x-9813) - (if (= (vector-length x-9813) 4) - (eq? (vector-ref x-9813 0) 'syntax-object) + ((remodulate-11844 + (lambda (x-11879 mod-11880) + (if (pair? x-11879) + (cons (remodulate-11844 (car x-11879) mod-11880) + (remodulate-11844 (cdr x-11879) mod-11880)) + (if (if (vector? x-11879) + (if (= (vector-length x-11879) 4) + (eq? (vector-ref x-11879 0) 'syntax-object) #f) #f) - (let ((expression-9828 - (remodulate-9778 (vector-ref x-9813 1) mod-9814)) - (wrap-9829 (vector-ref x-9813 2))) + (let ((expression-11894 + (remodulate-11844 + (vector-ref x-11879 1) + mod-11880)) + (wrap-11895 (vector-ref x-11879 2))) (vector 'syntax-object - expression-9828 - wrap-9829 - mod-9814)) - (if (vector? x-9813) - (let ((n-9837 (vector-length x-9813))) - (let ((v-9838 (make-vector n-9837))) + expression-11894 + wrap-11895 + mod-11880)) + (if (vector? x-11879) + (let ((n-11903 (vector-length x-11879))) + (let ((v-11904 (make-vector n-11903))) (letrec* - ((loop-9839 - (lambda (i-9886) - (if (= i-9886 n-9837) - v-9838 + ((loop-11905 + (lambda (i-11952) + (if (= i-11952 n-11903) + v-11904 (begin (vector-set! - v-9838 - i-9886 - (remodulate-9778 - (vector-ref x-9813 i-9886) - mod-9814)) - (loop-9839 (#{1+}# i-9886))))))) - (loop-9839 0)))) - x-9813)))))) - (let ((tmp-9780 - ($sc-dispatch e-9775 '(_ each-any any)))) - (if (if tmp-9780 + v-11904 + i-11952 + (remodulate-11844 + (vector-ref x-11879 i-11952) + mod-11880)) + (loop-11905 (#{1+}# i-11952))))))) + (loop-11905 0)))) + x-11879)))))) + (let ((tmp-11846 + ($sc-dispatch e-11841 '(_ each-any any)))) + (if (if tmp-11846 (@apply - (lambda (mod-9784 exp-9785) - (and-map id?-4486 mod-9784)) - tmp-9780) + (lambda (mod-11850 exp-11851) + (and-map id?-6549 mod-11850)) + tmp-11846) #f) (@apply - (lambda (mod-9801 exp-9802) - (let ((mod-9803 + (lambda (mod-11867 exp-11868) + (let ((mod-11869 (syntax->datum (cons '#(syntax-object private @@ -10252,15 +10363,15 @@ #(ribcage #(mod exp) #((top) (top)) - #("l-*-3759" "l-*-3760")) + #("l-*-5822" "l-*-5823")) #(ribcage (remodulate) ((top)) - ("l-*-3726")) + ("l-*-5789")) #(ribcage #(e r w) #((top) (top) (top)) - #("l-*-3723" "l-*-3724" "l-*-3725")) + #("l-*-5786" "l-*-5787" "l-*-5788")) #(ribcage (lambda-var-list gen-var @@ -10542,232 +10653,252 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" "l-*-2097" "l-*-2096"))) (hygiene guile)) - mod-9801)))) + mod-11867)))) (values - (remodulate-9778 exp-9802 mod-9803) - r-9776 - w-9777 - (source-annotation-4479 exp-9802) - mod-9803))) - tmp-9780) + (remodulate-11844 exp-11868 mod-11869) + r-11842 + w-11843 + (source-annotation-6542 exp-11868) + mod-11869))) + tmp-11846) (syntax-violation #f "source expression failed to match any pattern" - e-9775)))))) - (global-extend-4484 + e-11841)))))) + (global-extend-6547 'core 'if - (lambda (e-9987 r-9988 w-9989 s-9990 mod-9991) - (let ((tmp-9993 ($sc-dispatch e-9987 '(_ any any)))) - (if tmp-9993 + (lambda (e-12053 r-12054 w-12055 s-12056 mod-12057) + (let ((tmp-12059 ($sc-dispatch e-12053 '(_ any any)))) + (if tmp-12059 (@apply - (lambda (test-9997 then-9998) - (build-conditional-4454 - s-9990 - (expand-4522 test-9997 r-9988 w-9989 mod-9991) - (expand-4522 then-9998 r-9988 w-9989 mod-9991) + (lambda (test-12063 then-12064) + (build-conditional-6517 + s-12056 + (expand-6585 + test-12063 + r-12054 + w-12055 + mod-12057) + (expand-6585 + then-12064 + r-12054 + w-12055 + mod-12057) (make-struct/no-tail (vector-ref %expanded-vtables 0) #f))) - tmp-9993) - (let ((tmp-10223 - ($sc-dispatch e-9987 '(_ any any any)))) - (if tmp-10223 + tmp-12059) + (let ((tmp-12289 + ($sc-dispatch e-12053 '(_ any any any)))) + (if tmp-12289 (@apply - (lambda (test-10227 then-10228 else-10229) - (build-conditional-4454 - s-9990 - (expand-4522 test-10227 r-9988 w-9989 mod-9991) - (expand-4522 then-10228 r-9988 w-9989 mod-9991) - (expand-4522 else-10229 r-9988 w-9989 mod-9991))) - tmp-10223) + (lambda (test-12293 then-12294 else-12295) + (build-conditional-6517 + s-12056 + (expand-6585 + test-12293 + r-12054 + w-12055 + mod-12057) + (expand-6585 + then-12294 + r-12054 + w-12055 + mod-12057) + (expand-6585 + else-12295 + r-12054 + w-12055 + mod-12057))) + tmp-12289) (syntax-violation #f "source expression failed to match any pattern" - e-9987))))))) - (global-extend-4484 + e-12053))))))) + (global-extend-6547 'core 'with-fluids - (lambda (e-10628 r-10629 w-10630 s-10631 mod-10632) - (let ((tmp-10634 + (lambda (e-12694 r-12695 w-12696 s-12697 mod-12698) + (let ((tmp-12700 ($sc-dispatch - e-10628 + e-12694 '(_ #(each (any any)) any . each-any)))) - (if tmp-10634 + (if tmp-12700 (@apply - (lambda (fluid-10638 val-10639 b-10640 b*-10641) - (build-dynlet-4455 - s-10631 - (map (lambda (x-10722) - (expand-4522 x-10722 r-10629 w-10630 mod-10632)) - fluid-10638) - (map (lambda (x-10792) - (expand-4522 x-10792 r-10629 w-10630 mod-10632)) - val-10639) - (expand-body-4526 - (cons b-10640 b*-10641) - (wrap-4515 + (lambda (fluid-12704 val-12705 b-12706 b*-12707) + (build-dynlet-6518 + s-12697 + (map (lambda (x-12788) + (expand-6585 x-12788 r-12695 w-12696 mod-12698)) + fluid-12704) + (map (lambda (x-12858) + (expand-6585 x-12858 r-12695 w-12696 mod-12698)) + val-12705) + (expand-body-6589 + (cons b-12706 b*-12707) + (wrap-6578 (begin - (if (if (pair? e-10628) s-10631 #f) - (set-source-properties! e-10628 s-10631)) - e-10628) - w-10630 - mod-10632) - r-10629 - w-10630 - mod-10632))) - tmp-10634) + (if (if (pair? e-12694) s-12697 #f) + (set-source-properties! e-12694 s-12697)) + e-12694) + w-12696 + mod-12698) + r-12695 + w-12696 + mod-12698))) + tmp-12700) (syntax-violation #f "source expression failed to match any pattern" - e-10628))))) + e-12694))))) (module-define! (current-module) 'begin @@ -10797,60 +10928,60 @@ 'eval-when 'eval-when '())) - (global-extend-4484 + (global-extend-6547 'core 'syntax-case (letrec* - ((convert-pattern-11160 - (lambda (pattern-12757 keys-12758) + ((convert-pattern-13226 + (lambda (pattern-14823 keys-14824) (letrec* - ((cvt*-12759 - (lambda (p*-13383 n-13384 ids-13385) - (if (not (pair? p*-13383)) - (cvt-12761 p*-13383 n-13384 ids-13385) + ((cvt*-14825 + (lambda (p*-15449 n-15450 ids-15451) + (if (not (pair? p*-15449)) + (cvt-14827 p*-15449 n-15450 ids-15451) (call-with-values (lambda () - (cvt*-12759 (cdr p*-13383) n-13384 ids-13385)) - (lambda (y-13388 ids-13389) + (cvt*-14825 (cdr p*-15449) n-15450 ids-15451)) + (lambda (y-15454 ids-15455) (call-with-values (lambda () - (cvt-12761 (car p*-13383) n-13384 ids-13389)) - (lambda (x-13392 ids-13393) + (cvt-14827 (car p*-15449) n-15450 ids-15455)) + (lambda (x-15458 ids-15459) (values - (cons x-13392 y-13388) - ids-13393)))))))) - (v-reverse-12760 - (lambda (x-13394) + (cons x-15458 y-15454) + ids-15459)))))))) + (v-reverse-14826 + (lambda (x-15460) (letrec* - ((loop-13395 - (lambda (r-13475 x-13476) - (if (not (pair? x-13476)) - (values r-13475 x-13476) - (loop-13395 - (cons (car x-13476) r-13475) - (cdr x-13476)))))) - (loop-13395 '() x-13394)))) - (cvt-12761 - (lambda (p-12764 n-12765 ids-12766) - (if (if (symbol? p-12764) + ((loop-15461 + (lambda (r-15541 x-15542) + (if (not (pair? x-15542)) + (values r-15541 x-15542) + (loop-15461 + (cons (car x-15542) r-15541) + (cdr x-15542)))))) + (loop-15461 '() x-15460)))) + (cvt-14827 + (lambda (p-14830 n-14831 ids-14832) + (if (if (symbol? p-14830) #t - (if (if (vector? p-12764) - (if (= (vector-length p-12764) 4) - (eq? (vector-ref p-12764 0) 'syntax-object) + (if (if (vector? p-14830) + (if (= (vector-length p-14830) 4) + (eq? (vector-ref p-14830 0) 'syntax-object) #f) #f) - (symbol? (vector-ref p-12764 1)) + (symbol? (vector-ref p-14830 1)) #f)) - (if (bound-id-member?-4514 p-12764 keys-12758) - (values (vector 'free-id p-12764) ids-12766) - (if (if (eq? (if (if (vector? p-12764) - (if (= (vector-length p-12764) 4) - (eq? (vector-ref p-12764 0) + (if (bound-id-member?-6577 p-14830 keys-14824) + (values (vector 'free-id p-14830) ids-14832) + (if (if (eq? (if (if (vector? p-14830) + (if (= (vector-length p-14830) 4) + (eq? (vector-ref p-14830 0) 'syntax-object) #f) #f) - (vector-ref p-12764 1) - p-12764) + (vector-ref p-14830 1) + p-14830) (if (if (= (vector-length '#(syntax-object _ @@ -10859,20 +10990,20 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3860" - "l-*-3861" - "l-*-3862")) + #("l-*-5923" + "l-*-5924" + "l-*-5925")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3833" - "l-*-3831" - "l-*-3829")) + ("l-*-5896" + "l-*-5894" + "l-*-5892")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3827" - "l-*-3828")) + #("l-*-5890" + "l-*-5891")) #(ribcage (gen-syntax-case gen-clause @@ -10882,10 +11013,10 @@ (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -11167,154 +11298,154 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) #t @@ -11327,29 +11458,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3860" - "l-*-3861" - "l-*-3862")) + #("l-*-5923" + "l-*-5924" + "l-*-5925")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3833" - "l-*-3831" - "l-*-3829")) + ("l-*-5896" + "l-*-5894" + "l-*-5892")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3827" "l-*-3828")) + #("l-*-5890" "l-*-5891")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -11631,155 +11762,157 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 p-12764 '(())) - (id-var-name-4505 + (eq? (id-var-name-6568 p-14830 '(())) + (id-var-name-6568 '#(syntax-object _ ((top) @@ -11787,29 +11920,29 @@ #(ribcage #(p n ids) #((top) (top) (top)) - #("l-*-3860" - "l-*-3861" - "l-*-3862")) + #("l-*-5923" + "l-*-5924" + "l-*-5925")) #(ribcage (cvt v-reverse cvt*) ((top) (top) (top)) - ("l-*-3833" - "l-*-3831" - "l-*-3829")) + ("l-*-5896" + "l-*-5894" + "l-*-5892")) #(ribcage #(pattern keys) #((top) (top)) - #("l-*-3827" "l-*-3828")) + #("l-*-5890" "l-*-5891")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -12091,184 +12224,186 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) - (values '_ ids-12766) + (values '_ ids-14832) (values 'any - (cons (cons p-12764 n-12765) ids-12766)))) - (let ((tmp-13086 ($sc-dispatch p-12764 '(any any)))) - (if (if tmp-13086 + (cons (cons p-14830 n-14831) ids-14832)))) + (let ((tmp-15152 ($sc-dispatch p-14830 '(any any)))) + (if (if tmp-15152 (@apply - (lambda (x-13090 dots-13091) - (if (if (if (vector? dots-13091) - (if (= (vector-length dots-13091) + (lambda (x-15156 dots-15157) + (if (if (if (vector? dots-15157) + (if (= (vector-length dots-15157) 4) - (eq? (vector-ref dots-13091 0) + (eq? (vector-ref dots-15157 0) 'syntax-object) #f) #f) - (symbol? (vector-ref dots-13091 1)) + (symbol? (vector-ref dots-15157 1)) #f) - (if (eq? (if (if (vector? dots-13091) + (if (eq? (if (if (vector? dots-15157) (if (= (vector-length - dots-13091) + dots-15157) 4) (eq? (vector-ref - dots-13091 + dots-15157 0) 'syntax-object) #f) #f) - (vector-ref dots-13091 1) - dots-13091) + (vector-ref dots-15157 1) + dots-15157) (if (if (= (vector-length '#(syntax-object ... @@ -12284,7 +12419,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -12566,146 +12701,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -12713,9 +12848,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -12730,7 +12865,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -13012,159 +13147,159 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 - dots-13091 + (eq? (id-var-name-6568 + dots-15157 '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object ... ((top) @@ -13173,7 +13308,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -13455,205 +13590,205 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)) - tmp-13086) + tmp-15152) #f) (@apply - (lambda (x-13191 dots-13192) + (lambda (x-15257 dots-15258) (call-with-values (lambda () - (cvt-12761 - x-13191 - (#{1+}# n-12765) - ids-12766)) - (lambda (p-13193 ids-13194) + (cvt-14827 + x-15257 + (#{1+}# n-14831) + ids-14832)) + (lambda (p-15259 ids-15260) (values - (if (eq? p-13193 'any) + (if (eq? p-15259 'any) 'each-any - (vector 'each p-13193)) - ids-13194)))) - tmp-13086) - (let ((tmp-13195 - ($sc-dispatch p-12764 '(any any . any)))) - (if (if tmp-13195 + (vector 'each p-15259)) + ids-15260)))) + tmp-15152) + (let ((tmp-15261 + ($sc-dispatch p-14830 '(any any . any)))) + (if (if tmp-15261 (@apply - (lambda (x-13199 dots-13200 ys-13201) - (if (if (if (vector? dots-13200) + (lambda (x-15265 dots-15266 ys-15267) + (if (if (if (vector? dots-15266) (if (= (vector-length - dots-13200) + dots-15266) 4) (eq? (vector-ref - dots-13200 + dots-15266 0) 'syntax-object) #f) #f) (symbol? - (vector-ref dots-13200 1)) + (vector-ref dots-15266 1)) #f) - (if (eq? (if (if (vector? dots-13200) + (if (eq? (if (if (vector? dots-15266) (if (= (vector-length - dots-13200) + dots-15266) 4) (eq? (vector-ref - dots-13200 + dots-15266 0) 'syntax-object) #f) #f) - (vector-ref dots-13200 1) - dots-13200) + (vector-ref dots-15266 1) + dots-15266) (if (if (= (vector-length '#(syntax-object ... @@ -13669,7 +13804,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -13951,146 +14086,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -14098,9 +14233,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -14115,7 +14250,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -14397,159 +14532,159 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 - dots-13200 + (eq? (id-var-name-6568 + dots-15266 '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object ... ((top) @@ -14558,7 +14693,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -14840,249 +14975,249 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)) - tmp-13195) + tmp-15261) #f) (@apply - (lambda (x-13301 dots-13302 ys-13303) + (lambda (x-15367 dots-15368 ys-15369) (call-with-values (lambda () - (cvt*-12759 - ys-13303 - n-12765 - ids-12766)) - (lambda (ys-13306 ids-13307) + (cvt*-14825 + ys-15369 + n-14831 + ids-14832)) + (lambda (ys-15372 ids-15373) (call-with-values (lambda () - (cvt-12761 - x-13301 - (#{1+}# n-12765) - ids-13307)) - (lambda (x-13308 ids-13309) + (cvt-14827 + x-15367 + (#{1+}# n-14831) + ids-15373)) + (lambda (x-15374 ids-15375) (call-with-values (lambda () - (v-reverse-12760 ys-13306)) - (lambda (ys-13342 e-13343) + (v-reverse-14826 ys-15372)) + (lambda (ys-15408 e-15409) (values (vector 'each+ - x-13308 - ys-13342 - e-13343) - ids-13309)))))))) - tmp-13195) - (let ((tmp-13344 - ($sc-dispatch p-12764 '(any . any)))) - (if tmp-13344 + x-15374 + ys-15408 + e-15409) + ids-15375)))))))) + tmp-15261) + (let ((tmp-15410 + ($sc-dispatch p-14830 '(any . any)))) + (if tmp-15410 (@apply - (lambda (x-13348 y-13349) + (lambda (x-15414 y-15415) (call-with-values (lambda () - (cvt-12761 - y-13349 - n-12765 - ids-12766)) - (lambda (y-13350 ids-13351) + (cvt-14827 + y-15415 + n-14831 + ids-14832)) + (lambda (y-15416 ids-15417) (call-with-values (lambda () - (cvt-12761 - x-13348 - n-12765 - ids-13351)) - (lambda (x-13352 ids-13353) + (cvt-14827 + x-15414 + n-14831 + ids-15417)) + (lambda (x-15418 ids-15419) (values - (cons x-13352 y-13350) - ids-13353)))))) - tmp-13344) - (let ((tmp-13354 - ($sc-dispatch p-12764 '()))) - (if tmp-13354 + (cons x-15418 y-15416) + ids-15419)))))) + tmp-15410) + (let ((tmp-15420 + ($sc-dispatch p-14830 '()))) + (if tmp-15420 (@apply - (lambda () (values '() ids-12766)) - tmp-13354) - (let ((tmp-13358 + (lambda () (values '() ids-14832)) + tmp-15420) + (let ((tmp-15424 ($sc-dispatch - p-12764 + p-14830 '#(vector each-any)))) - (if tmp-13358 + (if tmp-15424 (@apply - (lambda (x-13362) + (lambda (x-15428) (call-with-values (lambda () - (cvt-12761 - x-13362 - n-12765 - ids-12766)) - (lambda (p-13363 ids-13364) + (cvt-14827 + x-15428 + n-14831 + ids-14832)) + (lambda (p-15429 ids-15430) (values - (vector 'vector p-13363) - ids-13364)))) - tmp-13358) + (vector 'vector p-15429) + ids-15430)))) + tmp-15424) (values (vector 'atom - (strip-4535 p-12764 '(()))) - ids-12766))))))))))))))) - (cvt-12761 pattern-12757 0 '())))) - (build-dispatch-call-11161 - (lambda (pvars-13477 exp-13478 y-13479 r-13480 mod-13481) - (let ((ids-13482 (map car pvars-13477))) + (strip-6598 p-14830 '(()))) + ids-14832))))))))))))))) + (cvt-14827 pattern-14823 0 '())))) + (build-dispatch-call-13227 + (lambda (pvars-15543 exp-15544 y-15545 r-15546 mod-15547) + (let ((ids-15548 (map car pvars-15543))) (begin - (map cdr pvars-13477) - (let ((labels-13484 (gen-labels-4489 ids-13482)) - (new-vars-13485 (map gen-var-4536 ids-13482))) - (build-application-4453 + (map cdr pvars-15543) + (let ((labels-15550 (gen-labels-6552 ids-15548)) + (new-vars-15551 (map gen-var-6599 ids-15548))) + (build-application-6516 #f (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail @@ -15095,73 +15230,73 @@ '(guile) 'apply #f)) - (list (build-simple-lambda-4462 + (list (build-simple-lambda-6525 #f - (map syntax->datum ids-13482) + (map syntax->datum ids-15548) #f - new-vars-13485 + new-vars-15551 '() - (expand-4522 - exp-13478 - (extend-env-4480 - labels-13484 - (map (lambda (var-13808 level-13809) + (expand-6585 + exp-15544 + (extend-env-6543 + labels-15550 + (map (lambda (var-15874 level-15875) (cons 'syntax - (cons var-13808 level-13809))) - new-vars-13485 - (map cdr pvars-13477)) - r-13480) - (make-binding-wrap-4500 - ids-13482 - labels-13484 + (cons var-15874 level-15875))) + new-vars-15551 + (map cdr pvars-15543)) + r-15546) + (make-binding-wrap-6563 + ids-15548 + labels-15550 '(())) - mod-13481)) - y-13479))))))) - (gen-clause-11162 - (lambda (x-12129 - keys-12130 - clauses-12131 - r-12132 - pat-12133 - fender-12134 - exp-12135 - mod-12136) + mod-15547)) + y-15545))))))) + (gen-clause-13228 + (lambda (x-14195 + keys-14196 + clauses-14197 + r-14198 + pat-14199 + fender-14200 + exp-14201 + mod-14202) (call-with-values (lambda () - (convert-pattern-11160 pat-12133 keys-12130)) - (lambda (p-12291 pvars-12292) - (if (not (distinct-bound-ids?-4513 (map car pvars-12292))) + (convert-pattern-13226 pat-14199 keys-14196)) + (lambda (p-14357 pvars-14358) + (if (not (distinct-bound-ids?-6576 (map car pvars-14358))) (syntax-violation 'syntax-case "duplicate pattern variable" - pat-12133) + pat-14199) (if (not (and-map - (lambda (x-12408) - (not (let ((x-12412 (car x-12408))) - (if (if (if (vector? x-12412) + (lambda (x-14474) + (not (let ((x-14478 (car x-14474))) + (if (if (if (vector? x-14478) (if (= (vector-length - x-12412) + x-14478) 4) (eq? (vector-ref - x-12412 + x-14478 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-12412 1)) + (symbol? (vector-ref x-14478 1)) #f) - (if (eq? (if (if (vector? x-12412) + (if (eq? (if (if (vector? x-14478) (if (= (vector-length - x-12412) + x-14478) 4) (eq? (vector-ref - x-12412 + x-14478 0) 'syntax-object) #f) #f) - (vector-ref x-12412 1) - x-12412) + (vector-ref x-14478 1) + x-14478) (if (if (= (vector-length '#(syntax-object ... @@ -15177,7 +15312,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -15459,146 +15594,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -15606,9 +15741,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -15623,7 +15758,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -15905,159 +16040,159 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 - x-12412 + (eq? (id-var-name-6568 + x-14478 '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object ... ((top) @@ -16066,7 +16201,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -16348,194 +16483,194 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)))) - pvars-12292)) + pvars-14358)) (syntax-violation 'syntax-case "misplaced ellipsis" - pat-12133) - (let ((y-12488 + pat-14199) + (let ((y-14554 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-4453 + (build-application-6516 #f - (let ((req-12631 (list 'tmp)) - (vars-12633 (list y-12488)) - (exp-12635 - (let ((y-12652 + (let ((req-14697 (list 'tmp)) + (vars-14699 (list y-14554)) + (exp-14701 + (let ((y-14718 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - y-12488))) - (let ((test-exp-12656 - (let ((tmp-12665 + y-14554))) + (let ((test-exp-14722 + (let ((tmp-14731 ($sc-dispatch - fender-12134 + fender-14200 '#(atom #t)))) - (if tmp-12665 + (if tmp-14731 (@apply - (lambda () y-12652) - tmp-12665) - (let ((then-exp-12683 - (build-dispatch-call-11161 - pvars-12292 - fender-12134 - y-12652 - r-12132 - mod-12136)) - (else-exp-12684 + (lambda () y-14718) + tmp-14731) + (let ((then-exp-14749 + (build-dispatch-call-13227 + pvars-14358 + fender-14200 + y-14718 + r-14198 + mod-14202)) + (else-exp-14750 (make-struct/no-tail (vector-ref %expanded-vtables @@ -16547,48 +16682,48 @@ %expanded-vtables 10) #f - y-12652 - then-exp-12683 - else-exp-12684))))) - (then-exp-12657 - (build-dispatch-call-11161 - pvars-12292 - exp-12135 - y-12652 - r-12132 - mod-12136)) - (else-exp-12658 - (gen-syntax-case-11163 - x-12129 - keys-12130 - clauses-12131 - r-12132 - mod-12136))) + y-14718 + then-exp-14749 + else-exp-14750))))) + (then-exp-14723 + (build-dispatch-call-13227 + pvars-14358 + exp-14201 + y-14718 + r-14198 + mod-14202)) + (else-exp-14724 + (gen-syntax-case-13229 + x-14195 + keys-14196 + clauses-14197 + r-14198 + mod-14202))) (make-struct/no-tail (vector-ref %expanded-vtables 10) #f - test-exp-12656 - then-exp-12657 - else-exp-12658))))) - (let ((body-12640 + test-exp-14722 + then-exp-14723 + else-exp-14724))))) + (let ((body-14706 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-12631 + req-14697 #f #f #f '() - vars-12633 - exp-12635 + vars-14699 + exp-14701 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-12640))) - (list (if (eq? p-12291 'any) - (let ((fun-exp-12706 + body-14706))) + (list (if (eq? p-14357 'any) + (let ((fun-exp-14772 (if (equal? (module-name (current-module)) '(guile)) @@ -16602,13 +16737,13 @@ '(guile) 'list #f))) - (arg-exps-12707 (list x-12129))) + (arg-exps-14773 (list x-14195))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-12706 - arg-exps-12707)) - (let ((fun-exp-12730 + fun-exp-14772 + arg-exps-14773)) + (let ((fun-exp-14796 (if (equal? (module-name (current-module)) '(guile)) @@ -16622,27 +16757,27 @@ '(guile) '$sc-dispatch #f))) - (arg-exps-12731 - (list x-12129 + (arg-exps-14797 + (list x-14195 (make-struct/no-tail (vector-ref %expanded-vtables 1) #f - p-12291)))) + p-14357)))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-12730 - arg-exps-12731)))))))))))) - (gen-syntax-case-11163 - (lambda (x-11562 - keys-11563 - clauses-11564 - r-11565 - mod-11566) - (if (null? clauses-11564) - (let ((fun-exp-11571 + fun-exp-14796 + arg-exps-14797)))))))))))) + (gen-syntax-case-13229 + (lambda (x-13628 + keys-13629 + clauses-13630 + r-13631 + mod-13632) + (if (null? clauses-13630) + (let ((fun-exp-13637 (if (equal? (module-name (current-module)) '(guile)) (make-struct/no-tail (vector-ref %expanded-vtables 7) @@ -16654,7 +16789,7 @@ '(guile) 'syntax-violation #f))) - (arg-exps-11572 + (arg-exps-13638 (list (make-struct/no-tail (vector-ref %expanded-vtables 1) #f @@ -16663,58 +16798,58 @@ (vector-ref %expanded-vtables 1) #f "source expression failed to match any pattern") - x-11562))) + x-13628))) (make-struct/no-tail (vector-ref %expanded-vtables 11) #f - fun-exp-11571 - arg-exps-11572)) - (let ((tmp-11605 (car clauses-11564))) - (let ((tmp-11606 ($sc-dispatch tmp-11605 '(any any)))) - (if tmp-11606 + fun-exp-13637 + arg-exps-13638)) + (let ((tmp-13671 (car clauses-13630))) + (let ((tmp-13672 ($sc-dispatch tmp-13671 '(any any)))) + (if tmp-13672 (@apply - (lambda (pat-11608 exp-11609) - (if (if (if (symbol? pat-11608) + (lambda (pat-13674 exp-13675) + (if (if (if (symbol? pat-13674) #t - (if (if (vector? pat-11608) - (if (= (vector-length pat-11608) 4) - (eq? (vector-ref pat-11608 0) + (if (if (vector? pat-13674) + (if (= (vector-length pat-13674) 4) + (eq? (vector-ref pat-13674 0) 'syntax-object) #f) #f) - (symbol? (vector-ref pat-11608 1)) + (symbol? (vector-ref pat-13674 1)) #f)) (and-map - (lambda (x-11636) - (not (if (eq? (if (if (vector? pat-11608) + (lambda (x-13702) + (not (if (eq? (if (if (vector? pat-13674) (if (= (vector-length - pat-11608) + pat-13674) 4) (eq? (vector-ref - pat-11608 + pat-13674 0) 'syntax-object) #f) #f) - (vector-ref pat-11608 1) - pat-11608) - (if (if (vector? x-11636) + (vector-ref pat-13674 1) + pat-13674) + (if (if (vector? x-13702) (if (= (vector-length - x-11636) + x-13702) 4) (eq? (vector-ref - x-11636 + x-13702 0) 'syntax-object) #f) #f) - (vector-ref x-11636 1) - x-11636)) - (eq? (id-var-name-4505 - pat-11608 + (vector-ref x-13702 1) + x-13702)) + (eq? (id-var-name-6568 + pat-13674 '(())) - (id-var-name-4505 - x-11636 + (id-var-name-6568 + x-13702 '(()))) #f))) (cons '#(syntax-object @@ -16723,26 +16858,26 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) #((top) (top) (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -17024,154 +17159,156 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) - keys-11563)) + keys-13629)) #f) (if (if (eq? (if (if (= (vector-length '#(syntax-object @@ -17180,8 +17317,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" - "l-*-4025")) + #("l-*-6087" + "l-*-6088")) #(ribcage () () ()) #(ribcage #(x @@ -17194,11 +17331,11 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause @@ -17208,10 +17345,10 @@ (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -17493,146 +17630,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -17640,9 +17777,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) #t @@ -17654,7 +17791,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -17663,21 +17800,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -17959,154 +18096,154 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) (if (if (= (vector-length '#(syntax-object @@ -18115,8 +18252,8 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" - "l-*-4025")) + #("l-*-6087" + "l-*-6088")) #(ribcage () () ()) #(ribcage #(x @@ -18129,11 +18266,11 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause @@ -18143,10 +18280,10 @@ (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -18428,146 +18565,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -18575,9 +18712,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) #t @@ -18589,7 +18726,7 @@ #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -18598,21 +18735,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -18894,163 +19031,163 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 + (eq? (id-var-name-6568 '#(syntax-object pad ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19059,21 +19196,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -19355,162 +19492,164 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(())) - (id-var-name-4505 + (id-var-name-6568 '#(syntax-object _ ((top) #(ribcage #(pat exp) #((top) (top)) - #("l-*-4024" "l-*-4025")) + #("l-*-6087" "l-*-6088")) #(ribcage () () ()) #(ribcage #(x keys clauses r mod) @@ -19519,21 +19658,21 @@ (top) (top) (top)) - #("l-*-4013" - "l-*-4014" - "l-*-4015" - "l-*-4016" - "l-*-4017")) + #("l-*-6076" + "l-*-6077" + "l-*-6078" + "l-*-6079" + "l-*-6080")) #(ribcage (gen-syntax-case gen-clause build-dispatch-call convert-pattern) ((top) (top) (top) (top)) - ("l-*-3823" - "l-*-3821" - "l-*-3819" - "l-*-3817")) + ("l-*-5886" + "l-*-5884" + "l-*-5882" + "l-*-5880")) #(ribcage (lambda-var-list gen-var @@ -19815,278 +19954,280 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" "l-*-46" "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) - (expand-4522 exp-11609 r-11565 '(()) mod-11566) - (let ((labels-11812 + (expand-6585 exp-13675 r-13631 '(()) mod-13632) + (let ((labels-13878 (list (string-append "l-" - (session-id-4447) + (session-id-6510) (symbol->string (gensym "-"))))) - (var-11813 - (let ((id-11851 - (if (if (vector? pat-11608) + (var-13879 + (let ((id-13917 + (if (if (vector? pat-13674) (if (= (vector-length - pat-11608) + pat-13674) 4) (eq? (vector-ref - pat-11608 + pat-13674 0) 'syntax-object) #f) #f) - (vector-ref pat-11608 1) - pat-11608))) + (vector-ref pat-13674 1) + pat-13674))) (gensym (string-append - (symbol->string id-11851) + (symbol->string id-13917) "-"))))) - (build-application-4453 + (build-application-6516 #f - (build-simple-lambda-4462 + (build-simple-lambda-6525 #f - (list (syntax->datum pat-11608)) + (list (syntax->datum pat-13674)) #f - (list var-11813) + (list var-13879) '() - (expand-4522 - exp-11609 - (extend-env-4480 - labels-11812 + (expand-6585 + exp-13675 + (extend-env-6543 + labels-13878 (list (cons 'syntax - (cons var-11813 0))) - r-11565) - (make-binding-wrap-4500 - (list pat-11608) - labels-11812 + (cons var-13879 0))) + r-13631) + (make-binding-wrap-6563 + (list pat-13674) + labels-13878 '(())) - mod-11566)) - (list x-11562)))) - (gen-clause-11162 - x-11562 - keys-11563 - (cdr clauses-11564) - r-11565 - pat-11608 + mod-13632)) + (list x-13628)))) + (gen-clause-13228 + x-13628 + keys-13629 + (cdr clauses-13630) + r-13631 + pat-13674 #t - exp-11609 - mod-11566))) - tmp-11606) - (let ((tmp-12121 - ($sc-dispatch tmp-11605 '(any any any)))) - (if tmp-12121 + exp-13675 + mod-13632))) + tmp-13672) + (let ((tmp-14187 + ($sc-dispatch tmp-13671 '(any any any)))) + (if tmp-14187 (@apply - (lambda (pat-12123 fender-12124 exp-12125) - (gen-clause-11162 - x-11562 - keys-11563 - (cdr clauses-11564) - r-11565 - pat-12123 - fender-12124 - exp-12125 - mod-11566)) - tmp-12121) + (lambda (pat-14189 fender-14190 exp-14191) + (gen-clause-13228 + x-13628 + keys-13629 + (cdr clauses-13630) + r-13631 + pat-14189 + fender-14190 + exp-14191 + mod-13632)) + tmp-14187) (syntax-violation 'syntax-case "invalid clause" - (car clauses-11564))))))))))) - (lambda (e-11164 r-11165 w-11166 s-11167 mod-11168) - (let ((e-11169 - (wrap-4515 + (car clauses-13630))))))))))) + (lambda (e-13230 r-13231 w-13232 s-13233 mod-13234) + (let ((e-13235 + (wrap-6578 (begin - (if (if (pair? e-11164) s-11167 #f) - (set-source-properties! e-11164 s-11167)) - e-11164) - w-11166 - mod-11168))) - (let ((tmp-11171 + (if (if (pair? e-13230) s-13233 #f) + (set-source-properties! e-13230 s-13233)) + e-13230) + w-13232 + mod-13234))) + (let ((tmp-13237 ($sc-dispatch - e-11169 + e-13235 '(_ any each-any . each-any)))) - (if tmp-11171 + (if tmp-13237 (@apply - (lambda (val-11196 key-11197 m-11198) + (lambda (val-13262 key-13263 m-13264) (if (and-map - (lambda (x-11199) - (if (if (symbol? x-11199) + (lambda (x-13265) + (if (if (symbol? x-13265) #t - (if (if (vector? x-11199) - (if (= (vector-length x-11199) 4) - (eq? (vector-ref x-11199 0) + (if (if (vector? x-13265) + (if (= (vector-length x-13265) 4) + (eq? (vector-ref x-13265 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-11199 1)) + (symbol? (vector-ref x-13265 1)) #f)) - (not (if (if (if (vector? x-11199) - (if (= (vector-length x-11199) + (not (if (if (if (vector? x-13265) + (if (= (vector-length x-13265) 4) - (eq? (vector-ref x-11199 0) + (eq? (vector-ref x-13265 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-11199 1)) + (symbol? (vector-ref x-13265 1)) #f) - (if (eq? (if (if (vector? x-11199) + (if (eq? (if (if (vector? x-13265) (if (= (vector-length - x-11199) + x-13265) 4) (eq? (vector-ref - x-11199 + x-13265 0) 'syntax-object) #f) #f) - (vector-ref x-11199 1) - x-11199) + (vector-ref x-13265 1) + x-13265) (if (if (= (vector-length '#(syntax-object ... @@ -20102,7 +20243,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -20384,146 +20525,146 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors @@ -20531,9 +20672,9 @@ ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile))) 4) @@ -20548,7 +20689,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -20830,157 +20971,157 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)))) - (eq? (id-var-name-4505 x-11199 '(())) - (id-var-name-4505 + (eq? (id-var-name-6568 x-13265 '(())) + (id-var-name-6568 '#(syntax-object ... ((top) @@ -20989,7 +21130,7 @@ #(ribcage #(x) #((top)) - #("l-*-2343")) + #("l-*-4404")) #(ribcage (lambda-var-list gen-var @@ -21271,911 +21412,911 @@ (top) (top) (top)) - ("l-*-476" - "l-*-474" - "l-*-472" - "l-*-470" - "l-*-468" - "l-*-466" - "l-*-464" - "l-*-462" - "l-*-460" - "l-*-458" - "l-*-456" - "l-*-454" - "l-*-452" - "l-*-450" - "l-*-448" - "l-*-446" - "l-*-444" - "l-*-442" - "l-*-440" - "l-*-438" - "l-*-436" - "l-*-434" - "l-*-432" - "l-*-430" - "l-*-428" - "l-*-426" - "l-*-424" - "l-*-422" - "l-*-420" - "l-*-418" - "l-*-416" - "l-*-414" - "l-*-412" - "l-*-410" - "l-*-408" - "l-*-406" - "l-*-404" - "l-*-402" - "l-*-400" - "l-*-399" - "l-*-397" - "l-*-394" - "l-*-393" - "l-*-392" - "l-*-390" - "l-*-389" - "l-*-387" - "l-*-385" - "l-*-383" - "l-*-381" - "l-*-379" - "l-*-377" - "l-*-375" - "l-*-373" - "l-*-370" - "l-*-368" - "l-*-367" - "l-*-365" - "l-*-363" - "l-*-361" - "l-*-359" - "l-*-358" - "l-*-357" - "l-*-356" - "l-*-354" - "l-*-353" - "l-*-350" - "l-*-348" - "l-*-346" - "l-*-344" - "l-*-342" - "l-*-340" - "l-*-338" - "l-*-337" - "l-*-336" - "l-*-334" - "l-*-332" - "l-*-331" - "l-*-328" - "l-*-327" - "l-*-325" - "l-*-323" - "l-*-321" - "l-*-319" - "l-*-317" - "l-*-315" - "l-*-313" - "l-*-311" - "l-*-309" - "l-*-306" - "l-*-304" - "l-*-302" - "l-*-300" - "l-*-298" - "l-*-296" - "l-*-294" - "l-*-292" - "l-*-290" - "l-*-288" - "l-*-286" - "l-*-284" - "l-*-282" - "l-*-280" - "l-*-278" - "l-*-276" - "l-*-274" - "l-*-272" - "l-*-270" - "l-*-268" - "l-*-266" - "l-*-264" - "l-*-262" - "l-*-260" - "l-*-258" - "l-*-256" - "l-*-255" - "l-*-254" - "l-*-253" - "l-*-252" - "l-*-250" - "l-*-248" - "l-*-246" - "l-*-243" - "l-*-241" - "l-*-239" - "l-*-237" - "l-*-235" - "l-*-233" - "l-*-231" - "l-*-229" - "l-*-227" - "l-*-225" - "l-*-223" - "l-*-221" - "l-*-219" - "l-*-217" - "l-*-215" - "l-*-213" - "l-*-211" - "l-*-209")) + ("l-*-2527" + "l-*-2525" + "l-*-2523" + "l-*-2521" + "l-*-2519" + "l-*-2517" + "l-*-2515" + "l-*-2513" + "l-*-2511" + "l-*-2509" + "l-*-2507" + "l-*-2505" + "l-*-2503" + "l-*-2501" + "l-*-2499" + "l-*-2497" + "l-*-2495" + "l-*-2493" + "l-*-2491" + "l-*-2489" + "l-*-2487" + "l-*-2485" + "l-*-2483" + "l-*-2481" + "l-*-2479" + "l-*-2477" + "l-*-2475" + "l-*-2473" + "l-*-2471" + "l-*-2469" + "l-*-2467" + "l-*-2465" + "l-*-2463" + "l-*-2461" + "l-*-2459" + "l-*-2457" + "l-*-2455" + "l-*-2453" + "l-*-2451" + "l-*-2450" + "l-*-2448" + "l-*-2445" + "l-*-2444" + "l-*-2443" + "l-*-2441" + "l-*-2440" + "l-*-2438" + "l-*-2436" + "l-*-2434" + "l-*-2432" + "l-*-2430" + "l-*-2428" + "l-*-2426" + "l-*-2424" + "l-*-2421" + "l-*-2419" + "l-*-2418" + "l-*-2416" + "l-*-2414" + "l-*-2412" + "l-*-2410" + "l-*-2409" + "l-*-2408" + "l-*-2407" + "l-*-2405" + "l-*-2404" + "l-*-2401" + "l-*-2399" + "l-*-2397" + "l-*-2395" + "l-*-2393" + "l-*-2391" + "l-*-2389" + "l-*-2388" + "l-*-2387" + "l-*-2385" + "l-*-2383" + "l-*-2382" + "l-*-2379" + "l-*-2378" + "l-*-2376" + "l-*-2374" + "l-*-2372" + "l-*-2370" + "l-*-2368" + "l-*-2366" + "l-*-2364" + "l-*-2362" + "l-*-2360" + "l-*-2357" + "l-*-2355" + "l-*-2353" + "l-*-2351" + "l-*-2349" + "l-*-2347" + "l-*-2345" + "l-*-2343" + "l-*-2341" + "l-*-2339" + "l-*-2337" + "l-*-2335" + "l-*-2333" + "l-*-2331" + "l-*-2329" + "l-*-2327" + "l-*-2325" + "l-*-2323" + "l-*-2321" + "l-*-2319" + "l-*-2317" + "l-*-2315" + "l-*-2313" + "l-*-2311" + "l-*-2309" + "l-*-2307" + "l-*-2306" + "l-*-2305" + "l-*-2304" + "l-*-2303" + "l-*-2301" + "l-*-2299" + "l-*-2297" + "l-*-2294" + "l-*-2292" + "l-*-2290" + "l-*-2288" + "l-*-2286" + "l-*-2284" + "l-*-2282" + "l-*-2280" + "l-*-2278" + "l-*-2276" + "l-*-2274" + "l-*-2272" + "l-*-2270" + "l-*-2268" + "l-*-2266" + "l-*-2264" + "l-*-2262" + "l-*-2260")) #(ribcage (define-structure define-expansion-accessors define-expansion-constructors) ((top) (top) (top)) - ("l-*-47" - "l-*-46" - "l-*-45"))) + ("l-*-2098" + "l-*-2097" + "l-*-2096"))) (hygiene guile)) '(()))) #f) #f)) #f)) - key-11197) - (let ((x-11325 + key-13263) + (let ((x-13391 (gensym (string-append (symbol->string 'tmp) "-")))) - (build-application-4453 - s-11167 - (let ((req-11455 (list 'tmp)) - (vars-11457 (list x-11325)) - (exp-11459 - (gen-syntax-case-11163 + (build-application-6516 + s-13233 + (let ((req-13521 (list 'tmp)) + (vars-13523 (list x-13391)) + (exp-13525 + (gen-syntax-case-13229 (make-struct/no-tail (vector-ref %expanded-vtables 3) #f 'tmp - x-11325) - key-11197 - m-11198 - r-11165 - mod-11168))) - (let ((body-11464 + x-13391) + key-13263 + m-13264 + r-13231 + mod-13234))) + (let ((body-13530 (make-struct/no-tail (vector-ref %expanded-vtables 14) #f - req-11455 + req-13521 #f #f #f '() - vars-11457 - exp-11459 + vars-13523 + exp-13525 #f))) (make-struct/no-tail (vector-ref %expanded-vtables 13) #f '() - body-11464))) - (list (expand-4522 - val-11196 - r-11165 + body-13530))) + (list (expand-6585 + val-13262 + r-13231 '(()) - mod-11168)))) + mod-13234)))) (syntax-violation 'syntax-case "invalid literals list" - e-11169))) - tmp-11171) + e-13235))) + tmp-13237) (syntax-violation #f "source expression failed to match any pattern" - e-11169))))))) + e-13235))))))) (set! macroexpand (lambda* - (x-13882 + (x-15948 #:optional - (m-13883 'e) - (esew-13884 '(eval))) - (expand-top-sequence-4518 - (list x-13882) + (m-15949 'e) + (esew-15950 '(eval))) + (expand-top-sequence-6581 + (list x-15948) '() '((top)) #f - m-13883 - esew-13884 + m-15949 + esew-15950 (cons 'hygiene (module-name (current-module)))))) (set! identifier? - (lambda (x-13887) - (if (if (vector? x-13887) - (if (= (vector-length x-13887) 4) - (eq? (vector-ref x-13887 0) 'syntax-object) + (lambda (x-15953) + (if (if (vector? x-15953) + (if (= (vector-length x-15953) 4) + (eq? (vector-ref x-15953 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-13887 1)) + (symbol? (vector-ref x-15953 1)) #f))) (set! datum->syntax - (lambda (id-13912 datum-13913) - (let ((wrap-13918 (vector-ref id-13912 2)) - (module-13919 (vector-ref id-13912 3))) + (lambda (id-15978 datum-15979) + (let ((wrap-15984 (vector-ref id-15978 2)) + (module-15985 (vector-ref id-15978 3))) (vector 'syntax-object - datum-13913 - wrap-13918 - module-13919)))) + datum-15979 + wrap-15984 + module-15985)))) (set! syntax->datum - (lambda (x-13926) (strip-4535 x-13926 '(())))) + (lambda (x-15992) (strip-6598 x-15992 '(())))) (set! syntax-source - (lambda (x-13929) - (source-annotation-4479 x-13929))) + (lambda (x-15995) + (source-annotation-6542 x-15995))) (set! generate-temporaries - (lambda (ls-14082) + (lambda (ls-16148) (begin - (if (not (list? ls-14082)) + (if (not (list? ls-16148)) (syntax-violation 'generate-temporaries "invalid argument" - ls-14082)) - (let ((mod-14090 + ls-16148)) + (let ((mod-16156 (cons 'hygiene (module-name (current-module))))) - (map (lambda (x-14091) - (wrap-4515 (gensym "t-") '((top)) mod-14090)) - ls-14082))))) + (map (lambda (x-16157) + (wrap-6578 (gensym "t-") '((top)) mod-16156)) + ls-16148))))) (set! free-identifier=? - (lambda (x-14095 y-14096) + (lambda (x-16161 y-16162) (begin - (if (not (if (if (vector? x-14095) - (if (= (vector-length x-14095) 4) - (eq? (vector-ref x-14095 0) 'syntax-object) + (if (not (if (if (vector? x-16161) + (if (= (vector-length x-16161) 4) + (eq? (vector-ref x-16161 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-14095 1)) + (symbol? (vector-ref x-16161 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - x-14095)) - (if (not (if (if (vector? y-14096) - (if (= (vector-length y-14096) 4) - (eq? (vector-ref y-14096 0) 'syntax-object) + x-16161)) + (if (not (if (if (vector? y-16162) + (if (= (vector-length y-16162) 4) + (eq? (vector-ref y-16162 0) 'syntax-object) #f) #f) - (symbol? (vector-ref y-14096 1)) + (symbol? (vector-ref y-16162 1)) #f)) (syntax-violation 'free-identifier=? "invalid argument" - y-14096)) - (if (eq? (if (if (vector? x-14095) - (if (= (vector-length x-14095) 4) - (eq? (vector-ref x-14095 0) 'syntax-object) + y-16162)) + (if (eq? (if (if (vector? x-16161) + (if (= (vector-length x-16161) 4) + (eq? (vector-ref x-16161 0) 'syntax-object) #f) #f) - (vector-ref x-14095 1) - x-14095) - (if (if (vector? y-14096) - (if (= (vector-length y-14096) 4) - (eq? (vector-ref y-14096 0) 'syntax-object) + (vector-ref x-16161 1) + x-16161) + (if (if (vector? y-16162) + (if (= (vector-length y-16162) 4) + (eq? (vector-ref y-16162 0) 'syntax-object) #f) #f) - (vector-ref y-14096 1) - y-14096)) - (eq? (id-var-name-4505 x-14095 '(())) - (id-var-name-4505 y-14096 '(()))) + (vector-ref y-16162 1) + y-16162)) + (eq? (id-var-name-6568 x-16161 '(())) + (id-var-name-6568 y-16162 '(()))) #f)))) (set! bound-identifier=? - (lambda (x-14246 y-14247) + (lambda (x-16312 y-16313) (begin - (if (not (if (if (vector? x-14246) - (if (= (vector-length x-14246) 4) - (eq? (vector-ref x-14246 0) 'syntax-object) + (if (not (if (if (vector? x-16312) + (if (= (vector-length x-16312) 4) + (eq? (vector-ref x-16312 0) 'syntax-object) #f) #f) - (symbol? (vector-ref x-14246 1)) + (symbol? (vector-ref x-16312 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - x-14246)) - (if (not (if (if (vector? y-14247) - (if (= (vector-length y-14247) 4) - (eq? (vector-ref y-14247 0) 'syntax-object) + x-16312)) + (if (not (if (if (vector? y-16313) + (if (= (vector-length y-16313) 4) + (eq? (vector-ref y-16313 0) 'syntax-object) #f) #f) - (symbol? (vector-ref y-14247 1)) + (symbol? (vector-ref y-16313 1)) #f)) (syntax-violation 'bound-identifier=? "invalid argument" - y-14247)) - (if (if (if (vector? x-14246) - (if (= (vector-length x-14246) 4) - (eq? (vector-ref x-14246 0) 'syntax-object) + y-16313)) + (if (if (if (vector? x-16312) + (if (= (vector-length x-16312) 4) + (eq? (vector-ref x-16312 0) 'syntax-object) #f) #f) - (if (vector? y-14247) - (if (= (vector-length y-14247) 4) - (eq? (vector-ref y-14247 0) 'syntax-object) + (if (vector? y-16313) + (if (= (vector-length y-16313) 4) + (eq? (vector-ref y-16313 0) 'syntax-object) #f) #f) #f) - (if (eq? (vector-ref x-14246 1) - (vector-ref y-14247 1)) - (same-marks?-4504 - (car (vector-ref x-14246 2)) - (car (vector-ref y-14247 2))) + (if (eq? (vector-ref x-16312 1) + (vector-ref y-16313 1)) + (same-marks?-6567 + (car (vector-ref x-16312 2)) + (car (vector-ref y-16313 2))) #f) - (eq? x-14246 y-14247))))) + (eq? x-16312 y-16313))))) (set! syntax-violation (lambda* - (who-14380 - message-14381 - form-14382 + (who-16446 + message-16447 + form-16448 #:optional - (subform-14383 #f)) + (subform-16449 #f)) (begin - (if (not (if (not who-14380) - (not who-14380) - (let ((t-14401 (string? who-14380))) - (if t-14401 t-14401 (symbol? who-14380))))) + (if (not (if (not who-16446) + (not who-16446) + (let ((t-16467 (string? who-16446))) + (if t-16467 t-16467 (symbol? who-16446))))) (syntax-violation 'syntax-violation "invalid argument" - who-14380)) - (if (not (string? message-14381)) + who-16446)) + (if (not (string? message-16447)) (syntax-violation 'syntax-violation "invalid argument" - message-14381)) + message-16447)) (throw 'syntax-error - who-14380 - message-14381 - (source-annotation-4479 - (if form-14382 form-14382 subform-14383)) - (strip-4535 form-14382 '(())) - (if subform-14383 - (strip-4535 subform-14383 '(())) + who-16446 + message-16447 + (source-annotation-6542 + (if form-16448 form-16448 subform-16449)) + (strip-6598 form-16448 '(())) + (if subform-16449 + (strip-6598 subform-16449 '(())) #f))))) (letrec* - ((syntax-local-binding-14605 - (lambda (id-14738) + ((syntax-local-binding-16671 + (lambda (id-16804) (begin - (if (not (if (if (vector? id-14738) - (if (= (vector-length id-14738) 4) - (eq? (vector-ref id-14738 0) 'syntax-object) + (if (not (if (if (vector? id-16804) + (if (= (vector-length id-16804) 4) + (eq? (vector-ref id-16804 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-14738 1)) + (symbol? (vector-ref id-16804 1)) #f)) (syntax-violation 'syntax-local-binding "invalid argument" - id-14738)) - ((fluid-ref transformer-environment-4508) - (lambda (e-14778 - r-14779 - w-14780 - s-14781 - rib-14782 - mod-14783) + id-16804)) + ((fluid-ref transformer-environment-6571) + (lambda (e-16844 + r-16845 + w-16846 + s-16847 + rib-16848 + mod-16849) (call-with-values (lambda () - (let ((id-14786 (vector-ref id-14738 1)) - (w-14787 - (let ((w-14798 (vector-ref id-14738 2))) - (let ((ms-14799 (car w-14798)) - (s-14800 (cdr w-14798))) - (if (if (pair? ms-14799) - (eq? (car ms-14799) #f) + (let ((id-16852 (vector-ref id-16804 1)) + (w-16853 + (let ((w-16864 (vector-ref id-16804 2))) + (let ((ms-16865 (car w-16864)) + (s-16866 (cdr w-16864))) + (if (if (pair? ms-16865) + (eq? (car ms-16865) #f) #f) - (cons (cdr ms-14799) - (if rib-14782 - (cons rib-14782 (cdr s-14800)) - (cdr s-14800))) - (cons ms-14799 - (if rib-14782 - (cons rib-14782 s-14800) - s-14800)))))) - (mod-14789 (vector-ref id-14738 3))) - (let ((n-14792 (id-var-name-4505 id-14786 w-14787))) - (if (symbol? n-14792) - (let ((mod-14806 - (if (if (vector? id-14786) - (if (= (vector-length id-14786) 4) - (eq? (vector-ref id-14786 0) + (cons (cdr ms-16865) + (if rib-16848 + (cons rib-16848 (cdr s-16866)) + (cdr s-16866))) + (cons ms-16865 + (if rib-16848 + (cons rib-16848 s-16866) + s-16866)))))) + (mod-16855 (vector-ref id-16804 3))) + (let ((n-16858 (id-var-name-6568 id-16852 w-16853))) + (if (symbol? n-16858) + (let ((mod-16872 + (if (if (vector? id-16852) + (if (= (vector-length id-16852) 4) + (eq? (vector-ref id-16852 0) 'syntax-object) #f) #f) - (vector-ref id-14786 3) - mod-14789))) - (let ((b-14807 - (let ((t-14808 - (get-global-definition-hook-4449 - n-14792 - mod-14806))) - (if t-14808 t-14808 '(global))))) - (if (eq? (car b-14807) 'global) - (values 'global n-14792 mod-14806) + (vector-ref id-16852 3) + mod-16855))) + (let ((b-16873 + (let ((t-16874 + (get-global-definition-hook-6512 + n-16858 + mod-16872))) + (if t-16874 t-16874 '(global))))) + (if (eq? (car b-16873) 'global) + (values 'global n-16858 mod-16872) (values - (car b-14807) - (cdr b-14807) - mod-14806)))) - (if (string? n-14792) - (let ((mod-14834 - (if (if (vector? id-14786) - (if (= (vector-length id-14786) 4) - (eq? (vector-ref id-14786 0) + (car b-16873) + (cdr b-16873) + mod-16872)))) + (if (string? n-16858) + (let ((mod-16900 + (if (if (vector? id-16852) + (if (= (vector-length id-16852) 4) + (eq? (vector-ref id-16852 0) 'syntax-object) #f) #f) - (vector-ref id-14786 3) - mod-14789))) - (let ((b-14835 - (let ((t-14836 - (assq-ref r-14779 n-14792))) - (if t-14836 - t-14836 + (vector-ref id-16852 3) + mod-16855))) + (let ((b-16901 + (let ((t-16902 + (assq-ref r-16845 n-16858))) + (if t-16902 + t-16902 '(displaced-lexical))))) (values - (car b-14835) - (cdr b-14835) - mod-14834))) + (car b-16901) + (cdr b-16901) + mod-16900))) (error "unexpected id-var-name" - id-14786 - w-14787 - n-14792)))))) - (lambda (type-14849 value-14850 mod-14851) - (if (eqv? type-14849 'lexical) - (values 'lexical value-14850) - (if (eqv? type-14849 'macro) - (values 'macro value-14850) - (if (eqv? type-14849 'syntax) - (values 'pattern-variable value-14850) - (if (eqv? type-14849 'displaced-lexical) + id-16852 + w-16853 + n-16858)))))) + (lambda (type-16915 value-16916 mod-16917) + (if (eqv? type-16915 'lexical) + (values 'lexical value-16916) + (if (eqv? type-16915 'macro) + (values 'macro value-16916) + (if (eqv? type-16915 'syntax) + (values 'pattern-variable value-16916) + (if (eqv? type-16915 'displaced-lexical) (values 'displaced-lexical #f) - (if (eqv? type-14849 'global) + (if (eqv? type-16915 'global) (values 'global - (cons value-14850 (cdr mod-14851))) + (cons value-16916 (cdr mod-16917))) (values 'other #f))))))))))))) - (syntax-locally-bound-identifiers-14606 - (lambda (id-14862) + (syntax-locally-bound-identifiers-16672 + (lambda (id-16928) (begin - (if (not (if (if (vector? id-14862) - (if (= (vector-length id-14862) 4) - (eq? (vector-ref id-14862 0) 'syntax-object) + (if (not (if (if (vector? id-16928) + (if (= (vector-length id-16928) 4) + (eq? (vector-ref id-16928 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-14862 1)) + (symbol? (vector-ref id-16928 1)) #f)) (syntax-violation 'syntax-locally-bound-identifiers "invalid argument" - id-14862)) - (locally-bound-identifiers-4506 - (vector-ref id-14862 2) - (vector-ref id-14862 3)))))) + id-16928)) + (locally-bound-identifiers-6569 + (vector-ref id-16928 2) + (vector-ref id-16928 3)))))) (begin (define! 'syntax-module - (lambda (id-14608) + (lambda (id-16674) (begin - (if (not (if (if (vector? id-14608) - (if (= (vector-length id-14608) 4) - (eq? (vector-ref id-14608 0) 'syntax-object) + (if (not (if (if (vector? id-16674) + (if (= (vector-length id-16674) 4) + (eq? (vector-ref id-16674 0) 'syntax-object) #f) #f) - (symbol? (vector-ref id-14608 1)) + (symbol? (vector-ref id-16674 1)) #f)) (syntax-violation 'syntax-module "invalid argument" - id-14608)) - (cdr (vector-ref id-14608 3))))) + id-16674)) + (cdr (vector-ref id-16674 3))))) (define! 'syntax-local-binding - syntax-local-binding-14605) + syntax-local-binding-16671) (define! 'syntax-locally-bound-identifiers - syntax-locally-bound-identifiers-14606))) + syntax-locally-bound-identifiers-16672))) (letrec* - ((match-each-14969 - (lambda (e-15556 p-15557 w-15558 mod-15559) - (if (pair? e-15556) - (let ((first-15560 - (match-14975 - (car e-15556) - p-15557 - w-15558 + ((match-each-17035 + (lambda (e-17622 p-17623 w-17624 mod-17625) + (if (pair? e-17622) + (let ((first-17626 + (match-17041 + (car e-17622) + p-17623 + w-17624 '() - mod-15559))) - (if first-15560 - (let ((rest-15563 - (match-each-14969 - (cdr e-15556) - p-15557 - w-15558 - mod-15559))) - (if rest-15563 (cons first-15560 rest-15563) #f)) + mod-17625))) + (if first-17626 + (let ((rest-17629 + (match-each-17035 + (cdr e-17622) + p-17623 + w-17624 + mod-17625))) + (if rest-17629 (cons first-17626 rest-17629) #f)) #f)) - (if (null? e-15556) + (if (null? e-17622) '() - (if (if (vector? e-15556) - (if (= (vector-length e-15556) 4) - (eq? (vector-ref e-15556 0) 'syntax-object) + (if (if (vector? e-17622) + (if (= (vector-length e-17622) 4) + (eq? (vector-ref e-17622 0) 'syntax-object) #f) #f) - (match-each-14969 - (vector-ref e-15556 1) - p-15557 - (join-wraps-4502 w-15558 (vector-ref e-15556 2)) - (vector-ref e-15556 3)) + (match-each-17035 + (vector-ref e-17622 1) + p-17623 + (join-wraps-6565 w-17624 (vector-ref e-17622 2)) + (vector-ref e-17622 3)) #f))))) - (match-each-any-14971 - (lambda (e-15591 w-15592 mod-15593) - (if (pair? e-15591) - (let ((l-15594 - (match-each-any-14971 - (cdr e-15591) - w-15592 - mod-15593))) - (if l-15594 - (cons (wrap-4515 (car e-15591) w-15592 mod-15593) - l-15594) + (match-each-any-17037 + (lambda (e-17657 w-17658 mod-17659) + (if (pair? e-17657) + (let ((l-17660 + (match-each-any-17037 + (cdr e-17657) + w-17658 + mod-17659))) + (if l-17660 + (cons (wrap-6578 (car e-17657) w-17658 mod-17659) + l-17660) #f)) - (if (null? e-15591) + (if (null? e-17657) '() - (if (if (vector? e-15591) - (if (= (vector-length e-15591) 4) - (eq? (vector-ref e-15591 0) 'syntax-object) + (if (if (vector? e-17657) + (if (= (vector-length e-17657) 4) + (eq? (vector-ref e-17657 0) 'syntax-object) #f) #f) - (match-each-any-14971 - (vector-ref e-15591 1) - (join-wraps-4502 w-15592 (vector-ref e-15591 2)) - mod-15593) + (match-each-any-17037 + (vector-ref e-17657 1) + (join-wraps-6565 w-17658 (vector-ref e-17657 2)) + mod-17659) #f))))) - (match-empty-14972 - (lambda (p-15618 r-15619) - (if (null? p-15618) - r-15619 - (if (eq? p-15618 '_) - r-15619 - (if (eq? p-15618 'any) - (cons '() r-15619) - (if (pair? p-15618) - (match-empty-14972 - (car p-15618) - (match-empty-14972 (cdr p-15618) r-15619)) - (if (eq? p-15618 'each-any) - (cons '() r-15619) - (let ((atom-key-15620 (vector-ref p-15618 0))) - (if (eqv? atom-key-15620 'each) - (match-empty-14972 - (vector-ref p-15618 1) - r-15619) - (if (eqv? atom-key-15620 'each+) - (match-empty-14972 - (vector-ref p-15618 1) - (match-empty-14972 - (reverse (vector-ref p-15618 2)) - (match-empty-14972 - (vector-ref p-15618 3) - r-15619))) - (if (if (eqv? atom-key-15620 'free-id) + (match-empty-17038 + (lambda (p-17684 r-17685) + (if (null? p-17684) + r-17685 + (if (eq? p-17684 '_) + r-17685 + (if (eq? p-17684 'any) + (cons '() r-17685) + (if (pair? p-17684) + (match-empty-17038 + (car p-17684) + (match-empty-17038 (cdr p-17684) r-17685)) + (if (eq? p-17684 'each-any) + (cons '() r-17685) + (let ((atom-key-17686 (vector-ref p-17684 0))) + (if (eqv? atom-key-17686 'each) + (match-empty-17038 + (vector-ref p-17684 1) + r-17685) + (if (eqv? atom-key-17686 'each+) + (match-empty-17038 + (vector-ref p-17684 1) + (match-empty-17038 + (reverse (vector-ref p-17684 2)) + (match-empty-17038 + (vector-ref p-17684 3) + r-17685))) + (if (if (eqv? atom-key-17686 'free-id) #t - (eqv? atom-key-15620 'atom)) - r-15619 - (if (eqv? atom-key-15620 'vector) - (match-empty-14972 - (vector-ref p-15618 1) - r-15619))))))))))))) - (combine-14973 - (lambda (r*-15639 r-15640) - (if (null? (car r*-15639)) - r-15640 - (cons (map car r*-15639) - (combine-14973 (map cdr r*-15639) r-15640))))) - (match*-14974 - (lambda (e-15004 p-15005 w-15006 r-15007 mod-15008) - (if (null? p-15005) - (if (null? e-15004) r-15007 #f) - (if (pair? p-15005) - (if (pair? e-15004) - (match-14975 - (car e-15004) - (car p-15005) - w-15006 - (match-14975 - (cdr e-15004) - (cdr p-15005) - w-15006 - r-15007 - mod-15008) - mod-15008) + (eqv? atom-key-17686 'atom)) + r-17685 + (if (eqv? atom-key-17686 'vector) + (match-empty-17038 + (vector-ref p-17684 1) + r-17685))))))))))))) + (combine-17039 + (lambda (r*-17705 r-17706) + (if (null? (car r*-17705)) + r-17706 + (cons (map car r*-17705) + (combine-17039 (map cdr r*-17705) r-17706))))) + (match*-17040 + (lambda (e-17070 p-17071 w-17072 r-17073 mod-17074) + (if (null? p-17071) + (if (null? e-17070) r-17073 #f) + (if (pair? p-17071) + (if (pair? e-17070) + (match-17041 + (car e-17070) + (car p-17071) + w-17072 + (match-17041 + (cdr e-17070) + (cdr p-17071) + w-17072 + r-17073 + mod-17074) + mod-17074) #f) - (if (eq? p-15005 'each-any) - (let ((l-15013 - (match-each-any-14971 e-15004 w-15006 mod-15008))) - (if l-15013 (cons l-15013 r-15007) #f)) - (let ((atom-key-15018 (vector-ref p-15005 0))) - (if (eqv? atom-key-15018 'each) - (if (null? e-15004) - (match-empty-14972 - (vector-ref p-15005 1) - r-15007) - (let ((l-15025 - (match-each-14969 - e-15004 - (vector-ref p-15005 1) - w-15006 - mod-15008))) - (if l-15025 + (if (eq? p-17071 'each-any) + (let ((l-17079 + (match-each-any-17037 e-17070 w-17072 mod-17074))) + (if l-17079 (cons l-17079 r-17073) #f)) + (let ((atom-key-17084 (vector-ref p-17071 0))) + (if (eqv? atom-key-17084 'each) + (if (null? e-17070) + (match-empty-17038 + (vector-ref p-17071 1) + r-17073) + (let ((l-17091 + (match-each-17035 + e-17070 + (vector-ref p-17071 1) + w-17072 + mod-17074))) + (if l-17091 (letrec* - ((collect-15028 - (lambda (l-15079) - (if (null? (car l-15079)) - r-15007 - (cons (map car l-15079) - (collect-15028 - (map cdr l-15079))))))) - (collect-15028 l-15025)) + ((collect-17094 + (lambda (l-17145) + (if (null? (car l-17145)) + r-17073 + (cons (map car l-17145) + (collect-17094 + (map cdr l-17145))))))) + (collect-17094 l-17091)) #f))) - (if (eqv? atom-key-15018 'each+) + (if (eqv? atom-key-17084 'each+) (call-with-values (lambda () - (let ((x-pat-15088 (vector-ref p-15005 1)) - (y-pat-15089 (vector-ref p-15005 2)) - (z-pat-15090 (vector-ref p-15005 3))) + (let ((x-pat-17154 (vector-ref p-17071 1)) + (y-pat-17155 (vector-ref p-17071 2)) + (z-pat-17156 (vector-ref p-17071 3))) (letrec* - ((f-15094 - (lambda (e-15096 w-15097) - (if (pair? e-15096) + ((f-17160 + (lambda (e-17162 w-17163) + (if (pair? e-17162) (call-with-values (lambda () - (f-15094 (cdr e-15096) w-15097)) - (lambda (xr*-15098 - y-pat-15099 - r-15100) - (if r-15100 - (if (null? y-pat-15099) - (let ((xr-15101 - (match-14975 - (car e-15096) - x-pat-15088 - w-15097 + (f-17160 (cdr e-17162) w-17163)) + (lambda (xr*-17164 + y-pat-17165 + r-17166) + (if r-17166 + (if (null? y-pat-17165) + (let ((xr-17167 + (match-17041 + (car e-17162) + x-pat-17154 + w-17163 '() - mod-15008))) - (if xr-15101 + mod-17074))) + (if xr-17167 (values - (cons xr-15101 xr*-15098) - y-pat-15099 - r-15100) + (cons xr-17167 xr*-17164) + y-pat-17165 + r-17166) (values #f #f #f))) (values '() - (cdr y-pat-15099) - (match-14975 - (car e-15096) - (car y-pat-15099) - w-15097 - r-15100 - mod-15008))) + (cdr y-pat-17165) + (match-17041 + (car e-17162) + (car y-pat-17165) + w-17163 + r-17166 + mod-17074))) (values #f #f #f)))) - (if (if (vector? e-15096) - (if (= (vector-length e-15096) 4) - (eq? (vector-ref e-15096 0) + (if (if (vector? e-17162) + (if (= (vector-length e-17162) 4) + (eq? (vector-ref e-17162 0) 'syntax-object) #f) #f) - (f-15094 - (vector-ref e-15096 1) - (join-wraps-4502 w-15097 e-15096)) + (f-17160 + (vector-ref e-17162 1) + (join-wraps-6565 w-17163 e-17162)) (values '() - y-pat-15089 - (match-14975 - e-15096 - z-pat-15090 - w-15097 - r-15007 - mod-15008))))))) - (f-15094 e-15004 w-15006)))) - (lambda (xr*-15127 y-pat-15128 r-15129) - (if r-15129 - (if (null? y-pat-15128) - (if (null? xr*-15127) - (match-empty-14972 - (vector-ref p-15005 1) - r-15129) - (combine-14973 xr*-15127 r-15129)) + y-pat-17155 + (match-17041 + e-17162 + z-pat-17156 + w-17163 + r-17073 + mod-17074))))))) + (f-17160 e-17070 w-17072)))) + (lambda (xr*-17193 y-pat-17194 r-17195) + (if r-17195 + (if (null? y-pat-17194) + (if (null? xr*-17193) + (match-empty-17038 + (vector-ref p-17071 1) + r-17195) + (combine-17039 xr*-17193 r-17195)) #f) #f))) - (if (eqv? atom-key-15018 'free-id) - (if (if (symbol? e-15004) + (if (eqv? atom-key-17084 'free-id) + (if (if (symbol? e-17070) #t - (if (if (vector? e-15004) - (if (= (vector-length e-15004) 4) - (eq? (vector-ref e-15004 0) + (if (if (vector? e-17070) + (if (= (vector-length e-17070) 4) + (eq? (vector-ref e-17070 0) 'syntax-object) #f) #f) - (symbol? (vector-ref e-15004 1)) + (symbol? (vector-ref e-17070 1)) #f)) - (if (let ((i-15460 - (wrap-4515 e-15004 w-15006 mod-15008)) - (j-15461 (vector-ref p-15005 1))) - (if (eq? (if (if (vector? i-15460) + (if (let ((i-17526 + (wrap-6578 e-17070 w-17072 mod-17074)) + (j-17527 (vector-ref p-17071 1))) + (if (eq? (if (if (vector? i-17526) (if (= (vector-length - i-15460) + i-17526) 4) - (eq? (vector-ref i-15460 0) + (eq? (vector-ref i-17526 0) 'syntax-object) #f) #f) - (vector-ref i-15460 1) - i-15460) - (if (if (vector? j-15461) + (vector-ref i-17526 1) + i-17526) + (if (if (vector? j-17527) (if (= (vector-length - j-15461) + j-17527) 4) - (eq? (vector-ref j-15461 0) + (eq? (vector-ref j-17527 0) 'syntax-object) #f) #f) - (vector-ref j-15461 1) - j-15461)) - (eq? (id-var-name-4505 i-15460 '(())) - (id-var-name-4505 j-15461 '(()))) + (vector-ref j-17527 1) + j-17527)) + (eq? (id-var-name-6568 i-17526 '(())) + (id-var-name-6568 j-17527 '(()))) #f)) - r-15007 + r-17073 #f) #f) - (if (eqv? atom-key-15018 'atom) + (if (eqv? atom-key-17084 'atom) (if (equal? - (vector-ref p-15005 1) - (strip-4535 e-15004 w-15006)) - r-15007 + (vector-ref p-17071 1) + (strip-6598 e-17070 w-17072)) + r-17073 #f) - (if (eqv? atom-key-15018 'vector) - (if (vector? e-15004) - (match-14975 - (vector->list e-15004) - (vector-ref p-15005 1) - w-15006 - r-15007 - mod-15008) + (if (eqv? atom-key-17084 'vector) + (if (vector? e-17070) + (match-17041 + (vector->list e-17070) + (vector-ref p-17071 1) + w-17072 + r-17073 + mod-17074) #f)))))))))))) - (match-14975 - (lambda (e-15521 p-15522 w-15523 r-15524 mod-15525) - (if (not r-15524) + (match-17041 + (lambda (e-17587 p-17588 w-17589 r-17590 mod-17591) + (if (not r-17590) #f - (if (eq? p-15522 '_) - r-15524 - (if (eq? p-15522 'any) - (cons (wrap-4515 e-15521 w-15523 mod-15525) - r-15524) - (if (if (vector? e-15521) - (if (= (vector-length e-15521) 4) - (eq? (vector-ref e-15521 0) 'syntax-object) + (if (eq? p-17588 '_) + r-17590 + (if (eq? p-17588 'any) + (cons (wrap-6578 e-17587 w-17589 mod-17591) + r-17590) + (if (if (vector? e-17587) + (if (= (vector-length e-17587) 4) + (eq? (vector-ref e-17587 0) 'syntax-object) #f) #f) - (match*-14974 - (vector-ref e-15521 1) - p-15522 - (join-wraps-4502 w-15523 (vector-ref e-15521 2)) - r-15524 - (vector-ref e-15521 3)) - (match*-14974 - e-15521 - p-15522 - w-15523 - r-15524 - mod-15525)))))))) + (match*-17040 + (vector-ref e-17587 1) + p-17588 + (join-wraps-6565 w-17589 (vector-ref e-17587 2)) + r-17590 + (vector-ref e-17587 3)) + (match*-17040 + e-17587 + p-17588 + w-17589 + r-17590 + mod-17591)))))))) (set! $sc-dispatch - (lambda (e-14976 p-14977) - (if (eq? p-14977 'any) - (list e-14976) - (if (eq? p-14977 '_) + (lambda (e-17042 p-17043) + (if (eq? p-17043 'any) + (list e-17042) + (if (eq? p-17043 '_) '() - (if (if (vector? e-14976) - (if (= (vector-length e-14976) 4) - (eq? (vector-ref e-14976 0) 'syntax-object) + (if (if (vector? e-17042) + (if (= (vector-length e-17042) 4) + (eq? (vector-ref e-17042 0) 'syntax-object) #f) #f) - (match*-14974 - (vector-ref e-14976 1) - p-14977 - (vector-ref e-14976 2) + (match*-17040 + (vector-ref e-17042 1) + p-17043 + (vector-ref e-17042 2) '() - (vector-ref e-14976 3)) - (match*-14974 e-14976 p-14977 '(()) '() #f)))))))))) + (vector-ref e-17042 3)) + (match*-17040 e-17042 p-17043 '(()) '() #f)))))))))) (define with-syntax (make-syntax-transformer 'with-syntax 'macro - (lambda (x-27756) - (let ((tmp-27758 - ($sc-dispatch x-27756 '(_ () any . each-any)))) - (if tmp-27758 + (lambda (x-29889) + (let ((tmp-29891 + ($sc-dispatch x-29889 '(_ () any . each-any)))) + (if tmp-29891 (@apply - (lambda (e1-27762 e2-27763) + (lambda (e1-29895 e2-29896) (cons '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-27729" "l-*-27730")) + #("l-*-29862" "l-*-29863")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) - (cons '() (cons e1-27762 e2-27763)))) - tmp-27758) - (let ((tmp-27764 + (cons '() (cons e1-29895 e2-29896)))) + tmp-29891) + (let ((tmp-29897 ($sc-dispatch - x-27756 + x-29889 '(_ ((any any)) any . each-any)))) - (if tmp-27764 + (if tmp-29897 (@apply - (lambda (out-27768 in-27769 e1-27770 e2-27771) + (lambda (out-29901 in-29902 e1-29903 e2-29904) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27735" - "l-*-27736" - "l-*-27737" - "l-*-27738")) + #("l-*-29868" + "l-*-29869" + "l-*-29870" + "l-*-29871")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) - in-27769 + in-29902 '() - (list out-27768 + (list out-29901 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27735" - "l-*-27736" - "l-*-27737" - "l-*-27738")) + #("l-*-29868" + "l-*-29869" + "l-*-29870" + "l-*-29871")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27726"))) + #("l-*-29859"))) (hygiene guile)) - (cons '() (cons e1-27770 e2-27771)))))) - tmp-27764) - (let ((tmp-27772 + (cons '() (cons e1-29903 e2-29904)))))) + tmp-29897) + (let ((tmp-29905 ($sc-dispatch - x-27756 + x-29889 '(_ #(each (any any)) any . each-any)))) - (if tmp-27772 + (if tmp-29905 (@apply - (lambda (out-27776 in-27777 e1-27778 e2-27779) + (lambda (out-29909 in-29910 e1-29911 e2-29912) (list '#(syntax-object syntax-case ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27745" - "l-*-27746" - "l-*-27747" - "l-*-27748")) + #("l-*-29878" + "l-*-29879" + "l-*-29880" + "l-*-29881")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) (cons '#(syntax-object list @@ -22183,66 +22324,66 @@ #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27745" - "l-*-27746" - "l-*-27747" - "l-*-27748")) + #("l-*-29878" + "l-*-29879" + "l-*-29880" + "l-*-29881")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27726"))) + #(ribcage #(x) #((top)) #("l-*-29859"))) (hygiene guile)) - in-27777) + in-29910) '() - (list out-27776 + (list out-29909 (cons '#(syntax-object let ((top) #(ribcage #(out in e1 e2) #((top) (top) (top) (top)) - #("l-*-27745" - "l-*-27746" - "l-*-27747" - "l-*-27748")) + #("l-*-29878" + "l-*-29879" + "l-*-29880" + "l-*-29881")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27726"))) + #("l-*-29859"))) (hygiene guile)) - (cons '() (cons e1-27778 e2-27779)))))) - tmp-27772) + (cons '() (cons e1-29911 e2-29912)))))) + tmp-29905) (syntax-violation #f "source expression failed to match any pattern" - x-27756)))))))))) + x-29889)))))))))) (define syntax-rules (make-syntax-transformer 'syntax-rules 'macro - (lambda (x-27833) - (let ((tmp-27835 + (lambda (x-29966) + (let ((tmp-29968 ($sc-dispatch - x-27833 + x-29966 '(_ each-any . #(each ((any . any) any)))))) - (if tmp-27835 + (if tmp-29968 (@apply - (lambda (k-27839 - keyword-27840 - pattern-27841 - template-27842) + (lambda (k-29972 + keyword-29973 + pattern-29974 + template-29975) (list '#(syntax-object lambda ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) '(#(syntax-object x @@ -22250,12 +22391,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) (vector '(#(syntax-object @@ -22264,12 +22405,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) . #(syntax-object @@ -22278,12 +22419,12 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22291,26 +22432,26 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) - pattern-27841)) + pattern-29974)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) (cons '#(syntax-object x @@ -22318,16 +22459,16 @@ #(ribcage #(k keyword pattern template) #((top) (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) - (cons k-27839 - (map (lambda (tmp-27807-27843 - tmp-27806-27844) + (cons k-29972 + (map (lambda (tmp-29940-29976 + tmp-29939-29977) (list (cons '#(syntax-object dummy ((top) @@ -22340,10 +22481,10 @@ (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () @@ -22351,9 +22492,9 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27806-27844) + tmp-29939-29977) (list '#(syntax-object syntax ((top) @@ -22366,10 +22507,10 @@ (top) (top) (top)) - #("l-*-27796" - "l-*-27797" - "l-*-27798" - "l-*-27799")) + #("l-*-29929" + "l-*-29930" + "l-*-29931" + "l-*-29932")) #(ribcage () () @@ -22377,45 +22518,45 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27807-27843))) - template-27842 - pattern-27841)))))) - tmp-27835) - (let ((tmp-27845 + tmp-29940-29976))) + template-29975 + pattern-29974)))))) + tmp-29968) + (let ((tmp-29978 ($sc-dispatch - x-27833 + x-29966 '(_ each-any any . #(each ((any . any) any)))))) - (if (if tmp-27845 + (if (if tmp-29978 (@apply - (lambda (k-27849 - docstring-27850 - keyword-27851 - pattern-27852 - template-27853) - (string? (syntax->datum docstring-27850))) - tmp-27845) + (lambda (k-29982 + docstring-29983 + keyword-29984 + pattern-29985 + template-29986) + (string? (syntax->datum docstring-29983))) + tmp-29978) #f) (@apply - (lambda (k-27854 - docstring-27855 - keyword-27856 - pattern-27857 - template-27858) + (lambda (k-29987 + docstring-29988 + keyword-29989 + pattern-29990 + template-29991) (list '#(syntax-object lambda ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) '(#(syntax-object x @@ -22423,15 +22564,15 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) - docstring-27855 + docstring-29988 (vector '(#(syntax-object macro-type @@ -22439,13 +22580,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) . #(syntax-object @@ -22454,13 +22595,13 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile))) (cons '#(syntax-object patterns @@ -22468,28 +22609,28 @@ #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) - pattern-27857)) + pattern-29990)) (cons '#(syntax-object syntax-case ((top) #(ribcage #(k docstring keyword pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27793"))) + #(ribcage #(x) #((top)) #("l-*-29926"))) (hygiene guile)) (cons '#(syntax-object x @@ -22501,20 +22642,20 @@ pattern template) #((top) (top) (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - (cons k-27854 - (map (lambda (tmp-27832-27859 - tmp-27831-27860) + (cons k-29987 + (map (lambda (tmp-29965-29992 + tmp-29964-29993) (list (cons '#(syntax-object dummy ((top) @@ -22529,11 +22670,11 @@ (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () @@ -22541,10 +22682,10 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27831-27860) + tmp-29964-29993) (list '#(syntax-object syntax ((top) @@ -22559,11 +22700,11 @@ (top) (top) (top)) - #("l-*-27819" - "l-*-27820" - "l-*-27821" - "l-*-27822" - "l-*-27823")) + #("l-*-29952" + "l-*-29953" + "l-*-29954" + "l-*-29955" + "l-*-29956")) #(ribcage () () @@ -22571,48 +22712,48 @@ #(ribcage #(x) #((top)) - #("l-*-27793"))) + #("l-*-29926"))) (hygiene guile)) - tmp-27832-27859))) - template-27858 - pattern-27857)))))) - tmp-27845) + tmp-29965-29992))) + template-29991 + pattern-29990)))))) + tmp-29978) (syntax-violation #f "source expression failed to match any pattern" - x-27833)))))))) + x-29966)))))))) (define define-syntax-rule (make-syntax-transformer 'define-syntax-rule 'macro - (lambda (x-27897) - (let ((tmp-27899 - ($sc-dispatch x-27897 '(_ (any . any) any)))) - (if tmp-27899 + (lambda (x-30030) + (let ((tmp-30032 + ($sc-dispatch x-30030 '(_ (any . any) any)))) + (if tmp-30032 (@apply - (lambda (name-27903 pattern-27904 template-27905) + (lambda (name-30036 pattern-30037 template-30038) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-27874" "l-*-27875" "l-*-27876")) + #("l-*-30007" "l-*-30008" "l-*-30009")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) - name-27903 + name-30036 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-27874" "l-*-27875" "l-*-27876")) + #("l-*-30007" "l-*-30008" "l-*-30009")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) '() (list (cons '#(syntax-object @@ -22621,63 +22762,63 @@ #(ribcage #(name pattern template) #((top) (top) (top)) - #("l-*-27874" - "l-*-27875" - "l-*-27876")) + #("l-*-30007" + "l-*-30008" + "l-*-30009")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27871"))) + #("l-*-30004"))) (hygiene guile)) - pattern-27904) - template-27905)))) - tmp-27899) - (let ((tmp-27906 - ($sc-dispatch x-27897 '(_ (any . any) any any)))) - (if (if tmp-27906 + pattern-30037) + template-30038)))) + tmp-30032) + (let ((tmp-30039 + ($sc-dispatch x-30030 '(_ (any . any) any any)))) + (if (if tmp-30039 (@apply - (lambda (name-27910 - pattern-27911 - docstring-27912 - template-27913) - (string? (syntax->datum docstring-27912))) - tmp-27906) + (lambda (name-30043 + pattern-30044 + docstring-30045 + template-30046) + (string? (syntax->datum docstring-30045))) + tmp-30039) #f) (@apply - (lambda (name-27914 - pattern-27915 - docstring-27916 - template-27917) + (lambda (name-30047 + pattern-30048 + docstring-30049 + template-30050) (list '#(syntax-object define-syntax ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-27889" - "l-*-27890" - "l-*-27891" - "l-*-27892")) + #("l-*-30022" + "l-*-30023" + "l-*-30024" + "l-*-30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) - name-27914 + name-30047 (list '#(syntax-object syntax-rules ((top) #(ribcage #(name pattern docstring template) #((top) (top) (top) (top)) - #("l-*-27889" - "l-*-27890" - "l-*-27891" - "l-*-27892")) + #("l-*-30022" + "l-*-30023" + "l-*-30024" + "l-*-30025")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27871"))) + #(ribcage #(x) #((top)) #("l-*-30004"))) (hygiene guile)) '() - docstring-27916 + docstring-30049 (list (cons '#(syntax-object _ ((top) @@ -22687,45 +22828,45 @@ docstring template) #((top) (top) (top) (top)) - #("l-*-27889" - "l-*-27890" - "l-*-27891" - "l-*-27892")) + #("l-*-30022" + "l-*-30023" + "l-*-30024" + "l-*-30025")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27871"))) + #("l-*-30004"))) (hygiene guile)) - pattern-27915) - template-27917)))) - tmp-27906) + pattern-30048) + template-30050)))) + tmp-30039) (syntax-violation #f "source expression failed to match any pattern" - x-27897)))))))) + x-30030)))))))) (define let* (make-syntax-transformer 'let* 'macro - (lambda (x-27966) - (let ((tmp-27968 + (lambda (x-30099) + (let ((tmp-30101 ($sc-dispatch - x-27966 + x-30099 '(any #(each (any any)) any . each-any)))) - (if (if tmp-27968 + (if (if tmp-30101 (@apply - (lambda (let*-27972 x-27973 v-27974 e1-27975 e2-27976) - (and-map identifier? x-27973)) - tmp-27968) + (lambda (let*-30105 x-30106 v-30107 e1-30108 e2-30109) + (and-map identifier? x-30106)) + tmp-30101) #f) (@apply - (lambda (let*-27977 x-27978 v-27979 e1-27980 e2-27981) + (lambda (let*-30110 x-30111 v-30112 e1-30113 e2-30114) (letrec* - ((f-27982 - (lambda (bindings-27985) - (if (null? bindings-27985) + ((f-30115 + (lambda (bindings-30118) + (if (null? bindings-30118) (cons '#(syntax-object let ((top) @@ -22733,26 +22874,26 @@ #(ribcage #(f bindings) #((top) (top)) - #("l-*-27952" "l-*-27953")) + #("l-*-30085" "l-*-30086")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-27942" - "l-*-27943" - "l-*-27944" - "l-*-27945" - "l-*-27946")) + #("l-*-30075" + "l-*-30076" + "l-*-30077" + "l-*-30078" + "l-*-30079")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-27928"))) + #(ribcage #(x) #((top)) #("l-*-30061"))) (hygiene guile)) - (cons '() (cons e1-27980 e2-27981))) - (let ((tmp-27986 - (list (f-27982 (cdr bindings-27985)) - (car bindings-27985)))) - (let ((tmp-27987 ($sc-dispatch tmp-27986 '(any any)))) - (if tmp-27987 + (cons '() (cons e1-30113 e2-30114))) + (let ((tmp-30119 + (list (f-30115 (cdr bindings-30118)) + (car bindings-30118)))) + (let ((tmp-30120 ($sc-dispatch tmp-30119 '(any any)))) + (if tmp-30120 (@apply - (lambda (body-27989 binding-27990) + (lambda (body-30122 binding-30123) (list '#(syntax-object let ((top) @@ -22760,84 +22901,84 @@ #(ribcage #(body binding) #((top) (top)) - #("l-*-27962" "l-*-27963")) + #("l-*-30095" "l-*-30096")) #(ribcage () () ()) #(ribcage #(f bindings) #((top) (top)) - #("l-*-27952" "l-*-27953")) + #("l-*-30085" "l-*-30086")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) - #("l-*-27942" - "l-*-27943" - "l-*-27944" - "l-*-27945" - "l-*-27946")) + #("l-*-30075" + "l-*-30076" + "l-*-30077" + "l-*-30078" + "l-*-30079")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-27928"))) + #("l-*-30061"))) (hygiene guile)) - (list binding-27990) - body-27989)) - tmp-27987) + (list binding-30123) + body-30122)) + tmp-30120) (syntax-violation #f "source expression failed to match any pattern" - tmp-27986)))))))) - (f-27982 (map list x-27978 v-27979)))) - tmp-27968) + tmp-30119)))))))) + (f-30115 (map list x-30111 v-30112)))) + tmp-30101) (syntax-violation #f "source expression failed to match any pattern" - x-27966)))))) + x-30099)))))) (define do (make-syntax-transformer 'do 'macro - (lambda (orig-x-28048) - (let ((tmp-28050 + (lambda (orig-x-30181) + (let ((tmp-30183 ($sc-dispatch - orig-x-28048 + orig-x-30181 '(_ #(each (any any . any)) (any . each-any) . each-any)))) - (if tmp-28050 + (if tmp-30183 (@apply - (lambda (var-28054 - init-28055 - step-28056 - e0-28057 - e1-28058 - c-28059) - (let ((tmp-28060 - (map (lambda (v-28063 s-28064) - (let ((tmp-28066 ($sc-dispatch s-28064 '()))) - (if tmp-28066 - (@apply (lambda () v-28063) tmp-28066) - (let ((tmp-28069 - ($sc-dispatch s-28064 '(any)))) - (if tmp-28069 + (lambda (var-30187 + init-30188 + step-30189 + e0-30190 + e1-30191 + c-30192) + (let ((tmp-30193 + (map (lambda (v-30196 s-30197) + (let ((tmp-30199 ($sc-dispatch s-30197 '()))) + (if tmp-30199 + (@apply (lambda () v-30196) tmp-30199) + (let ((tmp-30202 + ($sc-dispatch s-30197 '(any)))) + (if tmp-30202 (@apply - (lambda (e-28072) e-28072) - tmp-28069) + (lambda (e-30205) e-30205) + tmp-30202) (syntax-violation 'do "bad step expression" - orig-x-28048 - s-28064)))))) - var-28054 - step-28056))) - (let ((tmp-28061 ($sc-dispatch tmp-28060 'each-any))) - (if tmp-28061 + orig-x-30181 + s-30197)))))) + var-30187 + step-30189))) + (let ((tmp-30194 ($sc-dispatch tmp-30193 'each-any))) + (if tmp-30194 (@apply - (lambda (step-28078) - (let ((tmp-28080 ($sc-dispatch e1-28058 '()))) - (if tmp-28080 + (lambda (step-30211) + (let ((tmp-30213 ($sc-dispatch e1-30191 '()))) + (if tmp-30213 (@apply (lambda () (list '#(syntax-object @@ -22847,7 +22988,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22856,17 +22997,17 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) '#(syntax-object doloop @@ -22875,7 +23016,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22884,19 +23025,19 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - (map list var-28054 init-28055) + (map list var-30187 init-30188) (list '#(syntax-object if ((top) @@ -22904,7 +23045,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -22913,17 +23054,17 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) (list '#(syntax-object not @@ -22932,7 +23073,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -22946,19 +23087,19 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - e0-28057) + e0-30190) (cons '#(syntax-object begin ((top) @@ -22966,7 +23107,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -22980,20 +23121,20 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) (append - c-28059 + c-30192 (list (cons '#(syntax-object doloop ((top) @@ -23004,7 +23145,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23018,12 +23159,12 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () @@ -23031,28 +23172,28 @@ #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - step-28078))))))) - tmp-28080) - (let ((tmp-28084 - ($sc-dispatch e1-28058 '(any . each-any)))) - (if tmp-28084 + step-30211))))))) + tmp-30213) + (let ((tmp-30217 + ($sc-dispatch e1-30191 '(any . each-any)))) + (if tmp-30217 (@apply - (lambda (e1-28088 e2-28089) + (lambda (e1-30221 e2-30222) (list '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" "l-*-28026")) + #("l-*-30158" "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23061,17 +23202,17 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) '#(syntax-object doloop @@ -23079,12 +23220,12 @@ #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" "l-*-28026")) + #("l-*-30158" "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23093,32 +23234,32 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - (map list var-28054 init-28055) + (map list var-30187 init-30188) (list '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init step e0 e1 c) #((top) @@ -23127,32 +23268,32 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - e0-28057 + e0-30190 (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23166,32 +23307,32 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - (cons e1-28088 e2-28089)) + (cons e1-30221 e2-30222)) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () ()) #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23205,20 +23346,20 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) (append - c-28059 + c-30192 (list (cons '#(syntax-object doloop ((top) @@ -23227,8 +23368,8 @@ e2) #((top) (top)) - #("l-*-28025" - "l-*-28026")) + #("l-*-30158" + "l-*-30159")) #(ribcage () () @@ -23236,7 +23377,7 @@ #(ribcage #(step) #((top)) - #("l-*-28016")) + #("l-*-30149")) #(ribcage #(var init @@ -23250,12 +23391,12 @@ (top) (top) (top)) - #("l-*-28001" - "l-*-28002" - "l-*-28003" - "l-*-28004" - "l-*-28005" - "l-*-28006")) + #("l-*-30134" + "l-*-30135" + "l-*-30136" + "l-*-30137" + "l-*-30138" + "l-*-30139")) #(ribcage () () @@ -23263,36 +23404,36 @@ #(ribcage #(orig-x) #((top)) - #("l-*-27998"))) + #("l-*-30131"))) (hygiene guile)) - step-28078))))))) - tmp-28084) + step-30211))))))) + tmp-30217) (syntax-violation #f "source expression failed to match any pattern" - e1-28058)))))) - tmp-28061) + e1-30191)))))) + tmp-30194) (syntax-violation #f "source expression failed to match any pattern" - tmp-28060))))) - tmp-28050) + tmp-30193))))) + tmp-30183) (syntax-violation #f "source expression failed to match any pattern" - orig-x-28048)))))) + orig-x-30181)))))) (define quasiquote (make-syntax-transformer 'quasiquote 'macro (letrec* - ((quasi-28375 - (lambda (p-28399 lev-28400) - (let ((tmp-28402 + ((quasi-30508 + (lambda (p-30532 lev-30533) + (let ((tmp-30535 ($sc-dispatch - p-28399 + p-30532 '(#(free-id #(syntax-object unquote @@ -23301,7 +23442,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23310,28 +23451,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) any)))) - (if tmp-28402 + (if tmp-30535 (@apply - (lambda (p-28406) - (if (= lev-28400 0) + (lambda (p-30539) + (if (= lev-30533 0) (list '#(syntax-object "value" ((top) - #(ribcage #(p) #((top)) #("l-*-28125")) + #(ribcage #(p) #((top)) #("l-*-30258")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23340,25 +23481,25 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - p-28406) - (quasicons-28377 + p-30539) + (quasicons-30510 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28125")) + #(ribcage #(p) #((top)) #("l-*-30258")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23367,23 +23508,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-28125")) + #(ribcage #(p) #((top)) #("l-*-30258")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23392,19 +23533,19 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 (list p-28406) (#{1-}# lev-28400))))) - tmp-28402) - (let ((tmp-28409 + (quasi-30508 (list p-30539) (#{1-}# lev-30533))))) + tmp-30535) + (let ((tmp-30542 ($sc-dispatch - p-28399 + p-30532 '(#(free-id #(syntax-object quasiquote @@ -23413,7 +23554,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23422,28 +23563,28 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) any)))) - (if tmp-28409 + (if tmp-30542 (@apply - (lambda (p-28413) - (quasicons-28377 + (lambda (p-30546) + (quasicons-30510 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28128")) + #(ribcage #(p) #((top)) #("l-*-30261")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23452,23 +23593,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object quasiquote ((top) - #(ribcage #(p) #((top)) #("l-*-28128")) + #(ribcage #(p) #((top)) #("l-*-30261")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23477,23 +23618,23 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 (list p-28413) (#{1+}# lev-28400)))) - tmp-28409) - (let ((tmp-28416 ($sc-dispatch p-28399 '(any . any)))) - (if tmp-28416 + (quasi-30508 (list p-30546) (#{1+}# lev-30533)))) + tmp-30542) + (let ((tmp-30549 ($sc-dispatch p-30532 '(any . any)))) + (if tmp-30549 (@apply - (lambda (p-28420 q-28421) - (let ((tmp-28423 + (lambda (p-30553 q-30554) + (let ((tmp-30556 ($sc-dispatch - p-28420 + p-30553 '(#(free-id #(syntax-object unquote @@ -23501,12 +23642,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23521,40 +23662,40 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28423 + (if tmp-30556 (@apply - (lambda (p-28427) - (if (= lev-28400 0) - (quasilist*-28379 - (map (lambda (tmp-28139-28463) + (lambda (p-30560) + (if (= lev-30533 0) + (quasilist*-30512 + (map (lambda (tmp-30272-30596) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28137")) + #("l-*-30270")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" - "l-*-28132")) + #("l-*-30264" + "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" - "l-*-28122")) + #("l-*-30254" + "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23569,35 +23710,35 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28139-28463)) - p-28427) - (quasi-28375 q-28421 lev-28400)) - (quasicons-28377 - (quasicons-28377 + tmp-30272-30596)) + p-30560) + (quasi-30508 q-30554 lev-30533)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28137")) + #("l-*-30270")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23612,13 +23753,13 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote @@ -23626,16 +23767,16 @@ #(ribcage #(p) #((top)) - #("l-*-28137")) + #("l-*-30270")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23650,22 +23791,22 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 - p-28427 - (#{1-}# lev-28400))) - (quasi-28375 q-28421 lev-28400)))) - tmp-28423) - (let ((tmp-28468 + (quasi-30508 + p-30560 + (#{1-}# lev-30533))) + (quasi-30508 q-30554 lev-30533)))) + tmp-30556) + (let ((tmp-30601 ($sc-dispatch - p-28420 + p-30553 '(#(free-id #(syntax-object unquote-splicing @@ -23673,12 +23814,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23693,40 +23834,40 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28468 + (if tmp-30601 (@apply - (lambda (p-28472) - (if (= lev-28400 0) - (quasiappend-28378 - (map (lambda (tmp-28144-28475) + (lambda (p-30605) + (if (= lev-30533 0) + (quasiappend-30511 + (map (lambda (tmp-30277-30608) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28142")) + #("l-*-30275")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" - "l-*-28132")) + #("l-*-30264" + "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" - "l-*-28122")) + #("l-*-30254" + "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23741,35 +23882,35 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28144-28475)) - p-28472) - (quasi-28375 q-28421 lev-28400)) - (quasicons-28377 - (quasicons-28377 + tmp-30277-30608)) + p-30605) + (quasi-30508 q-30554 lev-30533)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28142")) + #("l-*-30275")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23784,13 +23925,13 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -23798,16 +23939,16 @@ #(ribcage #(p) #((top)) - #("l-*-28142")) + #("l-*-30275")) #(ribcage #(p q) #((top) (top)) - #("l-*-28131" "l-*-28132")) + #("l-*-30264" "l-*-30265")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -23822,49 +23963,49 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 - p-28472 - (#{1-}# lev-28400))) - (quasi-28375 q-28421 lev-28400)))) - tmp-28468) - (quasicons-28377 - (quasi-28375 p-28420 lev-28400) - (quasi-28375 q-28421 lev-28400))))))) - tmp-28416) - (let ((tmp-28489 - ($sc-dispatch p-28399 '#(vector each-any)))) - (if tmp-28489 + (quasi-30508 + p-30605 + (#{1-}# lev-30533))) + (quasi-30508 q-30554 lev-30533)))) + tmp-30601) + (quasicons-30510 + (quasi-30508 p-30553 lev-30533) + (quasi-30508 q-30554 lev-30533))))))) + tmp-30549) + (let ((tmp-30622 + ($sc-dispatch p-30532 '#(vector each-any)))) + (if tmp-30622 (@apply - (lambda (x-28493) - (let ((x-28496 - (vquasi-28376 x-28493 lev-28400))) - (let ((tmp-28498 + (lambda (x-30626) + (let ((x-30629 + (vquasi-30509 x-30626 lev-30533))) + (let ((tmp-30631 ($sc-dispatch - x-28496 + x-30629 '(#(atom "quote") each-any)))) - (if tmp-28498 + (if tmp-30631 (@apply - (lambda (x-28502) + (lambda (x-30635) (list '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) - #("l-*-28249")) + #("l-*-30382")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -23879,36 +24020,36 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (list->vector x-28502))) - tmp-28498) + (list->vector x-30635))) + tmp-30631) (letrec* - ((f-28504 - (lambda (y-28516 k-28517) - (let ((tmp-28519 + ((f-30637 + (lambda (y-30649 k-30650) + (let ((tmp-30652 ($sc-dispatch - y-28516 + y-30649 '(#(atom "quote") each-any)))) - (if tmp-28519 + (if tmp-30652 (@apply - (lambda (y-28522) - (k-28517 - (map (lambda (tmp-28274-28523) + (lambda (y-30655) + (k-30650 + (map (lambda (tmp-30407-30656) (list '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) - #("l-*-28272")) + #("l-*-30405")) #(ribcage () () @@ -23920,13 +24061,13 @@ #((top) (top) (top)) - #("l-*-28254" - "l-*-28255" - "l-*-28256")) + #("l-*-30387" + "l-*-30388" + "l-*-30389")) #(ribcage #(_) #((top)) - #("l-*-28252")) + #("l-*-30385")) #(ribcage () () @@ -23934,7 +24075,7 @@ #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -23949,50 +24090,50 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28274-28523)) - y-28522))) - tmp-28519) - (let ((tmp-28524 + tmp-30407-30656)) + y-30655))) + tmp-30652) + (let ((tmp-30657 ($sc-dispatch - y-28516 + y-30649 '(#(atom "list") . each-any)))) - (if tmp-28524 + (if tmp-30657 (@apply - (lambda (y-28527) - (k-28517 y-28527)) - tmp-28524) - (let ((tmp-28528 + (lambda (y-30660) + (k-30650 y-30660)) + tmp-30657) + (let ((tmp-30661 ($sc-dispatch - y-28516 + y-30649 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-28528 + (if tmp-30661 (@apply - (lambda (y-28531 - z-28532) - (f-28504 - z-28532 - (lambda (ls-28533) - (k-28517 + (lambda (y-30664 + z-30665) + (f-30637 + z-30665 + (lambda (ls-30666) + (k-30650 (append - y-28531 - ls-28533))))) - tmp-28528) + y-30664 + ls-30666))))) + tmp-30661) (list '#(syntax-object "list->vector" ((top) @@ -24001,14 +24142,14 @@ () ()) #(ribcage - #(t-28289) - #((m-*-28290 + #(t-30422) + #((m-*-30423 top)) - #("l-*-28293")) + #("l-*-30426")) #(ribcage #(else) #((top)) - #("l-*-28287")) + #("l-*-30420")) #(ribcage () () @@ -24018,13 +24159,13 @@ #((top) (top) (top)) - #("l-*-28254" - "l-*-28255" - "l-*-28256")) + #("l-*-30387" + "l-*-30388" + "l-*-30389")) #(ribcage #(_) #((top)) - #("l-*-28252")) + #("l-*-30385")) #(ribcage () () @@ -24032,7 +24173,7 @@ #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -24047,26 +24188,26 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28496)))))))))) - (f-28504 - x-28496 - (lambda (ls-28506) - (let ((tmp-28508 + x-30629)))))))))) + (f-30637 + x-30629 + (lambda (ls-30639) + (let ((tmp-30641 ($sc-dispatch - ls-28506 + ls-30639 'each-any))) - (if tmp-28508 + (if tmp-30641 (@apply - (lambda (t-28262-28511) + (lambda (t-30395-30644) (cons '#(syntax-object "vector" ((top) @@ -24075,10 +24216,10 @@ () ()) #(ribcage - #(t-28262) - #((m-*-28263 + #(t-30395) + #((m-*-30396 top)) - #("l-*-28267")) + #("l-*-30400")) #(ribcage () () @@ -24094,11 +24235,11 @@ #(ribcage #(ls) #((top)) - #("l-*-28261")) + #("l-*-30394")) #(ribcage #(_) #((top)) - #("l-*-28252")) + #("l-*-30385")) #(ribcage () () @@ -24106,7 +24247,7 @@ #(ribcage #(x) #((top)) - #("l-*-28246")) + #("l-*-30379")) #(ribcage (emit quasivector quasilist* @@ -24121,30 +24262,30 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28262-28511)) - tmp-28508) + t-30395-30644)) + tmp-30641) (syntax-violation #f "source expression failed to match any pattern" - ls-28506)))))))))) - tmp-28489) + ls-30639)))))))))) + tmp-30622) (list '#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28152")) + #(ribcage #(p) #((top)) #("l-*-30285")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28121" "l-*-28122")) + #("l-*-30254" "l-*-30255")) #(ribcage (emit quasivector quasilist* @@ -24159,24 +24300,24 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - p-28399))))))))))) - (vquasi-28376 - (lambda (p-28561 lev-28562) - (let ((tmp-28564 ($sc-dispatch p-28561 '(any . any)))) - (if tmp-28564 + p-30532))))))))))) + (vquasi-30509 + (lambda (p-30694 lev-30695) + (let ((tmp-30697 ($sc-dispatch p-30694 '(any . any)))) + (if tmp-30697 (@apply - (lambda (p-28568 q-28569) - (let ((tmp-28571 + (lambda (p-30701 q-30702) + (let ((tmp-30704 ($sc-dispatch - p-28568 + p-30701 '(#(free-id #(syntax-object unquote @@ -24184,12 +24325,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24204,38 +24345,38 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28571 + (if tmp-30704 (@apply - (lambda (p-28575) - (if (= lev-28562 0) - (quasilist*-28379 - (map (lambda (tmp-28168-28611) + (lambda (p-30708) + (if (= lev-30695 0) + (quasilist*-30512 + (map (lambda (tmp-30301-30744) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28166")) + #("l-*-30299")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24250,32 +24391,32 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28168-28611)) - p-28575) - (vquasi-28376 q-28569 lev-28562)) - (quasicons-28377 - (quasicons-28377 + tmp-30301-30744)) + p-30708) + (vquasi-30509 q-30702 lev-30695)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) - #(ribcage #(p) #((top)) #("l-*-28166")) + #(ribcage #(p) #((top)) #("l-*-30299")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24290,27 +24431,27 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote ((top) - #(ribcage #(p) #((top)) #("l-*-28166")) + #(ribcage #(p) #((top)) #("l-*-30299")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24325,20 +24466,20 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 p-28575 (#{1-}# lev-28562))) - (vquasi-28376 q-28569 lev-28562)))) - tmp-28571) - (let ((tmp-28618 + (quasi-30508 p-30708 (#{1-}# lev-30695))) + (vquasi-30509 q-30702 lev-30695)))) + tmp-30704) + (let ((tmp-30751 ($sc-dispatch - p-28568 + p-30701 '(#(free-id #(syntax-object unquote-splicing @@ -24346,12 +24487,12 @@ #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24366,40 +24507,40 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) . each-any)))) - (if tmp-28618 + (if tmp-30751 (@apply - (lambda (p-28622) - (if (= lev-28562 0) - (quasiappend-28378 - (map (lambda (tmp-28173-28625) + (lambda (p-30755) + (if (= lev-30695 0) + (quasiappend-30511 + (map (lambda (tmp-30306-30758) (list '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) - #("l-*-28171")) + #("l-*-30304")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" - "l-*-28161")) + #("l-*-30293" + "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" - "l-*-28157")) + #("l-*-30289" + "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24414,35 +24555,35 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28173-28625)) - p-28622) - (vquasi-28376 q-28569 lev-28562)) - (quasicons-28377 - (quasicons-28377 + tmp-30306-30758)) + p-30755) + (vquasi-30509 q-30702 lev-30695)) + (quasicons-30510 + (quasicons-30510 '(#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) - #("l-*-28171")) + #("l-*-30304")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24457,13 +24598,13 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) #(syntax-object unquote-splicing @@ -24471,16 +24612,16 @@ #(ribcage #(p) #((top)) - #("l-*-28171")) + #("l-*-30304")) #(ribcage #(p q) #((top) (top)) - #("l-*-28160" "l-*-28161")) + #("l-*-30293" "l-*-30294")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24495,23 +24636,23 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile))) - (quasi-28375 p-28622 (#{1-}# lev-28562))) - (vquasi-28376 q-28569 lev-28562)))) - tmp-28618) - (quasicons-28377 - (quasi-28375 p-28568 lev-28562) - (vquasi-28376 q-28569 lev-28562))))))) - tmp-28564) - (let ((tmp-28643 ($sc-dispatch p-28561 '()))) - (if tmp-28643 + (quasi-30508 p-30755 (#{1-}# lev-30695))) + (vquasi-30509 q-30702 lev-30695)))) + tmp-30751) + (quasicons-30510 + (quasi-30508 p-30701 lev-30695) + (vquasi-30509 q-30702 lev-30695))))))) + tmp-30697) + (let ((tmp-30776 ($sc-dispatch p-30694 '()))) + (if tmp-30776 (@apply (lambda () '(#(syntax-object @@ -24521,7 +24662,7 @@ #(ribcage #(p lev) #((top) (top)) - #("l-*-28156" "l-*-28157")) + #("l-*-30289" "l-*-30290")) #(ribcage (emit quasivector quasilist* @@ -24530,61 +24671,61 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) ())) - tmp-28643) + tmp-30776) (syntax-violation #f "source expression failed to match any pattern" - p-28561))))))) - (quasicons-28377 - (lambda (x-28656 y-28657) - (let ((tmp-28658 (list x-28656 y-28657))) - (let ((tmp-28659 ($sc-dispatch tmp-28658 '(any any)))) - (if tmp-28659 + p-30694))))))) + (quasicons-30510 + (lambda (x-30789 y-30790) + (let ((tmp-30791 (list x-30789 y-30790))) + (let ((tmp-30792 ($sc-dispatch tmp-30791 '(any any)))) + (if tmp-30792 (@apply - (lambda (x-28661 y-28662) - (let ((tmp-28664 - ($sc-dispatch y-28662 '(#(atom "quote") any)))) - (if tmp-28664 + (lambda (x-30794 y-30795) + (let ((tmp-30797 + ($sc-dispatch y-30795 '(#(atom "quote") any)))) + (if tmp-30797 (@apply - (lambda (dy-28668) - (let ((tmp-28670 + (lambda (dy-30801) + (let ((tmp-30803 ($sc-dispatch - x-28661 + x-30794 '(#(atom "quote") any)))) - (if tmp-28670 + (if tmp-30803 (@apply - (lambda (dx-28674) + (lambda (dx-30807) (list '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) - #("l-*-28195")) + #("l-*-30328")) #(ribcage #(dy) #((top)) - #("l-*-28191")) + #("l-*-30324")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24599,39 +24740,39 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (cons dx-28674 dy-28668))) - tmp-28670) - (if (null? dy-28668) + (cons dx-30807 dy-30801))) + tmp-30803) + (if (null? dy-30801) (list '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) - #("l-*-28197")) + #("l-*-30330")) #(ribcage #(dy) #((top)) - #("l-*-28191")) + #("l-*-30324")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24646,37 +24787,37 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28661) + x-30794) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("l-*-28197")) + #("l-*-30330")) #(ribcage #(dy) #((top)) - #("l-*-28191")) + #("l-*-30324")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24691,42 +24832,42 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28661 - y-28662))))) - tmp-28664) - (let ((tmp-28679 + x-30794 + y-30795))))) + tmp-30797) + (let ((tmp-30812 ($sc-dispatch - y-28662 + y-30795 '(#(atom "list") . any)))) - (if tmp-28679 + (if tmp-30812 (@apply - (lambda (stuff-28683) + (lambda (stuff-30816) (cons '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) - #("l-*-28200")) + #("l-*-30333")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24741,41 +24882,41 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (cons x-28661 stuff-28683))) - tmp-28679) - (let ((tmp-28684 + (cons x-30794 stuff-30816))) + tmp-30812) + (let ((tmp-30817 ($sc-dispatch - y-28662 + y-30795 '(#(atom "list*") . any)))) - (if tmp-28684 + (if tmp-30817 (@apply - (lambda (stuff-28688) + (lambda (stuff-30821) (cons '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) - #("l-*-28203")) + #("l-*-30336")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24790,34 +24931,34 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (cons x-28661 stuff-28688))) - tmp-28684) + (cons x-30794 stuff-30821))) + tmp-30817) (list '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) - #("l-*-28205")) + #("l-*-30338")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28185" "l-*-28186")) + #("l-*-30318" "l-*-30319")) #(ribcage () () ()) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28180" "l-*-28181")) + #("l-*-30313" "l-*-30314")) #(ribcage (emit quasivector quasilist* @@ -24832,29 +24973,29 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28661 - y-28662)))))))) - tmp-28659) + x-30794 + y-30795)))))))) + tmp-30792) (syntax-violation #f "source expression failed to match any pattern" - tmp-28658)))))) - (quasiappend-28378 - (lambda (x-28699 y-28700) - (let ((tmp-28702 - ($sc-dispatch y-28700 '(#(atom "quote") ())))) - (if tmp-28702 + tmp-30791)))))) + (quasiappend-30511 + (lambda (x-30832 y-30833) + (let ((tmp-30835 + ($sc-dispatch y-30833 '(#(atom "quote") ())))) + (if tmp-30835 (@apply (lambda () - (if (null? x-28699) + (if (null? x-30832) '(#(syntax-object "quote" ((top) @@ -24862,7 +25003,7 @@ #(ribcage #(x y) #((top) (top)) - #("l-*-28209" "l-*-28210")) + #("l-*-30342" "l-*-30343")) #(ribcage (emit quasivector quasilist* @@ -24871,21 +25012,21 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) ()) - (if (null? (cdr x-28699)) - (car x-28699) - (let ((tmp-28707 ($sc-dispatch x-28699 'each-any))) - (if tmp-28707 + (if (null? (cdr x-30832)) + (car x-30832) + (let ((tmp-30840 ($sc-dispatch x-30832 'each-any))) + (if tmp-30840 (@apply - (lambda (p-28711) + (lambda (p-30844) (cons '#(syntax-object "append" ((top) @@ -24893,12 +25034,12 @@ #(ribcage #(p) #((top)) - #("l-*-28221")) + #("l-*-30354")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28209" "l-*-28210")) + #("l-*-30342" "l-*-30343")) #(ribcage (emit quasivector quasilist* @@ -24913,29 +25054,29 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - p-28711)) - tmp-28707) + p-30844)) + tmp-30840) (syntax-violation #f "source expression failed to match any pattern" - x-28699)))))) - tmp-28702) - (if (null? x-28699) - y-28700 - (let ((tmp-28719 (list x-28699 y-28700))) - (let ((tmp-28720 - ($sc-dispatch tmp-28719 '(each-any any)))) - (if tmp-28720 + x-30832)))))) + tmp-30835) + (if (null? x-30832) + y-30833 + (let ((tmp-30852 (list x-30832 y-30833))) + (let ((tmp-30853 + ($sc-dispatch tmp-30852 '(each-any any)))) + (if tmp-30853 (@apply - (lambda (p-28722 y-28723) + (lambda (p-30855 y-30856) (cons '#(syntax-object "append" ((top) @@ -24943,13 +25084,13 @@ #(ribcage #(p y) #((top) (top)) - #("l-*-28232" "l-*-28233")) - #(ribcage #(_) #((top)) #("l-*-28224")) + #("l-*-30365" "l-*-30366")) + #(ribcage #(_) #((top)) #("l-*-30357")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) - #("l-*-28209" "l-*-28210")) + #("l-*-30342" "l-*-30343")) #(ribcage (emit quasivector quasilist* @@ -24964,44 +25105,44 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - (append p-28722 (list y-28723)))) - tmp-28720) + (append p-30855 (list y-30856)))) + tmp-30853) (syntax-violation #f "source expression failed to match any pattern" - tmp-28719))))))))) - (quasilist*-28379 - (lambda (x-28727 y-28728) + tmp-30852))))))))) + (quasilist*-30512 + (lambda (x-30860 y-30861) (letrec* - ((f-28729 - (lambda (x-28818) - (if (null? x-28818) - y-28728 - (quasicons-28377 - (car x-28818) - (f-28729 (cdr x-28818))))))) - (f-28729 x-28727)))) - (emit-28381 - (lambda (x-28821) - (let ((tmp-28823 - ($sc-dispatch x-28821 '(#(atom "quote") any)))) - (if tmp-28823 + ((f-30862 + (lambda (x-30951) + (if (null? x-30951) + y-30861 + (quasicons-30510 + (car x-30951) + (f-30862 (cdr x-30951))))))) + (f-30862 x-30860)))) + (emit-30514 + (lambda (x-30954) + (let ((tmp-30956 + ($sc-dispatch x-30954 '(#(atom "quote") any)))) + (if tmp-30956 (@apply - (lambda (x-28827) + (lambda (x-30960) (list '#(syntax-object quote ((top) - #(ribcage #(x) #((top)) #("l-*-28299")) + #(ribcage #(x) #((top)) #("l-*-30432")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-28296")) + #(ribcage #(x) #((top)) #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25010,45 +25151,45 @@ vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - x-28827)) - tmp-28823) - (let ((tmp-28828 + x-30960)) + tmp-30956) + (let ((tmp-30961 ($sc-dispatch - x-28821 + x-30954 '(#(atom "list") . each-any)))) - (if tmp-28828 + (if tmp-30961 (@apply - (lambda (x-28832) - (let ((tmp-28833 (map emit-28381 x-28832))) - (let ((tmp-28834 ($sc-dispatch tmp-28833 'each-any))) - (if tmp-28834 + (lambda (x-30965) + (let ((tmp-30966 (map emit-30514 x-30965))) + (let ((tmp-30967 ($sc-dispatch tmp-30966 'each-any))) + (if tmp-30967 (@apply - (lambda (t-28304-28836) + (lambda (t-30437-30969) (cons '#(syntax-object list ((top) #(ribcage () () ()) #(ribcage - #(t-28304) - #((m-*-28305 top)) - #("l-*-28309")) + #(t-30437) + #((m-*-30438 top)) + #("l-*-30442")) #(ribcage #(x) #((top)) - #("l-*-28302")) + #("l-*-30435")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25063,70 +25204,70 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28304-28836)) - tmp-28834) + t-30437-30969)) + tmp-30967) (syntax-violation #f "source expression failed to match any pattern" - tmp-28833))))) - tmp-28828) - (let ((tmp-28837 + tmp-30966))))) + tmp-30961) + (let ((tmp-30970 ($sc-dispatch - x-28821 + x-30954 '(#(atom "list*") . #(each+ any (any) ()))))) - (if tmp-28837 + (if tmp-30970 (@apply - (lambda (x-28841 y-28842) + (lambda (x-30974 y-30975) (letrec* - ((f-28843 - (lambda (x*-28846) - (if (null? x*-28846) - (emit-28381 y-28842) - (let ((tmp-28847 - (list (emit-28381 (car x*-28846)) - (f-28843 (cdr x*-28846))))) - (let ((tmp-28848 + ((f-30976 + (lambda (x*-30979) + (if (null? x*-30979) + (emit-30514 y-30975) + (let ((tmp-30980 + (list (emit-30514 (car x*-30979)) + (f-30976 (cdr x*-30979))))) + (let ((tmp-30981 ($sc-dispatch - tmp-28847 + tmp-30980 '(any any)))) - (if tmp-28848 + (if tmp-30981 (@apply - (lambda (t-28324-28850 - t-28323-28851) + (lambda (t-30457-30983 + t-30456-30984) (list '#(syntax-object cons ((top) #(ribcage () () ()) #(ribcage - #(t-28324 t-28323) - #((m-*-28325 top) - (m-*-28325 top)) - #("l-*-28329" - "l-*-28330")) + #(t-30457 t-30456) + #((m-*-30458 top) + (m-*-30458 top)) + #("l-*-30462" + "l-*-30463")) #(ribcage () () ()) #(ribcage #(f x*) #((top) (top)) - #("l-*-28318" - "l-*-28319")) + #("l-*-30451" + "l-*-30452")) #(ribcage #(x y) #((top) (top)) - #("l-*-28314" - "l-*-28315")) + #("l-*-30447" + "l-*-30448")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25141,53 +25282,53 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28324-28850 - t-28323-28851)) - tmp-28848) + t-30457-30983 + t-30456-30984)) + tmp-30981) (syntax-violation #f "source expression failed to match any pattern" - tmp-28847)))))))) - (f-28843 x-28841))) - tmp-28837) - (let ((tmp-28852 + tmp-30980)))))))) + (f-30976 x-30974))) + tmp-30970) + (let ((tmp-30985 ($sc-dispatch - x-28821 + x-30954 '(#(atom "append") . each-any)))) - (if tmp-28852 + (if tmp-30985 (@apply - (lambda (x-28856) - (let ((tmp-28857 (map emit-28381 x-28856))) - (let ((tmp-28858 - ($sc-dispatch tmp-28857 'each-any))) - (if tmp-28858 + (lambda (x-30989) + (let ((tmp-30990 (map emit-30514 x-30989))) + (let ((tmp-30991 + ($sc-dispatch tmp-30990 'each-any))) + (if tmp-30991 (@apply - (lambda (t-28336-28860) + (lambda (t-30469-30993) (cons '#(syntax-object append ((top) #(ribcage () () ()) #(ribcage - #(t-28336) - #((m-*-28337 top)) - #("l-*-28341")) + #(t-30469) + #((m-*-30470 top)) + #("l-*-30474")) #(ribcage #(x) #((top)) - #("l-*-28334")) + #("l-*-30467")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25202,53 +25343,53 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28336-28860)) - tmp-28858) + t-30469-30993)) + tmp-30991) (syntax-violation #f "source expression failed to match any pattern" - tmp-28857))))) - tmp-28852) - (let ((tmp-28861 + tmp-30990))))) + tmp-30985) + (let ((tmp-30994 ($sc-dispatch - x-28821 + x-30954 '(#(atom "vector") . each-any)))) - (if tmp-28861 + (if tmp-30994 (@apply - (lambda (x-28865) - (let ((tmp-28866 (map emit-28381 x-28865))) - (let ((tmp-28867 + (lambda (x-30998) + (let ((tmp-30999 (map emit-30514 x-30998))) + (let ((tmp-31000 ($sc-dispatch - tmp-28866 + tmp-30999 'each-any))) - (if tmp-28867 + (if tmp-31000 (@apply - (lambda (t-28348-28869) + (lambda (t-30481-31002) (cons '#(syntax-object vector ((top) #(ribcage () () ()) #(ribcage - #(t-28348) - #((m-*-28349 top)) - #("l-*-28353")) + #(t-30481) + #((m-*-30482 top)) + #("l-*-30486")) #(ribcage #(x) #((top)) - #("l-*-28346")) + #("l-*-30479")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25263,46 +25404,46 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - t-28348-28869)) - tmp-28867) + t-30481-31002)) + tmp-31000) (syntax-violation #f "source expression failed to match any pattern" - tmp-28866))))) - tmp-28861) - (let ((tmp-28870 + tmp-30999))))) + tmp-30994) + (let ((tmp-31003 ($sc-dispatch - x-28821 + x-30954 '(#(atom "list->vector") any)))) - (if tmp-28870 + (if tmp-31003 (@apply - (lambda (x-28874) - (let ((tmp-28875 (emit-28381 x-28874))) + (lambda (x-31007) + (let ((tmp-31008 (emit-30514 x-31007))) (list '#(syntax-object list->vector ((top) #(ribcage () () ()) #(ribcage - #(t-28360) - #((m-*-28361 top)) - #("l-*-28364")) + #(t-30493) + #((m-*-30494 top)) + #("l-*-30497")) #(ribcage #(x) #((top)) - #("l-*-28358")) + #("l-*-30491")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-28296")) + #("l-*-30429")) #(ribcage (emit quasivector quasilist* @@ -25317,183 +25458,183 @@ (top) (top) (top)) - ("l-*-28117" - "l-*-28115" - "l-*-28113" - "l-*-28111" - "l-*-28109" - "l-*-28107" - "l-*-28105"))) + ("l-*-30250" + "l-*-30248" + "l-*-30246" + "l-*-30244" + "l-*-30242" + "l-*-30240" + "l-*-30238"))) (hygiene guile)) - tmp-28875))) - tmp-28870) - (let ((tmp-28878 + tmp-31008))) + tmp-31003) + (let ((tmp-31011 ($sc-dispatch - x-28821 + x-30954 '(#(atom "value") any)))) - (if tmp-28878 + (if tmp-31011 (@apply - (lambda (x-28882) x-28882) - tmp-28878) + (lambda (x-31015) x-31015) + tmp-31011) (syntax-violation #f "source expression failed to match any pattern" - x-28821)))))))))))))))))) - (lambda (x-28382) - (let ((tmp-28384 ($sc-dispatch x-28382 '(_ any)))) - (if tmp-28384 + x-30954)))))))))))))))))) + (lambda (x-30515) + (let ((tmp-30517 ($sc-dispatch x-30515 '(_ any)))) + (if tmp-30517 (@apply - (lambda (e-28388) - (emit-28381 (quasi-28375 e-28388 0))) - tmp-28384) + (lambda (e-30521) + (emit-30514 (quasi-30508 e-30521 0))) + tmp-30517) (syntax-violation #f "source expression failed to match any pattern" - x-28382))))))) + x-30515))))))) (define include (make-syntax-transformer 'include 'macro - (lambda (x-28937) + (lambda (x-31070) (letrec* - ((read-file-28938 - (lambda (fn-29047 k-29048) - (let ((p-29049 (open-input-file fn-29047))) + ((read-file-31071 + (lambda (fn-31180 k-31181) + (let ((p-31182 (open-input-file fn-31180))) (letrec* - ((f-29050 - (lambda (x-29104 result-29105) - (if (eof-object? x-29104) + ((f-31183 + (lambda (x-31237 result-31238) + (if (eof-object? x-31237) (begin - (close-input-port p-29049) - (reverse result-29105)) - (f-29050 - (read p-29049) - (cons (datum->syntax k-29048 x-29104) - result-29105)))))) - (f-29050 (read p-29049) '())))))) - (let ((tmp-28940 ($sc-dispatch x-28937 '(any any)))) - (if tmp-28940 + (close-input-port p-31182) + (reverse result-31238)) + (f-31183 + (read p-31182) + (cons (datum->syntax k-31181 x-31237) + result-31238)))))) + (f-31183 (read p-31182) '())))))) + (let ((tmp-31073 ($sc-dispatch x-31070 '(any any)))) + (if tmp-31073 (@apply - (lambda (k-28944 filename-28945) - (let ((fn-28946 (syntax->datum filename-28945))) - (let ((tmp-28947 - (read-file-28938 fn-28946 filename-28945))) - (let ((tmp-28948 ($sc-dispatch tmp-28947 'each-any))) - (if tmp-28948 + (lambda (k-31077 filename-31078) + (let ((fn-31079 (syntax->datum filename-31078))) + (let ((tmp-31080 + (read-file-31071 fn-31079 filename-31078))) + (let ((tmp-31081 ($sc-dispatch tmp-31080 'each-any))) + (if tmp-31081 (@apply - (lambda (exp-28966) + (lambda (exp-31099) (cons '#(syntax-object begin ((top) #(ribcage () () ()) - #(ribcage #(exp) #((top)) #("l-*-28934")) + #(ribcage #(exp) #((top)) #("l-*-31067")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-28929")) + #(ribcage #(fn) #((top)) #("l-*-31062")) #(ribcage #(k filename) #((top) (top)) - #("l-*-28925" "l-*-28926")) + #("l-*-31058" "l-*-31059")) #(ribcage (read-file) ((top)) - ("l-*-28909")) - #(ribcage #(x) #((top)) #("l-*-28908"))) + ("l-*-31042")) + #(ribcage #(x) #((top)) #("l-*-31041"))) (hygiene guile)) - exp-28966)) - tmp-28948) + exp-31099)) + tmp-31081) (syntax-violation #f "source expression failed to match any pattern" - tmp-28947)))))) - tmp-28940) + tmp-31080)))))) + tmp-31073) (syntax-violation #f "source expression failed to match any pattern" - x-28937))))))) + x-31070))))))) (define include-from-path (make-syntax-transformer 'include-from-path 'macro - (lambda (x-29124) - (let ((tmp-29126 ($sc-dispatch x-29124 '(any any)))) - (if tmp-29126 + (lambda (x-31257) + (let ((tmp-31259 ($sc-dispatch x-31257 '(any any)))) + (if tmp-31259 (@apply - (lambda (k-29130 filename-29131) - (let ((fn-29132 (syntax->datum filename-29131))) - (let ((tmp-29133 + (lambda (k-31263 filename-31264) + (let ((fn-31265 (syntax->datum filename-31264))) + (let ((tmp-31266 (datum->syntax - filename-29131 - (let ((t-29136 (%search-load-path fn-29132))) - (if t-29136 - t-29136 + filename-31264 + (let ((t-31269 (%search-load-path fn-31265))) + (if t-31269 + t-31269 (syntax-violation 'include-from-path "file not found in path" - x-29124 - filename-29131)))))) + x-31257 + filename-31264)))))) (list '#(syntax-object include ((top) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29118")) + #(ribcage #(fn) #((top)) #("l-*-31251")) #(ribcage () () ()) #(ribcage () () ()) - #(ribcage #(fn) #((top)) #("l-*-29114")) + #(ribcage #(fn) #((top)) #("l-*-31247")) #(ribcage #(k filename) #((top) (top)) - #("l-*-29110" "l-*-29111")) + #("l-*-31243" "l-*-31244")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29107"))) + #(ribcage #(x) #((top)) #("l-*-31240"))) (hygiene guile)) - tmp-29133)))) - tmp-29126) + tmp-31266)))) + tmp-31259) (syntax-violation #f "source expression failed to match any pattern" - x-29124)))))) + x-31257)))))) (define unquote (make-syntax-transformer 'unquote 'macro - (lambda (x-29145) + (lambda (x-31278) (syntax-violation 'unquote "expression not valid outside of quasiquote" - x-29145)))) + x-31278)))) (define unquote-splicing (make-syntax-transformer 'unquote-splicing 'macro - (lambda (x-29148) + (lambda (x-31281) (syntax-violation 'unquote-splicing "expression not valid outside of quasiquote" - x-29148)))) + x-31281)))) (define case (make-syntax-transformer 'case 'macro - (lambda (x-29204) - (let ((tmp-29206 - ($sc-dispatch x-29204 '(_ any any . each-any)))) - (if tmp-29206 + (lambda (x-31337) + (let ((tmp-31339 + ($sc-dispatch x-31337 '(_ any any . each-any)))) + (if tmp-31339 (@apply - (lambda (e-29210 m1-29211 m2-29212) - (let ((tmp-29213 + (lambda (e-31343 m1-31344 m2-31345) + (let ((tmp-31346 (letrec* - ((f-29255 - (lambda (clause-29258 clauses-29259) - (if (null? clauses-29259) - (let ((tmp-29261 + ((f-31388 + (lambda (clause-31391 clauses-31392) + (if (null? clauses-31392) + (let ((tmp-31394 ($sc-dispatch - clause-29258 + clause-31391 '(#(free-id #(syntax-object else @@ -25502,89 +25643,89 @@ #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile))) any . each-any)))) - (if tmp-29261 + (if tmp-31394 (@apply - (lambda (e1-29265 e2-29266) + (lambda (e1-31398 e2-31399) (cons '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) - #("l-*-29172" "l-*-29173")) + #("l-*-31305" "l-*-31306")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - (cons e1-29265 e2-29266))) - tmp-29261) - (let ((tmp-29267 + (cons e1-31398 e2-31399))) + tmp-31394) + (let ((tmp-31400 ($sc-dispatch - clause-29258 + clause-31391 '(each-any any . each-any)))) - (if tmp-29267 + (if tmp-31400 (@apply - (lambda (k-29271 e1-29272 e2-29273) + (lambda (k-31404 e1-31405 e2-31406) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object memv @@ -25594,9 +25735,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f @@ -25605,22 +25746,22 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) '#(syntax-object t @@ -25630,9 +25771,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f @@ -25641,22 +25782,22 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object quote @@ -25666,9 +25807,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () @@ -25680,17 +25821,17 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () @@ -25698,10 +25839,10 @@ #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - k-29271)) + k-31404)) (cons '#(syntax-object begin ((top) @@ -25710,9 +25851,9 @@ #((top) (top) (top)) - #("l-*-29178" - "l-*-29179" - "l-*-29180")) + #("l-*-31311" + "l-*-31312" + "l-*-31313")) #(ribcage () () ()) #(ribcage #(f @@ -25721,74 +25862,74 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - (cons e1-29272 - e2-29273)))) - tmp-29267) + (cons e1-31405 + e2-31406)))) + tmp-31400) (syntax-violation 'case "bad clause" - x-29204 - clause-29258))))) - (let ((tmp-29281 - (f-29255 - (car clauses-29259) - (cdr clauses-29259)))) - (let ((tmp-29284 + x-31337 + clause-31391))))) + (let ((tmp-31414 + (f-31388 + (car clauses-31392) + (cdr clauses-31392)))) + (let ((tmp-31417 ($sc-dispatch - clause-29258 + clause-31391 '(each-any any . each-any)))) - (if tmp-29284 + (if tmp-31417 (@apply - (lambda (k-29288 e1-29289 e2-29290) + (lambda (k-31421 e1-31422 e2-31423) (list '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object memv @@ -25796,32 +25937,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) '#(syntax-object t @@ -25829,32 +25970,32 @@ #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) (list '#(syntax-object quote @@ -25864,9 +26005,9 @@ #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () @@ -25874,7 +26015,7 @@ #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () @@ -25886,17 +26027,17 @@ #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () @@ -25904,63 +26045,63 @@ #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - k-29288)) + k-31421)) (cons '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) - #("l-*-29194" - "l-*-29195" - "l-*-29196")) + #("l-*-31327" + "l-*-31328" + "l-*-31329")) #(ribcage () () ()) #(ribcage #(rest) #((top)) - #("l-*-29190")) + #("l-*-31323")) #(ribcage () () ()) #(ribcage #(f clause clauses) #((top) (top) (top)) - #("l-*-29163" - "l-*-29164" - "l-*-29165")) + #("l-*-31296" + "l-*-31297" + "l-*-31298")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - (cons e1-29289 e2-29290)) - tmp-29281)) - tmp-29284) + (cons e1-31422 e2-31423)) + tmp-31414)) + tmp-31417) (syntax-violation 'case "bad clause" - x-29204 - clause-29258)))))))) - (f-29255 m1-29211 m2-29212)))) - (let ((body-29214 tmp-29213)) + x-31337 + clause-31391)))))))) + (f-31388 m1-31344 m2-31345)))) + (let ((body-31347 tmp-31346)) (list '#(syntax-object let ((top) #(ribcage () () ()) - #(ribcage #(body) #((top)) #("l-*-29161")) + #(ribcage #(body) #((top)) #("l-*-31294")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" "l-*-29154" "l-*-29155")) + #("l-*-31286" "l-*-31287" "l-*-31288")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29150"))) + #(ribcage #(x) #((top)) #("l-*-31283"))) (hygiene guile)) (list (list '#(syntax-object t @@ -25969,122 +26110,122 @@ #(ribcage #(body) #((top)) - #("l-*-29161")) + #("l-*-31294")) #(ribcage #(e m1 m2) #((top) (top) (top)) - #("l-*-29153" - "l-*-29154" - "l-*-29155")) + #("l-*-31286" + "l-*-31287" + "l-*-31288")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29150"))) + #("l-*-31283"))) (hygiene guile)) - e-29210)) - body-29214)))) - tmp-29206) + e-31343)) + body-31347)))) + tmp-31339) (syntax-violation #f "source expression failed to match any pattern" - x-29204)))))) + x-31337)))))) (define make-variable-transformer - (lambda (proc-29308) - (if (procedure? proc-29308) + (lambda (proc-31441) + (if (procedure? proc-31441) (letrec* - ((trans-29309 - (lambda (x-29315) (proc-29308 x-29315)))) + ((trans-31442 + (lambda (x-31448) (proc-31441 x-31448)))) (begin (set-procedure-property! - trans-29309 + trans-31442 'variable-transformer #t) - trans-29309)) + trans-31442)) (error "variable transformer not a procedure" - proc-29308)))) + proc-31441)))) (define identifier-syntax (make-syntax-transformer 'identifier-syntax 'macro - (lambda (x-29347) - (let ((tmp-29349 ($sc-dispatch x-29347 '(_ any)))) - (if tmp-29349 + (lambda (x-31480) + (let ((tmp-31482 ($sc-dispatch x-31480 '(_ any)))) + (if tmp-31482 (@apply - (lambda (e-29353) + (lambda (e-31486) (list '#(syntax-object lambda ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '(#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) '#((#(syntax-object macro-type ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) . #(syntax-object identifier-syntax ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax-case ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '#(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '() (list '#(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '(#(syntax-object identifier? ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) (#(syntax-object syntax ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) #(syntax-object id ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26092,34 +26233,34 @@ #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - e-29353)) + e-31486)) (list '(#(syntax-object _ ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) #(syntax-object x ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) #(syntax-object ... ((top) - #(ribcage #(e) #((top)) #("l-*-29322")) + #(ribcage #(e) #((top)) #("l-*-31455")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) (list '#(syntax-object syntax @@ -26127,26 +26268,26 @@ #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - (cons e-29353 + (cons e-31486 '(#(syntax-object x ((top) #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) #(syntax-object ... @@ -26154,59 +26295,59 @@ #(ribcage #(e) #((top)) - #("l-*-29322")) + #("l-*-31455")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile))))))))) - tmp-29349) - (let ((tmp-29354 + tmp-31482) + (let ((tmp-31487 ($sc-dispatch - x-29347 + x-31480 '(_ (any any) ((#(free-id #(syntax-object set! ((top) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) any any) any))))) - (if (if tmp-29354 + (if (if tmp-31487 (@apply - (lambda (id-29358 - exp1-29359 - var-29360 - val-29361 - exp2-29362) - (if (identifier? id-29358) - (identifier? var-29360) + (lambda (id-31491 + exp1-31492 + var-31493 + val-31494 + exp2-31495) + (if (identifier? id-31491) + (identifier? var-31493) #f)) - tmp-29354) + tmp-31487) #f) (@apply - (lambda (id-29363 - exp1-29364 - var-29365 - val-29366 - exp2-29367) + (lambda (id-31496 + exp1-31497 + var-31498 + val-31499 + exp2-31500) (list '#(syntax-object make-variable-transformer ((top) #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) (list '#(syntax-object lambda @@ -26214,13 +26355,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) '(#(syntax-object x @@ -26228,13 +26369,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile))) '#((#(syntax-object macro-type @@ -26242,13 +26383,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)) . #(syntax-object @@ -26257,13 +26398,13 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29319"))) + #(ribcage #(x) #((top)) #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax-case @@ -26271,16 +26412,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) '#(syntax-object x @@ -26288,16 +26429,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) '(#(syntax-object set! @@ -26305,16 +26446,16 @@ #(ribcage #(id exp1 var val exp2) #((top) (top) (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile))) (list (list '#(syntax-object set! @@ -26326,19 +26467,19 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - var-29365 - val-29366) + var-31498 + val-31499) (list '#(syntax-object syntax ((top) @@ -26349,19 +26490,19 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - exp2-29367)) - (list (cons id-29363 + exp2-31500)) + (list (cons id-31496 '(#(syntax-object x ((top) @@ -26372,16 +26513,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) #(syntax-object ... @@ -26393,16 +26534,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)))) (list '#(syntax-object syntax @@ -26414,18 +26555,18 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - (cons exp1-29364 + (cons exp1-31497 '(#(syntax-object x ((top) @@ -26440,16 +26581,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) #(syntax-object ... @@ -26465,18 +26606,18 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)))))) - (list id-29363 + (list id-31496 (list '#(syntax-object identifier? ((top) @@ -26487,16 +26628,16 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) (list '#(syntax-object syntax @@ -26512,18 +26653,18 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - id-29363)) + id-31496)) (list '#(syntax-object syntax ((top) @@ -26534,69 +26675,69 @@ (top) (top) (top)) - #("l-*-29337" - "l-*-29338" - "l-*-29339" - "l-*-29340" - "l-*-29341")) + #("l-*-31470" + "l-*-31471" + "l-*-31472" + "l-*-31473" + "l-*-31474")) #(ribcage () () ()) #(ribcage #(x) #((top)) - #("l-*-29319"))) + #("l-*-31452"))) (hygiene guile)) - exp1-29364)))))) - tmp-29354) + exp1-31497)))))) + tmp-31487) (syntax-violation #f "source expression failed to match any pattern" - x-29347)))))))) + x-31480)))))))) (define define* (make-syntax-transformer 'define* 'macro - (lambda (x-29399) - (let ((tmp-29401 + (lambda (x-31532) + (let ((tmp-31534 ($sc-dispatch - x-29399 + x-31532 '(_ (any . any) any . each-any)))) - (if tmp-29401 + (if tmp-31534 (@apply - (lambda (id-29405 args-29406 b0-29407 b1-29408) + (lambda (id-31538 args-31539 b0-31540 b1-31541) (list '#(syntax-object define ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-29381" - "l-*-29382" - "l-*-29383" - "l-*-29384")) + #("l-*-31514" + "l-*-31515" + "l-*-31516" + "l-*-31517")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)) - id-29405 + id-31538 (cons '#(syntax-object lambda* ((top) #(ribcage #(id args b0 b1) #((top) (top) (top) (top)) - #("l-*-29381" - "l-*-29382" - "l-*-29383" - "l-*-29384")) + #("l-*-31514" + "l-*-31515" + "l-*-31516" + "l-*-31517")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)) - (cons args-29406 (cons b0-29407 b1-29408))))) - tmp-29401) - (let ((tmp-29409 ($sc-dispatch x-29399 '(_ any any)))) - (if (if tmp-29409 + (cons args-31539 (cons b0-31540 b1-31541))))) + tmp-31534) + (let ((tmp-31542 ($sc-dispatch x-31532 '(_ any any)))) + (if (if tmp-31542 (@apply - (lambda (id-29413 val-29414) + (lambda (id-31546 val-31547) (identifier? '#(syntax-object x @@ -26604,29 +26745,29 @@ #(ribcage #(id val) #((top) (top)) - #("l-*-29391" "l-*-29392")) + #("l-*-31524" "l-*-31525")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)))) - tmp-29409) + tmp-31542) #f) (@apply - (lambda (id-29415 val-29416) + (lambda (id-31548 val-31549) (list '#(syntax-object define ((top) #(ribcage #(id val) #((top) (top)) - #("l-*-29395" "l-*-29396")) + #("l-*-31528" "l-*-31529")) #(ribcage () () ()) - #(ribcage #(x) #((top)) #("l-*-29378"))) + #(ribcage #(x) #((top)) #("l-*-31511"))) (hygiene guile)) - id-29415 - val-29416)) - tmp-29409) + id-31548 + val-31549)) + tmp-31542) (syntax-violation #f "source expression failed to match any pattern" - x-29399)))))))) + x-31532)))))))) diff --git a/module/ice-9/psyntax.scm b/module/ice-9/psyntax.scm index 20ea8ebcf..728ab1254 100644 --- a/module/ice-9/psyntax.scm +++ b/module/ice-9/psyntax.scm @@ -982,7 +982,7 @@ (lambda () (let ((e (car body))) (syntax-type e r w (or (source-annotation e) s) #f mod #f))) - (lambda (type value e w s mod) + (lambda (type value form e w s mod) (case type ((begin-form) (syntax-case e () @@ -1079,18 +1079,20 @@ exps))) ((displaced-lexical) (syntax-violation #f "identifier out of context" - e (wrap value w mod))) + (source-wrap form w s mod) + (wrap value w mod))) (else (syntax-violation #f "cannot define keyword at top level" - e (wrap value w mod)))))) + (source-wrap form w s mod) + (wrap value w mod)))))) (else (values (cons (if (eq? m 'c&e) - (let ((x (expand-expr type value e r w s mod))) + (let ((x (expand-expr type value form e r w s mod))) (top-level-eval-hook x mod) x) (lambda () - (expand-expr type value e r w s mod))) + (expand-expr type value form e r w s mod))) exps))))))) (lambda (exps) (scan (cdr body) r w s m esew mod exps)))))) @@ -1132,8 +1134,8 @@ (syntax-violation 'eval-when "invalid situation" e (car l)))))))) - ;; syntax-type returns six values: type, value, e, w, s, and mod. The - ;; first two are described in the table below. + ;; syntax-type returns seven values: type, value, form, e, w, s, and + ;; mod. The first two are described in the table below. ;; ;; type value explanation ;; ------------------------------------------------------------------- @@ -1162,10 +1164,11 @@ ;; constant none self-evaluating datum ;; other none anything else ;; - ;; For definition forms (define-form, define-syntax-parameter-form, - ;; and define-syntax-form), e is the rhs expression. For all - ;; others, e is the entire form. w is the wrap for e. s is the - ;; source for the entire form. mod is the module for e. + ;; form is the entire form. For definition forms (define-form, + ;; define-syntax-form, and define-syntax-parameter-form), e is the + ;; rhs expression. For all others, e is the entire form. w is the + ;; wrap for both form and e. s is the source for the entire form. + ;; mod is the module for both form and e. ;; ;; syntax-type expands macros and unwraps as necessary to get to one ;; of the forms above. It also parses definition forms, although @@ -1179,28 +1182,28 @@ (b (lookup n r mod)) (type (binding-type b))) (case type - ((lexical) (values type (binding-value b) e w s mod)) - ((global) (values type n e w s mod)) + ((lexical) (values type (binding-value b) e e w s mod)) + ((global) (values type n e e w s mod)) ((macro) (if for-car? - (values type (binding-value b) e w s mod) + (values type (binding-value b) e e w s mod) (syntax-type (expand-macro (binding-value b) e r w s rib mod) r empty-wrap s rib mod #f))) - (else (values type (binding-value b) e w s mod))))) + (else (values type (binding-value b) e e w s mod))))) ((pair? e) (let ((first (car e))) (call-with-values (lambda () (syntax-type first r w s rib mod #t)) - (lambda (ftype fval fe fw fs fmod) + (lambda (ftype fval fform fe fw fs fmod) (case ftype ((lexical) - (values 'lexical-call fval e w s mod)) + (values 'lexical-call fval e e w s mod)) ((global) ;; If we got here via an (@@ ...) expansion, we need to ;; make sure the fmod information is propagated back ;; correctly -- hence this consing. (values 'global-call (make-syntax-object fval w fmod) - e w s mod)) + e e w s mod)) ((macro) (syntax-type (expand-macro fval e r w s rib mod) r empty-wrap s rib mod for-car?)) @@ -1209,23 +1212,24 @@ (lambda (e r w s mod) (syntax-type e r w s rib mod for-car?)))) ((core) - (values 'core-form fval e w s mod)) + (values 'core-form fval e e w s mod)) ((local-syntax) - (values 'local-syntax-form fval e w s mod)) + (values 'local-syntax-form fval e e w s mod)) ((begin) - (values 'begin-form #f e w s mod)) + (values 'begin-form #f e e w s mod)) ((eval-when) - (values 'eval-when-form #f e w s mod)) + (values 'eval-when-form #f e e w s mod)) ((define) (syntax-case e () ((_ name val) (id? #'name) - (values 'define-form #'name #'val w s mod)) + (values 'define-form #'name e #'val w s mod)) ((_ (name . args) e1 e2 ...) (and (id? #'name) (valid-bound-ids? (lambda-var-list #'args))) ;; need lambda here... (values 'define-form (wrap #'name w mod) + (wrap e w mod) (decorate-source (cons #'lambda (wrap #'(args e1 e2 ...) w mod)) s) @@ -1233,38 +1237,39 @@ ((_ name) (id? #'name) (values 'define-form (wrap #'name w mod) + (wrap e w mod) #'(if #f #f) empty-wrap s mod)))) ((define-syntax) (syntax-case e () ((_ name val) (id? #'name) - (values 'define-syntax-form #'name #'val w s mod)))) + (values 'define-syntax-form #'name e #'val w s mod)))) ((define-syntax-parameter) (syntax-case e () ((_ name val) (id? #'name) - (values 'define-syntax-parameter-form #'name #'val w s mod)))) + (values 'define-syntax-parameter-form #'name e #'val w s mod)))) (else - (values 'call #f e w s mod))))))) + (values 'call #f e e w s mod))))))) ((syntax-object? e) (syntax-type (syntax-object-expression e) r (join-wraps w (syntax-object-wrap e)) (or (source-annotation e) s) rib (or (syntax-object-module e) mod) for-car?)) - ((self-evaluating? e) (values 'constant #f e w s mod)) - (else (values 'other #f e w s mod))))) + ((self-evaluating? e) (values 'constant #f e e w s mod)) + (else (values 'other #f e e w s mod))))) (define expand (lambda (e r w mod) (call-with-values (lambda () (syntax-type e r w (source-annotation e) #f mod #f)) - (lambda (type value e w s mod) - (expand-expr type value e r w s mod))))) + (lambda (type value form e w s mod) + (expand-expr type value form e r w s mod))))) (define expand-expr - (lambda (type value e r w s mod) + (lambda (type value form e r w s mod) (case type ((lexical) (build-lexical-reference 'value s e value)) @@ -1318,8 +1323,8 @@ (expand-sequence #'(e1 e2 ...) r w s mod) (expand-void)))))) ((define-form define-syntax-form define-syntax-parameter-form) - (syntax-violation #f "definition in expression context" - e (wrap value w mod))) + (syntax-violation #f "definition in expression context, where definitions are not allowed," + (source-wrap form w s mod))) ((syntax) (syntax-violation #f "reference to pattern variable outside syntax form" (source-wrap e w s mod))) @@ -1463,7 +1468,7 @@ (let ((e (cdar body)) (er (caar body))) (call-with-values (lambda () (syntax-type e er empty-wrap (source-annotation er) ribcage mod #f)) - (lambda (type value e w s mod) + (lambda (type value form e w s mod) (case type ((define-form) (let ((id (wrap value w mod)) (label (gen-label))) @@ -2222,7 +2227,7 @@ ((_ (head tail ...) val) (call-with-values (lambda () (syntax-type #'head r empty-wrap no-source #f mod #t)) - (lambda (type value ee ww ss modmod) + (lambda (type value formform ee ww ss modmod) (case type ((module-ref) (let ((val (expand #'val r w mod))) From 0740cb49d1509c56184fc6802b4347ed8fc80a28 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 27 Jan 2012 13:11:58 +0100 Subject: [PATCH 15/32] more documentation on the process of loading source and compiled files * doc/ref/api-evaluation.texi (Load Paths): Move documentation of %load-path and related procedures here, from Build Config. Add docs for %load-compiled-path. * doc/ref/api-foreign.texi: * doc/ref/api-modules.texi: * doc/ref/api-options.texi: * doc/ref/scheme-using.texi: Update xrefs. --- doc/ref/api-evaluation.texi | 78 +++++++++++++++++++++++++++++++++---- doc/ref/api-foreign.texi | 10 ++--- doc/ref/api-modules.texi | 6 +-- doc/ref/api-options.texi | 50 ++++-------------------- doc/ref/scheme-using.texi | 5 ++- 5 files changed, 89 insertions(+), 60 deletions(-) diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi index f2b539e8f..ebd8771df 100644 --- a/doc/ref/api-evaluation.texi +++ b/doc/ref/api-evaluation.texi @@ -808,7 +808,15 @@ The procedure in the previous section look for Scheme code in the file system at specific location. Guile also has some procedures to search the load path for code. -For more on the @code{%load-path} variable, @xref{Build Config}. +@cindex @env{GUILE_LOAD_PATH} +@defvar %load-path +List of directories which should be searched for Scheme modules and +libraries. @code{%load-path} is initialized when Guile starts up to +@code{(list (%site-dir) (%library-dir) (%package-data-dir))}, prepended +with the contents of the @env{GUILE_LOAD_PATH} environment variable, if +it is set. @xref{Build Config}, for more on @code{%site-dir} and +related procedures. +@end defvar @deffn {Scheme Procedure} load-from-path filename Similar to @code{load}, but searches for @var{filename} in the load @@ -820,6 +828,7 @@ A user can extend the load path by calling @code{add-to-load-path}. @deffn {Scheme Syntax} add-to-load-path dir Add @var{dir} to the load path. +@end deffn For example, a script might include this form to add the directory that it is in to the load path: @@ -827,7 +836,6 @@ it is in to the load path: @example (add-to-load-path (dirname (current-filename))) @end example -@end deffn It's better to use @code{add-to-load-path} than to modify @code{%load-path} directly, because @code{add-to-load-path} takes care @@ -851,12 +859,11 @@ the C function takes only one argument, which can be either a string @deffn {Scheme Procedure} %search-load-path filename @deffnx {C Function} scm_sys_search_load_path (filename) -Search @code{%load-path} for the file named @var{filename}, -which must be readable by the current user. If @var{filename} -is found in the list of paths to search or is an absolute -pathname, return its full pathname. Otherwise, return -@code{#f}. Filenames may have any of the optional extensions -in the @code{%load-extensions} list; @code{%search-load-path} +Search @code{%load-path} for the file named @var{filename}, which must +be readable by the current user. If @var{filename} is found in the list +of paths to search or is an absolute pathname, return its full pathname. +Otherwise, return @code{#f}. Filenames may have any of the optional +extensions in the @code{%load-extensions} list; @code{%search-load-path} will try each extension automatically. @end deffn @@ -867,6 +874,61 @@ a file to load. By default, @code{%load-extensions} is bound to the list @code{("" ".scm")}. @end defvar +As mentioned above, when Guile searches the @code{%load-path} for a +source file, it will also search the @code{%load-compiled-path} for a +corresponding compiled file. If the compiled file is as new or newer +than the source file, it will be loaded instead of the source file, +using @code{load-compiled}. + +@defvar %load-compiled-path +Like @code{%load-path}, but for compiled files. By default, this path +has two entries: one for compiled files from Guile itself, and one for +site packages. +@end defvar + +When @code{primitive-load-path} searches the @code{%load-compiled-path} +for a corresponding compiled file for a relative path it does so by +appending @code{.go} to the relative path. For example, searching for +@code{ice-9/popen} could find +@code{/usr/lib/guile/2.0/ccache/ice-9/popen.go}, and use it instead of +@code{/usr/share/guile/2.0/ice-9/popen.scm}. + +If @code{primitive-load-path} does not find a corresponding @code{.go} +file in the @code{%load-compiled-path}, or the @code{.go} file is out of +date, it will search for a corresponding auto-compiled file in the +fallback path, possibly creating one if one does not exist. + +@xref{Installing Site Packages}, for more on how to correctly install +site packages. @xref{Modules and the File System}, for more on the +relationship between load paths and modules. @xref{Compilation}, for +more on the fallback path and auto-compilation. + +Finally, there are a couple of helper procedures for general path +manipulation. + +@deffn {Scheme Procedure} parse-path path [tail] +@deffnx {C Function} scm_parse_path (path, tail) +Parse @var{path}, which is expected to be a colon-separated string, into +a list and return the resulting list with @var{tail} appended. If +@var{path} is @code{#f}, @var{tail} is returned. +@end deffn + +@deffn {Scheme Procedure} search-path path filename [extensions [require-exts?]] +@deffnx {C Function} scm_search_path (path, filename, rest) +Search @var{path} for a directory containing a file named +@var{filename}. The file must be readable, and not a directory. If we +find one, return its full filename; otherwise, return @code{#f}. If +@var{filename} is absolute, return it unchanged. If given, +@var{extensions} is a list of strings; for each directory in @var{path}, +we search for @var{filename} concatenated with each @var{extension}. If +@var{require-exts?} is true, require that the returned file name have +one of the given extensions; if @var{require-exts?} is not given, it +defaults to @code{#f}. + +For compatibility with Guile 1.8 and earlier, the C function takes only +three arguments. +@end deffn + @node Character Encoding of Source Files @subsection Character Encoding of Source Files diff --git a/doc/ref/api-foreign.texi b/doc/ref/api-foreign.texi index 82925e68d..6ece7f8ed 100644 --- a/doc/ref/api-foreign.texi +++ b/doc/ref/api-foreign.texi @@ -425,11 +425,11 @@ its own @code{gettext} message catalogue (@pxref{Internationalization}). It will be noted all of the above requires that the Scheme code to be -found in @code{%load-path} (@pxref{Build Config}). Presently it's -left up to the system administrator or each user to augment that path -when installing Guile modules in non-default locations. But having -reached the Scheme code, that code should take care of hitting any of -its own private files etc. +found in @code{%load-path} (@pxref{Load Paths}). Presently it's left up +to the system administrator or each user to augment that path when +installing Guile modules in non-default locations. But having reached +the Scheme code, that code should take care of hitting any of its own +private files etc. @node Foreign Pointers diff --git a/doc/ref/api-modules.texi b/doc/ref/api-modules.texi index 3c96c2a55..b9f975864 100644 --- a/doc/ref/api-modules.texi +++ b/doc/ref/api-modules.texi @@ -98,8 +98,8 @@ types of access are handled by the syntactic form @code{use-modules}, which accepts one or more interface specifications and, upon evaluation, arranges for those interfaces to be available to the current module. This process may include locating and loading code for a given module if -that code has not yet been loaded, following @code{%load-path} (@pxref{Build -Config}). +that code has not yet been loaded, following @code{%load-path} +(@pxref{Modules and the File System}). An @dfn{interface specification} has one of two forms. The first variation is simply to name the module, in which case its public @@ -464,7 +464,7 @@ from in the @dfn{load path}. In this case, loading @code{(ice-9 popen)} will eventually cause Guile to run @code{(primitive-load-path "ice-9/popen")}. @code{primitive-load-path} will search for a file @file{ice-9/popen} in -the @code{%load-path} (@pxref{Build Config}). For each directory in +the @code{%load-path} (@pxref{Load Paths}). For each directory in @code{%load-path}, Guile will try to find the file name, concatenated with the extensions from @code{%load-extensions}. By default, this will cause Guile to @code{stat} @file{ice-9/popen.scm}, and then diff --git a/doc/ref/api-options.texi b/doc/ref/api-options.texi index 6f7568bee..f63597824 100644 --- a/doc/ref/api-options.texi +++ b/doc/ref/api-options.texi @@ -1,6 +1,6 @@ @c -*-texinfo-*- @c This is part of the GNU Guile Reference Manual. -@c Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2008, 2009, 2010, 2011 +@c Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2006, 2008, 2009, 2010, 2011, 2012 @c Free Software Foundation, Inc. @c See the file guile.texi for copying conditions. @@ -59,14 +59,14 @@ The @code{effective-version} function returns the version name that should remain unchanged during a stable series. Currently that means that it omits the micro version. The effective version should be used for items like the versioned share directory name -i.e.@: @file{/usr/share/guile/1.6/} +i.e.@: @file{/usr/share/guile/2.0/} @lisp -(version) @result{} "1.6.0" -(effective-version) @result{} "1.6" -(major-version) @result{} "1" -(minor-version) @result{} "6" -(micro-version) @result{} "0" +(version) @result{} "2.0.4" +(effective-version) @result{} "2.0" +(major-version) @result{} "2" +(minor-version) @result{} "0" +(micro-version) @result{} "4" @end lisp @end deffn @@ -86,7 +86,7 @@ party package) are installed. On Unix-like systems this is usually @file{/usr/share/guile/@var{GUILE_EFFECTIVE_VERSION}}; @noindent -for example @file{/usr/local/share/guile/1.6}. +for example @file{/usr/local/share/guile/2.0}. @end deffn @deffn {Scheme Procedure} %site-dir @@ -96,40 +96,6 @@ your site should be installed. On Unix-like systems, this is usually @file{/usr/local/share/guile/site} or @file{/usr/share/guile/site}. @end deffn -@cindex @env{GUILE_LOAD_PATH} -@defvar %load-path -List of directories which should be searched for Scheme modules and -libraries. @code{%load-path} is initialized when Guile starts up to -@code{(list (%site-dir) (%library-dir) (%package-data-dir))}, -prepended with the contents of the @env{GUILE_LOAD_PATH} environment variable, -if it is set. -@end defvar - -@deffn {Scheme Procedure} parse-path path [tail] -@deffnx {C Function} scm_parse_path (path, tail) -Parse @var{path}, which is expected to be a colon-separated -string, into a list and return the resulting list with -@var{tail} appended. If @var{path} is @code{#f}, @var{tail} -is returned. -@end deffn - -@deffn {Scheme Procedure} search-path path filename [extensions [require-exts?]] -@deffnx {C Function} scm_search_path (path, filename, rest) -Search @var{path} for a directory containing a file named -@var{filename}. The file must be readable, and not a directory. -If we find one, return its full filename; otherwise, return -@code{#f}. If @var{filename} is absolute, return it unchanged. -If given, @var{extensions} is a list of strings; for each -directory in @var{path}, we search for @var{filename} -concatenated with each @var{extension}. If @var{require-exts?} -is true, require that the returned file name have one of the -given extensions; if @var{require-exts?} is not given, it -defaults to @code{#f}. - -For compatibility with Guile 1.8 and earlier, the C function takes only -three arguments -@end deffn - @defvar %guile-build-info Alist of information collected during the building of a particular Guile. Entries can be grouped into one of several categories: diff --git a/doc/ref/scheme-using.texi b/doc/ref/scheme-using.texi index 07096bb41..ae608d70a 100644 --- a/doc/ref/scheme-using.texi +++ b/doc/ref/scheme-using.texi @@ -1,6 +1,6 @@ @c -*-texinfo-*- @c This is part of the GNU Guile Reference Manual. -@c Copyright (C) 2006, 2010, 2011 +@c Copyright (C) 2006, 2010, 2011, 2012 @c Free Software Foundation, Inc. @c See the file guile.texi for copying conditions. @@ -780,7 +780,8 @@ site packages will be Note that a @code{.go} file will only be loaded in preference to a @code{.scm} file if it is newer. For that reason, you should install -your Scheme files first, and your compiled files second. +your Scheme files first, and your compiled files second. @code{Load +Paths}, for more on the loading process. Finally, although this section is only about Scheme, sometimes you need to install C extensions too. Shared libraries should be installed in From eb7da3d81f565ae20b0a35dda0607537e969ff59 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 27 Jan 2012 16:26:36 +0100 Subject: [PATCH 16/32] document `include', `include-from-path' * doc/ref/api-evaluation.texi (Local Inclusion): New section. --- doc/ref/api-evaluation.texi | 62 +++++++++++++++++++++++++++++++++++++ 1 file changed, 62 insertions(+) diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi index ebd8771df..90cae45bd 100644 --- a/doc/ref/api-evaluation.texi +++ b/doc/ref/api-evaluation.texi @@ -21,6 +21,7 @@ loading, evaluating, and compiling Scheme code at run time. * Character Encoding of Source Files:: Loading non-ASCII Scheme code from file. * Delayed Evaluation:: Postponing evaluation until it is needed. * Local Evaluation:: Evaluation in a local lexical environment. +* Local Inclusion:: Compile-time inclusion of one file in another. @end menu @@ -1101,6 +1102,67 @@ captured syntactic keywords via @code{local-eval} or @code{local-compile} produces an error. +@node Local Inclusion +@subsection Local Inclusion + +This section has discussed various means of linking Scheme code +together: fundamentally, loading up files at run-time using @code{load} +and @code{load-compiled}. Guile provides another option to compose +parts of programs together at expansion-time instead of at run-time. + +@deffn {Scheme Syntax} include file-name +Open @var{file-name}, at expansion-time, and read the Scheme forms that +it contains, splicing them into the location of the @code{include}, +within a @code{begin}. +@end deffn + +If you are a C programmer, if @code{load} in Scheme is like +@code{dlopen} in C, consider @code{include} to be like the C +preprocessor's @code{#include}. When you use @code{include}, it is as +if the contents of the included file were typed in instead of the +@code{include} form. + +Because the code is included at compile-time, it is available to the +macroexpander. Syntax definitions in the included file are available to +later code in the form in which the @code{include} appears, without the +need for @code{eval-when}. (@xref{Eval When}.) + +For the same reason, compiling a form that uses @code{include} results +in one compilation unit, composed of multiple files. Loading the +compiled file is one @code{stat} operation for the compilation unit, +instead of @code{2*@var{n}} in the case of @code{load} (once for each +loaded source file, and once each corresponding compiled file, in the +best case). + +Unlike @code{load}, @code{include} also works within nested lexical +contexts. It so happens that the optimizer works best within a lexical +context, because all of the uses of bindings in a lexical context are +visible, so composing files by including them within a @code{(let () +...)} can sometimes lead to important speed improvements. + +On the other hand, @code{include} does have all the disadvantages of +early binding: once the code with the @code{include} is compiled, no +change to the included file is reflected in the future behavior of the +including form. + +Also, the particular form of @code{include}, which requires an absolute +path, or a path relative to the current directory at compile-time, is +not very amenable to compiling the source in one place, but then +installing the source to another place. For this reason, Guile provides +another form, @code{include-from-path}, which looks for the source file +to include within a load path. + +@deffn {Scheme Syntax} include-from-path file-name +Like @code{include}, but instead of expecting @code{file-name} to be an +absolute file name, it is expected to be a relative path to search in +the @code{%load-path}. +@end deffn + +@code{include-from-path} is more useful when you want to install all of +the source files for a package (as you should!). It makes it possible +to evaluate an installed file from source, instead of relying on the +@code{.go} file being up to date. + @c Local Variables: @c TeX-master: "guile.texi" @c End: From c0e4449908eee84bcb293ec21c10fec646bde45d Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 27 Jan 2012 19:09:23 +0100 Subject: [PATCH 17/32] vm-i-scheme.c slight refactor * libguile/vm-i-scheme.c: Refactor the RETURN macro to not include NEXT. Adapt all uses to NEXT on their own. --- libguile/vm-i-scheme.c | 170 ++++++++++++++++++++++++++++++----------- 1 file changed, 125 insertions(+), 45 deletions(-) diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 80328cde8..243e1a311 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -27,42 +27,48 @@ #define ARGS2(a1,a2) SCM a1 = sp[-1], a2 = sp[0]; sp--; NULLSTACK (1); #define ARGS3(a1,a2,a3) SCM a1 = sp[-2], a2 = sp[-1], a3 = sp[0]; sp -= 2; NULLSTACK (2); -#define RETURN(x) do { *sp = x; NEXT; } while (0) +#define RETURN(x) do { *sp = x; } while (0) VM_DEFINE_FUNCTION (128, not, "not", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_false (x))); + NEXT; } VM_DEFINE_FUNCTION (129, not_not, "not-not", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_false (x))); + NEXT; } VM_DEFINE_FUNCTION (130, eq, "eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (scm_is_eq (x, y))); + NEXT; } VM_DEFINE_FUNCTION (131, not_eq, "not-eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (!scm_is_eq (x, y))); + NEXT; } VM_DEFINE_FUNCTION (132, nullp, "null?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_null (x))); + NEXT; } VM_DEFINE_FUNCTION (133, not_nullp, "not-null?", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_null (x))); + NEXT; } VM_DEFINE_FUNCTION (134, eqv, "eqv?", 2) @@ -70,10 +76,14 @@ VM_DEFINE_FUNCTION (134, eqv, "eqv?", 2) ARGS2 (x, y); if (scm_is_eq (x, y)) RETURN (SCM_BOOL_T); - if (SCM_IMP (x) || SCM_IMP (y)) + else if (SCM_IMP (x) || SCM_IMP (y)) RETURN (SCM_BOOL_F); - SYNC_REGISTER (); - RETURN (scm_eqv_p (x, y)); + else + { + SYNC_REGISTER (); + RETURN (scm_eqv_p (x, y)); + } + NEXT; } VM_DEFINE_FUNCTION (135, equal, "equal?", 2) @@ -81,34 +91,42 @@ VM_DEFINE_FUNCTION (135, equal, "equal?", 2) ARGS2 (x, y); if (scm_is_eq (x, y)) RETURN (SCM_BOOL_T); - if (SCM_IMP (x) || SCM_IMP (y)) + else if (SCM_IMP (x) || SCM_IMP (y)) RETURN (SCM_BOOL_F); - SYNC_REGISTER (); - RETURN (scm_equal_p (x, y)); + else + { + SYNC_REGISTER (); + RETURN (scm_equal_p (x, y)); + } + NEXT; } VM_DEFINE_FUNCTION (136, pairp, "pair?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_pair (x))); + NEXT; } VM_DEFINE_FUNCTION (137, listp, "list?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_ilength (x) >= 0)); + NEXT; } VM_DEFINE_FUNCTION (138, symbolp, "symbol?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_symbol (x))); + NEXT; } VM_DEFINE_FUNCTION (139, vectorp, "vector?", 1) { ARGS1 (x); RETURN (scm_from_bool (SCM_I_IS_VECTOR (x))); + NEXT; } @@ -121,11 +139,13 @@ VM_DEFINE_FUNCTION (140, cons, "cons", 2) ARGS2 (x, y); CONS (x, x, y); RETURN (x); + NEXT; } #define VM_VALIDATE_CONS(x, proc) \ if (SCM_UNLIKELY (!scm_is_pair (x))) \ - { func_name = proc; \ + { \ + func_name = proc; \ finish_args = x; \ goto vm_error_not_a_pair; \ } @@ -135,6 +155,7 @@ VM_DEFINE_FUNCTION (141, car, "car", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "car"); RETURN (SCM_CAR (x)); + NEXT; } VM_DEFINE_FUNCTION (142, cdr, "cdr", 1) @@ -142,6 +163,7 @@ VM_DEFINE_FUNCTION (142, cdr, "cdr", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "cdr"); RETURN (SCM_CDR (x)); + NEXT; } VM_DEFINE_INSTRUCTION (143, set_car, "set-car!", 0, 2, 0) @@ -174,8 +196,12 @@ VM_DEFINE_INSTRUCTION (144, set_cdr, "set-cdr!", 0, 2, 0) if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \ RETURN (scm_from_bool (((scm_t_signed_bits) SCM_UNPACK (x)) \ crel ((scm_t_signed_bits) SCM_UNPACK (y)))); \ - SYNC_REGISTER (); \ - RETURN (srel (x, y)); \ + else \ + { \ + SYNC_REGISTER (); \ + RETURN (srel (x, y)); \ + } \ + NEXT; \ } VM_DEFINE_FUNCTION (145, ee, "ee?", 2) @@ -215,18 +241,22 @@ VM_DEFINE_FUNCTION (149, ge, "ge?", 2) #define INUM_MIN (INTPTR_MIN + scm_tc2_int) #undef FUNC2 -#define FUNC2(CFUNC,SFUNC) \ -{ \ - ARGS2 (x, y); \ - if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \ - { \ - scm_t_int64 n = SCM_I_INUM (x) CFUNC SCM_I_INUM (y);\ - if (SCM_FIXABLE (n)) \ - RETURN (SCM_I_MAKINUM (n)); \ - } \ - SYNC_REGISTER (); \ - RETURN (SFUNC (x, y)); \ -} +#define FUNC2(CFUNC,SFUNC) \ + { \ + ARGS2 (x, y); \ + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \ + { \ + scm_t_int64 n = SCM_I_INUM (x) CFUNC SCM_I_INUM (y); \ + if (SCM_FIXABLE (n)) \ + { \ + RETURN (SCM_I_MAKINUM (n)); \ + NEXT; \ + } \ + } \ + SYNC_REGISTER (); \ + RETURN (SFUNC (x, y)); \ + NEXT; \ + } /* Assembly tagged integer arithmetic routines. This code uses the `asm goto' feature introduced in GCC 4.5. */ @@ -289,6 +319,7 @@ VM_DEFINE_FUNCTION (150, add, "add", 2) ASM_ADD (x, y); SYNC_REGISTER (); RETURN (scm_sum (x, y)); + NEXT; #endif } @@ -307,11 +338,15 @@ VM_DEFINE_FUNCTION (151, add1, "add1", 1) - scm_tc2_int); if (SCM_LIKELY (SCM_I_INUMP (result))) - RETURN (result); + { + RETURN (result); + NEXT; + } } SYNC_REGISTER (); RETURN (scm_sum (x, SCM_I_MAKINUM (1))); + NEXT; } VM_DEFINE_FUNCTION (152, sub, "sub", 2) @@ -323,6 +358,7 @@ VM_DEFINE_FUNCTION (152, sub, "sub", 2) ASM_SUB (x, y); SYNC_REGISTER (); RETURN (scm_difference (x, y)); + NEXT; #endif } @@ -341,11 +377,15 @@ VM_DEFINE_FUNCTION (153, sub1, "sub1", 1) + scm_tc2_int); if (SCM_LIKELY (SCM_I_INUMP (result))) - RETURN (result); + { + RETURN (result); + NEXT; + } } SYNC_REGISTER (); RETURN (scm_difference (x, SCM_I_MAKINUM (1))); + NEXT; } # undef ASM_ADD @@ -356,6 +396,7 @@ VM_DEFINE_FUNCTION (154, mul, "mul", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_product (x, y)); + NEXT; } VM_DEFINE_FUNCTION (155, div, "div", 2) @@ -363,6 +404,7 @@ VM_DEFINE_FUNCTION (155, div, "div", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_divide (x, y)); + NEXT; } VM_DEFINE_FUNCTION (156, quo, "quo", 2) @@ -370,6 +412,7 @@ VM_DEFINE_FUNCTION (156, quo, "quo", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_quotient (x, y)); + NEXT; } VM_DEFINE_FUNCTION (157, rem, "rem", 2) @@ -377,6 +420,7 @@ VM_DEFINE_FUNCTION (157, rem, "rem", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_remainder (x, y)); + NEXT; } VM_DEFINE_FUNCTION (158, mod, "mod", 2) @@ -384,6 +428,7 @@ VM_DEFINE_FUNCTION (158, mod, "mod", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_modulo (x, y)); + NEXT; } VM_DEFINE_FUNCTION (159, ash, "ash", 2) @@ -393,7 +438,10 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) { if (SCM_I_INUM (y) < 0) /* Right shift, will be a fixnum. */ - RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); + { + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); + NEXT; + } else /* Left shift. See comments in scm_ash. */ { @@ -406,40 +454,56 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) && ((scm_t_bits) (SCM_SRS (nn, (SCM_I_FIXNUM_BIT-1 - bits_to_shift)) + 1) <= 1)) - RETURN (SCM_I_MAKINUM (nn << bits_to_shift)); + { + RETURN (SCM_I_MAKINUM (nn << bits_to_shift)); + NEXT; + } /* fall through */ } /* fall through */ } SYNC_REGISTER (); RETURN (scm_ash (x, y)); + NEXT; } VM_DEFINE_FUNCTION (160, logand, "logand", 2) { ARGS2 (x, y); - if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + if (SCM_LIKELY (SCM_I_INUMP (x) && SCM_I_INUMP (y))) RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) & SCM_I_INUM (y))); - SYNC_REGISTER (); - RETURN (scm_logand (x, y)); + else + { + SYNC_REGISTER (); + RETURN (scm_logand (x, y)); + } + NEXT; } VM_DEFINE_FUNCTION (161, logior, "logior", 2) { ARGS2 (x, y); - if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + if (SCM_LIKELY (SCM_I_INUMP (x) && SCM_I_INUMP (y))) RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) | SCM_I_INUM (y))); - SYNC_REGISTER (); - RETURN (scm_logior (x, y)); + else + { + SYNC_REGISTER (); + RETURN (scm_logior (x, y)); + } + NEXT; } VM_DEFINE_FUNCTION (162, logxor, "logxor", 2) { ARGS2 (x, y); - if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) + if (SCM_LIKELY (SCM_I_INUMP (x) && SCM_I_INUMP (y))) RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) ^ SCM_I_INUM (y))); - SYNC_REGISTER (); - RETURN (scm_logxor (x, y)); + else + { + SYNC_REGISTER (); + RETURN (scm_logxor (x, y)); + } + NEXT; } @@ -461,6 +525,7 @@ VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2) SYNC_REGISTER (); RETURN (scm_vector_ref (vect, idx)); } + NEXT; } VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 0) @@ -514,6 +579,7 @@ VM_DEFINE_FUNCTION (166, struct_p, "struct?", 1) { ARGS1 (obj); RETURN (scm_from_bool (SCM_STRUCTP (obj))); + NEXT; } VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1) @@ -521,6 +587,7 @@ VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1) ARGS1 (obj); VM_VALIDATE_STRUCT (obj, "struct_vtable"); RETURN (SCM_STRUCT_VTABLE (obj)); + NEXT; } VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, -1, 1) @@ -577,13 +644,15 @@ VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2) if (SCM_LIKELY (index < len)) { - scm_t_bits *data = SCM_STRUCT_DATA (obj); - RETURN (SCM_PACK (data[index])); + scm_t_bits *data = SCM_STRUCT_DATA (obj); + RETURN (SCM_PACK (data[index])); + NEXT; } } SYNC_REGISTER (); RETURN (scm_struct_ref (obj, pos)); + NEXT; } VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3) @@ -606,14 +675,16 @@ VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3) len = SCM_STRUCT_DATA_REF (vtable, scm_vtable_index_size); if (SCM_LIKELY (index < len)) { - scm_t_bits *data = SCM_STRUCT_DATA (obj); - data[index] = SCM_UNPACK (val); - RETURN (val); + scm_t_bits *data = SCM_STRUCT_DATA (obj); + data[index] = SCM_UNPACK (val); + RETURN (val); + NEXT; } } SYNC_REGISTER (); RETURN (scm_struct_set_x (obj, pos, val)); + NEXT; } @@ -625,8 +696,12 @@ VM_DEFINE_FUNCTION (171, class_of, "class-of", 1) ARGS1 (obj); if (SCM_INSTANCEP (obj)) RETURN (SCM_CLASS_OF (obj)); - SYNC_REGISTER (); - RETURN (scm_class_of (obj)); + else + { + SYNC_REGISTER (); + RETURN (scm_class_of (obj)); + } + NEXT; } /* FIXME: No checking whatsoever. */ @@ -636,6 +711,7 @@ VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2) ARGS2 (instance, idx); slot = SCM_I_INUM (idx); RETURN (SCM_PACK (SCM_STRUCT_DATA (instance) [slot])); + NEXT; } /* FIXME: No checking whatsoever. */ @@ -675,6 +751,7 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0) ARGS2 (bv, idx); \ SYNC_REGISTER (); \ RETURN (scm_bytevector_##fn_stem##_ref (bv, idx, endianness)); \ + NEXT; \ } \ } @@ -715,12 +792,13 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) && (i >= 0) \ && (i + size <= SCM_BYTEVECTOR_LENGTH (bv)) \ && (ALIGNED_P (int_ptr, scm_t_ ## type)))) \ - RETURN (SCM_I_MAKINUM (*int_ptr)); \ + RETURN (SCM_I_MAKINUM (*int_ptr)); \ else \ { \ SYNC_REGISTER (); \ - RETURN (scm_bytevector_ ## fn_stem ## _ref (bv, idx)); \ + RETURN (scm_bytevector_ ## fn_stem ## _ref (bv, idx)); \ } \ + NEXT; \ } #define BV_INT_REF(stem, type, size) \ @@ -752,6 +830,7 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ RETURN (scm_bytevector_ ## stem ## _native_ref (bv, idx)); \ } \ + NEXT; \ } #define BV_FLOAT_REF(stem, fn_stem, type, size) \ @@ -772,6 +851,7 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) RETURN (scm_from_double (*float_ptr)); \ else \ RETURN (scm_bytevector_ ## fn_stem ## _native_ref (bv, idx)); \ + NEXT; \ } VM_DEFINE_FUNCTION (182, bv_u8_ref, "bv-u8-ref", 2) From 04b2d773548c57b6eadd1808a8d15cce47af9630 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 27 Jan 2012 19:04:46 +0100 Subject: [PATCH 18/32] attempt to clear stale references on VM C stack * libguile/vm-engine.h (DEAD): New macro, nulls out a value. * libguile/vm-i-system.c: * libguile/vm-i-loader.c: * libguile/vm-i-scheme.c: Use DEAD when variables become dead. Later we can #ifdef this out, but I want to give the buildbots a try with this patch to make sure it's correct. --- libguile/vm-engine.h | 9 ++- libguile/vm-i-loader.c | 8 ++- libguile/vm-i-scheme.c | 122 ++++++++++++++++++++++++++++++++++++++++- libguile/vm-i-system.c | 100 +++++++++++++++++++++++++++++++-- 4 files changed, 229 insertions(+), 10 deletions(-) diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h index 000397de2..52467c229 100644 --- a/libguile/vm-engine.h +++ b/libguile/vm-engine.h @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -152,6 +152,8 @@ #define ASSERT_BOUND(x) #endif +#define DEAD(v) v = SCM_UNDEFINED + #if VM_CHECK_OBJECT #define SET_OBJECT_COUNT(n) object_count = n #else @@ -325,6 +327,7 @@ do \ CONS (l, x, l); \ } \ PUSH (l); \ + DEAD (l); \ } while (0) /* The opposite: push all of the elements in L onto the list. */ @@ -350,7 +353,9 @@ do { \ CONS (l, o, l); \ POP (o); \ } \ + DEAD (o); \ PUSH (l); \ + DEAD (l); \ } while (0) #define POP_CONS_MARK() \ @@ -363,7 +368,9 @@ do { \ CONS (l, o, l); \ POP (o); \ } \ + DEAD (o); \ PUSH (l); \ + DEAD (l); \ } while (0) diff --git a/libguile/vm-i-loader.c b/libguile/vm-i-loader.c index 6fa8eb2ea..19f527135 100644 --- a/libguile/vm-i-loader.c +++ b/libguile/vm-i-loader.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001,2008,2009,2010,2011 Free Software Foundation, Inc. +/* Copyright (C) 2001,2008,2009,2010,2011,2012 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -73,6 +73,9 @@ VM_DEFINE_LOADER (104, load_program, "load-program") PUSH (scm_make_program (objcode, objs, SCM_BOOL_F)); + DEAD (objs); + DEAD (objcode); + ip += len; NEXT; @@ -84,6 +87,7 @@ VM_DEFINE_INSTRUCTION (105, link_now, "link-now", 0, 1, 1) POP (what); SYNC_REGISTER (); PUSH (resolve_variable (what, scm_current_module ())); + DEAD (what); NEXT; } @@ -95,6 +99,8 @@ VM_DEFINE_LOADER (106, load_array, "load-array") POP2 (shape, type); SYNC_REGISTER (); PUSH (scm_from_contiguous_typed_array (type, shape, ip, len)); + DEAD (type); + DEAD (shape); ip += len; NEXT; } diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 243e1a311..fa1179eb4 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -33,6 +33,7 @@ VM_DEFINE_FUNCTION (128, not, "not", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_false (x))); + DEAD (x); NEXT; } @@ -40,6 +41,7 @@ VM_DEFINE_FUNCTION (129, not_not, "not-not", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_false (x))); + DEAD (x); NEXT; } @@ -47,6 +49,8 @@ VM_DEFINE_FUNCTION (130, eq, "eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (scm_is_eq (x, y))); + DEAD (x); + DEAD (y); NEXT; } @@ -54,6 +58,8 @@ VM_DEFINE_FUNCTION (131, not_eq, "not-eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (!scm_is_eq (x, y))); + DEAD (x); + DEAD (y); NEXT; } @@ -61,6 +67,7 @@ VM_DEFINE_FUNCTION (132, nullp, "null?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_null (x))); + DEAD (x); NEXT; } @@ -68,6 +75,7 @@ VM_DEFINE_FUNCTION (133, not_nullp, "not-null?", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_null (x))); + DEAD (x); NEXT; } @@ -83,6 +91,8 @@ VM_DEFINE_FUNCTION (134, eqv, "eqv?", 2) SYNC_REGISTER (); RETURN (scm_eqv_p (x, y)); } + DEAD (x); + DEAD (y); NEXT; } @@ -98,6 +108,8 @@ VM_DEFINE_FUNCTION (135, equal, "equal?", 2) SYNC_REGISTER (); RETURN (scm_equal_p (x, y)); } + DEAD (x); + DEAD (y); NEXT; } @@ -105,6 +117,7 @@ VM_DEFINE_FUNCTION (136, pairp, "pair?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_pair (x))); + DEAD (x); NEXT; } @@ -112,6 +125,7 @@ VM_DEFINE_FUNCTION (137, listp, "list?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_ilength (x) >= 0)); + DEAD (x); NEXT; } @@ -119,6 +133,7 @@ VM_DEFINE_FUNCTION (138, symbolp, "symbol?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_symbol (x))); + DEAD (x); NEXT; } @@ -126,6 +141,7 @@ VM_DEFINE_FUNCTION (139, vectorp, "vector?", 1) { ARGS1 (x); RETURN (scm_from_bool (SCM_I_IS_VECTOR (x))); + DEAD (x); NEXT; } @@ -139,6 +155,8 @@ VM_DEFINE_FUNCTION (140, cons, "cons", 2) ARGS2 (x, y); CONS (x, x, y); RETURN (x); + DEAD (x); + DEAD (y); NEXT; } @@ -155,6 +173,7 @@ VM_DEFINE_FUNCTION (141, car, "car", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "car"); RETURN (SCM_CAR (x)); + DEAD (x); NEXT; } @@ -163,6 +182,7 @@ VM_DEFINE_FUNCTION (142, cdr, "cdr", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "cdr"); RETURN (SCM_CDR (x)); + DEAD (x); NEXT; } @@ -172,6 +192,8 @@ VM_DEFINE_INSTRUCTION (143, set_car, "set-car!", 0, 2, 0) POP2 (y, x); VM_VALIDATE_CONS (x, "set-car!"); SCM_SETCAR (x, y); + DEAD (x); + DEAD (y); NEXT; } @@ -181,6 +203,8 @@ VM_DEFINE_INSTRUCTION (144, set_cdr, "set-cdr!", 0, 2, 0) POP2 (y, x); VM_VALIDATE_CONS (x, "set-cdr!"); SCM_SETCDR (x, y); + DEAD (x); + DEAD (y); NEXT; } @@ -201,6 +225,8 @@ VM_DEFINE_INSTRUCTION (144, set_cdr, "set-cdr!", 0, 2, 0) SYNC_REGISTER (); \ RETURN (srel (x, y)); \ } \ + DEAD (x); \ + DEAD (y); \ NEXT; \ } @@ -250,11 +276,15 @@ VM_DEFINE_FUNCTION (149, ge, "ge?", 2) if (SCM_FIXABLE (n)) \ { \ RETURN (SCM_I_MAKINUM (n)); \ + DEAD (x); \ + DEAD (y); \ NEXT; \ } \ } \ SYNC_REGISTER (); \ RETURN (SFUNC (x, y)); \ + DEAD (x); \ + DEAD (y); \ NEXT; \ } @@ -319,6 +349,8 @@ VM_DEFINE_FUNCTION (150, add, "add", 2) ASM_ADD (x, y); SYNC_REGISTER (); RETURN (scm_sum (x, y)); + DEAD (x); + DEAD (y); NEXT; #endif } @@ -340,12 +372,15 @@ VM_DEFINE_FUNCTION (151, add1, "add1", 1) if (SCM_LIKELY (SCM_I_INUMP (result))) { RETURN (result); + DEAD (result); NEXT; } + DEAD (result); } SYNC_REGISTER (); RETURN (scm_sum (x, SCM_I_MAKINUM (1))); + DEAD (x); NEXT; } @@ -358,6 +393,8 @@ VM_DEFINE_FUNCTION (152, sub, "sub", 2) ASM_SUB (x, y); SYNC_REGISTER (); RETURN (scm_difference (x, y)); + DEAD (x); + DEAD (y); NEXT; #endif } @@ -379,12 +416,15 @@ VM_DEFINE_FUNCTION (153, sub1, "sub1", 1) if (SCM_LIKELY (SCM_I_INUMP (result))) { RETURN (result); + DEAD (result); NEXT; } + DEAD (result); } SYNC_REGISTER (); RETURN (scm_difference (x, SCM_I_MAKINUM (1))); + DEAD (x); NEXT; } @@ -396,6 +436,8 @@ VM_DEFINE_FUNCTION (154, mul, "mul", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_product (x, y)); + DEAD (x); + DEAD (y); NEXT; } @@ -404,6 +446,8 @@ VM_DEFINE_FUNCTION (155, div, "div", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_divide (x, y)); + DEAD (x); + DEAD (y); NEXT; } @@ -412,6 +456,8 @@ VM_DEFINE_FUNCTION (156, quo, "quo", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_quotient (x, y)); + DEAD (x); + DEAD (y); NEXT; } @@ -420,6 +466,8 @@ VM_DEFINE_FUNCTION (157, rem, "rem", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_remainder (x, y)); + DEAD (x); + DEAD (y); NEXT; } @@ -428,6 +476,8 @@ VM_DEFINE_FUNCTION (158, mod, "mod", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_modulo (x, y)); + DEAD (x); + DEAD (y); NEXT; } @@ -440,6 +490,8 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) /* Right shift, will be a fixnum. */ { RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); + DEAD (x); + DEAD (y); NEXT; } else @@ -455,6 +507,8 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) (SCM_SRS (nn, (SCM_I_FIXNUM_BIT-1 - bits_to_shift)) + 1) <= 1)) { + DEAD (x); + DEAD (y); RETURN (SCM_I_MAKINUM (nn << bits_to_shift)); NEXT; } @@ -464,6 +518,8 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) } SYNC_REGISTER (); RETURN (scm_ash (x, y)); + DEAD (x); + DEAD (y); NEXT; } @@ -477,6 +533,8 @@ VM_DEFINE_FUNCTION (160, logand, "logand", 2) SYNC_REGISTER (); RETURN (scm_logand (x, y)); } + DEAD (x); + DEAD (y); NEXT; } @@ -490,6 +548,8 @@ VM_DEFINE_FUNCTION (161, logior, "logior", 2) SYNC_REGISTER (); RETURN (scm_logior (x, y)); } + DEAD (x); + DEAD (y); NEXT; } @@ -503,6 +563,8 @@ VM_DEFINE_FUNCTION (162, logxor, "logxor", 2) SYNC_REGISTER (); RETURN (scm_logxor (x, y)); } + DEAD (x); + DEAD (y); NEXT; } @@ -525,6 +587,8 @@ VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2) SYNC_REGISTER (); RETURN (scm_vector_ref (vect, idx)); } + DEAD (vect); + DEAD (idx); NEXT; } @@ -543,6 +607,9 @@ VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 0) SYNC_REGISTER (); scm_vector_set_x (vect, idx, val); } + DEAD (vect); + DEAD (idx); + DEAD (val); NEXT; } @@ -558,8 +625,10 @@ VM_DEFINE_INSTRUCTION (165, make_array, "make-array", 3, -1, 1) SYNC_REGISTER (); PRE_CHECK_UNDERFLOW (len); ret = scm_from_contiguous_array (shape, sp - len + 1, len); + DEAD (shape); DROPN (len); PUSH (ret); + DEAD (ret); NEXT; } @@ -579,6 +648,7 @@ VM_DEFINE_FUNCTION (166, struct_p, "struct?", 1) { ARGS1 (obj); RETURN (scm_from_bool (SCM_STRUCTP (obj))); + DEAD (obj); NEXT; } @@ -587,6 +657,7 @@ VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1) ARGS1 (obj); VM_VALIDATE_STRUCT (obj, "struct_vtable"); RETURN (SCM_STRUCT_VTABLE (obj)); + DEAD (obj); NEXT; } @@ -616,9 +687,11 @@ VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, -1, 1) } else ret = scm_c_make_structv (vtable, 0, n - 1, (scm_t_bits *) inits); + DEAD (vtable); DROPN (n); PUSH (ret); + DEAD (ret); NEXT; } @@ -646,12 +719,16 @@ VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2) { scm_t_bits *data = SCM_STRUCT_DATA (obj); RETURN (SCM_PACK (data[index])); + DEAD (obj); + DEAD (pos); NEXT; } } SYNC_REGISTER (); RETURN (scm_struct_ref (obj, pos)); + DEAD (obj); + DEAD (pos); NEXT; } @@ -677,13 +754,20 @@ VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3) { scm_t_bits *data = SCM_STRUCT_DATA (obj); data[index] = SCM_UNPACK (val); + /* FIXME: Shouldn't be returning anything, right? */ RETURN (val); + DEAD (obj); + DEAD (pos); + DEAD (val); NEXT; } } SYNC_REGISTER (); RETURN (scm_struct_set_x (obj, pos, val)); + DEAD (obj); + DEAD (pos); + DEAD (val); NEXT; } @@ -701,6 +785,7 @@ VM_DEFINE_FUNCTION (171, class_of, "class-of", 1) SYNC_REGISTER (); RETURN (scm_class_of (obj)); } + DEAD (obj); NEXT; } @@ -710,7 +795,9 @@ VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2) size_t slot; ARGS2 (instance, idx); slot = SCM_I_INUM (idx); + DEAD (idx); RETURN (SCM_PACK (SCM_STRUCT_DATA (instance) [slot])); + DEAD (instance); NEXT; } @@ -721,7 +808,10 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0) size_t slot; POP3 (val, idx, instance); slot = SCM_I_INUM (idx); + DEAD (idx); SCM_STRUCT_DATA (instance) [slot] = SCM_UNPACK (val); + DEAD (instance); + DEAD (val); NEXT; } @@ -746,11 +836,17 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0) SCM endianness; \ POP (endianness); \ if (scm_is_eq (endianness, scm_i_native_endianness)) \ - goto VM_LABEL (bv_##stem##_native_ref); \ + { \ + DEAD (endianness); \ + goto VM_LABEL (bv_##stem##_native_ref); \ + } \ { \ ARGS2 (bv, idx); \ SYNC_REGISTER (); \ RETURN (scm_bytevector_##fn_stem##_ref (bv, idx, endianness)); \ + DEAD (bv); \ + DEAD (idx); \ + DEAD (endianness); \ NEXT; \ } \ } @@ -798,6 +894,8 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ RETURN (scm_bytevector_ ## fn_stem ## _ref (bv, idx)); \ } \ + DEAD (bv); \ + DEAD (idx); \ NEXT; \ } @@ -830,6 +928,8 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ RETURN (scm_bytevector_ ## stem ## _native_ref (bv, idx)); \ } \ + DEAD (bv); \ + DEAD (idx); \ NEXT; \ } @@ -851,6 +951,8 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) RETURN (scm_from_double (*float_ptr)); \ else \ RETURN (scm_bytevector_ ## fn_stem ## _native_ref (bv, idx)); \ + DEAD (bv); \ + DEAD (idx); \ NEXT; \ } @@ -894,11 +996,18 @@ BV_FLOAT_REF (f64, ieee_double, double, 8) SCM endianness; \ POP (endianness); \ if (scm_is_eq (endianness, scm_i_native_endianness)) \ - goto VM_LABEL (bv_##stem##_native_set); \ + { \ + DEAD (endianness); \ + goto VM_LABEL (bv_##stem##_native_set); \ + } \ { \ SCM bv, idx, val; POP3 (val, idx, bv); \ SYNC_REGISTER (); \ scm_bytevector_##fn_stem##_set_x (bv, idx, val, endianness); \ + DEAD (bv); \ + DEAD (idx); \ + DEAD (val); \ + DEAD (endianness); \ NEXT; \ } \ } @@ -946,6 +1055,9 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ scm_bytevector_ ## fn_stem ## _set_x (bv, idx, val); \ } \ + DEAD (bv); \ + DEAD (idx); \ + DEAD (val); \ NEXT; \ } @@ -970,6 +1082,9 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ scm_bytevector_ ## stem ## _native_set_x (bv, idx, val); \ } \ + DEAD (bv); \ + DEAD (idx); \ + DEAD (val); \ NEXT; \ } @@ -994,6 +1109,9 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ scm_bytevector_ ## fn_stem ## _native_set_x (bv, idx, val); \ } \ + DEAD (bv); \ + DEAD (idx); \ + DEAD (val); \ NEXT; \ } diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 7a7bccc1b..1e3c2e54b 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -84,6 +84,7 @@ VM_DEFINE_INSTRUCTION (3, dup, "dup", 0, 0, 1) { SCM x = *sp; PUSH (x); + DEAD (x); NEXT; } @@ -226,6 +227,7 @@ VM_DEFINE_INSTRUCTION (18, vector, "vector", 2, -1, 1) memcpy (SCM_I_VECTOR_WELTS(vect), sp, sizeof(SCM) * len); NULLSTACK (len); *sp = vect; + DEAD (vect); NEXT; } @@ -330,6 +332,7 @@ VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 1, 1) { SCM o = VARIABLE_REF (x); *sp = o; + DEAD (o); } NEXT; @@ -347,18 +350,20 @@ VM_DEFINE_INSTRUCTION (26, variable_bound, "variable-bound?", 0, 1, 1) } else *sp = scm_from_bool (VARIABLE_BOUNDP (x)); + DEAD (x); NEXT; } VM_DEFINE_INSTRUCTION (27, toplevel_ref, "toplevel-ref", 1, 0, 1) { unsigned objnum = FETCH (); - SCM what, resolved; + SCM what; CHECK_OBJECT (objnum); what = OBJECT_REF (objnum); if (!SCM_VARIABLEP (what)) { + SCM resolved; SYNC_REGISTER (); resolved = resolve_variable (what, scm_program_module (program)); if (!VARIABLE_BOUNDP (resolved)) @@ -367,16 +372,18 @@ VM_DEFINE_INSTRUCTION (27, toplevel_ref, "toplevel-ref", 1, 0, 1) goto vm_error_unbound; } what = resolved; + DEAD (resolved); OBJECT_SET (objnum, what); } PUSH (VARIABLE_REF (what)); + DEAD (what); NEXT; } VM_DEFINE_INSTRUCTION (28, long_toplevel_ref, "long-toplevel-ref", 2, 0, 1) { - SCM what, resolved; + SCM what; unsigned int objnum = FETCH (); objnum <<= 8; objnum += FETCH (); @@ -385,6 +392,7 @@ VM_DEFINE_INSTRUCTION (28, long_toplevel_ref, "long-toplevel-ref", 2, 0, 1) if (!SCM_VARIABLEP (what)) { + SCM resolved; SYNC_REGISTER (); resolved = resolve_variable (what, scm_program_module (program)); if (!VARIABLE_BOUNDP (resolved)) @@ -393,10 +401,12 @@ VM_DEFINE_INSTRUCTION (28, long_toplevel_ref, "long-toplevel-ref", 2, 0, 1) goto vm_error_unbound; } what = resolved; + DEAD (resolved); OBJECT_SET (objnum, what); } PUSH (VARIABLE_REF (what)); + DEAD (what); NEXT; } @@ -407,6 +417,7 @@ VM_DEFINE_INSTRUCTION (29, local_set, "local-set", 1, 1, 0) SCM x; POP (x); LOCAL_SET (FETCH (), x); + DEAD (x); NEXT; } @@ -418,6 +429,7 @@ VM_DEFINE_INSTRUCTION (30, long_local_set, "long-local-set", 2, 1, 0) i += FETCH (); POP (x); LOCAL_SET (i, x); + DEAD (x); NEXT; } @@ -449,6 +461,7 @@ VM_DEFINE_INSTRUCTION (32, toplevel_set, "toplevel-set", 1, 1, 0) } VARIABLE_SET (what, *sp); + DEAD (what); DROP (); NEXT; } @@ -470,6 +483,7 @@ VM_DEFINE_INSTRUCTION (33, long_toplevel_set, "long-toplevel-set", 2, 1, 0) } VARIABLE_SET (what, *sp); + DEAD (what); DROP (); NEXT; } @@ -496,7 +510,6 @@ VM_DEFINE_INSTRUCTION (33, long_toplevel_set, "long-toplevel-set", 2, 1, 0) ip += offset; \ if (offset < 0) \ VM_HANDLE_INTERRUPTS; \ - NEXT; \ } VM_DEFINE_INSTRUCTION (34, br, "br", 3, 0, 0) @@ -514,6 +527,8 @@ VM_DEFINE_INSTRUCTION (35, br_if, "br-if", 3, 0, 0) SCM x; POP (x); BR (scm_is_true (x)); + DEAD (x); + NEXT; } VM_DEFINE_INSTRUCTION (36, br_if_not, "br-if-not", 3, 0, 0) @@ -521,6 +536,8 @@ VM_DEFINE_INSTRUCTION (36, br_if_not, "br-if-not", 3, 0, 0) SCM x; POP (x); BR (scm_is_false (x)); + DEAD (x); + NEXT; } VM_DEFINE_INSTRUCTION (37, br_if_eq, "br-if-eq", 3, 0, 0) @@ -528,6 +545,9 @@ VM_DEFINE_INSTRUCTION (37, br_if_eq, "br-if-eq", 3, 0, 0) SCM x, y; POP2 (y, x); BR (scm_is_eq (x, y)); + DEAD (x); + DEAD (y); + NEXT; } VM_DEFINE_INSTRUCTION (38, br_if_not_eq, "br-if-not-eq", 3, 0, 0) @@ -535,6 +555,9 @@ VM_DEFINE_INSTRUCTION (38, br_if_not_eq, "br-if-not-eq", 3, 0, 0) SCM x, y; POP2 (y, x); BR (!scm_is_eq (x, y)); + DEAD (x); + DEAD (y); + NEXT; } VM_DEFINE_INSTRUCTION (39, br_if_null, "br-if-null", 3, 0, 0) @@ -542,6 +565,8 @@ VM_DEFINE_INSTRUCTION (39, br_if_null, "br-if-null", 3, 0, 0) SCM x; POP (x); BR (scm_is_null (x)); + DEAD (x); + NEXT; } VM_DEFINE_INSTRUCTION (40, br_if_not_null, "br-if-not-null", 3, 0, 0) @@ -549,6 +574,8 @@ VM_DEFINE_INSTRUCTION (40, br_if_not_null, "br-if-not-null", 3, 0, 0) SCM x; POP (x); BR (!scm_is_null (x)); + DEAD (x); + NEXT; } @@ -712,6 +739,8 @@ VM_DEFINE_INSTRUCTION (48, bind_kwargs, "bind-kwargs", 5, 0, 0) goto vm_error_kwargs_invalid_keyword; } + DEAD (kw); + NEXT; } @@ -729,6 +758,7 @@ VM_DEFINE_INSTRUCTION (49, push_rest, "push-rest", 2, -1, -1) /* No need to check for underflow. */ CONS (rest, *sp--, rest); PUSH (rest); + DEAD (rest); NEXT; } @@ -745,6 +775,7 @@ VM_DEFINE_INSTRUCTION (50, bind_rest, "bind-rest", 4, -1, -1) /* No need to check for underflow. */ CONS (rest, *sp--, rest); LOCAL_SET (i, rest); + DEAD (rest); NEXT; } @@ -935,6 +966,7 @@ VM_DEFINE_INSTRUCTION (55, subr_call, "subr-call", 1, -1, -1) abort (); } + DEAD (pointer); NULLSTACK_FOR_NONLOCAL_EXIT (); if (SCM_UNLIKELY (SCM_VALUESP (ret))) @@ -943,11 +975,13 @@ VM_DEFINE_INSTRUCTION (55, subr_call, "subr-call", 1, -1, -1) ret = scm_struct_ref (ret, SCM_INUM0); nvalues = scm_ilength (ret); PUSH_LIST (ret, scm_is_null); + DEAD (ret); goto vm_return_values; } else { PUSH (ret); + DEAD (ret); goto vm_return; } } @@ -982,6 +1016,7 @@ VM_DEFINE_INSTRUCTION (56, smob_call, "smob-call", 1, -1, -1) abort (); } + DEAD (smob); NULLSTACK_FOR_NONLOCAL_EXIT (); if (SCM_UNLIKELY (SCM_VALUESP (ret))) @@ -990,11 +1025,13 @@ VM_DEFINE_INSTRUCTION (56, smob_call, "smob-call", 1, -1, -1) ret = scm_struct_ref (ret, SCM_INUM0); nvalues = scm_ilength (ret); PUSH_LIST (ret, scm_is_null); + DEAD (ret); goto vm_return_values; } else { PUSH (ret); + DEAD (ret); goto vm_return; } } @@ -1010,6 +1047,7 @@ VM_DEFINE_INSTRUCTION (57, foreign_call, "foreign-call", 1, -1, -1) ret = scm_i_foreign_call (foreign, sp - nargs + 1); + DEAD (foreign); NULLSTACK_FOR_NONLOCAL_EXIT (); if (SCM_UNLIKELY (SCM_VALUESP (ret))) @@ -1018,11 +1056,13 @@ VM_DEFINE_INSTRUCTION (57, foreign_call, "foreign-call", 1, -1, -1) ret = scm_struct_ref (ret, SCM_INUM0); nvalues = scm_ilength (ret); PUSH_LIST (ret, scm_is_null); + DEAD (ret); goto vm_return_values; } else { PUSH (ret); + DEAD (ret); goto vm_return; } } @@ -1039,7 +1079,7 @@ VM_DEFINE_INSTRUCTION (58, continuation_call, "continuation-call", 0, -1, 0) sp - (fp - 1), fp); scm_i_reinstate_continuation (contregs); - /* no NEXT */ + /* no DEAD, no NEXT */ abort (); } @@ -1049,12 +1089,15 @@ VM_DEFINE_INSTRUCTION (59, partial_cont_call, "partial-cont-call", 0, -1, 0) POP2 (intwinds, vmcont); SYNC_REGISTER (); if (SCM_UNLIKELY (!SCM_VM_CONT_REWINDABLE_P (vmcont))) - { finish_args = vmcont; + { + finish_args = vmcont; goto vm_error_continuation_not_rewindable; } prevwinds = scm_i_dynwinds (); vm_reinstate_partial_continuation (vm, vmcont, intwinds, sp + 1 - fp, fp, vm_cookie); + DEAD (vmcont); + DEAD (intwinds); /* Rewind prompt jmpbuffers, if any. */ { @@ -1062,7 +1105,9 @@ VM_DEFINE_INSTRUCTION (59, partial_cont_call, "partial-cont-call", 0, -1, 0) for (; !scm_is_eq (winds, prevwinds); winds = scm_cdr (winds)) if (SCM_PROMPT_P (scm_car (winds)) && SCM_PROMPT_SETJMP (scm_car (winds))) break; + DEAD (winds); } + DEAD (prevwinds); CACHE_REGISTER (); program = SCM_FRAME_PROGRAM (fp); @@ -1075,6 +1120,7 @@ VM_DEFINE_INSTRUCTION (60, tail_call_nargs, "tail-call/nargs", 0, 0, 1) SCM x; POP (x); nargs = scm_to_int (x); + DEAD (x); /* FIXME: should truncate values? */ goto vm_tail_call; } @@ -1084,6 +1130,7 @@ VM_DEFINE_INSTRUCTION (61, call_nargs, "call/nargs", 0, 0, 1) SCM x; POP (x); nargs = scm_to_int (x); + DEAD (x); /* FIXME: should truncate values? */ goto vm_call; } @@ -1158,6 +1205,7 @@ VM_DEFINE_INSTRUCTION (63, apply, "apply", 1, -1, 1) } PUSH_LIST (ls, SCM_NULL_OR_NIL_P); + DEAD (ls); nargs += len - 2; goto vm_call; @@ -1180,6 +1228,7 @@ VM_DEFINE_INSTRUCTION (64, tail_apply, "tail-apply", 1, -1, 1) } PUSH_LIST (ls, SCM_NULL_OR_NIL_P); + DEAD (ls); nargs += len - 2; goto vm_tail_call; @@ -1193,13 +1242,16 @@ VM_DEFINE_INSTRUCTION (65, call_cc, "call/cc", 0, 1, 1) SYNC_ALL (); vm_cont = scm_i_vm_capture_stack (vp->stack_base, fp, sp, ip, NULL, 0); cont = scm_i_make_continuation (&first, vm, vm_cont); + DEAD (vm_cont); if (first) { PUSH (SCM_PACK (0)); /* dynamic link */ PUSH (SCM_PACK (0)); /* mvra */ PUSH (SCM_PACK (0)); /* ra */ PUSH (proc); + DEAD (proc); PUSH (cont); + DEAD (cont); nargs = 1; goto vm_call; } @@ -1212,6 +1264,8 @@ VM_DEFINE_INSTRUCTION (65, call_cc, "call/cc", 0, 1, 1) So, pull our regs back down from the vp, and march on to the next instruction. */ + DEAD (proc); + DEAD (cont); CACHE_REGISTER (); program = SCM_FRAME_PROGRAM (fp); CACHE_PROGRAM (); @@ -1235,15 +1289,20 @@ VM_DEFINE_INSTRUCTION (66, tail_call_cc, "tail-call/cc", 0, 1, 1) SCM_FRAME_MV_RETURN_ADDRESS (fp), 0); cont = scm_i_make_continuation (&first, vm, vm_cont); + DEAD (vm_cont); if (first) { PUSH (proc); + DEAD (proc); PUSH (cont); + DEAD (cont); nargs = 1; goto vm_tail_call; } else { + DEAD (proc); + DEAD (cont); /* Otherwise, cache regs and NEXT, as above. Invoking the continuation does a return from the frame, either to the RA or MVRA. */ @@ -1288,6 +1347,8 @@ VM_DEFINE_INSTRUCTION (67, return, "return", 0, 1, 1) /* Set return value (sp is already pushed) */ *sp = ret; + + DEAD (ret); } /* Restore the last program */ @@ -1375,6 +1436,7 @@ VM_DEFINE_INSTRUCTION (69, return_values_star, "return/values*", 1, -1, -1) goto vm_error_improper_list; } + DEAD (l); goto vm_return_values; } @@ -1383,6 +1445,7 @@ VM_DEFINE_INSTRUCTION (70, return_nvalues, "return/nvalues", 0, 1, -1) SCM n; POP (n); nvalues = scm_to_int (n); + DEAD (n); ASSERT (nvalues >= 0); goto vm_return_values; } @@ -1393,6 +1456,7 @@ VM_DEFINE_INSTRUCTION (71, truncate_values, "truncate-values", 2, -1, -1) int nbinds, rest; POP (x); nvalues = scm_to_int (x); + DEAD (x); nbinds = FETCH (); rest = FETCH (); @@ -1416,6 +1480,7 @@ VM_DEFINE_INSTRUCTION (72, box, "box", 1, 1, 0) POP (val); SYNC_BEFORE_GC (); LOCAL_SET (FETCH (), scm_cell (scm_tc7_variable, SCM_UNPACK (val))); + DEAD (val); NEXT; } @@ -1437,6 +1502,7 @@ VM_DEFINE_INSTRUCTION (74, local_boxed_ref, "local-boxed-ref", 1, 0, 1) SCM v = LOCAL_REF (FETCH ()); ASSERT_BOUND_VARIABLE (v); PUSH (VARIABLE_REF (v)); + DEAD (v); NEXT; } @@ -1447,6 +1513,8 @@ VM_DEFINE_INSTRUCTION (75, local_boxed_set, "local-boxed-set", 1, 1, 0) POP (val); ASSERT_VARIABLE (v); VARIABLE_SET (v, val); + DEAD (v); + DEAD (val); NEXT; } @@ -1469,6 +1537,7 @@ VM_DEFINE_INSTRUCTION (77, free_boxed_ref, "free-boxed-ref", 1, 0, 1) v = FREE_VARIABLE_REF (idx); ASSERT_BOUND_VARIABLE (v); PUSH (VARIABLE_REF (v)); + DEAD (v); NEXT; } @@ -1481,6 +1550,8 @@ VM_DEFINE_INSTRUCTION (78, free_boxed_set, "free-boxed-set", 1, 1, 0) v = FREE_VARIABLE_REF (idx); ASSERT_BOUND_VARIABLE (v); VARIABLE_SET (v, val); + DEAD (v); + DEAD (val); NEXT; } @@ -1499,6 +1570,7 @@ VM_DEFINE_INSTRUCTION (79, make_closure, "make-closure", 2, -1, 1) sp[-len] = closure; for (n = 0; n < len; n++) SCM_PROGRAM_FREE_VARIABLE_SET (closure, n, sp[-len + 1 + n]); + DEAD (closure); DROPN (len); NEXT; } @@ -1524,6 +1596,7 @@ VM_DEFINE_INSTRUCTION (81, fix_closure, "fix-closure", 2, -1, 0) len = SCM_PROGRAM_NUM_FREE_VARIABLES (x); for (n = 0; n < len; n++) SCM_PROGRAM_FREE_VARIABLE_SET (x, n, sp[-len + 1 + n]); + DEAD (x); DROPN (len); NEXT; } @@ -1536,6 +1609,8 @@ VM_DEFINE_INSTRUCTION (82, define, "define", 0, 0, 2) VARIABLE_SET (scm_sym2var (sym, scm_current_module_lookup_closure (), SCM_BOOL_T), val); + DEAD (sym); + DEAD (val); NEXT; } @@ -1579,6 +1654,8 @@ VM_DEFINE_INSTRUCTION (85, prompt, "prompt", 4, 2, 0) vm_engine that can be assigned *has* been assigned. So we need to pull all our state back from the ip/fp/sp. */ + DEAD (k); + DEAD (prompt); CACHE_REGISTER (); program = SCM_FRAME_PROGRAM (fp); CACHE_PROGRAM (); @@ -1588,6 +1665,9 @@ VM_DEFINE_INSTRUCTION (85, prompt, "prompt", 4, 2, 0) NEXT; } + DEAD (k); + DEAD (prompt); + /* Otherwise setjmp returned for the first time, so we go to execute the prompt's body. */ NEXT; @@ -1612,6 +1692,8 @@ VM_DEFINE_INSTRUCTION (86, wind, "wind", 0, 2, 0) goto vm_error_not_a_thunk; } scm_i_set_dynwinds (scm_cons (scm_cons (wind, unwind), scm_i_dynwinds ())); + DEAD (wind); + DEAD (unwind); NEXT; } @@ -1647,6 +1729,7 @@ VM_DEFINE_INSTRUCTION (89, wind_fluids, "wind-fluids", 1, -1, 0) scm_i_swap_with_fluids (wf, current_thread->dynamic_state); scm_i_set_dynwinds (scm_cons (wf, scm_i_dynwinds ())); + DEAD (wf); NEXT; } @@ -1656,6 +1739,7 @@ VM_DEFINE_INSTRUCTION (90, unwind_fluids, "unwind-fluids", 0, 0, 0) wf = scm_car (scm_i_dynwinds ()); scm_i_set_dynwinds (scm_cdr (scm_i_dynwinds ())); scm_i_swap_with_fluids (wf, current_thread->dynamic_state); + DEAD (wf); NEXT; } @@ -1670,12 +1754,14 @@ VM_DEFINE_INSTRUCTION (91, fluid_ref, "fluid-ref", 0, 1, 1) || ((num = SCM_I_FLUID_NUM (*sp)) >= SCM_SIMPLE_VECTOR_LENGTH (fluids))) { /* Punt dynstate expansion and error handling to the C proc. */ + DEAD (fluids); SYNC_REGISTER (); *sp = scm_fluid_ref (*sp); } else { SCM val = SCM_SIMPLE_VECTOR_REF (fluids, num); + DEAD (fluids); if (scm_is_eq (val, SCM_UNDEFINED)) val = SCM_I_FLUID_DEFAULT (*sp); if (SCM_UNLIKELY (scm_is_eq (val, SCM_UNDEFINED))) @@ -1705,7 +1791,9 @@ VM_DEFINE_INSTRUCTION (92, fluid_set, "fluid-set", 0, 2, 0) } else SCM_SIMPLE_VECTOR_SET (fluids, num, val); - + DEAD (fluids); + DEAD (fluid); + DEAD (val); NEXT; } From f5ea0499a411309014475dc7f7983e827f431af2 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Fri, 27 Jan 2012 22:02:31 +0100 Subject: [PATCH 19/32] Build with `-fno-strict-aliasing' when available. * configure.ac (POTENTIAL_GCC_CFLAGS): Add `-fno-strict-aliasing'. Suggested by Mark H. Weaver. --- configure.ac | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/configure.ac b/configure.ac index 04553755b..ccc5fa572 100644 --- a/configure.ac +++ b/configure.ac @@ -1527,9 +1527,14 @@ case "$GCC" in ## and it became equally exasperating (gcc 2.95 and/or glibc 2.1.2). ## -Wundef was removed because Gnulib prevented it (see ## .) + + ## Build with `-fno-strict-aliasing' to prevent miscompilation on + ## some platforms. See + ## . + POTENTIAL_GCC_CFLAGS="-Wall -Wmissing-prototypes \ -Wdeclaration-after-statement \ - -Wswitch-enum" + -Wswitch-enum -fno-strict-aliasing" # Do this here so we don't screw up any of the tests above that might # not be "warning free" if test "${GUILE_ERROR_ON_WARNING}" = yes From 241247e8b967eea0c017f51d6ff565bd667c94a8 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sat, 28 Jan 2012 20:38:03 +0100 Subject: [PATCH 20/32] mention new manual sections in NEWS * NEWS: Mention new sections. --- NEWS | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/NEWS b/NEWS index a91490568..ce4768631 100644 --- a/NEWS +++ b/NEWS @@ -124,6 +124,12 @@ This procedure initializes a random seed using good random sources available on your platform, such as /dev/urandom. See "Random Number Generation" in the manual, for more. +** Manual updates + +Besides the sections already mentioned, the following manual sections +are new in this release: "Modules and the File System", "Module System +Reflection", "Syntax Transformer Helpers", and "Local Inclusion". + * New interfaces ** (ice-9 session): `apropos-hook' From e22ad42bdbba47a023748c541d4c8fc5b88441d8 Mon Sep 17 00:00:00 2001 From: "Chris K. Jester-Young" Date: Sat, 28 Jan 2012 01:34:42 -0500 Subject: [PATCH 21/32] Fix double-free error on non-GNU systems. * libguile/i18n.c (scm_make_locale): Null out c_locale_name after it's freed, so it doesn't get freed again. While this only has effect if USE_GNU_LOCALE_API is unset, the nulling out happens in both cases, to be consistent and robust. (scm_nl_langinfo): Free c_result in all switch cases, in particular P_SIGN_POSN, N_SIGN_POSN, INT_P_SIGN_POSN, and INT_N_SIGN_POSN. --- libguile/i18n.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/libguile/i18n.c b/libguile/i18n.c index 4bb9e2137..5a53bfae5 100644 --- a/libguile/i18n.c +++ b/libguile/i18n.c @@ -645,6 +645,7 @@ SCM_DEFINE (scm_make_locale, "make-locale", 2, 1, 0, c_locale = newlocale (c_category_mask, c_locale_name, c_base_locale); free (c_locale_name); + c_locale_name = NULL; if (c_locale == (locale_t) 0) { @@ -662,6 +663,7 @@ SCM_DEFINE (scm_make_locale, "make-locale", 2, 1, 0, c_locale->category_mask = c_category_mask; c_locale->locale_name = scm_gc_strdup (c_locale_name, "locale"); free (c_locale_name); + c_locale_name = NULL; if (scm_is_eq (base_locale, SCM_VARIABLE_REF (scm_global_locale))) { @@ -1652,6 +1654,7 @@ SCM_DEFINE (scm_nl_langinfo, "nl-langinfo", 1, 1, 0, default: result = scm_from_latin1_symbol ("unspecified"); } + free (c_result); break; #endif From 5e80f2cea30e18e58b9aaf4e95acf8ccfd1eb45f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 29 Jan 2012 22:18:15 +0100 Subject: [PATCH 22/32] Revert "Work around instruction reordering on SPARC and HPPA in the VM." This reverts commit 2b264d7e4fb649955ade1814527b6eb6f34f4e18, which is unnecessary after commit f5ea0499a411309014475dc7f7983e827f431af2 ("Build with `-fno-strict-aliasing' when available."). --- libguile/vm-i-system.c | 25 ++++--------------------- 1 file changed, 4 insertions(+), 21 deletions(-) diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 1e3c2e54b..3a78dd93a 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -1,6 +1,5 @@ -/* Copyright (C) 2001, 2008, 2009, 2010, 2011, - * 2012 Free Software Foundation, Inc. - * +/* Copyright (C) 2001,2008,2009,2010,2011 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License * as published by the Free Software Foundation; either version 3 of @@ -20,17 +19,6 @@ /* This file is included in vm_engine.c */ -/* Compiler barrier, to prevent instruction reordering, apparently due - to a bug in GCC 4.3.2 on sparc-linux-gnu and on hppa2.0-linux-gnu. - See , for details. */ - -#ifdef __GNUC__ -# define COMPILER_BARRIER __asm__ __volatile__ ("") -#else -# define COMPILER_BARRIER do { } while (0) -#endif - - /* * Basic operations @@ -67,7 +55,6 @@ VM_DEFINE_INSTRUCTION (1, halt, "halt", 0, 0, 0) stack */ ip = SCM_FRAME_RETURN_ADDRESS (fp); fp = SCM_FRAME_DYNAMIC_LINK (fp); - COMPILER_BARRIER; NULLSTACK (old_sp - sp); } @@ -1339,7 +1326,6 @@ VM_DEFINE_INSTRUCTION (67, return, "return", 0, 1, 1) sp = SCM_FRAME_LOWER_ADDRESS (fp); ip = SCM_FRAME_RETURN_ADDRESS (fp); fp = SCM_FRAME_DYNAMIC_LINK (fp); - COMPILER_BARRIER; #ifdef VM_ENABLE_STACK_NULLING NULLSTACK (old_sp - sp); @@ -1377,8 +1363,7 @@ VM_DEFINE_INSTRUCTION (68, return_values, "return/values", 1, -1, -1) sp = SCM_FRAME_LOWER_ADDRESS (fp) - 1; ip = SCM_FRAME_MV_RETURN_ADDRESS (fp); fp = SCM_FRAME_DYNAMIC_LINK (fp); - COMPILER_BARRIER; - + /* Push return values, and the number of values */ for (i = 0; i < nvalues; i++) *++sp = vals[i+1]; @@ -1398,8 +1383,7 @@ VM_DEFINE_INSTRUCTION (68, return_values, "return/values", 1, -1, -1) sp = SCM_FRAME_LOWER_ADDRESS (fp) - 1; ip = SCM_FRAME_RETURN_ADDRESS (fp); fp = SCM_FRAME_DYNAMIC_LINK (fp); - COMPILER_BARRIER; - + /* Push first value */ *++sp = vals[1]; @@ -1817,7 +1801,6 @@ VM_DEFINE_INSTRUCTION (93, assert_nargs_ee_locals, "assert-nargs-ee/locals", 1, NEXT; } -#undef COMPILER_BARRIER /* (defun renumber-ops () From a39b116f0071629082b0dc09ea782e321ee313ca Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 29 Jan 2012 22:24:25 +0100 Subject: [PATCH 23/32] Revert "attempt to clear stale references on VM C stack" This reverts commit 04b2d773548c57b6eadd1808a8d15cce47af9630. Since it wasn't fixing the "lexical vars are collectable" test, it added complexity with no benefit. --- libguile/vm-engine.h | 9 +-- libguile/vm-i-loader.c | 8 +-- libguile/vm-i-scheme.c | 122 +---------------------------------------- libguile/vm-i-system.c | 100 ++------------------------------- 4 files changed, 10 insertions(+), 229 deletions(-) diff --git a/libguile/vm-engine.h b/libguile/vm-engine.h index 52467c229..000397de2 100644 --- a/libguile/vm-engine.h +++ b/libguile/vm-engine.h @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -152,8 +152,6 @@ #define ASSERT_BOUND(x) #endif -#define DEAD(v) v = SCM_UNDEFINED - #if VM_CHECK_OBJECT #define SET_OBJECT_COUNT(n) object_count = n #else @@ -327,7 +325,6 @@ do \ CONS (l, x, l); \ } \ PUSH (l); \ - DEAD (l); \ } while (0) /* The opposite: push all of the elements in L onto the list. */ @@ -353,9 +350,7 @@ do { \ CONS (l, o, l); \ POP (o); \ } \ - DEAD (o); \ PUSH (l); \ - DEAD (l); \ } while (0) #define POP_CONS_MARK() \ @@ -368,9 +363,7 @@ do { \ CONS (l, o, l); \ POP (o); \ } \ - DEAD (o); \ PUSH (l); \ - DEAD (l); \ } while (0) diff --git a/libguile/vm-i-loader.c b/libguile/vm-i-loader.c index 19f527135..6fa8eb2ea 100644 --- a/libguile/vm-i-loader.c +++ b/libguile/vm-i-loader.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001,2008,2009,2010,2011,2012 Free Software Foundation, Inc. +/* Copyright (C) 2001,2008,2009,2010,2011 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -73,9 +73,6 @@ VM_DEFINE_LOADER (104, load_program, "load-program") PUSH (scm_make_program (objcode, objs, SCM_BOOL_F)); - DEAD (objs); - DEAD (objcode); - ip += len; NEXT; @@ -87,7 +84,6 @@ VM_DEFINE_INSTRUCTION (105, link_now, "link-now", 0, 1, 1) POP (what); SYNC_REGISTER (); PUSH (resolve_variable (what, scm_current_module ())); - DEAD (what); NEXT; } @@ -99,8 +95,6 @@ VM_DEFINE_LOADER (106, load_array, "load-array") POP2 (shape, type); SYNC_REGISTER (); PUSH (scm_from_contiguous_typed_array (type, shape, ip, len)); - DEAD (type); - DEAD (shape); ip += len; NEXT; } diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index fa1179eb4..243e1a311 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -33,7 +33,6 @@ VM_DEFINE_FUNCTION (128, not, "not", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_false (x))); - DEAD (x); NEXT; } @@ -41,7 +40,6 @@ VM_DEFINE_FUNCTION (129, not_not, "not-not", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_false (x))); - DEAD (x); NEXT; } @@ -49,8 +47,6 @@ VM_DEFINE_FUNCTION (130, eq, "eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (scm_is_eq (x, y))); - DEAD (x); - DEAD (y); NEXT; } @@ -58,8 +54,6 @@ VM_DEFINE_FUNCTION (131, not_eq, "not-eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (!scm_is_eq (x, y))); - DEAD (x); - DEAD (y); NEXT; } @@ -67,7 +61,6 @@ VM_DEFINE_FUNCTION (132, nullp, "null?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_null (x))); - DEAD (x); NEXT; } @@ -75,7 +68,6 @@ VM_DEFINE_FUNCTION (133, not_nullp, "not-null?", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_null (x))); - DEAD (x); NEXT; } @@ -91,8 +83,6 @@ VM_DEFINE_FUNCTION (134, eqv, "eqv?", 2) SYNC_REGISTER (); RETURN (scm_eqv_p (x, y)); } - DEAD (x); - DEAD (y); NEXT; } @@ -108,8 +98,6 @@ VM_DEFINE_FUNCTION (135, equal, "equal?", 2) SYNC_REGISTER (); RETURN (scm_equal_p (x, y)); } - DEAD (x); - DEAD (y); NEXT; } @@ -117,7 +105,6 @@ VM_DEFINE_FUNCTION (136, pairp, "pair?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_pair (x))); - DEAD (x); NEXT; } @@ -125,7 +112,6 @@ VM_DEFINE_FUNCTION (137, listp, "list?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_ilength (x) >= 0)); - DEAD (x); NEXT; } @@ -133,7 +119,6 @@ VM_DEFINE_FUNCTION (138, symbolp, "symbol?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_symbol (x))); - DEAD (x); NEXT; } @@ -141,7 +126,6 @@ VM_DEFINE_FUNCTION (139, vectorp, "vector?", 1) { ARGS1 (x); RETURN (scm_from_bool (SCM_I_IS_VECTOR (x))); - DEAD (x); NEXT; } @@ -155,8 +139,6 @@ VM_DEFINE_FUNCTION (140, cons, "cons", 2) ARGS2 (x, y); CONS (x, x, y); RETURN (x); - DEAD (x); - DEAD (y); NEXT; } @@ -173,7 +155,6 @@ VM_DEFINE_FUNCTION (141, car, "car", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "car"); RETURN (SCM_CAR (x)); - DEAD (x); NEXT; } @@ -182,7 +163,6 @@ VM_DEFINE_FUNCTION (142, cdr, "cdr", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "cdr"); RETURN (SCM_CDR (x)); - DEAD (x); NEXT; } @@ -192,8 +172,6 @@ VM_DEFINE_INSTRUCTION (143, set_car, "set-car!", 0, 2, 0) POP2 (y, x); VM_VALIDATE_CONS (x, "set-car!"); SCM_SETCAR (x, y); - DEAD (x); - DEAD (y); NEXT; } @@ -203,8 +181,6 @@ VM_DEFINE_INSTRUCTION (144, set_cdr, "set-cdr!", 0, 2, 0) POP2 (y, x); VM_VALIDATE_CONS (x, "set-cdr!"); SCM_SETCDR (x, y); - DEAD (x); - DEAD (y); NEXT; } @@ -225,8 +201,6 @@ VM_DEFINE_INSTRUCTION (144, set_cdr, "set-cdr!", 0, 2, 0) SYNC_REGISTER (); \ RETURN (srel (x, y)); \ } \ - DEAD (x); \ - DEAD (y); \ NEXT; \ } @@ -276,15 +250,11 @@ VM_DEFINE_FUNCTION (149, ge, "ge?", 2) if (SCM_FIXABLE (n)) \ { \ RETURN (SCM_I_MAKINUM (n)); \ - DEAD (x); \ - DEAD (y); \ NEXT; \ } \ } \ SYNC_REGISTER (); \ RETURN (SFUNC (x, y)); \ - DEAD (x); \ - DEAD (y); \ NEXT; \ } @@ -349,8 +319,6 @@ VM_DEFINE_FUNCTION (150, add, "add", 2) ASM_ADD (x, y); SYNC_REGISTER (); RETURN (scm_sum (x, y)); - DEAD (x); - DEAD (y); NEXT; #endif } @@ -372,15 +340,12 @@ VM_DEFINE_FUNCTION (151, add1, "add1", 1) if (SCM_LIKELY (SCM_I_INUMP (result))) { RETURN (result); - DEAD (result); NEXT; } - DEAD (result); } SYNC_REGISTER (); RETURN (scm_sum (x, SCM_I_MAKINUM (1))); - DEAD (x); NEXT; } @@ -393,8 +358,6 @@ VM_DEFINE_FUNCTION (152, sub, "sub", 2) ASM_SUB (x, y); SYNC_REGISTER (); RETURN (scm_difference (x, y)); - DEAD (x); - DEAD (y); NEXT; #endif } @@ -416,15 +379,12 @@ VM_DEFINE_FUNCTION (153, sub1, "sub1", 1) if (SCM_LIKELY (SCM_I_INUMP (result))) { RETURN (result); - DEAD (result); NEXT; } - DEAD (result); } SYNC_REGISTER (); RETURN (scm_difference (x, SCM_I_MAKINUM (1))); - DEAD (x); NEXT; } @@ -436,8 +396,6 @@ VM_DEFINE_FUNCTION (154, mul, "mul", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_product (x, y)); - DEAD (x); - DEAD (y); NEXT; } @@ -446,8 +404,6 @@ VM_DEFINE_FUNCTION (155, div, "div", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_divide (x, y)); - DEAD (x); - DEAD (y); NEXT; } @@ -456,8 +412,6 @@ VM_DEFINE_FUNCTION (156, quo, "quo", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_quotient (x, y)); - DEAD (x); - DEAD (y); NEXT; } @@ -466,8 +420,6 @@ VM_DEFINE_FUNCTION (157, rem, "rem", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_remainder (x, y)); - DEAD (x); - DEAD (y); NEXT; } @@ -476,8 +428,6 @@ VM_DEFINE_FUNCTION (158, mod, "mod", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_modulo (x, y)); - DEAD (x); - DEAD (y); NEXT; } @@ -490,8 +440,6 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) /* Right shift, will be a fixnum. */ { RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); - DEAD (x); - DEAD (y); NEXT; } else @@ -507,8 +455,6 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) (SCM_SRS (nn, (SCM_I_FIXNUM_BIT-1 - bits_to_shift)) + 1) <= 1)) { - DEAD (x); - DEAD (y); RETURN (SCM_I_MAKINUM (nn << bits_to_shift)); NEXT; } @@ -518,8 +464,6 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) } SYNC_REGISTER (); RETURN (scm_ash (x, y)); - DEAD (x); - DEAD (y); NEXT; } @@ -533,8 +477,6 @@ VM_DEFINE_FUNCTION (160, logand, "logand", 2) SYNC_REGISTER (); RETURN (scm_logand (x, y)); } - DEAD (x); - DEAD (y); NEXT; } @@ -548,8 +490,6 @@ VM_DEFINE_FUNCTION (161, logior, "logior", 2) SYNC_REGISTER (); RETURN (scm_logior (x, y)); } - DEAD (x); - DEAD (y); NEXT; } @@ -563,8 +503,6 @@ VM_DEFINE_FUNCTION (162, logxor, "logxor", 2) SYNC_REGISTER (); RETURN (scm_logxor (x, y)); } - DEAD (x); - DEAD (y); NEXT; } @@ -587,8 +525,6 @@ VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2) SYNC_REGISTER (); RETURN (scm_vector_ref (vect, idx)); } - DEAD (vect); - DEAD (idx); NEXT; } @@ -607,9 +543,6 @@ VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 0) SYNC_REGISTER (); scm_vector_set_x (vect, idx, val); } - DEAD (vect); - DEAD (idx); - DEAD (val); NEXT; } @@ -625,10 +558,8 @@ VM_DEFINE_INSTRUCTION (165, make_array, "make-array", 3, -1, 1) SYNC_REGISTER (); PRE_CHECK_UNDERFLOW (len); ret = scm_from_contiguous_array (shape, sp - len + 1, len); - DEAD (shape); DROPN (len); PUSH (ret); - DEAD (ret); NEXT; } @@ -648,7 +579,6 @@ VM_DEFINE_FUNCTION (166, struct_p, "struct?", 1) { ARGS1 (obj); RETURN (scm_from_bool (SCM_STRUCTP (obj))); - DEAD (obj); NEXT; } @@ -657,7 +587,6 @@ VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1) ARGS1 (obj); VM_VALIDATE_STRUCT (obj, "struct_vtable"); RETURN (SCM_STRUCT_VTABLE (obj)); - DEAD (obj); NEXT; } @@ -687,11 +616,9 @@ VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, -1, 1) } else ret = scm_c_make_structv (vtable, 0, n - 1, (scm_t_bits *) inits); - DEAD (vtable); DROPN (n); PUSH (ret); - DEAD (ret); NEXT; } @@ -719,16 +646,12 @@ VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2) { scm_t_bits *data = SCM_STRUCT_DATA (obj); RETURN (SCM_PACK (data[index])); - DEAD (obj); - DEAD (pos); NEXT; } } SYNC_REGISTER (); RETURN (scm_struct_ref (obj, pos)); - DEAD (obj); - DEAD (pos); NEXT; } @@ -754,20 +677,13 @@ VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3) { scm_t_bits *data = SCM_STRUCT_DATA (obj); data[index] = SCM_UNPACK (val); - /* FIXME: Shouldn't be returning anything, right? */ RETURN (val); - DEAD (obj); - DEAD (pos); - DEAD (val); NEXT; } } SYNC_REGISTER (); RETURN (scm_struct_set_x (obj, pos, val)); - DEAD (obj); - DEAD (pos); - DEAD (val); NEXT; } @@ -785,7 +701,6 @@ VM_DEFINE_FUNCTION (171, class_of, "class-of", 1) SYNC_REGISTER (); RETURN (scm_class_of (obj)); } - DEAD (obj); NEXT; } @@ -795,9 +710,7 @@ VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2) size_t slot; ARGS2 (instance, idx); slot = SCM_I_INUM (idx); - DEAD (idx); RETURN (SCM_PACK (SCM_STRUCT_DATA (instance) [slot])); - DEAD (instance); NEXT; } @@ -808,10 +721,7 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0) size_t slot; POP3 (val, idx, instance); slot = SCM_I_INUM (idx); - DEAD (idx); SCM_STRUCT_DATA (instance) [slot] = SCM_UNPACK (val); - DEAD (instance); - DEAD (val); NEXT; } @@ -836,17 +746,11 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0) SCM endianness; \ POP (endianness); \ if (scm_is_eq (endianness, scm_i_native_endianness)) \ - { \ - DEAD (endianness); \ - goto VM_LABEL (bv_##stem##_native_ref); \ - } \ + goto VM_LABEL (bv_##stem##_native_ref); \ { \ ARGS2 (bv, idx); \ SYNC_REGISTER (); \ RETURN (scm_bytevector_##fn_stem##_ref (bv, idx, endianness)); \ - DEAD (bv); \ - DEAD (idx); \ - DEAD (endianness); \ NEXT; \ } \ } @@ -894,8 +798,6 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ RETURN (scm_bytevector_ ## fn_stem ## _ref (bv, idx)); \ } \ - DEAD (bv); \ - DEAD (idx); \ NEXT; \ } @@ -928,8 +830,6 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ RETURN (scm_bytevector_ ## stem ## _native_ref (bv, idx)); \ } \ - DEAD (bv); \ - DEAD (idx); \ NEXT; \ } @@ -951,8 +851,6 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) RETURN (scm_from_double (*float_ptr)); \ else \ RETURN (scm_bytevector_ ## fn_stem ## _native_ref (bv, idx)); \ - DEAD (bv); \ - DEAD (idx); \ NEXT; \ } @@ -996,18 +894,11 @@ BV_FLOAT_REF (f64, ieee_double, double, 8) SCM endianness; \ POP (endianness); \ if (scm_is_eq (endianness, scm_i_native_endianness)) \ - { \ - DEAD (endianness); \ - goto VM_LABEL (bv_##stem##_native_set); \ - } \ + goto VM_LABEL (bv_##stem##_native_set); \ { \ SCM bv, idx, val; POP3 (val, idx, bv); \ SYNC_REGISTER (); \ scm_bytevector_##fn_stem##_set_x (bv, idx, val, endianness); \ - DEAD (bv); \ - DEAD (idx); \ - DEAD (val); \ - DEAD (endianness); \ NEXT; \ } \ } @@ -1055,9 +946,6 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ scm_bytevector_ ## fn_stem ## _set_x (bv, idx, val); \ } \ - DEAD (bv); \ - DEAD (idx); \ - DEAD (val); \ NEXT; \ } @@ -1082,9 +970,6 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ scm_bytevector_ ## stem ## _native_set_x (bv, idx, val); \ } \ - DEAD (bv); \ - DEAD (idx); \ - DEAD (val); \ NEXT; \ } @@ -1109,9 +994,6 @@ BV_SET_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ scm_bytevector_ ## fn_stem ## _native_set_x (bv, idx, val); \ } \ - DEAD (bv); \ - DEAD (idx); \ - DEAD (val); \ NEXT; \ } diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c index 3a78dd93a..474fe7883 100644 --- a/libguile/vm-i-system.c +++ b/libguile/vm-i-system.c @@ -71,7 +71,6 @@ VM_DEFINE_INSTRUCTION (3, dup, "dup", 0, 0, 1) { SCM x = *sp; PUSH (x); - DEAD (x); NEXT; } @@ -214,7 +213,6 @@ VM_DEFINE_INSTRUCTION (18, vector, "vector", 2, -1, 1) memcpy (SCM_I_VECTOR_WELTS(vect), sp, sizeof(SCM) * len); NULLSTACK (len); *sp = vect; - DEAD (vect); NEXT; } @@ -319,7 +317,6 @@ VM_DEFINE_INSTRUCTION (25, variable_ref, "variable-ref", 0, 1, 1) { SCM o = VARIABLE_REF (x); *sp = o; - DEAD (o); } NEXT; @@ -337,20 +334,18 @@ VM_DEFINE_INSTRUCTION (26, variable_bound, "variable-bound?", 0, 1, 1) } else *sp = scm_from_bool (VARIABLE_BOUNDP (x)); - DEAD (x); NEXT; } VM_DEFINE_INSTRUCTION (27, toplevel_ref, "toplevel-ref", 1, 0, 1) { unsigned objnum = FETCH (); - SCM what; + SCM what, resolved; CHECK_OBJECT (objnum); what = OBJECT_REF (objnum); if (!SCM_VARIABLEP (what)) { - SCM resolved; SYNC_REGISTER (); resolved = resolve_variable (what, scm_program_module (program)); if (!VARIABLE_BOUNDP (resolved)) @@ -359,18 +354,16 @@ VM_DEFINE_INSTRUCTION (27, toplevel_ref, "toplevel-ref", 1, 0, 1) goto vm_error_unbound; } what = resolved; - DEAD (resolved); OBJECT_SET (objnum, what); } PUSH (VARIABLE_REF (what)); - DEAD (what); NEXT; } VM_DEFINE_INSTRUCTION (28, long_toplevel_ref, "long-toplevel-ref", 2, 0, 1) { - SCM what; + SCM what, resolved; unsigned int objnum = FETCH (); objnum <<= 8; objnum += FETCH (); @@ -379,7 +372,6 @@ VM_DEFINE_INSTRUCTION (28, long_toplevel_ref, "long-toplevel-ref", 2, 0, 1) if (!SCM_VARIABLEP (what)) { - SCM resolved; SYNC_REGISTER (); resolved = resolve_variable (what, scm_program_module (program)); if (!VARIABLE_BOUNDP (resolved)) @@ -388,12 +380,10 @@ VM_DEFINE_INSTRUCTION (28, long_toplevel_ref, "long-toplevel-ref", 2, 0, 1) goto vm_error_unbound; } what = resolved; - DEAD (resolved); OBJECT_SET (objnum, what); } PUSH (VARIABLE_REF (what)); - DEAD (what); NEXT; } @@ -404,7 +394,6 @@ VM_DEFINE_INSTRUCTION (29, local_set, "local-set", 1, 1, 0) SCM x; POP (x); LOCAL_SET (FETCH (), x); - DEAD (x); NEXT; } @@ -416,7 +405,6 @@ VM_DEFINE_INSTRUCTION (30, long_local_set, "long-local-set", 2, 1, 0) i += FETCH (); POP (x); LOCAL_SET (i, x); - DEAD (x); NEXT; } @@ -448,7 +436,6 @@ VM_DEFINE_INSTRUCTION (32, toplevel_set, "toplevel-set", 1, 1, 0) } VARIABLE_SET (what, *sp); - DEAD (what); DROP (); NEXT; } @@ -470,7 +457,6 @@ VM_DEFINE_INSTRUCTION (33, long_toplevel_set, "long-toplevel-set", 2, 1, 0) } VARIABLE_SET (what, *sp); - DEAD (what); DROP (); NEXT; } @@ -497,6 +483,7 @@ VM_DEFINE_INSTRUCTION (33, long_toplevel_set, "long-toplevel-set", 2, 1, 0) ip += offset; \ if (offset < 0) \ VM_HANDLE_INTERRUPTS; \ + NEXT; \ } VM_DEFINE_INSTRUCTION (34, br, "br", 3, 0, 0) @@ -514,8 +501,6 @@ VM_DEFINE_INSTRUCTION (35, br_if, "br-if", 3, 0, 0) SCM x; POP (x); BR (scm_is_true (x)); - DEAD (x); - NEXT; } VM_DEFINE_INSTRUCTION (36, br_if_not, "br-if-not", 3, 0, 0) @@ -523,8 +508,6 @@ VM_DEFINE_INSTRUCTION (36, br_if_not, "br-if-not", 3, 0, 0) SCM x; POP (x); BR (scm_is_false (x)); - DEAD (x); - NEXT; } VM_DEFINE_INSTRUCTION (37, br_if_eq, "br-if-eq", 3, 0, 0) @@ -532,9 +515,6 @@ VM_DEFINE_INSTRUCTION (37, br_if_eq, "br-if-eq", 3, 0, 0) SCM x, y; POP2 (y, x); BR (scm_is_eq (x, y)); - DEAD (x); - DEAD (y); - NEXT; } VM_DEFINE_INSTRUCTION (38, br_if_not_eq, "br-if-not-eq", 3, 0, 0) @@ -542,9 +522,6 @@ VM_DEFINE_INSTRUCTION (38, br_if_not_eq, "br-if-not-eq", 3, 0, 0) SCM x, y; POP2 (y, x); BR (!scm_is_eq (x, y)); - DEAD (x); - DEAD (y); - NEXT; } VM_DEFINE_INSTRUCTION (39, br_if_null, "br-if-null", 3, 0, 0) @@ -552,8 +529,6 @@ VM_DEFINE_INSTRUCTION (39, br_if_null, "br-if-null", 3, 0, 0) SCM x; POP (x); BR (scm_is_null (x)); - DEAD (x); - NEXT; } VM_DEFINE_INSTRUCTION (40, br_if_not_null, "br-if-not-null", 3, 0, 0) @@ -561,8 +536,6 @@ VM_DEFINE_INSTRUCTION (40, br_if_not_null, "br-if-not-null", 3, 0, 0) SCM x; POP (x); BR (!scm_is_null (x)); - DEAD (x); - NEXT; } @@ -726,8 +699,6 @@ VM_DEFINE_INSTRUCTION (48, bind_kwargs, "bind-kwargs", 5, 0, 0) goto vm_error_kwargs_invalid_keyword; } - DEAD (kw); - NEXT; } @@ -745,7 +716,6 @@ VM_DEFINE_INSTRUCTION (49, push_rest, "push-rest", 2, -1, -1) /* No need to check for underflow. */ CONS (rest, *sp--, rest); PUSH (rest); - DEAD (rest); NEXT; } @@ -762,7 +732,6 @@ VM_DEFINE_INSTRUCTION (50, bind_rest, "bind-rest", 4, -1, -1) /* No need to check for underflow. */ CONS (rest, *sp--, rest); LOCAL_SET (i, rest); - DEAD (rest); NEXT; } @@ -953,7 +922,6 @@ VM_DEFINE_INSTRUCTION (55, subr_call, "subr-call", 1, -1, -1) abort (); } - DEAD (pointer); NULLSTACK_FOR_NONLOCAL_EXIT (); if (SCM_UNLIKELY (SCM_VALUESP (ret))) @@ -962,13 +930,11 @@ VM_DEFINE_INSTRUCTION (55, subr_call, "subr-call", 1, -1, -1) ret = scm_struct_ref (ret, SCM_INUM0); nvalues = scm_ilength (ret); PUSH_LIST (ret, scm_is_null); - DEAD (ret); goto vm_return_values; } else { PUSH (ret); - DEAD (ret); goto vm_return; } } @@ -1003,7 +969,6 @@ VM_DEFINE_INSTRUCTION (56, smob_call, "smob-call", 1, -1, -1) abort (); } - DEAD (smob); NULLSTACK_FOR_NONLOCAL_EXIT (); if (SCM_UNLIKELY (SCM_VALUESP (ret))) @@ -1012,13 +977,11 @@ VM_DEFINE_INSTRUCTION (56, smob_call, "smob-call", 1, -1, -1) ret = scm_struct_ref (ret, SCM_INUM0); nvalues = scm_ilength (ret); PUSH_LIST (ret, scm_is_null); - DEAD (ret); goto vm_return_values; } else { PUSH (ret); - DEAD (ret); goto vm_return; } } @@ -1034,7 +997,6 @@ VM_DEFINE_INSTRUCTION (57, foreign_call, "foreign-call", 1, -1, -1) ret = scm_i_foreign_call (foreign, sp - nargs + 1); - DEAD (foreign); NULLSTACK_FOR_NONLOCAL_EXIT (); if (SCM_UNLIKELY (SCM_VALUESP (ret))) @@ -1043,13 +1005,11 @@ VM_DEFINE_INSTRUCTION (57, foreign_call, "foreign-call", 1, -1, -1) ret = scm_struct_ref (ret, SCM_INUM0); nvalues = scm_ilength (ret); PUSH_LIST (ret, scm_is_null); - DEAD (ret); goto vm_return_values; } else { PUSH (ret); - DEAD (ret); goto vm_return; } } @@ -1066,7 +1026,7 @@ VM_DEFINE_INSTRUCTION (58, continuation_call, "continuation-call", 0, -1, 0) sp - (fp - 1), fp); scm_i_reinstate_continuation (contregs); - /* no DEAD, no NEXT */ + /* no NEXT */ abort (); } @@ -1076,15 +1036,12 @@ VM_DEFINE_INSTRUCTION (59, partial_cont_call, "partial-cont-call", 0, -1, 0) POP2 (intwinds, vmcont); SYNC_REGISTER (); if (SCM_UNLIKELY (!SCM_VM_CONT_REWINDABLE_P (vmcont))) - { - finish_args = vmcont; + { finish_args = vmcont; goto vm_error_continuation_not_rewindable; } prevwinds = scm_i_dynwinds (); vm_reinstate_partial_continuation (vm, vmcont, intwinds, sp + 1 - fp, fp, vm_cookie); - DEAD (vmcont); - DEAD (intwinds); /* Rewind prompt jmpbuffers, if any. */ { @@ -1092,9 +1049,7 @@ VM_DEFINE_INSTRUCTION (59, partial_cont_call, "partial-cont-call", 0, -1, 0) for (; !scm_is_eq (winds, prevwinds); winds = scm_cdr (winds)) if (SCM_PROMPT_P (scm_car (winds)) && SCM_PROMPT_SETJMP (scm_car (winds))) break; - DEAD (winds); } - DEAD (prevwinds); CACHE_REGISTER (); program = SCM_FRAME_PROGRAM (fp); @@ -1107,7 +1062,6 @@ VM_DEFINE_INSTRUCTION (60, tail_call_nargs, "tail-call/nargs", 0, 0, 1) SCM x; POP (x); nargs = scm_to_int (x); - DEAD (x); /* FIXME: should truncate values? */ goto vm_tail_call; } @@ -1117,7 +1071,6 @@ VM_DEFINE_INSTRUCTION (61, call_nargs, "call/nargs", 0, 0, 1) SCM x; POP (x); nargs = scm_to_int (x); - DEAD (x); /* FIXME: should truncate values? */ goto vm_call; } @@ -1192,7 +1145,6 @@ VM_DEFINE_INSTRUCTION (63, apply, "apply", 1, -1, 1) } PUSH_LIST (ls, SCM_NULL_OR_NIL_P); - DEAD (ls); nargs += len - 2; goto vm_call; @@ -1215,7 +1167,6 @@ VM_DEFINE_INSTRUCTION (64, tail_apply, "tail-apply", 1, -1, 1) } PUSH_LIST (ls, SCM_NULL_OR_NIL_P); - DEAD (ls); nargs += len - 2; goto vm_tail_call; @@ -1229,16 +1180,13 @@ VM_DEFINE_INSTRUCTION (65, call_cc, "call/cc", 0, 1, 1) SYNC_ALL (); vm_cont = scm_i_vm_capture_stack (vp->stack_base, fp, sp, ip, NULL, 0); cont = scm_i_make_continuation (&first, vm, vm_cont); - DEAD (vm_cont); if (first) { PUSH (SCM_PACK (0)); /* dynamic link */ PUSH (SCM_PACK (0)); /* mvra */ PUSH (SCM_PACK (0)); /* ra */ PUSH (proc); - DEAD (proc); PUSH (cont); - DEAD (cont); nargs = 1; goto vm_call; } @@ -1251,8 +1199,6 @@ VM_DEFINE_INSTRUCTION (65, call_cc, "call/cc", 0, 1, 1) So, pull our regs back down from the vp, and march on to the next instruction. */ - DEAD (proc); - DEAD (cont); CACHE_REGISTER (); program = SCM_FRAME_PROGRAM (fp); CACHE_PROGRAM (); @@ -1276,20 +1222,15 @@ VM_DEFINE_INSTRUCTION (66, tail_call_cc, "tail-call/cc", 0, 1, 1) SCM_FRAME_MV_RETURN_ADDRESS (fp), 0); cont = scm_i_make_continuation (&first, vm, vm_cont); - DEAD (vm_cont); if (first) { PUSH (proc); - DEAD (proc); PUSH (cont); - DEAD (cont); nargs = 1; goto vm_tail_call; } else { - DEAD (proc); - DEAD (cont); /* Otherwise, cache regs and NEXT, as above. Invoking the continuation does a return from the frame, either to the RA or MVRA. */ @@ -1333,8 +1274,6 @@ VM_DEFINE_INSTRUCTION (67, return, "return", 0, 1, 1) /* Set return value (sp is already pushed) */ *sp = ret; - - DEAD (ret); } /* Restore the last program */ @@ -1420,7 +1359,6 @@ VM_DEFINE_INSTRUCTION (69, return_values_star, "return/values*", 1, -1, -1) goto vm_error_improper_list; } - DEAD (l); goto vm_return_values; } @@ -1429,7 +1367,6 @@ VM_DEFINE_INSTRUCTION (70, return_nvalues, "return/nvalues", 0, 1, -1) SCM n; POP (n); nvalues = scm_to_int (n); - DEAD (n); ASSERT (nvalues >= 0); goto vm_return_values; } @@ -1440,7 +1377,6 @@ VM_DEFINE_INSTRUCTION (71, truncate_values, "truncate-values", 2, -1, -1) int nbinds, rest; POP (x); nvalues = scm_to_int (x); - DEAD (x); nbinds = FETCH (); rest = FETCH (); @@ -1464,7 +1400,6 @@ VM_DEFINE_INSTRUCTION (72, box, "box", 1, 1, 0) POP (val); SYNC_BEFORE_GC (); LOCAL_SET (FETCH (), scm_cell (scm_tc7_variable, SCM_UNPACK (val))); - DEAD (val); NEXT; } @@ -1486,7 +1421,6 @@ VM_DEFINE_INSTRUCTION (74, local_boxed_ref, "local-boxed-ref", 1, 0, 1) SCM v = LOCAL_REF (FETCH ()); ASSERT_BOUND_VARIABLE (v); PUSH (VARIABLE_REF (v)); - DEAD (v); NEXT; } @@ -1497,8 +1431,6 @@ VM_DEFINE_INSTRUCTION (75, local_boxed_set, "local-boxed-set", 1, 1, 0) POP (val); ASSERT_VARIABLE (v); VARIABLE_SET (v, val); - DEAD (v); - DEAD (val); NEXT; } @@ -1521,7 +1453,6 @@ VM_DEFINE_INSTRUCTION (77, free_boxed_ref, "free-boxed-ref", 1, 0, 1) v = FREE_VARIABLE_REF (idx); ASSERT_BOUND_VARIABLE (v); PUSH (VARIABLE_REF (v)); - DEAD (v); NEXT; } @@ -1534,8 +1465,6 @@ VM_DEFINE_INSTRUCTION (78, free_boxed_set, "free-boxed-set", 1, 1, 0) v = FREE_VARIABLE_REF (idx); ASSERT_BOUND_VARIABLE (v); VARIABLE_SET (v, val); - DEAD (v); - DEAD (val); NEXT; } @@ -1554,7 +1483,6 @@ VM_DEFINE_INSTRUCTION (79, make_closure, "make-closure", 2, -1, 1) sp[-len] = closure; for (n = 0; n < len; n++) SCM_PROGRAM_FREE_VARIABLE_SET (closure, n, sp[-len + 1 + n]); - DEAD (closure); DROPN (len); NEXT; } @@ -1580,7 +1508,6 @@ VM_DEFINE_INSTRUCTION (81, fix_closure, "fix-closure", 2, -1, 0) len = SCM_PROGRAM_NUM_FREE_VARIABLES (x); for (n = 0; n < len; n++) SCM_PROGRAM_FREE_VARIABLE_SET (x, n, sp[-len + 1 + n]); - DEAD (x); DROPN (len); NEXT; } @@ -1593,8 +1520,6 @@ VM_DEFINE_INSTRUCTION (82, define, "define", 0, 0, 2) VARIABLE_SET (scm_sym2var (sym, scm_current_module_lookup_closure (), SCM_BOOL_T), val); - DEAD (sym); - DEAD (val); NEXT; } @@ -1638,8 +1563,6 @@ VM_DEFINE_INSTRUCTION (85, prompt, "prompt", 4, 2, 0) vm_engine that can be assigned *has* been assigned. So we need to pull all our state back from the ip/fp/sp. */ - DEAD (k); - DEAD (prompt); CACHE_REGISTER (); program = SCM_FRAME_PROGRAM (fp); CACHE_PROGRAM (); @@ -1649,9 +1572,6 @@ VM_DEFINE_INSTRUCTION (85, prompt, "prompt", 4, 2, 0) NEXT; } - DEAD (k); - DEAD (prompt); - /* Otherwise setjmp returned for the first time, so we go to execute the prompt's body. */ NEXT; @@ -1676,8 +1596,6 @@ VM_DEFINE_INSTRUCTION (86, wind, "wind", 0, 2, 0) goto vm_error_not_a_thunk; } scm_i_set_dynwinds (scm_cons (scm_cons (wind, unwind), scm_i_dynwinds ())); - DEAD (wind); - DEAD (unwind); NEXT; } @@ -1713,7 +1631,6 @@ VM_DEFINE_INSTRUCTION (89, wind_fluids, "wind-fluids", 1, -1, 0) scm_i_swap_with_fluids (wf, current_thread->dynamic_state); scm_i_set_dynwinds (scm_cons (wf, scm_i_dynwinds ())); - DEAD (wf); NEXT; } @@ -1723,7 +1640,6 @@ VM_DEFINE_INSTRUCTION (90, unwind_fluids, "unwind-fluids", 0, 0, 0) wf = scm_car (scm_i_dynwinds ()); scm_i_set_dynwinds (scm_cdr (scm_i_dynwinds ())); scm_i_swap_with_fluids (wf, current_thread->dynamic_state); - DEAD (wf); NEXT; } @@ -1738,14 +1654,12 @@ VM_DEFINE_INSTRUCTION (91, fluid_ref, "fluid-ref", 0, 1, 1) || ((num = SCM_I_FLUID_NUM (*sp)) >= SCM_SIMPLE_VECTOR_LENGTH (fluids))) { /* Punt dynstate expansion and error handling to the C proc. */ - DEAD (fluids); SYNC_REGISTER (); *sp = scm_fluid_ref (*sp); } else { SCM val = SCM_SIMPLE_VECTOR_REF (fluids, num); - DEAD (fluids); if (scm_is_eq (val, SCM_UNDEFINED)) val = SCM_I_FLUID_DEFAULT (*sp); if (SCM_UNLIKELY (scm_is_eq (val, SCM_UNDEFINED))) @@ -1775,9 +1689,7 @@ VM_DEFINE_INSTRUCTION (92, fluid_set, "fluid-set", 0, 2, 0) } else SCM_SIMPLE_VECTOR_SET (fluids, num, val); - DEAD (fluids); - DEAD (fluid); - DEAD (val); + NEXT; } From a18e13a57c064cc1cde9a96b7ac006cdee3263e0 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 29 Jan 2012 22:31:49 +0100 Subject: [PATCH 24/32] Revert "vm-i-scheme.c slight refactor" This reverts commit c0e4449908eee84bcb293ec21c10fec646bde45d. This refactor was needed for the introduction of DEAD(), which does not appear to have been necessary. --- libguile/vm-i-scheme.c | 170 +++++++++++------------------------------ 1 file changed, 45 insertions(+), 125 deletions(-) diff --git a/libguile/vm-i-scheme.c b/libguile/vm-i-scheme.c index 243e1a311..80328cde8 100644 --- a/libguile/vm-i-scheme.c +++ b/libguile/vm-i-scheme.c @@ -1,4 +1,4 @@ -/* Copyright (C) 2001, 2009, 2010, 2011, 2012 Free Software Foundation, Inc. +/* Copyright (C) 2001, 2009, 2010, 2011 Free Software Foundation, Inc. * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License @@ -27,48 +27,42 @@ #define ARGS2(a1,a2) SCM a1 = sp[-1], a2 = sp[0]; sp--; NULLSTACK (1); #define ARGS3(a1,a2,a3) SCM a1 = sp[-2], a2 = sp[-1], a3 = sp[0]; sp -= 2; NULLSTACK (2); -#define RETURN(x) do { *sp = x; } while (0) +#define RETURN(x) do { *sp = x; NEXT; } while (0) VM_DEFINE_FUNCTION (128, not, "not", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_false (x))); - NEXT; } VM_DEFINE_FUNCTION (129, not_not, "not-not", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_false (x))); - NEXT; } VM_DEFINE_FUNCTION (130, eq, "eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (scm_is_eq (x, y))); - NEXT; } VM_DEFINE_FUNCTION (131, not_eq, "not-eq?", 2) { ARGS2 (x, y); RETURN (scm_from_bool (!scm_is_eq (x, y))); - NEXT; } VM_DEFINE_FUNCTION (132, nullp, "null?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_null (x))); - NEXT; } VM_DEFINE_FUNCTION (133, not_nullp, "not-null?", 1) { ARGS1 (x); RETURN (scm_from_bool (!scm_is_null (x))); - NEXT; } VM_DEFINE_FUNCTION (134, eqv, "eqv?", 2) @@ -76,14 +70,10 @@ VM_DEFINE_FUNCTION (134, eqv, "eqv?", 2) ARGS2 (x, y); if (scm_is_eq (x, y)) RETURN (SCM_BOOL_T); - else if (SCM_IMP (x) || SCM_IMP (y)) + if (SCM_IMP (x) || SCM_IMP (y)) RETURN (SCM_BOOL_F); - else - { - SYNC_REGISTER (); - RETURN (scm_eqv_p (x, y)); - } - NEXT; + SYNC_REGISTER (); + RETURN (scm_eqv_p (x, y)); } VM_DEFINE_FUNCTION (135, equal, "equal?", 2) @@ -91,42 +81,34 @@ VM_DEFINE_FUNCTION (135, equal, "equal?", 2) ARGS2 (x, y); if (scm_is_eq (x, y)) RETURN (SCM_BOOL_T); - else if (SCM_IMP (x) || SCM_IMP (y)) + if (SCM_IMP (x) || SCM_IMP (y)) RETURN (SCM_BOOL_F); - else - { - SYNC_REGISTER (); - RETURN (scm_equal_p (x, y)); - } - NEXT; + SYNC_REGISTER (); + RETURN (scm_equal_p (x, y)); } VM_DEFINE_FUNCTION (136, pairp, "pair?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_pair (x))); - NEXT; } VM_DEFINE_FUNCTION (137, listp, "list?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_ilength (x) >= 0)); - NEXT; } VM_DEFINE_FUNCTION (138, symbolp, "symbol?", 1) { ARGS1 (x); RETURN (scm_from_bool (scm_is_symbol (x))); - NEXT; } VM_DEFINE_FUNCTION (139, vectorp, "vector?", 1) { ARGS1 (x); RETURN (scm_from_bool (SCM_I_IS_VECTOR (x))); - NEXT; } @@ -139,13 +121,11 @@ VM_DEFINE_FUNCTION (140, cons, "cons", 2) ARGS2 (x, y); CONS (x, x, y); RETURN (x); - NEXT; } #define VM_VALIDATE_CONS(x, proc) \ if (SCM_UNLIKELY (!scm_is_pair (x))) \ - { \ - func_name = proc; \ + { func_name = proc; \ finish_args = x; \ goto vm_error_not_a_pair; \ } @@ -155,7 +135,6 @@ VM_DEFINE_FUNCTION (141, car, "car", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "car"); RETURN (SCM_CAR (x)); - NEXT; } VM_DEFINE_FUNCTION (142, cdr, "cdr", 1) @@ -163,7 +142,6 @@ VM_DEFINE_FUNCTION (142, cdr, "cdr", 1) ARGS1 (x); VM_VALIDATE_CONS (x, "cdr"); RETURN (SCM_CDR (x)); - NEXT; } VM_DEFINE_INSTRUCTION (143, set_car, "set-car!", 0, 2, 0) @@ -196,12 +174,8 @@ VM_DEFINE_INSTRUCTION (144, set_cdr, "set-cdr!", 0, 2, 0) if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \ RETURN (scm_from_bool (((scm_t_signed_bits) SCM_UNPACK (x)) \ crel ((scm_t_signed_bits) SCM_UNPACK (y)))); \ - else \ - { \ - SYNC_REGISTER (); \ - RETURN (srel (x, y)); \ - } \ - NEXT; \ + SYNC_REGISTER (); \ + RETURN (srel (x, y)); \ } VM_DEFINE_FUNCTION (145, ee, "ee?", 2) @@ -241,22 +215,18 @@ VM_DEFINE_FUNCTION (149, ge, "ge?", 2) #define INUM_MIN (INTPTR_MIN + scm_tc2_int) #undef FUNC2 -#define FUNC2(CFUNC,SFUNC) \ - { \ - ARGS2 (x, y); \ - if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \ - { \ - scm_t_int64 n = SCM_I_INUM (x) CFUNC SCM_I_INUM (y); \ - if (SCM_FIXABLE (n)) \ - { \ - RETURN (SCM_I_MAKINUM (n)); \ - NEXT; \ - } \ - } \ - SYNC_REGISTER (); \ - RETURN (SFUNC (x, y)); \ - NEXT; \ - } +#define FUNC2(CFUNC,SFUNC) \ +{ \ + ARGS2 (x, y); \ + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) \ + { \ + scm_t_int64 n = SCM_I_INUM (x) CFUNC SCM_I_INUM (y);\ + if (SCM_FIXABLE (n)) \ + RETURN (SCM_I_MAKINUM (n)); \ + } \ + SYNC_REGISTER (); \ + RETURN (SFUNC (x, y)); \ +} /* Assembly tagged integer arithmetic routines. This code uses the `asm goto' feature introduced in GCC 4.5. */ @@ -319,7 +289,6 @@ VM_DEFINE_FUNCTION (150, add, "add", 2) ASM_ADD (x, y); SYNC_REGISTER (); RETURN (scm_sum (x, y)); - NEXT; #endif } @@ -338,15 +307,11 @@ VM_DEFINE_FUNCTION (151, add1, "add1", 1) - scm_tc2_int); if (SCM_LIKELY (SCM_I_INUMP (result))) - { - RETURN (result); - NEXT; - } + RETURN (result); } SYNC_REGISTER (); RETURN (scm_sum (x, SCM_I_MAKINUM (1))); - NEXT; } VM_DEFINE_FUNCTION (152, sub, "sub", 2) @@ -358,7 +323,6 @@ VM_DEFINE_FUNCTION (152, sub, "sub", 2) ASM_SUB (x, y); SYNC_REGISTER (); RETURN (scm_difference (x, y)); - NEXT; #endif } @@ -377,15 +341,11 @@ VM_DEFINE_FUNCTION (153, sub1, "sub1", 1) + scm_tc2_int); if (SCM_LIKELY (SCM_I_INUMP (result))) - { - RETURN (result); - NEXT; - } + RETURN (result); } SYNC_REGISTER (); RETURN (scm_difference (x, SCM_I_MAKINUM (1))); - NEXT; } # undef ASM_ADD @@ -396,7 +356,6 @@ VM_DEFINE_FUNCTION (154, mul, "mul", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_product (x, y)); - NEXT; } VM_DEFINE_FUNCTION (155, div, "div", 2) @@ -404,7 +363,6 @@ VM_DEFINE_FUNCTION (155, div, "div", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_divide (x, y)); - NEXT; } VM_DEFINE_FUNCTION (156, quo, "quo", 2) @@ -412,7 +370,6 @@ VM_DEFINE_FUNCTION (156, quo, "quo", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_quotient (x, y)); - NEXT; } VM_DEFINE_FUNCTION (157, rem, "rem", 2) @@ -420,7 +377,6 @@ VM_DEFINE_FUNCTION (157, rem, "rem", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_remainder (x, y)); - NEXT; } VM_DEFINE_FUNCTION (158, mod, "mod", 2) @@ -428,7 +384,6 @@ VM_DEFINE_FUNCTION (158, mod, "mod", 2) ARGS2 (x, y); SYNC_REGISTER (); RETURN (scm_modulo (x, y)); - NEXT; } VM_DEFINE_FUNCTION (159, ash, "ash", 2) @@ -438,10 +393,7 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) { if (SCM_I_INUM (y) < 0) /* Right shift, will be a fixnum. */ - { - RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); - NEXT; - } + RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) >> -SCM_I_INUM (y))); else /* Left shift. See comments in scm_ash. */ { @@ -454,56 +406,40 @@ VM_DEFINE_FUNCTION (159, ash, "ash", 2) && ((scm_t_bits) (SCM_SRS (nn, (SCM_I_FIXNUM_BIT-1 - bits_to_shift)) + 1) <= 1)) - { - RETURN (SCM_I_MAKINUM (nn << bits_to_shift)); - NEXT; - } + RETURN (SCM_I_MAKINUM (nn << bits_to_shift)); /* fall through */ } /* fall through */ } SYNC_REGISTER (); RETURN (scm_ash (x, y)); - NEXT; } VM_DEFINE_FUNCTION (160, logand, "logand", 2) { ARGS2 (x, y); - if (SCM_LIKELY (SCM_I_INUMP (x) && SCM_I_INUMP (y))) + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) & SCM_I_INUM (y))); - else - { - SYNC_REGISTER (); - RETURN (scm_logand (x, y)); - } - NEXT; + SYNC_REGISTER (); + RETURN (scm_logand (x, y)); } VM_DEFINE_FUNCTION (161, logior, "logior", 2) { ARGS2 (x, y); - if (SCM_LIKELY (SCM_I_INUMP (x) && SCM_I_INUMP (y))) + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) | SCM_I_INUM (y))); - else - { - SYNC_REGISTER (); - RETURN (scm_logior (x, y)); - } - NEXT; + SYNC_REGISTER (); + RETURN (scm_logior (x, y)); } VM_DEFINE_FUNCTION (162, logxor, "logxor", 2) { ARGS2 (x, y); - if (SCM_LIKELY (SCM_I_INUMP (x) && SCM_I_INUMP (y))) + if (SCM_I_INUMP (x) && SCM_I_INUMP (y)) RETURN (SCM_I_MAKINUM (SCM_I_INUM (x) ^ SCM_I_INUM (y))); - else - { - SYNC_REGISTER (); - RETURN (scm_logxor (x, y)); - } - NEXT; + SYNC_REGISTER (); + RETURN (scm_logxor (x, y)); } @@ -525,7 +461,6 @@ VM_DEFINE_FUNCTION (163, vector_ref, "vector-ref", 2) SYNC_REGISTER (); RETURN (scm_vector_ref (vect, idx)); } - NEXT; } VM_DEFINE_INSTRUCTION (164, vector_set, "vector-set", 0, 3, 0) @@ -579,7 +514,6 @@ VM_DEFINE_FUNCTION (166, struct_p, "struct?", 1) { ARGS1 (obj); RETURN (scm_from_bool (SCM_STRUCTP (obj))); - NEXT; } VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1) @@ -587,7 +521,6 @@ VM_DEFINE_FUNCTION (167, struct_vtable, "struct-vtable", 1) ARGS1 (obj); VM_VALIDATE_STRUCT (obj, "struct_vtable"); RETURN (SCM_STRUCT_VTABLE (obj)); - NEXT; } VM_DEFINE_INSTRUCTION (168, make_struct, "make-struct", 2, -1, 1) @@ -644,15 +577,13 @@ VM_DEFINE_FUNCTION (169, struct_ref, "struct-ref", 2) if (SCM_LIKELY (index < len)) { - scm_t_bits *data = SCM_STRUCT_DATA (obj); - RETURN (SCM_PACK (data[index])); - NEXT; + scm_t_bits *data = SCM_STRUCT_DATA (obj); + RETURN (SCM_PACK (data[index])); } } SYNC_REGISTER (); RETURN (scm_struct_ref (obj, pos)); - NEXT; } VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3) @@ -675,16 +606,14 @@ VM_DEFINE_FUNCTION (170, struct_set, "struct-set", 3) len = SCM_STRUCT_DATA_REF (vtable, scm_vtable_index_size); if (SCM_LIKELY (index < len)) { - scm_t_bits *data = SCM_STRUCT_DATA (obj); - data[index] = SCM_UNPACK (val); - RETURN (val); - NEXT; + scm_t_bits *data = SCM_STRUCT_DATA (obj); + data[index] = SCM_UNPACK (val); + RETURN (val); } } SYNC_REGISTER (); RETURN (scm_struct_set_x (obj, pos, val)); - NEXT; } @@ -696,12 +625,8 @@ VM_DEFINE_FUNCTION (171, class_of, "class-of", 1) ARGS1 (obj); if (SCM_INSTANCEP (obj)) RETURN (SCM_CLASS_OF (obj)); - else - { - SYNC_REGISTER (); - RETURN (scm_class_of (obj)); - } - NEXT; + SYNC_REGISTER (); + RETURN (scm_class_of (obj)); } /* FIXME: No checking whatsoever. */ @@ -711,7 +636,6 @@ VM_DEFINE_FUNCTION (172, slot_ref, "slot-ref", 2) ARGS2 (instance, idx); slot = SCM_I_INUM (idx); RETURN (SCM_PACK (SCM_STRUCT_DATA (instance) [slot])); - NEXT; } /* FIXME: No checking whatsoever. */ @@ -751,7 +675,6 @@ VM_DEFINE_INSTRUCTION (173, slot_set, "slot-set", 0, 3, 0) ARGS2 (bv, idx); \ SYNC_REGISTER (); \ RETURN (scm_bytevector_##fn_stem##_ref (bv, idx, endianness)); \ - NEXT; \ } \ } @@ -792,13 +715,12 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) && (i >= 0) \ && (i + size <= SCM_BYTEVECTOR_LENGTH (bv)) \ && (ALIGNED_P (int_ptr, scm_t_ ## type)))) \ - RETURN (SCM_I_MAKINUM (*int_ptr)); \ + RETURN (SCM_I_MAKINUM (*int_ptr)); \ else \ { \ SYNC_REGISTER (); \ - RETURN (scm_bytevector_ ## fn_stem ## _ref (bv, idx)); \ + RETURN (scm_bytevector_ ## fn_stem ## _ref (bv, idx)); \ } \ - NEXT; \ } #define BV_INT_REF(stem, type, size) \ @@ -830,7 +752,6 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) SYNC_REGISTER (); \ RETURN (scm_bytevector_ ## stem ## _native_ref (bv, idx)); \ } \ - NEXT; \ } #define BV_FLOAT_REF(stem, fn_stem, type, size) \ @@ -851,7 +772,6 @@ BV_REF_WITH_ENDIANNESS (f64, ieee_double) RETURN (scm_from_double (*float_ptr)); \ else \ RETURN (scm_bytevector_ ## fn_stem ## _native_ref (bv, idx)); \ - NEXT; \ } VM_DEFINE_FUNCTION (182, bv_u8_ref, "bv-u8-ref", 2) From 9c5d7fa6714e2c8f5e808cdc211f6bd0c1cd49d6 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Sun, 29 Jan 2012 22:45:56 +0100 Subject: [PATCH 25/32] paper over some "lexical vars are collectable" flakiness * test-suite/tests/gc.test ("gc"): Hack around flakiness in "lexical vars are collectable" on some architectures. --- test-suite/tests/gc.test | 34 +++++++++++++++++++++++----------- 1 file changed, 23 insertions(+), 11 deletions(-) diff --git a/test-suite/tests/gc.test b/test-suite/tests/gc.test index 527bef56c..97eeb195e 100644 --- a/test-suite/tests/gc.test +++ b/test-suite/tests/gc.test @@ -87,14 +87,26 @@ total))) (pass-if "Lexical vars are collectable" - (list? - (compile - '(begin - (define guardian (make-guardian)) - (let ((f (list 'foo))) - ;; Introduce a useless second reference to f to prevent the - ;; optimizer from propagating the lexical binding. - f - (guardian f)) - (gc)(gc)(gc) - (guardian)))))) + (let ((l (compile + '(begin + (define guardian (make-guardian)) + (let ((f (list 'foo))) + (guardian f)) + ;; See below. + ;; ((lambda () #t)) + (gc)(gc)(gc) + (guardian)) + ;; Prevent the optimizer from propagating f. + #:opts '(#:partial-eval? #f)))) + (if (not l) + ;; We think that something on the C stack in the VM is holding + ;; on to a reference to the list. This happens on + ;; register-poor architectures, where more locals are spilled + ;; to the stack. If more code runs before the (gc) is run, + ;; like a ((lambda () #t)), then the test passes. So given + ;; that at some point, the reference will be dropped, we will + ;; count these cases as "unresolved" instead of "fail". + ;; + ;; See http://debbugs.gnu.org/cgi/bugreport.cgi?bug=10336. + (throw 'unresolved) + (equal? l '(foo)))))) From 58f86505d658359508732c8f187bc37d010074d0 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Mon, 30 Jan 2012 00:17:34 +0100 Subject: [PATCH 26/32] Augment `Libs.private' with for non-GNU platforms. Reported by Eli Zaretskii . * meta/guile-2.0.pc.in (Libs.private): Add all the optional libraries that may be pulled via Gnulib on non-GNU platforms. --- meta/guile-2.0.pc.in | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/meta/guile-2.0.pc.in b/meta/guile-2.0.pc.in index ecca778e1..1bda73449 100644 --- a/meta/guile-2.0.pc.in +++ b/meta/guile-2.0.pc.in @@ -15,5 +15,8 @@ Name: GNU Guile Description: GNU's Ubiquitous Intelligent Language for Extension Version: @GUILE_VERSION@ Libs: -L${libdir} -lguile-@GUILE_EFFECTIVE_VERSION@ @BDW_GC_LIBS@ -Libs.private: @LIB_CLOCK_GETTIME@ @LIBGMP@ @LIBLTDL@ @LIBFFI_LIBS@ @GUILE_LIBS@ +Libs.private: @LIB_CLOCK_GETTIME@ @LIBGMP@ @LIBLTDL@ @LIBFFI_LIBS@ \ + @LIBUNISTRING@ @GUILE_LIBS@ @LIBICONV@ @LIBINTL@ @LIBSOCKET@ \ + @SERVENT_LIB@ @HOSTENT_LIB@ @GETADDRINFO_LIB@ @INET_NTOP_LIB@ \ + @INET_PTON_LIB@ Cflags: -I${pkgincludedir}/@GUILE_EFFECTIVE_VERSION@ @GUILE_CFLAGS@ @BDW_GC_CFLAGS@ From 505afe28321654a5e28b0954eeda9d1a58ce2467 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Mon, 30 Jan 2012 00:33:31 -0500 Subject: [PATCH 27/32] Update user-visible copyright dates in manual and REPL to 2012 * doc/ref/guile.texi, module/system/repl/common.scm: Update user-visible copyright dates to 2012. --- doc/ref/guile.texi | 2 +- module/system/repl/common.scm | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/doc/ref/guile.texi b/doc/ref/guile.texi index 9c6deb667..c3da0c36d 100644 --- a/doc/ref/guile.texi +++ b/doc/ref/guile.texi @@ -14,7 +14,7 @@ This manual documents Guile version @value{VERSION}. Copyright (C) 1996, 1997, 2000, 2001, 2002, 2003, 2004, 2005, 2009, -2010, 2011 Free Software Foundation. +2010, 2011, 2012 Free Software Foundation. Permission is granted to copy, distribute and/or modify this document under the terms of the GNU Free Documentation License, Version 1.3 or diff --git a/module/system/repl/common.scm b/module/system/repl/common.scm index 6c6ee2ae7..346ba990f 100644 --- a/module/system/repl/common.scm +++ b/module/system/repl/common.scm @@ -39,7 +39,7 @@ (define *version* (format #f "GNU Guile ~A -Copyright (C) 1995-2011 Free Software Foundation, Inc. +Copyright (C) 1995-2012 Free Software Foundation, Inc. Guile comes with ABSOLUTELY NO WARRANTY; for details type `,show w'. This program is free software, and you are welcome to redistribute it From 2f3e436411b5dbb4f1a1b9d8583b348e221d5b67 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Mon, 30 Jan 2012 03:02:32 -0500 Subject: [PATCH 28/32] Fix 'local-eval' when the specified environment is a module * module/ice-9/local-eval.scm (local-wrap): Fix the (module? e) case, to reference the expression 'x' instead of the non-existent variable 'exp', as was previously done. Also use quasisyntax instead of quasiquote, so that the introduced 'lambda' is an identifier instead of a bare symbol, so that this will work in modules that have rebound 'lambda' to something else. * test-suite/tests/eval.test (local-eval): Make sure to test both 'local-eval' and 'local-compile' when the specified environment is a module. --- module/ice-9/local-eval.scm | 2 +- test-suite/tests/eval.test | 20 +++++++++++--------- 2 files changed, 12 insertions(+), 10 deletions(-) diff --git a/module/ice-9/local-eval.scm b/module/ice-9/local-eval.scm index f01a9c655..28f30b991 100644 --- a/module/ice-9/local-eval.scm +++ b/module/ice-9/local-eval.scm @@ -235,7 +235,7 @@ (scope (caddr l))) (within-nested-ellipses (datum->syntax scope name) lvl))) (lexenv-patterns e)))) - ((module? e) `(lambda () #f ,exp)) + ((module? e) #`(lambda () #f #,x)) (else (error "invalid lexical environment" e)))) (define (local-eval x e) diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index f532059f0..b0bfd4c44 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -431,9 +431,10 @@ (pass-if "local-eval" - (let* ((env1 (let ((x 1) (y 2) (z 3)) - (define-syntax-rule (foo x) (quote x)) - (the-environment))) + (let* ((env1 (local-eval '(let ((x 1) (y 2) (z 3)) + (define-syntax-rule (foo x) (quote x)) + (the-environment)) + (current-module))) (env2 (local-eval '(let ((x 111) (a 'a)) (define-syntax-rule (bar x) (quote x)) (the-environment)) @@ -448,9 +449,10 @@ (pass-if "local-compile" - (let* ((env1 (let ((x 1) (y 2) (z 3)) - (define-syntax-rule (foo x) (quote x)) - (the-environment))) + (let* ((env1 (local-compile '(let ((x 1) (y 2) (z 3)) + (define-syntax-rule (foo x) (quote x)) + (the-environment)) + (current-module))) (env2 (local-compile '(let ((x 111) (a 'a)) (define-syntax-rule (bar x) (quote x)) (the-environment)) @@ -477,9 +479,9 @@ (the-environment)))) module-a) (module-use! module-b (resolve-interface '(guile))) - (let ((env (eval `(let ((x 111) (y 222)) - ((@@ ,module-a-name test))) - module-b))) + (let ((env (local-eval `(let ((x 111) (y 222)) + ((@@ ,module-a-name test))) + module-b))) (equal? (local-eval '(list x y z) env) '(1 2 3)))))) From adb8054c6d16d3c5869cd543dbd29c384af02ccd Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Sun, 29 Jan 2012 17:43:13 -0500 Subject: [PATCH 29/32] Fix primitive-eval to return # for definitions * module/ice-9/eval.scm (primitive-eval): Return # for definitions. Previously the variable object was returned. * test-suite/tests/eval.test (evaluator): Add test. * NEWS: Add news entry. --- NEWS | 1 + module/ice-9/eval.scm | 3 ++- test-suite/tests/eval.test | 4 ++++ 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/NEWS b/NEWS index ce4768631..02b824dff 100644 --- a/NEWS +++ b/NEWS @@ -180,6 +180,7 @@ Search the manual for these identifiers and modules, for more. ** Fix erroneous check in `set-procedure-properties!'. ** Fix generalized-vector-{ref,set!} for slices. ** Fix error messages involving definition forms. +** Fix primitive-eval to return # for definitions. ** HTTP: Extend handling of "Cache-Control" header. ** HTTP: Fix qstring writing of cache-extension values ** HTTP: Fix validators for various list-style headers. diff --git a/module/ice-9/eval.scm b/module/ice-9/eval.scm index c0fa64c90..74b85329d 100644 --- a/module/ice-9/eval.scm +++ b/module/ice-9/eval.scm @@ -428,7 +428,8 @@ (let ((x (eval x env))) (if (and (procedure? x) (not (procedure-property x 'name))) (set-procedure-property! x 'name name)) - (define! name x))) + (define! name x) + (if #f #f))) (('toplevel-set! (var-or-sym . x)) (variable-set! diff --git a/test-suite/tests/eval.test b/test-suite/tests/eval.test index b0bfd4c44..a5fbfece2 100644 --- a/test-suite/tests/eval.test +++ b/test-suite/tests/eval.test @@ -75,6 +75,10 @@ (with-test-prefix "evaluator" + (pass-if "definitions return #" + (eq? (primitive-eval '(define test-var 'foo)) + (if #f #f))) + (with-test-prefix "symbol lookup" (with-test-prefix "top level" From 741b8a2300ef329cf5691a3c35b920df68f093e2 Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Sun, 29 Jan 2012 20:00:21 -0500 Subject: [PATCH 30/32] Implement scm_call_varargs and scm_call_{7,8,9} * libguile/eval.c (scm_call_7, scm_call_8, scm_call_9, scm_call_varargs): New functions. * libguile/eval.h: Add prototypes. * doc/ref/api-evaluation.texi: Add documentation. * test-suite/standalone/test-loose-ends.c: Add tests. * NEWS: Add news entry. --- NEWS | 1 + doc/ref/api-evaluation.texi | 15 ++++++++ libguile/eval.c | 46 +++++++++++++++++++++++++ libguile/eval.h | 7 ++++ test-suite/standalone/test-loose-ends.c | 17 +++++++++ 5 files changed, 86 insertions(+) diff --git a/NEWS b/NEWS index 02b824dff..df5a4f8b0 100644 --- a/NEWS +++ b/NEWS @@ -136,6 +136,7 @@ Reflection", "Syntax Transformer Helpers", and "Local Inclusion". ** New print option: `escape-newlines', defaults to #t. ** (ice-9 ftw): `file-system-fold', `file-system-tree', `scandir' ** `scm_c_value_ref': access to multiple returned values from C +** scm_call_7, scm_call_8, scm_call_9, and scm_call_varargs ** Some new syntax helpers in (system syntax) Search the manual for these identifiers and modules, for more. diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi index 90cae45bd..de541943e 100644 --- a/doc/ref/api-evaluation.texi +++ b/doc/ref/api-evaluation.texi @@ -533,9 +533,24 @@ then there's no @var{arg1}@dots{}@var{argN} and @var{arg} is the @deffnx {C Function} scm_call_4 (proc, arg1, arg2, arg3, arg4) @deffnx {C Function} scm_call_5 (proc, arg1, arg2, arg3, arg4, arg5) @deffnx {C Function} scm_call_6 (proc, arg1, arg2, arg3, arg4, arg5, arg6) +@deffnx {C Function} scm_call_7 (proc, arg1, arg2, arg3, arg4, arg5, arg6, arg7) +@deffnx {C Function} scm_call_8 (proc, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8) +@deffnx {C Function} scm_call_9 (proc, arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9) Call @var{proc} with the given arguments. @end deffn +@deffn {C Function} scm_call_varargs (proc, ...) +Call @var{proc} with any number of arguments. The argument list must be +terminated by @code{SCM_UNDEFINED}. For example: + +@example +scm_call_varargs (scm_c_public_ref ("guile", "+"), + scm_from_int (1), + scm_from_int (2), + SCM_UNDEFINED); +@end example +@end deffn + @deffn {C Function} scm_call_n (proc, argv, nargs) Call @var{proc} with the array of arguments @var{argv}, as a @code{SCM*}. The length of the arguments should be passed in diff --git a/libguile/eval.c b/libguile/eval.c index e008b3a08..70e303ab1 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -24,6 +24,7 @@ #endif #include +#include #include "libguile/__scm.h" @@ -521,12 +522,57 @@ scm_call_6 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5, return scm_c_vm_run (scm_the_vm (), proc, args, 6); } +SCM +scm_call_7 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5, + SCM arg6, SCM arg7) +{ + SCM args[] = { arg1, arg2, arg3, arg4, arg5, arg6, arg7 }; + return scm_c_vm_run (scm_the_vm (), proc, args, 7); +} + +SCM +scm_call_8 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5, + SCM arg6, SCM arg7, SCM arg8) +{ + SCM args[] = { arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8 }; + return scm_c_vm_run (scm_the_vm (), proc, args, 8); +} + +SCM +scm_call_9 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5, + SCM arg6, SCM arg7, SCM arg8, SCM arg9) +{ + SCM args[] = { arg1, arg2, arg3, arg4, arg5, arg6, arg7, arg8, arg9 }; + return scm_c_vm_run (scm_the_vm (), proc, args, 9); +} + SCM scm_call_n (SCM proc, SCM *argv, size_t nargs) { return scm_c_vm_run (scm_the_vm (), proc, argv, nargs); } +SCM +scm_call_varargs (SCM proc, ...) +{ + va_list argp; + SCM *argv = NULL; + size_t i, nargs = 0; + + va_start (argp, proc); + while (!SCM_UNBNDP (va_arg (argp, SCM))) + nargs++; + va_end (argp); + + argv = alloca (nargs * sizeof (SCM)); + va_start (argp, proc); + for (i = 0; i < nargs; i++) + argv[i] = va_arg (argp, SCM); + va_end (argp); + + return scm_c_vm_run (scm_the_vm (), proc, argv, nargs); +} + /* Simple procedure applies */ diff --git a/libguile/eval.h b/libguile/eval.h index f193ad64e..dca0b4119 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -72,7 +72,14 @@ SCM_API SCM scm_call_5 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5); SCM_API SCM scm_call_6 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5, SCM arg6); +SCM_API SCM scm_call_7 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, + SCM arg5, SCM arg6, SCM arg7); +SCM_API SCM scm_call_8 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, + SCM arg5, SCM arg6, SCM arg7, SCM arg8); +SCM_API SCM scm_call_9 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, + SCM arg5, SCM arg6, SCM arg7, SCM arg8, SCM arg9); SCM_API SCM scm_call_n (SCM proc, SCM *argv, size_t nargs); +SCM_API SCM scm_call_varargs (SCM proc, ...); SCM_API SCM scm_apply_0 (SCM proc, SCM args); SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args); SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args); diff --git a/test-suite/standalone/test-loose-ends.c b/test-suite/standalone/test-loose-ends.c index d1d683175..253c9a68f 100644 --- a/test-suite/standalone/test-loose-ends.c +++ b/test-suite/standalone/test-loose-ends.c @@ -58,11 +58,28 @@ test_scm_local_eval () scm_from_signed_integer (3)))); } +static void +test_scm_call_varargs () +{ + SCM result; + + result = scm_call_varargs (scm_c_public_ref ("guile", "+"), + scm_from_int (1), + scm_from_int (2), + SCM_UNDEFINED); + assert (scm_is_true (scm_equal_p (result, scm_from_int (3)))); + + result = scm_call_varargs (scm_c_public_ref ("guile", "list"), + SCM_UNDEFINED); + assert (scm_is_eq (result, SCM_EOL)); +} + static void tests (void *data, int argc, char **argv) { test_scm_from_locale_keywordn (); test_scm_local_eval (); + test_scm_call_varargs (); } int From 07c2ca0f0d56ebe515cb4ee9f1c3f4b3e824ca7b Mon Sep 17 00:00:00 2001 From: Mark H Weaver Date: Mon, 30 Jan 2012 11:02:29 -0500 Subject: [PATCH 31/32] Rename scm_call_varargs -> scm_call MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * libguile/eval.c, libguile/eval.h, doc/ref/api-evaluation.texi, test-suite/standalone/test-loose-ends.c, NEWS: Rename scm_call_varargs -> scm_call Suggested by Ludovic Courtès --- NEWS | 2 +- doc/ref/api-evaluation.texi | 10 +++++----- libguile/eval.c | 2 +- libguile/eval.h | 2 +- test-suite/standalone/test-loose-ends.c | 16 ++++++++-------- 5 files changed, 16 insertions(+), 16 deletions(-) diff --git a/NEWS b/NEWS index df5a4f8b0..0edcef75c 100644 --- a/NEWS +++ b/NEWS @@ -136,7 +136,7 @@ Reflection", "Syntax Transformer Helpers", and "Local Inclusion". ** New print option: `escape-newlines', defaults to #t. ** (ice-9 ftw): `file-system-fold', `file-system-tree', `scandir' ** `scm_c_value_ref': access to multiple returned values from C -** scm_call_7, scm_call_8, scm_call_9, and scm_call_varargs +** scm_call (a varargs version), scm_call_7, scm_call_8, scm_call_9 ** Some new syntax helpers in (system syntax) Search the manual for these identifiers and modules, for more. diff --git a/doc/ref/api-evaluation.texi b/doc/ref/api-evaluation.texi index de541943e..8c41d1efd 100644 --- a/doc/ref/api-evaluation.texi +++ b/doc/ref/api-evaluation.texi @@ -539,15 +539,15 @@ then there's no @var{arg1}@dots{}@var{argN} and @var{arg} is the Call @var{proc} with the given arguments. @end deffn -@deffn {C Function} scm_call_varargs (proc, ...) +@deffn {C Function} scm_call (proc, ...) Call @var{proc} with any number of arguments. The argument list must be terminated by @code{SCM_UNDEFINED}. For example: @example -scm_call_varargs (scm_c_public_ref ("guile", "+"), - scm_from_int (1), - scm_from_int (2), - SCM_UNDEFINED); +scm_call (scm_c_public_ref ("guile", "+"), + scm_from_int (1), + scm_from_int (2), + SCM_UNDEFINED); @end example @end deffn diff --git a/libguile/eval.c b/libguile/eval.c index 70e303ab1..e52fa48e4 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -553,7 +553,7 @@ scm_call_n (SCM proc, SCM *argv, size_t nargs) } SCM -scm_call_varargs (SCM proc, ...) +scm_call (SCM proc, ...) { va_list argp; SCM *argv = NULL; diff --git a/libguile/eval.h b/libguile/eval.h index dca0b4119..014f0dec5 100644 --- a/libguile/eval.h +++ b/libguile/eval.h @@ -79,7 +79,7 @@ SCM_API SCM scm_call_8 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM_API SCM scm_call_9 (SCM proc, SCM arg1, SCM arg2, SCM arg3, SCM arg4, SCM arg5, SCM arg6, SCM arg7, SCM arg8, SCM arg9); SCM_API SCM scm_call_n (SCM proc, SCM *argv, size_t nargs); -SCM_API SCM scm_call_varargs (SCM proc, ...); +SCM_API SCM scm_call (SCM proc, ...); SCM_API SCM scm_apply_0 (SCM proc, SCM args); SCM_API SCM scm_apply_1 (SCM proc, SCM arg1, SCM args); SCM_API SCM scm_apply_2 (SCM proc, SCM arg1, SCM arg2, SCM args); diff --git a/test-suite/standalone/test-loose-ends.c b/test-suite/standalone/test-loose-ends.c index 253c9a68f..ee0fcf3f3 100644 --- a/test-suite/standalone/test-loose-ends.c +++ b/test-suite/standalone/test-loose-ends.c @@ -59,18 +59,18 @@ test_scm_local_eval () } static void -test_scm_call_varargs () +test_scm_call () { SCM result; - result = scm_call_varargs (scm_c_public_ref ("guile", "+"), - scm_from_int (1), - scm_from_int (2), - SCM_UNDEFINED); + result = scm_call (scm_c_public_ref ("guile", "+"), + scm_from_int (1), + scm_from_int (2), + SCM_UNDEFINED); assert (scm_is_true (scm_equal_p (result, scm_from_int (3)))); - result = scm_call_varargs (scm_c_public_ref ("guile", "list"), - SCM_UNDEFINED); + result = scm_call (scm_c_public_ref ("guile", "list"), + SCM_UNDEFINED); assert (scm_is_eq (result, SCM_EOL)); } @@ -79,7 +79,7 @@ tests (void *data, int argc, char **argv) { test_scm_from_locale_keywordn (); test_scm_local_eval (); - test_scm_call_varargs (); + test_scm_call (); } int From e1fbe716e8596b7027af57623ebc72a0c6393187 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Mon, 30 Jan 2012 16:42:09 +0100 Subject: [PATCH 32/32] fix hook invocation during thread guilification * libguile/gc.c (run_before_gc_c_hook): Don't run pre-GC hooks from a thread that is in the process of guilification. --- libguile/gc.c | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/libguile/gc.c b/libguile/gc.c index 7816801e1..fd37046af 100644 --- a/libguile/gc.c +++ b/libguile/gc.c @@ -234,6 +234,10 @@ scm_t_c_hook scm_after_gc_c_hook; static void run_before_gc_c_hook (void) { + if (!SCM_I_CURRENT_THREAD) + /* GC while a thread is spinning up; punt. */ + return; + scm_c_hook_run (&scm_before_gc_c_hook, NULL); }