From f9685f437312ea790981373ddc375b2a26ba9c4f Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 26 Jan 2012 11:52:06 +0100 Subject: [PATCH] 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 | 24996 ++++++++++++++--------------- module/ice-9/psyntax.scm | 22 +- 5 files changed, 12112 insertions(+), 12952 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) - '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 -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) + (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 -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) + (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}# 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) - (values - 'global - #{n -ANAU$bmvAmthP7L7xwptv}# - #{mod -ANAU$bmvAmthP7L7xwpt9}#) + (if (eq? (car #{b 14807}#) 'global) + (values 'global #{n 14792}# #{mod 14806}#) (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) -- 2.20.1