From 382ae795fc30c24facb505d1e2621783f76ffa78 Mon Sep 17 00:00:00 2001 From: Jinser Kafka Date: Tue, 3 Feb 2026 12:56:14 +0800 Subject: [PATCH 1/3] wip --- demo/define-syntax-def.scm | 10 + goldfish/scheme/boot.scm | 342 +- goldfish/scheme/psyntax.pp | 10857 +++++++++++++++++++++++++++++++++++ 3 files changed, 11119 insertions(+), 90 deletions(-) create mode 100644 demo/define-syntax-def.scm create mode 100644 goldfish/scheme/psyntax.pp diff --git a/demo/define-syntax-def.scm b/demo/define-syntax-def.scm new file mode 100644 index 00000000..eae8cd34 --- /dev/null +++ b/demo/define-syntax-def.scm @@ -0,0 +1,10 @@ + (define-syntax def + (syntax-rules () + ((def f (p ...) body) + (define (f p ...) body)))) + + (def f (x) + (+ x 42)) + + (display (f 0)) + (newline) diff --git a/goldfish/scheme/boot.scm b/goldfish/scheme/boot.scm index 14f4a671..8fc80aba 100644 --- a/goldfish/scheme/boot.scm +++ b/goldfish/scheme/boot.scm @@ -1,3 +1,82 @@ +(define (void) (if #f #f)) + +(define (andmap f first . rest) + (if (null? rest) + (let andmap ((first first)) + (if (null? first) + #t + (let ((x (car first)) + (rest (cdr first))) + (if (null? rest) + (f x) + (and (f x) (andmap rest)))))) + (let andmap ((first first) (rest rest)) + (if (null? first) + #t + (let ((x (car first)) + (xr (map car rest)) + (next-first (cdr first)) + (next-rest (map cdr rest))) + (if (null? next-first) + (apply f (cons x xr)) + (and (apply f (cons x xr)) + (andmap next-first next-rest)))))))) + +(define (ormap f list1) + (and (not (null? list1)) + (or (f (car list1)) + (ormap f (cdr list1))))) + +(define *symbol-properties* (make-hash-table)) + +(define (putprop symbol key value) + (let ((props (hash-table-ref *symbol-properties* symbol))) + (if props + (hash-table-set! props key value) + (let ((new-props (make-hash-table))) + (hash-table-set! new-props key value) + (hash-table-set! *symbol-properties* symbol new-props))) + value)) + +(define (getprop symbol key) + (let ((props (hash-table-ref *symbol-properties* symbol))) + (if props + (hash-table-ref props key) + #f))) + +(define (remprop symbol key) + (let ((props (hash-table-ref *symbol-properties* symbol))) + (if props + (hash-table-set! props key #f)) + #f)) + + +;; API provided by psyntax +(define $sc-put-cte #f) +(define sc-expand #f) +(define $make-environment #f) +(define environment? #f) +(define interaction-environment #f) +(define identifier? #f) +(define syntax->list #f) +(define syntax-object->datum #f) +(define datum->syntax-object #f) +(define generate-temporaries #f) +(define free-identifier=? #f) +(define bound-identifier=? #f) +(define literal-identifier=? #f) +(define syntax-error #f) +(define $syntax-dispatch #f) + +(define syntax->vector #f) + +(define s7-eval eval) +(define (eval x) (s7-eval (cadr x))) + +(set! (*s7* 'symbol-quote?) #t) + +(load "scheme/psyntax.pp") + (define (file-exists? path) (if (string? path) (if (not (g_access path 0)) ; F_OK @@ -7,6 +86,88 @@ (error 'permission-error (string-append "No permission: " path)))) (error 'type-error "(file-exists? path): path should be string"))) + +(define %primitive-eval s7-eval) +(define %primitive-load load) + + +(define (filter pred l) + (let recur ((l l)) + (if (null? l) + l + (let ((head (car l)) + (tail (cdr l))) + (if (pred head) + (let ((new-tail (recur tail))) + (if (eq? tail new-tail) + l + (cons head new-tail))) + (recur tail)))))) + +(define (psyntax-expand expr) + (display "evaluating ") (display expr) (newline) + (let ((expr (if (and (list? expr) (= (length expr) 1)) (car expr) expr))) + (cond + ;; 情况 A：处理 define-library + ((and (pair? expr) (eq? (car expr) 'define-library)) + (let* ((body (cddr expr)) + ;; 1. 提取所有的 (import ...) 语句 + (imports (filter (lambda (x) (and (pair? x) (eq? (car x) 'import))) body)) + (exports (filter (lambda (x) (and (pair? x) (eq? (car x) 'export))) body)) + ;; 2. 提取所有的 (begin ...) 或 顶层定义 + (real-body (filter (lambda (x) (not (member (car x) '(import export)))) body))) + + (display real-body) (newline) + + (for-each (lambda (imp) + (r7rs-import-library-filename (cdr imp))) + imports) + + (sc-expand real-body))) + + ;; 情况 B：单独的 import 语句 + ((and (pair? expr) (eq? (car expr) 'import)) + (r7rs-import-library-filename (cdr expr)) + '(begin)) ; 返回一个空表达式，因为 import 已经处理完了 + + ;; 情况 C：普通表达式 + (else (sc-expand expr))))) + +(define (eval expr . env) + ; (display "evaling ") (display expr) (newline) + (if (and (list? expr) + (string? (car expr)) + (string=? (car expr) "noexpand")) + (%primitive-eval (cadr expr)) + (%primitive-eval (sc-expand expr)))) + +(define (find-file-in-paths filename) + (if (file-exists? filename) + filename + (let loop ((paths *load-path*)) + (if (null? paths) + #f + (let ((full-path (string-append (car paths) "/" filename))) + (if (file-exists? full-path) + full-path + (loop (cdr paths)))))))) + +(define (load filename) + ; (display "loading ") (display filename) (newline) + (let ((abs-path (find-file-in-paths filename))) + (display "loadinG ") (display abs-path) (newline) + (if abs-path + (with-input-from-file abs-path + (lambda () + (let loop ((expr (read)) + (forms '())) + (if (eof-object? expr) + (eval (reverse forms)) + (loop (read) (cons expr forms)))))) + (error 'load (string-append "file not found: " abs-path))))) + +;; --- + (define (delete-file path) (if (not (string? path)) (error 'type-error "(delete-file path): path should be string") @@ -14,94 +175,95 @@ (error 'read-error (string-append path " does not exist")) (g_delete-file path)))) -; 0-clause BSD -; Adapted from S7 Scheme's r7rs.scm -(define-macro (define-library libname . body) ; |(lib name)| -> environment - `(define ,(symbol (object->string libname)) - (with-let (sublet (unlet) - (cons 'import import) - (cons '*export* ()) - (cons 'export (define-macro (,(gensym) . names) - `(set! *export* (append ',names *export*))))) - ,@body - (apply inlet - (map (lambda (entry) - (if (or (member (car entry) '(*export* export import)) - (and (pair? *export*) - (not (member (car entry) *export*)))) - (values) - entry)) - (curlet)))))) - -(unless (defined? 'r7rs-import-library-filename) - (define (r7rs-import-library-filename libs) - (when (pair? libs) - (let ((lib-filename (let loop ((lib (if (memq (caar libs) '(only except prefix rename)) - (cadar libs) - (car libs))) - (name "")) - (set! name (string-append name (symbol->string (car lib)))) - (if (null? (cdr lib)) - (string-append name ".scm") - (begin - (set! name (string-append name "/")) - (loop (cdr lib) name)))))) - (when (not (defined? (symbol (object->string (car libs))))) - ;(display "Loading ") (display lib-filename) (newline) - (load lib-filename)) - (r7rs-import-library-filename (cdr libs))))) - ) - -(define-macro (import . libs) - `(begin - (r7rs-import-library-filename ',libs) - (varlet (curlet) - ,@(map (lambda (lib) - (case (car lib) - ((only) - `((lambda (e names) - (apply inlet - (map (lambda (name) - (cons name (e name))) - names))) - (symbol->value (symbol (object->string (cadr ',lib)))) - (cddr ',lib))) - ((except) - `((lambda (e names) - (apply inlet - (map (lambda (entry) - (if (member (car entry) names) - (values) - entry)) - e))) - (symbol->value (symbol (object->string (cadr ',lib)))) - (cddr ',lib))) - ((prefix) - `((lambda (e prefx) - (apply inlet - (map (lambda (entry) - (cons (string->symbol - (string-append (symbol->string prefx) - (symbol->string (car entry)))) - (cdr entry))) - e))) - (symbol->value (symbol (object->string (cadr ',lib)))) - (caddr ',lib))) - ((rename) - `((lambda (e names) - (apply inlet - (map (lambda (entry) - (let ((info (assoc (car entry) names))) - (if info - (cons (cadr info) (cdr entry)) - entry))) - e))) - (symbol->value (symbol (object->string (cadr ',lib)))) - (cddr ',lib))) - (else - `(let ((sym (symbol (object->string ',lib)))) - (if (not (defined? sym)) - (format () "~A not loaded~%" sym) - (symbol->value sym)))))) - libs)))) +(define define-library module) +; ; 0-clause BSD +; ; Adapted from S7 Scheme's r7rs.scm +; (define-macro (define-library libname . body) ; |(lib name)| -> environment +; `(define ,(symbol (object->string libname)) +; (with-let (sublet (unlet) +; (cons 'import import) +; (cons '*export* ()) +; (cons 'export (define-macro (,(gensym) . names) +; `(set! *export* (append ',names *export*))))) +; ,@body +; (apply inlet +; (map (lambda (entry) +; (if (or (member (car entry) '(*export* export import)) +; (and (pair? *export*) +; (not (member (car entry) *export*)))) +; (values) +; entry)) +; (curlet)))))) +; +; (unless (defined? 'r7rs-import-library-filename) +; (define (r7rs-import-library-filename libs) +; (when (pair? libs) +; (let ((lib-filename (let loop ((lib (if (memq (caar libs) '(only except prefix rename)) +; (cadar libs) +; (car libs))) +; (name "")) +; (set! name (string-append name (symbol->string (car lib)))) +; (if (null? (cdr lib)) +; (string-append name ".scm") +; (begin +; (set! name (string-append name "/")) +; (loop (cdr lib) name)))))) +; (when (not (defined? (symbol (object->string (car libs))))) +; ;(display "Loading ") (display lib-filename) (newline) +; (load lib-filename)) +; (r7rs-import-library-filename (cdr libs))))) +; ) +; +; (define-macro (import . libs) +; `(begin +; (r7rs-import-library-filename ',libs) +; (varlet (curlet) +; ,@(map (lambda (lib) +; (case (car lib) +; ((only) +; `((lambda (e names) +; (apply inlet +; (map (lambda (name) +; (cons name (e name))) +; names))) +; (symbol->value (symbol (object->string (cadr ',lib)))) +; (cddr ',lib))) +; ((except) +; `((lambda (e names) +; (apply inlet +; (map (lambda (entry) +; (if (member (car entry) names) +; (values) +; entry)) +; e))) +; (symbol->value (symbol (object->string (cadr ',lib)))) +; (cddr ',lib))) +; ((prefix) +; `((lambda (e prefx) +; (apply inlet +; (map (lambda (entry) +; (cons (string->symbol +; (string-append (symbol->string prefx) +; (symbol->string (car entry)))) +; (cdr entry))) +; e))) +; (symbol->value (symbol (object->string (cadr ',lib)))) +; (caddr ',lib))) +; ((rename) +; `((lambda (e names) +; (apply inlet +; (map (lambda (entry) +; (let ((info (assoc (car entry) names))) +; (if info +; (cons (cadr info) (cdr entry)) +; entry))) +; e))) +; (symbol->value (symbol (object->string (cadr ',lib)))) +; (cddr ',lib))) +; (else +; `(let ((sym (symbol (object->string ',lib)))) +; (if (not (defined? sym)) +; (format () "~A not loaded~%" sym) +; (symbol->value sym)))))) +; libs)))) diff --git a/goldfish/scheme/psyntax.pp b/goldfish/scheme/psyntax.pp new file mode 100644 index 00000000..8991ed26 --- /dev/null +++ b/goldfish/scheme/psyntax.pp @@ -0,0 +1,10857 @@ +;;; psyntax.pp +;;; automatically generated from psyntax.ss +;;; Mon Feb 26 23:22:05 EST 2007 +;;; see copyright notice in psyntax.ss + +((lambda () + (letrec ((noexpand62 '"noexpand") + (make-syntax-object63 (lambda (expression2530 wrap2529) + (vector + 'syntax-object + expression2530 + wrap2529))) + (syntax-object?64 (lambda (x2528) + (if (vector? x2528) + (if (= (vector-length x2528) '3) + (eq? (vector-ref x2528 '0) + 'syntax-object) + '#f) + '#f))) + (syntax-object-expression65 (lambda (x2527) + (vector-ref x2527 '1))) + (syntax-object-wrap66 (lambda (x2526) + (vector-ref x2526 '2))) + (set-syntax-object-expression!67 (lambda (x2525 update2524) + (vector-set! + x2525 + '1 + update2524))) + (set-syntax-object-wrap!68 (lambda (x2523 update2522) + (vector-set! + x2523 + '2 + update2522))) + (annotation?132 (lambda (x2521) '#f)) + (top-level-eval-hook133 (lambda (x2520) + (eval (list noexpand62 x2520)))) + (local-eval-hook134 (lambda (x2519) + (eval (list noexpand62 x2519)))) + (define-top-level-value-hook135 (lambda (sym2518 val2517) + (top-level-eval-hook133 + (list + 'define + sym2518 + (list 'quote val2517))))) + (error-hook136 (lambda (who2516 why2515 what2514) + (error who2516 '"~a ~s" why2515 what2514))) + (put-cte-hook137 (lambda (symbol2513 val2512) + ($sc-put-cte symbol2513 val2512 '*top*))) + (get-global-definition-hook138 (lambda (symbol2511) + (getprop + symbol2511 + '*sc-expander*))) + (put-global-definition-hook139 (lambda (symbol2510 x2509) + (if (not x2509) + (remprop + symbol2510 + '*sc-expander*) + (putprop + symbol2510 + '*sc-expander* + x2509)))) + (read-only-binding?140 (lambda (symbol2508) '#f)) + (get-import-binding141 (lambda (symbol2507 token2506) + (getprop symbol2507 token2506))) + (update-import-binding!142 (lambda (symbol2504 token2503 + p2502) + ((lambda (x2505) + (if (not x2505) + (remprop + symbol2504 + token2503) + (putprop + symbol2504 + token2503 + x2505))) + (p2502 + (get-import-binding141 + symbol2504 + token2503))))) + (generate-id143 ((lambda (digits2488) + ((lambda (base2490 session-key2489) + (letrec ((make-digit2491 (lambda (x2501) + (string-ref + digits2488 + x2501))) + (fmt2492 (lambda (n2495) + ((letrec ((fmt2496 (lambda (n2498 + a2497) + (if (< n2498 + base2490) + (list->string + (cons + (make-digit2491 + n2498) + a2497)) + ((lambda (r2500 + rest2499) + (fmt2496 + rest2499 + (cons + (make-digit2491 + r2500) + a2497))) + (modulo + n2498 + base2490) + (quotient + n2498 + base2490)))))) + fmt2496) + n2495 + '())))) + ((lambda (n2493) + (lambda (name2494) + (begin + (set! n2493 (+ n2493 '1)) + (string->symbol + (string-append + session-key2489 + (fmt2492 n2493)))))) + '-1))) + (string-length digits2488) + '"_")) + '"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-")) + (built-lambda?217 (lambda (x2487) + (if (pair? x2487) + (eq? (car x2487) 'lambda) + '#f))) + (build-sequence235 (lambda (ae2484 exps2483) + ((letrec ((loop2485 (lambda (exps2486) + (if (null? + (cdr exps2486)) + (car exps2486) + (if (equal? + (car exps2486) + '(void)) + (loop2485 + (cdr exps2486)) + (cons + 'begin + exps2486)))))) + loop2485) + exps2483))) + (build-letrec236 (lambda (ae2482 vars2481 val-exps2480 + body-exp2479) + (if (null? vars2481) + body-exp2479 + (list + 'letrec + (map list vars2481 val-exps2480) + body-exp2479)))) + (build-body237 (lambda (ae2478 vars2477 val-exps2476 + body-exp2475) + (build-letrec236 + ae2478 + vars2477 + val-exps2476 + body-exp2475))) + (build-top-module238 (lambda (ae2463 types2462 vars2461 + val-exps2460 body-exp2459) + (call-with-values + (lambda () + ((letrec ((f2467 (lambda (types2469 + vars2468) + (if (null? + types2469) + (values + '() + '() + '()) + ((lambda (var2470) + (call-with-values + (lambda () + (f2467 + (cdr types2469) + (cdr vars2468))) + (lambda (vars2473 + defns2472 + sets2471) + (if (eq? (car types2469) + 'global) + ((lambda (x2474) + (values + (cons + x2474 + vars2473) + (cons + (list + 'define + var2470 + (chi-void518)) + defns2472) + (cons + (list + 'set! + var2470 + x2474) + sets2471))) + (gensym)) + (values + (cons + var2470 + vars2473) + defns2472 + sets2471))))) + (car vars2468)))))) + f2467) + types2462 + vars2461)) + (lambda (vars2466 defns2465 sets2464) + (if (null? defns2465) + (build-letrec236 + ae2463 + vars2466 + val-exps2460 + body-exp2459) + (build-sequence235 + '#f + (append + defns2465 + (list + (build-letrec236 + ae2463 + vars2466 + val-exps2460 + (build-sequence235 + '#f + (append + sets2464 + (list + body-exp2459)))))))))))) + (sanitize-binding271 (lambda (b2455) + (if (procedure? b2455) + (cons 'macro b2455) + (if (binding?285 b2455) + (if ((lambda (t2456) + (if (memv + t2456 + '(core + macro + macro! + deferred)) + (procedure? + (binding-value282 + b2455)) + (if (memv + t2456 + '($module)) + (interface?452 + (binding-value282 + b2455)) + (if (memv + t2456 + '(lexical)) + '#f + (if (memv + t2456 + '(global + meta-variable)) + (symbol? + (binding-value282 + b2455)) + (if (memv + t2456 + '(syntax)) + ((lambda (x2457) + (if (pair? + x2457) + (if '#f + ((lambda (n2458) + (if (integer? + n2458) + (if (exact? + n2458) + (>= n2458 + '0) + '#f) + '#f)) + (cdr x2457)) + '#f) + '#f)) + (binding-value282 + b2455)) + (if (memv + t2456 + '(begin + define + define-syntax + set! + $module-key + $import + eval-when + meta)) + (null? + (binding-value282 + b2455)) + (if (memv + t2456 + '(local-syntax)) + (boolean? + (binding-value282 + b2455)) + (if (memv + t2456 + '(displaced-lexical)) + (eq? (binding-value282 + b2455) + '#f) + '#t))))))))) + (binding-type281 b2455)) + b2455 + '#f) + '#f)))) + (binding-type281 car) + (binding-value282 cdr) + (set-binding-type!283 set-car!) + (set-binding-value!284 set-cdr!) + (binding?285 (lambda (x2454) + (if (pair? x2454) (symbol? (car x2454)) '#f))) + (extend-env295 (lambda (label2453 binding2452 r2451) + (cons (cons label2453 binding2452) r2451))) + (extend-env*296 (lambda (labels2450 bindings2449 r2448) + (if (null? labels2450) + r2448 + (extend-env*296 + (cdr labels2450) + (cdr bindings2449) + (extend-env295 + (car labels2450) + (car bindings2449) + r2448))))) + (extend-var-env*297 (lambda (labels2447 vars2446 r2445) + (if (null? labels2447) + r2445 + (extend-var-env*297 + (cdr labels2447) + (cdr vars2446) + (extend-env295 + (car labels2447) + (cons 'lexical (car vars2446)) + r2445))))) + (displaced-lexical?298 (lambda (id2442 r2441) + ((lambda (n2443) + (if n2443 + ((lambda (b2444) + (eq? (binding-type281 b2444) + 'displaced-lexical)) + (lookup301 n2443 r2441)) + '#f)) + (id-var-name434 id2442 '(()))))) + (displaced-lexical-error299 (lambda (id2440) + (syntax-error + id2440 + (if (id-var-name434 + id2440 + '(())) + '"identifier out of context" + '"identifier not visible")))) + (lookup*300 (lambda (x2437 r2436) + ((lambda (t2438) + (if t2438 + (cdr t2438) + (if (symbol? x2437) + ((lambda (t2439) + (if t2439 + t2439 + (cons 'global x2437))) + (get-global-definition-hook138 + x2437)) + '(displaced-lexical . #f)))) + (assq x2437 r2436)))) + (lookup301 (lambda (x2431 r2430) + (letrec ((whack-binding!2432 (lambda (b2435 + *b2434) + (begin + (set-binding-type!283 + b2435 + (binding-type281 + *b2434)) + (set-binding-value!284 + b2435 + (binding-value282 + *b2434)))))) + ((lambda (b2433) + (begin + (if (eq? (binding-type281 b2433) 'deferred) + (whack-binding!2432 + b2433 + (make-transformer-binding302 + ((binding-value282 b2433)))) + (void)) + b2433)) + (lookup*300 x2431 r2430))))) + (make-transformer-binding302 (lambda (b2428) + ((lambda (t2429) + (if t2429 + t2429 + (syntax-error + b2428 + '"invalid transformer"))) + (sanitize-binding271 b2428)))) + (defer-or-eval-transformer303 (lambda (eval2427 x2426) + (if (built-lambda?217 x2426) + (cons + 'deferred + (lambda () + (eval2427 x2426))) + (make-transformer-binding302 + (eval2427 x2426))))) + (global-extend304 (lambda (type2425 sym2424 val2423) + (put-cte-hook137 + sym2424 + (cons type2425 val2423)))) + (nonsymbol-id?305 (lambda (x2421) + (if (syntax-object?64 x2421) + (symbol? + ((lambda (e2422) + (if (annotation?132 e2422) + (annotation-expression e2422) + e2422)) + (syntax-object-expression65 + x2421))) + '#f))) + (id?306 (lambda (x2419) + (if (symbol? x2419) + '#t + (if (syntax-object?64 x2419) + (symbol? + ((lambda (e2420) + (if (annotation?132 e2420) + (annotation-expression e2420) + e2420)) + (syntax-object-expression65 x2419))) + (if (annotation?132 x2419) + (symbol? (annotation-expression x2419)) + '#f))))) + (id-marks312 (lambda (id2418) + (if (syntax-object?64 id2418) + (wrap-marks316 + (syntax-object-wrap66 id2418)) + (wrap-marks316 '((top)))))) + (id-subst313 (lambda (id2417) + (if (syntax-object?64 id2417) + (wrap-subst317 + (syntax-object-wrap66 id2417)) + (wrap-marks316 '((top)))))) + (id-sym-name&marks314 (lambda (x2414 w2413) + (if (syntax-object?64 x2414) + (values + ((lambda (e2415) + (if (annotation?132 e2415) + (annotation-expression + e2415) + e2415)) + (syntax-object-expression65 + x2414)) + (join-marks423 + (wrap-marks316 w2413) + (wrap-marks316 + (syntax-object-wrap66 + x2414)))) + (values + ((lambda (e2416) + (if (annotation?132 e2416) + (annotation-expression + e2416) + e2416)) + x2414) + (wrap-marks316 w2413))))) + (make-wrap315 cons) + (wrap-marks316 car) + (wrap-subst317 cdr) + (make-indirect-label355 (lambda (label2412) + (vector 'indirect-label label2412))) + (indirect-label?356 (lambda (x2411) + (if (vector? x2411) + (if (= (vector-length x2411) '2) + (eq? (vector-ref x2411 '0) + 'indirect-label) + '#f) + '#f))) + (indirect-label-label357 (lambda (x2410) + (vector-ref x2410 '1))) + (set-indirect-label-label!358 (lambda (x2409 update2408) + (vector-set! + x2409 + '1 + update2408))) + (gen-indirect-label359 (lambda () + (make-indirect-label355 + (gen-label362)))) + (get-indirect-label360 (lambda (x2407) + (indirect-label-label357 x2407))) + (set-indirect-label!361 (lambda (x2406 v2405) + (set-indirect-label-label!358 + x2406 + v2405))) + (gen-label362 (lambda () (string '#\i))) + (label?363 (lambda (x2402) + ((lambda (t2403) + (if t2403 + t2403 + ((lambda (t2404) + (if t2404 + t2404 + (indirect-label?356 x2402))) + (symbol? x2402)))) + (string? x2402)))) + (gen-labels364 (lambda (ls2401) + (if (null? ls2401) + '() + (cons + (gen-label362) + (gen-labels364 (cdr ls2401)))))) + (make-ribcage365 (lambda (symnames2400 marks2399 labels2398) + (vector + 'ribcage + symnames2400 + marks2399 + labels2398))) + (ribcage?366 (lambda (x2397) + (if (vector? x2397) + (if (= (vector-length x2397) '4) + (eq? (vector-ref x2397 '0) 'ribcage) + '#f) + '#f))) + (ribcage-symnames367 (lambda (x2396) (vector-ref x2396 '1))) + (ribcage-marks368 (lambda (x2395) (vector-ref x2395 '2))) + (ribcage-labels369 (lambda (x2394) (vector-ref x2394 '3))) + (set-ribcage-symnames!370 (lambda (x2393 update2392) + (vector-set! x2393 '1 update2392))) + (set-ribcage-marks!371 (lambda (x2391 update2390) + (vector-set! x2391 '2 update2390))) + (set-ribcage-labels!372 (lambda (x2389 update2388) + (vector-set! x2389 '3 update2388))) + (make-top-ribcage373 (lambda (key2387 mutable?2386) + (vector + 'top-ribcage + key2387 + mutable?2386))) + (top-ribcage?374 (lambda (x2385) + (if (vector? x2385) + (if (= (vector-length x2385) '3) + (eq? (vector-ref x2385 '0) + 'top-ribcage) + '#f) + '#f))) + (top-ribcage-key375 (lambda (x2384) (vector-ref x2384 '1))) + (top-ribcage-mutable?376 (lambda (x2383) + (vector-ref x2383 '2))) + (set-top-ribcage-key!377 (lambda (x2382 update2381) + (vector-set! x2382 '1 update2381))) + (set-top-ribcage-mutable?!378 (lambda (x2380 update2379) + (vector-set! + x2380 + '2 + update2379))) + (make-import-interface379 (lambda (interface2378 + new-marks2377) + (vector + 'import-interface + interface2378 + new-marks2377))) + (import-interface?380 (lambda (x2376) + (if (vector? x2376) + (if (= (vector-length x2376) '3) + (eq? (vector-ref x2376 '0) + 'import-interface) + '#f) + '#f))) + (import-interface-interface381 (lambda (x2375) + (vector-ref x2375 '1))) + (import-interface-new-marks382 (lambda (x2374) + (vector-ref x2374 '2))) + (set-import-interface-interface!383 (lambda (x2373 + update2372) + (vector-set! + x2373 + '1 + update2372))) + (set-import-interface-new-marks!384 (lambda (x2371 + update2370) + (vector-set! + x2371 + '2 + update2370))) + (make-env385 (lambda (top-ribcage2369 wrap2368) + (vector 'env top-ribcage2369 wrap2368))) + (env?386 (lambda (x2367) + (if (vector? x2367) + (if (= (vector-length x2367) '3) + (eq? (vector-ref x2367 '0) 'env) + '#f) + '#f))) + (env-top-ribcage387 (lambda (x2366) (vector-ref x2366 '1))) + (env-wrap388 (lambda (x2365) (vector-ref x2365 '2))) + (set-env-top-ribcage!389 (lambda (x2364 update2363) + (vector-set! x2364 '1 update2363))) + (set-env-wrap!390 (lambda (x2362 update2361) + (vector-set! x2362 '2 update2361))) + (anti-mark400 (lambda (w2360) + (make-wrap315 + (cons '#f (wrap-marks316 w2360)) + (cons 'shift (wrap-subst317 w2360))))) + (barrier-marker405 '#f) + (extend-ribcage!410 (lambda (ribcage2358 id2357 label2356) + (begin + (set-ribcage-symnames!370 + ribcage2358 + (cons + ((lambda (e2359) + (if (annotation?132 e2359) + (annotation-expression + e2359) + e2359)) + (syntax-object-expression65 + id2357)) + (ribcage-symnames367 ribcage2358))) + (set-ribcage-marks!371 + ribcage2358 + (cons + (wrap-marks316 + (syntax-object-wrap66 id2357)) + (ribcage-marks368 ribcage2358))) + (set-ribcage-labels!372 + ribcage2358 + (cons + label2356 + (ribcage-labels369 + ribcage2358)))))) + (import-extend-ribcage!411 (lambda (ribcage2354 + new-marks2353 id2352 + label2351) + (begin + (set-ribcage-symnames!370 + ribcage2354 + (cons + ((lambda (e2355) + (if (annotation?132 + e2355) + (annotation-expression + e2355) + e2355)) + (syntax-object-expression65 + id2352)) + (ribcage-symnames367 + ribcage2354))) + (set-ribcage-marks!371 + ribcage2354 + (cons + (join-marks423 + new-marks2353 + (wrap-marks316 + (syntax-object-wrap66 + id2352))) + (ribcage-marks368 + ribcage2354))) + (set-ribcage-labels!372 + ribcage2354 + (cons + label2351 + (ribcage-labels369 + ribcage2354)))))) + (extend-ribcage-barrier!412 (lambda (ribcage2350 + killer-id2349) + (extend-ribcage-barrier-help!413 + ribcage2350 + (syntax-object-wrap66 + killer-id2349)))) + (extend-ribcage-barrier-help!413 (lambda (ribcage2348 + wrap2347) + (begin + (set-ribcage-symnames!370 + ribcage2348 + (cons + barrier-marker405 + (ribcage-symnames367 + ribcage2348))) + (set-ribcage-marks!371 + ribcage2348 + (cons + (wrap-marks316 + wrap2347) + (ribcage-marks368 + ribcage2348)))))) + (extend-ribcage-subst!414 (lambda (ribcage2346 + import-iface2345) + (set-ribcage-symnames!370 + ribcage2346 + (cons + import-iface2345 + (ribcage-symnames367 + ribcage2346))))) + (lookup-import-binding-name415 (lambda (sym2340 marks2339 + token2338 + new-marks2337) + ((lambda (new2341) + (if new2341 + ((letrec ((f2342 (lambda (new2343) + (if (pair? + new2343) + ((lambda (t2344) + (if t2344 + t2344 + (f2342 + (cdr new2343)))) + (f2342 + (car new2343))) + (if (symbol? + new2343) + (if (same-marks?425 + marks2339 + (join-marks423 + new-marks2337 + (wrap-marks316 + '((top))))) + new2343 + '#f) + (if (same-marks?425 + marks2339 + (join-marks423 + new-marks2337 + (wrap-marks316 + (syntax-object-wrap66 + new2343)))) + new2343 + '#f)))))) + f2342) + new2341) + '#f)) + (get-import-binding141 + sym2340 + token2338)))) + (store-import-binding416 (lambda (id2321 token2320 + new-marks2319) + (letrec ((cons-id2322 (lambda (id2336 + x2335) + (if (not x2335) + id2336 + (cons + id2336 + x2335)))) + (weed2323 (lambda (marks2334 + x2333) + (if (pair? + x2333) + (if (same-marks?425 + (id-marks312 + (car x2333)) + marks2334) + (weed2323 + marks2334 + (cdr x2333)) + (cons-id2322 + (car x2333) + (weed2323 + marks2334 + (cdr x2333)))) + (if x2333 + (if (not (same-marks?425 + (id-marks312 + x2333) + marks2334)) + x2333 + '#f) + '#f))))) + ((lambda (id2324) + ((lambda (sym2325) + (if (not (eq? id2324 + sym2325)) + ((lambda (marks2326) + (update-import-binding!142 + sym2325 + token2320 + (lambda (old-binding2327) + ((lambda (x2328) + (cons-id2322 + (if (same-marks?425 + marks2326 + (wrap-marks316 + '((top)))) + (resolved-id-var-name420 + id2324) + id2324) + x2328)) + (weed2323 + marks2326 + old-binding2327))))) + (id-marks312 id2324)) + (void))) + ((lambda (x2329) + ((lambda (e2330) + (if (annotation?132 + e2330) + (annotation-expression + e2330) + e2330)) + (if (syntax-object?64 + x2329) + (syntax-object-expression65 + x2329) + x2329))) + id2324))) + (if (null? new-marks2319) + id2321 + (make-syntax-object63 + ((lambda (x2331) + ((lambda (e2332) + (if (annotation?132 + e2332) + (annotation-expression + e2332) + e2332)) + (if (syntax-object?64 + x2331) + (syntax-object-expression65 + x2331) + x2331))) + id2321) + (make-wrap315 + (join-marks423 + new-marks2319 + (id-marks312 id2321)) + (id-subst313 + id2321)))))))) + (make-binding-wrap417 (lambda (ids2309 labels2308 w2307) + (if (null? ids2309) + w2307 + (make-wrap315 + (wrap-marks316 w2307) + (cons + ((lambda (labelvec2310) + ((lambda (n2311) + ((lambda (symnamevec2313 + marksvec2312) + (begin + ((letrec ((f2314 (lambda (ids2316 + i2315) + (if (not (null? + ids2316)) + (call-with-values + (lambda () + (id-sym-name&marks314 + (car ids2316) + w2307)) + (lambda (symname2318 + marks2317) + (begin + (vector-set! + symnamevec2313 + i2315 + symname2318) + (vector-set! + marksvec2312 + i2315 + marks2317) + (f2314 + (cdr ids2316) + (+ i2315 + '1))))) + (void))))) + f2314) + ids2309 + '0) + (make-ribcage365 + symnamevec2313 + marksvec2312 + labelvec2310))) + (make-vector n2311) + (make-vector n2311))) + (vector-length + labelvec2310))) + (list->vector labels2308)) + (wrap-subst317 w2307)))))) + (make-resolved-id418 (lambda (fromsym2306 marks2305 + tosym2304) + (make-syntax-object63 + fromsym2306 + (make-wrap315 + marks2305 + (list + (make-ribcage365 + (vector fromsym2306) + (vector marks2305) + (vector tosym2304))))))) + (id->resolved-id419 (lambda (id2299) + (call-with-values + (lambda () + (id-var-name&marks432 id2299 '(()))) + (lambda (tosym2301 marks2300) + (begin + (if (not tosym2301) + (syntax-error + id2299 + '"identifier not visible for export") + (void)) + (make-resolved-id418 + ((lambda (x2302) + ((lambda (e2303) + (if (annotation?132 e2303) + (annotation-expression + e2303) + e2303)) + (if (syntax-object?64 x2302) + (syntax-object-expression65 + x2302) + x2302))) + id2299) + marks2300 + tosym2301)))))) + (resolved-id-var-name420 (lambda (id2298) + (vector-ref + (ribcage-labels369 + (car (wrap-subst317 + (syntax-object-wrap66 + id2298)))) + '0))) + (smart-append421 (lambda (m12297 m22296) + (if (null? m22296) + m12297 + (append m12297 m22296)))) + (join-wraps422 (lambda (w12293 w22292) + ((lambda (m12295 s12294) + (if (null? m12295) + (if (null? s12294) + w22292 + (make-wrap315 + (wrap-marks316 w22292) + (join-subst424 + s12294 + (wrap-subst317 w22292)))) + (make-wrap315 + (join-marks423 + m12295 + (wrap-marks316 w22292)) + (join-subst424 + s12294 + (wrap-subst317 w22292))))) + (wrap-marks316 w12293) + (wrap-subst317 w12293)))) + (join-marks423 (lambda (m12291 m22290) + (smart-append421 m12291 m22290))) + (join-subst424 (lambda (s12289 s22288) + (smart-append421 s12289 s22288))) + (same-marks?425 (lambda (x2286 y2285) + ((lambda (t2287) + (if t2287 + t2287 + (if (not (null? x2286)) + (if (not (null? y2285)) + (if (eq? (car x2286) + (car y2285)) + (same-marks?425 + (cdr x2286) + (cdr y2285)) + '#f) + '#f) + '#f))) + (eq? x2286 y2285)))) + (diff-marks426 (lambda (m12279 m22278) + ((lambda (n12281 n22280) + ((letrec ((f2282 (lambda (n12284 m12283) + (if (> n12284 n22280) + (cons + (car m12283) + (f2282 + (- n12284 '1) + (cdr m12283))) + (if (equal? + m12283 + m22278) + '() + (error 'sc-expand + '"internal error in diff-marks: ~s is not a tail of ~s" + m12283 + m22278)))))) + f2282) + n12281 + m12279)) + (length m12279) + (length m22278)))) + (leave-implicit?427 (lambda (token2277) + (eq? token2277 '*top*))) + (new-binding428 (lambda (sym2274 marks2273 token2272) + ((lambda (loc2275) + ((lambda (id2276) + (begin + (store-import-binding416 + id2276 + token2272 + '()) + (values loc2275 id2276))) + (make-resolved-id418 + sym2274 + marks2273 + loc2275))) + (if (if (leave-implicit?427 token2272) + (same-marks?425 + marks2273 + (wrap-marks316 '((top)))) + '#f) + sym2274 + (generate-id143 sym2274))))) + (top-id-bound-var-name429 (lambda (sym2268 marks2267 + top-ribcage2266) + ((lambda (token2269) + ((lambda (t2270) + (if t2270 + ((lambda (id2271) + (if (symbol? id2271) + (if (read-only-binding?140 + id2271) + (new-binding428 + sym2268 + marks2267 + token2269) + (values + id2271 + (make-resolved-id418 + sym2268 + marks2267 + id2271))) + (values + (resolved-id-var-name420 + id2271) + id2271))) + t2270) + (new-binding428 + sym2268 + marks2267 + token2269))) + (lookup-import-binding-name415 + sym2268 + marks2267 + token2269 + '()))) + (top-ribcage-key375 + top-ribcage2266)))) + (top-id-free-var-name430 (lambda (sym2260 marks2259 + top-ribcage2258) + ((lambda (token2261) + ((lambda (t2262) + (if t2262 + ((lambda (id2263) + (if (symbol? id2263) + id2263 + (resolved-id-var-name420 + id2263))) + t2262) + (if (if (top-ribcage-mutable?376 + top-ribcage2258) + (same-marks?425 + marks2259 + (wrap-marks316 + '((top)))) + '#f) + (call-with-values + (lambda () + (new-binding428 + sym2260 + (wrap-marks316 + '((top))) + token2261)) + (lambda (sym2265 + id2264) + sym2265)) + '#f))) + (lookup-import-binding-name415 + sym2260 + marks2259 + token2261 + '()))) + (top-ribcage-key375 + top-ribcage2258)))) + (id-var-name-loc&marks431 (lambda (id2209 w2208) + (letrec ((search2210 (lambda (sym2253 + subst2252 + marks2251) + (if (null? + subst2252) + (values + '#f + marks2251) + ((lambda (fst2254) + (if (eq? fst2254 + 'shift) + (search2210 + sym2253 + (cdr subst2252) + (cdr marks2251)) + (if (ribcage?366 + fst2254) + ((lambda (symnames2255) + (if (vector? + symnames2255) + (search-vector-rib2212 + sym2253 + subst2252 + marks2251 + symnames2255 + fst2254) + (search-list-rib2211 + sym2253 + subst2252 + marks2251 + symnames2255 + fst2254))) + (ribcage-symnames367 + fst2254)) + (if (top-ribcage?374 + fst2254) + ((lambda (t2256) + (if t2256 + ((lambda (var-name2257) + (values + var-name2257 + marks2251)) + t2256) + (search2210 + sym2253 + (cdr subst2252) + marks2251))) + (top-id-free-var-name430 + sym2253 + marks2251 + fst2254)) + (error 'sc-expand + '"internal error in id-var-name-loc&marks: improper subst ~s" + subst2252))))) + (car subst2252))))) + (search-list-rib2211 (lambda (sym2231 + subst2230 + marks2229 + symnames2228 + ribcage2227) + ((letrec ((f2232 (lambda (symnames2234 + i2233) + (if (null? + symnames2234) + (search2210 + sym2231 + (cdr subst2230) + marks2229) + ((lambda (x2235) + (if (if (eq? x2235 + sym2231) + (same-marks?425 + marks2229 + (list-ref + (ribcage-marks368 + ribcage2227) + i2233)) + '#f) + (values + (list-ref + (ribcage-labels369 + ribcage2227) + i2233) + marks2229) + (if (import-interface?380 + x2235) + ((lambda (iface2237 + new-marks2236) + ((lambda (t2238) + (if t2238 + ((lambda (token2239) + ((lambda (t2240) + (if t2240 + ((lambda (id2241) + (values + (if (symbol? + id2241) + id2241 + (resolved-id-var-name420 + id2241)) + marks2229)) + t2240) + (f2232 + (cdr symnames2234) + i2233))) + (lookup-import-binding-name415 + sym2231 + marks2229 + token2239 + new-marks2236))) + t2238) + ((lambda (ie2242) + ((lambda (n2243) + ((lambda () + ((letrec ((g2244 (lambda (j2245) + (if (= j2245 + n2243) + (f2232 + (cdr symnames2234) + i2233) + ((lambda (id2246) + ((lambda (id.sym2248 + id.marks2247) + (if (help-bound-id=?437 + id.sym2248 + id.marks2247 + sym2231 + marks2229) + (values + (lookup-import-label506 + id2246) + marks2229) + (g2244 + (+ j2245 + '1)))) + ((lambda (x2249) + ((lambda (e2250) + (if (annotation?132 + e2250) + (annotation-expression + e2250) + e2250)) + (if (syntax-object?64 + x2249) + (syntax-object-expression65 + x2249) + x2249))) + id2246) + (join-marks423 + new-marks2236 + (id-marks312 + id2246)))) + (vector-ref + ie2242 + j2245)))))) + g2244) + '0)))) + (vector-length + ie2242))) + (interface-exports454 + iface2237)))) + (interface-token455 + iface2237))) + (import-interface-interface381 + x2235) + (import-interface-new-marks382 + x2235)) + (if (if (eq? x2235 + barrier-marker405) + (same-marks?425 + marks2229 + (list-ref + (ribcage-marks368 + ribcage2227) + i2233)) + '#f) + (values + '#f + marks2229) + (f2232 + (cdr symnames2234) + (+ i2233 + '1)))))) + (car symnames2234)))))) + f2232) + symnames2228 + '0))) + (search-vector-rib2212 (lambda (sym2223 + subst2222 + marks2221 + symnames2220 + ribcage2219) + ((lambda (n2224) + ((letrec ((f2225 (lambda (i2226) + (if (= i2226 + n2224) + (search2210 + sym2223 + (cdr subst2222) + marks2221) + (if (if (eq? (vector-ref + symnames2220 + i2226) + sym2223) + (same-marks?425 + marks2221 + (vector-ref + (ribcage-marks368 + ribcage2219) + i2226)) + '#f) + (values + (vector-ref + (ribcage-labels369 + ribcage2219) + i2226) + marks2221) + (f2225 + (+ i2226 + '1))))))) + f2225) + '0)) + (vector-length + symnames2220))))) + (if (symbol? id2209) + (search2210 + id2209 + (wrap-subst317 w2208) + (wrap-marks316 w2208)) + (if (syntax-object?64 id2209) + ((lambda (sym2214 w12213) + (call-with-values + (lambda () + (search2210 + sym2214 + (wrap-subst317 + w2208) + (join-marks423 + (wrap-marks316 + w2208) + (wrap-marks316 + w12213)))) + (lambda (name2216 + marks2215) + (if name2216 + (values + name2216 + marks2215) + (search2210 + sym2214 + (wrap-subst317 + w12213) + marks2215))))) + ((lambda (e2217) + (if (annotation?132 + e2217) + (annotation-expression + e2217) + e2217)) + (syntax-object-expression65 + id2209)) + (syntax-object-wrap66 + id2209)) + (if (annotation?132 + id2209) + (search2210 + ((lambda (e2218) + (if (annotation?132 + e2218) + (annotation-expression + e2218) + e2218)) + id2209) + (wrap-subst317 + w2208) + (wrap-marks316 + w2208)) + (error-hook136 + 'id-var-name + '"invalid id" + id2209))))))) + (id-var-name&marks432 (lambda (id2205 w2204) + (call-with-values + (lambda () + (id-var-name-loc&marks431 + id2205 + w2204)) + (lambda (label2207 marks2206) + (values + (if (indirect-label?356 + label2207) + (get-indirect-label360 + label2207) + label2207) + marks2206))))) + (id-var-name-loc433 (lambda (id2201 w2200) + (call-with-values + (lambda () + (id-var-name-loc&marks431 + id2201 + w2200)) + (lambda (label2203 marks2202) + label2203)))) + (id-var-name434 (lambda (id2197 w2196) + (call-with-values + (lambda () + (id-var-name-loc&marks431 id2197 w2196)) + (lambda (label2199 marks2198) + (if (indirect-label?356 label2199) + (get-indirect-label360 label2199) + label2199))))) + (free-id=?435 (lambda (i2191 j2190) + (if (eq? ((lambda (x2194) + ((lambda (e2195) + (if (annotation?132 e2195) + (annotation-expression + e2195) + e2195)) + (if (syntax-object?64 x2194) + (syntax-object-expression65 + x2194) + x2194))) + i2191) + ((lambda (x2192) + ((lambda (e2193) + (if (annotation?132 e2193) + (annotation-expression + e2193) + e2193)) + (if (syntax-object?64 x2192) + (syntax-object-expression65 + x2192) + x2192))) + j2190)) + (eq? (id-var-name434 i2191 '(())) + (id-var-name434 j2190 '(()))) + '#f))) + (literal-id=?436 (lambda (id2180 literal2179) + (if (eq? ((lambda (x2183) + ((lambda (e2184) + (if (annotation?132 e2184) + (annotation-expression + e2184) + e2184)) + (if (syntax-object?64 x2183) + (syntax-object-expression65 + x2183) + x2183))) + id2180) + ((lambda (x2181) + ((lambda (e2182) + (if (annotation?132 e2182) + (annotation-expression + e2182) + e2182)) + (if (syntax-object?64 x2181) + (syntax-object-expression65 + x2181) + x2181))) + literal2179)) + ((lambda (n-id2186 n-literal2185) + ((lambda (t2187) + (if t2187 + t2187 + (if ((lambda (t2188) + (if t2188 + t2188 + (symbol? + n-id2186))) + (not n-id2186)) + ((lambda (t2189) + (if t2189 + t2189 + (symbol? + n-literal2185))) + (not n-literal2185)) + '#f))) + (eq? n-id2186 n-literal2185))) + (id-var-name434 id2180 '(())) + (id-var-name434 literal2179 '(()))) + '#f))) + (help-bound-id=?437 (lambda (i.sym2178 i.marks2177 j.sym2176 + j.marks2175) + (if (eq? i.sym2178 j.sym2176) + (same-marks?425 + i.marks2177 + j.marks2175) + '#f))) + (bound-id=?438 (lambda (i2170 j2169) + (help-bound-id=?437 + ((lambda (x2173) + ((lambda (e2174) + (if (annotation?132 e2174) + (annotation-expression e2174) + e2174)) + (if (syntax-object?64 x2173) + (syntax-object-expression65 x2173) + x2173))) + i2170) + (id-marks312 i2170) + ((lambda (x2171) + ((lambda (e2172) + (if (annotation?132 e2172) + (annotation-expression e2172) + e2172)) + (if (syntax-object?64 x2171) + (syntax-object-expression65 x2171) + x2171))) + j2169) + (id-marks312 j2169)))) + (valid-bound-ids?439 (lambda (ids2165) + (if ((letrec ((all-ids?2166 (lambda (ids2167) + ((lambda (t2168) + (if t2168 + t2168 + (if (id?306 + (car ids2167)) + (all-ids?2166 + (cdr ids2167)) + '#f))) + (null? + ids2167))))) + all-ids?2166) + ids2165) + (distinct-bound-ids?440 ids2165) + '#f))) + (distinct-bound-ids?440 (lambda (ids2161) + ((letrec ((distinct?2162 (lambda (ids2163) + ((lambda (t2164) + (if t2164 + t2164 + (if (not (bound-id-member?442 + (car ids2163) + (cdr ids2163))) + (distinct?2162 + (cdr ids2163)) + '#f))) + (null? + ids2163))))) + distinct?2162) + ids2161))) + (invalid-ids-error441 (lambda (ids2157 exp2156 class2155) + ((letrec ((find2158 (lambda (ids2160 + gooduns2159) + (if (null? + ids2160) + (syntax-error + exp2156) + (if (id?306 + (car ids2160)) + (if (bound-id-member?442 + (car ids2160) + gooduns2159) + (syntax-error + (car ids2160) + '"duplicate " + class2155) + (find2158 + (cdr ids2160) + (cons + (car ids2160) + gooduns2159))) + (syntax-error + (car ids2160) + '"invalid " + class2155)))))) + find2158) + ids2157 + '()))) + (bound-id-member?442 (lambda (x2153 list2152) + (if (not (null? list2152)) + ((lambda (t2154) + (if t2154 + t2154 + (bound-id-member?442 + x2153 + (cdr list2152)))) + (bound-id=?438 + x2153 + (car list2152))) + '#f))) + (wrap443 (lambda (x2151 w2150) + (if (if (null? (wrap-marks316 w2150)) + (null? (wrap-subst317 w2150)) + '#f) + x2151 + (if (syntax-object?64 x2151) + (make-syntax-object63 + (syntax-object-expression65 x2151) + (join-wraps422 + w2150 + (syntax-object-wrap66 x2151))) + (if (null? x2151) + x2151 + (make-syntax-object63 x2151 w2150)))))) + (source-wrap444 (lambda (x2149 w2148 ae2147) + (wrap443 + (if (annotation?132 ae2147) + (begin + (if (not (eq? (annotation-expression + ae2147) + x2149)) + (error 'sc-expand + '"internal error in source-wrap: ae/x mismatch") + (void)) + ae2147) + x2149) + w2148))) + (chi-when-list445 (lambda (when-list2145 w2144) + (map (lambda (x2146) + (if (literal-id=?436 + x2146 + '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + 'compile + (if (literal-id=?436 + x2146 + '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + 'load + (if (literal-id=?436 + x2146 + '#(syntax-object visit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + 'visit + (if (literal-id=?436 + x2146 + '#(syntax-object revisit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + 'revisit + (if (literal-id=?436 + x2146 + '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + 'eval + (syntax-error + (wrap443 + x2146 + w2144) + '"invalid eval-when situation"))))))) + when-list2145))) + (syntax-type446 (lambda (e2129 r2128 w2127 ae2126 rib2125) + (if (symbol? e2129) + ((lambda (n2130) + ((lambda (b2131) + ((lambda (type2132) + ((lambda () + ((lambda (t2133) + (if (memv + t2133 + '(macro macro!)) + (syntax-type446 + (chi-macro502 + (binding-value282 + b2131) + e2129 r2128 w2127 + ae2126 rib2125) + r2128 '(()) '#f + rib2125) + (values type2132 + (binding-value282 + b2131) + e2129 w2127 + ae2126))) + type2132)))) + (binding-type281 b2131))) + (lookup301 n2130 r2128))) + (id-var-name434 e2129 w2127)) + (if (pair? e2129) + ((lambda (first2134) + (if (id?306 first2134) + ((lambda (n2135) + ((lambda (b2136) + ((lambda (type2137) + ((lambda () + ((lambda (t2138) + (if (memv + t2138 + '(lexical)) + (values + 'lexical-call + (binding-value282 + b2136) + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(macro + macro!)) + (syntax-type446 + (chi-macro502 + (binding-value282 + b2136) + e2129 + r2128 + w2127 + ae2126 + rib2125) + r2128 + '(()) + '#f + rib2125) + (if (memv + t2138 + '(core)) + (values + type2137 + (binding-value282 + b2136) + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(begin)) + (values + 'begin-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(alias)) + (values + 'alias-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(define)) + (values + 'define-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(define-syntax)) + (values + 'define-syntax-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(set!)) + (chi-set!501 + e2129 + r2128 + w2127 + ae2126 + rib2125) + (if (memv + t2138 + '($module-key)) + (values + '$module-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '($import)) + (values + '$import-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(eval-when)) + (values + 'eval-when-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(meta)) + (values + 'meta-form + '#f + e2129 + w2127 + ae2126) + (if (memv + t2138 + '(local-syntax)) + (values + 'local-syntax-form + (binding-value282 + b2136) + e2129 + w2127 + ae2126) + (values + 'call + '#f + e2129 + w2127 + ae2126))))))))))))))) + type2137)))) + (binding-type281 + b2136))) + (lookup301 n2135 r2128))) + (id-var-name434 + first2134 + w2127)) + (values 'call '#f e2129 w2127 + ae2126))) + (car e2129)) + (if (syntax-object?64 e2129) + (syntax-type446 + (syntax-object-expression65 + e2129) + r2128 + (join-wraps422 + w2127 + (syntax-object-wrap66 e2129)) + '#f rib2125) + (if (annotation?132 e2129) + (syntax-type446 + (annotation-expression + e2129) + r2128 w2127 e2129 rib2125) + (if ((lambda (x2139) + ((lambda (t2140) + (if t2140 + t2140 + ((lambda (t2141) + (if t2141 + t2141 + ((lambda (t2142) + (if t2142 + t2142 + ((lambda (t2143) + (if t2143 + t2143 + (null? + x2139))) + (char? + x2139)))) + (string? + x2139)))) + (number? + x2139)))) + (boolean? x2139))) + e2129) + (values 'constant '#f + e2129 w2127 ae2126) + (values 'other '#f e2129 + w2127 ae2126)))))))) + (chi-top*447 (lambda (e2120 r2119 w2118 ctem2117 rtem2116 + meta?2115 top-ribcage2114) + ((lambda (meta-residuals2121) + (letrec ((meta-residualize!2122 (lambda (x2124) + (set! meta-residuals2121 + (cons + x2124 + meta-residuals2121))))) + ((lambda (e2123) + (build-sequence235 + '#f + (reverse + (cons e2123 meta-residuals2121)))) + (chi-top449 e2120 r2119 w2118 ctem2117 + rtem2116 meta?2115 top-ribcage2114 + meta-residualize!2122 '#f)))) + '()))) + (chi-top-sequence448 (lambda (body2110 r2109 w2108 ae2107 + ctem2106 rtem2105 meta?2104 + ribcage2103 + meta-residualize!2102) + (build-sequence235 + ae2107 + ((letrec ((dobody2111 (lambda (body2112) + (if (null? + body2112) + '() + ((lambda (first2113) + (cons + first2113 + (dobody2111 + (cdr body2112)))) + (chi-top449 + (car body2112) + r2109 + w2108 + ctem2106 + rtem2105 + meta?2104 + ribcage2103 + meta-residualize!2102 + '#f)))))) + dobody2111) + body2110)))) + (chi-top449 (lambda (e2047 r2046 w2045 ctem2044 rtem2043 + meta?2042 top-ribcage2041 + meta-residualize!2040 meta-seen?2039) + (call-with-values + (lambda () + (syntax-type446 e2047 r2046 w2045 '#f + top-ribcage2041)) + (lambda (type2052 value2051 e2050 w2049 ae2048) + ((lambda (t2053) + (if (memv t2053 '(begin-form)) + ((lambda (forms2054) + (if (null? forms2054) + (chi-void518) + (chi-top-sequence448 forms2054 + r2046 w2049 ae2048 ctem2044 + rtem2043 meta?2042 + top-ribcage2041 + meta-residualize!2040))) + (parse-begin515 + e2050 + w2049 + ae2048 + '#t)) + (if (memv t2053 '(local-syntax-form)) + (call-with-values + (lambda () + (chi-local-syntax517 value2051 + e2050 r2046 r2046 w2049 + ae2048)) + (lambda (forms2059 r2058 mr2057 + w2056 ae2055) + (chi-top-sequence448 forms2059 + r2058 w2056 ae2055 ctem2044 + rtem2043 meta?2042 + top-ribcage2041 + meta-residualize!2040))) + (if (memv t2053 '(eval-when-form)) + (call-with-values + (lambda () + (parse-eval-when513 + e2050 + w2049 + ae2048)) + (lambda (when-list2061 + forms2060) + ((lambda (ctem2063 + rtem2062) + (if (if (null? + ctem2063) + (null? + rtem2062) + '#f) + (chi-void518) + (chi-top-sequence448 + forms2060 r2046 + w2049 ae2048 + ctem2063 rtem2062 + meta?2042 + top-ribcage2041 + meta-residualize!2040))) + (update-mode-set490 + when-list2061 + ctem2044) + (update-mode-set490 + when-list2061 + rtem2043)))) + (if (memv t2053 '(meta-form)) + (chi-top449 + (parse-meta512 + e2050 + w2049 + ae2048) + r2046 w2049 ctem2044 + rtem2043 '#t + top-ribcage2041 + meta-residualize!2040 + '#t) + (if (memv + t2053 + '(define-syntax-form)) + (call-with-values + (lambda () + (parse-define-syntax511 + e2050 + w2049 + ae2048)) + (lambda (id2066 + rhs2065 + w2064) + ((lambda (id2067) + (begin + (if (displaced-lexical?298 + id2067 + r2046) + (displaced-lexical-error299 + id2067) + (void)) + (if (not (top-ribcage-mutable?376 + top-ribcage2041)) + (syntax-error + (source-wrap444 + e2050 + w2064 + ae2048) + '"invalid definition in read-only environment") + (void)) + ((lambda (sym2068) + (call-with-values + (lambda () + (top-id-bound-var-name429 + sym2068 + (wrap-marks316 + (syntax-object-wrap66 + id2067)) + top-ribcage2041)) + (lambda (valsym2070 + bound-id2069) + (begin + (if (not (eq? (id-var-name434 + id2067 + '(())) + valsym2070)) + (syntax-error + (source-wrap444 + e2050 + w2064 + ae2048) + '"definition not permitted") + (void)) + (if (read-only-binding?140 + valsym2070) + (syntax-error + (source-wrap444 + e2050 + w2064 + ae2048) + '"invalid definition of read-only identifier") + (void)) + (ct-eval/residualize2493 + ctem2044 + (lambda () + (list + '$sc-put-cte + (list + 'quote + bound-id2069) + (chi498 + rhs2065 + r2046 + r2046 + w2064 + '#t) + (list + 'quote + (top-ribcage-key375 + top-ribcage2041))))))))) + ((lambda (x2071) + ((lambda (e2072) + (if (annotation?132 + e2072) + (annotation-expression + e2072) + e2072)) + (if (syntax-object?64 + x2071) + (syntax-object-expression65 + x2071) + x2071))) + id2067)))) + (wrap443 + id2066 + w2064)))) + (if (memv + t2053 + '(define-form)) + (call-with-values + (lambda () + (parse-define510 + e2050 + w2049 + ae2048)) + (lambda (id2075 + rhs2074 + w2073) + ((lambda (id2076) + (begin + (if (displaced-lexical?298 + id2076 + r2046) + (displaced-lexical-error299 + id2076) + (void)) + (if (not (top-ribcage-mutable?376 + top-ribcage2041)) + (syntax-error + (source-wrap444 + e2050 + w2073 + ae2048) + '"invalid definition in read-only environment") + (void)) + ((lambda (sym2077) + (call-with-values + (lambda () + (top-id-bound-var-name429 + sym2077 + (wrap-marks316 + (syntax-object-wrap66 + id2076)) + top-ribcage2041)) + (lambda (valsym2079 + bound-id2078) + (begin + (if (not (eq? (id-var-name434 + id2076 + '(())) + valsym2079)) + (syntax-error + (source-wrap444 + e2050 + w2073 + ae2048) + '"definition not permitted") + (void)) + (if (read-only-binding?140 + valsym2079) + (syntax-error + (source-wrap444 + e2050 + w2073 + ae2048) + '"invalid definition of read-only identifier") + (void)) + (if meta?2042 + (ct-eval/residualize2493 + ctem2044 + (lambda () + (build-sequence235 + '#f + (list + (list + '$sc-put-cte + (list + 'quote + bound-id2078) + (list + 'quote + (cons + 'meta-variable + valsym2079)) + (list + 'quote + (top-ribcage-key375 + top-ribcage2041))) + (list + 'define + valsym2079 + (chi498 + rhs2074 + r2046 + r2046 + w2073 + '#t)))))) + ((lambda (x2080) + (build-sequence235 + '#f + (list + x2080 + (rt-eval/residualize492 + rtem2043 + (lambda () + (list + 'define + valsym2079 + (chi498 + rhs2074 + r2046 + r2046 + w2073 + '#f))))))) + (ct-eval/residualize2493 + ctem2044 + (lambda () + (list + '$sc-put-cte + (list + 'quote + bound-id2078) + (list + 'quote + (cons + 'global + valsym2079)) + (list + 'quote + (top-ribcage-key375 + top-ribcage2041))))))))))) + ((lambda (x2081) + ((lambda (e2082) + (if (annotation?132 + e2082) + (annotation-expression + e2082) + e2082)) + (if (syntax-object?64 + x2081) + (syntax-object-expression65 + x2081) + x2081))) + id2076)))) + (wrap443 + id2075 + w2073)))) + (if (memv + t2053 + '($module-form)) + ((lambda (ribcage2083) + (call-with-values + (lambda () + (parse-module508 + e2050 + w2049 + ae2048 + (make-wrap315 + (wrap-marks316 + w2049) + (cons + ribcage2083 + (wrap-subst317 + w2049))))) + (lambda (orig2087 + id2086 + exports2085 + forms2084) + (begin + (if (displaced-lexical?298 + id2086 + r2046) + (displaced-lexical-error299 + (wrap443 + id2086 + w2049)) + (void)) + (if (not (top-ribcage-mutable?376 + top-ribcage2041)) + (syntax-error + orig2087 + '"invalid definition in read-only environment") + (void)) + (chi-top-module482 + orig2087 + r2046 + r2046 + top-ribcage2041 + ribcage2083 + ctem2044 + rtem2043 + meta?2042 + id2086 + exports2085 + forms2084 + meta-residualize!2040))))) + (make-ribcage365 + '() + '() + '())) + (if (memv + t2053 + '($import-form)) + (call-with-values + (lambda () + (parse-import509 + e2050 + w2049 + ae2048)) + (lambda (orig2090 + only?2089 + mid2088) + (begin + (if (not (top-ribcage-mutable?376 + top-ribcage2041)) + (syntax-error + orig2090 + '"invalid definition in read-only environment") + (void)) + (ct-eval/residualize2493 + ctem2044 + (lambda () + ((lambda (binding2091) + ((lambda (t2092) + (if (memv + t2092 + '($module)) + (do-top-import489 + only?2089 + top-ribcage2041 + mid2088 + (interface-token455 + (binding-value282 + binding2091))) + (if (memv + t2092 + '(displaced-lexical)) + (displaced-lexical-error299 + mid2088) + (syntax-error + mid2088 + '"unknown module")))) + (binding-type281 + binding2091))) + (lookup301 + (id-var-name434 + mid2088 + '(())) + '()))))))) + (if (memv + t2053 + '(alias-form)) + (call-with-values + (lambda () + (parse-alias514 + e2050 + w2049 + ae2048)) + (lambda (new-id2094 + old-id2093) + ((lambda (new-id2095) + (begin + (if (displaced-lexical?298 + new-id2095 + r2046) + (displaced-lexical-error299 + new-id2095) + (void)) + (if (not (top-ribcage-mutable?376 + top-ribcage2041)) + (syntax-error + (source-wrap444 + e2050 + w2049 + ae2048) + '"invalid definition in read-only environment") + (void)) + ((lambda (sym2096) + (call-with-values + (lambda () + (top-id-bound-var-name429 + sym2096 + (wrap-marks316 + (syntax-object-wrap66 + new-id2095)) + top-ribcage2041)) + (lambda (valsym2098 + bound-id2097) + (begin + (if (not (eq? (id-var-name434 + new-id2095 + '(())) + valsym2098)) + (syntax-error + (source-wrap444 + e2050 + w2049 + ae2048) + '"definition not permitted") + (void)) + (if (read-only-binding?140 + valsym2098) + (syntax-error + (source-wrap444 + e2050 + w2049 + ae2048) + '"invalid definition of read-only identifier") + (void)) + (ct-eval/residualize2493 + ctem2044 + (lambda () + (list + '$sc-put-cte + (list + 'quote + (make-resolved-id418 + sym2096 + (wrap-marks316 + (syntax-object-wrap66 + new-id2095)) + (id-var-name434 + old-id2093 + w2049))) + (list + 'quote + '(do-alias + . + #f)) + (list + 'quote + (top-ribcage-key375 + top-ribcage2041))))))))) + ((lambda (x2099) + ((lambda (e2100) + (if (annotation?132 + e2100) + (annotation-expression + e2100) + e2100)) + (if (syntax-object?64 + x2099) + (syntax-object-expression65 + x2099) + x2099))) + new-id2095)))) + (wrap443 + new-id2094 + w2049)))) + (begin + (if meta-seen?2039 + (syntax-error + (source-wrap444 + e2050 + w2049 + ae2048) + '"invalid meta definition") + (void)) + (if meta?2042 + ((lambda (x2101) + (begin + (top-level-eval-hook133 + x2101) + (ct-eval/residualize3494 + ctem2044 + void + (lambda () + x2101)))) + (chi-expr499 + type2052 + value2051 + e2050 + r2046 + r2046 + w2049 + ae2048 + '#t)) + (rt-eval/residualize492 + rtem2043 + (lambda () + (chi-expr499 + type2052 + value2051 + e2050 + r2046 + r2046 + w2049 + ae2048 + '#f))))))))))))))) + type2052))))) + (flatten-exports450 (lambda (exports2035) + ((letrec ((loop2036 (lambda (exports2038 + ls2037) + (if (null? + exports2038) + ls2037 + (loop2036 + (cdr exports2038) + (if (pair? + (car exports2038)) + (loop2036 + (car exports2038) + ls2037) + (cons + (car exports2038) + ls2037))))))) + loop2036) + exports2035 + '()))) + (make-interface451 (lambda (marks2034 exports2033 token2032) + (vector + 'interface + marks2034 + exports2033 + token2032))) + (interface?452 (lambda (x2031) + (if (vector? x2031) + (if (= (vector-length x2031) '4) + (eq? (vector-ref x2031 '0) 'interface) + '#f) + '#f))) + (interface-marks453 (lambda (x2030) (vector-ref x2030 '1))) + (interface-exports454 (lambda (x2029) + (vector-ref x2029 '2))) + (interface-token455 (lambda (x2028) (vector-ref x2028 '3))) + (set-interface-marks!456 (lambda (x2027 update2026) + (vector-set! x2027 '1 update2026))) + (set-interface-exports!457 (lambda (x2025 update2024) + (vector-set! + x2025 + '2 + update2024))) + (set-interface-token!458 (lambda (x2023 update2022) + (vector-set! x2023 '3 update2022))) + (make-unresolved-interface459 (lambda (mid2020 exports2019) + (make-interface451 + (wrap-marks316 + (syntax-object-wrap66 + mid2020)) + (list->vector + (map (lambda (x2021) + (if (pair? x2021) + (car x2021) + x2021)) + exports2019)) + '#f))) + (make-resolved-interface460 (lambda (mid2017 exports2016 + token2015) + (make-interface451 + (wrap-marks316 + (syntax-object-wrap66 + mid2017)) + (list->vector + (map (lambda (x2018) + (id->resolved-id419 + (if (pair? x2018) + (car x2018) + x2018))) + exports2016)) + token2015))) + (make-module-binding461 (lambda (type2014 id2013 label2012 + imps2011 val2010 exported2009) + (vector 'module-binding type2014 + id2013 label2012 imps2011 val2010 + exported2009))) + (module-binding?462 (lambda (x2008) + (if (vector? x2008) + (if (= (vector-length x2008) '7) + (eq? (vector-ref x2008 '0) + 'module-binding) + '#f) + '#f))) + (module-binding-type463 (lambda (x2007) + (vector-ref x2007 '1))) + (module-binding-id464 (lambda (x2006) + (vector-ref x2006 '2))) + (module-binding-label465 (lambda (x2005) + (vector-ref x2005 '3))) + (module-binding-imps466 (lambda (x2004) + (vector-ref x2004 '4))) + (module-binding-val467 (lambda (x2003) + (vector-ref x2003 '5))) + (module-binding-exported468 (lambda (x2002) + (vector-ref x2002 '6))) + (set-module-binding-type!469 (lambda (x2001 update2000) + (vector-set! + x2001 + '1 + update2000))) + (set-module-binding-id!470 (lambda (x1999 update1998) + (vector-set! + x1999 + '2 + update1998))) + (set-module-binding-label!471 (lambda (x1997 update1996) + (vector-set! + x1997 + '3 + update1996))) + (set-module-binding-imps!472 (lambda (x1995 update1994) + (vector-set! + x1995 + '4 + update1994))) + (set-module-binding-val!473 (lambda (x1993 update1992) + (vector-set! + x1993 + '5 + update1992))) + (set-module-binding-exported!474 (lambda (x1991 update1990) + (vector-set! + x1991 + '6 + update1990))) + (create-module-binding475 (lambda (type1989 id1988 label1987 + imps1986 val1985) + (make-module-binding461 type1989 + id1988 label1987 imps1986 val1985 + '#f))) + (make-frob476 (lambda (e1984 meta?1983) + (vector 'frob e1984 meta?1983))) + (frob?477 (lambda (x1982) + (if (vector? x1982) + (if (= (vector-length x1982) '3) + (eq? (vector-ref x1982 '0) 'frob) + '#f) + '#f))) + (frob-e478 (lambda (x1981) (vector-ref x1981 '1))) + (frob-meta?479 (lambda (x1980) (vector-ref x1980 '2))) + (set-frob-e!480 (lambda (x1979 update1978) + (vector-set! x1979 '1 update1978))) + (set-frob-meta?!481 (lambda (x1977 update1976) + (vector-set! x1977 '2 update1976))) + (chi-top-module482 (lambda (orig1917 r1916 mr1915 + top-ribcage1914 ribcage1913 + ctem1912 rtem1911 meta?1910 id1909 + exports1908 forms1907 + meta-residualize!1906) + ((lambda (fexports1918) + (call-with-values + (lambda () + (chi-external486 ribcage1913 + orig1917 + (map (lambda (d1975) + (make-frob476 + d1975 + meta?1910)) + forms1907) + r1916 mr1915 ctem1912 exports1908 + fexports1918 + meta-residualize!1906)) + (lambda (r1922 mr1921 bindings1920 + inits1919) + ((letrec ((process-exports1923 (lambda (fexports1925 + ctdefs1924) + (if (null? + fexports1925) + ((letrec ((process-locals1926 (lambda (bs1931 + r1930 + dts1929 + dvs1928 + des1927) + (if (null? + bs1931) + ((lambda (des1933 + inits1932) + (build-sequence235 + '#f + (append + (ctdefs1924) + (list + (ct-eval/residualize2493 + ctem1912 + (lambda () + ((lambda (sym1934) + ((lambda (token1935) + ((lambda (b1936) + ((lambda () + (call-with-values + (lambda () + (top-id-bound-var-name429 + sym1934 + (wrap-marks316 + (syntax-object-wrap66 + id1909)) + top-ribcage1914)) + (lambda (valsym1938 + bound-id1937) + (begin + (if (not (eq? (id-var-name434 + id1909 + '(())) + valsym1938)) + (syntax-error + orig1917 + '"definition not permitted") + (void)) + (if (read-only-binding?140 + valsym1938) + (syntax-error + orig1917 + '"invalid definition of read-only identifier") + (void)) + (list + '$sc-put-cte + (list + 'quote + bound-id1937) + b1936 + (list + 'quote + (top-ribcage-key375 + top-ribcage1914))))))))) + (list + 'quote + (cons + '$module + (make-resolved-interface460 + id1909 + exports1908 + token1935))))) + (generate-id143 + sym1934))) + ((lambda (x1939) + ((lambda (e1940) + (if (annotation?132 + e1940) + (annotation-expression + e1940) + e1940)) + (if (syntax-object?64 + x1939) + (syntax-object-expression65 + x1939) + x1939))) + id1909)))) + (rt-eval/residualize492 + rtem1911 + (lambda () + (build-top-module238 + '#f + dts1929 + dvs1928 + des1933 + (if (null? + inits1932) + (chi-void518) + (build-sequence235 + '#f + (append + inits1932 + (list + (chi-void518)))))))))))) + (chi-frobs495 + des1927 + r1930 + mr1921 + '#f) + (chi-frobs495 + inits1919 + r1930 + mr1921 + '#f)) + ((lambda (b1942 + bs1941) + ((lambda (t1943) + ((lambda (t1944) + (if (memv + t1944 + '(define-form)) + ((lambda (label1945) + (if (module-binding-exported468 + b1942) + ((lambda (var1946) + (process-locals1926 + bs1941 + r1930 + (cons + 'global + dts1929) + (cons + label1945 + dvs1928) + (cons + (module-binding-val467 + b1942) + des1927))) + (module-binding-id464 + b1942)) + ((lambda (var1947) + (process-locals1926 + bs1941 + (extend-env295 + label1945 + (cons + 'lexical + var1947) + r1930) + (cons + 'local + dts1929) + (cons + var1947 + dvs1928) + (cons + (module-binding-val467 + b1942) + des1927))) + (gen-var523 + (module-binding-id464 + b1942))))) + (get-indirect-label360 + (module-binding-label465 + b1942))) + (if (memv + t1944 + '(ctdefine-form + define-syntax-form + $module-form + alias-form)) + (process-locals1926 + bs1941 + r1930 + dts1929 + dvs1928 + des1927) + (error 'sc-expand-internal + '"unexpected module binding type ~s" + t1943)))) + (module-binding-type463 + b1942))) + (module-binding-type463 + b1942))) + (car bs1931) + (cdr bs1931)))))) + process-locals1926) + bindings1920 + r1922 + '() + '() + '()) + ((lambda (id1949 + fexports1948) + ((letrec ((loop1950 (lambda (bs1951) + (if (null? + bs1951) + (process-exports1923 + fexports1948 + ctdefs1924) + ((lambda (b1953 + bs1952) + (if (free-id=?435 + (module-binding-id464 + b1953) + id1949) + (if (module-binding-exported468 + b1953) + (process-exports1923 + fexports1948 + ctdefs1924) + ((lambda (t1954) + ((lambda (label1955) + ((lambda (imps1956) + ((lambda (fexports1957) + ((lambda () + (begin + (set-module-binding-exported!474 + b1953 + '#t) + ((lambda (t1958) + (if (memv + t1958 + '(define-form)) + ((lambda (sym1959) + (begin + (set-indirect-label!361 + label1955 + sym1959) + (process-exports1923 + fexports1957 + ctdefs1924))) + (generate-id143 + ((lambda (x1960) + ((lambda (e1961) + (if (annotation?132 + e1961) + (annotation-expression + e1961) + e1961)) + (if (syntax-object?64 + x1960) + (syntax-object-expression65 + x1960) + x1960))) + id1949))) + (if (memv + t1958 + '(ctdefine-form)) + ((lambda (b1962) + (process-exports1923 + fexports1957 + (lambda () + ((lambda (sym1963) + (begin + (set-indirect-label!361 + label1955 + sym1963) + (cons + (ct-eval/residualize3494 + ctem1912 + (lambda () + (put-cte-hook137 + sym1963 + b1962)) + (lambda () + (list + '$sc-put-cte + (list + 'quote + sym1963) + (list + 'quote + b1962) + (list + 'quote + '#f)))) + (ctdefs1924)))) + (binding-value282 + b1962))))) + (module-binding-val467 + b1953)) + (if (memv + t1958 + '(define-syntax-form)) + ((lambda (sym1964) + (process-exports1923 + fexports1957 + (lambda () + ((lambda (local-label1965) + (begin + (set-indirect-label!361 + label1955 + sym1964) + (cons + (ct-eval/residualize3494 + ctem1912 + (lambda () + (put-cte-hook137 + sym1964 + (car (module-binding-val467 + b1953)))) + (lambda () + (list + '$sc-put-cte + (list + 'quote + sym1964) + (cdr (module-binding-val467 + b1953)) + (list + 'quote + '#f)))) + (ctdefs1924)))) + (get-indirect-label360 + label1955))))) + (generate-id143 + ((lambda (x1966) + ((lambda (e1967) + (if (annotation?132 + e1967) + (annotation-expression + e1967) + e1967)) + (if (syntax-object?64 + x1966) + (syntax-object-expression65 + x1966) + x1966))) + id1949))) + (if (memv + t1958 + '($module-form)) + ((lambda (sym1969 + exports1968) + (process-exports1923 + (append + (flatten-exports450 + exports1968) + fexports1957) + (lambda () + (begin + (set-indirect-label!361 + label1955 + sym1969) + ((lambda (rest1970) + ((lambda (x1971) + (cons + (ct-eval/residualize3494 + ctem1912 + (lambda () + (put-cte-hook137 + sym1969 + x1971)) + (lambda () + (list + '$sc-put-cte + (list + 'quote + sym1969) + (list + 'quote + x1971) + (list + 'quote + '#f)))) + rest1970)) + (cons + '$module + (make-resolved-interface460 + id1949 + exports1968 + sym1969)))) + (ctdefs1924)))))) + (generate-id143 + ((lambda (x1972) + ((lambda (e1973) + (if (annotation?132 + e1973) + (annotation-expression + e1973) + e1973)) + (if (syntax-object?64 + x1972) + (syntax-object-expression65 + x1972) + x1972))) + id1949)) + (module-binding-val467 + b1953)) + (if (memv + t1958 + '(alias-form)) + (process-exports1923 + fexports1957 + (lambda () + ((lambda (rest1974) + (begin + (if (indirect-label?356 + label1955) + (if (not (symbol? + (get-indirect-label360 + label1955))) + (syntax-error + (module-binding-id464 + b1953) + '"unexported target of alias") + (void)) + (void)) + rest1974)) + (ctdefs1924)))) + (error 'sc-expand-internal + '"unexpected module binding type ~s" + t1954))))))) + t1954))))) + (append + imps1956 + fexports1948))) + (module-binding-imps466 + b1953))) + (module-binding-label465 + b1953))) + (module-binding-type463 + b1953))) + (loop1950 + bs1952))) + (car bs1951) + (cdr bs1951)))))) + loop1950) + bindings1920)) + (car fexports1925) + (cdr fexports1925)))))) + process-exports1923) + fexports1918 + (lambda () '()))))) + (flatten-exports450 exports1908)))) + (id-set-diff483 (lambda (exports1905 defs1904) + (if (null? exports1905) + '() + (if (bound-id-member?442 + (car exports1905) + defs1904) + (id-set-diff483 + (cdr exports1905) + defs1904) + (cons + (car exports1905) + (id-set-diff483 + (cdr exports1905) + defs1904)))))) + (check-module-exports484 (lambda (source-exp1879 + fexports1878 ids1877) + (letrec ((defined?1880 (lambda (e1887 + ids1886) + (ormap + (lambda (x1888) + (if (import-interface?380 + x1888) + ((lambda (x.iface1890 + x.new-marks1889) + ((lambda (t1891) + (if t1891 + ((lambda (token1892) + (lookup-import-binding-name415 + ((lambda (x1893) + ((lambda (e1894) + (if (annotation?132 + e1894) + (annotation-expression + e1894) + e1894)) + (if (syntax-object?64 + x1893) + (syntax-object-expression65 + x1893) + x1893))) + e1887) + (id-marks312 + e1887) + token1892 + x.new-marks1889)) + t1891) + ((lambda (v1895) + ((letrec ((lp1896 (lambda (i1897) + (if (>= i1897 + '0) + ((lambda (t1898) + (if t1898 + t1898 + (lp1896 + (- i1897 + '1)))) + ((lambda (id1899) + (help-bound-id=?437 + ((lambda (x1902) + ((lambda (e1903) + (if (annotation?132 + e1903) + (annotation-expression + e1903) + e1903)) + (if (syntax-object?64 + x1902) + (syntax-object-expression65 + x1902) + x1902))) + id1899) + (join-marks423 + x.new-marks1889 + (id-marks312 + id1899)) + ((lambda (x1900) + ((lambda (e1901) + (if (annotation?132 + e1901) + (annotation-expression + e1901) + e1901)) + (if (syntax-object?64 + x1900) + (syntax-object-expression65 + x1900) + x1900))) + e1887) + (id-marks312 + e1887))) + (vector-ref + v1895 + i1897))) + '#f)))) + lp1896) + (- (vector-length + v1895) + '1))) + (interface-exports454 + x.iface1890)))) + (interface-token455 + x.iface1890))) + (import-interface-interface381 + x1888) + (import-interface-new-marks382 + x1888)) + (bound-id=?438 + e1887 + x1888))) + ids1886)))) + ((letrec ((loop1881 (lambda (fexports1883 + missing1882) + (if (null? + fexports1883) + (if (not (null? + missing1882)) + (syntax-error + (car missing1882) + (if (= (length + missing1882) + '1) + '"missing definition for export" + '"missing definition for multiple exports, including")) + (void)) + ((lambda (e1885 + fexports1884) + (if (defined?1880 + e1885 + ids1877) + (loop1881 + fexports1884 + missing1882) + (loop1881 + fexports1884 + (cons + e1885 + missing1882)))) + (car fexports1883) + (cdr fexports1883)))))) + loop1881) + fexports1878 + '())))) + (check-defined-ids485 (lambda (source-exp1826 ls1825) + (letrec ((vfold1827 (lambda (v1872 + p1871 + cls1870) + ((lambda (len1873) + ((letrec ((lp1874 (lambda (i1876 + cls1875) + (if (= i1876 + len1873) + cls1875 + (lp1874 + (+ i1876 + '1) + (p1871 + (vector-ref + v1872 + i1876) + cls1875)))))) + lp1874) + '0 + cls1870)) + (vector-length + v1872)))) + (conflicts1828 (lambda (x1857 + y1856 + cls1855) + (if (import-interface?380 + x1857) + ((lambda (x.iface1859 + x.new-marks1858) + (if (import-interface?380 + y1856) + ((lambda (y.iface1861 + y.new-marks1860) + ((lambda (xe1863 + ye1862) + (if (> (vector-length + xe1863) + (vector-length + ye1862)) + (vfold1827 + ye1862 + (lambda (id1865 + cls1864) + (id-iface-conflicts1829 + id1865 + y.new-marks1860 + x.iface1859 + x.new-marks1858 + cls1864)) + cls1855) + (vfold1827 + xe1863 + (lambda (id1867 + cls1866) + (id-iface-conflicts1829 + id1867 + x.new-marks1858 + y.iface1861 + y.new-marks1860 + cls1866)) + cls1855))) + (interface-exports454 + x.iface1859) + (interface-exports454 + y.iface1861))) + (import-interface-interface381 + y1856) + (import-interface-new-marks382 + y1856)) + (id-iface-conflicts1829 + y1856 + '() + x.iface1859 + x.new-marks1858 + cls1855))) + (import-interface-interface381 + x1857) + (import-interface-new-marks382 + x1857)) + (if (import-interface?380 + y1856) + ((lambda (y.iface1869 + y.new-marks1868) + (id-iface-conflicts1829 + x1857 + '() + y.iface1869 + y.new-marks1868 + cls1855)) + (import-interface-interface381 + y1856) + (import-interface-new-marks382 + y1856)) + (if (bound-id=?438 + x1857 + y1856) + (cons + x1857 + cls1855) + cls1855))))) + (id-iface-conflicts1829 (lambda (id1842 + id.new-marks1841 + iface1840 + iface.new-marks1839 + cls1838) + ((lambda (id.sym1844 + id.marks1843) + ((lambda (t1845) + (if t1845 + ((lambda (token1846) + (if (lookup-import-binding-name415 + id.sym1844 + id.marks1843 + token1846 + iface.new-marks1839) + (cons + id1842 + cls1838) + cls1838)) + t1845) + (vfold1827 + (interface-exports454 + iface1840) + (lambda (*id1848 + cls1847) + ((lambda (*id.sym1850 + *id.marks1849) + (if (help-bound-id=?437 + *id.sym1850 + *id.marks1849 + id.sym1844 + id.marks1843) + (cons + *id1848 + cls1847) + cls1847)) + ((lambda (x1851) + ((lambda (e1852) + (if (annotation?132 + e1852) + (annotation-expression + e1852) + e1852)) + (if (syntax-object?64 + x1851) + (syntax-object-expression65 + x1851) + x1851))) + *id1848) + (join-marks423 + iface.new-marks1839 + (id-marks312 + *id1848)))) + cls1838))) + (interface-token455 + iface1840))) + ((lambda (x1853) + ((lambda (e1854) + (if (annotation?132 + e1854) + (annotation-expression + e1854) + e1854)) + (if (syntax-object?64 + x1853) + (syntax-object-expression65 + x1853) + x1853))) + id1842) + (join-marks423 + id.new-marks1841 + (id-marks312 + id1842)))))) + (if (not (null? ls1825)) + ((letrec ((lp1830 (lambda (x1833 + ls1832 + cls1831) + (if (null? + ls1832) + (if (not (null? + cls1831)) + ((lambda (cls1834) + (syntax-error + source-exp1826 + '"duplicate definition for " + (symbol->string + (car cls1834)) + '" in")) + (syntax-object->datum + cls1831)) + (void)) + ((letrec ((lp21835 (lambda (ls21837 + cls1836) + (if (null? + ls21837) + (lp1830 + (car ls1832) + (cdr ls1832) + cls1836) + (lp21835 + (cdr ls21837) + (conflicts1828 + x1833 + (car ls21837) + cls1836)))))) + lp21835) + ls1832 + cls1831))))) + lp1830) + (car ls1825) + (cdr ls1825) + '()) + (void))))) + (chi-external486 (lambda (ribcage1721 source-exp1720 + body1719 r1718 mr1717 ctem1716 + exports1715 fexports1714 + meta-residualize!1713) + (letrec ((return1722 (lambda (r1824 mr1823 + bindings1822 + ids1821 + inits1820) + (begin + (check-defined-ids485 + source-exp1720 + ids1821) + (check-module-exports484 + source-exp1720 + fexports1714 + ids1821) + (values + r1824 + mr1823 + bindings1822 + inits1820)))) + (get-implicit-exports1723 (lambda (id1817) + ((letrec ((f1818 (lambda (exports1819) + (if (null? + exports1819) + '() + (if (if (pair? + (car exports1819)) + (bound-id=?438 + id1817 + (caar + exports1819)) + '#f) + (flatten-exports450 + (cdar + exports1819)) + (f1818 + (cdr exports1819))))))) + f1818) + exports1715))) + (update-imp-exports1724 (lambda (bindings1812 + exports1811) + ((lambda (exports1813) + (map (lambda (b1814) + ((lambda (id1815) + (if (not (bound-id-member?442 + id1815 + exports1813)) + b1814 + (create-module-binding475 + (module-binding-type463 + b1814) + id1815 + (module-binding-label465 + b1814) + (append + (get-implicit-exports1723 + id1815) + (module-binding-imps466 + b1814)) + (module-binding-val467 + b1814)))) + (module-binding-id464 + b1814))) + bindings1812)) + (map (lambda (x1816) + (if (pair? + x1816) + (car x1816) + x1816)) + exports1811))))) + ((letrec ((parse1725 (lambda (body1732 + r1731 mr1730 + ids1729 + bindings1728 + inits1727 + meta-seen?1726) + (if (null? + body1732) + (return1722 + r1731 mr1730 + bindings1728 + ids1729 + inits1727) + ((lambda (fr1733) + ((lambda (e1734) + ((lambda (meta?1735) + ((lambda () + (call-with-values + (lambda () + (syntax-type446 + e1734 + r1731 + '(()) + '#f + ribcage1721)) + (lambda (type1740 + value1739 + e1738 + w1737 + ae1736) + ((lambda (t1741) + (if (memv + t1741 + '(define-form)) + (call-with-values + (lambda () + (parse-define510 + e1738 + w1737 + ae1736)) + (lambda (id1744 + rhs1743 + w1742) + ((lambda (id1745) + ((lambda (label1746) + ((lambda (imps1747) + ((lambda () + (begin + (extend-ribcage!410 + ribcage1721 + id1745 + label1746) + (if meta?1735 + ((lambda (sym1748) + ((lambda (b1749) + ((lambda () + ((lambda (mr1750) + ((lambda (exp1751) + (begin + (define-top-level-value-hook135 + sym1748 + (top-level-eval-hook133 + exp1751)) + (meta-residualize!1713 + (ct-eval/residualize3494 + ctem1716 + void + (lambda () + (list + 'define + sym1748 + exp1751)))) + (parse1725 + (cdr body1732) + r1731 + mr1750 + (cons + id1745 + ids1729) + (cons + (create-module-binding475 + 'ctdefine-form + id1745 + label1746 + imps1747 + b1749) + bindings1728) + inits1727 + '#f))) + (chi498 + rhs1743 + mr1750 + mr1750 + w1742 + '#t))) + (extend-env295 + (get-indirect-label360 + label1746) + b1749 + mr1730))))) + (cons + 'meta-variable + sym1748))) + (generate-id143 + ((lambda (x1752) + ((lambda (e1753) + (if (annotation?132 + e1753) + (annotation-expression + e1753) + e1753)) + (if (syntax-object?64 + x1752) + (syntax-object-expression65 + x1752) + x1752))) + id1745))) + (parse1725 + (cdr body1732) + r1731 + mr1730 + (cons + id1745 + ids1729) + (cons + (create-module-binding475 + type1740 + id1745 + label1746 + imps1747 + (make-frob476 + (wrap443 + rhs1743 + w1742) + meta?1735)) + bindings1728) + inits1727 + '#f)))))) + (get-implicit-exports1723 + id1745))) + (gen-indirect-label359))) + (wrap443 + id1744 + w1742)))) + (if (memv + t1741 + '(define-syntax-form)) + (call-with-values + (lambda () + (parse-define-syntax511 + e1738 + w1737 + ae1736)) + (lambda (id1756 + rhs1755 + w1754) + ((lambda (id1757) + ((lambda (label1758) + ((lambda (imps1759) + ((lambda (exp1760) + ((lambda () + (begin + (extend-ribcage!410 + ribcage1721 + id1757 + label1758) + ((lambda (l1762 + b1761) + (parse1725 + (cdr body1732) + (extend-env295 + l1762 + b1761 + r1731) + (extend-env295 + l1762 + b1761 + mr1730) + (cons + id1757 + ids1729) + (cons + (create-module-binding475 + type1740 + id1757 + label1758 + imps1759 + (cons + b1761 + exp1760)) + bindings1728) + inits1727 + '#f)) + (get-indirect-label360 + label1758) + (defer-or-eval-transformer303 + top-level-eval-hook133 + exp1760)))))) + (chi498 + rhs1755 + mr1730 + mr1730 + w1754 + '#t))) + (get-implicit-exports1723 + id1757))) + (gen-indirect-label359))) + (wrap443 + id1756 + w1754)))) + (if (memv + t1741 + '($module-form)) + ((lambda (*ribcage1763) + ((lambda (*w1764) + ((lambda () + (call-with-values + (lambda () + (parse-module508 + e1738 + w1737 + ae1736 + *w1764)) + (lambda (orig1768 + id1767 + *exports1766 + forms1765) + (call-with-values + (lambda () + (chi-external486 + *ribcage1763 + orig1768 + (map (lambda (d1780) + (make-frob476 + d1780 + meta?1735)) + forms1765) + r1731 + mr1730 + ctem1716 + *exports1766 + (flatten-exports450 + *exports1766) + meta-residualize!1713)) + (lambda (r1772 + mr1771 + *bindings1770 + *inits1769) + ((lambda (iface1777 + bindings1776 + inits1775 + label1774 + imps1773) + (begin + (extend-ribcage!410 + ribcage1721 + id1767 + label1774) + ((lambda (l1779 + b1778) + (parse1725 + (cdr body1732) + (extend-env295 + l1779 + b1778 + r1772) + (extend-env295 + l1779 + b1778 + mr1771) + (cons + id1767 + ids1729) + (cons + (create-module-binding475 + type1740 + id1767 + label1774 + imps1773 + *exports1766) + bindings1776) + inits1775 + '#f)) + (get-indirect-label360 + label1774) + (cons + '$module + iface1777)))) + (make-unresolved-interface459 + id1767 + *exports1766) + (append + *bindings1770 + bindings1728) + (append + inits1727 + *inits1769) + (gen-indirect-label359) + (get-implicit-exports1723 + id1767))))))))) + (make-wrap315 + (wrap-marks316 + w1737) + (cons + *ribcage1763 + (wrap-subst317 + w1737))))) + (make-ribcage365 + '() + '() + '())) + (if (memv + t1741 + '($import-form)) + (call-with-values + (lambda () + (parse-import509 + e1738 + w1737 + ae1736)) + (lambda (orig1783 + only?1782 + mid1781) + ((lambda (mlabel1784) + ((lambda (binding1785) + ((lambda (t1786) + (if (memv + t1786 + '($module)) + ((lambda (iface1787) + ((lambda (import-iface1788) + ((lambda () + (begin + (if only?1782 + (extend-ribcage-barrier!412 + ribcage1721 + mid1781) + (void)) + (do-import!507 + import-iface1788 + ribcage1721) + (parse1725 + (cdr body1732) + r1731 + mr1730 + (cons + import-iface1788 + ids1729) + (update-imp-exports1724 + bindings1728 + (vector->list + (interface-exports454 + iface1787))) + inits1727 + '#f))))) + (make-import-interface379 + iface1787 + (import-mark-delta505 + mid1781 + iface1787)))) + (binding-value282 + binding1785)) + (if (memv + t1786 + '(displaced-lexical)) + (displaced-lexical-error299 + mid1781) + (syntax-error + mid1781 + '"unknown module")))) + (binding-type281 + binding1785))) + (lookup301 + mlabel1784 + r1731))) + (id-var-name434 + mid1781 + '(()))))) + (if (memv + t1741 + '(alias-form)) + (call-with-values + (lambda () + (parse-alias514 + e1738 + w1737 + ae1736)) + (lambda (new-id1790 + old-id1789) + ((lambda (new-id1791) + ((lambda (label1792) + ((lambda (imps1793) + ((lambda () + (begin + (extend-ribcage!410 + ribcage1721 + new-id1791 + label1792) + (parse1725 + (cdr body1732) + r1731 + mr1730 + (cons + new-id1791 + ids1729) + (cons + (create-module-binding475 + type1740 + new-id1791 + label1792 + imps1793 + '#f) + bindings1728) + inits1727 + '#f))))) + (get-implicit-exports1723 + new-id1791))) + (id-var-name-loc433 + old-id1789 + w1737))) + (wrap443 + new-id1790 + w1737)))) + (if (memv + t1741 + '(begin-form)) + (parse1725 + ((letrec ((f1794 (lambda (forms1795) + (if (null? + forms1795) + (cdr body1732) + (cons + (make-frob476 + (wrap443 + (car forms1795) + w1737) + meta?1735) + (f1794 + (cdr forms1795))))))) + f1794) + (parse-begin515 + e1738 + w1737 + ae1736 + '#t)) + r1731 + mr1730 + ids1729 + bindings1728 + inits1727 + '#f) + (if (memv + t1741 + '(eval-when-form)) + (call-with-values + (lambda () + (parse-eval-when513 + e1738 + w1737 + ae1736)) + (lambda (when-list1797 + forms1796) + (parse1725 + (if (memq + 'eval + when-list1797) + ((letrec ((f1798 (lambda (forms1799) + (if (null? + forms1799) + (cdr body1732) + (cons + (make-frob476 + (wrap443 + (car forms1799) + w1737) + meta?1735) + (f1798 + (cdr forms1799))))))) + f1798) + forms1796) + (cdr body1732)) + r1731 + mr1730 + ids1729 + bindings1728 + inits1727 + '#f))) + (if (memv + t1741 + '(meta-form)) + (parse1725 + (cons + (make-frob476 + (wrap443 + (parse-meta512 + e1738 + w1737 + ae1736) + w1737) + '#t) + (cdr body1732)) + r1731 + mr1730 + ids1729 + bindings1728 + inits1727 + '#t) + (if (memv + t1741 + '(local-syntax-form)) + (call-with-values + (lambda () + (chi-local-syntax517 + value1739 + e1738 + r1731 + mr1730 + w1737 + ae1736)) + (lambda (forms1804 + r1803 + mr1802 + w1801 + ae1800) + (parse1725 + ((letrec ((f1805 (lambda (forms1806) + (if (null? + forms1806) + (cdr body1732) + (cons + (make-frob476 + (wrap443 + (car forms1806) + w1801) + meta?1735) + (f1805 + (cdr forms1806))))))) + f1805) + forms1804) + r1803 + mr1802 + ids1729 + bindings1728 + inits1727 + '#f))) + (begin + (if meta-seen?1726 + (syntax-error + (source-wrap444 + e1738 + w1737 + ae1736) + '"invalid meta definition") + (void)) + ((letrec ((f1807 (lambda (body1808) + (if ((lambda (t1809) + (if t1809 + t1809 + (not (frob-meta?479 + (car body1808))))) + (null? + body1808)) + (return1722 + r1731 + mr1730 + bindings1728 + ids1729 + (append + inits1727 + body1808)) + (begin + ((lambda (x1810) + (begin + (top-level-eval-hook133 + x1810) + (meta-residualize!1713 + (ct-eval/residualize3494 + ctem1716 + void + (lambda () + x1810))))) + (chi-meta-frob496 + (car body1808) + mr1730)) + (f1807 + (cdr body1808))))))) + f1807) + (cons + (make-frob476 + (source-wrap444 + e1738 + w1737 + ae1736) + meta?1735) + (cdr body1732)))))))))))))) + type1740)))))) + (frob-meta?479 + fr1733))) + (frob-e478 + fr1733))) + (car body1732)))))) + parse1725) body1719 r1718 mr1717 '() + '() '() '#f)))) + (vmap487 (lambda (fn1709 v1708) + ((letrec ((do1710 (lambda (i1712 ls1711) + (if (< i1712 '0) + ls1711 + (do1710 + (- i1712 '1) + (cons + (fn1709 + (vector-ref + v1708 + i1712)) + ls1711)))))) + do1710) + (- (vector-length v1708) '1) + '()))) + (vfor-each488 (lambda (fn1704 v1703) + ((lambda (len1705) + ((letrec ((do1706 (lambda (i1707) + (if (not (= i1707 + len1705)) + (begin + (fn1704 + (vector-ref + v1703 + i1707)) + (do1706 + (+ i1707 '1))) + (void))))) + do1706) + '0)) + (vector-length v1703)))) + (do-top-import489 (lambda (import-only?1702 top-ribcage1701 + mid1700 token1699) + (list + '$sc-put-cte + (list 'quote mid1700) + (list 'quote (cons 'do-import token1699)) + (list + 'quote + (top-ribcage-key375 + top-ribcage1701))))) + (update-mode-set490 ((lambda (table1690) + (lambda (when-list1692 mode-set1691) + (letrec ((remq1693 (lambda (x1698 + ls1697) + (if (null? + ls1697) + '() + (if (eq? (car ls1697) + x1698) + (remq1693 + x1698 + (cdr ls1697)) + (cons + (car ls1697) + (remq1693 + x1698 + (cdr ls1697)))))))) + (remq1693 + '- + (apply + append + (map (lambda (m1694) + ((lambda (row1695) + (map (lambda (s1696) + (cdr (assq + s1696 + row1695))) + when-list1692)) + (cdr (assq + m1694 + table1690)))) + mode-set1691)))))) + '((l (load . l) (compile . c) (visit . v) + (revisit . r) (eval . -)) + (c (load . -) (compile . -) + (visit . -) (revisit . -) + (eval . c)) + (v (load . v) (compile . c) + (visit . v) (revisit . -) + (eval . -)) + (r (load . r) (compile . c) + (visit . -) (revisit . r) + (eval . -)) + (e (load . -) (compile . -) + (visit . -) (revisit . -) + (eval . e))))) + (initial-mode-set491 (lambda (when-list1686 + compiling-a-file1685) + (apply + append + (map (lambda (s1687) + (if compiling-a-file1685 + ((lambda (t1688) + (if (memv + t1688 + '(compile)) + '(c) + (if (memv + t1688 + '(load)) + '(l) + (if (memv + t1688 + '(visit)) + '(v) + (if (memv + t1688 + '(revisit)) + '(r) + '()))))) + s1687) + ((lambda (t1689) + (if (memv t1689 '(eval)) + '(e) + '())) + s1687))) + when-list1686)))) + (rt-eval/residualize492 (lambda (rtem1680 thunk1679) + (if (memq 'e rtem1680) + (thunk1679) + ((lambda (thunk1681) + (if (memq 'v rtem1680) + (if ((lambda (t1682) + (if t1682 + t1682 + (memq + 'r + rtem1680))) + (memq 'l rtem1680)) + (thunk1681) + (thunk1681)) + (if ((lambda (t1683) + (if t1683 + t1683 + (memq + 'r + rtem1680))) + (memq 'l rtem1680)) + (thunk1681) + (chi-void518)))) + (if (memq 'c rtem1680) + ((lambda (x1684) + (begin + (top-level-eval-hook133 + x1684) + (lambda () x1684))) + (thunk1679)) + thunk1679))))) + (ct-eval/residualize2493 (lambda (ctem1676 thunk1675) + ((lambda (t1677) + (ct-eval/residualize3494 + ctem1676 + (lambda () + (begin + (if (not t1677) + (set! t1677 + (thunk1675)) + (void)) + (top-level-eval-hook133 t1677))) + (lambda () + ((lambda (t1678) + (if t1678 + t1678 + (thunk1675))) + t1677)))) + '#f))) + (ct-eval/residualize3494 (lambda (ctem1672 eval-thunk1671 + residualize-thunk1670) + (if (memq 'e ctem1672) + (begin + (eval-thunk1671) + (chi-void518)) + (begin + (if (memq 'c ctem1672) + (eval-thunk1671) + (void)) + (if (memq 'r ctem1672) + (if ((lambda (t1673) + (if t1673 + t1673 + (memq + 'v + ctem1672))) + (memq 'l ctem1672)) + (residualize-thunk1670) + (residualize-thunk1670)) + (if ((lambda (t1674) + (if t1674 + t1674 + (memq + 'v + ctem1672))) + (memq 'l ctem1672)) + (residualize-thunk1670) + (chi-void518))))))) + (chi-frobs495 (lambda (frob*1668 r1667 mr1666 m?1665) + (map (lambda (x1669) + (chi498 (frob-e478 x1669) r1667 mr1666 + '(()) m?1665)) + frob*1668))) + (chi-meta-frob496 (lambda (x1664 mr1663) + (chi498 (frob-e478 x1664) mr1663 mr1663 + '(()) '#t))) + (chi-sequence497 (lambda (body1659 r1658 mr1657 w1656 ae1655 + m?1654) + (build-sequence235 + ae1655 + ((letrec ((dobody1660 (lambda (body1661) + (if (null? + body1661) + '() + ((lambda (first1662) + (cons + first1662 + (dobody1660 + (cdr body1661)))) + (chi498 + (car body1661) + r1658 + mr1657 + w1656 + m?1654)))))) + dobody1660) + body1659)))) + (chi498 (lambda (e1648 r1647 mr1646 w1645 m?1644) + (call-with-values + (lambda () + (syntax-type446 e1648 r1647 w1645 '#f '#f)) + (lambda (type1653 value1652 e1651 w1650 ae1649) + (chi-expr499 type1653 value1652 e1651 r1647 + mr1646 w1650 ae1649 m?1644))))) + (chi-expr499 (lambda (type1628 value1627 e1626 r1625 mr1624 + w1623 ae1622 m?1621) + ((lambda (t1629) + (if (memv t1629 '(lexical)) + value1627 + (if (memv t1629 '(core)) + (value1627 e1626 r1625 mr1624 w1623 + ae1622 m?1621) + (if (memv t1629 '(lexical-call)) + (chi-application500 value1627 + e1626 r1625 mr1624 w1623 ae1622 + m?1621) + (if (memv t1629 '(constant)) + (list + 'quote + (strip522 + (source-wrap444 + e1626 + w1623 + ae1622) + '(()))) + (if (memv t1629 '(global)) + value1627 + (if (memv + t1629 + '(meta-variable)) + (if m?1621 + value1627 + (displaced-lexical-error299 + (source-wrap444 + e1626 + w1623 + ae1622))) + (if (memv + t1629 + '(call)) + (chi-application500 + (chi498 + (car e1626) + r1625 mr1624 + w1623 m?1621) + e1626 r1625 + mr1624 w1623 + ae1622 m?1621) + (if (memv + t1629 + '(begin-form)) + (chi-sequence497 + (parse-begin515 + e1626 + w1623 + ae1622 + '#f) + r1625 + mr1624 + w1623 + ae1622 + m?1621) + (if (memv + t1629 + '(local-syntax-form)) + (call-with-values + (lambda () + (chi-local-syntax517 + value1627 + e1626 + r1625 + mr1624 + w1623 + ae1622)) + (lambda (forms1634 + r1633 + mr1632 + w1631 + ae1630) + (chi-sequence497 + forms1634 + r1633 + mr1632 + w1631 + ae1630 + m?1621))) + (if (memv + t1629 + '(eval-when-form)) + (call-with-values + (lambda () + (parse-eval-when513 + e1626 + w1623 + ae1622)) + (lambda (when-list1636 + forms1635) + (if (memq + 'eval + when-list1636) + (chi-sequence497 + forms1635 + r1625 + mr1624 + w1623 + ae1622 + m?1621) + (chi-void518)))) + (if (memv + t1629 + '(meta-form)) + (syntax-error + (source-wrap444 + e1626 + w1623 + ae1622) + '"invalid context for meta definition") + (if (memv + t1629 + '(define-form)) + (begin + (parse-define510 + e1626 + w1623 + ae1622) + (syntax-error + (source-wrap444 + e1626 + w1623 + ae1622) + '"invalid context for definition")) + (if (memv + t1629 + '(define-syntax-form)) + (begin + (parse-define-syntax511 + e1626 + w1623 + ae1622) + (syntax-error + (source-wrap444 + e1626 + w1623 + ae1622) + '"invalid context for definition")) + (if (memv + t1629 + '($module-form)) + (call-with-values + (lambda () + (parse-module508 + e1626 + w1623 + ae1622 + w1623)) + (lambda (orig1640 + id1639 + exports1638 + forms1637) + (syntax-error + orig1640 + '"invalid context for definition"))) + (if (memv + t1629 + '($import-form)) + (call-with-values + (lambda () + (parse-import509 + e1626 + w1623 + ae1622)) + (lambda (orig1643 + only?1642 + mid1641) + (syntax-error + orig1643 + '"invalid context for definition"))) + (if (memv + t1629 + '(alias-form)) + (begin + (parse-alias514 + e1626 + w1623 + ae1622) + (syntax-error + (source-wrap444 + e1626 + w1623 + ae1622) + '"invalid context for definition")) + (if (memv + t1629 + '(syntax)) + (syntax-error + (source-wrap444 + e1626 + w1623 + ae1622) + '"reference to pattern variable outside syntax form") + (if (memv + t1629 + '(displaced-lexical)) + (displaced-lexical-error299 + (source-wrap444 + e1626 + w1623 + ae1622)) + (syntax-error + (source-wrap444 + e1626 + w1623 + ae1622))))))))))))))))))))) + type1628))) + (chi-application500 (lambda (x1613 e1612 r1611 mr1610 w1609 + ae1608 m?1607) + ((lambda (tmp1614) + ((lambda (tmp1615) + (if tmp1615 + (apply + (lambda (e01617 e11616) + (cons + x1613 + (map (lambda (e1619) + (chi498 e1619 + r1611 mr1610 + w1609 m?1607)) + e11616))) + tmp1615) + ((lambda (_1620) + (syntax-error + (source-wrap444 + e1612 + w1609 + ae1608))) + tmp1614))) + ($syntax-dispatch + tmp1614 + '(any . each-any)))) + e1612))) + (chi-set!501 (lambda (e1581 r1580 w1579 ae1578 rib1577) + ((lambda (tmp1582) + ((lambda (tmp1583) + (if (if tmp1583 + (apply + (lambda (_1586 id1585 val1584) + (id?306 id1585)) + tmp1583) + '#f) + (apply + (lambda (_1589 id1588 val1587) + ((lambda (n1590) + ((lambda (b1591) + ((lambda (t1592) + (if (memv + t1592 + '(macro!)) + ((lambda (id1594 + val1593) + (syntax-type446 + (chi-macro502 + (binding-value282 + b1591) + (list + '#(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(id val) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage #(_ id val) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e r w ae rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + id1594 + val1593) + r1580 '(()) + '#f rib1577) + r1580 '(()) '#f + rib1577)) + (wrap443 + id1588 + w1579) + (wrap443 + val1587 + w1579)) + (values 'core + (lambda (e1600 + r1599 + mr1598 + w1597 + ae1596 + m?1595) + ((lambda (val1602 + n1601) + ((lambda (b1603) + ((lambda (t1604) + (if (memv + t1604 + '(lexical)) + (list + 'set! + (binding-value282 + b1603) + val1602) + (if (memv + t1604 + '(global)) + ((lambda (sym1605) + (begin + (if (read-only-binding?140 + n1601) + (syntax-error + (source-wrap444 + e1600 + w1597 + ae1596) + '"invalid assignment to read-only variable") + (void)) + (list + 'set! + sym1605 + val1602))) + (binding-value282 + b1603)) + (if (memv + t1604 + '(meta-variable)) + (if m?1595 + (list + 'set! + (binding-value282 + b1603) + val1602) + (displaced-lexical-error299 + (wrap443 + id1588 + w1597))) + (if (memv + t1604 + '(displaced-lexical)) + (displaced-lexical-error299 + (wrap443 + id1588 + w1597)) + (syntax-error + (source-wrap444 + e1600 + w1597 + ae1596))))))) + (binding-type281 + b1603))) + (lookup301 + n1601 + r1599))) + (chi498 val1587 + r1599 mr1598 + w1597 m?1595) + (id-var-name434 + id1588 + w1597))) + e1581 w1579 + ae1578))) + (binding-type281 b1591))) + (lookup301 n1590 r1580))) + (id-var-name434 id1588 w1579))) + tmp1583) + ((lambda (_1606) + (syntax-error + (source-wrap444 + e1581 + w1579 + ae1578))) + tmp1582))) + ($syntax-dispatch tmp1582 '(any any any)))) + e1581))) + (chi-macro502 (lambda (p1564 e1563 r1562 w1561 ae1560 + rib1559) + (letrec ((rebuild-macro-output1565 (lambda (x1569 + m1568) + (if (pair? + x1569) + (cons + (rebuild-macro-output1565 + (car x1569) + m1568) + (rebuild-macro-output1565 + (cdr x1569) + m1568)) + (if (syntax-object?64 + x1569) + ((lambda (w1570) + ((lambda (ms1572 + s1571) + (make-syntax-object63 + (syntax-object-expression65 + x1569) + (if (if (pair? + ms1572) + (eq? (car ms1572) + '#f) + '#f) + (make-wrap315 + (cdr ms1572) + (cdr s1571)) + (make-wrap315 + (cons + m1568 + ms1572) + (if rib1559 + (cons + rib1559 + (cons + 'shift + s1571)) + (cons + 'shift + s1571)))))) + (wrap-marks316 + w1570) + (wrap-subst317 + w1570))) + (syntax-object-wrap66 + x1569)) + (if (vector? + x1569) + ((lambda (n1573) + ((lambda (v1574) + ((lambda () + ((letrec ((do1575 (lambda (i1576) + (if (= i1576 + n1573) + v1574 + (begin + (vector-set! + v1574 + i1576 + (rebuild-macro-output1565 + (vector-ref + x1569 + i1576) + m1568)) + (do1575 + (+ i1576 + '1))))))) + do1575) + '0)))) + (make-vector + n1573))) + (vector-length + x1569)) + (if (symbol? + x1569) + (syntax-error + (source-wrap444 + e1563 + w1561 + ae1560) + '"encountered raw symbol " + (symbol->string + x1569) + '" in output of macro") + x1569))))))) + (rebuild-macro-output1565 + ((lambda (out1566) + (if (procedure? out1566) + (out1566 + (lambda (id1567) + (begin + (if (not (identifier? id1567)) + (syntax-error + id1567 + '"environment argument is not an identifier") + (void)) + (lookup301 + (id-var-name434 + id1567 + '(())) + r1562)))) + out1566)) + (p1564 + (source-wrap444 + e1563 + (anti-mark400 w1561) + ae1560))) + (string '#\m))))) + (chi-body503 (lambda (body1547 outer-form1546 r1545 mr1544 + w1543 m?1542) + ((lambda (ribcage1548) + ((lambda (w1549) + ((lambda (body1550) + ((lambda () + (call-with-values + (lambda () + (chi-internal504 ribcage1548 + outer-form1546 body1550 r1545 + mr1544 m?1542)) + (lambda (r1557 mr1556 exprs1555 + ids1554 vars1553 vals1552 + inits1551) + (begin + (if (null? exprs1555) + (syntax-error + outer-form1546 + '"no expressions in body") + (void)) + (build-body237 + '#f + (reverse vars1553) + (chi-frobs495 + (reverse vals1552) + r1557 + mr1556 + m?1542) + (build-sequence235 + '#f + (chi-frobs495 + (append + inits1551 + exprs1555) + r1557 + mr1556 + m?1542))))))))) + (map (lambda (x1558) + (make-frob476 + (wrap443 x1558 w1549) + '#f)) + body1547))) + (make-wrap315 + (wrap-marks316 w1543) + (cons + ribcage1548 + (wrap-subst317 w1543))))) + (make-ribcage365 '() '() '())))) + (chi-internal504 (lambda (ribcage1451 source-exp1450 + body1449 r1448 mr1447 m?1446) + (letrec ((return1452 (lambda (r1541 mr1540 + exprs1539 + ids1538 + vars1537 + vals1536 + inits1535) + (begin + (check-defined-ids485 + source-exp1450 + ids1538) + (values r1541 + mr1540 exprs1539 + ids1538 vars1537 + vals1536 + inits1535))))) + ((letrec ((parse1453 (lambda (body1461 + r1460 mr1459 + ids1458 + vars1457 + vals1456 + inits1455 + meta-seen?1454) + (if (null? + body1461) + (return1452 + r1460 mr1459 + body1461 + ids1458 + vars1457 + vals1456 + inits1455) + ((lambda (fr1462) + ((lambda (e1463) + ((lambda (meta?1464) + ((lambda () + (call-with-values + (lambda () + (syntax-type446 + e1463 + r1460 + '(()) + '#f + ribcage1451)) + (lambda (type1469 + value1468 + e1467 + w1466 + ae1465) + ((lambda (t1470) + (if (memv + t1470 + '(define-form)) + (call-with-values + (lambda () + (parse-define510 + e1467 + w1466 + ae1465)) + (lambda (id1473 + rhs1472 + w1471) + ((lambda (id1475 + label1474) + (if meta?1464 + ((lambda (sym1476) + (begin + (extend-ribcage!410 + ribcage1451 + id1475 + label1474) + ((lambda (mr1477) + (begin + (define-top-level-value-hook135 + sym1476 + (top-level-eval-hook133 + (chi498 + rhs1472 + mr1477 + mr1477 + w1471 + '#t))) + (parse1453 + (cdr body1461) + r1460 + mr1477 + (cons + id1475 + ids1458) + vars1457 + vals1456 + inits1455 + '#f))) + (extend-env295 + label1474 + (cons + 'meta-variable + sym1476) + mr1459)))) + (generate-id143 + ((lambda (x1478) + ((lambda (e1479) + (if (annotation?132 + e1479) + (annotation-expression + e1479) + e1479)) + (if (syntax-object?64 + x1478) + (syntax-object-expression65 + x1478) + x1478))) + id1475))) + ((lambda (var1480) + (begin + (extend-ribcage!410 + ribcage1451 + id1475 + label1474) + (parse1453 + (cdr body1461) + (extend-env295 + label1474 + (cons + 'lexical + var1480) + r1460) + mr1459 + (cons + id1475 + ids1458) + (cons + var1480 + vars1457) + (cons + (make-frob476 + (wrap443 + rhs1472 + w1471) + meta?1464) + vals1456) + inits1455 + '#f))) + (gen-var523 + id1475)))) + (wrap443 + id1473 + w1471) + (gen-label362)))) + (if (memv + t1470 + '(define-syntax-form)) + (call-with-values + (lambda () + (parse-define-syntax511 + e1467 + w1466 + ae1465)) + (lambda (id1483 + rhs1482 + w1481) + ((lambda (id1486 + label1485 + exp1484) + (begin + (extend-ribcage!410 + ribcage1451 + id1486 + label1485) + ((lambda (b1487) + (parse1453 + (cdr body1461) + (extend-env295 + label1485 + b1487 + r1460) + (extend-env295 + label1485 + b1487 + mr1459) + (cons + id1486 + ids1458) + vars1457 + vals1456 + inits1455 + '#f)) + (defer-or-eval-transformer303 + local-eval-hook134 + exp1484)))) + (wrap443 + id1483 + w1481) + (gen-label362) + (chi498 + rhs1482 + mr1459 + mr1459 + w1481 + '#t)))) + (if (memv + t1470 + '($module-form)) + ((lambda (*ribcage1488) + ((lambda (*w1489) + ((lambda () + (call-with-values + (lambda () + (parse-module508 + e1467 + w1466 + ae1465 + *w1489)) + (lambda (orig1493 + id1492 + exports1491 + forms1490) + (call-with-values + (lambda () + (chi-internal504 + *ribcage1488 + orig1493 + (map (lambda (d1507) + (make-frob476 + d1507 + meta?1464)) + forms1490) + r1460 + mr1459 + m?1446)) + (lambda (r1500 + mr1499 + *body1498 + *ids1497 + *vars1496 + *vals1495 + *inits1494) + (begin + (check-module-exports484 + source-exp1450 + (flatten-exports450 + exports1491) + *ids1497) + ((lambda (iface1505 + vars1504 + vals1503 + inits1502 + label1501) + (begin + (extend-ribcage!410 + ribcage1451 + id1492 + label1501) + ((lambda (b1506) + (parse1453 + (cdr body1461) + (extend-env295 + label1501 + b1506 + r1500) + (extend-env295 + label1501 + b1506 + mr1499) + (cons + id1492 + ids1458) + vars1504 + vals1503 + inits1502 + '#f)) + (cons + '$module + iface1505)))) + (make-resolved-interface460 + id1492 + exports1491 + '#f) + (append + *vars1496 + vars1457) + (append + *vals1495 + vals1456) + (append + inits1455 + *inits1494 + *body1498) + (gen-label362)))))))))) + (make-wrap315 + (wrap-marks316 + w1466) + (cons + *ribcage1488 + (wrap-subst317 + w1466))))) + (make-ribcage365 + '() + '() + '())) + (if (memv + t1470 + '($import-form)) + (call-with-values + (lambda () + (parse-import509 + e1467 + w1466 + ae1465)) + (lambda (orig1510 + only?1509 + mid1508) + ((lambda (mlabel1511) + ((lambda (binding1512) + ((lambda (t1513) + (if (memv + t1513 + '($module)) + ((lambda (iface1514) + ((lambda (import-iface1515) + ((lambda () + (begin + (if only?1509 + (extend-ribcage-barrier!412 + ribcage1451 + mid1508) + (void)) + (do-import!507 + import-iface1515 + ribcage1451) + (parse1453 + (cdr body1461) + r1460 + mr1459 + (cons + import-iface1515 + ids1458) + vars1457 + vals1456 + inits1455 + '#f))))) + (make-import-interface379 + iface1514 + (import-mark-delta505 + mid1508 + iface1514)))) + (binding-value282 + binding1512)) + (if (memv + t1513 + '(displaced-lexical)) + (displaced-lexical-error299 + mid1508) + (syntax-error + mid1508 + '"unknown module")))) + (binding-type281 + binding1512))) + (lookup301 + mlabel1511 + r1460))) + (id-var-name434 + mid1508 + '(()))))) + (if (memv + t1470 + '(alias-form)) + (call-with-values + (lambda () + (parse-alias514 + e1467 + w1466 + ae1465)) + (lambda (new-id1517 + old-id1516) + ((lambda (new-id1518) + (begin + (extend-ribcage!410 + ribcage1451 + new-id1518 + (id-var-name-loc433 + old-id1516 + w1466)) + (parse1453 + (cdr body1461) + r1460 + mr1459 + (cons + new-id1518 + ids1458) + vars1457 + vals1456 + inits1455 + '#f))) + (wrap443 + new-id1517 + w1466)))) + (if (memv + t1470 + '(begin-form)) + (parse1453 + ((letrec ((f1519 (lambda (forms1520) + (if (null? + forms1520) + (cdr body1461) + (cons + (make-frob476 + (wrap443 + (car forms1520) + w1466) + meta?1464) + (f1519 + (cdr forms1520))))))) + f1519) + (parse-begin515 + e1467 + w1466 + ae1465 + '#t)) + r1460 + mr1459 + ids1458 + vars1457 + vals1456 + inits1455 + '#f) + (if (memv + t1470 + '(eval-when-form)) + (call-with-values + (lambda () + (parse-eval-when513 + e1467 + w1466 + ae1465)) + (lambda (when-list1522 + forms1521) + (parse1453 + (if (memq + 'eval + when-list1522) + ((letrec ((f1523 (lambda (forms1524) + (if (null? + forms1524) + (cdr body1461) + (cons + (make-frob476 + (wrap443 + (car forms1524) + w1466) + meta?1464) + (f1523 + (cdr forms1524))))))) + f1523) + forms1521) + (cdr body1461)) + r1460 + mr1459 + ids1458 + vars1457 + vals1456 + inits1455 + '#f))) + (if (memv + t1470 + '(meta-form)) + (parse1453 + (cons + (make-frob476 + (wrap443 + (parse-meta512 + e1467 + w1466 + ae1465) + w1466) + '#t) + (cdr body1461)) + r1460 + mr1459 + ids1458 + vars1457 + vals1456 + inits1455 + '#t) + (if (memv + t1470 + '(local-syntax-form)) + (call-with-values + (lambda () + (chi-local-syntax517 + value1468 + e1467 + r1460 + mr1459 + w1466 + ae1465)) + (lambda (forms1529 + r1528 + mr1527 + w1526 + ae1525) + (parse1453 + ((letrec ((f1530 (lambda (forms1531) + (if (null? + forms1531) + (cdr body1461) + (cons + (make-frob476 + (wrap443 + (car forms1531) + w1526) + meta?1464) + (f1530 + (cdr forms1531))))))) + f1530) + forms1529) + r1528 + mr1527 + ids1458 + vars1457 + vals1456 + inits1455 + '#f))) + (begin + (if meta-seen?1454 + (syntax-error + (source-wrap444 + e1467 + w1466 + ae1465) + '"invalid meta definition") + (void)) + ((letrec ((f1532 (lambda (body1533) + (if ((lambda (t1534) + (if t1534 + t1534 + (not (frob-meta?479 + (car body1533))))) + (null? + body1533)) + (return1452 + r1460 + mr1459 + body1533 + ids1458 + vars1457 + vals1456 + inits1455) + (begin + (top-level-eval-hook133 + (chi-meta-frob496 + (car body1533) + mr1459)) + (f1532 + (cdr body1533))))))) + f1532) + (cons + (make-frob476 + (source-wrap444 + e1467 + w1466 + ae1465) + meta?1464) + (cdr body1461)))))))))))))) + type1469)))))) + (frob-meta?479 + fr1462))) + (frob-e478 + fr1462))) + (car body1461)))))) + parse1453) body1449 r1448 mr1447 '() + '() '() '() '#f)))) + (import-mark-delta505 (lambda (mid1445 iface1444) + (diff-marks426 + (id-marks312 mid1445) + (interface-marks453 iface1444)))) + (lookup-import-label506 (lambda (id1442) + ((lambda (label1443) + (begin + (if (not label1443) + (syntax-error + id1442 + '"exported identifier not visible") + (void)) + label1443)) + (id-var-name-loc433 + id1442 + '(()))))) + (do-import!507 (lambda (import-iface1438 ribcage1437) + ((lambda (ie1439) + (if (<= (vector-length ie1439) '20) + ((lambda (new-marks1440) + (vfor-each488 + (lambda (id1441) + (import-extend-ribcage!411 + ribcage1437 + new-marks1440 + id1441 + (lookup-import-label506 + id1441))) + ie1439)) + (import-interface-new-marks382 + import-iface1438)) + (extend-ribcage-subst!414 + ribcage1437 + import-iface1438))) + (interface-exports454 + (import-interface-interface381 + import-iface1438))))) + (parse-module508 (lambda (e1413 w1412 ae1411 *w1410) + (letrec ((listify1414 (lambda (exports1431) + (if (null? + exports1431) + '() + (cons + ((lambda (tmp1432) + ((lambda (tmp1433) + (if tmp1433 + (apply + (lambda (ex1434) + (listify1414 + ex1434)) + tmp1433) + ((lambda (x1436) + (if (id?306 + x1436) + (wrap443 + x1436 + *w1410) + (syntax-error + (source-wrap444 + e1413 + w1412 + ae1411) + '"invalid exports list in"))) + tmp1432))) + ($syntax-dispatch + tmp1432 + 'each-any))) + (car exports1431)) + (listify1414 + (cdr exports1431))))))) + ((lambda (tmp1415) + ((lambda (tmp1416) + (if (if tmp1416 + (apply + (lambda (_1421 orig1420 + mid1419 ex1418 + form1417) + (id?306 mid1419)) + tmp1416) + '#f) + (apply + (lambda (_1426 orig1425 + mid1424 ex1423 + form1422) + (values + orig1425 + (wrap443 mid1424 w1412) + (listify1414 ex1423) + (map (lambda (x1428) + (wrap443 + x1428 + *w1410)) + form1422))) + tmp1416) + ((lambda (_1430) + (syntax-error + (source-wrap444 + e1413 + w1412 + ae1411))) + tmp1415))) + ($syntax-dispatch + tmp1415 + '(any any any each-any . + each-any)))) + e1413)))) + (parse-import509 (lambda (e1393 w1392 ae1391) + ((lambda (tmp1394) + ((lambda (tmp1395) + (if (if tmp1395 + (apply + (lambda (_1398 orig1397 + mid1396) + (id?306 mid1396)) + tmp1395) + '#f) + (apply + (lambda (_1401 orig1400 mid1399) + (values + orig1400 + '#t + (wrap443 mid1399 w1392))) + tmp1395) + ((lambda (tmp1402) + (if (if tmp1402 + (apply + (lambda (_1405 + orig1404 + mid1403) + (id?306 mid1403)) + tmp1402) + '#f) + (apply + (lambda (_1408 orig1407 + mid1406) + (values + orig1407 + '#f + (wrap443 + mid1406 + w1392))) + tmp1402) + ((lambda (_1409) + (syntax-error + (source-wrap444 + e1393 + w1392 + ae1391))) + tmp1394))) + ($syntax-dispatch + tmp1394 + '(any any #(atom #f) any))))) + ($syntax-dispatch + tmp1394 + '(any any #(atom #t) any)))) + e1393))) + (parse-define510 (lambda (e1364 w1363 ae1362) + ((lambda (tmp1365) + ((lambda (tmp1366) + (if (if tmp1366 + (apply + (lambda (_1369 name1368 + val1367) + (id?306 name1368)) + tmp1366) + '#f) + (apply + (lambda (_1372 name1371 val1370) + (values + name1371 + val1370 + w1363)) + tmp1366) + ((lambda (tmp1373) + (if (if tmp1373 + (apply + (lambda (_1378 + name1377 + args1376 + e11375 + e21374) + (if (id?306 + name1377) + (valid-bound-ids?439 + (lambda-var-list524 + args1376)) + '#f)) + tmp1373) + '#f) + (apply + (lambda (_1383 name1382 + args1381 e11380 + e21379) + (values + (wrap443 + name1382 + w1363) + (cons + '#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (wrap443 + (cons + args1381 + (cons + e11380 + e21379)) + w1363)) + '(()))) + tmp1373) + ((lambda (tmp1385) + (if (if tmp1385 + (apply + (lambda (_1387 + name1386) + (id?306 + name1386)) + tmp1385) + '#f) + (apply + (lambda (_1389 + name1388) + (values + (wrap443 + name1388 + w1363) + '#(syntax-object (void) ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + '(()))) + tmp1385) + ((lambda (_1390) + (syntax-error + (source-wrap444 + e1364 + w1363 + ae1362))) + tmp1365))) + ($syntax-dispatch + tmp1365 + '(any any))))) + ($syntax-dispatch + tmp1365 + '(any (any . any) + any + . + each-any))))) + ($syntax-dispatch + tmp1365 + '(any any any)))) + e1364))) + (parse-define-syntax511 (lambda (e1340 w1339 ae1338) + ((lambda (tmp1341) + ((lambda (tmp1342) + (if (if tmp1342 + (apply + (lambda (_1347 + name1346 + id1345 + e11344 + e21343) + (if (id?306 + name1346) + (id?306 id1345) + '#f)) + tmp1342) + '#f) + (apply + (lambda (_1352 name1351 + id1350 e11349 + e21348) + (values + (wrap443 + name1351 + w1339) + (cons + '#(syntax-object lambda ((top) #(ribcage #(_ name id e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + (wrap443 + (list id1350) + w1339) + (wrap443 + (cons + e11349 + e21348) + w1339))) + '(()))) + tmp1342) + ((lambda (tmp1354) + (if (if tmp1354 + (apply + (lambda (_1357 + name1356 + val1355) + (id?306 + name1356)) + tmp1354) + '#f) + (apply + (lambda (_1360 + name1359 + val1358) + (values + name1359 + val1358 + w1339)) + tmp1354) + ((lambda (_1361) + (syntax-error + (source-wrap444 + e1340 + w1339 + ae1338))) + tmp1341))) + ($syntax-dispatch + tmp1341 + '(any any any))))) + ($syntax-dispatch + tmp1341 + '(any (any any) + any + . + each-any)))) + e1340))) + (parse-meta512 (lambda (e1332 w1331 ae1330) + ((lambda (tmp1333) + ((lambda (tmp1334) + (if tmp1334 + (apply + (lambda (_1336 form1335) form1335) + tmp1334) + ((lambda (_1337) + (syntax-error + (source-wrap444 + e1332 + w1331 + ae1330))) + tmp1333))) + ($syntax-dispatch tmp1333 '(any . any)))) + e1332))) + (parse-eval-when513 (lambda (e1320 w1319 ae1318) + ((lambda (tmp1321) + ((lambda (tmp1322) + (if tmp1322 + (apply + (lambda (_1326 x1325 e11324 + e21323) + (values + (chi-when-list445 + x1325 + w1319) + (cons e11324 e21323))) + tmp1322) + ((lambda (_1329) + (syntax-error + (source-wrap444 + e1320 + w1319 + ae1318))) + tmp1321))) + ($syntax-dispatch + tmp1321 + '(any each-any any . each-any)))) + e1320))) + (parse-alias514 (lambda (e1308 w1307 ae1306) + ((lambda (tmp1309) + ((lambda (tmp1310) + (if (if tmp1310 + (apply + (lambda (_1313 new-id1312 + old-id1311) + (if (id?306 new-id1312) + (id?306 old-id1311) + '#f)) + tmp1310) + '#f) + (apply + (lambda (_1316 new-id1315 + old-id1314) + (values new-id1315 old-id1314)) + tmp1310) + ((lambda (_1317) + (syntax-error + (source-wrap444 + e1308 + w1307 + ae1306))) + tmp1309))) + ($syntax-dispatch + tmp1309 + '(any any any)))) + e1308))) + (parse-begin515 (lambda (e1295 w1294 ae1293 empty-okay?1292) + ((lambda (tmp1296) + ((lambda (tmp1297) + (if (if tmp1297 + (apply + (lambda (_1298) + empty-okay?1292) + tmp1297) + '#f) + (apply + (lambda (_1299) '()) + tmp1297) + ((lambda (tmp1300) + (if tmp1300 + (apply + (lambda (_1303 e11302 + e21301) + (cons e11302 e21301)) + tmp1300) + ((lambda (_1305) + (syntax-error + (source-wrap444 + e1295 + w1294 + ae1293))) + tmp1296))) + ($syntax-dispatch + tmp1296 + '(any any . each-any))))) + ($syntax-dispatch tmp1296 '(any)))) + e1295))) + (chi-lambda-clause516 (lambda (e1269 c1268 r1267 mr1266 + w1265 m?1264) + ((lambda (tmp1270) + ((lambda (tmp1271) + (if tmp1271 + (apply + (lambda (id1274 e11273 + e21272) + ((lambda (ids1275) + (if (not (valid-bound-ids?439 + ids1275)) + (syntax-error + e1269 + '"invalid parameter list in") + ((lambda (labels1277 + new-vars1276) + (values + new-vars1276 + (chi-body503 + (cons + e11273 + e21272) + e1269 + (extend-var-env*297 + labels1277 + new-vars1276 + r1267) + mr1266 + (make-binding-wrap417 + ids1275 + labels1277 + w1265) + m?1264))) + (gen-labels364 + ids1275) + (map gen-var523 + ids1275)))) + id1274)) + tmp1271) + ((lambda (tmp1280) + (if tmp1280 + (apply + (lambda (ids1283 + e11282 + e21281) + ((lambda (old-ids1284) + (if (not (valid-bound-ids?439 + old-ids1284)) + (syntax-error + e1269 + '"invalid parameter list in") + ((lambda (labels1286 + new-vars1285) + (values + ((letrec ((f1288 (lambda (ls11290 + ls21289) + (if (null? + ls11290) + ls21289 + (f1288 + (cdr ls11290) + (cons + (car ls11290) + ls21289)))))) + f1288) + (cdr new-vars1285) + (car new-vars1285)) + (chi-body503 + (cons + e11282 + e21281) + e1269 + (extend-var-env*297 + labels1286 + new-vars1285 + r1267) + mr1266 + (make-binding-wrap417 + old-ids1284 + labels1286 + w1265) + m?1264))) + (gen-labels364 + old-ids1284) + (map gen-var523 + old-ids1284)))) + (lambda-var-list524 + ids1283))) + tmp1280) + ((lambda (_1291) + (syntax-error + e1269)) + tmp1270))) + ($syntax-dispatch + tmp1270 + '(any any . each-any))))) + ($syntax-dispatch + tmp1270 + '(each-any any . each-any)))) + c1268))) + (chi-local-syntax517 (lambda (rec?1245 e1244 r1243 mr1242 + w1241 ae1240) + ((lambda (tmp1246) + ((lambda (tmp1247) + (if tmp1247 + (apply + (lambda (_1252 id1251 + val1250 e11249 + e21248) + ((lambda (ids1253) + (if (not (valid-bound-ids?439 + ids1253)) + (invalid-ids-error441 + (map (lambda (x1254) + (wrap443 + x1254 + w1241)) + ids1253) + (source-wrap444 + e1244 + w1241 + ae1240) + '"keyword") + ((lambda (labels1255) + ((lambda (new-w1256) + ((lambda (b*1257) + (values + (cons + e11249 + e21248) + (extend-env*296 + labels1255 + b*1257 + r1243) + (extend-env*296 + labels1255 + b*1257 + mr1242) + new-w1256 + ae1240)) + ((lambda (w1259) + (map (lambda (x1261) + (defer-or-eval-transformer303 + local-eval-hook134 + (chi498 + x1261 + mr1242 + mr1242 + w1259 + '#t))) + val1250)) + (if rec?1245 + new-w1256 + w1241)))) + (make-binding-wrap417 + ids1253 + labels1255 + w1241))) + (gen-labels364 + ids1253)))) + id1251)) + tmp1247) + ((lambda (_1263) + (syntax-error + (source-wrap444 + e1244 + w1241 + ae1240))) + tmp1246))) + ($syntax-dispatch + tmp1246 + '(any #(each (any any)) + any + . + each-any)))) + e1244))) + (chi-void518 (lambda () (cons 'void '()))) + (ellipsis?519 (lambda (x1239) + (if (nonsymbol-id?305 x1239) + (literal-id=?436 + x1239 + '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + '#f))) + (strip-annotation520 (lambda (x1238) + (if (pair? x1238) + (cons + (strip-annotation520 (car x1238)) + (strip-annotation520 (cdr x1238))) + (if (annotation?132 x1238) + (annotation-stripped x1238) + x1238)))) + (strip*521 (lambda (x1231 w1230 fn1229) + (if (memq 'top (wrap-marks316 w1230)) + (fn1229 x1231) + ((letrec ((f1232 (lambda (x1233) + (if (syntax-object?64 + x1233) + (strip*521 + (syntax-object-expression65 + x1233) + (syntax-object-wrap66 + x1233) + fn1229) + (if (pair? x1233) + ((lambda (a1235 + d1234) + (if (if (eq? a1235 + (car x1233)) + (eq? d1234 + (cdr x1233)) + '#f) + x1233 + (cons + a1235 + d1234))) + (f1232 + (car x1233)) + (f1232 + (cdr x1233))) + (if (vector? x1233) + ((lambda (old1236) + ((lambda (new1237) + (if (andmap + eq? + old1236 + new1237) + x1233 + (list->vector + new1237))) + (map f1232 + old1236))) + (vector->list + x1233)) + x1233)))))) + f1232) + x1231)))) + (strip522 (lambda (x1226 w1225) + (strip*521 + x1226 + w1225 + (lambda (x1227) + (if ((lambda (t1228) + (if t1228 + t1228 + (if (pair? x1227) + (annotation?132 (car x1227)) + '#f))) + (annotation?132 x1227)) + (strip-annotation520 x1227) + x1227))))) + (gen-var523 (lambda (id1223) + ((lambda (id1224) + (if (annotation?132 id1224) + (gensym) + (gensym))) + (if (syntax-object?64 id1223) + (syntax-object-expression65 id1223) + id1223)))) + (lambda-var-list524 (lambda (vars1218) + ((letrec ((lvl1219 (lambda (vars1222 + ls1221 w1220) + (if (pair? vars1222) + (lvl1219 + (cdr vars1222) + (cons + (wrap443 + (car vars1222) + w1220) + ls1221) + w1220) + (if (id?306 + vars1222) + (cons + (wrap443 + vars1222 + w1220) + ls1221) + (if (null? + vars1222) + ls1221 + (if (syntax-object?64 + vars1222) + (lvl1219 + (syntax-object-expression65 + vars1222) + ls1221 + (join-wraps422 + w1220 + (syntax-object-wrap66 + vars1222))) + (if (annotation?132 + vars1222) + (lvl1219 + (annotation-expression + vars1222) + ls1221 + w1220) + (cons + vars1222 + ls1221))))))))) + lvl1219) + vars1218 + '() + '(()))))) + (begin + (set! $sc-put-cte + (lambda (id1199 b1198 top-token1197) + (letrec ((sc-put-module1200 (lambda (exports1216 token1215 + new-marks1214) + (vfor-each488 + (lambda (id1217) + (store-import-binding416 + id1217 + token1215 + new-marks1214)) + exports1216))) + (put-cte1201 (lambda (id1212 binding1211 token1210) + ((lambda (sym1213) + (begin + (store-import-binding416 + id1212 + token1210 + '()) + (put-global-definition-hook139 + sym1213 + (if (if (eq? (binding-type281 + binding1211) + 'global) + (eq? (binding-value282 + binding1211) + sym1213) + '#f) + '#f + binding1211)))) + (if (symbol? id1212) + id1212 + (id-var-name434 id1212 '(()))))))) + ((lambda (binding1202) + ((lambda (t1203) + (if (memv t1203 '($module)) + (begin + ((lambda (iface1204) + (sc-put-module1200 + (interface-exports454 iface1204) + (interface-token455 iface1204) + '())) + (binding-value282 binding1202)) + (put-cte1201 id1199 binding1202 top-token1197)) + (if (memv t1203 '(do-alias)) + (store-import-binding416 + id1199 + top-token1197 + '()) + (if (memv t1203 '(do-import)) + ((lambda (token1205) + ((lambda (b1206) + ((lambda (t1207) + (if (memv t1207 '($module)) + ((lambda (iface1208) + ((lambda (exports1209) + ((lambda () + (begin + (if (not (eq? (interface-token455 + iface1208) + token1205)) + (syntax-error + id1199 + '"import mismatch for module") + (void)) + (sc-put-module1200 + (interface-exports454 + iface1208) + top-token1197 + (import-mark-delta505 + id1199 + iface1208)))))) + (interface-exports454 + iface1208))) + (binding-value282 b1206)) + (syntax-error + id1199 + '"unknown module"))) + (binding-type281 b1206))) + (lookup301 + (id-var-name434 id1199 '(())) + '()))) + (binding-value282 b1198)) + (put-cte1201 + id1199 + binding1202 + top-token1197))))) + (binding-type281 binding1202))) + (make-transformer-binding302 b1198))))) + (global-extend304 'local-syntax 'letrec-syntax '#t) + (global-extend304 'local-syntax 'let-syntax '#f) + (global-extend304 + 'core + 'fluid-let-syntax + (lambda (e1171 r1170 mr1169 w1168 ae1167 m?1166) + ((lambda (tmp1172) + ((lambda (tmp1173) + (if (if tmp1173 + (apply + (lambda (_1178 var1177 val1176 e11175 e21174) + (valid-bound-ids?439 var1177)) + tmp1173) + '#f) + (apply + (lambda (_1184 var1183 val1182 e11181 e21180) + ((lambda (names1185) + (begin + (for-each + (lambda (id1192 n1191) + ((lambda (t1193) + (if (memv t1193 '(displaced-lexical)) + (displaced-lexical-error299 + (wrap443 id1192 w1168)) + (void))) + (binding-type281 + (lookup301 n1191 r1170)))) + var1183 + names1185) + ((lambda (b*1186) + (chi-body503 (cons e11181 e21180) + (source-wrap444 e1171 w1168 ae1167) + (extend-env*296 names1185 b*1186 r1170) + (extend-env*296 names1185 b*1186 mr1169) + w1168 m?1166)) + (map (lambda (x1189) + (defer-or-eval-transformer303 + local-eval-hook134 + (chi498 x1189 mr1169 mr1169 w1168 + '#t))) + val1182)))) + (map (lambda (x1195) + (id-var-name434 x1195 w1168)) + var1183))) + tmp1173) + ((lambda (_1196) + (syntax-error (source-wrap444 e1171 w1168 ae1167))) + tmp1172))) + ($syntax-dispatch + tmp1172 + '(any #(each (any any)) any . each-any)))) + e1171))) + (global-extend304 + 'core + 'quote + (lambda (e1160 r1159 mr1158 w1157 ae1156 m?1155) + ((lambda (tmp1161) + ((lambda (tmp1162) + (if tmp1162 + (apply + (lambda (_1164 e1163) + (list 'quote (strip522 e1163 w1157))) + tmp1162) + ((lambda (_1165) + (syntax-error (source-wrap444 e1160 w1157 ae1156))) + tmp1161))) + ($syntax-dispatch tmp1161 '(any any)))) + e1160))) + (global-extend304 + 'core + 'syntax + ((lambda () + (letrec ((gen-syntax1039 (lambda (src1100 e1099 r1098 + maps1097 ellipsis?1096 + vec?1095) + (if (id?306 e1099) + ((lambda (label1101) + ((lambda (b1102) + (if (eq? (binding-type281 + b1102) + 'syntax) + (call-with-values + (lambda () + ((lambda (var.lev1105) + (gen-ref1040 + src1100 + (car var.lev1105) + (cdr var.lev1105) + maps1097)) + (binding-value282 + b1102))) + (lambda (var1104 + maps1103) + (values + (list + 'ref + var1104) + maps1103))) + (if (ellipsis?1096 + e1099) + (syntax-error + src1100 + '"misplaced ellipsis in syntax form") + (values + (list + 'quote + e1099) + maps1097)))) + (lookup301 + label1101 + r1098))) + (id-var-name434 e1099 '(()))) + ((lambda (tmp1106) + ((lambda (tmp1107) + (if (if tmp1107 + (apply + (lambda (dots1109 + e1108) + (ellipsis?1096 + dots1109)) + tmp1107) + '#f) + (apply + (lambda (dots1111 + e1110) + (if vec?1095 + (syntax-error + src1100 + '"misplaced ellipsis in syntax template") + (gen-syntax1039 + src1100 + e1110 r1098 + maps1097 + (lambda (x1112) + '#f) + '#f))) + tmp1107) + ((lambda (tmp1113) + (if (if tmp1113 + (apply + (lambda (x1116 + dots1115 + y1114) + (ellipsis?1096 + dots1115)) + tmp1113) + '#f) + (apply + (lambda (x1119 + dots1118 + y1117) + ((letrec ((f1120 (lambda (y1122 + k1121) + ((lambda (tmp1123) + ((lambda (tmp1124) + (if (if tmp1124 + (apply + (lambda (dots1126 + y1125) + (ellipsis?1096 + dots1126)) + tmp1124) + '#f) + (apply + (lambda (dots1128 + y1127) + (f1120 + y1127 + (lambda (maps1129) + (call-with-values + (lambda () + (k1121 + (cons + '() + maps1129))) + (lambda (x1131 + maps1130) + (if (null? + (car maps1130)) + (syntax-error + src1100 + '"extra ellipsis in syntax form") + (values + (gen-mappend1042 + x1131 + (car maps1130)) + (cdr maps1130)))))))) + tmp1124) + ((lambda (_1132) + (call-with-values + (lambda () + (gen-syntax1039 + src1100 + y1122 + r1098 + maps1097 + ellipsis?1096 + vec?1095)) + (lambda (y1134 + maps1133) + (call-with-values + (lambda () + (k1121 + maps1133)) + (lambda (x1136 + maps1135) + (values + (gen-append1041 + x1136 + y1134) + maps1135)))))) + tmp1123))) + ($syntax-dispatch + tmp1123 + '(any . + any)))) + y1122)))) + f1120) + y1117 + (lambda (maps1137) + (call-with-values + (lambda () + (gen-syntax1039 + src1100 + x1119 + r1098 + (cons + '() + maps1137) + ellipsis?1096 + '#f)) + (lambda (x1139 + maps1138) + (if (null? + (car maps1138)) + (syntax-error + src1100 + '"extra ellipsis in syntax form") + (values + (gen-map1043 + x1139 + (car maps1138)) + (cdr maps1138)))))))) + tmp1113) + ((lambda (tmp1140) + (if tmp1140 + (apply + (lambda (x1142 + y1141) + (call-with-values + (lambda () + (gen-syntax1039 + src1100 + x1142 + r1098 + maps1097 + ellipsis?1096 + '#f)) + (lambda (xnew1144 + maps1143) + (call-with-values + (lambda () + (gen-syntax1039 + src1100 + y1141 + r1098 + maps1143 + ellipsis?1096 + vec?1095)) + (lambda (ynew1146 + maps1145) + (values + (gen-cons1044 + e1099 + x1142 + y1141 + xnew1144 + ynew1146) + maps1145)))))) + tmp1140) + ((lambda (tmp1147) + (if tmp1147 + (apply + (lambda (x11149 + x21148) + ((lambda (ls1150) + (call-with-values + (lambda () + (gen-syntax1039 + src1100 + ls1150 + r1098 + maps1097 + ellipsis?1096 + '#t)) + (lambda (lsnew1152 + maps1151) + (values + (gen-vector1045 + e1099 + ls1150 + lsnew1152) + maps1151)))) + (cons + x11149 + x21148))) + tmp1147) + ((lambda (_1154) + (values + (list + 'quote + e1099) + maps1097)) + tmp1106))) + ($syntax-dispatch + tmp1106 + '#(vector + (any . + each-any)))))) + ($syntax-dispatch + tmp1106 + '(any . + any))))) + ($syntax-dispatch + tmp1106 + '(any any + . + any))))) + ($syntax-dispatch + tmp1106 + '(any any)))) + e1099)))) + (gen-ref1040 (lambda (src1090 var1089 level1088 + maps1087) + (if (= level1088 '0) + (values var1089 maps1087) + (if (null? maps1087) + (syntax-error + src1090 + '"missing ellipsis in syntax form") + (call-with-values + (lambda () + (gen-ref1040 + src1090 + var1089 + (- level1088 '1) + (cdr maps1087))) + (lambda (outer-var1092 + outer-maps1091) + ((lambda (b1093) + (if b1093 + (values + (cdr b1093) + maps1087) + ((lambda (inner-var1094) + (values + inner-var1094 + (cons + (cons + (cons + outer-var1092 + inner-var1094) + (car maps1087)) + outer-maps1091))) + (gen-var523 + 'tmp)))) + (assq + outer-var1092 + (car maps1087))))))))) + (gen-append1041 (lambda (x1086 y1085) + (if (equal? y1085 ''()) + x1086 + (list 'append x1086 y1085)))) + (gen-mappend1042 (lambda (e1084 map-env1083) + (list + 'apply + '(primitive append) + (gen-map1043 + e1084 + map-env1083)))) + (gen-map1043 (lambda (e1076 map-env1075) + ((lambda (formals1078 actuals1077) + (if (eq? (car e1076) 'ref) + (car actuals1077) + (if (andmap + (lambda (x1079) + (if (eq? (car x1079) + 'ref) + (memq + (cadr x1079) + formals1078) + '#f)) + (cdr e1076)) + (cons + 'map + (cons + (list + 'primitive + (car e1076)) + (map ((lambda (r1080) + (lambda (x1081) + (cdr (assq + (cadr + x1081) + r1080)))) + (map cons + formals1078 + actuals1077)) + (cdr e1076)))) + (cons + 'map + (cons + (list + 'lambda + formals1078 + e1076) + actuals1077))))) + (map cdr map-env1075) + (map (lambda (x1082) + (list 'ref (car x1082))) + map-env1075)))) + (gen-cons1044 (lambda (e1071 x1070 y1069 xnew1068 + ynew1067) + ((lambda (t1072) + (if (memv t1072 '(quote)) + (if (eq? (car xnew1068) 'quote) + ((lambda (xnew1074 + ynew1073) + (if (if (eq? xnew1074 + x1070) + (eq? ynew1073 + y1069) + '#f) + (list 'quote e1071) + (list + 'quote + (cons + xnew1074 + ynew1073)))) + (cadr xnew1068) + (cadr ynew1067)) + (if (eq? (cadr ynew1067) + '()) + (list 'list xnew1068) + (list + 'cons + xnew1068 + ynew1067))) + (if (memv t1072 '(list)) + (cons + 'list + (cons + xnew1068 + (cdr ynew1067))) + (list + 'cons + xnew1068 + ynew1067)))) + (car ynew1067)))) + (gen-vector1045 (lambda (e1066 ls1065 lsnew1064) + (if (eq? (car lsnew1064) 'quote) + (if (eq? (cadr lsnew1064) + ls1065) + (list 'quote e1066) + (list + 'quote + (list->vector + (cadr lsnew1064)))) + (if (eq? (car lsnew1064) 'list) + (cons + 'vector + (cdr lsnew1064)) + (list + 'list->vector + lsnew1064))))) + (regen1046 (lambda (x1061) + ((lambda (t1062) + (if (memv t1062 '(ref)) + (cadr x1061) + (if (memv t1062 '(primitive)) + (cadr x1061) + (if (memv t1062 '(quote)) + (list 'quote (cadr x1061)) + (if (memv t1062 '(lambda)) + (list + 'lambda + (cadr x1061) + (regen1046 + (caddr x1061))) + (if (memv + t1062 + '(map)) + ((lambda (ls1063) + (cons + (if (= (length + ls1063) + '2) + 'map + 'map) + ls1063)) + (map regen1046 + (cdr x1061))) + (cons + (car x1061) + (map regen1046 + (cdr x1061))))))))) + (car x1061))))) + (lambda (e1052 r1051 mr1050 w1049 ae1048 m?1047) + ((lambda (e1053) + ((lambda (tmp1054) + ((lambda (tmp1055) + (if tmp1055 + (apply + (lambda (_1057 x1056) + (call-with-values + (lambda () + (gen-syntax1039 e1053 x1056 r1051 '() + ellipsis?519 '#f)) + (lambda (e1059 maps1058) + (regen1046 e1059)))) + tmp1055) + ((lambda (_1060) (syntax-error e1053)) + tmp1054))) + ($syntax-dispatch tmp1054 '(any any)))) + e1053)) + (source-wrap444 e1052 w1049 ae1048))))))) + (global-extend304 + 'core + 'lambda + (lambda (e1032 r1031 mr1030 w1029 ae1028 m?1027) + ((lambda (tmp1033) + ((lambda (tmp1034) + (if tmp1034 + (apply + (lambda (_1036 c1035) + (call-with-values + (lambda () + (chi-lambda-clause516 + (source-wrap444 e1032 w1029 ae1028) c1035 + r1031 mr1030 w1029 m?1027)) + (lambda (vars1038 body1037) + (list 'lambda vars1038 body1037)))) + tmp1034) + (syntax-error tmp1033))) + ($syntax-dispatch tmp1033 '(any . any)))) + e1032))) + (global-extend304 + 'core + 'letrec + (lambda (e1008 r1007 mr1006 w1005 ae1004 m?1003) + ((lambda (tmp1009) + ((lambda (tmp1010) + (if tmp1010 + (apply + (lambda (_1015 id1014 val1013 e11012 e21011) + ((lambda (ids1016) + (if (not (valid-bound-ids?439 ids1016)) + (invalid-ids-error441 + (map (lambda (x1017) + (wrap443 x1017 w1005)) + ids1016) + (source-wrap444 e1008 w1005 ae1004) + '"bound variable") + ((lambda (labels1019 new-vars1018) + ((lambda (w1021 r1020) + (build-letrec236 + ae1004 + new-vars1018 + (map (lambda (x1024) + (chi498 x1024 r1020 mr1006 + w1021 m?1003)) + val1013) + (chi-body503 (cons e11012 e21011) + (source-wrap444 + e1008 + w1021 + ae1004) + r1020 mr1006 w1021 m?1003))) + (make-binding-wrap417 + ids1016 + labels1019 + w1005) + (extend-var-env*297 + labels1019 + new-vars1018 + r1007))) + (gen-labels364 ids1016) + (map gen-var523 ids1016)))) + id1014)) + tmp1010) + ((lambda (_1026) + (syntax-error (source-wrap444 e1008 w1005 ae1004))) + tmp1009))) + ($syntax-dispatch + tmp1009 + '(any #(each (any any)) any . each-any)))) + e1008))) + (global-extend304 + 'core + 'if + (lambda (e991 r990 mr989 w988 ae987 m?986) + ((lambda (tmp992) + ((lambda (tmp993) + (if tmp993 + (apply + (lambda (_996 test995 then994) + (list + 'if + (chi498 test995 r990 mr989 w988 m?986) + (chi498 then994 r990 mr989 w988 m?986) + (chi-void518))) + tmp993) + ((lambda (tmp997) + (if tmp997 + (apply + (lambda (_1001 test1000 then999 else998) + (list + 'if + (chi498 test1000 r990 mr989 w988 m?986) + (chi498 then999 r990 mr989 w988 m?986) + (chi498 else998 r990 mr989 w988 m?986))) + tmp997) + ((lambda (_1002) + (syntax-error + (source-wrap444 e991 w988 ae987))) + tmp992))) + ($syntax-dispatch tmp992 '(any any any any))))) + ($syntax-dispatch tmp992 '(any any any)))) + e991))) + (global-extend304 'set! 'set! '()) + (global-extend304 'alias 'alias '()) + (global-extend304 'begin 'begin '()) + (global-extend304 '$module-key '$module '()) + (global-extend304 '$import '$import '()) + (global-extend304 'define 'define '()) + (global-extend304 'define-syntax 'define-syntax '()) + (global-extend304 'eval-when 'eval-when '()) + (global-extend304 'meta 'meta '()) + (global-extend304 + 'core + 'syntax-case + ((lambda () + (letrec ((convert-pattern858 (lambda (pattern935 keys934) + (letrec ((cvt*936 (lambda (p*981 + n980 + ids979) + (if (null? + p*981) + (values + '() + ids979) + (call-with-values + (lambda () + (cvt*936 + (cdr p*981) + n980 + ids979)) + (lambda (y983 + ids982) + (call-with-values + (lambda () + (cvt937 + (car p*981) + n980 + ids982)) + (lambda (x985 + ids984) + (values + (cons + x985 + y983) + ids984)))))))) + (cvt937 (lambda (p940 + n939 + ids938) + (if (id?306 + p940) + (if (bound-id-member?442 + p940 + keys934) + (values + (vector + 'free-id + p940) + ids938) + (values + 'any + (cons + (cons + p940 + n939) + ids938))) + ((lambda (tmp941) + ((lambda (tmp942) + (if (if tmp942 + (apply + (lambda (x944 + dots943) + (ellipsis?519 + dots943)) + tmp942) + '#f) + (apply + (lambda (x946 + dots945) + (call-with-values + (lambda () + (cvt937 + x946 + (+ n939 + '1) + ids938)) + (lambda (p948 + ids947) + (values + (if (eq? p948 + 'any) + 'each-any + (vector + 'each + p948)) + ids947)))) + tmp942) + ((lambda (tmp949) + (if (if tmp949 + (apply + (lambda (x953 + dots952 + y951 + z950) + (ellipsis?519 + dots952)) + tmp949) + '#f) + (apply + (lambda (x957 + dots956 + y955 + z954) + (call-with-values + (lambda () + (cvt937 + z954 + n939 + ids938)) + (lambda (z959 + ids958) + (call-with-values + (lambda () + (cvt*936 + y955 + n939 + ids958)) + (lambda (y961 + ids960) + (call-with-values + (lambda () + (cvt937 + x957 + (+ n939 + '1) + ids960)) + (lambda (x963 + ids962) + (values + (vector + 'each+ + x963 + (reverse + y961) + z959) + ids962)))))))) + tmp949) + ((lambda (tmp965) + (if tmp965 + (apply + (lambda (x967 + y966) + (call-with-values + (lambda () + (cvt937 + y966 + n939 + ids938)) + (lambda (y969 + ids968) + (call-with-values + (lambda () + (cvt937 + x967 + n939 + ids968)) + (lambda (x971 + ids970) + (values + (cons + x971 + y969) + ids970)))))) + tmp965) + ((lambda (tmp972) + (if tmp972 + (apply + (lambda () + (values + '() + ids938)) + tmp972) + ((lambda (tmp973) + (if tmp973 + (apply + (lambda (x974) + (call-with-values + (lambda () + (cvt937 + x974 + n939 + ids938)) + (lambda (p976 + ids975) + (values + (vector + 'vector + p976) + ids975)))) + tmp973) + ((lambda (x978) + (values + (vector + 'atom + (strip522 + p940 + '(()))) + ids938)) + tmp941))) + ($syntax-dispatch + tmp941 + '#(vector + each-any))))) + ($syntax-dispatch + tmp941 + '())))) + ($syntax-dispatch + tmp941 + '(any . + any))))) + ($syntax-dispatch + tmp941 + '(any any + . + #(each+ + any + () + any)))))) + ($syntax-dispatch + tmp941 + '(any any)))) + p940))))) + (cvt937 pattern935 '0 '())))) + (build-dispatch-call859 (lambda (pvars927 exp926 y925 + r924 mr923 m?922) + ((lambda (ids929 levels928) + ((lambda (labels931 + new-vars930) + (cons + 'apply + (list + (list + 'lambda + new-vars930 + (chi498 exp926 + (extend-env*296 + labels931 + (map (lambda (var933 + level932) + (cons + 'syntax + (cons + var933 + level932))) + new-vars930 + (map cdr + pvars927)) + r924) + mr923 + (make-binding-wrap417 + ids929 + labels931 + '(())) + m?922)) + y925))) + (gen-labels364 ids929) + (map gen-var523 + ids929))) + (map car pvars927) + (map cdr pvars927)))) + (gen-clause860 (lambda (x905 keys904 clauses903 r902 + mr901 m?900 pat899 fender898 + exp897) + (call-with-values + (lambda () + (convert-pattern858 + pat899 + keys904)) + (lambda (p907 pvars906) + (if (not (distinct-bound-ids?440 + (map car pvars906))) + (invalid-ids-error441 + (map car pvars906) + pat899 + '"pattern variable") + (if (not (andmap + (lambda (x908) + (not (ellipsis?519 + (car x908)))) + pvars906)) + (syntax-error + pat899 + '"misplaced ellipsis in syntax-case pattern") + ((lambda (y909) + (cons + (list + 'lambda + (list y909) + (list + 'if + ((lambda (tmp919) + ((lambda (tmp920) + (if tmp920 + (apply + (lambda () + y909) + tmp920) + ((lambda (_921) + (list + 'if + y909 + (build-dispatch-call859 + pvars906 + fender898 + y909 + r902 + mr901 + m?900) + (list + 'quote + '#f))) + tmp919))) + ($syntax-dispatch + tmp919 + '#(atom + #t)))) + fender898) + (build-dispatch-call859 + pvars906 + exp897 y909 + r902 mr901 + m?900) + (gen-syntax-case861 + x905 keys904 + clauses903 + r902 mr901 + m?900))) + (list + (if (eq? p907 + 'any) + (cons + 'list + (list x905)) + (cons + '$syntax-dispatch + (list + x905 + (list + 'quote + p907))))))) + (gen-var523 + 'tmp)))))))) + (gen-syntax-case861 (lambda (x885 keys884 clauses883 + r882 mr881 m?880) + (if (null? clauses883) + (cons + 'syntax-error + (list x885)) + ((lambda (tmp886) + ((lambda (tmp887) + (if tmp887 + (apply + (lambda (pat889 + exp888) + (if (if (id?306 + pat889) + (if (not (bound-id-member?442 + pat889 + keys884)) + (not (ellipsis?519 + pat889)) + '#f) + '#f) + ((lambda (label891 + var890) + (cons + (list + 'lambda + (list + var890) + (chi498 + exp888 + (extend-env295 + label891 + (cons + 'syntax + (cons + var890 + '0)) + r882) + mr881 + (make-binding-wrap417 + (list + pat889) + (list + label891) + '(())) + m?880)) + (list + x885))) + (gen-label362) + (gen-var523 + pat889)) + (gen-clause860 + x885 + keys884 + (cdr clauses883) + r882 + mr881 + m?880 + pat889 + '#t + exp888))) + tmp887) + ((lambda (tmp892) + (if tmp892 + (apply + (lambda (pat895 + fender894 + exp893) + (gen-clause860 + x885 + keys884 + (cdr clauses883) + r882 + mr881 + m?880 + pat895 + fender894 + exp893)) + tmp892) + ((lambda (_896) + (syntax-error + (car clauses883) + '"invalid syntax-case clause")) + tmp886))) + ($syntax-dispatch + tmp886 + '(any any + any))))) + ($syntax-dispatch + tmp886 + '(any any)))) + (car clauses883)))))) + (lambda (e867 r866 mr865 w864 ae863 m?862) + ((lambda (e868) + ((lambda (tmp869) + ((lambda (tmp870) + (if tmp870 + (apply + (lambda (_874 val873 key872 m871) + (if (andmap + (lambda (x876) + (if (id?306 x876) + (not (ellipsis?519 x876)) + '#f)) + key872) + ((lambda (x877) + (cons + (list + 'lambda + (list x877) + (gen-syntax-case861 x877 key872 + m871 r866 mr865 m?862)) + (list + (chi498 val873 r866 mr865 '(()) + m?862)))) + (gen-var523 'tmp)) + (syntax-error + e868 + '"invalid literals list in"))) + tmp870) + (syntax-error tmp869))) + ($syntax-dispatch + tmp869 + '(any any each-any . each-any)))) + e868)) + (source-wrap444 e867 w864 ae863))))))) + (put-cte-hook137 + 'module + (lambda (x827) + (letrec ((proper-export?828 (lambda (e851) + ((lambda (tmp852) + ((lambda (tmp853) + (if tmp853 + (apply + (lambda (id855 e854) + (if (identifier? + id855) + (andmap + proper-export?828 + e854) + '#f)) + tmp853) + ((lambda (id857) + (identifier? id857)) + tmp852))) + ($syntax-dispatch + tmp852 + '(any . each-any)))) + e851)))) + ((lambda (tmp829) + ((lambda (orig830) + ((lambda (tmp831) + ((lambda (tmp832) + (if tmp832 + (apply + (lambda (_835 e834 d833) + (if (andmap proper-export?828 e834) + (list + '#(syntax-object begin ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object $module ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig830 + (cons + '#(syntax-object anon ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons e834 d833)))) + (cons + '#(syntax-object $import ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig830 + '#(syntax-object (#f anon) ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))))) + (syntax-error + x827 + '"invalid exports list in"))) + tmp832) + ((lambda (tmp839) + (if (if tmp839 + (apply + (lambda (_843 m842 e841 d840) + (identifier? m842)) + tmp839) + '#f) + (apply + (lambda (_847 m846 e845 d844) + (if (andmap proper-export?828 e845) + (cons + '#(syntax-object $module ((top) #(ribcage #(_ m e d) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig830 + (cons + m846 + (cons e845 d844)))) + (syntax-error + x827 + '"invalid exports list in"))) + tmp839) + (syntax-error tmp831))) + ($syntax-dispatch + tmp831 + '(any any each-any . each-any))))) + ($syntax-dispatch + tmp831 + '(any each-any . each-any)))) + x827)) + tmp829)) + x827)))) + ((lambda () + (letrec (($module-exports628 (lambda (m819 r818) + ((lambda (b820) + ((lambda (t821) + (if (memv t821 '($module)) + ((lambda (interface822) + ((lambda (new-marks823) + ((lambda () + (vmap487 + (lambda (x824) + ((lambda (id825) + (make-syntax-object63 + (syntax-object->datum + id825) + ((lambda (marks826) + (make-wrap315 + marks826 + (if (eq? (car marks826) + '#f) + (cons + 'shift + (wrap-subst317 + '((top)))) + (wrap-subst317 + '((top)))))) + (join-marks423 + new-marks823 + (wrap-marks316 + (syntax-object-wrap66 + id825)))))) + (if (pair? + x824) + (car x824) + x824))) + (interface-exports454 + interface822))))) + (import-mark-delta505 + m819 + interface822))) + (binding-value282 + b820)) + (if (memv + t821 + '(displaced-lexical)) + (displaced-lexical-error299 + m819) + (syntax-error + m819 + '"unknown module")))) + (binding-type281 b820))) + (r818 m819)))) + ($import-help629 (lambda (orig633 import-only?632) + (lambda (r634) + (letrec ((difference635 (lambda (ls1817 + ls2816) + (if (null? + ls1817) + ls1817 + (if (bound-id-member?442 + (car ls1817) + ls2816) + (difference635 + (cdr ls1817) + ls2816) + (cons + (car ls1817) + (difference635 + (cdr ls1817) + ls2816)))))) + (prefix-add636 (lambda (prefix-id813) + ((lambda (prefix814) + (lambda (id815) + (datum->syntax-object + id815 + (string->symbol + (string-append + prefix814 + (symbol->string + (syntax-object->datum + id815))))))) + (symbol->string + (syntax-object->datum + prefix-id813))))) + (prefix-drop637 (lambda (prefix-id807) + ((lambda (prefix808) + (lambda (id809) + ((lambda (s810) + ((lambda (np812 + ns811) + (begin + (if (not (if (>= ns811 + np812) + (string=? + (substring + s810 + '0 + np812) + prefix808) + '#f)) + (syntax-error + id809 + (string-append + '"missing expected prefix " + prefix808)) + (void)) + (datum->syntax-object + id809 + (string->symbol + (substring + s810 + np812 + ns811))))) + (string-length + prefix808) + (string-length + s810))) + (symbol->string + (syntax-object->datum + id809))))) + (symbol->string + (syntax-object->datum + prefix-id807))))) + (gen-mid638 (lambda (mid804) + (datum->syntax-object + mid804 + (generate-id143 + ((lambda (x805) + ((lambda (e806) + (if (annotation?132 + e806) + (annotation-expression + e806) + e806)) + (if (syntax-object?64 + x805) + (syntax-object-expression65 + x805) + x805))) + mid804))))) + (modspec639 (lambda (m655 + exports?654) + ((lambda (tmp656) + ((lambda (tmp657) + (if tmp657 + (apply + (lambda (orig659 + import-only?658) + ((lambda (tmp660) + ((lambda (tmp661) + (if (if tmp661 + (apply + (lambda (m663 + id662) + (andmap + identifier? + id662)) + tmp661) + '#f) + (apply + (lambda (m666 + id665) + (call-with-values + (lambda () + (modspec639 + m666 + '#f)) + (lambda (mid669 + d668 + exports667) + ((lambda (tmp670) + ((lambda (tmp671) + (if tmp671 + (apply + (lambda (d673 + tmid672) + (values + mid669 + (list + '#(syntax-object begin ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object $module ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + tmid672 + id665 + d673) + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid672)) + (if exports?654 + id665 + '#f))) + tmp671) + (syntax-error + tmp670))) + ($syntax-dispatch + tmp670 + '(any any)))) + (list + d668 + (gen-mid638 + mid669)))))) + tmp661) + ((lambda (tmp676) + (if (if tmp676 + (apply + (lambda (m678 + id677) + (andmap + identifier? + id677)) + tmp676) + '#f) + (apply + (lambda (m681 + id680) + (call-with-values + (lambda () + (modspec639 + m681 + '#t)) + (lambda (mid684 + d683 + exports682) + ((lambda (tmp685) + ((lambda (tmp687) + (if tmp687 + (apply + (lambda (d690 + tmid689 + id688) + (values + mid684 + (list + '#(syntax-object begin ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object $module ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + tmid689 + id688 + d690) + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid689)) + (if exports?654 + id688 + '#f))) + tmp687) + (syntax-error + tmp685))) + ($syntax-dispatch + tmp685 + '(any any + each-any)))) + (list + d683 + (gen-mid638 + mid684) + (difference635 + exports682 + id680)))))) + tmp676) + ((lambda (tmp693) + (if (if tmp693 + (apply + (lambda (m695 + prefix-id694) + (identifier? + prefix-id694)) + tmp693) + '#f) + (apply + (lambda (m697 + prefix-id696) + (call-with-values + (lambda () + (modspec639 + m697 + '#t)) + (lambda (mid700 + d699 + exports698) + ((lambda (tmp701) + ((lambda (tmp702) + (if tmp702 + (apply + (lambda (d707 + tmid706 + old-id705 + tmp704 + id703) + (values + mid700 + (list + '#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid706 + (cons + (map list + id703 + tmp704) + (cons + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid706 + (cons + (map list + tmp704 + old-id705) + (cons + d707 + (map (lambda (tmp714 + tmp713) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp713 + tmp714)) + old-id705 + tmp704)))))) + (cons + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid706) + (map (lambda (tmp716 + tmp715) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp715 + tmp716)) + tmp704 + id703))))))) + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid706)) + (if exports?654 + id703 + '#f))) + tmp702) + (syntax-error + tmp701))) + ($syntax-dispatch + tmp701 + '(any any + each-any + each-any + each-any)))) + (list + d699 + (gen-mid638 + mid700) + exports698 + (generate-temporaries + exports698) + (map (prefix-add636 + prefix-id696) + exports698)))))) + tmp693) + ((lambda (tmp717) + (if (if tmp717 + (apply + (lambda (m719 + prefix-id718) + (identifier? + prefix-id718)) + tmp717) + '#f) + (apply + (lambda (m721 + prefix-id720) + (call-with-values + (lambda () + (modspec639 + m721 + '#t)) + (lambda (mid724 + d723 + exports722) + ((lambda (tmp725) + ((lambda (tmp726) + (if tmp726 + (apply + (lambda (d731 + tmid730 + old-id729 + tmp728 + id727) + (values + mid724 + (list + '#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid730 + (cons + (map list + id727 + tmp728) + (cons + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid730 + (cons + (map list + tmp728 + old-id729) + (cons + d731 + (map (lambda (tmp738 + tmp737) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp737 + tmp738)) + old-id729 + tmp728)))))) + (cons + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid730) + (map (lambda (tmp740 + tmp739) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp739 + tmp740)) + tmp728 + id727))))))) + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid730)) + (if exports?654 + id727 + '#f))) + tmp726) + (syntax-error + tmp725))) + ($syntax-dispatch + tmp725 + '(any any + each-any + each-any + each-any)))) + (list + d723 + (gen-mid638 + mid724) + exports722 + (generate-temporaries + exports722) + (map (prefix-drop637 + prefix-id720) + exports722)))))) + tmp717) + ((lambda (tmp741) + (if (if tmp741 + (apply + (lambda (m744 + new-id743 + old-id742) + (if (andmap + identifier? + new-id743) + (andmap + identifier? + old-id742) + '#f)) + tmp741) + '#f) + (apply + (lambda (m749 + new-id748 + old-id747) + (call-with-values + (lambda () + (modspec639 + m749 + '#t)) + (lambda (mid752 + d751 + exports750) + ((lambda (tmp753) + ((lambda (tmp756) + (if tmp756 + (apply + (lambda (d760 + tmid759 + tmp758 + other-id757) + (values + mid752 + (list + '#(syntax-object begin ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid759 + (cons + (append + (map list + new-id748 + tmp758) + other-id757) + (cons + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid759 + (cons + (append + other-id757 + (map list + tmp758 + old-id747)) + (cons + d760 + (map (lambda (tmp770 + tmp769) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp769 + tmp770)) + old-id747 + tmp758)))))) + (cons + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid759) + (map (lambda (tmp772 + tmp771) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp771 + tmp772)) + tmp758 + new-id748))))))) + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid759)) + (if exports?654 + (append + new-id748 + other-id757) + '#f))) + tmp756) + (syntax-error + tmp753))) + ($syntax-dispatch + tmp753 + '(any any + each-any + each-any)))) + (list + d751 + (gen-mid638 + mid752) + (generate-temporaries + old-id747) + (difference635 + exports750 + old-id747)))))) + tmp741) + ((lambda (tmp773) + (if (if tmp773 + (apply + (lambda (m776 + new-id775 + old-id774) + (if (andmap + identifier? + new-id775) + (andmap + identifier? + old-id774) + '#f)) + tmp773) + '#f) + (apply + (lambda (m781 + new-id780 + old-id779) + (call-with-values + (lambda () + (modspec639 + m781 + '#t)) + (lambda (mid784 + d783 + exports782) + ((lambda (tmp785) + ((lambda (tmp786) + (if tmp786 + (apply + (lambda (d789 + tmid788 + other-id787) + (values + mid784 + (list + '#(syntax-object begin ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object $module ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + orig659 + (cons + tmid788 + (cons + (append + (map list + new-id780 + old-id779) + other-id787) + (cons + d789 + (map (lambda (tmp796 + tmp795) + (list + '#(syntax-object alias ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp795 + tmp796)) + old-id779 + new-id780)))))) + (list + '#(syntax-object $import ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + tmid788)) + (if exports?654 + (append + new-id780 + other-id787) + '#f))) + tmp786) + (syntax-error + tmp785))) + ($syntax-dispatch + tmp785 + '(any any + each-any)))) + (list + d783 + (gen-mid638 + mid784) + exports782))))) + tmp773) + ((lambda (tmp797) + (if (if tmp797 + (apply + (lambda (mid798) + (identifier? + mid798)) + tmp797) + '#f) + (apply + (lambda (mid799) + (values + mid799 + (list + '#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + mid799) + (if exports?654 + ($module-exports628 + mid799 + r634) + '#f))) + tmp797) + ((lambda (tmp800) + (if (if tmp800 + (apply + (lambda (mid801) + (identifier? + mid801)) + tmp800) + '#f) + (apply + (lambda (mid802) + (values + mid802 + (list + '#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + orig659 + import-only?658 + mid802) + (if exports?654 + ($module-exports628 + mid802 + r634) + '#f))) + tmp800) + ((lambda (_803) + (syntax-error + m655 + '"invalid module specifier")) + tmp660))) + ($syntax-dispatch + tmp660 + '(any))))) + (list + tmp660)))) + ($syntax-dispatch + tmp660 + '(#(free-id + #(syntax-object alias ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any + . + #(each + (any any))))))) + ($syntax-dispatch + tmp660 + '(#(free-id + #(syntax-object rename ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any + . + #(each + (any any))))))) + ($syntax-dispatch + tmp660 + '(#(free-id + #(syntax-object drop-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any + any))))) + ($syntax-dispatch + tmp660 + '(#(free-id + #(syntax-object add-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any + any))))) + ($syntax-dispatch + tmp660 + '(#(free-id + #(syntax-object except ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any + . + each-any))))) + ($syntax-dispatch + tmp660 + '(#(free-id + #(syntax-object only ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any + . + each-any)))) + m655)) + tmp657) + (syntax-error + tmp656))) + ($syntax-dispatch + tmp656 + '(any any)))) + (list + orig633 + import-only?632)))) + (modspec*640 (lambda (m650) + (call-with-values + (lambda () + (modspec639 + m650 + '#f)) + (lambda (mid653 + d652 + exports651) + d652))))) + ((lambda (tmp641) + ((lambda (tmp642) + (if tmp642 + (apply + (lambda (_644 m643) + ((lambda (tmp645) + ((lambda (tmp647) + (if tmp647 + (apply + (lambda (d648) + (cons + '#(syntax-object begin ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage #(_ m) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + d648)) + tmp647) + (syntax-error + tmp645))) + ($syntax-dispatch + tmp645 + 'each-any))) + (map modspec*640 + m643))) + tmp642) + (syntax-error tmp641))) + ($syntax-dispatch + tmp641 + '(any . each-any)))) + orig633)))))) + (begin + (put-cte-hook137 + 'import + (lambda (orig631) ($import-help629 orig631 '#f))) + (put-cte-hook137 + 'import-only + (lambda (orig630) ($import-help629 orig630 '#t))))))) + (set! sc-expand + ((lambda (ctem625 rtem624) + (lambda (x626) + ((lambda (env627) + (if (if (pair? x626) (equal? (car x626) noexpand62) '#f) + (cadr x626) + (chi-top*447 x626 '() (env-wrap388 env627) ctem625 + rtem624 '#f (env-top-ribcage387 env627)))) + (interaction-environment)))) + '(e) + '(e))) + (set! $make-environment + (lambda (token622 mutable?621) + ((lambda (top-ribcage623) + (make-env385 + top-ribcage623 + (make-wrap315 + (wrap-marks316 '((top))) + (cons top-ribcage623 (wrap-subst317 '((top))))))) + (make-top-ribcage373 token622 mutable?621)))) + (set! environment? (lambda (x620) (env?386 x620))) + (set! interaction-environment + ((lambda (e619) (lambda () e619)) + ($make-environment '*top* '#t))) + (set! identifier? (lambda (x618) (nonsymbol-id?305 x618))) + (set! datum->syntax-object + (lambda (id616 datum615) + (begin + ((lambda (x617) + (if (not (nonsymbol-id?305 x617)) + (error-hook136 + 'datum->syntax-object + '"invalid argument" + x617) + (void))) + id616) + (make-syntax-object63 + datum615 + (syntax-object-wrap66 id616))))) + (set! syntax->list + (lambda (orig-ls606) + ((letrec ((f607 (lambda (ls608) + ((lambda (tmp609) + ((lambda (tmp610) + (if tmp610 + (apply (lambda () '()) tmp610) + ((lambda (tmp611) + (if tmp611 + (apply + (lambda (x613 r612) + (cons x613 (f607 r612))) + tmp611) + ((lambda (_614) + (error 'syntax->list + '"invalid argument ~s" + orig-ls606)) + tmp609))) + ($syntax-dispatch + tmp609 + '(any . any))))) + ($syntax-dispatch tmp609 '()))) + ls608)))) + f607) + orig-ls606))) + (set! syntax->vector + (lambda (v600) + ((lambda (tmp601) + ((lambda (tmp602) + (if tmp602 + (apply + (lambda (x603) (apply vector (syntax->list x603))) + tmp602) + ((lambda (_605) + (error 'syntax->vector + '"invalid argument ~s" + v600)) + tmp601))) + ($syntax-dispatch tmp601 '#(vector each-any)))) + v600))) + (set! syntax-object->datum + (lambda (x599) (strip522 x599 '(())))) + (set! generate-temporaries + ((lambda (n595) + (lambda (ls596) + (begin + ((lambda (x598) + (if (not (list? x598)) + (error-hook136 + 'generate-temporaries + '"invalid argument" + x598) + (void))) + ls596) + (map (lambda (x597) + (begin + (set! n595 (+ n595 '1)) + (wrap443 + (string->symbol + (string-append '"t" (number->string n595))) + '((tmp))))) + ls596)))) + '0)) + (set! free-identifier=? + (lambda (x592 y591) + (begin + ((lambda (x594) + (if (not (nonsymbol-id?305 x594)) + (error-hook136 + 'free-identifier=? + '"invalid argument" + x594) + (void))) + x592) + ((lambda (x593) + (if (not (nonsymbol-id?305 x593)) + (error-hook136 + 'free-identifier=? + '"invalid argument" + x593) + (void))) + y591) + (free-id=?435 x592 y591)))) + (set! bound-identifier=? + (lambda (x588 y587) + (begin + ((lambda (x590) + (if (not (nonsymbol-id?305 x590)) + (error-hook136 + 'bound-identifier=? + '"invalid argument" + x590) + (void))) + x588) + ((lambda (x589) + (if (not (nonsymbol-id?305 x589)) + (error-hook136 + 'bound-identifier=? + '"invalid argument" + x589) + (void))) + y587) + (bound-id=?438 x588 y587)))) + (set! literal-identifier=? + (lambda (x584 y583) + (begin + ((lambda (x586) + (if (not (nonsymbol-id?305 x586)) + (error-hook136 + 'literal-identifier=? + '"invalid argument" + x586) + (void))) + x584) + ((lambda (x585) + (if (not (nonsymbol-id?305 x585)) + (error-hook136 + 'literal-identifier=? + '"invalid argument" + x585) + (void))) + y583) + (literal-id=?436 x584 y583)))) + (set! syntax-error + (lambda (object578 . messages579) + (begin + (for-each + (lambda (x581) + ((lambda (x582) + (if (not (string? x582)) + (error-hook136 + 'syntax-error + '"invalid argument" + x582) + (void))) + x581)) + messages579) + ((lambda (message580) + (error-hook136 '#f message580 (strip522 object578 '(())))) + (if (null? messages579) + '"invalid syntax" + (apply string-append messages579)))))) + ((lambda () + (letrec ((match-each525 (lambda (e575 p574 w573) + (if (annotation?132 e575) + (match-each525 + (annotation-expression e575) + p574 + w573) + (if (pair? e575) + ((lambda (first576) + (if first576 + ((lambda (rest577) + (if rest577 + (cons + first576 + rest577) + '#f)) + (match-each525 + (cdr e575) + p574 + w573)) + '#f)) + (match531 + (car e575) + p574 + w573 + '())) + (if (null? e575) + '() + (if (syntax-object?64 e575) + (match-each525 + (syntax-object-expression65 + e575) + p574 + (join-wraps422 + w573 + (syntax-object-wrap66 + e575))) + '#f)))))) + (match-each+526 (lambda (e565 x-pat564 y-pat563 z-pat562 + w561 r560) + ((letrec ((f566 (lambda (e568 w567) + (if (pair? e568) + (call-with-values + (lambda () + (f566 + (cdr e568) + w567)) + (lambda (xr*571 + y-pat570 + r569) + (if r569 + (if (null? + y-pat570) + ((lambda (xr572) + (if xr572 + (values + (cons + xr572 + xr*571) + y-pat570 + r569) + (values + '#f + '#f + '#f))) + (match531 + (car e568) + x-pat564 + w567 + '())) + (values + '() + (cdr y-pat570) + (match531 + (car e568) + (car y-pat570) + w567 + r569))) + (values + '#f + '#f + '#f)))) + (if (annotation?132 + e568) + (f566 + (annotation-expression + e568) + w567) + (if (syntax-object?64 + e568) + (f566 + (syntax-object-expression65 + e568) + (join-wraps422 + w567 + (syntax-object-wrap66 + e568))) + (values + '() + y-pat563 + (match531 + e568 + z-pat562 + w567 + r560)))))))) + f566) + e565 + w561))) + (match-each-any527 (lambda (e558 w557) + (if (annotation?132 e558) + (match-each-any527 + (annotation-expression e558) + w557) + (if (pair? e558) + ((lambda (l559) + (if l559 + (cons + (wrap443 + (car e558) + w557) + l559) + '#f)) + (match-each-any527 + (cdr e558) + w557)) + (if (null? e558) + '() + (if (syntax-object?64 + e558) + (match-each-any527 + (syntax-object-expression65 + e558) + (join-wraps422 + w557 + (syntax-object-wrap66 + e558))) + '#f)))))) + (match-empty528 (lambda (p555 r554) + (if (null? p555) + r554 + (if (eq? p555 'any) + (cons '() r554) + (if (pair? p555) + (match-empty528 + (car p555) + (match-empty528 + (cdr p555) + r554)) + (if (eq? p555 'each-any) + (cons '() r554) + ((lambda (t556) + (if (memv + t556 + '(each)) + (match-empty528 + (vector-ref + p555 + '1) + r554) + (if (memv + t556 + '(each+)) + (match-empty528 + (vector-ref + p555 + '1) + (match-empty528 + (reverse + (vector-ref + p555 + '2)) + (match-empty528 + (vector-ref + p555 + '3) + r554))) + (if (memv + t556 + '(free-id + atom)) + r554 + (if (memv + t556 + '(vector)) + (match-empty528 + (vector-ref + p555 + '1) + r554) + (void)))))) + (vector-ref + p555 + '0)))))))) + (combine529 (lambda (r*553 r552) + (if (null? (car r*553)) + r552 + (cons + (map car r*553) + (combine529 + (map cdr r*553) + r552))))) + (match*530 (lambda (e545 p544 w543 r542) + (if (null? p544) + (if (null? e545) r542 '#f) + (if (pair? p544) + (if (pair? e545) + (match531 + (car e545) + (car p544) + w543 + (match531 + (cdr e545) + (cdr p544) + w543 + r542)) + '#f) + (if (eq? p544 'each-any) + ((lambda (l546) + (if l546 + (cons l546 r542) + '#f)) + (match-each-any527 + e545 + w543)) + ((lambda (t547) + (if (memv t547 '(each)) + (if (null? e545) + (match-empty528 + (vector-ref + p544 + '1) + r542) + ((lambda (r*548) + (if r*548 + (combine529 + r*548 + r542) + '#f)) + (match-each525 + e545 + (vector-ref + p544 + '1) + w543))) + (if (memv + t547 + '(free-id)) + (if (id?306 e545) + (if (literal-id=?436 + (wrap443 + e545 + w543) + (vector-ref + p544 + '1)) + r542 + '#f) + '#f) + (if (memv + t547 + '(each+)) + (call-with-values + (lambda () + (match-each+526 + e545 + (vector-ref + p544 + '1) + (vector-ref + p544 + '2) + (vector-ref + p544 + '3) + w543 + r542)) + (lambda (xr*551 + y-pat550 + r549) + (if r549 + (if (null? + y-pat550) + (if (null? + xr*551) + (match-empty528 + (vector-ref + p544 + '1) + r549) + (combine529 + xr*551 + r549)) + '#f) + '#f))) + (if (memv + t547 + '(atom)) + (if (equal? + (vector-ref + p544 + '1) + (strip522 + e545 + w543)) + r542 + '#f) + (if (memv + t547 + '(vector)) + (if (vector? + e545) + (match531 + (vector->list + e545) + (vector-ref + p544 + '1) + w543 + r542) + '#f) + (void))))))) + (vector-ref p544 '0))))))) + (match531 (lambda (e539 p538 w537 r536) + (if (not r536) + '#f + (if (eq? p538 'any) + (cons (wrap443 e539 w537) r536) + (if (syntax-object?64 e539) + (match*530 + ((lambda (e540) + (if (annotation?132 e540) + (annotation-expression + e540) + e540)) + (syntax-object-expression65 + e539)) + p538 + (join-wraps422 + w537 + (syntax-object-wrap66 e539)) + r536) + (match*530 + ((lambda (e541) + (if (annotation?132 e541) + (annotation-expression + e541) + e541)) + e539) + p538 + w537 + r536))))))) + (set! $syntax-dispatch + (lambda (e533 p532) + (if (eq? p532 'any) + (list e533) + (if (syntax-object?64 e533) + (match*530 + ((lambda (e534) + (if (annotation?132 e534) + (annotation-expression e534) + e534)) + (syntax-object-expression65 e533)) + p532 + (syntax-object-wrap66 e533) + '()) + (match*530 + ((lambda (e535) + (if (annotation?132 e535) + (annotation-expression e535) + e535)) + e533) + p532 + '(()) + '())))))))))))) +($sc-put-cte + '#(syntax-object with-syntax ((top) #(ribcage #(with-syntax) #((top)) #(with-syntax)))) + (lambda (x2531) + ((lambda (tmp2532) + ((lambda (tmp2533) + (if tmp2533 + (apply + (lambda (_2536 e12535 e22534) + (cons + '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons e12535 e22534))) + tmp2533) + ((lambda (tmp2538) + (if tmp2538 + (apply + (lambda (_2543 out2542 in2541 e12540 e22539) + (list + '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + in2541 + '() + (list + out2542 + (cons + '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons e12540 e22539))))) + tmp2538) + ((lambda (tmp2545) + (if tmp2545 + (apply + (lambda (_2550 out2549 in2548 e12547 e22546) + (list + '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + in2548) + '() + (list + out2549 + (cons + '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons e12547 e22546))))) + tmp2545) + (syntax-error tmp2532))) + ($syntax-dispatch + tmp2532 + '(any #(each (any any)) any . each-any))))) + ($syntax-dispatch + tmp2532 + '(any ((any any)) any . each-any))))) + ($syntax-dispatch tmp2532 '(any () any . each-any)))) + x2531)) + '*top*) +($sc-put-cte + '#(syntax-object with-implicit ((top) #(ribcage #(with-implicit) #((top)) #(with-implicit)))) + (lambda (x2554) + ((lambda (tmp2555) + ((lambda (tmp2556) + (if (if tmp2556 + (apply + (lambda (dummy2561 tid2560 id2559 e12558 e22557) + (andmap identifier? (cons tid2560 id2559))) + tmp2556) + '#f) + (apply + (lambda (dummy2567 tid2566 id2565 e12564 e22563) + (list + '#(syntax-object begin ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object unless ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object identifier? ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + tid2566)) + (cons + '#(syntax-object syntax-error ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (cons + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + tid2566) + '#(syntax-object ("non-identifier with-implicit template") ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))) + (cons + '#(syntax-object with-syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (cons + (map (lambda (tmp2568) + (list + tmp2568 + (list + '#(syntax-object datum->syntax-object ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + tid2566) + (list + '#(syntax-object quote ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + tmp2568)))) + id2565) + (cons e12564 e22563))))) + tmp2556) + (syntax-error tmp2555))) + ($syntax-dispatch + tmp2555 + '(any (any . each-any) any . each-any)))) + x2554)) + '*top*) +($sc-put-cte + '#(syntax-object datum ((top) #(ribcage #(datum) #((top)) #(datum)))) + (lambda (x2570) + ((lambda (tmp2571) + ((lambda (tmp2572) + (if tmp2572 + (apply + (lambda (dummy2574 x2573) + (list + '#(syntax-object syntax-object->datum ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + x2573))) + tmp2572) + (syntax-error tmp2571))) + ($syntax-dispatch tmp2571 '(any any)))) + x2570)) + '*top*) +($sc-put-cte + '#(syntax-object syntax-rules ((top) #(ribcage #(syntax-rules) #((top)) #(syntax-rules)))) + (lambda (x2575) + (letrec ((clause2576 (lambda (y2592) + ((lambda (tmp2593) + ((lambda (tmp2594) + (if tmp2594 + (apply + (lambda (keyword2597 pattern2596 + template2595) + (list + (cons + '#(syntax-object dummy ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + pattern2596) + (list + '#(syntax-object syntax ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + template2595))) + tmp2594) + ((lambda (tmp2598) + (if tmp2598 + (apply + (lambda (keyword2602 + pattern2601 + fender2600 + template2599) + (list + (cons + '#(syntax-object dummy ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + pattern2601) + fender2600 + (list + '#(syntax-object syntax ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + template2599))) + tmp2598) + ((lambda (_2603) + (syntax-error x2575)) + tmp2593))) + ($syntax-dispatch + tmp2593 + '((any . any) any any))))) + ($syntax-dispatch + tmp2593 + '((any . any) any)))) + y2592)))) + ((lambda (tmp2577) + ((lambda (tmp2578) + (if (if tmp2578 + (apply + (lambda (_2581 k2580 cl2579) + (andmap identifier? k2580)) + tmp2578) + '#f) + (apply + (lambda (_2585 k2584 cl2583) + ((lambda (tmp2586) + ((lambda (tmp2588) + (if tmp2588 + (apply + (lambda (cl2589) + (list + '#(syntax-object lambda ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object (x) ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object syntax-case ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object x ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons k2584 cl2589))))) + tmp2588) + (syntax-error tmp2586))) + ($syntax-dispatch tmp2586 'each-any))) + (map clause2576 cl2583))) + tmp2578) + (syntax-error tmp2577))) + ($syntax-dispatch tmp2577 '(any each-any . each-any)))) + x2575))) + '*top*) +($sc-put-cte + '#(syntax-object or ((top) #(ribcage #(or) #((top)) #(or)))) + (lambda (x2604) + ((lambda (tmp2605) + ((lambda (tmp2606) + (if tmp2606 + (apply + (lambda (_2607) + '#(syntax-object #f ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + tmp2606) + ((lambda (tmp2608) + (if tmp2608 + (apply (lambda (_2610 e2609) e2609) tmp2608) + ((lambda (tmp2611) + (if tmp2611 + (apply + (lambda (_2615 e12614 e22613 e32612) + (list + '#(syntax-object let ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e12614)) + (list + '#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + '#(syntax-object or ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons e22613 e32612))))) + tmp2611) + (syntax-error tmp2605))) + ($syntax-dispatch + tmp2605 + '(any any any . each-any))))) + ($syntax-dispatch tmp2605 '(any any))))) + ($syntax-dispatch tmp2605 '(any)))) + x2604)) + '*top*) +($sc-put-cte + '#(syntax-object and ((top) #(ribcage #(and) #((top)) #(and)))) + (lambda (x2617) + ((lambda (tmp2618) + ((lambda (tmp2619) + (if tmp2619 + (apply + (lambda (_2623 e12622 e22621 e32620) + (cons + '#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12622 + (cons + (cons + '#(syntax-object and ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons e22621 e32620)) + '#(syntax-object (#f) ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))) + tmp2619) + ((lambda (tmp2625) + (if tmp2625 + (apply (lambda (_2627 e2626) e2626) tmp2625) + ((lambda (tmp2628) + (if tmp2628 + (apply + (lambda (_2629) + '#(syntax-object #t ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + tmp2628) + (syntax-error tmp2618))) + ($syntax-dispatch tmp2618 '(any))))) + ($syntax-dispatch tmp2618 '(any any))))) + ($syntax-dispatch tmp2618 '(any any any . each-any)))) + x2617)) + '*top*) +($sc-put-cte + '#(syntax-object let ((top) #(ribcage #(let) #((top)) #(let)))) + (lambda (x2630) + ((lambda (tmp2631) + ((lambda (tmp2632) + (if (if tmp2632 + (apply + (lambda (_2637 x2636 v2635 e12634 e22633) + (andmap identifier? x2636)) + tmp2632) + '#f) + (apply + (lambda (_2643 x2642 v2641 e12640 e22639) + (cons + (cons + '#(syntax-object lambda ((top) #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons x2642 (cons e12640 e22639))) + v2641)) + tmp2632) + ((lambda (tmp2647) + (if (if tmp2647 + (apply + (lambda (_2653 f2652 x2651 v2650 e12649 e22648) + (andmap identifier? (cons f2652 x2651))) + tmp2647) + '#f) + (apply + (lambda (_2660 f2659 x2658 v2657 e12656 e22655) + (cons + (list + '#(syntax-object letrec ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + f2659 + (cons + '#(syntax-object lambda ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons x2658 (cons e12656 e22655))))) + f2659) + v2657)) + tmp2647) + (syntax-error tmp2631))) + ($syntax-dispatch + tmp2631 + '(any any #(each (any any)) any . each-any))))) + ($syntax-dispatch + tmp2631 + '(any #(each (any any)) any . each-any)))) + x2630)) + '*top*) +($sc-put-cte + '#(syntax-object let* ((top) #(ribcage #(let*) #((top)) #(let*)))) + (lambda (x2664) + ((lambda (tmp2665) + ((lambda (tmp2666) + (if (if tmp2666 + (apply + (lambda (let*2671 x2670 v2669 e12668 e22667) + (andmap identifier? x2670)) + tmp2666) + '#f) + (apply + (lambda (let*2677 x2676 v2675 e12674 e22673) + ((letrec ((f2678 (lambda (bindings2679) + (if (null? bindings2679) + (cons + '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons '() (cons e12674 e22673))) + ((lambda (tmp2681) + ((lambda (tmp2682) + (if tmp2682 + (apply + (lambda (body2684 + binding2683) + (list + '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list binding2683) + body2684)) + tmp2682) + (syntax-error tmp2681))) + ($syntax-dispatch + tmp2681 + '(any any)))) + (list + (f2678 (cdr bindings2679)) + (car bindings2679))))))) + f2678) + (map list x2676 v2675))) + tmp2666) + (syntax-error tmp2665))) + ($syntax-dispatch + tmp2665 + '(any #(each (any any)) any . each-any)))) + x2664)) + '*top*) +($sc-put-cte + '#(syntax-object cond ((top) #(ribcage #(cond) #((top)) #(cond)))) + (lambda (x2687) + ((lambda (tmp2688) + ((lambda (tmp2689) + (if tmp2689 + (apply + (lambda (_2692 m12691 m22690) + ((letrec ((f2693 (lambda (clause2695 clauses2694) + (if (null? clauses2694) + ((lambda (tmp2696) + ((lambda (tmp2697) + (if tmp2697 + (apply + (lambda (e12699 + e22698) + (cons + '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12699 + e22698))) + tmp2697) + ((lambda (tmp2701) + (if tmp2701 + (apply + (lambda (e02702) + (cons + '#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + (list + (list + '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02702)) + '#(syntax-object ((if t t)) ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))) + tmp2701) + ((lambda (tmp2703) + (if tmp2703 + (apply + (lambda (e02705 + e12704) + (list + '#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02705)) + (list + '#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12704 + '#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))) + tmp2703) + ((lambda (tmp2706) + (if tmp2706 + (apply + (lambda (e02709 + e12708 + e22707) + (list + '#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02709 + (cons + '#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12708 + e22707)))) + tmp2706) + ((lambda (_2711) + (syntax-error + x2687)) + tmp2696))) + ($syntax-dispatch + tmp2696 + '(any any + . + each-any))))) + ($syntax-dispatch + tmp2696 + '(any #(free-id + #(syntax-object => ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + any))))) + ($syntax-dispatch + tmp2696 + '(any))))) + ($syntax-dispatch + tmp2696 + '(#(free-id + #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + any + . + each-any)))) + clause2695) + ((lambda (tmp2712) + ((lambda (rest2713) + ((lambda (tmp2714) + ((lambda (tmp2715) + (if tmp2715 + (apply + (lambda (e02716) + (list + '#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02716)) + (list + '#(syntax-object if ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + rest2713))) + tmp2715) + ((lambda (tmp2717) + (if tmp2717 + (apply + (lambda (e02719 + e12718) + (list + '#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02719)) + (list + '#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12718 + '#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + rest2713))) + tmp2717) + ((lambda (tmp2720) + (if tmp2720 + (apply + (lambda (e02723 + e12722 + e22721) + (list + '#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02723 + (cons + '#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12722 + e22721)) + rest2713)) + tmp2720) + ((lambda (_2725) + (syntax-error + x2687)) + tmp2714))) + ($syntax-dispatch + tmp2714 + '(any any + . + each-any))))) + ($syntax-dispatch + tmp2714 + '(any #(free-id + #(syntax-object => ((top) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + any))))) + ($syntax-dispatch + tmp2714 + '(any)))) + clause2695)) + tmp2712)) + (f2693 + (car clauses2694) + (cdr clauses2694))))))) + f2693) + m12691 + m22690)) + tmp2689) + (syntax-error tmp2688))) + ($syntax-dispatch tmp2688 '(any any . each-any)))) + x2687)) + '*top*) +($sc-put-cte + '#(syntax-object do ((top) #(ribcage #(do) #((top)) #(do)))) + (lambda (orig-x2727) + ((lambda (tmp2728) + ((lambda (tmp2729) + (if tmp2729 + (apply + (lambda (_2736 var2735 init2734 step2733 e02732 e12731 + c2730) + ((lambda (tmp2737) + ((lambda (tmp2747) + (if tmp2747 + (apply + (lambda (step2748) + ((lambda (tmp2749) + ((lambda (tmp2751) + (if tmp2751 + (apply + (lambda () + (list + '#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + (map list var2735 init2734) + (list + '#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02732) + (cons + '#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + (append + c2730 + (list + (cons + '#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + step2748))))))) + tmp2751) + ((lambda (tmp2756) + (if tmp2756 + (apply + (lambda (e12758 e22757) + (list + '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + (map list + var2735 + init2734) + (list + '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + e02732 + (cons + '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e12758 + e22757)) + (cons + '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + (append + c2730 + (list + (cons + '#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) + step2748))))))) + tmp2756) + (syntax-error tmp2749))) + ($syntax-dispatch + tmp2749 + '(any . each-any))))) + ($syntax-dispatch tmp2749 '()))) + e12731)) + tmp2747) + (syntax-error tmp2737))) + ($syntax-dispatch tmp2737 'each-any))) + (map (lambda (v2741 s2740) + ((lambda (tmp2742) + ((lambda (tmp2743) + (if tmp2743 + (apply (lambda () v2741) tmp2743) + ((lambda (tmp2744) + (if tmp2744 + (apply + (lambda (e2745) e2745) + tmp2744) + ((lambda (_2746) + (syntax-error orig-x2727)) + tmp2742))) + ($syntax-dispatch tmp2742 '(any))))) + ($syntax-dispatch tmp2742 '()))) + s2740)) + var2735 + step2733))) + tmp2729) + (syntax-error tmp2728))) + ($syntax-dispatch + tmp2728 + '(any #(each (any any . any)) + (any . each-any) + . + each-any)))) + orig-x2727)) + '*top*) +($sc-put-cte + '#(syntax-object quasiquote ((top) #(ribcage #(quasiquote) #((top)) #(quasiquote)))) + ((lambda () + (letrec ((quasi2764 (lambda (p2900 lev2899) + ((lambda (tmp2901) + ((lambda (tmp2902) + (if tmp2902 + (apply + (lambda (p2903) + (if (= lev2899 '0) + (list + '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + p2903) + (quasicons2766 + '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (quasi2764 + (list p2903) + (- lev2899 '1))))) + tmp2902) + ((lambda (tmp2904) + (if tmp2904 + (apply + (lambda (p2905) + (quasicons2766 + '#(syntax-object ("quote" quasiquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (quasi2764 + (list p2905) + (+ lev2899 '1)))) + tmp2904) + ((lambda (tmp2906) + (if tmp2906 + (apply + (lambda (p2908 q2907) + ((lambda (tmp2909) + ((lambda (tmp2910) + (if tmp2910 + (apply + (lambda (p2911) + (if (= lev2899 + '0) + (quasilist*2768 + (map (lambda (tmp2912) + (list + '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp2912)) + p2911) + (quasi2764 + q2907 + lev2899)) + (quasicons2766 + (quasicons2766 + '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (quasi2764 + p2911 + (- lev2899 + '1))) + (quasi2764 + q2907 + lev2899)))) + tmp2910) + ((lambda (tmp2914) + (if tmp2914 + (apply + (lambda (p2915) + (if (= lev2899 + '0) + (quasiappend2767 + (map (lambda (tmp2916) + (list + '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp2916)) + p2915) + (quasi2764 + q2907 + lev2899)) + (quasicons2766 + (quasicons2766 + '#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (quasi2764 + p2915 + (- lev2899 + '1))) + (quasi2764 + q2907 + lev2899)))) + tmp2914) + ((lambda (_2918) + (quasicons2766 + (quasi2764 + p2908 + lev2899) + (quasi2764 + q2907 + lev2899))) + tmp2909))) + ($syntax-dispatch + tmp2909 + '(#(free-id + #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + . + each-any))))) + ($syntax-dispatch + tmp2909 + '(#(free-id + #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + . + each-any)))) + p2908)) + tmp2906) + ((lambda (tmp2919) + (if tmp2919 + (apply + (lambda (x2920) + (quasivector2769 + (vquasi2765 + x2920 + lev2899))) + tmp2919) + ((lambda (p2922) + (list + '#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + p2922)) + tmp2901))) + ($syntax-dispatch + tmp2901 + '#(vector + each-any))))) + ($syntax-dispatch + tmp2901 + '(any . any))))) + ($syntax-dispatch + tmp2901 + '(#(free-id + #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any))))) + ($syntax-dispatch + tmp2901 + '(#(free-id + #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + any)))) + p2900))) + (vquasi2765 (lambda (p2883 lev2882) + ((lambda (tmp2884) + ((lambda (tmp2885) + (if tmp2885 + (apply + (lambda (p2887 q2886) + ((lambda (tmp2888) + ((lambda (tmp2889) + (if tmp2889 + (apply + (lambda (p2890) + (if (= lev2882 '0) + (quasilist*2768 + (map (lambda (tmp2891) + (list + '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp2891)) + p2890) + (vquasi2765 + q2886 + lev2882)) + (quasicons2766 + (quasicons2766 + '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (quasi2764 + p2890 + (- lev2882 + '1))) + (vquasi2765 + q2886 + lev2882)))) + tmp2889) + ((lambda (tmp2893) + (if tmp2893 + (apply + (lambda (p2894) + (if (= lev2882 + '0) + (quasiappend2767 + (map (lambda (tmp2895) + (list + '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp2895)) + p2894) + (vquasi2765 + q2886 + lev2882)) + (quasicons2766 + (quasicons2766 + '#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (quasi2764 + p2894 + (- lev2882 + '1))) + (vquasi2765 + q2886 + lev2882)))) + tmp2893) + ((lambda (_2897) + (quasicons2766 + (quasi2764 + p2887 + lev2882) + (vquasi2765 + q2886 + lev2882))) + tmp2888))) + ($syntax-dispatch + tmp2888 + '(#(free-id + #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + . + each-any))))) + ($syntax-dispatch + tmp2888 + '(#(free-id + #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + . + each-any)))) + p2887)) + tmp2885) + ((lambda (tmp2898) + (if tmp2898 + (apply + (lambda () + '#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + tmp2898) + (syntax-error tmp2884))) + ($syntax-dispatch tmp2884 '())))) + ($syntax-dispatch tmp2884 '(any . any)))) + p2883))) + (quasicons2766 (lambda (x2865 y2864) + ((lambda (tmp2866) + ((lambda (tmp2867) + (if tmp2867 + (apply + (lambda (x2869 y2868) + ((lambda (tmp2870) + ((lambda (tmp2871) + (if tmp2871 + (apply + (lambda (dy2872) + ((lambda (tmp2873) + ((lambda (tmp2874) + (if tmp2874 + (apply + (lambda (dx2875) + (list + '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + dx2875 + dy2872))) + tmp2874) + ((lambda (_2876) + (if (null? + dy2872) + (list + '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + x2869) + (list + '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + x2869 + y2868))) + tmp2873))) + ($syntax-dispatch + tmp2873 + '(#(atom + "quote") + any)))) + x2869)) + tmp2871) + ((lambda (tmp2877) + (if tmp2877 + (apply + (lambda (stuff2878) + (cons + '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + x2869 + stuff2878))) + tmp2877) + ((lambda (tmp2879) + (if tmp2879 + (apply + (lambda (stuff2880) + (cons + '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (cons + x2869 + stuff2880))) + tmp2879) + ((lambda (_2881) + (list + '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + x2869 + y2868)) + tmp2870))) + ($syntax-dispatch + tmp2870 + '(#(atom + "list*") + . + any))))) + ($syntax-dispatch + tmp2870 + '(#(atom "list") + . + any))))) + ($syntax-dispatch + tmp2870 + '(#(atom "quote") + any)))) + y2868)) + tmp2867) + (syntax-error tmp2866))) + ($syntax-dispatch tmp2866 '(any any)))) + (list x2865 y2864)))) + (quasiappend2767 (lambda (x2851 y2850) + ((lambda (tmp2852) + ((lambda (tmp2853) + (if tmp2853 + (apply + (lambda () + (if (null? x2851) + '#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (if (null? (cdr x2851)) + (car x2851) + ((lambda (tmp2854) + ((lambda (tmp2855) + (if tmp2855 + (apply + (lambda (p2856) + (cons + '#(syntax-object "append" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + p2856)) + tmp2855) + (syntax-error + tmp2854))) + ($syntax-dispatch + tmp2854 + 'each-any))) + x2851)))) + tmp2853) + ((lambda (_2858) + (if (null? x2851) + y2850 + ((lambda (tmp2859) + ((lambda (tmp2860) + (if tmp2860 + (apply + (lambda (p2862 + y2861) + (cons + '#(syntax-object "append" ((top) #(ribcage #(p y) #((top) (top)) #("i" "i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (append + p2862 + (list + y2861)))) + tmp2860) + (syntax-error + tmp2859))) + ($syntax-dispatch + tmp2859 + '(each-any any)))) + (list x2851 y2850)))) + tmp2852))) + ($syntax-dispatch + tmp2852 + '(#(atom "quote") ())))) + y2850))) + (quasilist*2768 (lambda (x2847 y2846) + ((letrec ((f2848 (lambda (x2849) + (if (null? x2849) + y2846 + (quasicons2766 + (car x2849) + (f2848 + (cdr x2849))))))) + f2848) + x2847))) + (quasivector2769 (lambda (x2817) + ((lambda (tmp2818) + ((lambda (tmp2819) + (if tmp2819 + (apply + (lambda (x2820) + (list + '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + (list->vector x2820))) + tmp2819) + ((lambda (_2822) + ((letrec ((f2823 (lambda (y2825 + k2824) + ((lambda (tmp2826) + ((lambda (tmp2827) + (if tmp2827 + (apply + (lambda (y2828) + (k2824 + (map (lambda (tmp2829) + (list + '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + tmp2829)) + y2828))) + tmp2827) + ((lambda (tmp2830) + (if tmp2830 + (apply + (lambda (y2831) + (k2824 + y2831)) + tmp2830) + ((lambda (tmp2833) + (if tmp2833 + (apply + (lambda (y2835 + z2834) + (f2823 + z2834 + (lambda (ls2836) + (k2824 + (append + y2835 + ls2836))))) + tmp2833) + ((lambda (else2838) + ((lambda (tmp2839) + ((lambda (t72840) + (list + '#(syntax-object "list->vector" ((top) #(ribcage #(t7) #(("m" tmp)) #("i")) #(ribcage #(else) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t72840)) + tmp2839)) + x2817)) + tmp2826))) + ($syntax-dispatch + tmp2826 + '(#(atom + "list*") + . + #(each+ + any + (any) + ())))))) + ($syntax-dispatch + tmp2826 + '(#(atom + "list") + . + each-any))))) + ($syntax-dispatch + tmp2826 + '(#(atom + "quote") + each-any)))) + y2825)))) + f2823) + x2817 + (lambda (ls2841) + ((lambda (tmp2842) + ((lambda (tmp2843) + (if tmp2843 + (apply + (lambda (t82844) + (cons + '#(syntax-object "vector" ((top) #(ribcage #(t8) #(("m" tmp)) #("i")) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t82844)) + tmp2843) + (syntax-error + tmp2842))) + ($syntax-dispatch + tmp2842 + 'each-any))) + ls2841)))) + tmp2818))) + ($syntax-dispatch + tmp2818 + '(#(atom "quote") each-any)))) + x2817))) + (emit2770 (lambda (x2776) + ((lambda (tmp2777) + ((lambda (tmp2778) + (if tmp2778 + (apply + (lambda (x2779) + (list + '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + x2779)) + tmp2778) + ((lambda (tmp2780) + (if tmp2780 + (apply + (lambda (x2781) + ((lambda (tmp2782) + ((lambda (tmp2784) + (if tmp2784 + (apply + (lambda (t12785) + (cons + '#(syntax-object list ((top) #(ribcage #(t1) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t12785)) + tmp2784) + (syntax-error + tmp2782))) + ($syntax-dispatch + tmp2782 + 'each-any))) + (map emit2770 x2781))) + tmp2780) + ((lambda (tmp2787) + (if tmp2787 + (apply + (lambda (x2789 y2788) + ((letrec ((f2790 (lambda (x*2791) + (if (null? + x*2791) + (emit2770 + y2788) + ((lambda (tmp2792) + ((lambda (tmp2793) + (if tmp2793 + (apply + (lambda (t32795 + t22794) + (list + '#(syntax-object cons ((top) #(ribcage #(t3 t2) #(("m" tmp) ("m" tmp)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x*) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t32795 + t22794)) + tmp2793) + (syntax-error + tmp2792))) + ($syntax-dispatch + tmp2792 + '(any any)))) + (list + (emit2770 + (car x*2791)) + (f2790 + (cdr x*2791)))))))) + f2790) + x2789)) + tmp2787) + ((lambda (tmp2797) + (if tmp2797 + (apply + (lambda (x2798) + ((lambda (tmp2799) + ((lambda (tmp2801) + (if tmp2801 + (apply + (lambda (t42802) + (cons + '#(syntax-object append ((top) #(ribcage #(t4) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t42802)) + tmp2801) + (syntax-error + tmp2799))) + ($syntax-dispatch + tmp2799 + 'each-any))) + (map emit2770 + x2798))) + tmp2797) + ((lambda (tmp2804) + (if tmp2804 + (apply + (lambda (x2805) + ((lambda (tmp2806) + ((lambda (tmp2808) + (if tmp2808 + (apply + (lambda (t52809) + (cons + '#(syntax-object vector ((top) #(ribcage #(t5) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t52809)) + tmp2808) + (syntax-error + tmp2806))) + ($syntax-dispatch + tmp2806 + 'each-any))) + (map emit2770 + x2805))) + tmp2804) + ((lambda (tmp2811) + (if tmp2811 + (apply + (lambda (x2812) + ((lambda (tmp2813) + ((lambda (t62814) + (list + '#(syntax-object list->vector ((top) #(ribcage #(t6) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) + t62814)) + tmp2813)) + (emit2770 + x2812))) + tmp2811) + ((lambda (tmp2815) + (if tmp2815 + (apply + (lambda (x2816) + x2816) + tmp2815) + (syntax-error + tmp2777))) + ($syntax-dispatch + tmp2777 + '(#(atom + "value") + any))))) + ($syntax-dispatch + tmp2777 + '(#(atom + "list->vector") + any))))) + ($syntax-dispatch + tmp2777 + '(#(atom + "vector") + . + each-any))))) + ($syntax-dispatch + tmp2777 + '(#(atom "append") + . + each-any))))) + ($syntax-dispatch + tmp2777 + '(#(atom "list*") + . + #(each+ any (any) + ())))))) + ($syntax-dispatch + tmp2777 + '(#(atom "list") . each-any))))) + ($syntax-dispatch + tmp2777 + '(#(atom "quote") any)))) + x2776)))) + (lambda (x2771) + ((lambda (tmp2772) + ((lambda (tmp2773) + (if tmp2773 + (apply + (lambda (_2775 e2774) (emit2770 (quasi2764 e2774 '0))) + tmp2773) + (syntax-error tmp2772))) + ($syntax-dispatch tmp2772 '(any any)))) + x2771))))) + '*top*) +($sc-put-cte + '#(syntax-object unquote ((top) #(ribcage #(unquote) #((top)) #(unquote)))) + (lambda (x2923) (syntax-error x2923 '"misplaced")) + '*top*) +($sc-put-cte + '#(syntax-object unquote-splicing ((top) #(ribcage #(unquote-splicing) #((top)) #(unquote-splicing)))) + (lambda (x2924) (syntax-error x2924 '"misplaced")) + '*top*) +($sc-put-cte + '#(syntax-object quasisyntax ((top) #(ribcage #(quasisyntax) #((top)) #(quasisyntax)))) + (lambda (x2925) + (letrec ((qs2926 (lambda (q2977 n2976 b*2975 k2974) + ((lambda (tmp2978) + ((lambda (tmp2979) + (if tmp2979 + (apply + (lambda (d2980) + (qs2926 + d2980 + (+ n2976 '1) + b*2975 + (lambda (b*2982 dnew2981) + (k2974 + b*2982 + (if (eq? dnew2981 d2980) + q2977 + ((lambda (tmp2983) + ((lambda (d2984) + (cons + '#(syntax-object quasisyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + d2984)) + tmp2983)) + dnew2981)))))) + tmp2979) + ((lambda (tmp2985) + (if (if tmp2985 + (apply + (lambda (d2986) + (not (= n2976 '0))) + tmp2985) + '#f) + (apply + (lambda (d2987) + (qs2926 + d2987 + (- n2976 '1) + b*2975 + (lambda (b*2989 dnew2988) + (k2974 + b*2989 + (if (eq? dnew2988 d2987) + q2977 + ((lambda (tmp2990) + ((lambda (d2991) + (cons + '#(syntax-object unsyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + d2991)) + tmp2990)) + dnew2988)))))) + tmp2985) + ((lambda (tmp2992) + (if (if tmp2992 + (apply + (lambda (d2993) + (not (= n2976 '0))) + tmp2992) + '#f) + (apply + (lambda (d2994) + (qs2926 + d2994 + (- n2976 '1) + b*2975 + (lambda (b*2996 + dnew2995) + (k2974 + b*2996 + (if (eq? dnew2995 + d2994) + q2977 + ((lambda (tmp2997) + ((lambda (d2998) + (cons + '#(syntax-object unsyntax-splicing ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + d2998)) + tmp2997)) + dnew2995)))))) + tmp2992) + ((lambda (tmp2999) + (if (if tmp2999 + (apply + (lambda (q3000) + (= n2976 '0)) + tmp2999) + '#f) + (apply + (lambda (q3001) + ((lambda (tmp3002) + ((lambda (tmp3003) + (if tmp3003 + (apply + (lambda (t3004) + (k2974 + (cons + (list + t3004 + q3001) + b*2975) + t3004)) + tmp3003) + (syntax-error + tmp3002))) + ($syntax-dispatch + tmp3002 + '(any)))) + (generate-temporaries + (list + q3001)))) + tmp2999) + ((lambda (tmp3005) + (if (if tmp3005 + (apply + (lambda (q3007 + d3006) + (= n2976 + '0)) + tmp3005) + '#f) + (apply + (lambda (q3009 + d3008) + (qs2926 + d3008 + n2976 + b*2975 + (lambda (b*3011 + dnew3010) + ((lambda (tmp3012) + ((lambda (tmp3014) + (if tmp3014 + (apply + (lambda (t3015) + (k2974 + (append + (map list + t3015 + q3009) + b*3011) + ((lambda (tmp3016) + ((lambda (d3017) + (append + t3015 + d3017)) + tmp3016)) + dnew3010))) + tmp3014) + (syntax-error + tmp3012))) + ($syntax-dispatch + tmp3012 + 'each-any))) + (generate-temporaries + q3009))))) + tmp3005) + ((lambda (tmp3021) + (if (if tmp3021 + (apply + (lambda (q3023 + d3022) + (= n2976 + '0)) + tmp3021) + '#f) + (apply + (lambda (q3025 + d3024) + (qs2926 + d3024 + n2976 + b*2975 + (lambda (b*3027 + dnew3026) + ((lambda (tmp3028) + ((lambda (tmp3030) + (if tmp3030 + (apply + (lambda (t3031) + (k2974 + (append + (map (lambda (tmp3041 + tmp3040) + (list + (cons + tmp3040 + '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))) + tmp3041)) + q3025 + t3031) + b*3027) + ((lambda (tmp3032) + ((lambda (tmp3034) + (if tmp3034 + (apply + (lambda (m3035) + ((lambda (tmp3036) + ((lambda (d3037) + (append + (apply + append + m3035) + d3037)) + tmp3036)) + dnew3026)) + tmp3034) + (syntax-error + tmp3032))) + ($syntax-dispatch + tmp3032 + '#(each + each-any)))) + (map (lambda (tmp3033) + (cons + tmp3033 + '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))) + t3031)))) + tmp3030) + (syntax-error + tmp3028))) + ($syntax-dispatch + tmp3028 + 'each-any))) + (generate-temporaries + q3025))))) + tmp3021) + ((lambda (tmp3042) + (if tmp3042 + (apply + (lambda (a3044 + d3043) + (qs2926 + a3044 + n2976 + b*2975 + (lambda (b*3046 + anew3045) + (qs2926 + d3043 + n2976 + b*3046 + (lambda (b*3048 + dnew3047) + (k2974 + b*3048 + (if (if (eq? anew3045 + a3044) + (eq? dnew3047 + d3043) + '#f) + q2977 + ((lambda (tmp3049) + ((lambda (tmp3050) + (if tmp3050 + (apply + (lambda (a3052 + d3051) + (cons + a3052 + d3051)) + tmp3050) + (syntax-error + tmp3049))) + ($syntax-dispatch + tmp3049 + '(any any)))) + (list + anew3045 + dnew3047))))))))) + tmp3042) + ((lambda (tmp3053) + (if tmp3053 + (apply + (lambda (x3054) + (vqs2927 + x3054 + n2976 + b*2975 + (lambda (b*3056 + xnew*3055) + (k2974 + b*3056 + (if ((letrec ((same?3057 (lambda (x*3059 + xnew*3058) + (if (null? + x*3059) + (null? + xnew*3058) + (if (not (null? + xnew*3058)) + (if (eq? (car x*3059) + (car xnew*3058)) + (same?3057 + (cdr x*3059) + (cdr xnew*3058)) + '#f) + '#f))))) + same?3057) + x3054 + xnew*3055) + q2977 + ((lambda (tmp3061) + ((lambda (tmp3062) + (if tmp3062 + (apply + (lambda (x3063) + (list->vector + x3063)) + tmp3062) + (syntax-error + tmp3061))) + ($syntax-dispatch + tmp3061 + 'each-any))) + xnew*3055)))))) + tmp3053) + ((lambda (_3066) + (k2974 + b*2975 + q2977)) + tmp2978))) + ($syntax-dispatch + tmp2978 + '#(vector + each-any))))) + ($syntax-dispatch + tmp2978 + '(any . + any))))) + ($syntax-dispatch + tmp2978 + '((#(free-id + #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + each-any) + . + any))))) + ($syntax-dispatch + tmp2978 + '((#(free-id + #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + each-any) + . + any))))) + ($syntax-dispatch + tmp2978 + '(#(free-id + #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + any))))) + ($syntax-dispatch + tmp2978 + '(#(free-id + #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + any))))) + ($syntax-dispatch + tmp2978 + '(#(free-id + #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + any))))) + ($syntax-dispatch + tmp2978 + '(#(free-id + #(syntax-object quasisyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + any)))) + q2977))) + (vqs2927 (lambda (x*2942 n2941 b*2940 k2939) + (if (null? x*2942) + (k2939 b*2940 '()) + (vqs2927 + (cdr x*2942) + n2941 + b*2940 + (lambda (b*2944 xnew*2943) + ((lambda (tmp2945) + ((lambda (tmp2946) + (if (if tmp2946 + (apply + (lambda (q2947) + (= n2941 '0)) + tmp2946) + '#f) + (apply + (lambda (q2948) + ((lambda (tmp2949) + ((lambda (tmp2951) + (if tmp2951 + (apply + (lambda (t2952) + (k2939 + (append + (map list + t2952 + q2948) + b*2944) + (append + t2952 + xnew*2943))) + tmp2951) + (syntax-error + tmp2949))) + ($syntax-dispatch + tmp2949 + 'each-any))) + (generate-temporaries + q2948))) + tmp2946) + ((lambda (tmp2956) + (if (if tmp2956 + (apply + (lambda (q2957) + (= n2941 '0)) + tmp2956) + '#f) + (apply + (lambda (q2958) + ((lambda (tmp2959) + ((lambda (tmp2961) + (if tmp2961 + (apply + (lambda (t2962) + (k2939 + (append + (map (lambda (tmp2970 + tmp2969) + (list + (cons + tmp2969 + '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))) + tmp2970)) + q2958 + t2962) + b*2944) + ((lambda (tmp2963) + ((lambda (tmp2965) + (if tmp2965 + (apply + (lambda (m2966) + (append + (apply + append + m2966) + xnew*2943)) + tmp2965) + (syntax-error + tmp2963))) + ($syntax-dispatch + tmp2963 + '#(each + each-any)))) + (map (lambda (tmp2964) + (cons + tmp2964 + '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))) + t2962)))) + tmp2961) + (syntax-error + tmp2959))) + ($syntax-dispatch + tmp2959 + 'each-any))) + (generate-temporaries + q2958))) + tmp2956) + ((lambda (_2971) + (qs2926 + (car x*2942) + n2941 + b*2944 + (lambda (b*2973 + xnew2972) + (k2939 + b*2973 + (cons + xnew2972 + xnew*2943))))) + tmp2945))) + ($syntax-dispatch + tmp2945 + '(#(free-id + #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + each-any))))) + ($syntax-dispatch + tmp2945 + '(#(free-id + #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + . + each-any)))) + (car x*2942)))))))) + ((lambda (tmp2928) + ((lambda (tmp2929) + (if tmp2929 + (apply + (lambda (_2931 x2930) + (qs2926 + x2930 + '0 + '() + (lambda (b*2933 xnew2932) + (if (eq? xnew2932 x2930) + (list + '#(syntax-object syntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + x2930) + ((lambda (tmp2934) + ((lambda (tmp2935) + (if tmp2935 + (apply + (lambda (b2937 x2936) + (list + '#(syntax-object with-syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + b2937 + (list + '#(syntax-object syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + x2936))) + tmp2935) + (syntax-error tmp2934))) + ($syntax-dispatch + tmp2934 + '(each-any any)))) + (list b*2933 xnew2932)))))) + tmp2929) + (syntax-error tmp2928))) + ($syntax-dispatch tmp2928 '(any any)))) + x2925))) + '*top*) +($sc-put-cte + '#(syntax-object unsyntax ((top) #(ribcage #(unsyntax) #((top)) #(unsyntax)))) + (lambda (x3067) (syntax-error x3067 '"misplaced")) + '*top*) +($sc-put-cte + '#(syntax-object unsyntax-splicing ((top) #(ribcage #(unsyntax-splicing) #((top)) #(unsyntax-splicing)))) + (lambda (x3068) (syntax-error x3068 '"misplaced")) + '*top*) +($sc-put-cte + '#(syntax-object include ((top) #(ribcage #(include) #((top)) #(include)))) + (lambda (x3069) + (letrec ((read-file3070 (lambda (fn3081 k3080) + ((lambda (p3082) + ((letrec ((f3083 (lambda () + ((lambda (x3084) + (if (eof-object? + x3084) + (begin + (close-input-port + p3082) + '()) + (cons + (datum->syntax-object + k3080 + x3084) + (f3083)))) + (read p3082))))) + f3083))) + (open-input-file fn3081))))) + ((lambda (tmp3071) + ((lambda (tmp3072) + (if tmp3072 + (apply + (lambda (k3074 filename3073) + ((lambda (fn3075) + ((lambda (tmp3076) + ((lambda (tmp3077) + (if tmp3077 + (apply + (lambda (exp3078) + (cons + '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i" "i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + exp3078)) + tmp3077) + (syntax-error tmp3076))) + ($syntax-dispatch tmp3076 'each-any))) + (read-file3070 fn3075 k3074))) + (syntax-object->datum filename3073))) + tmp3072) + (syntax-error tmp3071))) + ($syntax-dispatch tmp3071 '(any any)))) + x3069))) + '*top*) +($sc-put-cte + '#(syntax-object case ((top) #(ribcage #(case) #((top)) #(case)))) + (lambda (x3085) + ((lambda (tmp3086) + ((lambda (tmp3087) + (if tmp3087 + (apply + (lambda (_3091 e3090 m13089 m23088) + ((lambda (tmp3092) + ((lambda (body3119) + (list + '#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + '#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + e3090)) + body3119)) + tmp3092)) + ((letrec ((f3093 (lambda (clause3095 clauses3094) + (if (null? clauses3094) + ((lambda (tmp3096) + ((lambda (tmp3097) + (if tmp3097 + (apply + (lambda (e13099 + e23098) + (cons + '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e13099 + e23098))) + tmp3097) + ((lambda (tmp3101) + (if tmp3101 + (apply + (lambda (k3104 + e13103 + e23102) + (list + '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + k3104)) + (cons + '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e13103 + e23102)))) + tmp3101) + ((lambda (_3107) + (syntax-error + x3085)) + tmp3096))) + ($syntax-dispatch + tmp3096 + '(each-any + any + . + each-any))))) + ($syntax-dispatch + tmp3096 + '(#(free-id + #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + any + . + each-any)))) + clause3095) + ((lambda (tmp3108) + ((lambda (rest3109) + ((lambda (tmp3110) + ((lambda (tmp3111) + (if tmp3111 + (apply + (lambda (k3114 + e13113 + e23112) + (list + '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + k3114)) + (cons + '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) + (cons + e13113 + e23112)) + rest3109)) + tmp3111) + ((lambda (_3117) + (syntax-error + x3085)) + tmp3110))) + ($syntax-dispatch + tmp3110 + '(each-any + any + . + each-any)))) + clause3095)) + tmp3108)) + (f3093 + (car clauses3094) + (cdr clauses3094))))))) + f3093) + m13089 + m23088))) + tmp3087) + (syntax-error tmp3086))) + ($syntax-dispatch tmp3086 '(any any any . each-any)))) + x3085)) + '*top*) +($sc-put-cte + '#(syntax-object identifier-syntax ((top) #(ribcage #(identifier-syntax) #((top)) #(identifier-syntax)))) + (lambda (x3120) + ((lambda (tmp3121) + ((lambda (tmp3122) + (if tmp3122 + (apply + (lambda (dummy3124 e3123) + (list + '#(syntax-object lambda ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object (x) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax-case ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '() + (list + '#(syntax-object id ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object (identifier? (syntax id)) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + e3123)) + (list + '(#(syntax-object _ ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + #(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + #(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (cons + e3123 + '(#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + #(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))))))) + tmp3122) + ((lambda (tmp3125) + (if (if tmp3125 + (apply + (lambda (dummy3131 id3130 exp13129 var3128 + val3127 exp23126) + (if (identifier? id3130) + (identifier? var3128) + '#f)) + tmp3125) + '#f) + (apply + (lambda (dummy3137 id3136 exp13135 var3134 val3133 + exp23132) + (list + '#(syntax-object cons ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object (quote macro!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object lambda ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object (x) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax-case ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + '#(syntax-object (set!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + (list + '#(syntax-object set! ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + var3134 + val3133) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + exp23132)) + (list + (cons + id3136 + '(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + #(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (cons + exp13135 + '(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + #(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))))) + (list + id3136 + (list + '#(syntax-object identifier? ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + id3136)) + (list + '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) + exp13135)))))) + tmp3125) + (syntax-error tmp3121))) + ($syntax-dispatch + tmp3121 + '(any (any any) + ((#(free-id + #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))) + any + any) + any)))))) + ($syntax-dispatch tmp3121 '(any any)))) + x3120)) + '*top*) From 567767babc7e78211df5cabe6c6282f3665dfbb6 Mon Sep 17 00:00:00 2001 From: Jinser Kafka Date: Wed, 4 Feb 2026 14:41:55 +0800 Subject: [PATCH 2/3] wip --- goldfish/scheme/boot.scm | 233 +++++++++------------------------------ goldfish/scheme/r7rs.scm | 39 +++++++ 2 files changed, 93 insertions(+), 179 deletions(-) create mode 100644 goldfish/scheme/r7rs.scm diff --git a/goldfish/scheme/boot.scm b/goldfish/scheme/boot.scm index 8fc80aba..af6ea474 100644 --- a/goldfish/scheme/boot.scm +++ b/goldfish/scheme/boot.scm @@ -70,13 +70,22 @@ (define syntax->vector #f) -(define s7-eval eval) -(define (eval x) (s7-eval (cadr x))) - (set! (*s7* 'symbol-quote?) #t) +(define %primitive-eval eval) +(define %primitive-load load) + +(define (eval expr . env) + ; (display "evaling ") (display expr) (newline) + (if (and (list? expr) + (string? (car expr)) + (string=? (car expr) "noexpand")) + (%primitive-eval (cadr expr)) + (%primitive-eval (sc-expand expr)))) + (load "scheme/psyntax.pp") + (define (file-exists? path) (if (string? path) (if (not (g_access path 0)) ; F_OK @@ -87,183 +96,49 @@ (error 'type-error "(file-exists? path): path should be string"))) -(define %primitive-eval s7-eval) -(define %primitive-load load) - - -(define (filter pred l) - (let recur ((l l)) - (if (null? l) - l - (let ((head (car l)) - (tail (cdr l))) - (if (pred head) - (let ((new-tail (recur tail))) - (if (eq? tail new-tail) - l - (cons head new-tail))) - (recur tail)))))) - -(define (psyntax-expand expr) - (display "evaluating ") (display expr) (newline) - (let ((expr (if (and (list? expr) (= (length expr) 1)) (car expr) expr))) - (cond - ;; 情况 A：处理 define-library - ((and (pair? expr) (eq? (car expr) 'define-library)) - (let* ((body (cddr expr)) - ;; 1. 提取所有的 (import ...) 语句 - (imports (filter (lambda (x) (and (pair? x) (eq? (car x) 'import))) body)) - (exports (filter (lambda (x) (and (pair? x) (eq? (car x) 'export))) body)) - ;; 2. 提取所有的 (begin ...) 或 顶层定义 - (real-body (filter (lambda (x) (not (member (car x) '(import export)))) body))) - - (display real-body) (newline) +; (define (find-file-in-paths filename) +; (if (file-exists? filename) +; filename +; (let loop ((paths *load-path*)) +; (if (null? paths) +; #f +; (let ((full-path (string-append (car paths) "/" filename))) +; (if (file-exists? full-path) +; full-path +; (loop (cdr paths)))))))) - (for-each (lambda (imp) - (r7rs-import-library-filename (cdr imp))) - imports) - - (sc-expand real-body))) - - ;; 情况 B：单独的 import 语句 - ((and (pair? expr) (eq? (car expr) 'import)) - (r7rs-import-library-filename (cdr expr)) - '(begin)) ; 返回一个空表达式，因为 import 已经处理完了 - - ;; 情况 C：普通表达式 - (else (sc-expand expr))))) - -(define (eval expr . env) - ; (display "evaling ") (display expr) (newline) - (if (and (list? expr) - (string? (car expr)) - (string=? (car expr) "noexpand")) - (%primitive-eval (cadr expr)) - (%primitive-eval (sc-expand expr)))) - -(define (find-file-in-paths filename) +(define (psyntax-load filename) (if (file-exists? filename) - filename - (let loop ((paths *load-path*)) - (if (null? paths) - #f - (let ((full-path (string-append (car paths) "/" filename))) - (if (file-exists? full-path) - full-path - (loop (cdr paths)))))))) - -(define (load filename) - ; (display "loading ") (display filename) (newline) - (let ((abs-path (find-file-in-paths filename))) - (display "loadinG ") (display abs-path) (newline) - (if abs-path - (with-input-from-file abs-path + (let ((forms '())) + (with-input-from-file filename (lambda () - (let loop ((expr (read)) - (forms '())) + (let loop ((expr (read))) (if (eof-object? expr) - (eval (reverse forms)) - (loop (read) (cons expr forms)))))) - (error 'load (string-append "file not found: " abs-path))))) - -;; --- - -(define (delete-file path) - (if (not (string? path)) - (error 'type-error "(delete-file path): path should be string") - (if (not (file-exists? path)) - (error 'read-error (string-append path " does not exist")) - (g_delete-file path)))) - -(define define-library module) - -; ; 0-clause BSD -; ; Adapted from S7 Scheme's r7rs.scm -; (define-macro (define-library libname . body) ; |(lib name)| -> environment -; `(define ,(symbol (object->string libname)) -; (with-let (sublet (unlet) -; (cons 'import import) -; (cons '*export* ()) -; (cons 'export (define-macro (,(gensym) . names) -; `(set! *export* (append ',names *export*))))) -; ,@body -; (apply inlet -; (map (lambda (entry) -; (if (or (member (car entry) '(*export* export import)) -; (and (pair? *export*) -; (not (member (car entry) *export*)))) -; (values) -; entry)) -; (curlet)))))) -; -; (unless (defined? 'r7rs-import-library-filename) -; (define (r7rs-import-library-filename libs) -; (when (pair? libs) -; (let ((lib-filename (let loop ((lib (if (memq (caar libs) '(only except prefix rename)) -; (cadar libs) -; (car libs))) -; (name "")) -; (set! name (string-append name (symbol->string (car lib)))) -; (if (null? (cdr lib)) -; (string-append name ".scm") -; (begin -; (set! name (string-append name "/")) -; (loop (cdr lib) name)))))) -; (when (not (defined? (symbol (object->string (car libs))))) -; ;(display "Loading ") (display lib-filename) (newline) -; (load lib-filename)) -; (r7rs-import-library-filename (cdr libs))))) -; ) -; -; (define-macro (import . libs) -; `(begin -; (r7rs-import-library-filename ',libs) -; (varlet (curlet) -; ,@(map (lambda (lib) -; (case (car lib) -; ((only) -; `((lambda (e names) -; (apply inlet -; (map (lambda (name) -; (cons name (e name))) -; names))) -; (symbol->value (symbol (object->string (cadr ',lib)))) -; (cddr ',lib))) -; ((except) -; `((lambda (e names) -; (apply inlet -; (map (lambda (entry) -; (if (member (car entry) names) -; (values) -; entry)) -; e))) -; (symbol->value (symbol (object->string (cadr ',lib)))) -; (cddr ',lib))) -; ((prefix) -; `((lambda (e prefx) -; (apply inlet -; (map (lambda (entry) -; (cons (string->symbol -; (string-append (symbol->string prefx) -; (symbol->string (car entry)))) -; (cdr entry))) -; e))) -; (symbol->value (symbol (object->string (cadr ',lib)))) -; (caddr ',lib))) -; ((rename) -; `((lambda (e names) -; (apply inlet -; (map (lambda (entry) -; (let ((info (assoc (car entry) names))) -; (if info -; (cons (cadr info) (cdr entry)) -; entry))) -; e))) -; (symbol->value (symbol (object->string (cadr ',lib)))) -; (cddr ',lib))) -; (else -; `(let ((sym (symbol (object->string ',lib)))) -; (if (not (defined? sym)) -; (format () "~A not loaded~%" sym) -; (symbol->value sym)))))) -; libs)))) + (begin + ; (display `(begin ,@forms)) (newline) + ;; 核心：包装成一个巨大的 begin，一次性交给 psyntax + (let ((expanded (sc-expand `(begin ,@(reverse forms))))) + ; (display expanded) (newline) ; 调试用：查看最终生成的 s7 代码 + (eval expanded))) + (begin + (set! forms (cons expr forms)) + (loop (read)))))))) + (error 'load (string-append "file not found: " filename)))) + +(define load psyntax-load) + +; (define (load filename) +; ; (display "loading ") (display filename) (newline) +; (let ((abs-path (find-file-in-paths filename))) +; ; (display "loadinG ") (display abs-path) (newline) +; (if abs-path +; (with-input-from-file abs-path +; (lambda () +; (let loop ((expr (read)) +; (forms '())) +; (if (eof-object? expr) +; (eval (reverse forms)) +; (loop (read) (cons expr forms)))))) +; (error 'load (string-append "file not found: " abs-path))))) + +(load "goldfish/scheme/r7rs.scm") diff --git a/goldfish/scheme/r7rs.scm b/goldfish/scheme/r7rs.scm new file mode 100644 index 00000000..b3c0f478 --- /dev/null +++ b/goldfish/scheme/r7rs.scm @@ -0,0 +1,39 @@ +(define (libname->symbol stx) + ;; 将 (scheme base) 这种列表转换成一个唯一的符号 + ;; 比如转换为 '| (scheme base) |' 保持与你旧代码的符号惯例一致 + (let ((obj (syntax->datum stx))) + (string->symbol (object->string obj)))) + +(define-syntax define-library + (lambda (x) + (syntax-case x (export import begin) + ((_ libname clause ...) + (letrec ((parse-clauses + (lambda (cls exports imports body) + (if (null? cls) + (values exports imports body) + (syntax-case (car cls) (export import begin) + ;; 收集导出：(export a b (rename c d)) + ((export names ...) + (parse-clauses (cdr cls) + (append (syntax (names ...)) exports) + imports body)) + ;; 收集导入：(import (scheme base) (prefix (lib) p:)) + ((import libs ...) + (parse-clauses (cdr cls) exports + (append (syntax (libs ...)) imports) body)) + ;; 收集主体代码：(begin (define x 1) ...) + ((begin forms ...) + (parse-clauses (cdr cls) exports imports + (append (syntax (forms ...)) body))))))) + ;; 忽略未识别的子句（如 include-library-declarations） + (_ (parse-clauses (cdr cls) exports imports body))) + (let-values (((exports imports body) + (parse-clauses (syntax (clause ...)) '() '() '()))) + ;; 核心转换： + ;; 将 R7RS libname (a b c) 转换为 psyntax 期望的扁平符号或结构 + (let ((module-id (libname->symbol (syntax libname)))) + (syntax `(module ,module-id ,exports + (import ,@imports) + ,@body))))))))) + From 05529743fd08c8338c864e2b498f3ae7384a1f94 Mon Sep 17 00:00:00 2001 From: Jinser Kafka Date: Tue, 10 Feb 2026 15:18:20 +0800 Subject: [PATCH 3/3] wip --- demo/define-syntax-def.scm | 13 +- demo/define-syntax-last.scm | 5 + demo/define-syntax-next.scm | 6 + demo/x.scm | 58 + goldfish/scheme/base.scm | 83 +- goldfish/scheme/boot.scm | 141 +- goldfish/scheme/core.scm | 39 + goldfish/scheme/psyntax.pp | 71314 ++++++++++++++++++++++++++----- goldfish/scheme/r7rs-small.scm | 182 + goldfish/scheme/r7rs.scm | 124 +- goldfish/scheme/s7-shim.scm | 139 + src/goldfish.hpp | 41 + 12 files changed, 61291 insertions(+), 10854 deletions(-) create mode 100644 demo/define-syntax-last.scm create mode 100644 demo/define-syntax-next.scm create mode 100644 demo/x.scm create mode 100644 goldfish/scheme/core.scm create mode 100644 goldfish/scheme/r7rs-small.scm create mode 100644 goldfish/scheme/s7-shim.scm diff --git a/demo/define-syntax-def.scm b/demo/define-syntax-def.scm index eae8cd34..a6e93530 100644 --- a/demo/define-syntax-def.scm +++ b/demo/define-syntax-def.scm @@ -1,10 +1,3 @@ - (define-syntax def - (syntax-rules () - ((def f (p ...) body) - (define (f p ...) body)))) - - (def f (x) - (+ x 42)) - - (display (f 0)) - (newline) +(define-library (demo define-syntax-def) + (export answer) + (begin (define answer 42))) diff --git a/demo/define-syntax-last.scm b/demo/define-syntax-last.scm new file mode 100644 index 00000000..5f9cff52 --- /dev/null +++ b/demo/define-syntax-last.scm @@ -0,0 +1,5 @@ +(define-library (demo define-syntax-last) + (import (demo define-syntax-next)) + (begin + (display (ans)) + (newline))) diff --git a/demo/define-syntax-next.scm b/demo/define-syntax-next.scm new file mode 100644 index 00000000..05b1d4b0 --- /dev/null +++ b/demo/define-syntax-next.scm @@ -0,0 +1,6 @@ +(define-library (demo define-syntax-next) + (import (demo define-syntax-def)) + (export ans) + (begin + (define (ans) (+ 0 answer)) + (newline))) diff --git a/demo/x.scm b/demo/x.scm new file mode 100644 index 00000000..b328a8b7 --- /dev/null +++ b/demo/x.scm @@ -0,0 +1,58 @@ +(module scheme.base (let-values) + (define-syntax let-values + (lambda (x) + (syntax-case x () + ((_ ((binds exp)) b0 b1 ...) + (syntax (call-with-values (lambda () exp) + (lambda binds b0 b1 ...)))) + ((_ (clause ...) b0 b1 ...) + (let lp ((clauses (syntax (clause ...))) + (ids '()) + (tmps '())) + (if (null? clauses) + (with-syntax (((id ...) ids) + ((tmp ...) tmps)) + (syntax (let ((id tmp) ...) + b0 b1 ...))) + (syntax-case (car clauses) () + (((var ...) exp) + (with-syntax (((new-tmp ...) (generate-temporaries + (syntax (var ...)))) + ((id ...) ids) + ((tmp ...) tmps)) + (with-syntax ((inner (lp (cdr clauses) + (syntax (var ... id ...)) + (syntax (new-tmp ... tmp ...))))) + (syntax (call-with-values (lambda () exp) + (lambda (new-tmp ...) inner)))))) + ((vars exp) + (with-syntax ((((new-var . new-tmp) ...) + (let lp ((vars (syntax vars))) + (syntax-case vars () + ((id . rest) + (acons (syntax id) + (car + (generate-temporaries (syntax (id)))) + (lp (syntax rest)))) + (id (acons (syntax id) + (car + (generate-temporaries (syntax (id)))) + '()))))) + ((id ...) ids) + ((tmp ...) tmps)) + (with-syntax ((inner (lp (cdr clauses) + (syntax (new-var ... id ...)) + (syntax (new-tmp ... tmp ...)))) + (args (let lp ((tmps (syntax (new-tmp ...)))) + (syntax-case tmps () + ((id) (syntax id)) + ((id . rest) (cons (syntax id) + (lp (syntax rest)))))))) + (syntax (call-with-values (lambda () exp) + (lambda args inner)))))))))))))) + +(module demo () + (import scheme.base) + (let-values (((a b) (values 1 2))) + (display b) + (newline))) diff --git a/goldfish/scheme/base.scm b/goldfish/scheme/base.scm index bf9bdd20..4f94cd82 100644 --- a/goldfish/scheme/base.scm +++ b/goldfish/scheme/base.scm @@ -15,6 +15,7 @@ ; (define-library (scheme base) + (import (scheme core)) (export let-values ; R7RS 5: Program Structure @@ -51,35 +52,57 @@ ; 0-clause BSD ; Bill Schottstaedt ; from S7 source repo: r7rs.scm - (define-macro (let-values vars . body) - (if (and (pair? vars) - (pair? (car vars)) - (null? (cdar vars))) - `((lambda ,(caar vars) - ,@body) - ,(cadar vars)) - `(with-let - (apply sublet (curlet) - (list - ,@(map - (lambda (v) - `((lambda ,(car v) - (values ,@(map (lambda (name) - (values (symbol->keyword name) name)) - (let args->proper-list ((args (car v))) - (cond ((symbol? args) - (list args)) - ((not (pair? args)) - args) - ((pair? (car args)) - (cons (caar args) - (args->proper-list (cdr args)))) - (else - (cons (car args) - (args->proper-list (cdr args))))))))) - ,(cadr v))) - vars))) - ,@body))) + (define-syntax let-values + (lambda (x) + (syntax-case x () + ((_ ((binds exp)) b0 b1 ...) + (syntax (call-with-values (lambda () exp) + (lambda binds b0 b1 ...)))) + ((_ (clause ...) b0 b1 ...) + (let lp ((clauses (syntax (clause ...))) + (ids '()) + (tmps '())) + (if (null? clauses) + (with-syntax (((id ...) ids) + ((tmp ...) tmps)) + (syntax (let ((id tmp) ...) + b0 b1 ...))) + (syntax-case (car clauses) () + (((var ...) exp) + (with-syntax (((new-tmp ...) (generate-temporaries + (syntax (var ...)))) + ((id ...) ids) + ((tmp ...) tmps)) + (with-syntax ((inner (lp (cdr clauses) + (syntax (var ... id ...)) + (syntax (new-tmp ... tmp ...))))) + (syntax (call-with-values (lambda () exp) + (lambda (new-tmp ...) inner)))))) + ((vars exp) + (with-syntax ((((new-var . new-tmp) ...) + (let lp ((vars (syntax vars))) + (syntax-case vars () + ((id . rest) + (acons (syntax id) + (car + (generate-temporaries (syntax (id)))) + (lp (syntax rest)))) + (id (acons (syntax id) + (car + (generate-temporaries (syntax (id)))) + '()))))) + ((id ...) ids) + ((tmp ...) tmps)) + (with-syntax ((inner (lp (cdr clauses) + (syntax (new-var ... id ...)) + (syntax (new-tmp ... tmp ...)))) + (args (let lp ((tmps (syntax (new-tmp ...)))) + (syntax-case tmps () + ((id) (syntax id)) + ((id . rest) (cons (syntax id) + (lp (syntax rest)))))))) + (syntax (call-with-values (lambda () exp) + (lambda args inner))))))))))))) ; 0-clause BSD by Bill Schottstaedt from S7 source repo: s7test.scm (define-macro (define-values vars expression) @@ -549,7 +572,7 @@ wrong-type-arg (close-input-port p) (close-output-port p))) - (define (eof-object) #) + (define (eof-object) (call-with-input-string "" read)) ; 0 clause BSD, from S7 repo r7rs.scm (define list-copy copy) diff --git a/goldfish/scheme/boot.scm b/goldfish/scheme/boot.scm index af6ea474..797c8d11 100644 --- a/goldfish/scheme/boot.scm +++ b/goldfish/scheme/boot.scm @@ -1,3 +1,8 @@ +(define (read . port) + (if (null? port) + (g_goldfish-read (current-input-port)) + (g_goldfish-read port))) + (define (void) (if #f #f)) (define (andmap f first . rest) @@ -30,6 +35,9 @@ (define *symbol-properties* (make-hash-table)) (define (putprop symbol key value) + (display "[put]symbol.key.value: ") (display symbol) + (display " . ") (display key) + (display " . ") (display value) (newline) (let ((props (hash-table-ref *symbol-properties* symbol))) (if props (hash-table-set! props key value) @@ -39,6 +47,8 @@ value)) (define (getprop symbol key) + (display "[get]symbol.key: ") (display symbol) + (display " . ") (display key) (newline) (let ((props (hash-table-ref *symbol-properties* symbol))) (if props (hash-table-ref props key) @@ -50,6 +60,11 @@ (hash-table-set! props key #f)) #f)) +(define s7-gensym gensym) +(define (gensym x) + (cond + ((symbol? x) (s7-gensym (symbol->string x))) + (else (s7-gensym x)))) ;; API provided by psyntax (define $sc-put-cte #f) @@ -58,6 +73,7 @@ (define environment? #f) (define interaction-environment #f) (define identifier? #f) +(define unwrap-syntax #f) (define syntax->list #f) (define syntax-object->datum #f) (define datum->syntax-object #f) @@ -76,15 +92,16 @@ (define %primitive-load load) (define (eval expr . env) - ; (display "evaling ") (display expr) (newline) - (if (and (list? expr) - (string? (car expr)) - (string=? (car expr) "noexpand")) - (%primitive-eval (cadr expr)) - (%primitive-eval (sc-expand expr)))) + (let ((target-env (if (pair? env) (car env) (rootlet)))) + (if (and (pair? expr) + (equal? (car expr) "noexpand")) + (%primitive-eval (cadr expr) target-env) + (%primitive-eval expr target-env)))) (load "scheme/psyntax.pp") +(define syntax->datum syntax-object->datum) +(define datum->syntax datum->syntax-object) (define (file-exists? path) (if (string? path) @@ -96,49 +113,73 @@ (error 'type-error "(file-exists? path): path should be string"))) -; (define (find-file-in-paths filename) -; (if (file-exists? filename) -; filename -; (let loop ((paths *load-path*)) -; (if (null? paths) -; #f -; (let ((full-path (string-append (car paths) "/" filename))) -; (if (file-exists? full-path) -; full-path -; (loop (cdr paths)))))))) +(define (find-file-in-paths filename) + (if (file-exists? filename) + filename + (let loop ((paths *load-path*)) + (if (null? paths) + #f + (let ((full-path (string-append (car paths) "/" filename))) + (if (file-exists? full-path) + full-path + (loop (cdr paths)))))))) (define (psyntax-load filename) - (if (file-exists? filename) - (let ((forms '())) - (with-input-from-file filename - (lambda () - (let loop ((expr (read))) - (if (eof-object? expr) - (begin - ; (display `(begin ,@forms)) (newline) - ;; 核心：包装成一个巨大的 begin，一次性交给 psyntax - (let ((expanded (sc-expand `(begin ,@(reverse forms))))) - ; (display expanded) (newline) ; 调试用：查看最终生成的 s7 代码 - (eval expanded))) - (begin - (set! forms (cons expr forms)) - (loop (read)))))))) - (error 'load (string-append "file not found: " filename)))) - -(define load psyntax-load) - -; (define (load filename) -; ; (display "loading ") (display filename) (newline) -; (let ((abs-path (find-file-in-paths filename))) -; ; (display "loadinG ") (display abs-path) (newline) -; (if abs-path -; (with-input-from-file abs-path -; (lambda () -; (let loop ((expr (read)) -; (forms '())) -; (if (eof-object? expr) -; (eval (reverse forms)) -; (loop (read) (cons expr forms)))))) -; (error 'load (string-append "file not found: " abs-path))))) - -(load "goldfish/scheme/r7rs.scm") + (with-input-from-file filename + (lambda () + (let loop ((expr (read))) + (unless (eof-object? expr) + (begin + ; (display "eval: ") (write expr) (newline) + (let ((expanded (sc-expand expr #f #f #f))) + ; (display "nxpa: ") (write expanded) (newline) + (eval expanded))) + (loop (read))))))) + +(define (load fn) + (display "loading: ") (display fn) (newline) + (let ((fn* (find-file-in-paths fn))) + (if fn* + (psyntax-load fn*) + (error "not found" fn*)))) + +(set! *#readers* + (append + (list + ;; #` (quasisyntax) + (cons #\` (lambda (str) + (list 'quasisyntax (read)))) + ;; #, (unsyntax) + (cons #\, (lambda (str) + ;; 检查后面是否跟着 @，即 #,@ (unsyntax-splicing) + (let ((next-char (peek-char))) + (if (eq? next-char #\@) + (begin + (read-char) ;; 消耗掉 @ + (list 'unsyntax-splicing (read))) + (list 'unsyntax (read)))))) + ;; #' (syntax) - 保持之前的修正 + (cons #\' (lambda (str) + (list 'syntax (read))))) + *#readers*)) + +; (load "demo/x.scm") + +(display "~~~~~~~~~~") (newline) +(define (register-primitive sym value) + ($sc-put-cte sym value '*top*)) + ; ($sc-put-cte sym (cons 'global value) '*sc-expander*)) + +(register-primitive 'gcd gcd) +; (register-primitive 'pair? pair?) +(display "~~~~~~~~~~") (newline) + +(load "scheme/s7-shim.scm") +(load "scheme/r7rs-small.scm") + +(define load psyntax-load-r7rs) +(load "demo/define-syntax-last.scm") + +(display *symbol-properties*) (newline) + +(newline) diff --git a/goldfish/scheme/core.scm b/goldfish/scheme/core.scm new file mode 100644 index 00000000..7c411afc --- /dev/null +++ b/goldfish/scheme/core.scm @@ -0,0 +1,39 @@ +(define-library (scheme core) + (export (rename open-binary-output-file open-binary-output-file) + (rename open-binary-input-file open-binary-input-file) + (rename digit-value digit-value) + (rename symbol->string symbol->string) + (rename string->symbol string->symbol) + (rename symbol? symbol?) + (rename assoc assoc) + (rename assv assv) + (rename assq assq) + (rename member member) + (rename memv memv) + (rename memq memq) + (rename list-set! list-set!) + (rename list-ref list-ref) + (rename list-tail list-tail) + (rename reverse reverse) + (rename append append) + (rename length length) + (rename list list) + (rename make-list make-list) + (rename list? list?) + (rename null? null?) + (rename cddr cddr) + (rename cdar cdar) + (rename cadr cadr) + (rename caar caar) + (rename set-cdr! set-cdr!) + (rename set-car! set-car!) + (rename cdr cdr) + (rename car car) + (rename cons cons) + (rename pair? pair?) + (rename string->number string->number) + (rename number->string number->string) + (rename denominator denominator) + (rename numerator numerator) + (rename gcd gcd)) + (begin)) diff --git a/goldfish/scheme/psyntax.pp b/goldfish/scheme/psyntax.pp index 8991ed26..4c7a1131 100644 --- a/goldfish/scheme/psyntax.pp +++ b/goldfish/scheme/psyntax.pp @@ -1,10857 +1,60717 @@ ;;; psyntax.pp ;;; automatically generated from psyntax.ss -;;; Mon Feb 26 23:22:05 EST 2007 +;;; 2025年11月09日 星期日 02时18分01秒 CST ;;; see copyright notice in psyntax.ss ((lambda () - (letrec ((noexpand62 '"noexpand") - (make-syntax-object63 (lambda (expression2530 wrap2529) - (vector - 'syntax-object - expression2530 - wrap2529))) - (syntax-object?64 (lambda (x2528) - (if (vector? x2528) - (if (= (vector-length x2528) '3) - (eq? (vector-ref x2528 '0) - 'syntax-object) - '#f) - '#f))) - (syntax-object-expression65 (lambda (x2527) - (vector-ref x2527 '1))) - (syntax-object-wrap66 (lambda (x2526) - (vector-ref x2526 '2))) - (set-syntax-object-expression!67 (lambda (x2525 update2524) - (vector-set! - x2525 - '1 - update2524))) - (set-syntax-object-wrap!68 (lambda (x2523 update2522) - (vector-set! - x2523 - '2 - update2522))) - (annotation?132 (lambda (x2521) '#f)) - (top-level-eval-hook133 (lambda (x2520) - (eval (list noexpand62 x2520)))) - (local-eval-hook134 (lambda (x2519) - (eval (list noexpand62 x2519)))) - (define-top-level-value-hook135 (lambda (sym2518 val2517) - (top-level-eval-hook133 - (list - 'define - sym2518 - (list 'quote val2517))))) - (error-hook136 (lambda (who2516 why2515 what2514) - (error who2516 '"~a ~s" why2515 what2514))) - (put-cte-hook137 (lambda (symbol2513 val2512) - ($sc-put-cte symbol2513 val2512 '*top*))) - (get-global-definition-hook138 (lambda (symbol2511) - (getprop - symbol2511 - '*sc-expander*))) - (put-global-definition-hook139 (lambda (symbol2510 x2509) - (if (not x2509) - (remprop - symbol2510 - '*sc-expander*) - (putprop - symbol2510 - '*sc-expander* - x2509)))) - (read-only-binding?140 (lambda (symbol2508) '#f)) - (get-import-binding141 (lambda (symbol2507 token2506) - (getprop symbol2507 token2506))) - (update-import-binding!142 (lambda (symbol2504 token2503 - p2502) - ((lambda (x2505) - (if (not x2505) - (remprop - symbol2504 - token2503) - (putprop - symbol2504 - token2503 - x2505))) - (p2502 - (get-import-binding141 - symbol2504 - token2503))))) - (generate-id143 ((lambda (digits2488) - ((lambda (base2490 session-key2489) - (letrec ((make-digit2491 (lambda (x2501) - (string-ref - digits2488 - x2501))) - (fmt2492 (lambda (n2495) - ((letrec ((fmt2496 (lambda (n2498 - a2497) - (if (< n2498 - base2490) - (list->string - (cons - (make-digit2491 - n2498) - a2497)) - ((lambda (r2500 - rest2499) - (fmt2496 - rest2499 - (cons - (make-digit2491 - r2500) - a2497))) - (modulo - n2498 - base2490) - (quotient - n2498 - base2490)))))) - fmt2496) - n2495 - '())))) - ((lambda (n2493) - (lambda (name2494) - (begin - (set! n2493 (+ n2493 '1)) - (string->symbol - (string-append - session-key2489 - (fmt2492 n2493)))))) - '-1))) - (string-length digits2488) - '"_")) - '"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-")) - (built-lambda?217 (lambda (x2487) - (if (pair? x2487) - (eq? (car x2487) 'lambda) - '#f))) - (build-sequence235 (lambda (ae2484 exps2483) - ((letrec ((loop2485 (lambda (exps2486) - (if (null? - (cdr exps2486)) - (car exps2486) - (if (equal? - (car exps2486) - '(void)) - (loop2485 - (cdr exps2486)) - (cons - 'begin - exps2486)))))) - loop2485) - exps2483))) - (build-letrec236 (lambda (ae2482 vars2481 val-exps2480 - body-exp2479) - (if (null? vars2481) - body-exp2479 - (list - 'letrec - (map list vars2481 val-exps2480) - body-exp2479)))) - (build-body237 (lambda (ae2478 vars2477 val-exps2476 - body-exp2475) - (build-letrec236 - ae2478 - vars2477 - val-exps2476 - body-exp2475))) - (build-top-module238 (lambda (ae2463 types2462 vars2461 - val-exps2460 body-exp2459) - (call-with-values - (lambda () - ((letrec ((f2467 (lambda (types2469 - vars2468) - (if (null? - types2469) - (values - '() - '() - '()) - ((lambda (var2470) - (call-with-values - (lambda () - (f2467 - (cdr types2469) - (cdr vars2468))) - (lambda (vars2473 - defns2472 - sets2471) - (if (eq? (car types2469) - 'global) - ((lambda (x2474) - (values - (cons - x2474 - vars2473) - (cons - (list - 'define - var2470 - (chi-void518)) - defns2472) - (cons - (list - 'set! - var2470 - x2474) - sets2471))) - (gensym)) - (values - (cons - var2470 - vars2473) - defns2472 - sets2471))))) - (car vars2468)))))) - f2467) - types2462 - vars2461)) - (lambda (vars2466 defns2465 sets2464) - (if (null? defns2465) - (build-letrec236 - ae2463 - vars2466 - val-exps2460 - body-exp2459) - (build-sequence235 - '#f - (append - defns2465 - (list - (build-letrec236 - ae2463 - vars2466 - val-exps2460 - (build-sequence235 - '#f - (append - sets2464 - (list - body-exp2459)))))))))))) - (sanitize-binding271 (lambda (b2455) - (if (procedure? b2455) - (cons 'macro b2455) - (if (binding?285 b2455) - (if ((lambda (t2456) - (if (memv - t2456 - '(core - macro - macro! - deferred)) - (procedure? - (binding-value282 - b2455)) - (if (memv - t2456 - '($module)) - (interface?452 - (binding-value282 - b2455)) - (if (memv - t2456 - '(lexical)) - '#f - (if (memv - t2456 - '(global - meta-variable)) - (symbol? - (binding-value282 - b2455)) - (if (memv - t2456 - '(syntax)) - ((lambda (x2457) - (if (pair? - x2457) - (if '#f - ((lambda (n2458) - (if (integer? - n2458) - (if (exact? - n2458) - (>= n2458 - '0) - '#f) - '#f)) - (cdr x2457)) - '#f) - '#f)) - (binding-value282 - b2455)) - (if (memv - t2456 - '(begin - define - define-syntax - set! - $module-key - $import - eval-when - meta)) - (null? - (binding-value282 - b2455)) - (if (memv - t2456 - '(local-syntax)) - (boolean? - (binding-value282 - b2455)) - (if (memv - t2456 - '(displaced-lexical)) - (eq? (binding-value282 - b2455) - '#f) - '#t))))))))) - (binding-type281 b2455)) - b2455 - '#f) - '#f)))) - (binding-type281 car) - (binding-value282 cdr) - (set-binding-type!283 set-car!) - (set-binding-value!284 set-cdr!) - (binding?285 (lambda (x2454) - (if (pair? x2454) (symbol? (car x2454)) '#f))) - (extend-env295 (lambda (label2453 binding2452 r2451) - (cons (cons label2453 binding2452) r2451))) - (extend-env*296 (lambda (labels2450 bindings2449 r2448) - (if (null? labels2450) - r2448 - (extend-env*296 - (cdr labels2450) - (cdr bindings2449) - (extend-env295 - (car labels2450) - (car bindings2449) - r2448))))) - (extend-var-env*297 (lambda (labels2447 vars2446 r2445) - (if (null? labels2447) - r2445 - (extend-var-env*297 - (cdr labels2447) - (cdr vars2446) - (extend-env295 - (car labels2447) - (cons 'lexical (car vars2446)) - r2445))))) - (displaced-lexical?298 (lambda (id2442 r2441) - ((lambda (n2443) - (if n2443 - ((lambda (b2444) - (eq? (binding-type281 b2444) - 'displaced-lexical)) - (lookup301 n2443 r2441)) - '#f)) - (id-var-name434 id2442 '(()))))) - (displaced-lexical-error299 (lambda (id2440) - (syntax-error - id2440 - (if (id-var-name434 - id2440 - '(())) - '"identifier out of context" - '"identifier not visible")))) - (lookup*300 (lambda (x2437 r2436) - ((lambda (t2438) - (if t2438 - (cdr t2438) - (if (symbol? x2437) - ((lambda (t2439) - (if t2439 - t2439 - (cons 'global x2437))) - (get-global-definition-hook138 - x2437)) - '(displaced-lexical . #f)))) - (assq x2437 r2436)))) - (lookup301 (lambda (x2431 r2430) - (letrec ((whack-binding!2432 (lambda (b2435 - *b2434) - (begin - (set-binding-type!283 - b2435 - (binding-type281 - *b2434)) - (set-binding-value!284 - b2435 - (binding-value282 - *b2434)))))) - ((lambda (b2433) - (begin - (if (eq? (binding-type281 b2433) 'deferred) - (whack-binding!2432 - b2433 - (make-transformer-binding302 - ((binding-value282 b2433)))) - (void)) - b2433)) - (lookup*300 x2431 r2430))))) - (make-transformer-binding302 (lambda (b2428) - ((lambda (t2429) - (if t2429 - t2429 - (syntax-error - b2428 - '"invalid transformer"))) - (sanitize-binding271 b2428)))) - (defer-or-eval-transformer303 (lambda (eval2427 x2426) - (if (built-lambda?217 x2426) - (cons - 'deferred - (lambda () - (eval2427 x2426))) - (make-transformer-binding302 - (eval2427 x2426))))) - (global-extend304 (lambda (type2425 sym2424 val2423) - (put-cte-hook137 - sym2424 - (cons type2425 val2423)))) - (nonsymbol-id?305 (lambda (x2421) - (if (syntax-object?64 x2421) - (symbol? - ((lambda (e2422) - (if (annotation?132 e2422) - (annotation-expression e2422) - e2422)) - (syntax-object-expression65 - x2421))) - '#f))) - (id?306 (lambda (x2419) - (if (symbol? x2419) - '#t - (if (syntax-object?64 x2419) - (symbol? - ((lambda (e2420) - (if (annotation?132 e2420) - (annotation-expression e2420) - e2420)) - (syntax-object-expression65 x2419))) - (if (annotation?132 x2419) - (symbol? (annotation-expression x2419)) - '#f))))) - (id-marks312 (lambda (id2418) - (if (syntax-object?64 id2418) - (wrap-marks316 - (syntax-object-wrap66 id2418)) - (wrap-marks316 '((top)))))) - (id-subst313 (lambda (id2417) - (if (syntax-object?64 id2417) - (wrap-subst317 - (syntax-object-wrap66 id2417)) - (wrap-marks316 '((top)))))) - (id-sym-name&marks314 (lambda (x2414 w2413) - (if (syntax-object?64 x2414) - (values - ((lambda (e2415) - (if (annotation?132 e2415) - (annotation-expression - e2415) - e2415)) - (syntax-object-expression65 - x2414)) - (join-marks423 - (wrap-marks316 w2413) - (wrap-marks316 - (syntax-object-wrap66 - x2414)))) - (values - ((lambda (e2416) - (if (annotation?132 e2416) - (annotation-expression - e2416) - e2416)) - x2414) - (wrap-marks316 w2413))))) - (make-wrap315 cons) - (wrap-marks316 car) - (wrap-subst317 cdr) - (make-indirect-label355 (lambda (label2412) - (vector 'indirect-label label2412))) - (indirect-label?356 (lambda (x2411) - (if (vector? x2411) - (if (= (vector-length x2411) '2) - (eq? (vector-ref x2411 '0) - 'indirect-label) + (letrec* + ((lexical-noexpand-56881 '"noexpand") + (lexical-make-syntax-object-56883 + (lambda (lexical-expression-57346 lexical-wrap-57347) + (vector + 'syntax-object + lexical-expression-57346 + lexical-wrap-57347))) + (lexical-syntax-object?-56884 + (lambda (lexical-x-57348) + (if (vector? lexical-x-57348) + (if (= (vector-length lexical-x-57348) '3) + (eq? (vector-ref lexical-x-57348 '0) + 'syntax-object) + '#f) + '#f))) + (lexical-syntax-object-expression-56885 + (lambda (lexical-x-57349) + (vector-ref lexical-x-57349 '1))) + (lexical-syntax-object-wrap-56886 + (lambda (lexical-x-57350) + (vector-ref lexical-x-57350 '2))) + (lexical-set-syntax-object-expression!-56887 + (lambda (lexical-x-57351 lexical-update-57352) + (vector-set! + lexical-x-57351 + '1 + lexical-update-57352))) + (lexical-set-syntax-object-wrap!-56888 + (lambda (lexical-x-57353 lexical-update-57354) + (vector-set! + lexical-x-57353 + '2 + lexical-update-57354))) + (lexical-annotation?-56952 + (lambda (lexical-x-57355) '#f)) + (lexical-top-level-eval-hook-56953 + (lambda (lexical-x-57356) + (eval (list lexical-noexpand-56881 lexical-x-57356)))) + (lexical-local-eval-hook-56954 + (lambda (lexical-x-57357) + (eval (list lexical-noexpand-56881 lexical-x-57357)))) + (lexical-define-top-level-value-hook-56955 + (lambda (lexical-sym-57358 lexical-val-57359) + (lexical-top-level-eval-hook-56953 + (list 'define + lexical-sym-57358 + (list 'quote lexical-val-57359))))) + (lexical-error-hook-56956 + (lambda (lexical-who-57360 + lexical-why-57361 + lexical-what-57362) + (error lexical-who-57360 + '"~a ~s" + lexical-why-57361 + lexical-what-57362))) + (lexical-put-cte-hook-56957 + (lambda (lexical-symbol-57363 lexical-val-57364) + ($sc-put-cte + lexical-symbol-57363 + lexical-val-57364 + '*top*))) + (lexical-get-global-definition-hook-56958 + (lambda (lexical-symbol-57365) + (getprop lexical-symbol-57365 '*sc-expander*))) + (lexical-put-global-definition-hook-56959 + (lambda (lexical-symbol-57366 lexical-x-57367) + (if (not lexical-x-57367) + (remprop lexical-symbol-57366 '*sc-expander*) + (putprop + lexical-symbol-57366 + '*sc-expander* + lexical-x-57367)))) + (lexical-read-only-binding?-56960 + (lambda (lexical-symbol-57368) '#f)) + (lexical-get-import-binding-56961 + (lambda (lexical-symbol-57369 lexical-token-57370) + (getprop + lexical-symbol-57369 + lexical-token-57370))) + (lexical-update-import-binding!-56962 + (lambda (lexical-symbol-57371 + lexical-token-57372 + lexical-p-57373) + ((lambda (lexical-x-57374) + (if (not lexical-x-57374) + (remprop + lexical-symbol-57371 + lexical-token-57372) + (putprop + lexical-symbol-57371 + lexical-token-57372 + lexical-x-57374))) + (lexical-p-57373 + (lexical-get-import-binding-56961 + lexical-symbol-57371 + lexical-token-57372))))) + (lexical-generate-id-56963 + ((lambda (lexical-digits-57375) + ((lambda (lexical-base-57376 lexical-session-key-57377) + (letrec* + ((lexical-make-digit-57378 + (lambda (lexical-x-57380) + (string-ref lexical-digits-57375 lexical-x-57380))) + (lexical-fmt-57379 + (lambda (lexical-n-57381) + ((letrec ((lexical-fmt-57382 + (lambda (lexical-n-57383 lexical-a-57384) + (if (< lexical-n-57383 lexical-base-57376) + (list->string + (cons (lexical-make-digit-57378 + lexical-n-57383) + lexical-a-57384)) + ((lambda (lexical-r-57385 + lexical-rest-57386) + (lexical-fmt-57382 + lexical-rest-57386 + (cons (lexical-make-digit-57378 + lexical-r-57385) + lexical-a-57384))) + (modulo + lexical-n-57383 + lexical-base-57376) + (quotient + lexical-n-57383 + lexical-base-57376)))))) + lexical-fmt-57382) + lexical-n-57381 + '())))) + ((lambda (lexical-n-57387) + (lambda (lexical-name-57388) + (begin + (set! lexical-n-57387 (+ lexical-n-57387 '1)) + (string->symbol + (string-append + lexical-session-key-57377 + (lexical-fmt-57379 lexical-n-57387)))))) + '-1))) + (string-length lexical-digits-57375) + '"_")) + '"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-")) + (lexical-built-lambda?-57037 + (lambda (lexical-x-57389) + (if (pair? lexical-x-57389) + (eq? (car lexical-x-57389) 'lambda) + '#f))) + (lexical-build-sequence-57055 + (lambda (lexical-ae-57390 lexical-exps-57391) + ((letrec ((lexical-loop-57392 + (lambda (lexical-exps-57393) + (if (null? (cdr lexical-exps-57393)) + (car lexical-exps-57393) + (if (equal? (car lexical-exps-57393) '(void)) + (lexical-loop-57392 (cdr lexical-exps-57393)) + (cons 'begin lexical-exps-57393)))))) + lexical-loop-57392) + lexical-exps-57391))) + (lexical-build-letrec-57056 + (lambda (lexical-ae-57394 + lexical-vars-57395 + lexical-val-exps-57396 + lexical-body-exp-57397) + (if (null? lexical-vars-57395) + lexical-body-exp-57397 + (list 'letrec + (map list + lexical-vars-57395 + lexical-val-exps-57396) + lexical-body-exp-57397)))) + (lexical-build-letrec*-57057 + (lambda (lexical-ae-57398 + lexical-vars-57399 + lexical-val-exps-57400 + lexical-body-exp-57401) + (if (null? lexical-vars-57399) + lexical-body-exp-57401 + (list 'letrec* + (map list + lexical-vars-57399 + lexical-val-exps-57400) + lexical-body-exp-57401)))) + (lexical-build-body-57058 + (lambda (lexical-ae-57402 + lexical-vars-57403 + lexical-val-exps-57404 + lexical-body-exp-57405) + (lexical-build-letrec*-57057 + lexical-ae-57402 + lexical-vars-57403 + lexical-val-exps-57404 + lexical-body-exp-57405))) + (lexical-build-top-module-57059 + (lambda (lexical-ae-57406 + lexical-types-57407 + lexical-vars-57408 + lexical-val-exps-57409 + lexical-body-exp-57410) + (call-with-values + (lambda () + ((letrec ((lexical-f-57411 + (lambda (lexical-types-57412 lexical-vars-57413) + (if (null? lexical-types-57412) + (values '() '() '()) + ((lambda (lexical-var-57414) + (call-with-values + (lambda () + (lexical-f-57411 + (cdr lexical-types-57412) + (cdr lexical-vars-57413))) + (lambda (lexical-vars-57415 + lexical-defns-57416 + lexical-sets-57417) + (if (eq? (car lexical-types-57412) + 'global) + ((lambda (lexical-x-57418) + (values + (cons lexical-x-57418 + lexical-vars-57415) + (cons (list 'define + lexical-var-57414 + (lexical-chi-void-57339)) + lexical-defns-57416) + (cons (list 'set! + lexical-var-57414 + lexical-x-57418) + lexical-sets-57417))) + (gensym lexical-var-57414)) + (values + (cons lexical-var-57414 + lexical-vars-57415) + lexical-defns-57416 + lexical-sets-57417))))) + (car lexical-vars-57413)))))) + lexical-f-57411) + lexical-types-57407 + lexical-vars-57408)) + (lambda (lexical-vars-57419 + lexical-defns-57420 + lexical-sets-57421) + (if (null? lexical-defns-57420) + (lexical-build-letrec-57056 + lexical-ae-57406 + lexical-vars-57419 + lexical-val-exps-57409 + lexical-body-exp-57410) + (lexical-build-sequence-57055 + '#f + (append + lexical-defns-57420 + (list (lexical-build-letrec-57056 + lexical-ae-57406 + lexical-vars-57419 + lexical-val-exps-57409 + (lexical-build-sequence-57055 + '#f + (append + lexical-sets-57421 + (list lexical-body-exp-57410)))))))))))) + (lexical-sanitize-binding-57092 + (lambda (lexical-b-57422) + (if (procedure? lexical-b-57422) + (cons 'macro lexical-b-57422) + (if (lexical-binding?-57106 lexical-b-57422) + (if ((lambda (lexical-t-57423) + (if (memv lexical-t-57423 + '(core macro macro! deferred)) + (procedure? + (lexical-binding-value-57103 lexical-b-57422)) + (if (memv lexical-t-57423 '($module)) + (lexical-interface?-57273 + (lexical-binding-value-57103 lexical-b-57422)) + (if (memv lexical-t-57423 '(lexical)) + '#f + (if (memv lexical-t-57423 '(global meta-variable)) + (symbol? + (lexical-binding-value-57103 lexical-b-57422)) + (if (memv lexical-t-57423 '(syntax)) + ((lambda (lexical-x-57424) + (if (pair? lexical-x-57424) + (if '#f + ((lambda (lexical-n-57425) + (if (integer? lexical-n-57425) + (if (exact? lexical-n-57425) + (>= lexical-n-57425 '0) + '#f) + '#f)) + (cdr lexical-x-57424)) + '#f) + '#f)) + (lexical-binding-value-57103 lexical-b-57422)) + (if (memv lexical-t-57423 + '(begin + define + define-syntax + set! + $module-key + $import + eval-when + meta)) + (null? (lexical-binding-value-57103 + lexical-b-57422)) + (if (memv lexical-t-57423 '(local-syntax)) + (boolean? + (lexical-binding-value-57103 + lexical-b-57422)) + (if (memv lexical-t-57423 + '(displaced-lexical)) + (eq? (lexical-binding-value-57103 + lexical-b-57422) '#f) - '#f))) - (indirect-label-label357 (lambda (x2410) - (vector-ref x2410 '1))) - (set-indirect-label-label!358 (lambda (x2409 update2408) - (vector-set! - x2409 - '1 - update2408))) - (gen-indirect-label359 (lambda () - (make-indirect-label355 - (gen-label362)))) - (get-indirect-label360 (lambda (x2407) - (indirect-label-label357 x2407))) - (set-indirect-label!361 (lambda (x2406 v2405) - (set-indirect-label-label!358 - x2406 - v2405))) - (gen-label362 (lambda () (string '#\i))) - (label?363 (lambda (x2402) - ((lambda (t2403) - (if t2403 - t2403 - ((lambda (t2404) - (if t2404 - t2404 - (indirect-label?356 x2402))) - (symbol? x2402)))) - (string? x2402)))) - (gen-labels364 (lambda (ls2401) - (if (null? ls2401) - '() - (cons - (gen-label362) - (gen-labels364 (cdr ls2401)))))) - (make-ribcage365 (lambda (symnames2400 marks2399 labels2398) - (vector - 'ribcage - symnames2400 - marks2399 - labels2398))) - (ribcage?366 (lambda (x2397) - (if (vector? x2397) - (if (= (vector-length x2397) '4) - (eq? (vector-ref x2397 '0) 'ribcage) + '#t))))))))) + (lexical-binding-type-57102 lexical-b-57422)) + lexical-b-57422 + '#f) + '#f)))) + (lexical-binding-type-57102 car) + (lexical-binding-value-57103 cdr) + (lexical-set-binding-type!-57104 set-car!) + (lexical-set-binding-value!-57105 set-cdr!) + (lexical-binding?-57106 + (lambda (lexical-x-57426) + (if (pair? lexical-x-57426) + (symbol? (car lexical-x-57426)) + '#f))) + (lexical-extend-env-57116 + (lambda (lexical-label-57427 + lexical-binding-57428 + lexical-r-57429) + (cons (cons lexical-label-57427 lexical-binding-57428) + lexical-r-57429))) + (lexical-extend-env*-57117 + (lambda (lexical-labels-57430 + lexical-bindings-57431 + lexical-r-57432) + (if (null? lexical-labels-57430) + lexical-r-57432 + (lexical-extend-env*-57117 + (cdr lexical-labels-57430) + (cdr lexical-bindings-57431) + (lexical-extend-env-57116 + (car lexical-labels-57430) + (car lexical-bindings-57431) + lexical-r-57432))))) + (lexical-extend-var-env*-57118 + (lambda (lexical-labels-57433 + lexical-vars-57434 + lexical-r-57435) + (if (null? lexical-labels-57433) + lexical-r-57435 + (lexical-extend-var-env*-57118 + (cdr lexical-labels-57433) + (cdr lexical-vars-57434) + (lexical-extend-env-57116 + (car lexical-labels-57433) + (cons 'lexical (car lexical-vars-57434)) + lexical-r-57435))))) + (lexical-displaced-lexical?-57119 + (lambda (lexical-id-57436 lexical-r-57437) + ((lambda (lexical-n-57438) + (if lexical-n-57438 + ((lambda (lexical-b-57439) + (eq? (lexical-binding-type-57102 lexical-b-57439) + 'displaced-lexical)) + (lexical-lookup-57122 + lexical-n-57438 + lexical-r-57437)) + '#f)) + (lexical-id-var-name-57255 + lexical-id-57436 + '(()))))) + (lexical-displaced-lexical-error-57120 + (lambda (lexical-id-57440) + (syntax-error + lexical-id-57440 + (if (lexical-id-var-name-57255 + lexical-id-57440 + '(())) + '"identifier out of context" + '"identifier not visible")))) + (lexical-lookup*-57121 + (lambda (lexical-x-57441 lexical-r-57442) + ((lambda (lexical-t-57443) + (if lexical-t-57443 + (cdr lexical-t-57443) + (if (symbol? lexical-x-57441) + ((lambda (lexical-t-57444) + (if lexical-t-57444 + lexical-t-57444 + (cons 'global lexical-x-57441))) + (lexical-get-global-definition-hook-56958 + lexical-x-57441)) + '(displaced-lexical . #f)))) + (assq lexical-x-57441 lexical-r-57442)))) + (lexical-lookup-57122 + (lambda (lexical-x-57445 lexical-r-57446) + (letrec* + ((lexical-whack-binding!-57447 + (lambda (lexical-b-57448 lexical-*b-57449) + (begin + (lexical-set-binding-type!-57104 + lexical-b-57448 + (lexical-binding-type-57102 lexical-*b-57449)) + (lexical-set-binding-value!-57105 + lexical-b-57448 + (lexical-binding-value-57103 lexical-*b-57449)))))) + ((lambda (lexical-b-57450) + (begin + (if (eq? (lexical-binding-type-57102 lexical-b-57450) + 'deferred) + (lexical-whack-binding!-57447 + lexical-b-57450 + (lexical-make-transformer-binding-57123 + ((lexical-binding-value-57103 lexical-b-57450)))) + (void)) + lexical-b-57450)) + (lexical-lookup*-57121 + lexical-x-57445 + lexical-r-57446))))) + (lexical-make-transformer-binding-57123 + (lambda (lexical-b-57451) + ((lambda (lexical-t-57452) + (if lexical-t-57452 + lexical-t-57452 + (syntax-error + lexical-b-57451 + '"invalid transformer"))) + (lexical-sanitize-binding-57092 lexical-b-57451)))) + (lexical-defer-or-eval-transformer-57124 + (lambda (lexical-eval-57453 lexical-x-57454) + (if (lexical-built-lambda?-57037 lexical-x-57454) + (cons 'deferred + (lambda () (lexical-eval-57453 lexical-x-57454))) + (lexical-make-transformer-binding-57123 + (lexical-eval-57453 lexical-x-57454))))) + (lexical-global-extend-57125 + (lambda (lexical-type-57455 + lexical-sym-57456 + lexical-val-57457) + (lexical-put-cte-hook-56957 + lexical-sym-57456 + (cons lexical-type-57455 lexical-val-57457)))) + (lexical-nonsymbol-id?-57126 + (lambda (lexical-x-57458) + (if (lexical-syntax-object?-56884 lexical-x-57458) + (symbol? + ((lambda (lexical-e-57459) + (if (lexical-annotation?-56952 lexical-e-57459) + (annotation-expression lexical-e-57459) + lexical-e-57459)) + (lexical-syntax-object-expression-56885 + lexical-x-57458))) + '#f))) + (lexical-id?-57127 + (lambda (lexical-x-57460) + (if (symbol? lexical-x-57460) + '#t + (if (lexical-syntax-object?-56884 lexical-x-57460) + (symbol? + ((lambda (lexical-e-57461) + (if (lexical-annotation?-56952 lexical-e-57461) + (annotation-expression lexical-e-57461) + lexical-e-57461)) + (lexical-syntax-object-expression-56885 + lexical-x-57460))) + (if (lexical-annotation?-56952 lexical-x-57460) + (symbol? (annotation-expression lexical-x-57460)) + '#f))))) + (lexical-id-marks-57133 + (lambda (lexical-id-57462) + (if (lexical-syntax-object?-56884 lexical-id-57462) + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-57462)) + (lexical-wrap-marks-57137 '((top)))))) + (lexical-id-subst-57134 + (lambda (lexical-id-57463) + (if (lexical-syntax-object?-56884 lexical-id-57463) + (lexical-wrap-subst-57138 + (lexical-syntax-object-wrap-56886 + lexical-id-57463)) + (lexical-wrap-marks-57137 '((top)))))) + (lexical-id-sym-name&marks-57135 + (lambda (lexical-x-57464 lexical-w-57465) + (if (lexical-syntax-object?-56884 lexical-x-57464) + (values + ((lambda (lexical-e-57466) + (if (lexical-annotation?-56952 lexical-e-57466) + (annotation-expression lexical-e-57466) + lexical-e-57466)) + (lexical-syntax-object-expression-56885 + lexical-x-57464)) + (lexical-join-marks-57244 + (lexical-wrap-marks-57137 lexical-w-57465) + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-x-57464)))) + (values + ((lambda (lexical-e-57467) + (if (lexical-annotation?-56952 lexical-e-57467) + (annotation-expression lexical-e-57467) + lexical-e-57467)) + lexical-x-57464) + (lexical-wrap-marks-57137 lexical-w-57465))))) + (lexical-make-wrap-57136 cons) + (lexical-wrap-marks-57137 car) + (lexical-wrap-subst-57138 cdr) + (lexical-make-indirect-label-57176 + (lambda (lexical-label-57468) + (vector 'indirect-label lexical-label-57468))) + (lexical-indirect-label?-57177 + (lambda (lexical-x-57469) + (if (vector? lexical-x-57469) + (if (= (vector-length lexical-x-57469) '2) + (eq? (vector-ref lexical-x-57469 '0) + 'indirect-label) + '#f) + '#f))) + (lexical-indirect-label-label-57178 + (lambda (lexical-x-57470) + (vector-ref lexical-x-57470 '1))) + (lexical-set-indirect-label-label!-57179 + (lambda (lexical-x-57471 lexical-update-57472) + (vector-set! + lexical-x-57471 + '1 + lexical-update-57472))) + (lexical-gen-indirect-label-57180 + (lambda () + (lexical-make-indirect-label-57176 + (lexical-gen-label-57183)))) + (lexical-get-indirect-label-57181 + (lambda (lexical-x-57473) + (lexical-indirect-label-label-57178 + lexical-x-57473))) + (lexical-set-indirect-label!-57182 + (lambda (lexical-x-57474 lexical-v-57475) + (lexical-set-indirect-label-label!-57179 + lexical-x-57474 + lexical-v-57475))) + (lexical-gen-label-57183 + (lambda () (string '#\i))) + (lexical-label?-57184 + (lambda (lexical-x-57476) + ((lambda (lexical-t-57477) + (if lexical-t-57477 + lexical-t-57477 + ((lambda (lexical-t-57478) + (if lexical-t-57478 + lexical-t-57478 + (lexical-indirect-label?-57177 lexical-x-57476))) + (symbol? lexical-x-57476)))) + (string? lexical-x-57476)))) + (lexical-gen-labels-57185 + (lambda (lexical-ls-57479) + (if (null? lexical-ls-57479) + '() + (cons (lexical-gen-label-57183) + (lexical-gen-labels-57185 (cdr lexical-ls-57479)))))) + (lexical-make-ribcage-57186 + (lambda (lexical-symnames-57480 + lexical-marks-57481 + lexical-labels-57482) + (vector + 'ribcage + lexical-symnames-57480 + lexical-marks-57481 + lexical-labels-57482))) + (lexical-ribcage?-57187 + (lambda (lexical-x-57483) + (if (vector? lexical-x-57483) + (if (= (vector-length lexical-x-57483) '4) + (eq? (vector-ref lexical-x-57483 '0) 'ribcage) + '#f) + '#f))) + (lexical-ribcage-symnames-57188 + (lambda (lexical-x-57484) + (vector-ref lexical-x-57484 '1))) + (lexical-ribcage-marks-57189 + (lambda (lexical-x-57485) + (vector-ref lexical-x-57485 '2))) + (lexical-ribcage-labels-57190 + (lambda (lexical-x-57486) + (vector-ref lexical-x-57486 '3))) + (lexical-set-ribcage-symnames!-57191 + (lambda (lexical-x-57487 lexical-update-57488) + (vector-set! + lexical-x-57487 + '1 + lexical-update-57488))) + (lexical-set-ribcage-marks!-57192 + (lambda (lexical-x-57489 lexical-update-57490) + (vector-set! + lexical-x-57489 + '2 + lexical-update-57490))) + (lexical-set-ribcage-labels!-57193 + (lambda (lexical-x-57491 lexical-update-57492) + (vector-set! + lexical-x-57491 + '3 + lexical-update-57492))) + (lexical-make-top-ribcage-57194 + (lambda (lexical-key-57493 lexical-mutable?-57494) + (vector + 'top-ribcage + lexical-key-57493 + lexical-mutable?-57494))) + (lexical-top-ribcage?-57195 + (lambda (lexical-x-57495) + (if (vector? lexical-x-57495) + (if (= (vector-length lexical-x-57495) '3) + (eq? (vector-ref lexical-x-57495 '0) + 'top-ribcage) + '#f) + '#f))) + (lexical-top-ribcage-key-57196 + (lambda (lexical-x-57496) + (vector-ref lexical-x-57496 '1))) + (lexical-top-ribcage-mutable?-57197 + (lambda (lexical-x-57497) + (vector-ref lexical-x-57497 '2))) + (lexical-set-top-ribcage-key!-57198 + (lambda (lexical-x-57498 lexical-update-57499) + (vector-set! + lexical-x-57498 + '1 + lexical-update-57499))) + (lexical-set-top-ribcage-mutable?!-57199 + (lambda (lexical-x-57500 lexical-update-57501) + (vector-set! + lexical-x-57500 + '2 + lexical-update-57501))) + (lexical-make-import-interface-57200 + (lambda (lexical-interface-57502 lexical-new-marks-57503) + (vector + 'import-interface + lexical-interface-57502 + lexical-new-marks-57503))) + (lexical-import-interface?-57201 + (lambda (lexical-x-57504) + (if (vector? lexical-x-57504) + (if (= (vector-length lexical-x-57504) '3) + (eq? (vector-ref lexical-x-57504 '0) + 'import-interface) + '#f) + '#f))) + (lexical-import-interface-interface-57202 + (lambda (lexical-x-57505) + (vector-ref lexical-x-57505 '1))) + (lexical-import-interface-new-marks-57203 + (lambda (lexical-x-57506) + (vector-ref lexical-x-57506 '2))) + (lexical-set-import-interface-interface!-57204 + (lambda (lexical-x-57507 lexical-update-57508) + (vector-set! + lexical-x-57507 + '1 + lexical-update-57508))) + (lexical-set-import-interface-new-marks!-57205 + (lambda (lexical-x-57509 lexical-update-57510) + (vector-set! + lexical-x-57509 + '2 + lexical-update-57510))) + (lexical-make-env-57206 + (lambda (lexical-top-ribcage-57511 lexical-wrap-57512) + (vector + 'env + lexical-top-ribcage-57511 + lexical-wrap-57512))) + (lexical-env?-57207 + (lambda (lexical-x-57513) + (if (vector? lexical-x-57513) + (if (= (vector-length lexical-x-57513) '3) + (eq? (vector-ref lexical-x-57513 '0) 'env) + '#f) + '#f))) + (lexical-env-top-ribcage-57208 + (lambda (lexical-x-57514) + (vector-ref lexical-x-57514 '1))) + (lexical-env-wrap-57209 + (lambda (lexical-x-57515) + (vector-ref lexical-x-57515 '2))) + (lexical-set-env-top-ribcage!-57210 + (lambda (lexical-x-57516 lexical-update-57517) + (vector-set! + lexical-x-57516 + '1 + lexical-update-57517))) + (lexical-set-env-wrap!-57211 + (lambda (lexical-x-57518 lexical-update-57519) + (vector-set! + lexical-x-57518 + '2 + lexical-update-57519))) + (lexical-anti-mark-57221 + (lambda (lexical-w-57520) + (lexical-make-wrap-57136 + (cons '#f + (lexical-wrap-marks-57137 lexical-w-57520)) + (cons 'shift + (lexical-wrap-subst-57138 lexical-w-57520))))) + (lexical-barrier-marker-57226 '#f) + (lexical-extend-ribcage!-57231 + (lambda (lexical-ribcage-57521 + lexical-id-57522 + lexical-label-57523) + (begin + (lexical-set-ribcage-symnames!-57191 + lexical-ribcage-57521 + (cons ((lambda (lexical-e-57524) + (if (lexical-annotation?-56952 lexical-e-57524) + (annotation-expression lexical-e-57524) + lexical-e-57524)) + (lexical-syntax-object-expression-56885 + lexical-id-57522)) + (lexical-ribcage-symnames-57188 + lexical-ribcage-57521))) + (lexical-set-ribcage-marks!-57192 + lexical-ribcage-57521 + (cons (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-57522)) + (lexical-ribcage-marks-57189 + lexical-ribcage-57521))) + (lexical-set-ribcage-labels!-57193 + lexical-ribcage-57521 + (cons lexical-label-57523 + (lexical-ribcage-labels-57190 + lexical-ribcage-57521)))))) + (lexical-import-extend-ribcage!-57232 + (lambda (lexical-ribcage-57525 + lexical-new-marks-57526 + lexical-id-57527 + lexical-label-57528) + (begin + (lexical-set-ribcage-symnames!-57191 + lexical-ribcage-57525 + (cons ((lambda (lexical-e-57529) + (if (lexical-annotation?-56952 lexical-e-57529) + (annotation-expression lexical-e-57529) + lexical-e-57529)) + (lexical-syntax-object-expression-56885 + lexical-id-57527)) + (lexical-ribcage-symnames-57188 + lexical-ribcage-57525))) + (lexical-set-ribcage-marks!-57192 + lexical-ribcage-57525 + (cons (lexical-join-marks-57244 + lexical-new-marks-57526 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-57527))) + (lexical-ribcage-marks-57189 + lexical-ribcage-57525))) + (lexical-set-ribcage-labels!-57193 + lexical-ribcage-57525 + (cons lexical-label-57528 + (lexical-ribcage-labels-57190 + lexical-ribcage-57525)))))) + (lexical-extend-ribcage-barrier!-57233 + (lambda (lexical-ribcage-57530 lexical-killer-id-57531) + (lexical-extend-ribcage-barrier-help!-57234 + lexical-ribcage-57530 + (lexical-syntax-object-wrap-56886 + lexical-killer-id-57531)))) + (lexical-extend-ribcage-barrier-help!-57234 + (lambda (lexical-ribcage-57532 lexical-wrap-57533) + (begin + (lexical-set-ribcage-symnames!-57191 + lexical-ribcage-57532 + (cons lexical-barrier-marker-57226 + (lexical-ribcage-symnames-57188 + lexical-ribcage-57532))) + (lexical-set-ribcage-marks!-57192 + lexical-ribcage-57532 + (cons (lexical-wrap-marks-57137 lexical-wrap-57533) + (lexical-ribcage-marks-57189 + lexical-ribcage-57532)))))) + (lexical-extend-ribcage-subst!-57235 + (lambda (lexical-ribcage-57534 + lexical-import-iface-57535) + (lexical-set-ribcage-symnames!-57191 + lexical-ribcage-57534 + (cons lexical-import-iface-57535 + (lexical-ribcage-symnames-57188 + lexical-ribcage-57534))))) + (lexical-lookup-import-binding-name-57236 + (lambda (lexical-sym-57536 + lexical-marks-57537 + lexical-token-57538 + lexical-new-marks-57539) + ((lambda (lexical-new-57540) + (if lexical-new-57540 + ((letrec ((lexical-f-57541 + (lambda (lexical-new-57542) + (if (pair? lexical-new-57542) + ((lambda (lexical-t-57543) + (if lexical-t-57543 + lexical-t-57543 + (lexical-f-57541 (cdr lexical-new-57542)))) + (lexical-f-57541 (car lexical-new-57542))) + (if (symbol? lexical-new-57542) + (if (lexical-same-marks?-57246 + lexical-marks-57537 + (lexical-join-marks-57244 + lexical-new-marks-57539 + (lexical-wrap-marks-57137 '((top))))) + lexical-new-57542 '#f) - '#f))) - (ribcage-symnames367 (lambda (x2396) (vector-ref x2396 '1))) - (ribcage-marks368 (lambda (x2395) (vector-ref x2395 '2))) - (ribcage-labels369 (lambda (x2394) (vector-ref x2394 '3))) - (set-ribcage-symnames!370 (lambda (x2393 update2392) - (vector-set! x2393 '1 update2392))) - (set-ribcage-marks!371 (lambda (x2391 update2390) - (vector-set! x2391 '2 update2390))) - (set-ribcage-labels!372 (lambda (x2389 update2388) - (vector-set! x2389 '3 update2388))) - (make-top-ribcage373 (lambda (key2387 mutable?2386) - (vector - 'top-ribcage - key2387 - mutable?2386))) - (top-ribcage?374 (lambda (x2385) - (if (vector? x2385) - (if (= (vector-length x2385) '3) - (eq? (vector-ref x2385 '0) - 'top-ribcage) - '#f) + (if (lexical-same-marks?-57246 + lexical-marks-57537 + (lexical-join-marks-57244 + lexical-new-marks-57539 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-new-57542)))) + lexical-new-57542 + '#f)))))) + lexical-f-57541) + lexical-new-57540) + '#f)) + (lexical-get-import-binding-56961 + lexical-sym-57536 + lexical-token-57538)))) + (lexical-store-import-binding-57237 + (lambda (lexical-id-57544 + lexical-token-57545 + lexical-new-marks-57546) + (letrec* + ((lexical-cons-id-57547 + (lambda (lexical-id-57549 lexical-x-57550) + (if (not lexical-x-57550) + lexical-id-57549 + (cons lexical-id-57549 lexical-x-57550)))) + (lexical-weed-57548 + (lambda (lexical-marks-57551 lexical-x-57552) + (if (pair? lexical-x-57552) + (if (lexical-same-marks?-57246 + (lexical-id-marks-57133 (car lexical-x-57552)) + lexical-marks-57551) + (lexical-weed-57548 + lexical-marks-57551 + (cdr lexical-x-57552)) + (lexical-cons-id-57547 + (car lexical-x-57552) + (lexical-weed-57548 + lexical-marks-57551 + (cdr lexical-x-57552)))) + (if lexical-x-57552 + (if (not (lexical-same-marks?-57246 + (lexical-id-marks-57133 lexical-x-57552) + lexical-marks-57551)) + lexical-x-57552 + '#f) + '#f))))) + ((lambda (lexical-id-57553) + ((lambda (lexical-sym-57554) + (if (not (eq? lexical-id-57553 lexical-sym-57554)) + ((lambda (lexical-marks-57555) + (lexical-update-import-binding!-56962 + lexical-sym-57554 + lexical-token-57545 + (lambda (lexical-old-binding-57556) + ((lambda (lexical-x-57557) + (lexical-cons-id-57547 + (if (lexical-same-marks?-57246 + lexical-marks-57555 + (lexical-wrap-marks-57137 '((top)))) + (lexical-resolved-id-var-name-57241 + lexical-id-57553) + lexical-id-57553) + lexical-x-57557)) + (lexical-weed-57548 + lexical-marks-57555 + lexical-old-binding-57556))))) + (lexical-id-marks-57133 lexical-id-57553)) + (void))) + ((lambda (lexical-x-57558) + ((lambda (lexical-e-57559) + (if (lexical-annotation?-56952 lexical-e-57559) + (annotation-expression lexical-e-57559) + lexical-e-57559)) + (if (lexical-syntax-object?-56884 lexical-x-57558) + (lexical-syntax-object-expression-56885 + lexical-x-57558) + lexical-x-57558))) + lexical-id-57553))) + (if (null? lexical-new-marks-57546) + lexical-id-57544 + (lexical-make-syntax-object-56883 + ((lambda (lexical-x-57560) + ((lambda (lexical-e-57561) + (if (lexical-annotation?-56952 lexical-e-57561) + (annotation-expression lexical-e-57561) + lexical-e-57561)) + (if (lexical-syntax-object?-56884 lexical-x-57560) + (lexical-syntax-object-expression-56885 + lexical-x-57560) + lexical-x-57560))) + lexical-id-57544) + (lexical-make-wrap-57136 + (lexical-join-marks-57244 + lexical-new-marks-57546 + (lexical-id-marks-57133 lexical-id-57544)) + (lexical-id-subst-57134 lexical-id-57544)))))))) + (lexical-make-binding-wrap-57238 + (lambda (lexical-ids-57562 + lexical-labels-57563 + lexical-w-57564) + (if (null? lexical-ids-57562) + lexical-w-57564 + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 lexical-w-57564) + (cons ((lambda (lexical-labelvec-57565) + ((lambda (lexical-n-57566) + ((lambda (lexical-symnamevec-57567 + lexical-marksvec-57568) + (begin + ((letrec ((lexical-f-57569 + (lambda (lexical-ids-57570 + lexical-i-57571) + (if (not (null? lexical-ids-57570)) + (call-with-values + (lambda () + (lexical-id-sym-name&marks-57135 + (car lexical-ids-57570) + lexical-w-57564)) + (lambda (lexical-symname-57572 + lexical-marks-57573) + (begin + (vector-set! + lexical-symnamevec-57567 + lexical-i-57571 + lexical-symname-57572) + (vector-set! + lexical-marksvec-57568 + lexical-i-57571 + lexical-marks-57573) + (lexical-f-57569 + (cdr lexical-ids-57570) + (+ lexical-i-57571 + '1))))) + (void))))) + lexical-f-57569) + lexical-ids-57562 + '0) + (lexical-make-ribcage-57186 + lexical-symnamevec-57567 + lexical-marksvec-57568 + lexical-labelvec-57565))) + (make-vector lexical-n-57566) + (make-vector lexical-n-57566))) + (vector-length lexical-labelvec-57565))) + (list->vector lexical-labels-57563)) + (lexical-wrap-subst-57138 lexical-w-57564)))))) + (lexical-make-resolved-id-57239 + (lambda (lexical-fromsym-57574 + lexical-marks-57575 + lexical-tosym-57576) + (lexical-make-syntax-object-56883 + lexical-fromsym-57574 + (lexical-make-wrap-57136 + lexical-marks-57575 + (list (lexical-make-ribcage-57186 + (vector lexical-fromsym-57574) + (vector lexical-marks-57575) + (vector lexical-tosym-57576))))))) + (lexical-id->resolved-id-57240 + (lambda (lexical-id-57577) + (call-with-values + (lambda () + (lexical-id-var-name&marks-57253 + lexical-id-57577 + '(()))) + (lambda (lexical-tosym-57578 lexical-marks-57579) + (begin + (if (not lexical-tosym-57578) + (syntax-error + lexical-id-57577 + '"identifier not visible for export") + (void)) + (lexical-make-resolved-id-57239 + ((lambda (lexical-x-57580) + ((lambda (lexical-e-57581) + (if (lexical-annotation?-56952 lexical-e-57581) + (annotation-expression lexical-e-57581) + lexical-e-57581)) + (if (lexical-syntax-object?-56884 lexical-x-57580) + (lexical-syntax-object-expression-56885 + lexical-x-57580) + lexical-x-57580))) + lexical-id-57577) + lexical-marks-57579 + lexical-tosym-57578)))))) + (lexical-resolved-id-var-name-57241 + (lambda (lexical-id-57582) + (vector-ref + (lexical-ribcage-labels-57190 + (car (lexical-wrap-subst-57138 + (lexical-syntax-object-wrap-56886 + lexical-id-57582)))) + '0))) + (lexical-smart-append-57242 + (lambda (lexical-m1-57583 lexical-m2-57584) + (if (null? lexical-m2-57584) + lexical-m1-57583 + (append lexical-m1-57583 lexical-m2-57584)))) + (lexical-join-wraps-57243 + (lambda (lexical-w1-57585 lexical-w2-57586) + ((lambda (lexical-m1-57587 lexical-s1-57588) + (if (null? lexical-m1-57587) + (if (null? lexical-s1-57588) + lexical-w2-57586 + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 lexical-w2-57586) + (lexical-join-subst-57245 + lexical-s1-57588 + (lexical-wrap-subst-57138 lexical-w2-57586)))) + (lexical-make-wrap-57136 + (lexical-join-marks-57244 + lexical-m1-57587 + (lexical-wrap-marks-57137 lexical-w2-57586)) + (lexical-join-subst-57245 + lexical-s1-57588 + (lexical-wrap-subst-57138 lexical-w2-57586))))) + (lexical-wrap-marks-57137 lexical-w1-57585) + (lexical-wrap-subst-57138 lexical-w1-57585)))) + (lexical-join-marks-57244 + (lambda (lexical-m1-57589 lexical-m2-57590) + (lexical-smart-append-57242 + lexical-m1-57589 + lexical-m2-57590))) + (lexical-join-subst-57245 + (lambda (lexical-s1-57591 lexical-s2-57592) + (lexical-smart-append-57242 + lexical-s1-57591 + lexical-s2-57592))) + (lexical-same-marks?-57246 + (lambda (lexical-x-57593 lexical-y-57594) + ((lambda (lexical-t-57595) + (if lexical-t-57595 + lexical-t-57595 + (if (not (null? lexical-x-57593)) + (if (not (null? lexical-y-57594)) + (if (eq? (car lexical-x-57593) (car lexical-y-57594)) + (lexical-same-marks?-57246 + (cdr lexical-x-57593) + (cdr lexical-y-57594)) + '#f) + '#f) + '#f))) + (eq? lexical-x-57593 lexical-y-57594)))) + (lexical-diff-marks-57247 + (lambda (lexical-m1-57596 lexical-m2-57597) + ((lambda (lexical-n1-57598 lexical-n2-57599) + ((letrec ((lexical-f-57600 + (lambda (lexical-n1-57601 lexical-m1-57602) + (if (> lexical-n1-57601 lexical-n2-57599) + (cons (car lexical-m1-57602) + (lexical-f-57600 + (- lexical-n1-57601 '1) + (cdr lexical-m1-57602))) + (if (equal? lexical-m1-57602 lexical-m2-57597) + '() + (error 'sc-expand + '"internal error in diff-marks: ~s is not a tail of ~s" + lexical-m1-57602 + lexical-m2-57597)))))) + lexical-f-57600) + lexical-n1-57598 + lexical-m1-57596)) + (length lexical-m1-57596) + (length lexical-m2-57597)))) + (lexical-leave-implicit?-57248 + (lambda (lexical-token-57603) + (eq? lexical-token-57603 '*top*))) + (lexical-new-binding-57249 + (lambda (lexical-sym-57604 + lexical-marks-57605 + lexical-token-57606) + ((lambda (lexical-loc-57607) + ((lambda (lexical-id-57608) + (begin + (lexical-store-import-binding-57237 + lexical-id-57608 + lexical-token-57606 + '()) + (values lexical-loc-57607 lexical-id-57608))) + (lexical-make-resolved-id-57239 + lexical-sym-57604 + lexical-marks-57605 + lexical-loc-57607))) + (if (if (lexical-leave-implicit?-57248 + lexical-token-57606) + (lexical-same-marks?-57246 + lexical-marks-57605 + (lexical-wrap-marks-57137 '((top)))) + '#f) + lexical-sym-57604 + (lexical-generate-id-56963 lexical-sym-57604))))) + (lexical-top-id-bound-var-name-57250 + (lambda (lexical-sym-57609 + lexical-marks-57610 + lexical-top-ribcage-57611) + ((lambda (lexical-token-57612) + ((lambda (lexical-t-57613) + (if lexical-t-57613 + ((lambda (lexical-id-57614) + (if (symbol? lexical-id-57614) + (if (lexical-read-only-binding?-56960 + lexical-id-57614) + (lexical-new-binding-57249 + lexical-sym-57609 + lexical-marks-57610 + lexical-token-57612) + (values + lexical-id-57614 + (lexical-make-resolved-id-57239 + lexical-sym-57609 + lexical-marks-57610 + lexical-id-57614))) + (values + (lexical-resolved-id-var-name-57241 + lexical-id-57614) + lexical-id-57614))) + lexical-t-57613) + (lexical-new-binding-57249 + lexical-sym-57609 + lexical-marks-57610 + lexical-token-57612))) + (lexical-lookup-import-binding-name-57236 + lexical-sym-57609 + lexical-marks-57610 + lexical-token-57612 + '()))) + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57611)))) + (lexical-top-id-free-var-name-57251 + (lambda (lexical-sym-57615 + lexical-marks-57616 + lexical-top-ribcage-57617) + ((lambda (lexical-token-57618) + ((lambda (lexical-t-57619) + (if lexical-t-57619 + ((lambda (lexical-id-57620) + (if (symbol? lexical-id-57620) + lexical-id-57620 + (lexical-resolved-id-var-name-57241 + lexical-id-57620))) + lexical-t-57619) + (if (if (lexical-top-ribcage-mutable?-57197 + lexical-top-ribcage-57617) + (lexical-same-marks?-57246 + lexical-marks-57616 + (lexical-wrap-marks-57137 '((top)))) + '#f) + (call-with-values + (lambda () + (lexical-new-binding-57249 + lexical-sym-57615 + (lexical-wrap-marks-57137 '((top))) + lexical-token-57618)) + (lambda (lexical-sym-57621 lexical-id-57622) + lexical-sym-57621)) + '#f))) + (lexical-lookup-import-binding-name-57236 + lexical-sym-57615 + lexical-marks-57616 + lexical-token-57618 + '()))) + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57617)))) + (lexical-id-var-name-loc&marks-57252 + (lambda (lexical-id-57623 lexical-w-57624) + (letrec* + ((lexical-search-57625 + (lambda (lexical-sym-57628 + lexical-subst-57629 + lexical-marks-57630) + (if (null? lexical-subst-57629) + (values '#f lexical-marks-57630) + ((lambda (lexical-fst-57631) + (if (eq? lexical-fst-57631 'shift) + (lexical-search-57625 + lexical-sym-57628 + (cdr lexical-subst-57629) + (cdr lexical-marks-57630)) + (if (lexical-ribcage?-57187 lexical-fst-57631) + ((lambda (lexical-symnames-57632) + (if (vector? lexical-symnames-57632) + (lexical-search-vector-rib-57627 + lexical-sym-57628 + lexical-subst-57629 + lexical-marks-57630 + lexical-symnames-57632 + lexical-fst-57631) + (lexical-search-list-rib-57626 + lexical-sym-57628 + lexical-subst-57629 + lexical-marks-57630 + lexical-symnames-57632 + lexical-fst-57631))) + (lexical-ribcage-symnames-57188 + lexical-fst-57631)) + (if (lexical-top-ribcage?-57195 lexical-fst-57631) + ((lambda (lexical-t-57633) + (if lexical-t-57633 + ((lambda (lexical-var-name-57634) + (values + lexical-var-name-57634 + lexical-marks-57630)) + lexical-t-57633) + (lexical-search-57625 + lexical-sym-57628 + (cdr lexical-subst-57629) + lexical-marks-57630))) + (lexical-top-id-free-var-name-57251 + lexical-sym-57628 + lexical-marks-57630 + lexical-fst-57631)) + (error 'sc-expand + '"internal error in id-var-name-loc&marks: improper subst ~s" + lexical-subst-57629))))) + (car lexical-subst-57629))))) + (lexical-search-list-rib-57626 + (lambda (lexical-sym-57635 + lexical-subst-57636 + lexical-marks-57637 + lexical-symnames-57638 + lexical-ribcage-57639) + ((letrec ((lexical-f-57640 + (lambda (lexical-symnames-57641 lexical-i-57642) + (if (null? lexical-symnames-57641) + (lexical-search-57625 + lexical-sym-57635 + (cdr lexical-subst-57636) + lexical-marks-57637) + ((lambda (lexical-x-57643) + (if (if (eq? lexical-x-57643 + lexical-sym-57635) + (lexical-same-marks?-57246 + lexical-marks-57637 + (list-ref + (lexical-ribcage-marks-57189 + lexical-ribcage-57639) + lexical-i-57642)) + '#f) + (values + (list-ref + (lexical-ribcage-labels-57190 + lexical-ribcage-57639) + lexical-i-57642) + lexical-marks-57637) + (if (lexical-import-interface?-57201 + lexical-x-57643) + ((lambda (lexical-iface-57644 + lexical-new-marks-57645) + ((lambda (lexical-t-57646) + (if lexical-t-57646 + ((lambda (lexical-token-57647) + ((lambda (lexical-t-57648) + (if lexical-t-57648 + ((lambda (lexical-id-57649) + (values + (if (symbol? + lexical-id-57649) + lexical-id-57649 + (lexical-resolved-id-var-name-57241 + lexical-id-57649)) + lexical-marks-57637)) + lexical-t-57648) + (lexical-f-57640 + (cdr lexical-symnames-57641) + lexical-i-57642))) + (lexical-lookup-import-binding-name-57236 + lexical-sym-57635 + lexical-marks-57637 + lexical-token-57647 + lexical-new-marks-57645))) + lexical-t-57646) + ((lambda (lexical-ie-57650) + ((lambda (lexical-n-57651) + ((lambda () + ((letrec ((lexical-g-57652 + (lambda (lexical-j-57653) + (if (= lexical-j-57653 + lexical-n-57651) + (lexical-f-57640 + (cdr lexical-symnames-57641) + lexical-i-57642) + ((lambda (lexical-id-57654) + ((lambda (lexical-id.sym-57655 + lexical-id.marks-57656) + (if (lexical-help-bound-id=?-57258 + lexical-id.sym-57655 + lexical-id.marks-57656 + lexical-sym-57635 + lexical-marks-57637) + (values + (lexical-lookup-import-label-57327 + lexical-id-57654) + lexical-marks-57637) + (lexical-g-57652 + (+ lexical-j-57653 + '1)))) + ((lambda (lexical-x-57657) + ((lambda (lexical-e-57658) + (if (lexical-annotation?-56952 + lexical-e-57658) + (annotation-expression + lexical-e-57658) + lexical-e-57658)) + (if (lexical-syntax-object?-56884 + lexical-x-57657) + (lexical-syntax-object-expression-56885 + lexical-x-57657) + lexical-x-57657))) + lexical-id-57654) + (lexical-join-marks-57244 + lexical-new-marks-57645 + (lexical-id-marks-57133 + lexical-id-57654)))) + (vector-ref + lexical-ie-57650 + lexical-j-57653)))))) + lexical-g-57652) + '0)))) + (vector-length + lexical-ie-57650))) + (lexical-interface-exports-57275 + lexical-iface-57644)))) + (lexical-interface-token-57276 + lexical-iface-57644))) + (lexical-import-interface-interface-57202 + lexical-x-57643) + (lexical-import-interface-new-marks-57203 + lexical-x-57643)) + (if (if (eq? lexical-x-57643 + lexical-barrier-marker-57226) + (lexical-same-marks?-57246 + lexical-marks-57637 + (list-ref + (lexical-ribcage-marks-57189 + lexical-ribcage-57639) + lexical-i-57642)) + '#f) + (values '#f lexical-marks-57637) + (lexical-f-57640 + (cdr lexical-symnames-57641) + (+ lexical-i-57642 '1)))))) + (car lexical-symnames-57641)))))) + lexical-f-57640) + lexical-symnames-57638 + '0))) + (lexical-search-vector-rib-57627 + (lambda (lexical-sym-57659 + lexical-subst-57660 + lexical-marks-57661 + lexical-symnames-57662 + lexical-ribcage-57663) + ((lambda (lexical-n-57664) + ((letrec ((lexical-f-57665 + (lambda (lexical-i-57666) + (if (= lexical-i-57666 lexical-n-57664) + (lexical-search-57625 + lexical-sym-57659 + (cdr lexical-subst-57660) + lexical-marks-57661) + (if (if (eq? (vector-ref + lexical-symnames-57662 + lexical-i-57666) + lexical-sym-57659) + (lexical-same-marks?-57246 + lexical-marks-57661 + (vector-ref + (lexical-ribcage-marks-57189 + lexical-ribcage-57663) + lexical-i-57666)) + '#f) + (values + (vector-ref + (lexical-ribcage-labels-57190 + lexical-ribcage-57663) + lexical-i-57666) + lexical-marks-57661) + (lexical-f-57665 + (+ lexical-i-57666 '1))))))) + lexical-f-57665) + '0)) + (vector-length lexical-symnames-57662))))) + (if (symbol? lexical-id-57623) + (lexical-search-57625 + lexical-id-57623 + (lexical-wrap-subst-57138 lexical-w-57624) + (lexical-wrap-marks-57137 lexical-w-57624)) + (if (lexical-syntax-object?-56884 lexical-id-57623) + ((lambda (lexical-sym-57667 lexical-w1-57668) + (call-with-values + (lambda () + (lexical-search-57625 + lexical-sym-57667 + (lexical-wrap-subst-57138 lexical-w-57624) + (lexical-join-marks-57244 + (lexical-wrap-marks-57137 lexical-w-57624) + (lexical-wrap-marks-57137 lexical-w1-57668)))) + (lambda (lexical-name-57669 lexical-marks-57670) + (if lexical-name-57669 + (values lexical-name-57669 lexical-marks-57670) + (lexical-search-57625 + lexical-sym-57667 + (lexical-wrap-subst-57138 lexical-w1-57668) + lexical-marks-57670))))) + ((lambda (lexical-e-57671) + (if (lexical-annotation?-56952 lexical-e-57671) + (annotation-expression lexical-e-57671) + lexical-e-57671)) + (lexical-syntax-object-expression-56885 + lexical-id-57623)) + (lexical-syntax-object-wrap-56886 + lexical-id-57623)) + (if (lexical-annotation?-56952 lexical-id-57623) + (lexical-search-57625 + ((lambda (lexical-e-57672) + (if (lexical-annotation?-56952 lexical-e-57672) + (annotation-expression lexical-e-57672) + lexical-e-57672)) + lexical-id-57623) + (lexical-wrap-subst-57138 lexical-w-57624) + (lexical-wrap-marks-57137 lexical-w-57624)) + (lexical-error-hook-56956 + 'id-var-name + '"invalid id" + lexical-id-57623))))))) + (lexical-id-var-name&marks-57253 + (lambda (lexical-id-57673 lexical-w-57674) + (call-with-values + (lambda () + (lexical-id-var-name-loc&marks-57252 + lexical-id-57673 + lexical-w-57674)) + (lambda (lexical-label-57675 lexical-marks-57676) + (values + (if (lexical-indirect-label?-57177 + lexical-label-57675) + (lexical-get-indirect-label-57181 + lexical-label-57675) + lexical-label-57675) + lexical-marks-57676))))) + (lexical-id-var-name-loc-57254 + (lambda (lexical-id-57677 lexical-w-57678) + (call-with-values + (lambda () + (lexical-id-var-name-loc&marks-57252 + lexical-id-57677 + lexical-w-57678)) + (lambda (lexical-label-57679 lexical-marks-57680) + lexical-label-57679)))) + (lexical-id-var-name-57255 + (lambda (lexical-id-57681 lexical-w-57682) + (call-with-values + (lambda () + (lexical-id-var-name-loc&marks-57252 + lexical-id-57681 + lexical-w-57682)) + (lambda (lexical-label-57683 lexical-marks-57684) + (if (lexical-indirect-label?-57177 + lexical-label-57683) + (lexical-get-indirect-label-57181 + lexical-label-57683) + lexical-label-57683))))) + (lexical-free-id=?-57256 + (lambda (lexical-i-57685 lexical-j-57686) + (if (eq? ((lambda (lexical-x-57687) + ((lambda (lexical-e-57688) + (if (lexical-annotation?-56952 lexical-e-57688) + (annotation-expression lexical-e-57688) + lexical-e-57688)) + (if (lexical-syntax-object?-56884 lexical-x-57687) + (lexical-syntax-object-expression-56885 + lexical-x-57687) + lexical-x-57687))) + lexical-i-57685) + ((lambda (lexical-x-57689) + ((lambda (lexical-e-57690) + (if (lexical-annotation?-56952 lexical-e-57690) + (annotation-expression lexical-e-57690) + lexical-e-57690)) + (if (lexical-syntax-object?-56884 lexical-x-57689) + (lexical-syntax-object-expression-56885 + lexical-x-57689) + lexical-x-57689))) + lexical-j-57686)) + (eq? (lexical-id-var-name-57255 lexical-i-57685 '(())) + (lexical-id-var-name-57255 lexical-j-57686 '(()))) + '#f))) + (lexical-literal-id=?-57257 + (lambda (lexical-id-57691 lexical-literal-57692) + (if (eq? ((lambda (lexical-x-57693) + ((lambda (lexical-e-57694) + (if (lexical-annotation?-56952 lexical-e-57694) + (annotation-expression lexical-e-57694) + lexical-e-57694)) + (if (lexical-syntax-object?-56884 lexical-x-57693) + (lexical-syntax-object-expression-56885 + lexical-x-57693) + lexical-x-57693))) + lexical-id-57691) + ((lambda (lexical-x-57695) + ((lambda (lexical-e-57696) + (if (lexical-annotation?-56952 lexical-e-57696) + (annotation-expression lexical-e-57696) + lexical-e-57696)) + (if (lexical-syntax-object?-56884 lexical-x-57695) + (lexical-syntax-object-expression-56885 + lexical-x-57695) + lexical-x-57695))) + lexical-literal-57692)) + ((lambda (lexical-n-id-57697 lexical-n-literal-57698) + ((lambda (lexical-t-57699) + (if lexical-t-57699 + lexical-t-57699 + (if ((lambda (lexical-t-57700) + (if lexical-t-57700 + lexical-t-57700 + (symbol? lexical-n-id-57697))) + (not lexical-n-id-57697)) + ((lambda (lexical-t-57701) + (if lexical-t-57701 + lexical-t-57701 + (symbol? lexical-n-literal-57698))) + (not lexical-n-literal-57698)) + '#f))) + (eq? lexical-n-id-57697 lexical-n-literal-57698))) + (lexical-id-var-name-57255 + lexical-id-57691 + '(())) + (lexical-id-var-name-57255 + lexical-literal-57692 + '(()))) + '#f))) + (lexical-help-bound-id=?-57258 + (lambda (lexical-i.sym-57702 + lexical-i.marks-57703 + lexical-j.sym-57704 + lexical-j.marks-57705) + (if (eq? lexical-i.sym-57702 lexical-j.sym-57704) + (lexical-same-marks?-57246 + lexical-i.marks-57703 + lexical-j.marks-57705) + '#f))) + (lexical-bound-id=?-57259 + (lambda (lexical-i-57706 lexical-j-57707) + (lexical-help-bound-id=?-57258 + ((lambda (lexical-x-57708) + ((lambda (lexical-e-57709) + (if (lexical-annotation?-56952 lexical-e-57709) + (annotation-expression lexical-e-57709) + lexical-e-57709)) + (if (lexical-syntax-object?-56884 lexical-x-57708) + (lexical-syntax-object-expression-56885 + lexical-x-57708) + lexical-x-57708))) + lexical-i-57706) + (lexical-id-marks-57133 lexical-i-57706) + ((lambda (lexical-x-57710) + ((lambda (lexical-e-57711) + (if (lexical-annotation?-56952 lexical-e-57711) + (annotation-expression lexical-e-57711) + lexical-e-57711)) + (if (lexical-syntax-object?-56884 lexical-x-57710) + (lexical-syntax-object-expression-56885 + lexical-x-57710) + lexical-x-57710))) + lexical-j-57707) + (lexical-id-marks-57133 lexical-j-57707)))) + (lexical-valid-bound-ids?-57260 + (lambda (lexical-ids-57712) + (if ((letrec ((lexical-all-ids?-57713 + (lambda (lexical-ids-57714) + ((lambda (lexical-t-57715) + (if lexical-t-57715 + lexical-t-57715 + (if (lexical-id?-57127 + (car lexical-ids-57714)) + (lexical-all-ids?-57713 + (cdr lexical-ids-57714)) '#f))) - (top-ribcage-key375 (lambda (x2384) (vector-ref x2384 '1))) - (top-ribcage-mutable?376 (lambda (x2383) - (vector-ref x2383 '2))) - (set-top-ribcage-key!377 (lambda (x2382 update2381) - (vector-set! x2382 '1 update2381))) - (set-top-ribcage-mutable?!378 (lambda (x2380 update2379) - (vector-set! - x2380 - '2 - update2379))) - (make-import-interface379 (lambda (interface2378 - new-marks2377) - (vector - 'import-interface - interface2378 - new-marks2377))) - (import-interface?380 (lambda (x2376) - (if (vector? x2376) - (if (= (vector-length x2376) '3) - (eq? (vector-ref x2376 '0) - 'import-interface) - '#f) - '#f))) - (import-interface-interface381 (lambda (x2375) - (vector-ref x2375 '1))) - (import-interface-new-marks382 (lambda (x2374) - (vector-ref x2374 '2))) - (set-import-interface-interface!383 (lambda (x2373 - update2372) - (vector-set! - x2373 - '1 - update2372))) - (set-import-interface-new-marks!384 (lambda (x2371 - update2370) - (vector-set! - x2371 - '2 - update2370))) - (make-env385 (lambda (top-ribcage2369 wrap2368) - (vector 'env top-ribcage2369 wrap2368))) - (env?386 (lambda (x2367) - (if (vector? x2367) - (if (= (vector-length x2367) '3) - (eq? (vector-ref x2367 '0) 'env) - '#f) - '#f))) - (env-top-ribcage387 (lambda (x2366) (vector-ref x2366 '1))) - (env-wrap388 (lambda (x2365) (vector-ref x2365 '2))) - (set-env-top-ribcage!389 (lambda (x2364 update2363) - (vector-set! x2364 '1 update2363))) - (set-env-wrap!390 (lambda (x2362 update2361) - (vector-set! x2362 '2 update2361))) - (anti-mark400 (lambda (w2360) - (make-wrap315 - (cons '#f (wrap-marks316 w2360)) - (cons 'shift (wrap-subst317 w2360))))) - (barrier-marker405 '#f) - (extend-ribcage!410 (lambda (ribcage2358 id2357 label2356) + (null? lexical-ids-57714))))) + lexical-all-ids?-57713) + lexical-ids-57712) + (lexical-distinct-bound-ids?-57261 + lexical-ids-57712) + '#f))) + (lexical-distinct-bound-ids?-57261 + (lambda (lexical-ids-57716) + ((letrec ((lexical-distinct?-57717 + (lambda (lexical-ids-57718) + ((lambda (lexical-t-57719) + (if lexical-t-57719 + lexical-t-57719 + (if (not (lexical-bound-id-member?-57263 + (car lexical-ids-57718) + (cdr lexical-ids-57718))) + (lexical-distinct?-57717 + (cdr lexical-ids-57718)) + '#f))) + (null? lexical-ids-57718))))) + lexical-distinct?-57717) + lexical-ids-57716))) + (lexical-invalid-ids-error-57262 + (lambda (lexical-ids-57720 + lexical-exp-57721 + lexical-class-57722) + ((letrec ((lexical-find-57723 + (lambda (lexical-ids-57724 lexical-gooduns-57725) + (if (null? lexical-ids-57724) + (syntax-error lexical-exp-57721) + (if (lexical-id?-57127 (car lexical-ids-57724)) + (if (lexical-bound-id-member?-57263 + (car lexical-ids-57724) + lexical-gooduns-57725) + (syntax-error + (car lexical-ids-57724) + '"duplicate " + lexical-class-57722) + (lexical-find-57723 + (cdr lexical-ids-57724) + (cons (car lexical-ids-57724) + lexical-gooduns-57725))) + (syntax-error + (car lexical-ids-57724) + '"invalid " + lexical-class-57722)))))) + lexical-find-57723) + lexical-ids-57720 + '()))) + (lexical-bound-id-member?-57263 + (lambda (lexical-x-57726 lexical-list-57727) + (if (not (null? lexical-list-57727)) + ((lambda (lexical-t-57728) + (if lexical-t-57728 + lexical-t-57728 + (lexical-bound-id-member?-57263 + lexical-x-57726 + (cdr lexical-list-57727)))) + (lexical-bound-id=?-57259 + lexical-x-57726 + (car lexical-list-57727))) + '#f))) + (lexical-wrap-57264 + (lambda (lexical-x-57729 lexical-w-57730) + (if (if (null? (lexical-wrap-marks-57137 lexical-w-57730)) + (null? (lexical-wrap-subst-57138 lexical-w-57730)) + '#f) + lexical-x-57729 + (if (lexical-syntax-object?-56884 lexical-x-57729) + (lexical-make-syntax-object-56883 + (lexical-syntax-object-expression-56885 + lexical-x-57729) + (lexical-join-wraps-57243 + lexical-w-57730 + (lexical-syntax-object-wrap-56886 + lexical-x-57729))) + (if (null? lexical-x-57729) + lexical-x-57729 + (lexical-make-syntax-object-56883 + lexical-x-57729 + lexical-w-57730)))))) + (lexical-source-wrap-57265 + (lambda (lexical-x-57731 + lexical-w-57732 + lexical-ae-57733) + (lexical-wrap-57264 + (if (lexical-annotation?-56952 lexical-ae-57733) + (begin + (if (not (eq? (annotation-expression lexical-ae-57733) + lexical-x-57731)) + (error 'sc-expand + '"internal error in source-wrap: ae/x mismatch") + (void)) + lexical-ae-57733) + lexical-x-57731) + lexical-w-57732))) + (lexical-chi-when-list-57266 + (lambda (lexical-when-list-57734 lexical-w-57735) + (map (lambda (lexical-x-57736) + (if (lexical-literal-id=?-57257 + lexical-x-57736 + '#(syntax-object + compile + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(when-list w) + #((top) (top)) + #("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + 'compile + (if (lexical-literal-id=?-57257 + lexical-x-57736 + '#(syntax-object + load + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(when-list w) + #((top) (top)) + #("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + 'load + (if (lexical-literal-id=?-57257 + lexical-x-57736 + '#(syntax-object + visit + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(when-list w) + #((top) (top)) + #("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + 'visit + (if (lexical-literal-id=?-57257 + lexical-x-57736 + '#(syntax-object + revisit + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(when-list w) + #((top) (top)) + #("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + 'revisit + (if (lexical-literal-id=?-57257 + lexical-x-57736 + '#(syntax-object + eval + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(when-list w) + #((top) (top)) + #("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + 'eval + (syntax-error + (lexical-wrap-57264 + lexical-x-57736 + lexical-w-57735) + '"invalid eval-when situation"))))))) + lexical-when-list-57734))) + (lexical-syntax-type-57267 + (lambda (lexical-e-57737 + lexical-r-57738 + lexical-w-57739 + lexical-ae-57740 + lexical-rib-57741) + (if (symbol? lexical-e-57737) + ((lambda (lexical-n-57742) + ((lambda (lexical-b-57743) + ((lambda (lexical-type-57744) + ((lambda () + ((lambda (lexical-t-57745) + (if (memv lexical-t-57745 '(macro macro!)) + (lexical-syntax-type-57267 + (lexical-chi-macro-57323 + (lexical-binding-value-57103 lexical-b-57743) + lexical-e-57737 + lexical-r-57738 + lexical-w-57739 + lexical-ae-57740 + lexical-rib-57741) + lexical-r-57738 + '(()) + '#f + lexical-rib-57741) + (values + lexical-type-57744 + (lexical-binding-value-57103 lexical-b-57743) + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740))) + lexical-type-57744)))) + (lexical-binding-type-57102 lexical-b-57743))) + (lexical-lookup-57122 + lexical-n-57742 + lexical-r-57738))) + (lexical-id-var-name-57255 + lexical-e-57737 + lexical-w-57739)) + (if (pair? lexical-e-57737) + ((lambda (lexical-first-57746) + (if (lexical-id?-57127 lexical-first-57746) + ((lambda (lexical-n-57747) + ((lambda (lexical-b-57748) + ((lambda (lexical-type-57749) + ((lambda () + ((lambda (lexical-t-57750) + (if (memv lexical-t-57750 '(lexical)) + (values + 'lexical-call + (lexical-binding-value-57103 + lexical-b-57748) + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 '(macro macro!)) + (lexical-syntax-type-57267 + (lexical-chi-macro-57323 + (lexical-binding-value-57103 + lexical-b-57748) + lexical-e-57737 + lexical-r-57738 + lexical-w-57739 + lexical-ae-57740 + lexical-rib-57741) + lexical-r-57738 + '(()) + '#f + lexical-rib-57741) + (if (memv lexical-t-57750 '(core)) + (values + lexical-type-57749 + (lexical-binding-value-57103 + lexical-b-57748) + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 '(begin)) + (values + 'begin-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 '(alias)) + (values + 'alias-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '(define)) + (values + 'define-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '(define-syntax)) + (values + 'define-syntax-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '(set!)) + (lexical-chi-set!-57322 + lexical-e-57737 + lexical-r-57738 + lexical-w-57739 + lexical-ae-57740 + lexical-rib-57741) + (if (memv lexical-t-57750 + '($module-key)) + (values + '$module-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '($import)) + (values + '$import-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '(eval-when)) + (values + 'eval-when-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '(meta)) + (values + 'meta-form + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (if (memv lexical-t-57750 + '(local-syntax)) + (values + 'local-syntax-form + (lexical-binding-value-57103 + lexical-b-57748) + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (values + 'call + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740))))))))))))))) + lexical-type-57749)))) + (lexical-binding-type-57102 lexical-b-57748))) + (lexical-lookup-57122 + lexical-n-57747 + lexical-r-57738))) + (lexical-id-var-name-57255 + lexical-first-57746 + lexical-w-57739)) + (values + 'call + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740))) + (car lexical-e-57737)) + (if (lexical-syntax-object?-56884 lexical-e-57737) + (lexical-syntax-type-57267 + (lexical-syntax-object-expression-56885 + lexical-e-57737) + lexical-r-57738 + (lexical-join-wraps-57243 + lexical-w-57739 + (lexical-syntax-object-wrap-56886 + lexical-e-57737)) + '#f + lexical-rib-57741) + (if (lexical-annotation?-56952 lexical-e-57737) + (lexical-syntax-type-57267 + (annotation-expression lexical-e-57737) + lexical-r-57738 + lexical-w-57739 + lexical-e-57737 + lexical-rib-57741) + (if ((lambda (lexical-x-57751) + ((lambda (lexical-t-57752) + (if lexical-t-57752 + lexical-t-57752 + ((lambda (lexical-t-57753) + (if lexical-t-57753 + lexical-t-57753 + ((lambda (lexical-t-57754) + (if lexical-t-57754 + lexical-t-57754 + ((lambda (lexical-t-57755) + (if lexical-t-57755 + lexical-t-57755 + (null? lexical-x-57751))) + (char? lexical-x-57751)))) + (string? lexical-x-57751)))) + (number? lexical-x-57751)))) + (boolean? lexical-x-57751))) + lexical-e-57737) + (values + 'constant + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740) + (values + 'other + '#f + lexical-e-57737 + lexical-w-57739 + lexical-ae-57740)))))))) + (lexical-chi-top*-57268 + (lambda (lexical-e-57756 + lexical-r-57757 + lexical-w-57758 + lexical-ctem-57759 + lexical-rtem-57760 + lexical-meta?-57761 + lexical-top-ribcage-57762) + ((lambda (lexical-meta-residuals-57763) + (letrec* + ((lexical-meta-residualize!-57764 + (lambda (lexical-x-57765) + (set! lexical-meta-residuals-57763 + (cons lexical-x-57765 + lexical-meta-residuals-57763))))) + ((lambda (lexical-e-57766) + (lexical-build-sequence-57055 + '#f + (reverse + (cons lexical-e-57766 + lexical-meta-residuals-57763)))) + (lexical-chi-top-57270 + lexical-e-57756 + lexical-r-57757 + lexical-w-57758 + lexical-ctem-57759 + lexical-rtem-57760 + lexical-meta?-57761 + lexical-top-ribcage-57762 + lexical-meta-residualize!-57764 + '#f)))) + '()))) + (lexical-chi-top-sequence-57269 + (lambda (lexical-body-57767 + lexical-r-57768 + lexical-w-57769 + lexical-ae-57770 + lexical-ctem-57771 + lexical-rtem-57772 + lexical-meta?-57773 + lexical-ribcage-57774 + lexical-meta-residualize!-57775) + (lexical-build-sequence-57055 + lexical-ae-57770 + ((letrec ((lexical-dobody-57776 + (lambda (lexical-body-57777) + (if (null? lexical-body-57777) + '() + ((lambda (lexical-first-57778) + (cons lexical-first-57778 + (lexical-dobody-57776 + (cdr lexical-body-57777)))) + (lexical-chi-top-57270 + (car lexical-body-57777) + lexical-r-57768 + lexical-w-57769 + lexical-ctem-57771 + lexical-rtem-57772 + lexical-meta?-57773 + lexical-ribcage-57774 + lexical-meta-residualize!-57775 + '#f)))))) + lexical-dobody-57776) + lexical-body-57767)))) + (lexical-chi-top-57270 + (lambda (lexical-e-57779 + lexical-r-57780 + lexical-w-57781 + lexical-ctem-57782 + lexical-rtem-57783 + lexical-meta?-57784 + lexical-top-ribcage-57785 + lexical-meta-residualize!-57786 + lexical-meta-seen?-57787) + (call-with-values + (lambda () + (lexical-syntax-type-57267 + lexical-e-57779 + lexical-r-57780 + lexical-w-57781 + '#f + lexical-top-ribcage-57785)) + (lambda (lexical-type-57788 + lexical-value-57789 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792) + ((lambda (lexical-t-57793) + (if (memv lexical-t-57793 '(begin-form)) + ((lambda (lexical-forms-57794) + (if (null? lexical-forms-57794) + (lexical-chi-void-57339) + (lexical-chi-top-sequence-57269 + lexical-forms-57794 + lexical-r-57780 + lexical-w-57791 + lexical-ae-57792 + lexical-ctem-57782 + lexical-rtem-57783 + lexical-meta?-57784 + lexical-top-ribcage-57785 + lexical-meta-residualize!-57786))) + (lexical-parse-begin-57336 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792 + '#t)) + (if (memv lexical-t-57793 '(local-syntax-form)) + (call-with-values + (lambda () + (lexical-chi-local-syntax-57338 + lexical-value-57789 + lexical-e-57790 + lexical-r-57780 + lexical-r-57780 + lexical-w-57791 + lexical-ae-57792)) + (lambda (lexical-forms-57795 + lexical-r-57796 + lexical-mr-57797 + lexical-w-57798 + lexical-ae-57799) + (lexical-chi-top-sequence-57269 + lexical-forms-57795 + lexical-r-57796 + lexical-w-57798 + lexical-ae-57799 + lexical-ctem-57782 + lexical-rtem-57783 + lexical-meta?-57784 + lexical-top-ribcage-57785 + lexical-meta-residualize!-57786))) + (if (memv lexical-t-57793 '(eval-when-form)) + (call-with-values + (lambda () + (lexical-parse-eval-when-57334 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792)) + (lambda (lexical-when-list-57800 lexical-forms-57801) + ((lambda (lexical-ctem-57802 lexical-rtem-57803) + (if (if (null? lexical-ctem-57802) + (null? lexical-rtem-57803) + '#f) + (lexical-chi-void-57339) + (lexical-chi-top-sequence-57269 + lexical-forms-57801 + lexical-r-57780 + lexical-w-57791 + lexical-ae-57792 + lexical-ctem-57802 + lexical-rtem-57803 + lexical-meta?-57784 + lexical-top-ribcage-57785 + lexical-meta-residualize!-57786))) + (lexical-update-mode-set-57311 + lexical-when-list-57800 + lexical-ctem-57782) + (lexical-update-mode-set-57311 + lexical-when-list-57800 + lexical-rtem-57783)))) + (if (memv lexical-t-57793 '(meta-form)) + (lexical-chi-top-57270 + (lexical-parse-meta-57333 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792) + lexical-r-57780 + lexical-w-57791 + lexical-ctem-57782 + lexical-rtem-57783 + '#t + lexical-top-ribcage-57785 + lexical-meta-residualize!-57786 + '#t) + (if (memv lexical-t-57793 '(define-syntax-form)) + (call-with-values + (lambda () + (lexical-parse-define-syntax-57332 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792)) + (lambda (lexical-id-57804 + lexical-rhs-57805 + lexical-w-57806) + ((lambda (lexical-id-57807) (begin - (set-ribcage-symnames!370 - ribcage2358 - (cons - ((lambda (e2359) - (if (annotation?132 e2359) + (if (lexical-displaced-lexical?-57119 + lexical-id-57807 + lexical-r-57780) + (lexical-displaced-lexical-error-57120 + lexical-id-57807) + (void)) + (if (not (lexical-top-ribcage-mutable?-57197 + lexical-top-ribcage-57785)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57806 + lexical-ae-57792) + '"invalid definition in read-only environment") + (void)) + ((lambda (lexical-sym-57808) + (call-with-values + (lambda () + (lexical-top-id-bound-var-name-57250 + lexical-sym-57808 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-57807)) + lexical-top-ribcage-57785)) + (lambda (lexical-valsym-57809 + lexical-bound-id-57810) + (begin + (if (not (eq? (lexical-id-var-name-57255 + lexical-id-57807 + '(())) + lexical-valsym-57809)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57806 + lexical-ae-57792) + '"definition not permitted") + (void)) + (if (lexical-read-only-binding?-56960 + lexical-valsym-57809) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57806 + lexical-ae-57792) + '"invalid definition of read-only identifier") + (void)) + (lexical-ct-eval/residualize2-57314 + lexical-ctem-57782 + (lambda () + (list '$sc-put-cte + (list 'quote + lexical-bound-id-57810) + (lexical-chi-57319 + lexical-rhs-57805 + lexical-r-57780 + lexical-r-57780 + lexical-w-57806 + '#t) + (list 'quote + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57785))))))))) + ((lambda (lexical-x-57811) + ((lambda (lexical-e-57812) + (if (lexical-annotation?-56952 + lexical-e-57812) + (annotation-expression + lexical-e-57812) + lexical-e-57812)) + (if (lexical-syntax-object?-56884 + lexical-x-57811) + (lexical-syntax-object-expression-56885 + lexical-x-57811) + lexical-x-57811))) + lexical-id-57807)))) + (lexical-wrap-57264 + lexical-id-57804 + lexical-w-57806)))) + (if (memv lexical-t-57793 '(define-form)) + (call-with-values + (lambda () + (lexical-parse-define-57331 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792)) + (lambda (lexical-id-57813 + lexical-rhs-57814 + lexical-w-57815) + ((lambda (lexical-id-57816) + (begin + (if (lexical-displaced-lexical?-57119 + lexical-id-57816 + lexical-r-57780) + (lexical-displaced-lexical-error-57120 + lexical-id-57816) + (void)) + (if (not (lexical-top-ribcage-mutable?-57197 + lexical-top-ribcage-57785)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57815 + lexical-ae-57792) + '"invalid definition in read-only environment") + (void)) + ((lambda (lexical-sym-57817) + (call-with-values + (lambda () + (lexical-top-id-bound-var-name-57250 + lexical-sym-57817 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-57816)) + lexical-top-ribcage-57785)) + (lambda (lexical-valsym-57818 + lexical-bound-id-57819) + (begin + (if (not (eq? (lexical-id-var-name-57255 + lexical-id-57816 + '(())) + lexical-valsym-57818)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57815 + lexical-ae-57792) + '"definition not permitted") + (void)) + (if (lexical-read-only-binding?-56960 + lexical-valsym-57818) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57815 + lexical-ae-57792) + '"invalid definition of read-only identifier") + (void)) + (if lexical-meta?-57784 + (lexical-ct-eval/residualize2-57314 + lexical-ctem-57782 + (lambda () + (lexical-build-sequence-57055 + '#f + (list (list '$sc-put-cte + (list 'quote + lexical-bound-id-57819) + (list 'quote + (cons 'meta-variable + lexical-valsym-57818)) + (list 'quote + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57785))) + (list 'define + lexical-valsym-57818 + (lexical-chi-57319 + lexical-rhs-57814 + lexical-r-57780 + lexical-r-57780 + lexical-w-57815 + '#t)))))) + ((lambda (lexical-x-57820) + (lexical-build-sequence-57055 + '#f + (list lexical-x-57820 + (lexical-rt-eval/residualize-57313 + lexical-rtem-57783 + (lambda () + (list 'define + lexical-valsym-57818 + (lexical-chi-57319 + lexical-rhs-57814 + lexical-r-57780 + lexical-r-57780 + lexical-w-57815 + '#f))))))) + (lexical-ct-eval/residualize2-57314 + lexical-ctem-57782 + (lambda () + (list '$sc-put-cte + (list 'quote + lexical-bound-id-57819) + (list 'quote + (cons 'global + lexical-valsym-57818)) + (list 'quote + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57785))))))))))) + ((lambda (lexical-x-57821) + ((lambda (lexical-e-57822) + (if (lexical-annotation?-56952 + lexical-e-57822) (annotation-expression - e2359) - e2359)) - (syntax-object-expression65 - id2357)) - (ribcage-symnames367 ribcage2358))) - (set-ribcage-marks!371 - ribcage2358 - (cons - (wrap-marks316 - (syntax-object-wrap66 id2357)) - (ribcage-marks368 ribcage2358))) - (set-ribcage-labels!372 - ribcage2358 - (cons - label2356 - (ribcage-labels369 - ribcage2358)))))) - (import-extend-ribcage!411 (lambda (ribcage2354 - new-marks2353 id2352 - label2351) - (begin - (set-ribcage-symnames!370 - ribcage2354 - (cons - ((lambda (e2355) - (if (annotation?132 - e2355) - (annotation-expression - e2355) - e2355)) - (syntax-object-expression65 - id2352)) - (ribcage-symnames367 - ribcage2354))) - (set-ribcage-marks!371 - ribcage2354 - (cons - (join-marks423 - new-marks2353 - (wrap-marks316 - (syntax-object-wrap66 - id2352))) - (ribcage-marks368 - ribcage2354))) - (set-ribcage-labels!372 - ribcage2354 - (cons - label2351 - (ribcage-labels369 - ribcage2354)))))) - (extend-ribcage-barrier!412 (lambda (ribcage2350 - killer-id2349) - (extend-ribcage-barrier-help!413 - ribcage2350 - (syntax-object-wrap66 - killer-id2349)))) - (extend-ribcage-barrier-help!413 (lambda (ribcage2348 - wrap2347) - (begin - (set-ribcage-symnames!370 - ribcage2348 - (cons - barrier-marker405 - (ribcage-symnames367 - ribcage2348))) - (set-ribcage-marks!371 - ribcage2348 - (cons - (wrap-marks316 - wrap2347) - (ribcage-marks368 - ribcage2348)))))) - (extend-ribcage-subst!414 (lambda (ribcage2346 - import-iface2345) - (set-ribcage-symnames!370 - ribcage2346 - (cons - import-iface2345 - (ribcage-symnames367 - ribcage2346))))) - (lookup-import-binding-name415 (lambda (sym2340 marks2339 - token2338 - new-marks2337) - ((lambda (new2341) - (if new2341 - ((letrec ((f2342 (lambda (new2343) - (if (pair? - new2343) - ((lambda (t2344) - (if t2344 - t2344 - (f2342 - (cdr new2343)))) - (f2342 - (car new2343))) - (if (symbol? - new2343) - (if (same-marks?425 - marks2339 - (join-marks423 - new-marks2337 - (wrap-marks316 - '((top))))) - new2343 - '#f) - (if (same-marks?425 - marks2339 - (join-marks423 - new-marks2337 - (wrap-marks316 - (syntax-object-wrap66 - new2343)))) - new2343 - '#f)))))) - f2342) - new2341) - '#f)) - (get-import-binding141 - sym2340 - token2338)))) - (store-import-binding416 (lambda (id2321 token2320 - new-marks2319) - (letrec ((cons-id2322 (lambda (id2336 - x2335) - (if (not x2335) - id2336 - (cons - id2336 - x2335)))) - (weed2323 (lambda (marks2334 - x2333) - (if (pair? - x2333) - (if (same-marks?425 - (id-marks312 - (car x2333)) - marks2334) - (weed2323 - marks2334 - (cdr x2333)) - (cons-id2322 - (car x2333) - (weed2323 - marks2334 - (cdr x2333)))) - (if x2333 - (if (not (same-marks?425 - (id-marks312 - x2333) - marks2334)) - x2333 - '#f) - '#f))))) - ((lambda (id2324) - ((lambda (sym2325) - (if (not (eq? id2324 - sym2325)) - ((lambda (marks2326) - (update-import-binding!142 - sym2325 - token2320 - (lambda (old-binding2327) - ((lambda (x2328) - (cons-id2322 - (if (same-marks?425 - marks2326 - (wrap-marks316 - '((top)))) - (resolved-id-var-name420 - id2324) - id2324) - x2328)) - (weed2323 - marks2326 - old-binding2327))))) - (id-marks312 id2324)) - (void))) - ((lambda (x2329) - ((lambda (e2330) - (if (annotation?132 - e2330) - (annotation-expression - e2330) - e2330)) - (if (syntax-object?64 - x2329) - (syntax-object-expression65 - x2329) - x2329))) - id2324))) - (if (null? new-marks2319) - id2321 - (make-syntax-object63 - ((lambda (x2331) - ((lambda (e2332) - (if (annotation?132 - e2332) - (annotation-expression - e2332) - e2332)) - (if (syntax-object?64 - x2331) - (syntax-object-expression65 - x2331) - x2331))) - id2321) - (make-wrap315 - (join-marks423 - new-marks2319 - (id-marks312 id2321)) - (id-subst313 - id2321)))))))) - (make-binding-wrap417 (lambda (ids2309 labels2308 w2307) - (if (null? ids2309) - w2307 - (make-wrap315 - (wrap-marks316 w2307) - (cons - ((lambda (labelvec2310) - ((lambda (n2311) - ((lambda (symnamevec2313 - marksvec2312) - (begin - ((letrec ((f2314 (lambda (ids2316 - i2315) - (if (not (null? - ids2316)) - (call-with-values - (lambda () - (id-sym-name&marks314 - (car ids2316) - w2307)) - (lambda (symname2318 - marks2317) - (begin - (vector-set! - symnamevec2313 - i2315 - symname2318) - (vector-set! - marksvec2312 - i2315 - marks2317) - (f2314 - (cdr ids2316) - (+ i2315 - '1))))) - (void))))) - f2314) - ids2309 - '0) - (make-ribcage365 - symnamevec2313 - marksvec2312 - labelvec2310))) - (make-vector n2311) - (make-vector n2311))) - (vector-length - labelvec2310))) - (list->vector labels2308)) - (wrap-subst317 w2307)))))) - (make-resolved-id418 (lambda (fromsym2306 marks2305 - tosym2304) - (make-syntax-object63 - fromsym2306 - (make-wrap315 - marks2305 - (list - (make-ribcage365 - (vector fromsym2306) - (vector marks2305) - (vector tosym2304))))))) - (id->resolved-id419 (lambda (id2299) + lexical-e-57822) + lexical-e-57822)) + (if (lexical-syntax-object?-56884 + lexical-x-57821) + (lexical-syntax-object-expression-56885 + lexical-x-57821) + lexical-x-57821))) + lexical-id-57816)))) + (lexical-wrap-57264 + lexical-id-57813 + lexical-w-57815)))) + (if (memv lexical-t-57793 '($module-form)) + ((lambda (lexical-ribcage-57823) (call-with-values (lambda () - (id-var-name&marks432 id2299 '(()))) - (lambda (tosym2301 marks2300) + (lexical-parse-module-57329 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792 + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 + lexical-w-57791) + (cons lexical-ribcage-57823 + (lexical-wrap-subst-57138 + lexical-w-57791))))) + (lambda (lexical-orig-57824 + lexical-id-57825 + lexical-exports-57826 + lexical-forms-57827) (begin - (if (not tosym2301) - (syntax-error - id2299 - '"identifier not visible for export") - (void)) - (make-resolved-id418 - ((lambda (x2302) - ((lambda (e2303) - (if (annotation?132 e2303) - (annotation-expression - e2303) - e2303)) - (if (syntax-object?64 x2302) - (syntax-object-expression65 - x2302) - x2302))) - id2299) - marks2300 - tosym2301)))))) - (resolved-id-var-name420 (lambda (id2298) - (vector-ref - (ribcage-labels369 - (car (wrap-subst317 - (syntax-object-wrap66 - id2298)))) - '0))) - (smart-append421 (lambda (m12297 m22296) - (if (null? m22296) - m12297 - (append m12297 m22296)))) - (join-wraps422 (lambda (w12293 w22292) - ((lambda (m12295 s12294) - (if (null? m12295) - (if (null? s12294) - w22292 - (make-wrap315 - (wrap-marks316 w22292) - (join-subst424 - s12294 - (wrap-subst317 w22292)))) - (make-wrap315 - (join-marks423 - m12295 - (wrap-marks316 w22292)) - (join-subst424 - s12294 - (wrap-subst317 w22292))))) - (wrap-marks316 w12293) - (wrap-subst317 w12293)))) - (join-marks423 (lambda (m12291 m22290) - (smart-append421 m12291 m22290))) - (join-subst424 (lambda (s12289 s22288) - (smart-append421 s12289 s22288))) - (same-marks?425 (lambda (x2286 y2285) - ((lambda (t2287) - (if t2287 - t2287 - (if (not (null? x2286)) - (if (not (null? y2285)) - (if (eq? (car x2286) - (car y2285)) - (same-marks?425 - (cdr x2286) - (cdr y2285)) - '#f) - '#f) - '#f))) - (eq? x2286 y2285)))) - (diff-marks426 (lambda (m12279 m22278) - ((lambda (n12281 n22280) - ((letrec ((f2282 (lambda (n12284 m12283) - (if (> n12284 n22280) - (cons - (car m12283) - (f2282 - (- n12284 '1) - (cdr m12283))) - (if (equal? - m12283 - m22278) - '() - (error 'sc-expand - '"internal error in diff-marks: ~s is not a tail of ~s" - m12283 - m22278)))))) - f2282) - n12281 - m12279)) - (length m12279) - (length m22278)))) - (leave-implicit?427 (lambda (token2277) - (eq? token2277 '*top*))) - (new-binding428 (lambda (sym2274 marks2273 token2272) - ((lambda (loc2275) - ((lambda (id2276) - (begin - (store-import-binding416 - id2276 - token2272 - '()) - (values loc2275 id2276))) - (make-resolved-id418 - sym2274 - marks2273 - loc2275))) - (if (if (leave-implicit?427 token2272) - (same-marks?425 - marks2273 - (wrap-marks316 '((top)))) - '#f) - sym2274 - (generate-id143 sym2274))))) - (top-id-bound-var-name429 (lambda (sym2268 marks2267 - top-ribcage2266) - ((lambda (token2269) - ((lambda (t2270) - (if t2270 - ((lambda (id2271) - (if (symbol? id2271) - (if (read-only-binding?140 - id2271) - (new-binding428 - sym2268 - marks2267 - token2269) - (values - id2271 - (make-resolved-id418 - sym2268 - marks2267 - id2271))) - (values - (resolved-id-var-name420 - id2271) - id2271))) - t2270) - (new-binding428 - sym2268 - marks2267 - token2269))) - (lookup-import-binding-name415 - sym2268 - marks2267 - token2269 - '()))) - (top-ribcage-key375 - top-ribcage2266)))) - (top-id-free-var-name430 (lambda (sym2260 marks2259 - top-ribcage2258) - ((lambda (token2261) - ((lambda (t2262) - (if t2262 - ((lambda (id2263) - (if (symbol? id2263) - id2263 - (resolved-id-var-name420 - id2263))) - t2262) - (if (if (top-ribcage-mutable?376 - top-ribcage2258) - (same-marks?425 - marks2259 - (wrap-marks316 - '((top)))) - '#f) - (call-with-values - (lambda () - (new-binding428 - sym2260 - (wrap-marks316 - '((top))) - token2261)) - (lambda (sym2265 - id2264) - sym2265)) - '#f))) - (lookup-import-binding-name415 - sym2260 - marks2259 - token2261 - '()))) - (top-ribcage-key375 - top-ribcage2258)))) - (id-var-name-loc&marks431 (lambda (id2209 w2208) - (letrec ((search2210 (lambda (sym2253 - subst2252 - marks2251) - (if (null? - subst2252) - (values - '#f - marks2251) - ((lambda (fst2254) - (if (eq? fst2254 - 'shift) - (search2210 - sym2253 - (cdr subst2252) - (cdr marks2251)) - (if (ribcage?366 - fst2254) - ((lambda (symnames2255) - (if (vector? - symnames2255) - (search-vector-rib2212 - sym2253 - subst2252 - marks2251 - symnames2255 - fst2254) - (search-list-rib2211 - sym2253 - subst2252 - marks2251 - symnames2255 - fst2254))) - (ribcage-symnames367 - fst2254)) - (if (top-ribcage?374 - fst2254) - ((lambda (t2256) - (if t2256 - ((lambda (var-name2257) - (values - var-name2257 - marks2251)) - t2256) - (search2210 - sym2253 - (cdr subst2252) - marks2251))) - (top-id-free-var-name430 - sym2253 - marks2251 - fst2254)) - (error 'sc-expand - '"internal error in id-var-name-loc&marks: improper subst ~s" - subst2252))))) - (car subst2252))))) - (search-list-rib2211 (lambda (sym2231 - subst2230 - marks2229 - symnames2228 - ribcage2227) - ((letrec ((f2232 (lambda (symnames2234 - i2233) - (if (null? - symnames2234) - (search2210 - sym2231 - (cdr subst2230) - marks2229) - ((lambda (x2235) - (if (if (eq? x2235 - sym2231) - (same-marks?425 - marks2229 - (list-ref - (ribcage-marks368 - ribcage2227) - i2233)) - '#f) - (values - (list-ref - (ribcage-labels369 - ribcage2227) - i2233) - marks2229) - (if (import-interface?380 - x2235) - ((lambda (iface2237 - new-marks2236) - ((lambda (t2238) - (if t2238 - ((lambda (token2239) - ((lambda (t2240) - (if t2240 - ((lambda (id2241) - (values - (if (symbol? - id2241) - id2241 - (resolved-id-var-name420 - id2241)) - marks2229)) - t2240) - (f2232 - (cdr symnames2234) - i2233))) - (lookup-import-binding-name415 - sym2231 - marks2229 - token2239 - new-marks2236))) - t2238) - ((lambda (ie2242) - ((lambda (n2243) - ((lambda () - ((letrec ((g2244 (lambda (j2245) - (if (= j2245 - n2243) - (f2232 - (cdr symnames2234) - i2233) - ((lambda (id2246) - ((lambda (id.sym2248 - id.marks2247) - (if (help-bound-id=?437 - id.sym2248 - id.marks2247 - sym2231 - marks2229) - (values - (lookup-import-label506 - id2246) - marks2229) - (g2244 - (+ j2245 - '1)))) - ((lambda (x2249) - ((lambda (e2250) - (if (annotation?132 - e2250) - (annotation-expression - e2250) - e2250)) - (if (syntax-object?64 - x2249) - (syntax-object-expression65 - x2249) - x2249))) - id2246) - (join-marks423 - new-marks2236 - (id-marks312 - id2246)))) - (vector-ref - ie2242 - j2245)))))) - g2244) - '0)))) - (vector-length - ie2242))) - (interface-exports454 - iface2237)))) - (interface-token455 - iface2237))) - (import-interface-interface381 - x2235) - (import-interface-new-marks382 - x2235)) - (if (if (eq? x2235 - barrier-marker405) - (same-marks?425 - marks2229 - (list-ref - (ribcage-marks368 - ribcage2227) - i2233)) - '#f) - (values - '#f - marks2229) - (f2232 - (cdr symnames2234) - (+ i2233 - '1)))))) - (car symnames2234)))))) - f2232) - symnames2228 - '0))) - (search-vector-rib2212 (lambda (sym2223 - subst2222 - marks2221 - symnames2220 - ribcage2219) - ((lambda (n2224) - ((letrec ((f2225 (lambda (i2226) - (if (= i2226 - n2224) - (search2210 - sym2223 - (cdr subst2222) - marks2221) - (if (if (eq? (vector-ref - symnames2220 - i2226) - sym2223) - (same-marks?425 - marks2221 - (vector-ref - (ribcage-marks368 - ribcage2219) - i2226)) - '#f) - (values - (vector-ref - (ribcage-labels369 - ribcage2219) - i2226) - marks2221) - (f2225 - (+ i2226 - '1))))))) - f2225) - '0)) - (vector-length - symnames2220))))) - (if (symbol? id2209) - (search2210 - id2209 - (wrap-subst317 w2208) - (wrap-marks316 w2208)) - (if (syntax-object?64 id2209) - ((lambda (sym2214 w12213) - (call-with-values - (lambda () - (search2210 - sym2214 - (wrap-subst317 - w2208) - (join-marks423 - (wrap-marks316 - w2208) - (wrap-marks316 - w12213)))) - (lambda (name2216 - marks2215) - (if name2216 - (values - name2216 - marks2215) - (search2210 - sym2214 - (wrap-subst317 - w12213) - marks2215))))) - ((lambda (e2217) - (if (annotation?132 - e2217) - (annotation-expression - e2217) - e2217)) - (syntax-object-expression65 - id2209)) - (syntax-object-wrap66 - id2209)) - (if (annotation?132 - id2209) - (search2210 - ((lambda (e2218) - (if (annotation?132 - e2218) - (annotation-expression - e2218) - e2218)) - id2209) - (wrap-subst317 - w2208) - (wrap-marks316 - w2208)) - (error-hook136 - 'id-var-name - '"invalid id" - id2209))))))) - (id-var-name&marks432 (lambda (id2205 w2204) - (call-with-values - (lambda () - (id-var-name-loc&marks431 - id2205 - w2204)) - (lambda (label2207 marks2206) - (values - (if (indirect-label?356 - label2207) - (get-indirect-label360 - label2207) - label2207) - marks2206))))) - (id-var-name-loc433 (lambda (id2201 w2200) - (call-with-values - (lambda () - (id-var-name-loc&marks431 - id2201 - w2200)) - (lambda (label2203 marks2202) - label2203)))) - (id-var-name434 (lambda (id2197 w2196) - (call-with-values - (lambda () - (id-var-name-loc&marks431 id2197 w2196)) - (lambda (label2199 marks2198) - (if (indirect-label?356 label2199) - (get-indirect-label360 label2199) - label2199))))) - (free-id=?435 (lambda (i2191 j2190) - (if (eq? ((lambda (x2194) - ((lambda (e2195) - (if (annotation?132 e2195) - (annotation-expression - e2195) - e2195)) - (if (syntax-object?64 x2194) - (syntax-object-expression65 - x2194) - x2194))) - i2191) - ((lambda (x2192) - ((lambda (e2193) - (if (annotation?132 e2193) - (annotation-expression - e2193) - e2193)) - (if (syntax-object?64 x2192) - (syntax-object-expression65 - x2192) - x2192))) - j2190)) - (eq? (id-var-name434 i2191 '(())) - (id-var-name434 j2190 '(()))) - '#f))) - (literal-id=?436 (lambda (id2180 literal2179) - (if (eq? ((lambda (x2183) - ((lambda (e2184) - (if (annotation?132 e2184) - (annotation-expression - e2184) - e2184)) - (if (syntax-object?64 x2183) - (syntax-object-expression65 - x2183) - x2183))) - id2180) - ((lambda (x2181) - ((lambda (e2182) - (if (annotation?132 e2182) - (annotation-expression - e2182) - e2182)) - (if (syntax-object?64 x2181) - (syntax-object-expression65 - x2181) - x2181))) - literal2179)) - ((lambda (n-id2186 n-literal2185) - ((lambda (t2187) - (if t2187 - t2187 - (if ((lambda (t2188) - (if t2188 - t2188 - (symbol? - n-id2186))) - (not n-id2186)) - ((lambda (t2189) - (if t2189 - t2189 - (symbol? - n-literal2185))) - (not n-literal2185)) - '#f))) - (eq? n-id2186 n-literal2185))) - (id-var-name434 id2180 '(())) - (id-var-name434 literal2179 '(()))) - '#f))) - (help-bound-id=?437 (lambda (i.sym2178 i.marks2177 j.sym2176 - j.marks2175) - (if (eq? i.sym2178 j.sym2176) - (same-marks?425 - i.marks2177 - j.marks2175) - '#f))) - (bound-id=?438 (lambda (i2170 j2169) - (help-bound-id=?437 - ((lambda (x2173) - ((lambda (e2174) - (if (annotation?132 e2174) - (annotation-expression e2174) - e2174)) - (if (syntax-object?64 x2173) - (syntax-object-expression65 x2173) - x2173))) - i2170) - (id-marks312 i2170) - ((lambda (x2171) - ((lambda (e2172) - (if (annotation?132 e2172) - (annotation-expression e2172) - e2172)) - (if (syntax-object?64 x2171) - (syntax-object-expression65 x2171) - x2171))) - j2169) - (id-marks312 j2169)))) - (valid-bound-ids?439 (lambda (ids2165) - (if ((letrec ((all-ids?2166 (lambda (ids2167) - ((lambda (t2168) - (if t2168 - t2168 - (if (id?306 - (car ids2167)) - (all-ids?2166 - (cdr ids2167)) - '#f))) - (null? - ids2167))))) - all-ids?2166) - ids2165) - (distinct-bound-ids?440 ids2165) - '#f))) - (distinct-bound-ids?440 (lambda (ids2161) - ((letrec ((distinct?2162 (lambda (ids2163) - ((lambda (t2164) - (if t2164 - t2164 - (if (not (bound-id-member?442 - (car ids2163) - (cdr ids2163))) - (distinct?2162 - (cdr ids2163)) - '#f))) - (null? - ids2163))))) - distinct?2162) - ids2161))) - (invalid-ids-error441 (lambda (ids2157 exp2156 class2155) - ((letrec ((find2158 (lambda (ids2160 - gooduns2159) - (if (null? - ids2160) - (syntax-error - exp2156) - (if (id?306 - (car ids2160)) - (if (bound-id-member?442 - (car ids2160) - gooduns2159) - (syntax-error - (car ids2160) - '"duplicate " - class2155) - (find2158 - (cdr ids2160) - (cons - (car ids2160) - gooduns2159))) - (syntax-error - (car ids2160) - '"invalid " - class2155)))))) - find2158) - ids2157 - '()))) - (bound-id-member?442 (lambda (x2153 list2152) - (if (not (null? list2152)) - ((lambda (t2154) - (if t2154 - t2154 - (bound-id-member?442 - x2153 - (cdr list2152)))) - (bound-id=?438 - x2153 - (car list2152))) - '#f))) - (wrap443 (lambda (x2151 w2150) - (if (if (null? (wrap-marks316 w2150)) - (null? (wrap-subst317 w2150)) - '#f) - x2151 - (if (syntax-object?64 x2151) - (make-syntax-object63 - (syntax-object-expression65 x2151) - (join-wraps422 - w2150 - (syntax-object-wrap66 x2151))) - (if (null? x2151) - x2151 - (make-syntax-object63 x2151 w2150)))))) - (source-wrap444 (lambda (x2149 w2148 ae2147) - (wrap443 - (if (annotation?132 ae2147) - (begin - (if (not (eq? (annotation-expression - ae2147) - x2149)) - (error 'sc-expand - '"internal error in source-wrap: ae/x mismatch") + (if (lexical-displaced-lexical?-57119 + lexical-id-57825 + lexical-r-57780) + (lexical-displaced-lexical-error-57120 + (lexical-wrap-57264 + lexical-id-57825 + lexical-w-57791)) (void)) - ae2147) - x2149) - w2148))) - (chi-when-list445 (lambda (when-list2145 w2144) - (map (lambda (x2146) - (if (literal-id=?436 - x2146 - '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - 'compile - (if (literal-id=?436 - x2146 - '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - 'load - (if (literal-id=?436 - x2146 - '#(syntax-object visit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - 'visit - (if (literal-id=?436 - x2146 - '#(syntax-object revisit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - 'revisit - (if (literal-id=?436 - x2146 - '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - 'eval - (syntax-error - (wrap443 - x2146 - w2144) - '"invalid eval-when situation"))))))) - when-list2145))) - (syntax-type446 (lambda (e2129 r2128 w2127 ae2126 rib2125) - (if (symbol? e2129) - ((lambda (n2130) - ((lambda (b2131) - ((lambda (type2132) - ((lambda () - ((lambda (t2133) - (if (memv - t2133 - '(macro macro!)) - (syntax-type446 - (chi-macro502 - (binding-value282 - b2131) - e2129 r2128 w2127 - ae2126 rib2125) - r2128 '(()) '#f - rib2125) - (values type2132 - (binding-value282 - b2131) - e2129 w2127 - ae2126))) - type2132)))) - (binding-type281 b2131))) - (lookup301 n2130 r2128))) - (id-var-name434 e2129 w2127)) - (if (pair? e2129) - ((lambda (first2134) - (if (id?306 first2134) - ((lambda (n2135) - ((lambda (b2136) - ((lambda (type2137) - ((lambda () - ((lambda (t2138) - (if (memv - t2138 - '(lexical)) - (values - 'lexical-call - (binding-value282 - b2136) - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(macro - macro!)) - (syntax-type446 - (chi-macro502 - (binding-value282 - b2136) - e2129 - r2128 - w2127 - ae2126 - rib2125) - r2128 - '(()) - '#f - rib2125) - (if (memv - t2138 - '(core)) - (values - type2137 - (binding-value282 - b2136) - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(begin)) - (values - 'begin-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(alias)) - (values - 'alias-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(define)) - (values - 'define-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(define-syntax)) - (values - 'define-syntax-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(set!)) - (chi-set!501 - e2129 - r2128 - w2127 - ae2126 - rib2125) - (if (memv - t2138 - '($module-key)) - (values - '$module-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '($import)) - (values - '$import-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(eval-when)) - (values - 'eval-when-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(meta)) - (values - 'meta-form - '#f - e2129 - w2127 - ae2126) - (if (memv - t2138 - '(local-syntax)) - (values - 'local-syntax-form - (binding-value282 - b2136) - e2129 - w2127 - ae2126) - (values - 'call - '#f - e2129 - w2127 - ae2126))))))))))))))) - type2137)))) - (binding-type281 - b2136))) - (lookup301 n2135 r2128))) - (id-var-name434 - first2134 - w2127)) - (values 'call '#f e2129 w2127 - ae2126))) - (car e2129)) - (if (syntax-object?64 e2129) - (syntax-type446 - (syntax-object-expression65 - e2129) - r2128 - (join-wraps422 - w2127 - (syntax-object-wrap66 e2129)) - '#f rib2125) - (if (annotation?132 e2129) - (syntax-type446 - (annotation-expression - e2129) - r2128 w2127 e2129 rib2125) - (if ((lambda (x2139) - ((lambda (t2140) - (if t2140 - t2140 - ((lambda (t2141) - (if t2141 - t2141 - ((lambda (t2142) - (if t2142 - t2142 - ((lambda (t2143) - (if t2143 - t2143 - (null? - x2139))) - (char? - x2139)))) - (string? - x2139)))) - (number? - x2139)))) - (boolean? x2139))) - e2129) - (values 'constant '#f - e2129 w2127 ae2126) - (values 'other '#f e2129 - w2127 ae2126)))))))) - (chi-top*447 (lambda (e2120 r2119 w2118 ctem2117 rtem2116 - meta?2115 top-ribcage2114) - ((lambda (meta-residuals2121) - (letrec ((meta-residualize!2122 (lambda (x2124) - (set! meta-residuals2121 - (cons - x2124 - meta-residuals2121))))) - ((lambda (e2123) - (build-sequence235 - '#f - (reverse - (cons e2123 meta-residuals2121)))) - (chi-top449 e2120 r2119 w2118 ctem2117 - rtem2116 meta?2115 top-ribcage2114 - meta-residualize!2122 '#f)))) - '()))) - (chi-top-sequence448 (lambda (body2110 r2109 w2108 ae2107 - ctem2106 rtem2105 meta?2104 - ribcage2103 - meta-residualize!2102) - (build-sequence235 - ae2107 - ((letrec ((dobody2111 (lambda (body2112) - (if (null? - body2112) - '() - ((lambda (first2113) - (cons - first2113 - (dobody2111 - (cdr body2112)))) - (chi-top449 - (car body2112) - r2109 - w2108 - ctem2106 - rtem2105 - meta?2104 - ribcage2103 - meta-residualize!2102 - '#f)))))) - dobody2111) - body2110)))) - (chi-top449 (lambda (e2047 r2046 w2045 ctem2044 rtem2043 - meta?2042 top-ribcage2041 - meta-residualize!2040 meta-seen?2039) - (call-with-values - (lambda () - (syntax-type446 e2047 r2046 w2045 '#f - top-ribcage2041)) - (lambda (type2052 value2051 e2050 w2049 ae2048) - ((lambda (t2053) - (if (memv t2053 '(begin-form)) - ((lambda (forms2054) - (if (null? forms2054) - (chi-void518) - (chi-top-sequence448 forms2054 - r2046 w2049 ae2048 ctem2044 - rtem2043 meta?2042 - top-ribcage2041 - meta-residualize!2040))) - (parse-begin515 - e2050 - w2049 - ae2048 - '#t)) - (if (memv t2053 '(local-syntax-form)) - (call-with-values - (lambda () - (chi-local-syntax517 value2051 - e2050 r2046 r2046 w2049 - ae2048)) - (lambda (forms2059 r2058 mr2057 - w2056 ae2055) - (chi-top-sequence448 forms2059 - r2058 w2056 ae2055 ctem2044 - rtem2043 meta?2042 - top-ribcage2041 - meta-residualize!2040))) - (if (memv t2053 '(eval-when-form)) - (call-with-values - (lambda () - (parse-eval-when513 - e2050 - w2049 - ae2048)) - (lambda (when-list2061 - forms2060) - ((lambda (ctem2063 - rtem2062) - (if (if (null? - ctem2063) - (null? - rtem2062) - '#f) - (chi-void518) - (chi-top-sequence448 - forms2060 r2046 - w2049 ae2048 - ctem2063 rtem2062 - meta?2042 - top-ribcage2041 - meta-residualize!2040))) - (update-mode-set490 - when-list2061 - ctem2044) - (update-mode-set490 - when-list2061 - rtem2043)))) - (if (memv t2053 '(meta-form)) - (chi-top449 - (parse-meta512 - e2050 - w2049 - ae2048) - r2046 w2049 ctem2044 - rtem2043 '#t - top-ribcage2041 - meta-residualize!2040 - '#t) - (if (memv - t2053 - '(define-syntax-form)) - (call-with-values + (if (not (lexical-top-ribcage-mutable?-57197 + lexical-top-ribcage-57785)) + (syntax-error + lexical-orig-57824 + '"invalid definition in read-only environment") + (void)) + (lexical-chi-top-module-57303 + lexical-orig-57824 + lexical-r-57780 + lexical-r-57780 + lexical-top-ribcage-57785 + lexical-ribcage-57823 + lexical-ctem-57782 + lexical-rtem-57783 + lexical-meta?-57784 + lexical-id-57825 + lexical-exports-57826 + lexical-forms-57827 + lexical-meta-residualize!-57786))))) + (lexical-make-ribcage-57186 '() '() '())) + (if (memv lexical-t-57793 '($import-form)) + (call-with-values + (lambda () + (lexical-parse-import-57330 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792)) + (lambda (lexical-orig-57828 + lexical-only?-57829 + lexical-mid-57830) + (begin + (if (not (lexical-top-ribcage-mutable?-57197 + lexical-top-ribcage-57785)) + (syntax-error + lexical-orig-57828 + '"invalid definition in read-only environment") + (void)) + (lexical-ct-eval/residualize2-57314 + lexical-ctem-57782 + (lambda () + ((lambda (lexical-binding-57831) + ((lambda (lexical-t-57832) + (if (memv lexical-t-57832 + '($module)) + (lexical-do-top-import-57310 + lexical-only?-57829 + lexical-top-ribcage-57785 + lexical-mid-57830 + (lexical-interface-token-57276 + (lexical-binding-value-57103 + lexical-binding-57831))) + (if (memv lexical-t-57832 + '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + lexical-mid-57830) + (syntax-error + lexical-mid-57830 + '"unknown module")))) + (lexical-binding-type-57102 + lexical-binding-57831))) + (lexical-lookup-57122 + (lexical-id-var-name-57255 + lexical-mid-57830 + '(())) + '()))))))) + (if (memv lexical-t-57793 '(alias-form)) + (call-with-values + (lambda () + (lexical-parse-alias-57335 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792)) + (lambda (lexical-new-id-57833 + lexical-old-id-57834) + ((lambda (lexical-new-id-57835) + (begin + (if (lexical-displaced-lexical?-57119 + lexical-new-id-57835 + lexical-r-57780) + (lexical-displaced-lexical-error-57120 + lexical-new-id-57835) + (void)) + (if (not (lexical-top-ribcage-mutable?-57197 + lexical-top-ribcage-57785)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792) + '"invalid definition in read-only environment") + (void)) + ((lambda (lexical-sym-57836) + (call-with-values + (lambda () + (lexical-top-id-bound-var-name-57250 + lexical-sym-57836 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-new-id-57835)) + lexical-top-ribcage-57785)) + (lambda (lexical-valsym-57837 + lexical-bound-id-57838) + (begin + (if (not (eq? (lexical-id-var-name-57255 + lexical-new-id-57835 + '(())) + lexical-valsym-57837)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792) + '"definition not permitted") + (void)) + (if (lexical-read-only-binding?-56960 + lexical-valsym-57837) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792) + '"invalid definition of read-only identifier") + (void)) + (lexical-ct-eval/residualize2-57314 + lexical-ctem-57782 (lambda () - (parse-define-syntax511 - e2050 - w2049 - ae2048)) - (lambda (id2066 - rhs2065 - w2064) - ((lambda (id2067) - (begin - (if (displaced-lexical?298 - id2067 - r2046) - (displaced-lexical-error299 - id2067) - (void)) - (if (not (top-ribcage-mutable?376 - top-ribcage2041)) - (syntax-error - (source-wrap444 - e2050 - w2064 - ae2048) - '"invalid definition in read-only environment") - (void)) - ((lambda (sym2068) - (call-with-values - (lambda () - (top-id-bound-var-name429 - sym2068 - (wrap-marks316 - (syntax-object-wrap66 - id2067)) - top-ribcage2041)) - (lambda (valsym2070 - bound-id2069) - (begin - (if (not (eq? (id-var-name434 - id2067 - '(())) - valsym2070)) - (syntax-error - (source-wrap444 - e2050 - w2064 - ae2048) - '"definition not permitted") - (void)) - (if (read-only-binding?140 - valsym2070) - (syntax-error - (source-wrap444 - e2050 - w2064 - ae2048) - '"invalid definition of read-only identifier") - (void)) - (ct-eval/residualize2493 - ctem2044 - (lambda () - (list - '$sc-put-cte - (list - 'quote - bound-id2069) - (chi498 - rhs2065 - r2046 - r2046 - w2064 - '#t) - (list - 'quote - (top-ribcage-key375 - top-ribcage2041))))))))) - ((lambda (x2071) - ((lambda (e2072) - (if (annotation?132 - e2072) - (annotation-expression - e2072) - e2072)) - (if (syntax-object?64 - x2071) - (syntax-object-expression65 - x2071) - x2071))) - id2067)))) - (wrap443 - id2066 - w2064)))) - (if (memv - t2053 - '(define-form)) + (list '$sc-put-cte + (list 'quote + (lexical-make-resolved-id-57239 + lexical-sym-57836 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-new-id-57835)) + (lexical-id-var-name-57255 + lexical-old-id-57834 + lexical-w-57791))) + (list 'quote + '(do-alias + . + #f)) + (list 'quote + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57785))))))))) + ((lambda (lexical-x-57839) + ((lambda (lexical-e-57840) + (if (lexical-annotation?-56952 + lexical-e-57840) + (annotation-expression + lexical-e-57840) + lexical-e-57840)) + (if (lexical-syntax-object?-56884 + lexical-x-57839) + (lexical-syntax-object-expression-56885 + lexical-x-57839) + lexical-x-57839))) + lexical-new-id-57835)))) + (lexical-wrap-57264 + lexical-new-id-57833 + lexical-w-57791)))) + (begin + (if lexical-meta-seen?-57787 + (syntax-error + (lexical-source-wrap-57265 + lexical-e-57790 + lexical-w-57791 + lexical-ae-57792) + '"invalid meta definition") + (void)) + (if lexical-meta?-57784 + ((lambda (lexical-x-57841) + (begin + (lexical-top-level-eval-hook-56953 + lexical-x-57841) + (lexical-ct-eval/residualize3-57315 + lexical-ctem-57782 + void + (lambda () lexical-x-57841)))) + (lexical-chi-expr-57320 + lexical-type-57788 + lexical-value-57789 + lexical-e-57790 + lexical-r-57780 + lexical-r-57780 + lexical-w-57791 + lexical-ae-57792 + '#t)) + (lexical-rt-eval/residualize-57313 + lexical-rtem-57783 + (lambda () + (lexical-chi-expr-57320 + lexical-type-57788 + lexical-value-57789 + lexical-e-57790 + lexical-r-57780 + lexical-r-57780 + lexical-w-57791 + lexical-ae-57792 + '#f))))))))))))))) + lexical-type-57788))))) + (lexical-flatten-exports-57271 + (lambda (lexical-exports-57842) + ((letrec ((lexical-loop-57843 + (lambda (lexical-exports-57844 lexical-ls-57845) + (if (null? lexical-exports-57844) + lexical-ls-57845 + (lexical-loop-57843 + (cdr lexical-exports-57844) + (if (pair? (car lexical-exports-57844)) + (lexical-loop-57843 + (car lexical-exports-57844) + lexical-ls-57845) + (cons (car lexical-exports-57844) + lexical-ls-57845))))))) + lexical-loop-57843) + lexical-exports-57842 + '()))) + (lexical-make-interface-57272 + (lambda (lexical-marks-57846 + lexical-exports-57847 + lexical-token-57848) + (vector + 'interface + lexical-marks-57846 + lexical-exports-57847 + lexical-token-57848))) + (lexical-interface?-57273 + (lambda (lexical-x-57849) + (if (vector? lexical-x-57849) + (if (= (vector-length lexical-x-57849) '4) + (eq? (vector-ref lexical-x-57849 '0) 'interface) + '#f) + '#f))) + (lexical-interface-marks-57274 + (lambda (lexical-x-57850) + (vector-ref lexical-x-57850 '1))) + (lexical-interface-exports-57275 + (lambda (lexical-x-57851) + (vector-ref lexical-x-57851 '2))) + (lexical-interface-token-57276 + (lambda (lexical-x-57852) + (vector-ref lexical-x-57852 '3))) + (lexical-set-interface-marks!-57277 + (lambda (lexical-x-57853 lexical-update-57854) + (vector-set! + lexical-x-57853 + '1 + lexical-update-57854))) + (lexical-set-interface-exports!-57278 + (lambda (lexical-x-57855 lexical-update-57856) + (vector-set! + lexical-x-57855 + '2 + lexical-update-57856))) + (lexical-set-interface-token!-57279 + (lambda (lexical-x-57857 lexical-update-57858) + (vector-set! + lexical-x-57857 + '3 + lexical-update-57858))) + (lexical-make-unresolved-interface-57280 + (lambda (lexical-mid-57859 lexical-exports-57860) + (lexical-make-interface-57272 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-mid-57859)) + (list->vector + (map (lambda (lexical-x-57861) + (if (pair? lexical-x-57861) + (car lexical-x-57861) + lexical-x-57861)) + lexical-exports-57860)) + '#f))) + (lexical-make-resolved-interface-57281 + (lambda (lexical-mid-57862 + lexical-exports-57863 + lexical-token-57864) + (lexical-make-interface-57272 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-mid-57862)) + (list->vector + (map (lambda (lexical-x-57865) + (lexical-id->resolved-id-57240 + (if (pair? lexical-x-57865) + (car lexical-x-57865) + lexical-x-57865))) + lexical-exports-57863)) + lexical-token-57864))) + (lexical-make-module-binding-57282 + (lambda (lexical-type-57866 + lexical-id-57867 + lexical-label-57868 + lexical-imps-57869 + lexical-val-57870 + lexical-exported-57871) + (vector + 'module-binding + lexical-type-57866 + lexical-id-57867 + lexical-label-57868 + lexical-imps-57869 + lexical-val-57870 + lexical-exported-57871))) + (lexical-module-binding?-57283 + (lambda (lexical-x-57872) + (if (vector? lexical-x-57872) + (if (= (vector-length lexical-x-57872) '7) + (eq? (vector-ref lexical-x-57872 '0) + 'module-binding) + '#f) + '#f))) + (lexical-module-binding-type-57284 + (lambda (lexical-x-57873) + (vector-ref lexical-x-57873 '1))) + (lexical-module-binding-id-57285 + (lambda (lexical-x-57874) + (vector-ref lexical-x-57874 '2))) + (lexical-module-binding-label-57286 + (lambda (lexical-x-57875) + (vector-ref lexical-x-57875 '3))) + (lexical-module-binding-imps-57287 + (lambda (lexical-x-57876) + (vector-ref lexical-x-57876 '4))) + (lexical-module-binding-val-57288 + (lambda (lexical-x-57877) + (vector-ref lexical-x-57877 '5))) + (lexical-module-binding-exported-57289 + (lambda (lexical-x-57878) + (vector-ref lexical-x-57878 '6))) + (lexical-set-module-binding-type!-57290 + (lambda (lexical-x-57879 lexical-update-57880) + (vector-set! + lexical-x-57879 + '1 + lexical-update-57880))) + (lexical-set-module-binding-id!-57291 + (lambda (lexical-x-57881 lexical-update-57882) + (vector-set! + lexical-x-57881 + '2 + lexical-update-57882))) + (lexical-set-module-binding-label!-57292 + (lambda (lexical-x-57883 lexical-update-57884) + (vector-set! + lexical-x-57883 + '3 + lexical-update-57884))) + (lexical-set-module-binding-imps!-57293 + (lambda (lexical-x-57885 lexical-update-57886) + (vector-set! + lexical-x-57885 + '4 + lexical-update-57886))) + (lexical-set-module-binding-val!-57294 + (lambda (lexical-x-57887 lexical-update-57888) + (vector-set! + lexical-x-57887 + '5 + lexical-update-57888))) + (lexical-set-module-binding-exported!-57295 + (lambda (lexical-x-57889 lexical-update-57890) + (vector-set! + lexical-x-57889 + '6 + lexical-update-57890))) + (lexical-create-module-binding-57296 + (lambda (lexical-type-57891 + lexical-id-57892 + lexical-label-57893 + lexical-imps-57894 + lexical-val-57895) + (lexical-make-module-binding-57282 + lexical-type-57891 + lexical-id-57892 + lexical-label-57893 + lexical-imps-57894 + lexical-val-57895 + '#f))) + (lexical-make-frob-57297 + (lambda (lexical-e-57896 lexical-meta?-57897) + (vector + 'frob + lexical-e-57896 + lexical-meta?-57897))) + (lexical-frob?-57298 + (lambda (lexical-x-57898) + (if (vector? lexical-x-57898) + (if (= (vector-length lexical-x-57898) '3) + (eq? (vector-ref lexical-x-57898 '0) 'frob) + '#f) + '#f))) + (lexical-frob-e-57299 + (lambda (lexical-x-57899) + (vector-ref lexical-x-57899 '1))) + (lexical-frob-meta?-57300 + (lambda (lexical-x-57900) + (vector-ref lexical-x-57900 '2))) + (lexical-set-frob-e!-57301 + (lambda (lexical-x-57901 lexical-update-57902) + (vector-set! + lexical-x-57901 + '1 + lexical-update-57902))) + (lexical-set-frob-meta?!-57302 + (lambda (lexical-x-57903 lexical-update-57904) + (vector-set! + lexical-x-57903 + '2 + lexical-update-57904))) + (lexical-chi-top-module-57303 + (lambda (lexical-orig-57905 + lexical-r-57906 + lexical-mr-57907 + lexical-top-ribcage-57908 + lexical-ribcage-57909 + lexical-ctem-57910 + lexical-rtem-57911 + lexical-meta?-57912 + lexical-id-57913 + lexical-exports-57914 + lexical-forms-57915 + lexical-meta-residualize!-57916) + ((lambda (lexical-fexports-57917) + (call-with-values + (lambda () + (lexical-chi-external-57307 + lexical-ribcage-57909 + lexical-orig-57905 + (map (lambda (lexical-d-57918) + (lexical-make-frob-57297 + lexical-d-57918 + lexical-meta?-57912)) + lexical-forms-57915) + lexical-r-57906 + lexical-mr-57907 + lexical-ctem-57910 + lexical-exports-57914 + lexical-fexports-57917 + lexical-meta-residualize!-57916)) + (lambda (lexical-r-57919 + lexical-mr-57920 + lexical-bindings-57921 + lexical-inits-57922) + ((letrec ((lexical-process-exports-57923 + (lambda (lexical-fexports-57924 + lexical-ctdefs-57925) + (if (null? lexical-fexports-57924) + ((letrec ((lexical-process-locals-57926 + (lambda (lexical-bs-57927 + lexical-r-57928 + lexical-dts-57929 + lexical-dvs-57930 + lexical-des-57931) + (if (null? lexical-bs-57927) + ((lambda (lexical-des-57932 + lexical-inits-57933) + (lexical-build-sequence-57055 + '#f + (append + (lexical-ctdefs-57925) + (list (lexical-ct-eval/residualize2-57314 + lexical-ctem-57910 + (lambda () + ((lambda (lexical-sym-57934) + ((lambda (lexical-token-57935) + ((lambda (lexical-b-57936) + ((lambda () + (call-with-values + (lambda () + (lexical-top-id-bound-var-name-57250 + lexical-sym-57934 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-57913)) + lexical-top-ribcage-57908)) + (lambda (lexical-valsym-57937 + lexical-bound-id-57938) + (begin + (if (not (eq? (lexical-id-var-name-57255 + lexical-id-57913 + '(())) + lexical-valsym-57937)) + (syntax-error + lexical-orig-57905 + '"definition not permitted") + (void)) + (if (lexical-read-only-binding?-56960 + lexical-valsym-57937) + (syntax-error + lexical-orig-57905 + '"invalid definition of read-only identifier") + (void)) + (list '$sc-put-cte + (list 'quote + lexical-bound-id-57938) + lexical-b-57936 + (list 'quote + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-57908))))))))) + (list 'quote + (cons '$module + (lexical-make-resolved-interface-57281 + lexical-id-57913 + lexical-exports-57914 + lexical-token-57935))))) + (lexical-generate-id-56963 + lexical-sym-57934))) + ((lambda (lexical-x-57939) + ((lambda (lexical-e-57940) + (if (lexical-annotation?-56952 + lexical-e-57940) + (annotation-expression + lexical-e-57940) + lexical-e-57940)) + (if (lexical-syntax-object?-56884 + lexical-x-57939) + (lexical-syntax-object-expression-56885 + lexical-x-57939) + lexical-x-57939))) + lexical-id-57913)))) + (lexical-rt-eval/residualize-57313 + lexical-rtem-57911 + (lambda () + (lexical-build-top-module-57059 + '#f + lexical-dts-57929 + lexical-dvs-57930 + lexical-des-57932 + (if (null? lexical-inits-57933) + (lexical-chi-void-57339) + (lexical-build-sequence-57055 + '#f + (append + lexical-inits-57933 + (list (lexical-chi-void-57339)))))))))))) + (lexical-chi-frobs-57316 + lexical-des-57931 + lexical-r-57928 + lexical-mr-57920 + '#f) + (lexical-chi-frobs-57316 + lexical-inits-57922 + lexical-r-57928 + lexical-mr-57920 + '#f)) + ((lambda (lexical-b-57941 + lexical-bs-57942) + ((lambda (lexical-t-57943) + ((lambda (lexical-t-57944) + (if (memv lexical-t-57944 + '(define-form)) + ((lambda (lexical-label-57945) + (if (lexical-module-binding-exported-57289 + lexical-b-57941) + ((lambda (lexical-var-57946) + (lexical-process-locals-57926 + lexical-bs-57942 + lexical-r-57928 + (cons 'global + lexical-dts-57929) + (cons lexical-label-57945 + lexical-dvs-57930) + (cons (lexical-module-binding-val-57288 + lexical-b-57941) + lexical-des-57931))) + (lexical-module-binding-id-57285 + lexical-b-57941)) + ((lambda (lexical-var-57947) + (lexical-process-locals-57926 + lexical-bs-57942 + (lexical-extend-env-57116 + lexical-label-57945 + (cons 'lexical + lexical-var-57947) + lexical-r-57928) + (cons 'local + lexical-dts-57929) + (cons lexical-var-57947 + lexical-dvs-57930) + (cons (lexical-module-binding-val-57288 + lexical-b-57941) + lexical-des-57931))) + (lexical-gen-var-57344 + (lexical-module-binding-id-57285 + lexical-b-57941))))) + (lexical-get-indirect-label-57181 + (lexical-module-binding-label-57286 + lexical-b-57941))) + (if (memv lexical-t-57944 + '(ctdefine-form + define-syntax-form + $module-form + alias-form)) + (lexical-process-locals-57926 + lexical-bs-57942 + lexical-r-57928 + lexical-dts-57929 + lexical-dvs-57930 + lexical-des-57931) + (error 'sc-expand-internal + '"unexpected module binding type ~s" + lexical-t-57943)))) + (lexical-module-binding-type-57284 + lexical-b-57941))) + (lexical-module-binding-type-57284 + lexical-b-57941))) + (car lexical-bs-57927) + (cdr lexical-bs-57927)))))) + lexical-process-locals-57926) + lexical-bindings-57921 + lexical-r-57919 + '() + '() + '()) + ((lambda (lexical-id-57948 + lexical-fexports-57949) + ((letrec ((lexical-loop-57950 + (lambda (lexical-bs-57951) + (if (null? lexical-bs-57951) + (lexical-process-exports-57923 + lexical-fexports-57949 + lexical-ctdefs-57925) + ((lambda (lexical-b-57952 + lexical-bs-57953) + (if (lexical-free-id=?-57256 + (lexical-module-binding-id-57285 + lexical-b-57952) + lexical-id-57948) + (if (lexical-module-binding-exported-57289 + lexical-b-57952) + (lexical-process-exports-57923 + lexical-fexports-57949 + lexical-ctdefs-57925) + ((lambda (lexical-t-57954) + ((lambda (lexical-label-57955) + ((lambda (lexical-imps-57956) + ((lambda (lexical-fexports-57957) + ((lambda () + (begin + (lexical-set-module-binding-exported!-57295 + lexical-b-57952 + '#t) + ((lambda (lexical-t-57958) + (if (memv lexical-t-57958 + '(define-form)) + ((lambda (lexical-sym-57959) + (begin + (lexical-set-indirect-label!-57182 + lexical-label-57955 + lexical-sym-57959) + (lexical-process-exports-57923 + lexical-fexports-57957 + lexical-ctdefs-57925))) + (lexical-generate-id-56963 + ((lambda (lexical-x-57960) + ((lambda (lexical-e-57961) + (if (lexical-annotation?-56952 + lexical-e-57961) + (annotation-expression + lexical-e-57961) + lexical-e-57961)) + (if (lexical-syntax-object?-56884 + lexical-x-57960) + (lexical-syntax-object-expression-56885 + lexical-x-57960) + lexical-x-57960))) + lexical-id-57948))) + (if (memv lexical-t-57958 + '(ctdefine-form)) + ((lambda (lexical-b-57962) + (lexical-process-exports-57923 + lexical-fexports-57957 + (lambda () + ((lambda (lexical-sym-57963) + (begin + (lexical-set-indirect-label!-57182 + lexical-label-57955 + lexical-sym-57963) + (cons (lexical-ct-eval/residualize3-57315 + lexical-ctem-57910 + (lambda () + (lexical-put-cte-hook-56957 + lexical-sym-57963 + lexical-b-57962)) + (lambda () + (list '$sc-put-cte + (list 'quote + lexical-sym-57963) + (list 'quote + lexical-b-57962) + (list 'quote + '#f)))) + (lexical-ctdefs-57925)))) + (lexical-binding-value-57103 + lexical-b-57962))))) + (lexical-module-binding-val-57288 + lexical-b-57952)) + (if (memv lexical-t-57958 + '(define-syntax-form)) + ((lambda (lexical-sym-57964) + (lexical-process-exports-57923 + lexical-fexports-57957 + (lambda () + ((lambda (lexical-local-label-57965) + (begin + (lexical-set-indirect-label!-57182 + lexical-label-57955 + lexical-sym-57964) + (cons (lexical-ct-eval/residualize3-57315 + lexical-ctem-57910 + (lambda () + (lexical-put-cte-hook-56957 + lexical-sym-57964 + (car (lexical-module-binding-val-57288 + lexical-b-57952)))) + (lambda () + (list '$sc-put-cte + (list 'quote + lexical-sym-57964) + (cdr (lexical-module-binding-val-57288 + lexical-b-57952)) + (list 'quote + '#f)))) + (lexical-ctdefs-57925)))) + (lexical-get-indirect-label-57181 + lexical-label-57955))))) + (lexical-generate-id-56963 + ((lambda (lexical-x-57966) + ((lambda (lexical-e-57967) + (if (lexical-annotation?-56952 + lexical-e-57967) + (annotation-expression + lexical-e-57967) + lexical-e-57967)) + (if (lexical-syntax-object?-56884 + lexical-x-57966) + (lexical-syntax-object-expression-56885 + lexical-x-57966) + lexical-x-57966))) + lexical-id-57948))) + (if (memv lexical-t-57958 + '($module-form)) + ((lambda (lexical-sym-57968 + lexical-exports-57969) + (lexical-process-exports-57923 + (append + (lexical-flatten-exports-57271 + lexical-exports-57969) + lexical-fexports-57957) + (lambda () + (begin + (lexical-set-indirect-label!-57182 + lexical-label-57955 + lexical-sym-57968) + ((lambda (lexical-rest-57970) + ((lambda (lexical-x-57971) + (cons (lexical-ct-eval/residualize3-57315 + lexical-ctem-57910 + (lambda () + (lexical-put-cte-hook-56957 + lexical-sym-57968 + lexical-x-57971)) + (lambda () + (list '$sc-put-cte + (list 'quote + lexical-sym-57968) + (list 'quote + lexical-x-57971) + (list 'quote + '#f)))) + lexical-rest-57970)) + (cons '$module + (lexical-make-resolved-interface-57281 + lexical-id-57948 + lexical-exports-57969 + lexical-sym-57968)))) + (lexical-ctdefs-57925)))))) + (lexical-generate-id-56963 + ((lambda (lexical-x-57972) + ((lambda (lexical-e-57973) + (if (lexical-annotation?-56952 + lexical-e-57973) + (annotation-expression + lexical-e-57973) + lexical-e-57973)) + (if (lexical-syntax-object?-56884 + lexical-x-57972) + (lexical-syntax-object-expression-56885 + lexical-x-57972) + lexical-x-57972))) + lexical-id-57948)) + (lexical-module-binding-val-57288 + lexical-b-57952)) + (if (memv lexical-t-57958 + '(alias-form)) + (lexical-process-exports-57923 + lexical-fexports-57957 + (lambda () + ((lambda (lexical-rest-57974) + (begin + (if (lexical-indirect-label?-57177 + lexical-label-57955) + (if (not (symbol? + (lexical-get-indirect-label-57181 + lexical-label-57955))) + (syntax-error + (lexical-module-binding-id-57285 + lexical-b-57952) + '"unexported target of alias") + (void)) + (void)) + lexical-rest-57974)) + (lexical-ctdefs-57925)))) + (error 'sc-expand-internal + '"unexpected module binding type ~s" + lexical-t-57954))))))) + lexical-t-57954))))) + (append + lexical-imps-57956 + lexical-fexports-57949))) + (lexical-module-binding-imps-57287 + lexical-b-57952))) + (lexical-module-binding-label-57286 + lexical-b-57952))) + (lexical-module-binding-type-57284 + lexical-b-57952))) + (lexical-loop-57950 + lexical-bs-57953))) + (car lexical-bs-57951) + (cdr lexical-bs-57951)))))) + lexical-loop-57950) + lexical-bindings-57921)) + (car lexical-fexports-57924) + (cdr lexical-fexports-57924)))))) + lexical-process-exports-57923) + lexical-fexports-57917 + (lambda () '()))))) + (lexical-flatten-exports-57271 + lexical-exports-57914)))) + (lexical-id-set-diff-57304 + (lambda (lexical-exports-57975 lexical-defs-57976) + (if (null? lexical-exports-57975) + '() + (if (lexical-bound-id-member?-57263 + (car lexical-exports-57975) + lexical-defs-57976) + (lexical-id-set-diff-57304 + (cdr lexical-exports-57975) + lexical-defs-57976) + (cons (car lexical-exports-57975) + (lexical-id-set-diff-57304 + (cdr lexical-exports-57975) + lexical-defs-57976)))))) + (lexical-check-module-exports-57305 + (lambda (lexical-source-exp-57977 + lexical-fexports-57978 + lexical-ids-57979) + (letrec* + ((lexical-defined?-57980 + (lambda (lexical-e-57981 lexical-ids-57982) + (ormap (lambda (lexical-x-57983) + (if (lexical-import-interface?-57201 lexical-x-57983) + ((lambda (lexical-x.iface-57984 + lexical-x.new-marks-57985) + ((lambda (lexical-t-57986) + (if lexical-t-57986 + ((lambda (lexical-token-57987) + (lexical-lookup-import-binding-name-57236 + ((lambda (lexical-x-57988) + ((lambda (lexical-e-57989) + (if (lexical-annotation?-56952 + lexical-e-57989) + (annotation-expression + lexical-e-57989) + lexical-e-57989)) + (if (lexical-syntax-object?-56884 + lexical-x-57988) + (lexical-syntax-object-expression-56885 + lexical-x-57988) + lexical-x-57988))) + lexical-e-57981) + (lexical-id-marks-57133 + lexical-e-57981) + lexical-token-57987 + lexical-x.new-marks-57985)) + lexical-t-57986) + ((lambda (lexical-v-57990) + ((letrec ((lexical-lp-57991 + (lambda (lexical-i-57992) + (if (>= lexical-i-57992 + '0) + ((lambda (lexical-t-57993) + (if lexical-t-57993 + lexical-t-57993 + (lexical-lp-57991 + (- lexical-i-57992 + '1)))) + ((lambda (lexical-id-57994) + (lexical-help-bound-id=?-57258 + ((lambda (lexical-x-57995) + ((lambda (lexical-e-57996) + (if (lexical-annotation?-56952 + lexical-e-57996) + (annotation-expression + lexical-e-57996) + lexical-e-57996)) + (if (lexical-syntax-object?-56884 + lexical-x-57995) + (lexical-syntax-object-expression-56885 + lexical-x-57995) + lexical-x-57995))) + lexical-id-57994) + (lexical-join-marks-57244 + lexical-x.new-marks-57985 + (lexical-id-marks-57133 + lexical-id-57994)) + ((lambda (lexical-x-57997) + ((lambda (lexical-e-57998) + (if (lexical-annotation?-56952 + lexical-e-57998) + (annotation-expression + lexical-e-57998) + lexical-e-57998)) + (if (lexical-syntax-object?-56884 + lexical-x-57997) + (lexical-syntax-object-expression-56885 + lexical-x-57997) + lexical-x-57997))) + lexical-e-57981) + (lexical-id-marks-57133 + lexical-e-57981))) + (vector-ref + lexical-v-57990 + lexical-i-57992))) + '#f)))) + lexical-lp-57991) + (- (vector-length lexical-v-57990) + '1))) + (lexical-interface-exports-57275 + lexical-x.iface-57984)))) + (lexical-interface-token-57276 + lexical-x.iface-57984))) + (lexical-import-interface-interface-57202 + lexical-x-57983) + (lexical-import-interface-new-marks-57203 + lexical-x-57983)) + (lexical-bound-id=?-57259 + lexical-e-57981 + lexical-x-57983))) + lexical-ids-57982)))) + ((letrec ((lexical-loop-57999 + (lambda (lexical-fexports-58000 lexical-missing-58001) + (if (null? lexical-fexports-58000) + (if (not (null? lexical-missing-58001)) + (syntax-error + (car lexical-missing-58001) + (if (= (length lexical-missing-58001) '1) + '"missing definition for export" + '"missing definition for multiple exports, including")) + (void)) + ((lambda (lexical-e-58002 lexical-fexports-58003) + (if (lexical-defined?-57980 + lexical-e-58002 + lexical-ids-57979) + (lexical-loop-57999 + lexical-fexports-58003 + lexical-missing-58001) + (lexical-loop-57999 + lexical-fexports-58003 + (cons lexical-e-58002 + lexical-missing-58001)))) + (car lexical-fexports-58000) + (cdr lexical-fexports-58000)))))) + lexical-loop-57999) + lexical-fexports-57978 + '())))) + (lexical-check-defined-ids-57306 + (lambda (lexical-source-exp-58004 lexical-ls-58005) + (letrec* + ((lexical-vfold-58006 + (lambda (lexical-v-58009 + lexical-p-58010 + lexical-cls-58011) + ((lambda (lexical-len-58012) + ((letrec ((lexical-lp-58013 + (lambda (lexical-i-58014 lexical-cls-58015) + (if (= lexical-i-58014 lexical-len-58012) + lexical-cls-58015 + (lexical-lp-58013 + (+ lexical-i-58014 '1) + (lexical-p-58010 + (vector-ref + lexical-v-58009 + lexical-i-58014) + lexical-cls-58015)))))) + lexical-lp-58013) + '0 + lexical-cls-58011)) + (vector-length lexical-v-58009)))) + (lexical-conflicts-58007 + (lambda (lexical-x-58016 + lexical-y-58017 + lexical-cls-58018) + (if (lexical-import-interface?-57201 lexical-x-58016) + ((lambda (lexical-x.iface-58019 lexical-x.new-marks-58020) + (if (lexical-import-interface?-57201 lexical-y-58017) + ((lambda (lexical-y.iface-58021 + lexical-y.new-marks-58022) + ((lambda (lexical-xe-58023 lexical-ye-58024) + (if (> (vector-length lexical-xe-58023) + (vector-length lexical-ye-58024)) + (lexical-vfold-58006 + lexical-ye-58024 + (lambda (lexical-id-58025 lexical-cls-58026) + (lexical-id-iface-conflicts-58008 + lexical-id-58025 + lexical-y.new-marks-58022 + lexical-x.iface-58019 + lexical-x.new-marks-58020 + lexical-cls-58026)) + lexical-cls-58018) + (lexical-vfold-58006 + lexical-xe-58023 + (lambda (lexical-id-58027 lexical-cls-58028) + (lexical-id-iface-conflicts-58008 + lexical-id-58027 + lexical-x.new-marks-58020 + lexical-y.iface-58021 + lexical-y.new-marks-58022 + lexical-cls-58028)) + lexical-cls-58018))) + (lexical-interface-exports-57275 + lexical-x.iface-58019) + (lexical-interface-exports-57275 + lexical-y.iface-58021))) + (lexical-import-interface-interface-57202 + lexical-y-58017) + (lexical-import-interface-new-marks-57203 + lexical-y-58017)) + (lexical-id-iface-conflicts-58008 + lexical-y-58017 + '() + lexical-x.iface-58019 + lexical-x.new-marks-58020 + lexical-cls-58018))) + (lexical-import-interface-interface-57202 + lexical-x-58016) + (lexical-import-interface-new-marks-57203 + lexical-x-58016)) + (if (lexical-import-interface?-57201 lexical-y-58017) + ((lambda (lexical-y.iface-58029 lexical-y.new-marks-58030) + (lexical-id-iface-conflicts-58008 + lexical-x-58016 + '() + lexical-y.iface-58029 + lexical-y.new-marks-58030 + lexical-cls-58018)) + (lexical-import-interface-interface-57202 + lexical-y-58017) + (lexical-import-interface-new-marks-57203 + lexical-y-58017)) + (if (lexical-bound-id=?-57259 + lexical-x-58016 + lexical-y-58017) + (cons lexical-x-58016 lexical-cls-58018) + lexical-cls-58018))))) + (lexical-id-iface-conflicts-58008 + (lambda (lexical-id-58031 + lexical-id.new-marks-58032 + lexical-iface-58033 + lexical-iface.new-marks-58034 + lexical-cls-58035) + ((lambda (lexical-id.sym-58036 lexical-id.marks-58037) + ((lambda (lexical-t-58038) + (if lexical-t-58038 + ((lambda (lexical-token-58039) + (if (lexical-lookup-import-binding-name-57236 + lexical-id.sym-58036 + lexical-id.marks-58037 + lexical-token-58039 + lexical-iface.new-marks-58034) + (cons lexical-id-58031 lexical-cls-58035) + lexical-cls-58035)) + lexical-t-58038) + (lexical-vfold-58006 + (lexical-interface-exports-57275 + lexical-iface-58033) + (lambda (lexical-*id-58040 lexical-cls-58041) + ((lambda (lexical-*id.sym-58042 + lexical-*id.marks-58043) + (if (lexical-help-bound-id=?-57258 + lexical-*id.sym-58042 + lexical-*id.marks-58043 + lexical-id.sym-58036 + lexical-id.marks-58037) + (cons lexical-*id-58040 lexical-cls-58041) + lexical-cls-58041)) + ((lambda (lexical-x-58044) + ((lambda (lexical-e-58045) + (if (lexical-annotation?-56952 + lexical-e-58045) + (annotation-expression lexical-e-58045) + lexical-e-58045)) + (if (lexical-syntax-object?-56884 + lexical-x-58044) + (lexical-syntax-object-expression-56885 + lexical-x-58044) + lexical-x-58044))) + lexical-*id-58040) + (lexical-join-marks-57244 + lexical-iface.new-marks-58034 + (lexical-id-marks-57133 lexical-*id-58040)))) + lexical-cls-58035))) + (lexical-interface-token-57276 + lexical-iface-58033))) + ((lambda (lexical-x-58046) + ((lambda (lexical-e-58047) + (if (lexical-annotation?-56952 lexical-e-58047) + (annotation-expression lexical-e-58047) + lexical-e-58047)) + (if (lexical-syntax-object?-56884 lexical-x-58046) + (lexical-syntax-object-expression-56885 + lexical-x-58046) + lexical-x-58046))) + lexical-id-58031) + (lexical-join-marks-57244 + lexical-id.new-marks-58032 + (lexical-id-marks-57133 lexical-id-58031)))))) + (if (not (null? lexical-ls-58005)) + ((letrec ((lexical-lp-58048 + (lambda (lexical-x-58049 + lexical-ls-58050 + lexical-cls-58051) + (if (null? lexical-ls-58050) + (if (not (null? lexical-cls-58051)) + ((lambda (lexical-cls-58052) + (syntax-error + lexical-source-exp-58004 + '"duplicate definition for " + (symbol->string (car lexical-cls-58052)) + '" in")) + (syntax-object->datum lexical-cls-58051)) + (void)) + ((letrec ((lexical-lp2-58053 + (lambda (lexical-ls2-58054 + lexical-cls-58055) + (if (null? lexical-ls2-58054) + (lexical-lp-58048 + (car lexical-ls-58050) + (cdr lexical-ls-58050) + lexical-cls-58055) + (lexical-lp2-58053 + (cdr lexical-ls2-58054) + (lexical-conflicts-58007 + lexical-x-58049 + (car lexical-ls2-58054) + lexical-cls-58055)))))) + lexical-lp2-58053) + lexical-ls-58050 + lexical-cls-58051))))) + lexical-lp-58048) + (car lexical-ls-58005) + (cdr lexical-ls-58005) + '()) + (void))))) + (lexical-chi-external-57307 + (lambda (lexical-ribcage-58056 + lexical-source-exp-58057 + lexical-body-58058 + lexical-r-58059 + lexical-mr-58060 + lexical-ctem-58061 + lexical-exports-58062 + lexical-fexports-58063 + lexical-meta-residualize!-58064) + (letrec* + ((lexical-return-58065 + (lambda (lexical-r-58068 + lexical-mr-58069 + lexical-bindings-58070 + lexical-ids-58071 + lexical-inits-58072) + (begin + (lexical-check-defined-ids-57306 + lexical-source-exp-58057 + lexical-ids-58071) + (lexical-check-module-exports-57305 + lexical-source-exp-58057 + lexical-fexports-58063 + lexical-ids-58071) + (values + lexical-r-58068 + lexical-mr-58069 + lexical-bindings-58070 + lexical-inits-58072)))) + (lexical-get-implicit-exports-58066 + (lambda (lexical-id-58073) + ((letrec ((lexical-f-58074 + (lambda (lexical-exports-58075) + (if (null? lexical-exports-58075) + '() + (if (if (pair? (car lexical-exports-58075)) + (lexical-bound-id=?-57259 + lexical-id-58073 + (caar lexical-exports-58075)) + '#f) + (lexical-flatten-exports-57271 + (cdar lexical-exports-58075)) + (lexical-f-58074 + (cdr lexical-exports-58075))))))) + lexical-f-58074) + lexical-exports-58062))) + (lexical-update-imp-exports-58067 + (lambda (lexical-bindings-58076 lexical-exports-58077) + ((lambda (lexical-exports-58078) + (map (lambda (lexical-b-58079) + ((lambda (lexical-id-58080) + (if (not (lexical-bound-id-member?-57263 + lexical-id-58080 + lexical-exports-58078)) + lexical-b-58079 + (lexical-create-module-binding-57296 + (lexical-module-binding-type-57284 + lexical-b-58079) + lexical-id-58080 + (lexical-module-binding-label-57286 + lexical-b-58079) + (append + (lexical-get-implicit-exports-58066 + lexical-id-58080) + (lexical-module-binding-imps-57287 + lexical-b-58079)) + (lexical-module-binding-val-57288 + lexical-b-58079)))) + (lexical-module-binding-id-57285 lexical-b-58079))) + lexical-bindings-58076)) + (map (lambda (lexical-x-58081) + (if (pair? lexical-x-58081) + (car lexical-x-58081) + lexical-x-58081)) + lexical-exports-58077))))) + ((letrec ((lexical-parse-58082 + (lambda (lexical-body-58083 + lexical-r-58084 + lexical-mr-58085 + lexical-ids-58086 + lexical-bindings-58087 + lexical-inits-58088 + lexical-meta-seen?-58089) + (if (null? lexical-body-58083) + (lexical-return-58065 + lexical-r-58084 + lexical-mr-58085 + lexical-bindings-58087 + lexical-ids-58086 + lexical-inits-58088) + ((lambda (lexical-fr-58090) + ((lambda (lexical-e-58091) + ((lambda (lexical-meta?-58092) + ((lambda () + (call-with-values + (lambda () + (lexical-syntax-type-57267 + lexical-e-58091 + lexical-r-58084 + '(()) + '#f + lexical-ribcage-58056)) + (lambda (lexical-type-58093 + lexical-value-58094 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097) + ((lambda (lexical-t-58098) + (if (memv lexical-t-58098 + '(define-form)) + (call-with-values + (lambda () + (lexical-parse-define-57331 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097)) + (lambda (lexical-id-58099 + lexical-rhs-58100 + lexical-w-58101) + ((lambda (lexical-id-58102) + ((lambda (lexical-label-58103) + ((lambda (lexical-imps-58104) + ((lambda () + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58056 + lexical-id-58102 + lexical-label-58103) + (if lexical-meta?-58092 + ((lambda (lexical-sym-58105) + ((lambda (lexical-b-58106) + ((lambda () + ((lambda (lexical-mr-58107) + ((lambda (lexical-exp-58108) + (begin + (lexical-define-top-level-value-hook-56955 + lexical-sym-58105 + (lexical-top-level-eval-hook-56953 + lexical-exp-58108)) + (lexical-meta-residualize!-58064 + (lexical-ct-eval/residualize3-57315 + lexical-ctem-58061 + void + (lambda () + (list 'define + lexical-sym-58105 + lexical-exp-58108)))) + (lexical-parse-58082 + (cdr lexical-body-58083) + lexical-r-58084 + lexical-mr-58107 + (cons lexical-id-58102 + lexical-ids-58086) + (cons (lexical-create-module-binding-57296 + 'ctdefine-form + lexical-id-58102 + lexical-label-58103 + lexical-imps-58104 + lexical-b-58106) + lexical-bindings-58087) + lexical-inits-58088 + '#f))) + (lexical-chi-57319 + lexical-rhs-58100 + lexical-mr-58107 + lexical-mr-58107 + lexical-w-58101 + '#t))) + (lexical-extend-env-57116 + (lexical-get-indirect-label-57181 + lexical-label-58103) + lexical-b-58106 + lexical-mr-58085))))) + (cons 'meta-variable + lexical-sym-58105))) + (lexical-generate-id-56963 + ((lambda (lexical-x-58109) + ((lambda (lexical-e-58110) + (if (lexical-annotation?-56952 + lexical-e-58110) + (annotation-expression + lexical-e-58110) + lexical-e-58110)) + (if (lexical-syntax-object?-56884 + lexical-x-58109) + (lexical-syntax-object-expression-56885 + lexical-x-58109) + lexical-x-58109))) + lexical-id-58102))) + (lexical-parse-58082 + (cdr lexical-body-58083) + lexical-r-58084 + lexical-mr-58085 + (cons lexical-id-58102 + lexical-ids-58086) + (cons (lexical-create-module-binding-57296 + lexical-type-58093 + lexical-id-58102 + lexical-label-58103 + lexical-imps-58104 + (lexical-make-frob-57297 + (lexical-wrap-57264 + lexical-rhs-58100 + lexical-w-58101) + lexical-meta?-58092)) + lexical-bindings-58087) + lexical-inits-58088 + '#f)))))) + (lexical-get-implicit-exports-58066 + lexical-id-58102))) + (lexical-gen-indirect-label-57180))) + (lexical-wrap-57264 + lexical-id-58099 + lexical-w-58101)))) + (if (memv lexical-t-58098 + '(define-syntax-form)) + (call-with-values + (lambda () + (lexical-parse-define-syntax-57332 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097)) + (lambda (lexical-id-58111 + lexical-rhs-58112 + lexical-w-58113) + ((lambda (lexical-id-58114) + ((lambda (lexical-label-58115) + ((lambda (lexical-imps-58116) + ((lambda (lexical-exp-58117) + ((lambda () + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58056 + lexical-id-58114 + lexical-label-58115) + ((lambda (lexical-l-58118 + lexical-b-58119) + (lexical-parse-58082 + (cdr lexical-body-58083) + (lexical-extend-env-57116 + lexical-l-58118 + lexical-b-58119 + lexical-r-58084) + (lexical-extend-env-57116 + lexical-l-58118 + lexical-b-58119 + lexical-mr-58085) + (cons lexical-id-58114 + lexical-ids-58086) + (cons (lexical-create-module-binding-57296 + lexical-type-58093 + lexical-id-58114 + lexical-label-58115 + lexical-imps-58116 + (cons lexical-b-58119 + lexical-exp-58117)) + lexical-bindings-58087) + lexical-inits-58088 + '#f)) + (lexical-get-indirect-label-57181 + lexical-label-58115) + (lexical-defer-or-eval-transformer-57124 + lexical-top-level-eval-hook-56953 + lexical-exp-58117)))))) + (lexical-chi-57319 + lexical-rhs-58112 + lexical-mr-58085 + lexical-mr-58085 + lexical-w-58113 + '#t))) + (lexical-get-implicit-exports-58066 + lexical-id-58114))) + (lexical-gen-indirect-label-57180))) + (lexical-wrap-57264 + lexical-id-58111 + lexical-w-58113)))) + (if (memv lexical-t-58098 + '($module-form)) + ((lambda (lexical-*ribcage-58120) + ((lambda (lexical-*w-58121) + ((lambda () + (call-with-values + (lambda () + (lexical-parse-module-57329 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097 + lexical-*w-58121)) + (lambda (lexical-orig-58122 + lexical-id-58123 + lexical-*exports-58124 + lexical-forms-58125) + (call-with-values + (lambda () + (lexical-chi-external-57307 + lexical-*ribcage-58120 + lexical-orig-58122 + (map (lambda (lexical-d-58126) + (lexical-make-frob-57297 + lexical-d-58126 + lexical-meta?-58092)) + lexical-forms-58125) + lexical-r-58084 + lexical-mr-58085 + lexical-ctem-58061 + lexical-*exports-58124 + (lexical-flatten-exports-57271 + lexical-*exports-58124) + lexical-meta-residualize!-58064)) + (lambda (lexical-r-58127 + lexical-mr-58128 + lexical-*bindings-58129 + lexical-*inits-58130) + ((lambda (lexical-iface-58131 + lexical-bindings-58132 + lexical-inits-58133 + lexical-label-58134 + lexical-imps-58135) + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58056 + lexical-id-58123 + lexical-label-58134) + ((lambda (lexical-l-58136 + lexical-b-58137) + (lexical-parse-58082 + (cdr lexical-body-58083) + (lexical-extend-env-57116 + lexical-l-58136 + lexical-b-58137 + lexical-r-58127) + (lexical-extend-env-57116 + lexical-l-58136 + lexical-b-58137 + lexical-mr-58128) + (cons lexical-id-58123 + lexical-ids-58086) + (cons (lexical-create-module-binding-57296 + lexical-type-58093 + lexical-id-58123 + lexical-label-58134 + lexical-imps-58135 + lexical-*exports-58124) + lexical-bindings-58132) + lexical-inits-58133 + '#f)) + (lexical-get-indirect-label-57181 + lexical-label-58134) + (cons '$module + lexical-iface-58131)))) + (lexical-make-unresolved-interface-57280 + lexical-id-58123 + lexical-*exports-58124) + (append + lexical-*bindings-58129 + lexical-bindings-58087) + (append + lexical-inits-58088 + lexical-*inits-58130) + (lexical-gen-indirect-label-57180) + (lexical-get-implicit-exports-58066 + lexical-id-58123))))))))) + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 + lexical-w-58096) + (cons lexical-*ribcage-58120 + (lexical-wrap-subst-57138 + lexical-w-58096))))) + (lexical-make-ribcage-57186 + '() + '() + '())) + (if (memv lexical-t-58098 + '($import-form)) + (call-with-values + (lambda () + (lexical-parse-import-57330 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097)) + (lambda (lexical-orig-58138 + lexical-only?-58139 + lexical-mid-58140) + ((lambda (lexical-mlabel-58141) + ((lambda (lexical-binding-58142) + ((lambda (lexical-t-58143) + (if (memv lexical-t-58143 + '($module)) + ((lambda (lexical-iface-58144) + ((lambda (lexical-import-iface-58145) + ((lambda () + (begin + (if lexical-only?-58139 + (lexical-extend-ribcage-barrier!-57233 + lexical-ribcage-58056 + lexical-mid-58140) + (void)) + (lexical-do-import!-57328 + lexical-import-iface-58145 + lexical-ribcage-58056) + (lexical-parse-58082 + (cdr lexical-body-58083) + lexical-r-58084 + lexical-mr-58085 + (cons lexical-import-iface-58145 + lexical-ids-58086) + (lexical-update-imp-exports-58067 + lexical-bindings-58087 + (vector->list + (lexical-interface-exports-57275 + lexical-iface-58144))) + lexical-inits-58088 + '#f))))) + (lexical-make-import-interface-57200 + lexical-iface-58144 + (lexical-import-mark-delta-57326 + lexical-mid-58140 + lexical-iface-58144)))) + (lexical-binding-value-57103 + lexical-binding-58142)) + (if (memv lexical-t-58143 + '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + lexical-mid-58140) + (syntax-error + lexical-mid-58140 + '"unknown module")))) + (lexical-binding-type-57102 + lexical-binding-58142))) + (lexical-lookup-57122 + lexical-mlabel-58141 + lexical-r-58084))) + (lexical-id-var-name-57255 + lexical-mid-58140 + '(()))))) + (if (memv lexical-t-58098 + '(alias-form)) (call-with-values (lambda () - (parse-define510 - e2050 - w2049 - ae2048)) - (lambda (id2075 - rhs2074 - w2073) - ((lambda (id2076) - (begin - (if (displaced-lexical?298 - id2076 - r2046) - (displaced-lexical-error299 - id2076) - (void)) - (if (not (top-ribcage-mutable?376 - top-ribcage2041)) - (syntax-error - (source-wrap444 - e2050 - w2073 - ae2048) - '"invalid definition in read-only environment") - (void)) - ((lambda (sym2077) - (call-with-values - (lambda () - (top-id-bound-var-name429 - sym2077 - (wrap-marks316 - (syntax-object-wrap66 - id2076)) - top-ribcage2041)) - (lambda (valsym2079 - bound-id2078) + (lexical-parse-alias-57335 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097)) + (lambda (lexical-new-id-58146 + lexical-old-id-58147) + ((lambda (lexical-new-id-58148) + ((lambda (lexical-label-58149) + ((lambda (lexical-imps-58150) + ((lambda () (begin - (if (not (eq? (id-var-name434 - id2076 - '(())) - valsym2079)) - (syntax-error - (source-wrap444 - e2050 - w2073 - ae2048) - '"definition not permitted") - (void)) - (if (read-only-binding?140 - valsym2079) - (syntax-error - (source-wrap444 - e2050 - w2073 - ae2048) - '"invalid definition of read-only identifier") - (void)) - (if meta?2042 - (ct-eval/residualize2493 - ctem2044 - (lambda () - (build-sequence235 - '#f - (list - (list - '$sc-put-cte - (list - 'quote - bound-id2078) - (list - 'quote - (cons - 'meta-variable - valsym2079)) - (list - 'quote - (top-ribcage-key375 - top-ribcage2041))) - (list - 'define - valsym2079 - (chi498 - rhs2074 - r2046 - r2046 - w2073 - '#t)))))) - ((lambda (x2080) - (build-sequence235 - '#f - (list - x2080 - (rt-eval/residualize492 - rtem2043 - (lambda () - (list - 'define - valsym2079 - (chi498 - rhs2074 - r2046 - r2046 - w2073 - '#f))))))) - (ct-eval/residualize2493 - ctem2044 - (lambda () - (list - '$sc-put-cte - (list - 'quote - bound-id2078) - (list - 'quote - (cons - 'global - valsym2079)) - (list - 'quote - (top-ribcage-key375 - top-ribcage2041))))))))))) - ((lambda (x2081) - ((lambda (e2082) - (if (annotation?132 - e2082) - (annotation-expression - e2082) - e2082)) - (if (syntax-object?64 - x2081) - (syntax-object-expression65 - x2081) - x2081))) - id2076)))) - (wrap443 - id2075 - w2073)))) - (if (memv - t2053 - '($module-form)) - ((lambda (ribcage2083) - (call-with-values - (lambda () - (parse-module508 - e2050 - w2049 - ae2048 - (make-wrap315 - (wrap-marks316 - w2049) - (cons - ribcage2083 - (wrap-subst317 - w2049))))) - (lambda (orig2087 - id2086 - exports2085 - forms2084) - (begin - (if (displaced-lexical?298 - id2086 - r2046) - (displaced-lexical-error299 - (wrap443 - id2086 - w2049)) - (void)) - (if (not (top-ribcage-mutable?376 - top-ribcage2041)) - (syntax-error - orig2087 - '"invalid definition in read-only environment") - (void)) - (chi-top-module482 - orig2087 - r2046 - r2046 - top-ribcage2041 - ribcage2083 - ctem2044 - rtem2043 - meta?2042 - id2086 - exports2085 - forms2084 - meta-residualize!2040))))) - (make-ribcage365 - '() - '() - '())) - (if (memv - t2053 - '($import-form)) + (lexical-extend-ribcage!-57231 + lexical-ribcage-58056 + lexical-new-id-58148 + lexical-label-58149) + (lexical-parse-58082 + (cdr lexical-body-58083) + lexical-r-58084 + lexical-mr-58085 + (cons lexical-new-id-58148 + lexical-ids-58086) + (cons (lexical-create-module-binding-57296 + lexical-type-58093 + lexical-new-id-58148 + lexical-label-58149 + lexical-imps-58150 + '#f) + lexical-bindings-58087) + lexical-inits-58088 + '#f))))) + (lexical-get-implicit-exports-58066 + lexical-new-id-58148))) + (lexical-id-var-name-loc-57254 + lexical-old-id-58147 + lexical-w-58096))) + (lexical-wrap-57264 + lexical-new-id-58146 + lexical-w-58096)))) + (if (memv lexical-t-58098 + '(begin-form)) + (lexical-parse-58082 + ((letrec ((lexical-f-58151 + (lambda (lexical-forms-58152) + (if (null? lexical-forms-58152) + (cdr lexical-body-58083) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (car lexical-forms-58152) + lexical-w-58096) + lexical-meta?-58092) + (lexical-f-58151 + (cdr lexical-forms-58152))))))) + lexical-f-58151) + (lexical-parse-begin-57336 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097 + '#t)) + lexical-r-58084 + lexical-mr-58085 + lexical-ids-58086 + lexical-bindings-58087 + lexical-inits-58088 + '#f) + (if (memv lexical-t-58098 + '(eval-when-form)) + (call-with-values + (lambda () + (lexical-parse-eval-when-57334 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097)) + (lambda (lexical-when-list-58153 + lexical-forms-58154) + (lexical-parse-58082 + (if (memq 'eval + lexical-when-list-58153) + ((letrec ((lexical-f-58155 + (lambda (lexical-forms-58156) + (if (null? lexical-forms-58156) + (cdr lexical-body-58083) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (car lexical-forms-58156) + lexical-w-58096) + lexical-meta?-58092) + (lexical-f-58155 + (cdr lexical-forms-58156))))))) + lexical-f-58155) + lexical-forms-58154) + (cdr lexical-body-58083)) + lexical-r-58084 + lexical-mr-58085 + lexical-ids-58086 + lexical-bindings-58087 + lexical-inits-58088 + '#f))) + (if (memv lexical-t-58098 + '(meta-form)) + (lexical-parse-58082 + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (lexical-parse-meta-57333 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097) + lexical-w-58096) + '#t) + (cdr lexical-body-58083)) + lexical-r-58084 + lexical-mr-58085 + lexical-ids-58086 + lexical-bindings-58087 + lexical-inits-58088 + '#t) + (if (memv lexical-t-58098 + '(local-syntax-form)) (call-with-values (lambda () - (parse-import509 - e2050 - w2049 - ae2048)) - (lambda (orig2090 - only?2089 - mid2088) - (begin - (if (not (top-ribcage-mutable?376 - top-ribcage2041)) - (syntax-error - orig2090 - '"invalid definition in read-only environment") - (void)) - (ct-eval/residualize2493 - ctem2044 - (lambda () - ((lambda (binding2091) - ((lambda (t2092) - (if (memv - t2092 - '($module)) - (do-top-import489 - only?2089 - top-ribcage2041 - mid2088 - (interface-token455 - (binding-value282 - binding2091))) - (if (memv - t2092 - '(displaced-lexical)) - (displaced-lexical-error299 - mid2088) - (syntax-error - mid2088 - '"unknown module")))) - (binding-type281 - binding2091))) - (lookup301 - (id-var-name434 - mid2088 - '(())) - '()))))))) - (if (memv - t2053 - '(alias-form)) - (call-with-values - (lambda () - (parse-alias514 - e2050 - w2049 - ae2048)) - (lambda (new-id2094 - old-id2093) - ((lambda (new-id2095) - (begin - (if (displaced-lexical?298 - new-id2095 - r2046) - (displaced-lexical-error299 - new-id2095) - (void)) - (if (not (top-ribcage-mutable?376 - top-ribcage2041)) - (syntax-error - (source-wrap444 - e2050 - w2049 - ae2048) - '"invalid definition in read-only environment") - (void)) - ((lambda (sym2096) - (call-with-values - (lambda () - (top-id-bound-var-name429 - sym2096 - (wrap-marks316 - (syntax-object-wrap66 - new-id2095)) - top-ribcage2041)) - (lambda (valsym2098 - bound-id2097) - (begin - (if (not (eq? (id-var-name434 - new-id2095 - '(())) - valsym2098)) - (syntax-error - (source-wrap444 - e2050 - w2049 - ae2048) - '"definition not permitted") - (void)) - (if (read-only-binding?140 - valsym2098) - (syntax-error - (source-wrap444 - e2050 - w2049 - ae2048) - '"invalid definition of read-only identifier") - (void)) - (ct-eval/residualize2493 - ctem2044 - (lambda () - (list - '$sc-put-cte - (list - 'quote - (make-resolved-id418 - sym2096 - (wrap-marks316 - (syntax-object-wrap66 - new-id2095)) - (id-var-name434 - old-id2093 - w2049))) - (list - 'quote - '(do-alias - . - #f)) - (list - 'quote - (top-ribcage-key375 - top-ribcage2041))))))))) - ((lambda (x2099) - ((lambda (e2100) - (if (annotation?132 - e2100) - (annotation-expression - e2100) - e2100)) - (if (syntax-object?64 - x2099) - (syntax-object-expression65 - x2099) - x2099))) - new-id2095)))) - (wrap443 - new-id2094 - w2049)))) - (begin - (if meta-seen?2039 - (syntax-error - (source-wrap444 - e2050 - w2049 - ae2048) - '"invalid meta definition") - (void)) - (if meta?2042 - ((lambda (x2101) - (begin - (top-level-eval-hook133 - x2101) - (ct-eval/residualize3494 - ctem2044 - void - (lambda () - x2101)))) - (chi-expr499 - type2052 - value2051 - e2050 - r2046 - r2046 - w2049 - ae2048 - '#t)) - (rt-eval/residualize492 - rtem2043 - (lambda () - (chi-expr499 - type2052 - value2051 - e2050 - r2046 - r2046 - w2049 - ae2048 - '#f))))))))))))))) - type2052))))) - (flatten-exports450 (lambda (exports2035) - ((letrec ((loop2036 (lambda (exports2038 - ls2037) - (if (null? - exports2038) - ls2037 - (loop2036 - (cdr exports2038) - (if (pair? - (car exports2038)) - (loop2036 - (car exports2038) - ls2037) - (cons - (car exports2038) - ls2037))))))) - loop2036) - exports2035 - '()))) - (make-interface451 (lambda (marks2034 exports2033 token2032) - (vector - 'interface - marks2034 - exports2033 - token2032))) - (interface?452 (lambda (x2031) - (if (vector? x2031) - (if (= (vector-length x2031) '4) - (eq? (vector-ref x2031 '0) 'interface) - '#f) - '#f))) - (interface-marks453 (lambda (x2030) (vector-ref x2030 '1))) - (interface-exports454 (lambda (x2029) - (vector-ref x2029 '2))) - (interface-token455 (lambda (x2028) (vector-ref x2028 '3))) - (set-interface-marks!456 (lambda (x2027 update2026) - (vector-set! x2027 '1 update2026))) - (set-interface-exports!457 (lambda (x2025 update2024) - (vector-set! - x2025 - '2 - update2024))) - (set-interface-token!458 (lambda (x2023 update2022) - (vector-set! x2023 '3 update2022))) - (make-unresolved-interface459 (lambda (mid2020 exports2019) - (make-interface451 - (wrap-marks316 - (syntax-object-wrap66 - mid2020)) - (list->vector - (map (lambda (x2021) - (if (pair? x2021) - (car x2021) - x2021)) - exports2019)) - '#f))) - (make-resolved-interface460 (lambda (mid2017 exports2016 - token2015) - (make-interface451 - (wrap-marks316 - (syntax-object-wrap66 - mid2017)) - (list->vector - (map (lambda (x2018) - (id->resolved-id419 - (if (pair? x2018) - (car x2018) - x2018))) - exports2016)) - token2015))) - (make-module-binding461 (lambda (type2014 id2013 label2012 - imps2011 val2010 exported2009) - (vector 'module-binding type2014 - id2013 label2012 imps2011 val2010 - exported2009))) - (module-binding?462 (lambda (x2008) - (if (vector? x2008) - (if (= (vector-length x2008) '7) - (eq? (vector-ref x2008 '0) - 'module-binding) - '#f) - '#f))) - (module-binding-type463 (lambda (x2007) - (vector-ref x2007 '1))) - (module-binding-id464 (lambda (x2006) - (vector-ref x2006 '2))) - (module-binding-label465 (lambda (x2005) - (vector-ref x2005 '3))) - (module-binding-imps466 (lambda (x2004) - (vector-ref x2004 '4))) - (module-binding-val467 (lambda (x2003) - (vector-ref x2003 '5))) - (module-binding-exported468 (lambda (x2002) - (vector-ref x2002 '6))) - (set-module-binding-type!469 (lambda (x2001 update2000) - (vector-set! - x2001 - '1 - update2000))) - (set-module-binding-id!470 (lambda (x1999 update1998) - (vector-set! - x1999 - '2 - update1998))) - (set-module-binding-label!471 (lambda (x1997 update1996) - (vector-set! - x1997 - '3 - update1996))) - (set-module-binding-imps!472 (lambda (x1995 update1994) - (vector-set! - x1995 - '4 - update1994))) - (set-module-binding-val!473 (lambda (x1993 update1992) - (vector-set! - x1993 - '5 - update1992))) - (set-module-binding-exported!474 (lambda (x1991 update1990) - (vector-set! - x1991 - '6 - update1990))) - (create-module-binding475 (lambda (type1989 id1988 label1987 - imps1986 val1985) - (make-module-binding461 type1989 - id1988 label1987 imps1986 val1985 - '#f))) - (make-frob476 (lambda (e1984 meta?1983) - (vector 'frob e1984 meta?1983))) - (frob?477 (lambda (x1982) - (if (vector? x1982) - (if (= (vector-length x1982) '3) - (eq? (vector-ref x1982 '0) 'frob) - '#f) - '#f))) - (frob-e478 (lambda (x1981) (vector-ref x1981 '1))) - (frob-meta?479 (lambda (x1980) (vector-ref x1980 '2))) - (set-frob-e!480 (lambda (x1979 update1978) - (vector-set! x1979 '1 update1978))) - (set-frob-meta?!481 (lambda (x1977 update1976) - (vector-set! x1977 '2 update1976))) - (chi-top-module482 (lambda (orig1917 r1916 mr1915 - top-ribcage1914 ribcage1913 - ctem1912 rtem1911 meta?1910 id1909 - exports1908 forms1907 - meta-residualize!1906) - ((lambda (fexports1918) - (call-with-values - (lambda () - (chi-external486 ribcage1913 - orig1917 - (map (lambda (d1975) - (make-frob476 - d1975 - meta?1910)) - forms1907) - r1916 mr1915 ctem1912 exports1908 - fexports1918 - meta-residualize!1906)) - (lambda (r1922 mr1921 bindings1920 - inits1919) - ((letrec ((process-exports1923 (lambda (fexports1925 - ctdefs1924) - (if (null? - fexports1925) - ((letrec ((process-locals1926 (lambda (bs1931 - r1930 - dts1929 - dvs1928 - des1927) - (if (null? - bs1931) - ((lambda (des1933 - inits1932) - (build-sequence235 - '#f - (append - (ctdefs1924) - (list - (ct-eval/residualize2493 - ctem1912 - (lambda () - ((lambda (sym1934) - ((lambda (token1935) - ((lambda (b1936) - ((lambda () - (call-with-values - (lambda () - (top-id-bound-var-name429 - sym1934 - (wrap-marks316 - (syntax-object-wrap66 - id1909)) - top-ribcage1914)) - (lambda (valsym1938 - bound-id1937) - (begin - (if (not (eq? (id-var-name434 - id1909 - '(())) - valsym1938)) - (syntax-error - orig1917 - '"definition not permitted") - (void)) - (if (read-only-binding?140 - valsym1938) - (syntax-error - orig1917 - '"invalid definition of read-only identifier") - (void)) - (list - '$sc-put-cte - (list - 'quote - bound-id1937) - b1936 - (list - 'quote - (top-ribcage-key375 - top-ribcage1914))))))))) - (list - 'quote - (cons - '$module - (make-resolved-interface460 - id1909 - exports1908 - token1935))))) - (generate-id143 - sym1934))) - ((lambda (x1939) - ((lambda (e1940) - (if (annotation?132 - e1940) - (annotation-expression - e1940) - e1940)) - (if (syntax-object?64 - x1939) - (syntax-object-expression65 - x1939) - x1939))) - id1909)))) - (rt-eval/residualize492 - rtem1911 - (lambda () - (build-top-module238 - '#f - dts1929 - dvs1928 - des1933 - (if (null? - inits1932) - (chi-void518) - (build-sequence235 - '#f - (append - inits1932 - (list - (chi-void518)))))))))))) - (chi-frobs495 - des1927 - r1930 - mr1921 - '#f) - (chi-frobs495 - inits1919 - r1930 - mr1921 - '#f)) - ((lambda (b1942 - bs1941) - ((lambda (t1943) - ((lambda (t1944) - (if (memv - t1944 - '(define-form)) - ((lambda (label1945) - (if (module-binding-exported468 - b1942) - ((lambda (var1946) - (process-locals1926 - bs1941 - r1930 - (cons - 'global - dts1929) - (cons - label1945 - dvs1928) - (cons - (module-binding-val467 - b1942) - des1927))) - (module-binding-id464 - b1942)) - ((lambda (var1947) - (process-locals1926 - bs1941 - (extend-env295 - label1945 - (cons - 'lexical - var1947) - r1930) - (cons - 'local - dts1929) - (cons - var1947 - dvs1928) - (cons - (module-binding-val467 - b1942) - des1927))) - (gen-var523 - (module-binding-id464 - b1942))))) - (get-indirect-label360 - (module-binding-label465 - b1942))) - (if (memv - t1944 - '(ctdefine-form - define-syntax-form - $module-form - alias-form)) - (process-locals1926 - bs1941 - r1930 - dts1929 - dvs1928 - des1927) - (error 'sc-expand-internal - '"unexpected module binding type ~s" - t1943)))) - (module-binding-type463 - b1942))) - (module-binding-type463 - b1942))) - (car bs1931) - (cdr bs1931)))))) - process-locals1926) - bindings1920 - r1922 - '() - '() - '()) - ((lambda (id1949 - fexports1948) - ((letrec ((loop1950 (lambda (bs1951) - (if (null? - bs1951) - (process-exports1923 - fexports1948 - ctdefs1924) - ((lambda (b1953 - bs1952) - (if (free-id=?435 - (module-binding-id464 - b1953) - id1949) - (if (module-binding-exported468 - b1953) - (process-exports1923 - fexports1948 - ctdefs1924) - ((lambda (t1954) - ((lambda (label1955) - ((lambda (imps1956) - ((lambda (fexports1957) - ((lambda () - (begin - (set-module-binding-exported!474 - b1953 - '#t) - ((lambda (t1958) - (if (memv - t1958 - '(define-form)) - ((lambda (sym1959) - (begin - (set-indirect-label!361 - label1955 - sym1959) - (process-exports1923 - fexports1957 - ctdefs1924))) - (generate-id143 - ((lambda (x1960) - ((lambda (e1961) - (if (annotation?132 - e1961) - (annotation-expression - e1961) - e1961)) - (if (syntax-object?64 - x1960) - (syntax-object-expression65 - x1960) - x1960))) - id1949))) - (if (memv - t1958 - '(ctdefine-form)) - ((lambda (b1962) - (process-exports1923 - fexports1957 - (lambda () - ((lambda (sym1963) - (begin - (set-indirect-label!361 - label1955 - sym1963) - (cons - (ct-eval/residualize3494 - ctem1912 - (lambda () - (put-cte-hook137 - sym1963 - b1962)) - (lambda () - (list - '$sc-put-cte - (list - 'quote - sym1963) - (list - 'quote - b1962) - (list - 'quote - '#f)))) - (ctdefs1924)))) - (binding-value282 - b1962))))) - (module-binding-val467 - b1953)) - (if (memv - t1958 - '(define-syntax-form)) - ((lambda (sym1964) - (process-exports1923 - fexports1957 - (lambda () - ((lambda (local-label1965) - (begin - (set-indirect-label!361 - label1955 - sym1964) - (cons - (ct-eval/residualize3494 - ctem1912 - (lambda () - (put-cte-hook137 - sym1964 - (car (module-binding-val467 - b1953)))) - (lambda () - (list - '$sc-put-cte - (list - 'quote - sym1964) - (cdr (module-binding-val467 - b1953)) - (list - 'quote - '#f)))) - (ctdefs1924)))) - (get-indirect-label360 - label1955))))) - (generate-id143 - ((lambda (x1966) - ((lambda (e1967) - (if (annotation?132 - e1967) - (annotation-expression - e1967) - e1967)) - (if (syntax-object?64 - x1966) - (syntax-object-expression65 - x1966) - x1966))) - id1949))) - (if (memv - t1958 - '($module-form)) - ((lambda (sym1969 - exports1968) - (process-exports1923 - (append - (flatten-exports450 - exports1968) - fexports1957) - (lambda () - (begin - (set-indirect-label!361 - label1955 - sym1969) - ((lambda (rest1970) - ((lambda (x1971) - (cons - (ct-eval/residualize3494 - ctem1912 - (lambda () - (put-cte-hook137 - sym1969 - x1971)) - (lambda () - (list - '$sc-put-cte - (list - 'quote - sym1969) - (list - 'quote - x1971) - (list - 'quote - '#f)))) - rest1970)) - (cons - '$module - (make-resolved-interface460 - id1949 - exports1968 - sym1969)))) - (ctdefs1924)))))) - (generate-id143 - ((lambda (x1972) - ((lambda (e1973) - (if (annotation?132 - e1973) - (annotation-expression - e1973) - e1973)) - (if (syntax-object?64 - x1972) - (syntax-object-expression65 - x1972) - x1972))) - id1949)) - (module-binding-val467 - b1953)) - (if (memv - t1958 - '(alias-form)) - (process-exports1923 - fexports1957 - (lambda () - ((lambda (rest1974) - (begin - (if (indirect-label?356 - label1955) - (if (not (symbol? - (get-indirect-label360 - label1955))) - (syntax-error - (module-binding-id464 - b1953) - '"unexported target of alias") - (void)) - (void)) - rest1974)) - (ctdefs1924)))) - (error 'sc-expand-internal - '"unexpected module binding type ~s" - t1954))))))) - t1954))))) - (append - imps1956 - fexports1948))) - (module-binding-imps466 - b1953))) - (module-binding-label465 - b1953))) - (module-binding-type463 - b1953))) - (loop1950 - bs1952))) - (car bs1951) - (cdr bs1951)))))) - loop1950) - bindings1920)) - (car fexports1925) - (cdr fexports1925)))))) - process-exports1923) - fexports1918 - (lambda () '()))))) - (flatten-exports450 exports1908)))) - (id-set-diff483 (lambda (exports1905 defs1904) - (if (null? exports1905) - '() - (if (bound-id-member?442 - (car exports1905) - defs1904) - (id-set-diff483 - (cdr exports1905) - defs1904) - (cons - (car exports1905) - (id-set-diff483 - (cdr exports1905) - defs1904)))))) - (check-module-exports484 (lambda (source-exp1879 - fexports1878 ids1877) - (letrec ((defined?1880 (lambda (e1887 - ids1886) - (ormap - (lambda (x1888) - (if (import-interface?380 - x1888) - ((lambda (x.iface1890 - x.new-marks1889) - ((lambda (t1891) - (if t1891 - ((lambda (token1892) - (lookup-import-binding-name415 - ((lambda (x1893) - ((lambda (e1894) - (if (annotation?132 - e1894) - (annotation-expression - e1894) - e1894)) - (if (syntax-object?64 - x1893) - (syntax-object-expression65 - x1893) - x1893))) - e1887) - (id-marks312 - e1887) - token1892 - x.new-marks1889)) - t1891) - ((lambda (v1895) - ((letrec ((lp1896 (lambda (i1897) - (if (>= i1897 - '0) - ((lambda (t1898) - (if t1898 - t1898 - (lp1896 - (- i1897 - '1)))) - ((lambda (id1899) - (help-bound-id=?437 - ((lambda (x1902) - ((lambda (e1903) - (if (annotation?132 - e1903) - (annotation-expression - e1903) - e1903)) - (if (syntax-object?64 - x1902) - (syntax-object-expression65 - x1902) - x1902))) - id1899) - (join-marks423 - x.new-marks1889 - (id-marks312 - id1899)) - ((lambda (x1900) - ((lambda (e1901) - (if (annotation?132 - e1901) - (annotation-expression - e1901) - e1901)) - (if (syntax-object?64 - x1900) - (syntax-object-expression65 - x1900) - x1900))) - e1887) - (id-marks312 - e1887))) - (vector-ref - v1895 - i1897))) - '#f)))) - lp1896) - (- (vector-length - v1895) - '1))) - (interface-exports454 - x.iface1890)))) - (interface-token455 - x.iface1890))) - (import-interface-interface381 - x1888) - (import-interface-new-marks382 - x1888)) - (bound-id=?438 - e1887 - x1888))) - ids1886)))) - ((letrec ((loop1881 (lambda (fexports1883 - missing1882) - (if (null? - fexports1883) - (if (not (null? - missing1882)) - (syntax-error - (car missing1882) - (if (= (length - missing1882) - '1) - '"missing definition for export" - '"missing definition for multiple exports, including")) - (void)) - ((lambda (e1885 - fexports1884) - (if (defined?1880 - e1885 - ids1877) - (loop1881 - fexports1884 - missing1882) - (loop1881 - fexports1884 - (cons - e1885 - missing1882)))) - (car fexports1883) - (cdr fexports1883)))))) - loop1881) - fexports1878 - '())))) - (check-defined-ids485 (lambda (source-exp1826 ls1825) - (letrec ((vfold1827 (lambda (v1872 - p1871 - cls1870) - ((lambda (len1873) - ((letrec ((lp1874 (lambda (i1876 - cls1875) - (if (= i1876 - len1873) - cls1875 - (lp1874 - (+ i1876 - '1) - (p1871 - (vector-ref - v1872 - i1876) - cls1875)))))) - lp1874) - '0 - cls1870)) - (vector-length - v1872)))) - (conflicts1828 (lambda (x1857 - y1856 - cls1855) - (if (import-interface?380 - x1857) - ((lambda (x.iface1859 - x.new-marks1858) - (if (import-interface?380 - y1856) - ((lambda (y.iface1861 - y.new-marks1860) - ((lambda (xe1863 - ye1862) - (if (> (vector-length - xe1863) - (vector-length - ye1862)) - (vfold1827 - ye1862 - (lambda (id1865 - cls1864) - (id-iface-conflicts1829 - id1865 - y.new-marks1860 - x.iface1859 - x.new-marks1858 - cls1864)) - cls1855) - (vfold1827 - xe1863 - (lambda (id1867 - cls1866) - (id-iface-conflicts1829 - id1867 - x.new-marks1858 - y.iface1861 - y.new-marks1860 - cls1866)) - cls1855))) - (interface-exports454 - x.iface1859) - (interface-exports454 - y.iface1861))) - (import-interface-interface381 - y1856) - (import-interface-new-marks382 - y1856)) - (id-iface-conflicts1829 - y1856 - '() - x.iface1859 - x.new-marks1858 - cls1855))) - (import-interface-interface381 - x1857) - (import-interface-new-marks382 - x1857)) - (if (import-interface?380 - y1856) - ((lambda (y.iface1869 - y.new-marks1868) - (id-iface-conflicts1829 - x1857 - '() - y.iface1869 - y.new-marks1868 - cls1855)) - (import-interface-interface381 - y1856) - (import-interface-new-marks382 - y1856)) - (if (bound-id=?438 - x1857 - y1856) - (cons - x1857 - cls1855) - cls1855))))) - (id-iface-conflicts1829 (lambda (id1842 - id.new-marks1841 - iface1840 - iface.new-marks1839 - cls1838) - ((lambda (id.sym1844 - id.marks1843) - ((lambda (t1845) - (if t1845 - ((lambda (token1846) - (if (lookup-import-binding-name415 - id.sym1844 - id.marks1843 - token1846 - iface.new-marks1839) - (cons - id1842 - cls1838) - cls1838)) - t1845) - (vfold1827 - (interface-exports454 - iface1840) - (lambda (*id1848 - cls1847) - ((lambda (*id.sym1850 - *id.marks1849) - (if (help-bound-id=?437 - *id.sym1850 - *id.marks1849 - id.sym1844 - id.marks1843) - (cons - *id1848 - cls1847) - cls1847)) - ((lambda (x1851) - ((lambda (e1852) - (if (annotation?132 - e1852) - (annotation-expression - e1852) - e1852)) - (if (syntax-object?64 - x1851) - (syntax-object-expression65 - x1851) - x1851))) - *id1848) - (join-marks423 - iface.new-marks1839 - (id-marks312 - *id1848)))) - cls1838))) - (interface-token455 - iface1840))) - ((lambda (x1853) - ((lambda (e1854) - (if (annotation?132 - e1854) - (annotation-expression - e1854) - e1854)) - (if (syntax-object?64 - x1853) - (syntax-object-expression65 - x1853) - x1853))) - id1842) - (join-marks423 - id.new-marks1841 - (id-marks312 - id1842)))))) - (if (not (null? ls1825)) - ((letrec ((lp1830 (lambda (x1833 - ls1832 - cls1831) - (if (null? - ls1832) - (if (not (null? - cls1831)) - ((lambda (cls1834) - (syntax-error - source-exp1826 - '"duplicate definition for " - (symbol->string - (car cls1834)) - '" in")) - (syntax-object->datum - cls1831)) - (void)) - ((letrec ((lp21835 (lambda (ls21837 - cls1836) - (if (null? - ls21837) - (lp1830 - (car ls1832) - (cdr ls1832) - cls1836) - (lp21835 - (cdr ls21837) - (conflicts1828 - x1833 - (car ls21837) - cls1836)))))) - lp21835) - ls1832 - cls1831))))) - lp1830) - (car ls1825) - (cdr ls1825) - '()) - (void))))) - (chi-external486 (lambda (ribcage1721 source-exp1720 - body1719 r1718 mr1717 ctem1716 - exports1715 fexports1714 - meta-residualize!1713) - (letrec ((return1722 (lambda (r1824 mr1823 - bindings1822 - ids1821 - inits1820) - (begin - (check-defined-ids485 - source-exp1720 - ids1821) - (check-module-exports484 - source-exp1720 - fexports1714 - ids1821) - (values - r1824 - mr1823 - bindings1822 - inits1820)))) - (get-implicit-exports1723 (lambda (id1817) - ((letrec ((f1818 (lambda (exports1819) - (if (null? - exports1819) - '() - (if (if (pair? - (car exports1819)) - (bound-id=?438 - id1817 - (caar - exports1819)) - '#f) - (flatten-exports450 - (cdar - exports1819)) - (f1818 - (cdr exports1819))))))) - f1818) - exports1715))) - (update-imp-exports1724 (lambda (bindings1812 - exports1811) - ((lambda (exports1813) - (map (lambda (b1814) - ((lambda (id1815) - (if (not (bound-id-member?442 - id1815 - exports1813)) - b1814 - (create-module-binding475 - (module-binding-type463 - b1814) - id1815 - (module-binding-label465 - b1814) + (lexical-chi-local-syntax-57338 + lexical-value-58094 + lexical-e-58095 + lexical-r-58084 + lexical-mr-58085 + lexical-w-58096 + lexical-ae-58097)) + (lambda (lexical-forms-58157 + lexical-r-58158 + lexical-mr-58159 + lexical-w-58160 + lexical-ae-58161) + (lexical-parse-58082 + ((letrec ((lexical-f-58162 + (lambda (lexical-forms-58163) + (if (null? lexical-forms-58163) + (cdr lexical-body-58083) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (car lexical-forms-58163) + lexical-w-58160) + lexical-meta?-58092) + (lexical-f-58162 + (cdr lexical-forms-58163))))))) + lexical-f-58162) + lexical-forms-58157) + lexical-r-58158 + lexical-mr-58159 + lexical-ids-58086 + lexical-bindings-58087 + lexical-inits-58088 + '#f))) + (begin + (if lexical-meta-seen?-58089 + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097) + '"invalid meta definition") + (void)) + ((letrec ((lexical-f-58164 + (lambda (lexical-body-58165) + (if ((lambda (lexical-t-58166) + (if lexical-t-58166 + lexical-t-58166 + (not (lexical-frob-meta?-57300 + (car lexical-body-58165))))) + (null? lexical-body-58165)) + (lexical-return-58065 + lexical-r-58084 + lexical-mr-58085 + lexical-bindings-58087 + lexical-ids-58086 (append - (get-implicit-exports1723 - id1815) - (module-binding-imps466 - b1814)) - (module-binding-val467 - b1814)))) - (module-binding-id464 - b1814))) - bindings1812)) - (map (lambda (x1816) - (if (pair? - x1816) - (car x1816) - x1816)) - exports1811))))) - ((letrec ((parse1725 (lambda (body1732 - r1731 mr1730 - ids1729 - bindings1728 - inits1727 - meta-seen?1726) - (if (null? - body1732) - (return1722 - r1731 mr1730 - bindings1728 - ids1729 - inits1727) - ((lambda (fr1733) - ((lambda (e1734) - ((lambda (meta?1735) - ((lambda () - (call-with-values - (lambda () - (syntax-type446 - e1734 - r1731 - '(()) - '#f - ribcage1721)) - (lambda (type1740 - value1739 - e1738 - w1737 - ae1736) - ((lambda (t1741) - (if (memv - t1741 - '(define-form)) - (call-with-values - (lambda () - (parse-define510 - e1738 - w1737 - ae1736)) - (lambda (id1744 - rhs1743 - w1742) - ((lambda (id1745) - ((lambda (label1746) - ((lambda (imps1747) - ((lambda () - (begin - (extend-ribcage!410 - ribcage1721 - id1745 - label1746) - (if meta?1735 - ((lambda (sym1748) - ((lambda (b1749) - ((lambda () - ((lambda (mr1750) - ((lambda (exp1751) - (begin - (define-top-level-value-hook135 - sym1748 - (top-level-eval-hook133 - exp1751)) - (meta-residualize!1713 - (ct-eval/residualize3494 - ctem1716 - void - (lambda () - (list - 'define - sym1748 - exp1751)))) - (parse1725 - (cdr body1732) - r1731 - mr1750 - (cons - id1745 - ids1729) - (cons - (create-module-binding475 - 'ctdefine-form - id1745 - label1746 - imps1747 - b1749) - bindings1728) - inits1727 - '#f))) - (chi498 - rhs1743 - mr1750 - mr1750 - w1742 - '#t))) - (extend-env295 - (get-indirect-label360 - label1746) - b1749 - mr1730))))) - (cons - 'meta-variable - sym1748))) - (generate-id143 - ((lambda (x1752) - ((lambda (e1753) - (if (annotation?132 - e1753) - (annotation-expression - e1753) - e1753)) - (if (syntax-object?64 - x1752) - (syntax-object-expression65 - x1752) - x1752))) - id1745))) - (parse1725 - (cdr body1732) - r1731 - mr1730 - (cons - id1745 - ids1729) - (cons - (create-module-binding475 - type1740 - id1745 - label1746 - imps1747 - (make-frob476 - (wrap443 - rhs1743 - w1742) - meta?1735)) - bindings1728) - inits1727 - '#f)))))) - (get-implicit-exports1723 - id1745))) - (gen-indirect-label359))) - (wrap443 - id1744 - w1742)))) - (if (memv - t1741 - '(define-syntax-form)) - (call-with-values - (lambda () - (parse-define-syntax511 - e1738 - w1737 - ae1736)) - (lambda (id1756 - rhs1755 - w1754) - ((lambda (id1757) - ((lambda (label1758) - ((lambda (imps1759) - ((lambda (exp1760) - ((lambda () - (begin - (extend-ribcage!410 - ribcage1721 - id1757 - label1758) - ((lambda (l1762 - b1761) - (parse1725 - (cdr body1732) - (extend-env295 - l1762 - b1761 - r1731) - (extend-env295 - l1762 - b1761 - mr1730) - (cons - id1757 - ids1729) - (cons - (create-module-binding475 - type1740 - id1757 - label1758 - imps1759 - (cons - b1761 - exp1760)) - bindings1728) - inits1727 - '#f)) - (get-indirect-label360 - label1758) - (defer-or-eval-transformer303 - top-level-eval-hook133 - exp1760)))))) - (chi498 - rhs1755 - mr1730 - mr1730 - w1754 - '#t))) - (get-implicit-exports1723 - id1757))) - (gen-indirect-label359))) - (wrap443 - id1756 - w1754)))) - (if (memv - t1741 - '($module-form)) - ((lambda (*ribcage1763) - ((lambda (*w1764) - ((lambda () - (call-with-values - (lambda () - (parse-module508 - e1738 - w1737 - ae1736 - *w1764)) - (lambda (orig1768 - id1767 - *exports1766 - forms1765) - (call-with-values - (lambda () - (chi-external486 - *ribcage1763 - orig1768 - (map (lambda (d1780) - (make-frob476 - d1780 - meta?1735)) - forms1765) - r1731 - mr1730 - ctem1716 - *exports1766 - (flatten-exports450 - *exports1766) - meta-residualize!1713)) - (lambda (r1772 - mr1771 - *bindings1770 - *inits1769) - ((lambda (iface1777 - bindings1776 - inits1775 - label1774 - imps1773) - (begin - (extend-ribcage!410 - ribcage1721 - id1767 - label1774) - ((lambda (l1779 - b1778) - (parse1725 - (cdr body1732) - (extend-env295 - l1779 - b1778 - r1772) - (extend-env295 - l1779 - b1778 - mr1771) - (cons - id1767 - ids1729) - (cons - (create-module-binding475 - type1740 - id1767 - label1774 - imps1773 - *exports1766) - bindings1776) - inits1775 - '#f)) - (get-indirect-label360 - label1774) - (cons - '$module - iface1777)))) - (make-unresolved-interface459 - id1767 - *exports1766) - (append - *bindings1770 - bindings1728) - (append - inits1727 - *inits1769) - (gen-indirect-label359) - (get-implicit-exports1723 - id1767))))))))) - (make-wrap315 - (wrap-marks316 - w1737) - (cons - *ribcage1763 - (wrap-subst317 - w1737))))) - (make-ribcage365 - '() - '() - '())) - (if (memv - t1741 - '($import-form)) - (call-with-values - (lambda () - (parse-import509 - e1738 - w1737 - ae1736)) - (lambda (orig1783 - only?1782 - mid1781) - ((lambda (mlabel1784) - ((lambda (binding1785) - ((lambda (t1786) - (if (memv - t1786 - '($module)) - ((lambda (iface1787) - ((lambda (import-iface1788) - ((lambda () - (begin - (if only?1782 - (extend-ribcage-barrier!412 - ribcage1721 - mid1781) - (void)) - (do-import!507 - import-iface1788 - ribcage1721) - (parse1725 - (cdr body1732) - r1731 - mr1730 - (cons - import-iface1788 - ids1729) - (update-imp-exports1724 - bindings1728 - (vector->list - (interface-exports454 - iface1787))) - inits1727 - '#f))))) - (make-import-interface379 - iface1787 - (import-mark-delta505 - mid1781 - iface1787)))) - (binding-value282 - binding1785)) - (if (memv - t1786 - '(displaced-lexical)) - (displaced-lexical-error299 - mid1781) - (syntax-error - mid1781 - '"unknown module")))) - (binding-type281 - binding1785))) - (lookup301 - mlabel1784 - r1731))) - (id-var-name434 - mid1781 - '(()))))) - (if (memv - t1741 - '(alias-form)) - (call-with-values - (lambda () - (parse-alias514 - e1738 - w1737 - ae1736)) - (lambda (new-id1790 - old-id1789) - ((lambda (new-id1791) - ((lambda (label1792) - ((lambda (imps1793) - ((lambda () - (begin - (extend-ribcage!410 - ribcage1721 - new-id1791 - label1792) - (parse1725 - (cdr body1732) - r1731 - mr1730 - (cons - new-id1791 - ids1729) - (cons - (create-module-binding475 - type1740 - new-id1791 - label1792 - imps1793 - '#f) - bindings1728) - inits1727 - '#f))))) - (get-implicit-exports1723 - new-id1791))) - (id-var-name-loc433 - old-id1789 - w1737))) - (wrap443 - new-id1790 - w1737)))) - (if (memv - t1741 - '(begin-form)) - (parse1725 - ((letrec ((f1794 (lambda (forms1795) - (if (null? - forms1795) - (cdr body1732) - (cons - (make-frob476 - (wrap443 - (car forms1795) - w1737) - meta?1735) - (f1794 - (cdr forms1795))))))) - f1794) - (parse-begin515 - e1738 - w1737 - ae1736 - '#t)) - r1731 - mr1730 - ids1729 - bindings1728 - inits1727 - '#f) - (if (memv - t1741 - '(eval-when-form)) - (call-with-values - (lambda () - (parse-eval-when513 - e1738 - w1737 - ae1736)) - (lambda (when-list1797 - forms1796) - (parse1725 - (if (memq - 'eval - when-list1797) - ((letrec ((f1798 (lambda (forms1799) - (if (null? - forms1799) - (cdr body1732) - (cons - (make-frob476 - (wrap443 - (car forms1799) - w1737) - meta?1735) - (f1798 - (cdr forms1799))))))) - f1798) - forms1796) - (cdr body1732)) - r1731 - mr1730 - ids1729 - bindings1728 - inits1727 - '#f))) - (if (memv - t1741 - '(meta-form)) - (parse1725 - (cons - (make-frob476 - (wrap443 - (parse-meta512 - e1738 - w1737 - ae1736) - w1737) - '#t) - (cdr body1732)) - r1731 - mr1730 - ids1729 - bindings1728 - inits1727 - '#t) - (if (memv - t1741 - '(local-syntax-form)) - (call-with-values - (lambda () - (chi-local-syntax517 - value1739 - e1738 - r1731 - mr1730 - w1737 - ae1736)) - (lambda (forms1804 - r1803 - mr1802 - w1801 - ae1800) - (parse1725 - ((letrec ((f1805 (lambda (forms1806) - (if (null? - forms1806) - (cdr body1732) - (cons - (make-frob476 - (wrap443 - (car forms1806) - w1801) - meta?1735) - (f1805 - (cdr forms1806))))))) - f1805) - forms1804) - r1803 - mr1802 - ids1729 - bindings1728 - inits1727 - '#f))) - (begin - (if meta-seen?1726 - (syntax-error - (source-wrap444 - e1738 - w1737 - ae1736) - '"invalid meta definition") - (void)) - ((letrec ((f1807 (lambda (body1808) - (if ((lambda (t1809) - (if t1809 - t1809 - (not (frob-meta?479 - (car body1808))))) - (null? - body1808)) - (return1722 - r1731 - mr1730 - bindings1728 - ids1729 - (append - inits1727 - body1808)) - (begin - ((lambda (x1810) - (begin - (top-level-eval-hook133 - x1810) - (meta-residualize!1713 - (ct-eval/residualize3494 - ctem1716 - void - (lambda () - x1810))))) - (chi-meta-frob496 - (car body1808) - mr1730)) - (f1807 - (cdr body1808))))))) - f1807) - (cons - (make-frob476 - (source-wrap444 - e1738 - w1737 - ae1736) - meta?1735) - (cdr body1732)))))))))))))) - type1740)))))) - (frob-meta?479 - fr1733))) - (frob-e478 - fr1733))) - (car body1732)))))) - parse1725) body1719 r1718 mr1717 '() - '() '() '#f)))) - (vmap487 (lambda (fn1709 v1708) - ((letrec ((do1710 (lambda (i1712 ls1711) - (if (< i1712 '0) - ls1711 - (do1710 - (- i1712 '1) - (cons - (fn1709 - (vector-ref - v1708 - i1712)) - ls1711)))))) - do1710) - (- (vector-length v1708) '1) - '()))) - (vfor-each488 (lambda (fn1704 v1703) - ((lambda (len1705) - ((letrec ((do1706 (lambda (i1707) - (if (not (= i1707 - len1705)) - (begin - (fn1704 - (vector-ref - v1703 - i1707)) - (do1706 - (+ i1707 '1))) - (void))))) - do1706) - '0)) - (vector-length v1703)))) - (do-top-import489 (lambda (import-only?1702 top-ribcage1701 - mid1700 token1699) - (list - '$sc-put-cte - (list 'quote mid1700) - (list 'quote (cons 'do-import token1699)) - (list - 'quote - (top-ribcage-key375 - top-ribcage1701))))) - (update-mode-set490 ((lambda (table1690) - (lambda (when-list1692 mode-set1691) - (letrec ((remq1693 (lambda (x1698 - ls1697) - (if (null? - ls1697) - '() - (if (eq? (car ls1697) - x1698) - (remq1693 - x1698 - (cdr ls1697)) - (cons - (car ls1697) - (remq1693 - x1698 - (cdr ls1697)))))))) - (remq1693 - '- - (apply - append - (map (lambda (m1694) - ((lambda (row1695) - (map (lambda (s1696) - (cdr (assq - s1696 - row1695))) - when-list1692)) - (cdr (assq - m1694 - table1690)))) - mode-set1691)))))) - '((l (load . l) (compile . c) (visit . v) - (revisit . r) (eval . -)) - (c (load . -) (compile . -) - (visit . -) (revisit . -) - (eval . c)) - (v (load . v) (compile . c) - (visit . v) (revisit . -) - (eval . -)) - (r (load . r) (compile . c) - (visit . -) (revisit . r) - (eval . -)) - (e (load . -) (compile . -) - (visit . -) (revisit . -) - (eval . e))))) - (initial-mode-set491 (lambda (when-list1686 - compiling-a-file1685) - (apply - append - (map (lambda (s1687) - (if compiling-a-file1685 - ((lambda (t1688) - (if (memv - t1688 - '(compile)) - '(c) - (if (memv - t1688 - '(load)) - '(l) - (if (memv - t1688 - '(visit)) - '(v) - (if (memv - t1688 - '(revisit)) - '(r) - '()))))) - s1687) - ((lambda (t1689) - (if (memv t1689 '(eval)) - '(e) - '())) - s1687))) - when-list1686)))) - (rt-eval/residualize492 (lambda (rtem1680 thunk1679) - (if (memq 'e rtem1680) - (thunk1679) - ((lambda (thunk1681) - (if (memq 'v rtem1680) - (if ((lambda (t1682) - (if t1682 - t1682 - (memq - 'r - rtem1680))) - (memq 'l rtem1680)) - (thunk1681) - (thunk1681)) - (if ((lambda (t1683) - (if t1683 - t1683 - (memq - 'r - rtem1680))) - (memq 'l rtem1680)) - (thunk1681) - (chi-void518)))) - (if (memq 'c rtem1680) - ((lambda (x1684) - (begin - (top-level-eval-hook133 - x1684) - (lambda () x1684))) - (thunk1679)) - thunk1679))))) - (ct-eval/residualize2493 (lambda (ctem1676 thunk1675) - ((lambda (t1677) - (ct-eval/residualize3494 - ctem1676 - (lambda () - (begin - (if (not t1677) - (set! t1677 - (thunk1675)) - (void)) - (top-level-eval-hook133 t1677))) - (lambda () - ((lambda (t1678) - (if t1678 - t1678 - (thunk1675))) - t1677)))) - '#f))) - (ct-eval/residualize3494 (lambda (ctem1672 eval-thunk1671 - residualize-thunk1670) - (if (memq 'e ctem1672) - (begin - (eval-thunk1671) - (chi-void518)) - (begin - (if (memq 'c ctem1672) - (eval-thunk1671) - (void)) - (if (memq 'r ctem1672) - (if ((lambda (t1673) - (if t1673 - t1673 - (memq - 'v - ctem1672))) - (memq 'l ctem1672)) - (residualize-thunk1670) - (residualize-thunk1670)) - (if ((lambda (t1674) - (if t1674 - t1674 - (memq - 'v - ctem1672))) - (memq 'l ctem1672)) - (residualize-thunk1670) - (chi-void518))))))) - (chi-frobs495 (lambda (frob*1668 r1667 mr1666 m?1665) - (map (lambda (x1669) - (chi498 (frob-e478 x1669) r1667 mr1666 - '(()) m?1665)) - frob*1668))) - (chi-meta-frob496 (lambda (x1664 mr1663) - (chi498 (frob-e478 x1664) mr1663 mr1663 - '(()) '#t))) - (chi-sequence497 (lambda (body1659 r1658 mr1657 w1656 ae1655 - m?1654) - (build-sequence235 - ae1655 - ((letrec ((dobody1660 (lambda (body1661) - (if (null? - body1661) - '() - ((lambda (first1662) - (cons - first1662 - (dobody1660 - (cdr body1661)))) - (chi498 - (car body1661) - r1658 - mr1657 - w1656 - m?1654)))))) - dobody1660) - body1659)))) - (chi498 (lambda (e1648 r1647 mr1646 w1645 m?1644) + lexical-inits-58088 + lexical-body-58165)) + (begin + ((lambda (lexical-x-58167) + (begin + (lexical-top-level-eval-hook-56953 + lexical-x-58167) + (lexical-meta-residualize!-58064 + (lexical-ct-eval/residualize3-57315 + lexical-ctem-58061 + void + (lambda () + lexical-x-58167))))) + (lexical-chi-meta-frob-57317 + (car lexical-body-58165) + lexical-mr-58085)) + (lexical-f-58164 + (cdr lexical-body-58165))))))) + lexical-f-58164) + (cons (lexical-make-frob-57297 + (lexical-source-wrap-57265 + lexical-e-58095 + lexical-w-58096 + lexical-ae-58097) + lexical-meta?-58092) + (cdr lexical-body-58083)))))))))))))) + lexical-type-58093)))))) + (lexical-frob-meta?-57300 + lexical-fr-58090))) + (lexical-frob-e-57299 lexical-fr-58090))) + (car lexical-body-58083)))))) + lexical-parse-58082) + lexical-body-58058 + lexical-r-58059 + lexical-mr-58060 + '() + '() + '() + '#f)))) + (lexical-vmap-57308 + (lambda (lexical-fn-58168 lexical-v-58169) + ((letrec ((lexical-do-58170 + (lambda (lexical-i-58171 lexical-ls-58172) + (if (< lexical-i-58171 '0) + lexical-ls-58172 + (lexical-do-58170 + (- lexical-i-58171 '1) + (cons (lexical-fn-58168 + (vector-ref + lexical-v-58169 + lexical-i-58171)) + lexical-ls-58172)))))) + lexical-do-58170) + (- (vector-length lexical-v-58169) '1) + '()))) + (lexical-vfor-each-57309 + (lambda (lexical-fn-58173 lexical-v-58174) + ((lambda (lexical-len-58175) + ((letrec ((lexical-do-58176 + (lambda (lexical-i-58177) + (if (not (= lexical-i-58177 lexical-len-58175)) + (begin + (lexical-fn-58173 + (vector-ref lexical-v-58174 lexical-i-58177)) + (lexical-do-58176 (+ lexical-i-58177 '1))) + (void))))) + lexical-do-58176) + '0)) + (vector-length lexical-v-58174)))) + (lexical-do-top-import-57310 + (lambda (lexical-import-only?-58178 + lexical-top-ribcage-58179 + lexical-mid-58180 + lexical-token-58181) + (list '$sc-put-cte + (list 'quote lexical-mid-58180) + (list 'quote + (cons 'do-import lexical-token-58181)) + (list 'quote + (lexical-top-ribcage-key-57196 + lexical-top-ribcage-58179))))) + (lexical-update-mode-set-57311 + ((lambda (lexical-table-58182) + (lambda (lexical-when-list-58183 lexical-mode-set-58184) + (letrec* + ((lexical-remq-58185 + (lambda (lexical-x-58186 lexical-ls-58187) + (if (null? lexical-ls-58187) + '() + (if (eq? (car lexical-ls-58187) lexical-x-58186) + (lexical-remq-58185 + lexical-x-58186 + (cdr lexical-ls-58187)) + (cons (car lexical-ls-58187) + (lexical-remq-58185 + lexical-x-58186 + (cdr lexical-ls-58187)))))))) + (lexical-remq-58185 + '- + (apply append + (map (lambda (lexical-m-58188) + ((lambda (lexical-row-58189) + (map (lambda (lexical-s-58190) + (cdr (assq lexical-s-58190 + lexical-row-58189))) + lexical-when-list-58183)) + (cdr (assq lexical-m-58188 + lexical-table-58182)))) + lexical-mode-set-58184)))))) + '((L (load . L) + (compile . C) + (visit . V) + (revisit . R) + (eval . -)) + (C (load . -) + (compile . -) + (visit . -) + (revisit . -) + (eval . C)) + (V (load . V) + (compile . C) + (visit . V) + (revisit . -) + (eval . -)) + (R (load . R) + (compile . C) + (visit . -) + (revisit . R) + (eval . -)) + (E (load . -) + (compile . -) + (visit . -) + (revisit . -) + (eval . E))))) + (lexical-initial-mode-set-57312 + (lambda (lexical-when-list-58191 + lexical-compiling-a-file-58192) + (apply append + (map (lambda (lexical-s-58193) + (if lexical-compiling-a-file-58192 + ((lambda (lexical-t-58194) + (if (memv lexical-t-58194 '(compile)) + '(C) + (if (memv lexical-t-58194 '(load)) + '(L) + (if (memv lexical-t-58194 '(visit)) + '(V) + (if (memv lexical-t-58194 '(revisit)) + '(R) + '()))))) + lexical-s-58193) + ((lambda (lexical-t-58195) + (if (memv lexical-t-58195 '(eval)) '(E) '())) + lexical-s-58193))) + lexical-when-list-58191)))) + (lexical-rt-eval/residualize-57313 + (lambda (lexical-rtem-58196 lexical-thunk-58197) + (if (memq 'E lexical-rtem-58196) + (lexical-thunk-58197) + ((lambda (lexical-thunk-58198) + (if (memq 'V lexical-rtem-58196) + (if ((lambda (lexical-t-58199) + (if lexical-t-58199 + lexical-t-58199 + (memq 'R lexical-rtem-58196))) + (memq 'L lexical-rtem-58196)) + (lexical-thunk-58198) + (lexical-thunk-58198)) + (if ((lambda (lexical-t-58200) + (if lexical-t-58200 + lexical-t-58200 + (memq 'R lexical-rtem-58196))) + (memq 'L lexical-rtem-58196)) + (lexical-thunk-58198) + (lexical-chi-void-57339)))) + (if (memq 'C lexical-rtem-58196) + ((lambda (lexical-x-58201) + (begin + (lexical-top-level-eval-hook-56953 + lexical-x-58201) + (lambda () lexical-x-58201))) + (lexical-thunk-58197)) + lexical-thunk-58197))))) + (lexical-ct-eval/residualize2-57314 + (lambda (lexical-ctem-58202 lexical-thunk-58203) + ((lambda (lexical-t-58204) + (lexical-ct-eval/residualize3-57315 + lexical-ctem-58202 + (lambda () + (begin + (if (not lexical-t-58204) + (set! lexical-t-58204 (lexical-thunk-58203)) + (void)) + (lexical-top-level-eval-hook-56953 + lexical-t-58204))) + (lambda () + ((lambda (lexical-t-58205) + (if lexical-t-58205 + lexical-t-58205 + (lexical-thunk-58203))) + lexical-t-58204)))) + '#f))) + (lexical-ct-eval/residualize3-57315 + (lambda (lexical-ctem-58206 + lexical-eval-thunk-58207 + lexical-residualize-thunk-58208) + (if (memq 'E lexical-ctem-58206) + (begin + (lexical-eval-thunk-58207) + (lexical-chi-void-57339)) + (begin + (if (memq 'C lexical-ctem-58206) + (lexical-eval-thunk-58207) + (void)) + (if (memq 'R lexical-ctem-58206) + (if ((lambda (lexical-t-58209) + (if lexical-t-58209 + lexical-t-58209 + (memq 'V lexical-ctem-58206))) + (memq 'L lexical-ctem-58206)) + (lexical-residualize-thunk-58208) + (lexical-residualize-thunk-58208)) + (if ((lambda (lexical-t-58210) + (if lexical-t-58210 + lexical-t-58210 + (memq 'V lexical-ctem-58206))) + (memq 'L lexical-ctem-58206)) + (lexical-residualize-thunk-58208) + (lexical-chi-void-57339))))))) + (lexical-chi-frobs-57316 + (lambda (lexical-frob*-58211 + lexical-r-58212 + lexical-mr-58213 + lexical-m?-58214) + (map (lambda (lexical-x-58215) + (lexical-chi-57319 + (lexical-frob-e-57299 lexical-x-58215) + lexical-r-58212 + lexical-mr-58213 + '(()) + lexical-m?-58214)) + lexical-frob*-58211))) + (lexical-chi-meta-frob-57317 + (lambda (lexical-x-58216 lexical-mr-58217) + (lexical-chi-57319 + (lexical-frob-e-57299 lexical-x-58216) + lexical-mr-58217 + lexical-mr-58217 + '(()) + '#t))) + (lexical-chi-sequence-57318 + (lambda (lexical-body-58218 + lexical-r-58219 + lexical-mr-58220 + lexical-w-58221 + lexical-ae-58222 + lexical-m?-58223) + (lexical-build-sequence-57055 + lexical-ae-58222 + ((letrec ((lexical-dobody-58224 + (lambda (lexical-body-58225) + (if (null? lexical-body-58225) + '() + ((lambda (lexical-first-58226) + (cons lexical-first-58226 + (lexical-dobody-58224 + (cdr lexical-body-58225)))) + (lexical-chi-57319 + (car lexical-body-58225) + lexical-r-58219 + lexical-mr-58220 + lexical-w-58221 + lexical-m?-58223)))))) + lexical-dobody-58224) + lexical-body-58218)))) + (lexical-chi-57319 + (lambda (lexical-e-58227 + lexical-r-58228 + lexical-mr-58229 + lexical-w-58230 + lexical-m?-58231) + (call-with-values + (lambda () + (lexical-syntax-type-57267 + lexical-e-58227 + lexical-r-58228 + lexical-w-58230 + '#f + '#f)) + (lambda (lexical-type-58232 + lexical-value-58233 + lexical-e-58234 + lexical-w-58235 + lexical-ae-58236) + (lexical-chi-expr-57320 + lexical-type-58232 + lexical-value-58233 + lexical-e-58234 + lexical-r-58228 + lexical-mr-58229 + lexical-w-58235 + lexical-ae-58236 + lexical-m?-58231))))) + (lexical-chi-expr-57320 + (lambda (lexical-type-58237 + lexical-value-58238 + lexical-e-58239 + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243 + lexical-m?-58244) + ((lambda (lexical-t-58245) + (if (memv lexical-t-58245 '(lexical)) + lexical-value-58238 + (if (memv lexical-t-58245 '(core)) + (lexical-value-58238 + lexical-e-58239 + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243 + lexical-m?-58244) + (if (memv lexical-t-58245 '(lexical-call)) + (lexical-chi-application-57321 + lexical-value-58238 + lexical-e-58239 + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243 + lexical-m?-58244) + (if (memv lexical-t-58245 '(constant)) + (list 'quote + (lexical-strip-57343 + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + '(()))) + (if (memv lexical-t-58245 '(global)) + lexical-value-58238 + (if (memv lexical-t-58245 '(meta-variable)) + (if lexical-m?-58244 + lexical-value-58238 + (lexical-displaced-lexical-error-57120 + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243))) + (if (memv lexical-t-58245 '(call)) + (lexical-chi-application-57321 + (lexical-chi-57319 + (car lexical-e-58239) + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-m?-58244) + lexical-e-58239 + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243 + lexical-m?-58244) + (if (memv lexical-t-58245 '(begin-form)) + (lexical-chi-sequence-57318 + (lexical-parse-begin-57336 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243 + '#f) + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243 + lexical-m?-58244) + (if (memv lexical-t-58245 '(local-syntax-form)) + (call-with-values + (lambda () + (lexical-chi-local-syntax-57338 + lexical-value-58238 + lexical-e-58239 + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243)) + (lambda (lexical-forms-58246 + lexical-r-58247 + lexical-mr-58248 + lexical-w-58249 + lexical-ae-58250) + (lexical-chi-sequence-57318 + lexical-forms-58246 + lexical-r-58247 + lexical-mr-58248 + lexical-w-58249 + lexical-ae-58250 + lexical-m?-58244))) + (if (memv lexical-t-58245 '(eval-when-form)) + (call-with-values + (lambda () + (lexical-parse-eval-when-57334 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243)) + (lambda (lexical-when-list-58251 + lexical-forms-58252) + (if (memq 'eval lexical-when-list-58251) + (lexical-chi-sequence-57318 + lexical-forms-58252 + lexical-r-58240 + lexical-mr-58241 + lexical-w-58242 + lexical-ae-58243 + lexical-m?-58244) + (lexical-chi-void-57339)))) + (if (memv lexical-t-58245 '(meta-form)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + '"invalid context for meta definition") + (if (memv lexical-t-58245 '(define-form)) + (begin + (lexical-parse-define-57331 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + '"invalid context for definition")) + (if (memv lexical-t-58245 + '(define-syntax-form)) + (begin + (lexical-parse-define-syntax-57332 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + '"invalid context for definition")) + (if (memv lexical-t-58245 + '($module-form)) + (call-with-values + (lambda () + (lexical-parse-module-57329 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243 + lexical-w-58242)) + (lambda (lexical-orig-58253 + lexical-id-58254 + lexical-exports-58255 + lexical-forms-58256) + (syntax-error + lexical-orig-58253 + '"invalid context for definition"))) + (if (memv lexical-t-58245 + '($import-form)) + (call-with-values + (lambda () + (lexical-parse-import-57330 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243)) + (lambda (lexical-orig-58257 + lexical-only?-58258 + lexical-mid-58259) + (syntax-error + lexical-orig-58257 + '"invalid context for definition"))) + (if (memv lexical-t-58245 + '(alias-form)) + (begin + (lexical-parse-alias-57335 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + '"invalid context for definition")) + (if (memv lexical-t-58245 + '(syntax)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243) + '"reference to pattern variable outside syntax form") + (if (memv lexical-t-58245 + '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58239 + lexical-w-58242 + lexical-ae-58243))))))))))))))))))))) + lexical-type-58237))) + (lexical-chi-application-57321 + (lambda (lexical-x-58260 + lexical-e-58261 + lexical-r-58262 + lexical-mr-58263 + lexical-w-58264 + lexical-ae-58265 + lexical-m?-58266) + ((lambda (lexical-tmp-58267) + ((lambda (lexical-tmp-58268) + (if lexical-tmp-58268 + (apply (lambda (lexical-e0-58269 lexical-e1-58270) + (cons lexical-x-58260 + (map (lambda (lexical-e-58271) + (lexical-chi-57319 + lexical-e-58271 + lexical-r-58262 + lexical-mr-58263 + lexical-w-58264 + lexical-m?-58266)) + lexical-e1-58270))) + lexical-tmp-58268) + ((lambda (lexical-_-58273) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58261 + lexical-w-58264 + lexical-ae-58265))) + lexical-tmp-58267))) + ($syntax-dispatch + lexical-tmp-58267 + '(any . each-any)))) + lexical-e-58261))) + (lexical-chi-set!-57322 + (lambda (lexical-e-58274 + lexical-r-58275 + lexical-w-58276 + lexical-ae-58277 + lexical-rib-58278) + ((lambda (lexical-tmp-58279) + ((lambda (lexical-tmp-58280) + (if (if lexical-tmp-58280 + (apply (lambda (lexical-_-58281 + lexical-id-58282 + lexical-val-58283) + (lexical-id?-57127 lexical-id-58282)) + lexical-tmp-58280) + '#f) + (apply (lambda (lexical-_-58284 + lexical-id-58285 + lexical-val-58286) + ((lambda (lexical-n-58287) + ((lambda (lexical-b-58288) + ((lambda (lexical-t-58289) + (if (memv lexical-t-58289 '(macro!)) + ((lambda (lexical-id-58290 + lexical-val-58291) + (lexical-syntax-type-57267 + (lexical-chi-macro-57323 + (lexical-binding-value-57103 + lexical-b-58288) + (list '#(syntax-object + set! + ((top) + #(ribcage () () ()) + #(ribcage + #(id val) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(t) + #(("m" top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(b) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(n) + #((top)) + #("i")) + #(ribcage + #(_ id val) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(e r w ae rib) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-id-58290 + lexical-val-58291) + lexical-r-58275 + '(()) + '#f + lexical-rib-58278) + lexical-r-58275 + '(()) + '#f + lexical-rib-58278)) + (lexical-wrap-57264 + lexical-id-58285 + lexical-w-58276) + (lexical-wrap-57264 + lexical-val-58286 + lexical-w-58276)) + (values + 'core + (lambda (lexical-e-58292 + lexical-r-58293 + lexical-mr-58294 + lexical-w-58295 + lexical-ae-58296 + lexical-m?-58297) + ((lambda (lexical-val-58298 + lexical-n-58299) + ((lambda (lexical-b-58300) + ((lambda (lexical-t-58301) + (if (memv lexical-t-58301 + '(lexical)) + (list 'set! + (lexical-binding-value-57103 + lexical-b-58300) + lexical-val-58298) + (if (memv lexical-t-58301 + '(global)) + ((lambda (lexical-sym-58302) + (begin + (if (lexical-read-only-binding?-56960 + lexical-n-58299) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58292 + lexical-w-58295 + lexical-ae-58296) + '"invalid assignment to read-only variable") + (void)) + (list 'set! + lexical-sym-58302 + lexical-val-58298))) + (lexical-binding-value-57103 + lexical-b-58300)) + (if (memv lexical-t-58301 + '(meta-variable)) + (if lexical-m?-58297 + (list 'set! + (lexical-binding-value-57103 + lexical-b-58300) + lexical-val-58298) + (lexical-displaced-lexical-error-57120 + (lexical-wrap-57264 + lexical-id-58285 + lexical-w-58295))) + (if (memv lexical-t-58301 + '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + (lexical-wrap-57264 + lexical-id-58285 + lexical-w-58295)) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58292 + lexical-w-58295 + lexical-ae-58296))))))) + (lexical-binding-type-57102 + lexical-b-58300))) + (lexical-lookup-57122 + lexical-n-58299 + lexical-r-58293))) + (lexical-chi-57319 + lexical-val-58286 + lexical-r-58293 + lexical-mr-58294 + lexical-w-58295 + lexical-m?-58297) + (lexical-id-var-name-57255 + lexical-id-58285 + lexical-w-58295))) + lexical-e-58274 + lexical-w-58276 + lexical-ae-58277))) + (lexical-binding-type-57102 + lexical-b-58288))) + (lexical-lookup-57122 + lexical-n-58287 + lexical-r-58275))) + (lexical-id-var-name-57255 + lexical-id-58285 + lexical-w-58276))) + lexical-tmp-58280) + ((lambda (lexical-_-58303) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58274 + lexical-w-58276 + lexical-ae-58277))) + lexical-tmp-58279))) + ($syntax-dispatch + lexical-tmp-58279 + '(any any any)))) + lexical-e-58274))) + (lexical-chi-macro-57323 + (lambda (lexical-p-58304 + lexical-e-58305 + lexical-r-58306 + lexical-w-58307 + lexical-ae-58308 + lexical-rib-58309) + (letrec* + ((lexical-rebuild-macro-output-58310 + (lambda (lexical-x-58311 lexical-m-58312) + (if (pair? lexical-x-58311) + (cons (lexical-rebuild-macro-output-58310 + (car lexical-x-58311) + lexical-m-58312) + (lexical-rebuild-macro-output-58310 + (cdr lexical-x-58311) + lexical-m-58312)) + (if (lexical-syntax-object?-56884 lexical-x-58311) + ((lambda (lexical-w-58313) + ((lambda (lexical-ms-58314 lexical-s-58315) + (lexical-make-syntax-object-56883 + (lexical-syntax-object-expression-56885 + lexical-x-58311) + (if (if (pair? lexical-ms-58314) + (eq? (car lexical-ms-58314) '#f) + '#f) + (lexical-make-wrap-57136 + (cdr lexical-ms-58314) + (cdr lexical-s-58315)) + (lexical-make-wrap-57136 + (cons lexical-m-58312 lexical-ms-58314) + (if lexical-rib-58309 + (cons lexical-rib-58309 + (cons 'shift lexical-s-58315)) + (cons 'shift lexical-s-58315)))))) + (lexical-wrap-marks-57137 lexical-w-58313) + (lexical-wrap-subst-57138 lexical-w-58313))) + (lexical-syntax-object-wrap-56886 + lexical-x-58311)) + (if (vector? lexical-x-58311) + ((lambda (lexical-n-58316) + ((lambda (lexical-v-58317) + ((lambda () + ((letrec ((lexical-do-58318 + (lambda (lexical-i-58319) + (if (= lexical-i-58319 + lexical-n-58316) + lexical-v-58317 + (begin + (vector-set! + lexical-v-58317 + lexical-i-58319 + (lexical-rebuild-macro-output-58310 + (vector-ref + lexical-x-58311 + lexical-i-58319) + lexical-m-58312)) + (lexical-do-58318 + (+ lexical-i-58319 + '1))))))) + lexical-do-58318) + '0)))) + (make-vector lexical-n-58316))) + (vector-length lexical-x-58311)) + (if (symbol? lexical-x-58311) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58305 + lexical-w-58307 + lexical-ae-58308) + '"encountered raw symbol " + (symbol->string lexical-x-58311) + '" in output of macro") + lexical-x-58311))))))) + (lexical-rebuild-macro-output-58310 + ((lambda (lexical-out-58320) + (if (procedure? lexical-out-58320) + (lexical-out-58320 + (lambda (lexical-id-58321) + (begin + (if (not (identifier? lexical-id-58321)) + (syntax-error + lexical-id-58321 + '"environment argument is not an identifier") + (void)) + (lexical-lookup-57122 + (lexical-id-var-name-57255 + lexical-id-58321 + '(())) + lexical-r-58306)))) + lexical-out-58320)) + (lexical-p-58304 + (lexical-source-wrap-57265 + lexical-e-58305 + (lexical-anti-mark-57221 lexical-w-58307) + lexical-ae-58308))) + (string '#\m))))) + (lexical-chi-body-57324 + (lambda (lexical-body-58322 + lexical-outer-form-58323 + lexical-r-58324 + lexical-mr-58325 + lexical-w-58326 + lexical-m?-58327) + ((lambda (lexical-ribcage-58328) + ((lambda (lexical-w-58329) + ((lambda (lexical-body-58330) + ((lambda () (call-with-values (lambda () - (syntax-type446 e1648 r1647 w1645 '#f '#f)) - (lambda (type1653 value1652 e1651 w1650 ae1649) - (chi-expr499 type1653 value1652 e1651 r1647 - mr1646 w1650 ae1649 m?1644))))) - (chi-expr499 (lambda (type1628 value1627 e1626 r1625 mr1624 - w1623 ae1622 m?1621) - ((lambda (t1629) - (if (memv t1629 '(lexical)) - value1627 - (if (memv t1629 '(core)) - (value1627 e1626 r1625 mr1624 w1623 - ae1622 m?1621) - (if (memv t1629 '(lexical-call)) - (chi-application500 value1627 - e1626 r1625 mr1624 w1623 ae1622 - m?1621) - (if (memv t1629 '(constant)) - (list - 'quote - (strip522 - (source-wrap444 - e1626 - w1623 - ae1622) - '(()))) - (if (memv t1629 '(global)) - value1627 - (if (memv - t1629 - '(meta-variable)) - (if m?1621 - value1627 - (displaced-lexical-error299 - (source-wrap444 - e1626 - w1623 - ae1622))) - (if (memv - t1629 - '(call)) - (chi-application500 - (chi498 - (car e1626) - r1625 mr1624 - w1623 m?1621) - e1626 r1625 - mr1624 w1623 - ae1622 m?1621) - (if (memv - t1629 - '(begin-form)) - (chi-sequence497 - (parse-begin515 - e1626 - w1623 - ae1622 - '#f) - r1625 - mr1624 - w1623 - ae1622 - m?1621) - (if (memv - t1629 - '(local-syntax-form)) + (lexical-chi-internal-57325 + lexical-ribcage-58328 + lexical-outer-form-58323 + lexical-body-58330 + lexical-r-58324 + lexical-mr-58325 + lexical-m?-58327)) + (lambda (lexical-r-58331 + lexical-mr-58332 + lexical-exprs-58333 + lexical-ids-58334 + lexical-vars-58335 + lexical-vals-58336 + lexical-inits-58337) + (begin + (if (null? lexical-exprs-58333) + (syntax-error + lexical-outer-form-58323 + '"no expressions in body") + (void)) + (lexical-build-body-57058 + '#f + (reverse lexical-vars-58335) + (lexical-chi-frobs-57316 + (reverse lexical-vals-58336) + lexical-r-58331 + lexical-mr-58332 + lexical-m?-58327) + (lexical-build-sequence-57055 + '#f + (lexical-chi-frobs-57316 + (append + lexical-inits-58337 + lexical-exprs-58333) + lexical-r-58331 + lexical-mr-58332 + lexical-m?-58327))))))))) + (map (lambda (lexical-x-58338) + (lexical-make-frob-57297 + (lexical-wrap-57264 + lexical-x-58338 + lexical-w-58329) + '#f)) + lexical-body-58322))) + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 lexical-w-58326) + (cons lexical-ribcage-58328 + (lexical-wrap-subst-57138 lexical-w-58326))))) + (lexical-make-ribcage-57186 '() '() '())))) + (lexical-chi-internal-57325 + (lambda (lexical-ribcage-58339 + lexical-source-exp-58340 + lexical-body-58341 + lexical-r-58342 + lexical-mr-58343 + lexical-m?-58344) + (letrec* + ((lexical-return-58345 + (lambda (lexical-r-58346 + lexical-mr-58347 + lexical-exprs-58348 + lexical-ids-58349 + lexical-vars-58350 + lexical-vals-58351 + lexical-inits-58352) + (begin + (lexical-check-defined-ids-57306 + lexical-source-exp-58340 + lexical-ids-58349) + (values + lexical-r-58346 + lexical-mr-58347 + lexical-exprs-58348 + lexical-ids-58349 + lexical-vars-58350 + lexical-vals-58351 + lexical-inits-58352))))) + ((letrec ((lexical-parse-58353 + (lambda (lexical-body-58354 + lexical-r-58355 + lexical-mr-58356 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + lexical-meta-seen?-58361) + (if (null? lexical-body-58354) + (lexical-return-58345 + lexical-r-58355 + lexical-mr-58356 + lexical-body-58354 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360) + ((lambda (lexical-fr-58362) + ((lambda (lexical-e-58363) + ((lambda (lexical-meta?-58364) + ((lambda () + (call-with-values + (lambda () + (lexical-syntax-type-57267 + lexical-e-58363 + lexical-r-58355 + '(()) + '#f + lexical-ribcage-58339)) + (lambda (lexical-type-58365 + lexical-value-58366 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369) + ((lambda (lexical-t-58370) + (if (memv lexical-t-58370 + '(define-form)) + (call-with-values + (lambda () + (lexical-parse-define-57331 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369)) + (lambda (lexical-id-58371 + lexical-rhs-58372 + lexical-w-58373) + ((lambda (lexical-id-58374 + lexical-label-58375) + (if lexical-meta?-58364 + ((lambda (lexical-sym-58376) + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58339 + lexical-id-58374 + lexical-label-58375) + ((lambda (lexical-mr-58377) + (begin + (lexical-define-top-level-value-hook-56955 + lexical-sym-58376 + (lexical-top-level-eval-hook-56953 + (lexical-chi-57319 + lexical-rhs-58372 + lexical-mr-58377 + lexical-mr-58377 + lexical-w-58373 + '#t))) + (lexical-parse-58353 + (cdr lexical-body-58354) + lexical-r-58355 + lexical-mr-58377 + (cons lexical-id-58374 + lexical-ids-58357) + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f))) + (lexical-extend-env-57116 + lexical-label-58375 + (cons 'meta-variable + lexical-sym-58376) + lexical-mr-58356)))) + (lexical-generate-id-56963 + ((lambda (lexical-x-58378) + ((lambda (lexical-e-58379) + (if (lexical-annotation?-56952 + lexical-e-58379) + (annotation-expression + lexical-e-58379) + lexical-e-58379)) + (if (lexical-syntax-object?-56884 + lexical-x-58378) + (lexical-syntax-object-expression-56885 + lexical-x-58378) + lexical-x-58378))) + lexical-id-58374))) + ((lambda (lexical-var-58380) + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58339 + lexical-id-58374 + lexical-label-58375) + (lexical-parse-58353 + (cdr lexical-body-58354) + (lexical-extend-env-57116 + lexical-label-58375 + (cons 'lexical + lexical-var-58380) + lexical-r-58355) + lexical-mr-58356 + (cons lexical-id-58374 + lexical-ids-58357) + (cons lexical-var-58380 + lexical-vars-58358) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + lexical-rhs-58372 + lexical-w-58373) + lexical-meta?-58364) + lexical-vals-58359) + lexical-inits-58360 + '#f))) + (lexical-gen-var-57344 + lexical-id-58374)))) + (lexical-wrap-57264 + lexical-id-58371 + lexical-w-58373) + (lexical-gen-label-57183)))) + (if (memv lexical-t-58370 + '(define-syntax-form)) + (call-with-values + (lambda () + (lexical-parse-define-syntax-57332 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369)) + (lambda (lexical-id-58381 + lexical-rhs-58382 + lexical-w-58383) + ((lambda (lexical-id-58384 + lexical-label-58385 + lexical-exp-58386) + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58339 + lexical-id-58384 + lexical-label-58385) + ((lambda (lexical-b-58387) + (lexical-parse-58353 + (cdr lexical-body-58354) + (lexical-extend-env-57116 + lexical-label-58385 + lexical-b-58387 + lexical-r-58355) + (lexical-extend-env-57116 + lexical-label-58385 + lexical-b-58387 + lexical-mr-58356) + (cons lexical-id-58384 + lexical-ids-58357) + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f)) + (lexical-defer-or-eval-transformer-57124 + lexical-local-eval-hook-56954 + lexical-exp-58386)))) + (lexical-wrap-57264 + lexical-id-58381 + lexical-w-58383) + (lexical-gen-label-57183) + (lexical-chi-57319 + lexical-rhs-58382 + lexical-mr-58356 + lexical-mr-58356 + lexical-w-58383 + '#t)))) + (if (memv lexical-t-58370 + '($module-form)) + ((lambda (lexical-*ribcage-58388) + ((lambda (lexical-*w-58389) + ((lambda () + (call-with-values + (lambda () + (lexical-parse-module-57329 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369 + lexical-*w-58389)) + (lambda (lexical-orig-58390 + lexical-id-58391 + lexical-exports-58392 + lexical-forms-58393) (call-with-values (lambda () - (chi-local-syntax517 - value1627 - e1626 - r1625 - mr1624 - w1623 - ae1622)) - (lambda (forms1634 - r1633 - mr1632 - w1631 - ae1630) - (chi-sequence497 - forms1634 - r1633 - mr1632 - w1631 - ae1630 - m?1621))) - (if (memv - t1629 - '(eval-when-form)) - (call-with-values - (lambda () - (parse-eval-when513 - e1626 - w1623 - ae1622)) - (lambda (when-list1636 - forms1635) - (if (memq - 'eval - when-list1636) - (chi-sequence497 - forms1635 - r1625 - mr1624 - w1623 - ae1622 - m?1621) - (chi-void518)))) - (if (memv - t1629 - '(meta-form)) - (syntax-error - (source-wrap444 - e1626 - w1623 - ae1622) - '"invalid context for meta definition") - (if (memv - t1629 - '(define-form)) - (begin - (parse-define510 - e1626 - w1623 - ae1622) - (syntax-error - (source-wrap444 - e1626 - w1623 - ae1622) - '"invalid context for definition")) - (if (memv - t1629 - '(define-syntax-form)) - (begin - (parse-define-syntax511 - e1626 - w1623 - ae1622) - (syntax-error - (source-wrap444 - e1626 - w1623 - ae1622) - '"invalid context for definition")) - (if (memv - t1629 - '($module-form)) - (call-with-values - (lambda () - (parse-module508 - e1626 - w1623 - ae1622 - w1623)) - (lambda (orig1640 - id1639 - exports1638 - forms1637) - (syntax-error - orig1640 - '"invalid context for definition"))) - (if (memv - t1629 - '($import-form)) - (call-with-values - (lambda () - (parse-import509 - e1626 - w1623 - ae1622)) - (lambda (orig1643 - only?1642 - mid1641) - (syntax-error - orig1643 - '"invalid context for definition"))) - (if (memv - t1629 - '(alias-form)) - (begin - (parse-alias514 - e1626 - w1623 - ae1622) - (syntax-error - (source-wrap444 - e1626 - w1623 - ae1622) - '"invalid context for definition")) - (if (memv - t1629 - '(syntax)) - (syntax-error - (source-wrap444 - e1626 - w1623 - ae1622) - '"reference to pattern variable outside syntax form") - (if (memv - t1629 - '(displaced-lexical)) - (displaced-lexical-error299 - (source-wrap444 - e1626 - w1623 - ae1622)) - (syntax-error - (source-wrap444 - e1626 - w1623 - ae1622))))))))))))))))))))) - type1628))) - (chi-application500 (lambda (x1613 e1612 r1611 mr1610 w1609 - ae1608 m?1607) - ((lambda (tmp1614) - ((lambda (tmp1615) - (if tmp1615 - (apply - (lambda (e01617 e11616) - (cons - x1613 - (map (lambda (e1619) - (chi498 e1619 - r1611 mr1610 - w1609 m?1607)) - e11616))) - tmp1615) - ((lambda (_1620) - (syntax-error - (source-wrap444 - e1612 - w1609 - ae1608))) - tmp1614))) - ($syntax-dispatch - tmp1614 - '(any . each-any)))) - e1612))) - (chi-set!501 (lambda (e1581 r1580 w1579 ae1578 rib1577) - ((lambda (tmp1582) - ((lambda (tmp1583) - (if (if tmp1583 - (apply - (lambda (_1586 id1585 val1584) - (id?306 id1585)) - tmp1583) - '#f) - (apply - (lambda (_1589 id1588 val1587) - ((lambda (n1590) - ((lambda (b1591) - ((lambda (t1592) - (if (memv - t1592 - '(macro!)) - ((lambda (id1594 - val1593) - (syntax-type446 - (chi-macro502 - (binding-value282 - b1591) - (list - '#(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(id val) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage #(_ id val) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e r w ae rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - id1594 - val1593) - r1580 '(()) - '#f rib1577) - r1580 '(()) '#f - rib1577)) - (wrap443 - id1588 - w1579) - (wrap443 - val1587 - w1579)) - (values 'core - (lambda (e1600 - r1599 - mr1598 - w1597 - ae1596 - m?1595) - ((lambda (val1602 - n1601) - ((lambda (b1603) - ((lambda (t1604) - (if (memv - t1604 - '(lexical)) - (list - 'set! - (binding-value282 - b1603) - val1602) - (if (memv - t1604 - '(global)) - ((lambda (sym1605) - (begin - (if (read-only-binding?140 - n1601) - (syntax-error - (source-wrap444 - e1600 - w1597 - ae1596) - '"invalid assignment to read-only variable") - (void)) - (list - 'set! - sym1605 - val1602))) - (binding-value282 - b1603)) - (if (memv - t1604 - '(meta-variable)) - (if m?1595 - (list - 'set! - (binding-value282 - b1603) - val1602) - (displaced-lexical-error299 - (wrap443 - id1588 - w1597))) - (if (memv - t1604 - '(displaced-lexical)) - (displaced-lexical-error299 - (wrap443 - id1588 - w1597)) - (syntax-error - (source-wrap444 - e1600 - w1597 - ae1596))))))) - (binding-type281 - b1603))) - (lookup301 - n1601 - r1599))) - (chi498 val1587 - r1599 mr1598 - w1597 m?1595) - (id-var-name434 - id1588 - w1597))) - e1581 w1579 - ae1578))) - (binding-type281 b1591))) - (lookup301 n1590 r1580))) - (id-var-name434 id1588 w1579))) - tmp1583) - ((lambda (_1606) - (syntax-error - (source-wrap444 - e1581 - w1579 - ae1578))) - tmp1582))) - ($syntax-dispatch tmp1582 '(any any any)))) - e1581))) - (chi-macro502 (lambda (p1564 e1563 r1562 w1561 ae1560 - rib1559) - (letrec ((rebuild-macro-output1565 (lambda (x1569 - m1568) - (if (pair? - x1569) - (cons - (rebuild-macro-output1565 - (car x1569) - m1568) - (rebuild-macro-output1565 - (cdr x1569) - m1568)) - (if (syntax-object?64 - x1569) - ((lambda (w1570) - ((lambda (ms1572 - s1571) - (make-syntax-object63 - (syntax-object-expression65 - x1569) - (if (if (pair? - ms1572) - (eq? (car ms1572) - '#f) - '#f) - (make-wrap315 - (cdr ms1572) - (cdr s1571)) - (make-wrap315 - (cons - m1568 - ms1572) - (if rib1559 - (cons - rib1559 - (cons - 'shift - s1571)) - (cons - 'shift - s1571)))))) - (wrap-marks316 - w1570) - (wrap-subst317 - w1570))) - (syntax-object-wrap66 - x1569)) - (if (vector? - x1569) - ((lambda (n1573) - ((lambda (v1574) - ((lambda () - ((letrec ((do1575 (lambda (i1576) - (if (= i1576 - n1573) - v1574 - (begin - (vector-set! - v1574 - i1576 - (rebuild-macro-output1565 - (vector-ref - x1569 - i1576) - m1568)) - (do1575 - (+ i1576 - '1))))))) - do1575) - '0)))) - (make-vector - n1573))) - (vector-length - x1569)) - (if (symbol? - x1569) - (syntax-error - (source-wrap444 - e1563 - w1561 - ae1560) - '"encountered raw symbol " - (symbol->string - x1569) - '" in output of macro") - x1569))))))) - (rebuild-macro-output1565 - ((lambda (out1566) - (if (procedure? out1566) - (out1566 - (lambda (id1567) - (begin - (if (not (identifier? id1567)) - (syntax-error - id1567 - '"environment argument is not an identifier") - (void)) - (lookup301 - (id-var-name434 - id1567 - '(())) - r1562)))) - out1566)) - (p1564 - (source-wrap444 - e1563 - (anti-mark400 w1561) - ae1560))) - (string '#\m))))) - (chi-body503 (lambda (body1547 outer-form1546 r1545 mr1544 - w1543 m?1542) - ((lambda (ribcage1548) - ((lambda (w1549) - ((lambda (body1550) - ((lambda () - (call-with-values - (lambda () - (chi-internal504 ribcage1548 - outer-form1546 body1550 r1545 - mr1544 m?1542)) - (lambda (r1557 mr1556 exprs1555 - ids1554 vars1553 vals1552 - inits1551) - (begin - (if (null? exprs1555) - (syntax-error - outer-form1546 - '"no expressions in body") - (void)) - (build-body237 - '#f - (reverse vars1553) - (chi-frobs495 - (reverse vals1552) - r1557 - mr1556 - m?1542) - (build-sequence235 - '#f - (chi-frobs495 - (append - inits1551 - exprs1555) - r1557 - mr1556 - m?1542))))))))) - (map (lambda (x1558) - (make-frob476 - (wrap443 x1558 w1549) - '#f)) - body1547))) - (make-wrap315 - (wrap-marks316 w1543) - (cons - ribcage1548 - (wrap-subst317 w1543))))) - (make-ribcage365 '() '() '())))) - (chi-internal504 (lambda (ribcage1451 source-exp1450 - body1449 r1448 mr1447 m?1446) - (letrec ((return1452 (lambda (r1541 mr1540 - exprs1539 - ids1538 - vars1537 - vals1536 - inits1535) - (begin - (check-defined-ids485 - source-exp1450 - ids1538) - (values r1541 - mr1540 exprs1539 - ids1538 vars1537 - vals1536 - inits1535))))) - ((letrec ((parse1453 (lambda (body1461 - r1460 mr1459 - ids1458 - vars1457 - vals1456 - inits1455 - meta-seen?1454) - (if (null? - body1461) - (return1452 - r1460 mr1459 - body1461 - ids1458 - vars1457 - vals1456 - inits1455) - ((lambda (fr1462) - ((lambda (e1463) - ((lambda (meta?1464) - ((lambda () - (call-with-values - (lambda () - (syntax-type446 - e1463 - r1460 - '(()) - '#f - ribcage1451)) - (lambda (type1469 - value1468 - e1467 - w1466 - ae1465) - ((lambda (t1470) - (if (memv - t1470 - '(define-form)) - (call-with-values - (lambda () - (parse-define510 - e1467 - w1466 - ae1465)) - (lambda (id1473 - rhs1472 - w1471) - ((lambda (id1475 - label1474) - (if meta?1464 - ((lambda (sym1476) - (begin - (extend-ribcage!410 - ribcage1451 - id1475 - label1474) - ((lambda (mr1477) - (begin - (define-top-level-value-hook135 - sym1476 - (top-level-eval-hook133 - (chi498 - rhs1472 - mr1477 - mr1477 - w1471 - '#t))) - (parse1453 - (cdr body1461) - r1460 - mr1477 - (cons - id1475 - ids1458) - vars1457 - vals1456 - inits1455 - '#f))) - (extend-env295 - label1474 - (cons - 'meta-variable - sym1476) - mr1459)))) - (generate-id143 - ((lambda (x1478) - ((lambda (e1479) - (if (annotation?132 - e1479) - (annotation-expression - e1479) - e1479)) - (if (syntax-object?64 - x1478) - (syntax-object-expression65 - x1478) - x1478))) - id1475))) - ((lambda (var1480) - (begin - (extend-ribcage!410 - ribcage1451 - id1475 - label1474) - (parse1453 - (cdr body1461) - (extend-env295 - label1474 - (cons - 'lexical - var1480) - r1460) - mr1459 - (cons - id1475 - ids1458) - (cons - var1480 - vars1457) - (cons - (make-frob476 - (wrap443 - rhs1472 - w1471) - meta?1464) - vals1456) - inits1455 - '#f))) - (gen-var523 - id1475)))) - (wrap443 - id1473 - w1471) - (gen-label362)))) - (if (memv - t1470 - '(define-syntax-form)) - (call-with-values - (lambda () - (parse-define-syntax511 - e1467 - w1466 - ae1465)) - (lambda (id1483 - rhs1482 - w1481) - ((lambda (id1486 - label1485 - exp1484) - (begin - (extend-ribcage!410 - ribcage1451 - id1486 - label1485) - ((lambda (b1487) - (parse1453 - (cdr body1461) - (extend-env295 - label1485 - b1487 - r1460) - (extend-env295 - label1485 - b1487 - mr1459) - (cons - id1486 - ids1458) - vars1457 - vals1456 - inits1455 - '#f)) - (defer-or-eval-transformer303 - local-eval-hook134 - exp1484)))) - (wrap443 - id1483 - w1481) - (gen-label362) - (chi498 - rhs1482 - mr1459 - mr1459 - w1481 - '#t)))) - (if (memv - t1470 - '($module-form)) - ((lambda (*ribcage1488) - ((lambda (*w1489) - ((lambda () - (call-with-values - (lambda () - (parse-module508 - e1467 - w1466 - ae1465 - *w1489)) - (lambda (orig1493 - id1492 - exports1491 - forms1490) - (call-with-values - (lambda () - (chi-internal504 - *ribcage1488 - orig1493 - (map (lambda (d1507) - (make-frob476 - d1507 - meta?1464)) - forms1490) - r1460 - mr1459 - m?1446)) - (lambda (r1500 - mr1499 - *body1498 - *ids1497 - *vars1496 - *vals1495 - *inits1494) - (begin - (check-module-exports484 - source-exp1450 - (flatten-exports450 - exports1491) - *ids1497) - ((lambda (iface1505 - vars1504 - vals1503 - inits1502 - label1501) - (begin - (extend-ribcage!410 - ribcage1451 - id1492 - label1501) - ((lambda (b1506) - (parse1453 - (cdr body1461) - (extend-env295 - label1501 - b1506 - r1500) - (extend-env295 - label1501 - b1506 - mr1499) - (cons - id1492 - ids1458) - vars1504 - vals1503 - inits1502 - '#f)) - (cons - '$module - iface1505)))) - (make-resolved-interface460 - id1492 - exports1491 - '#f) - (append - *vars1496 - vars1457) - (append - *vals1495 - vals1456) - (append - inits1455 - *inits1494 - *body1498) - (gen-label362)))))))))) - (make-wrap315 - (wrap-marks316 - w1466) - (cons - *ribcage1488 - (wrap-subst317 - w1466))))) - (make-ribcage365 - '() - '() - '())) - (if (memv - t1470 - '($import-form)) - (call-with-values - (lambda () - (parse-import509 - e1467 - w1466 - ae1465)) - (lambda (orig1510 - only?1509 - mid1508) - ((lambda (mlabel1511) - ((lambda (binding1512) - ((lambda (t1513) - (if (memv - t1513 - '($module)) - ((lambda (iface1514) - ((lambda (import-iface1515) - ((lambda () - (begin - (if only?1509 - (extend-ribcage-barrier!412 - ribcage1451 - mid1508) - (void)) - (do-import!507 - import-iface1515 - ribcage1451) - (parse1453 - (cdr body1461) - r1460 - mr1459 - (cons - import-iface1515 - ids1458) - vars1457 - vals1456 - inits1455 - '#f))))) - (make-import-interface379 - iface1514 - (import-mark-delta505 - mid1508 - iface1514)))) - (binding-value282 - binding1512)) - (if (memv - t1513 - '(displaced-lexical)) - (displaced-lexical-error299 - mid1508) - (syntax-error - mid1508 - '"unknown module")))) - (binding-type281 - binding1512))) - (lookup301 - mlabel1511 - r1460))) - (id-var-name434 - mid1508 - '(()))))) - (if (memv - t1470 - '(alias-form)) - (call-with-values - (lambda () - (parse-alias514 - e1467 - w1466 - ae1465)) - (lambda (new-id1517 - old-id1516) - ((lambda (new-id1518) - (begin - (extend-ribcage!410 - ribcage1451 - new-id1518 - (id-var-name-loc433 - old-id1516 - w1466)) - (parse1453 - (cdr body1461) - r1460 - mr1459 - (cons - new-id1518 - ids1458) - vars1457 - vals1456 - inits1455 - '#f))) - (wrap443 - new-id1517 - w1466)))) - (if (memv - t1470 - '(begin-form)) - (parse1453 - ((letrec ((f1519 (lambda (forms1520) - (if (null? - forms1520) - (cdr body1461) - (cons - (make-frob476 - (wrap443 - (car forms1520) - w1466) - meta?1464) - (f1519 - (cdr forms1520))))))) - f1519) - (parse-begin515 - e1467 - w1466 - ae1465 - '#t)) - r1460 - mr1459 - ids1458 - vars1457 - vals1456 - inits1455 - '#f) - (if (memv - t1470 - '(eval-when-form)) - (call-with-values - (lambda () - (parse-eval-when513 - e1467 - w1466 - ae1465)) - (lambda (when-list1522 - forms1521) - (parse1453 - (if (memq - 'eval - when-list1522) - ((letrec ((f1523 (lambda (forms1524) - (if (null? - forms1524) - (cdr body1461) - (cons - (make-frob476 - (wrap443 - (car forms1524) - w1466) - meta?1464) - (f1523 - (cdr forms1524))))))) - f1523) - forms1521) - (cdr body1461)) - r1460 - mr1459 - ids1458 - vars1457 - vals1456 - inits1455 - '#f))) - (if (memv - t1470 - '(meta-form)) - (parse1453 - (cons - (make-frob476 - (wrap443 - (parse-meta512 - e1467 - w1466 - ae1465) - w1466) - '#t) - (cdr body1461)) - r1460 - mr1459 - ids1458 - vars1457 - vals1456 - inits1455 - '#t) - (if (memv - t1470 - '(local-syntax-form)) - (call-with-values - (lambda () - (chi-local-syntax517 - value1468 - e1467 - r1460 - mr1459 - w1466 - ae1465)) - (lambda (forms1529 - r1528 - mr1527 - w1526 - ae1525) - (parse1453 - ((letrec ((f1530 (lambda (forms1531) - (if (null? - forms1531) - (cdr body1461) - (cons - (make-frob476 - (wrap443 - (car forms1531) - w1526) - meta?1464) - (f1530 - (cdr forms1531))))))) - f1530) - forms1529) - r1528 - mr1527 - ids1458 - vars1457 - vals1456 - inits1455 - '#f))) - (begin - (if meta-seen?1454 - (syntax-error - (source-wrap444 - e1467 - w1466 - ae1465) - '"invalid meta definition") - (void)) - ((letrec ((f1532 (lambda (body1533) - (if ((lambda (t1534) - (if t1534 - t1534 - (not (frob-meta?479 - (car body1533))))) - (null? - body1533)) - (return1452 - r1460 - mr1459 - body1533 - ids1458 - vars1457 - vals1456 - inits1455) - (begin - (top-level-eval-hook133 - (chi-meta-frob496 - (car body1533) - mr1459)) - (f1532 - (cdr body1533))))))) - f1532) - (cons - (make-frob476 - (source-wrap444 - e1467 - w1466 - ae1465) - meta?1464) - (cdr body1461)))))))))))))) - type1469)))))) - (frob-meta?479 - fr1462))) - (frob-e478 - fr1462))) - (car body1461)))))) - parse1453) body1449 r1448 mr1447 '() - '() '() '() '#f)))) - (import-mark-delta505 (lambda (mid1445 iface1444) - (diff-marks426 - (id-marks312 mid1445) - (interface-marks453 iface1444)))) - (lookup-import-label506 (lambda (id1442) - ((lambda (label1443) - (begin - (if (not label1443) - (syntax-error - id1442 - '"exported identifier not visible") - (void)) - label1443)) - (id-var-name-loc433 - id1442 - '(()))))) - (do-import!507 (lambda (import-iface1438 ribcage1437) - ((lambda (ie1439) - (if (<= (vector-length ie1439) '20) - ((lambda (new-marks1440) - (vfor-each488 - (lambda (id1441) - (import-extend-ribcage!411 - ribcage1437 - new-marks1440 - id1441 - (lookup-import-label506 - id1441))) - ie1439)) - (import-interface-new-marks382 - import-iface1438)) - (extend-ribcage-subst!414 - ribcage1437 - import-iface1438))) - (interface-exports454 - (import-interface-interface381 - import-iface1438))))) - (parse-module508 (lambda (e1413 w1412 ae1411 *w1410) - (letrec ((listify1414 (lambda (exports1431) - (if (null? - exports1431) - '() - (cons - ((lambda (tmp1432) - ((lambda (tmp1433) - (if tmp1433 - (apply - (lambda (ex1434) - (listify1414 - ex1434)) - tmp1433) - ((lambda (x1436) - (if (id?306 - x1436) - (wrap443 - x1436 - *w1410) - (syntax-error - (source-wrap444 - e1413 - w1412 - ae1411) - '"invalid exports list in"))) - tmp1432))) - ($syntax-dispatch - tmp1432 - 'each-any))) - (car exports1431)) - (listify1414 - (cdr exports1431))))))) - ((lambda (tmp1415) - ((lambda (tmp1416) - (if (if tmp1416 - (apply - (lambda (_1421 orig1420 - mid1419 ex1418 - form1417) - (id?306 mid1419)) - tmp1416) - '#f) - (apply - (lambda (_1426 orig1425 - mid1424 ex1423 - form1422) - (values - orig1425 - (wrap443 mid1424 w1412) - (listify1414 ex1423) - (map (lambda (x1428) - (wrap443 - x1428 - *w1410)) - form1422))) - tmp1416) - ((lambda (_1430) - (syntax-error - (source-wrap444 - e1413 - w1412 - ae1411))) - tmp1415))) - ($syntax-dispatch - tmp1415 - '(any any any each-any . - each-any)))) - e1413)))) - (parse-import509 (lambda (e1393 w1392 ae1391) - ((lambda (tmp1394) - ((lambda (tmp1395) - (if (if tmp1395 - (apply - (lambda (_1398 orig1397 - mid1396) - (id?306 mid1396)) - tmp1395) - '#f) - (apply - (lambda (_1401 orig1400 mid1399) - (values - orig1400 - '#t - (wrap443 mid1399 w1392))) - tmp1395) - ((lambda (tmp1402) - (if (if tmp1402 - (apply - (lambda (_1405 - orig1404 - mid1403) - (id?306 mid1403)) - tmp1402) - '#f) - (apply - (lambda (_1408 orig1407 - mid1406) - (values - orig1407 - '#f - (wrap443 - mid1406 - w1392))) - tmp1402) - ((lambda (_1409) - (syntax-error - (source-wrap444 - e1393 - w1392 - ae1391))) - tmp1394))) - ($syntax-dispatch - tmp1394 - '(any any #(atom #f) any))))) - ($syntax-dispatch - tmp1394 - '(any any #(atom #t) any)))) - e1393))) - (parse-define510 (lambda (e1364 w1363 ae1362) - ((lambda (tmp1365) - ((lambda (tmp1366) - (if (if tmp1366 - (apply - (lambda (_1369 name1368 - val1367) - (id?306 name1368)) - tmp1366) - '#f) - (apply - (lambda (_1372 name1371 val1370) - (values - name1371 - val1370 - w1363)) - tmp1366) - ((lambda (tmp1373) - (if (if tmp1373 - (apply - (lambda (_1378 - name1377 - args1376 - e11375 - e21374) - (if (id?306 - name1377) - (valid-bound-ids?439 - (lambda-var-list524 - args1376)) - '#f)) - tmp1373) - '#f) - (apply - (lambda (_1383 name1382 - args1381 e11380 - e21379) - (values - (wrap443 - name1382 - w1363) - (cons - '#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (wrap443 - (cons - args1381 - (cons - e11380 - e21379)) - w1363)) - '(()))) - tmp1373) - ((lambda (tmp1385) - (if (if tmp1385 - (apply - (lambda (_1387 - name1386) - (id?306 - name1386)) - tmp1385) - '#f) - (apply - (lambda (_1389 - name1388) - (values - (wrap443 - name1388 - w1363) - '#(syntax-object (void) ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - '(()))) - tmp1385) - ((lambda (_1390) - (syntax-error - (source-wrap444 - e1364 - w1363 - ae1362))) - tmp1365))) - ($syntax-dispatch - tmp1365 - '(any any))))) - ($syntax-dispatch - tmp1365 - '(any (any . any) - any - . - each-any))))) - ($syntax-dispatch - tmp1365 - '(any any any)))) - e1364))) - (parse-define-syntax511 (lambda (e1340 w1339 ae1338) - ((lambda (tmp1341) - ((lambda (tmp1342) - (if (if tmp1342 - (apply - (lambda (_1347 - name1346 - id1345 - e11344 - e21343) - (if (id?306 - name1346) - (id?306 id1345) - '#f)) - tmp1342) - '#f) - (apply - (lambda (_1352 name1351 - id1350 e11349 - e21348) - (values - (wrap443 - name1351 - w1339) - (cons - '#(syntax-object lambda ((top) #(ribcage #(_ name id e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - (wrap443 - (list id1350) - w1339) - (wrap443 - (cons - e11349 - e21348) - w1339))) - '(()))) - tmp1342) - ((lambda (tmp1354) - (if (if tmp1354 - (apply - (lambda (_1357 - name1356 - val1355) - (id?306 - name1356)) - tmp1354) - '#f) - (apply - (lambda (_1360 - name1359 - val1358) - (values - name1359 - val1358 - w1339)) - tmp1354) - ((lambda (_1361) - (syntax-error - (source-wrap444 - e1340 - w1339 - ae1338))) - tmp1341))) - ($syntax-dispatch - tmp1341 - '(any any any))))) - ($syntax-dispatch - tmp1341 - '(any (any any) - any - . - each-any)))) - e1340))) - (parse-meta512 (lambda (e1332 w1331 ae1330) - ((lambda (tmp1333) - ((lambda (tmp1334) - (if tmp1334 - (apply - (lambda (_1336 form1335) form1335) - tmp1334) - ((lambda (_1337) - (syntax-error - (source-wrap444 - e1332 - w1331 - ae1330))) - tmp1333))) - ($syntax-dispatch tmp1333 '(any . any)))) - e1332))) - (parse-eval-when513 (lambda (e1320 w1319 ae1318) - ((lambda (tmp1321) - ((lambda (tmp1322) - (if tmp1322 - (apply - (lambda (_1326 x1325 e11324 - e21323) - (values - (chi-when-list445 - x1325 - w1319) - (cons e11324 e21323))) - tmp1322) - ((lambda (_1329) - (syntax-error - (source-wrap444 - e1320 - w1319 - ae1318))) - tmp1321))) - ($syntax-dispatch - tmp1321 - '(any each-any any . each-any)))) - e1320))) - (parse-alias514 (lambda (e1308 w1307 ae1306) - ((lambda (tmp1309) - ((lambda (tmp1310) - (if (if tmp1310 - (apply - (lambda (_1313 new-id1312 - old-id1311) - (if (id?306 new-id1312) - (id?306 old-id1311) - '#f)) - tmp1310) - '#f) - (apply - (lambda (_1316 new-id1315 - old-id1314) - (values new-id1315 old-id1314)) - tmp1310) - ((lambda (_1317) - (syntax-error - (source-wrap444 - e1308 - w1307 - ae1306))) - tmp1309))) - ($syntax-dispatch - tmp1309 - '(any any any)))) - e1308))) - (parse-begin515 (lambda (e1295 w1294 ae1293 empty-okay?1292) - ((lambda (tmp1296) - ((lambda (tmp1297) - (if (if tmp1297 - (apply - (lambda (_1298) - empty-okay?1292) - tmp1297) - '#f) - (apply - (lambda (_1299) '()) - tmp1297) - ((lambda (tmp1300) - (if tmp1300 - (apply - (lambda (_1303 e11302 - e21301) - (cons e11302 e21301)) - tmp1300) - ((lambda (_1305) - (syntax-error - (source-wrap444 - e1295 - w1294 - ae1293))) - tmp1296))) - ($syntax-dispatch - tmp1296 - '(any any . each-any))))) - ($syntax-dispatch tmp1296 '(any)))) - e1295))) - (chi-lambda-clause516 (lambda (e1269 c1268 r1267 mr1266 - w1265 m?1264) - ((lambda (tmp1270) - ((lambda (tmp1271) - (if tmp1271 - (apply - (lambda (id1274 e11273 - e21272) - ((lambda (ids1275) - (if (not (valid-bound-ids?439 - ids1275)) - (syntax-error - e1269 - '"invalid parameter list in") - ((lambda (labels1277 - new-vars1276) - (values - new-vars1276 - (chi-body503 - (cons - e11273 - e21272) - e1269 - (extend-var-env*297 - labels1277 - new-vars1276 - r1267) - mr1266 - (make-binding-wrap417 - ids1275 - labels1277 - w1265) - m?1264))) - (gen-labels364 - ids1275) - (map gen-var523 - ids1275)))) - id1274)) - tmp1271) - ((lambda (tmp1280) - (if tmp1280 - (apply - (lambda (ids1283 - e11282 - e21281) - ((lambda (old-ids1284) - (if (not (valid-bound-ids?439 - old-ids1284)) - (syntax-error - e1269 - '"invalid parameter list in") - ((lambda (labels1286 - new-vars1285) - (values - ((letrec ((f1288 (lambda (ls11290 - ls21289) - (if (null? - ls11290) - ls21289 - (f1288 - (cdr ls11290) - (cons - (car ls11290) - ls21289)))))) - f1288) - (cdr new-vars1285) - (car new-vars1285)) - (chi-body503 - (cons - e11282 - e21281) - e1269 - (extend-var-env*297 - labels1286 - new-vars1285 - r1267) - mr1266 - (make-binding-wrap417 - old-ids1284 - labels1286 - w1265) - m?1264))) - (gen-labels364 - old-ids1284) - (map gen-var523 - old-ids1284)))) - (lambda-var-list524 - ids1283))) - tmp1280) - ((lambda (_1291) - (syntax-error - e1269)) - tmp1270))) - ($syntax-dispatch - tmp1270 - '(any any . each-any))))) - ($syntax-dispatch - tmp1270 - '(each-any any . each-any)))) - c1268))) - (chi-local-syntax517 (lambda (rec?1245 e1244 r1243 mr1242 - w1241 ae1240) - ((lambda (tmp1246) - ((lambda (tmp1247) - (if tmp1247 - (apply - (lambda (_1252 id1251 - val1250 e11249 - e21248) - ((lambda (ids1253) - (if (not (valid-bound-ids?439 - ids1253)) - (invalid-ids-error441 - (map (lambda (x1254) - (wrap443 - x1254 - w1241)) - ids1253) - (source-wrap444 - e1244 - w1241 - ae1240) - '"keyword") - ((lambda (labels1255) - ((lambda (new-w1256) - ((lambda (b*1257) - (values - (cons - e11249 - e21248) - (extend-env*296 - labels1255 - b*1257 - r1243) - (extend-env*296 - labels1255 - b*1257 - mr1242) - new-w1256 - ae1240)) - ((lambda (w1259) - (map (lambda (x1261) - (defer-or-eval-transformer303 - local-eval-hook134 - (chi498 - x1261 - mr1242 - mr1242 - w1259 - '#t))) - val1250)) - (if rec?1245 - new-w1256 - w1241)))) - (make-binding-wrap417 - ids1253 - labels1255 - w1241))) - (gen-labels364 - ids1253)))) - id1251)) - tmp1247) - ((lambda (_1263) - (syntax-error - (source-wrap444 - e1244 - w1241 - ae1240))) - tmp1246))) - ($syntax-dispatch - tmp1246 - '(any #(each (any any)) - any - . - each-any)))) - e1244))) - (chi-void518 (lambda () (cons 'void '()))) - (ellipsis?519 (lambda (x1239) - (if (nonsymbol-id?305 x1239) - (literal-id=?436 - x1239 - '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - '#f))) - (strip-annotation520 (lambda (x1238) - (if (pair? x1238) - (cons - (strip-annotation520 (car x1238)) - (strip-annotation520 (cdr x1238))) - (if (annotation?132 x1238) - (annotation-stripped x1238) - x1238)))) - (strip*521 (lambda (x1231 w1230 fn1229) - (if (memq 'top (wrap-marks316 w1230)) - (fn1229 x1231) - ((letrec ((f1232 (lambda (x1233) - (if (syntax-object?64 - x1233) - (strip*521 - (syntax-object-expression65 - x1233) - (syntax-object-wrap66 - x1233) - fn1229) - (if (pair? x1233) - ((lambda (a1235 - d1234) - (if (if (eq? a1235 - (car x1233)) - (eq? d1234 - (cdr x1233)) - '#f) - x1233 - (cons - a1235 - d1234))) - (f1232 - (car x1233)) - (f1232 - (cdr x1233))) - (if (vector? x1233) - ((lambda (old1236) - ((lambda (new1237) - (if (andmap - eq? - old1236 - new1237) - x1233 - (list->vector - new1237))) - (map f1232 - old1236))) - (vector->list - x1233)) - x1233)))))) - f1232) - x1231)))) - (strip522 (lambda (x1226 w1225) - (strip*521 - x1226 - w1225 - (lambda (x1227) - (if ((lambda (t1228) - (if t1228 - t1228 - (if (pair? x1227) - (annotation?132 (car x1227)) - '#f))) - (annotation?132 x1227)) - (strip-annotation520 x1227) - x1227))))) - (gen-var523 (lambda (id1223) - ((lambda (id1224) - (if (annotation?132 id1224) - (gensym) - (gensym))) - (if (syntax-object?64 id1223) - (syntax-object-expression65 id1223) - id1223)))) - (lambda-var-list524 (lambda (vars1218) - ((letrec ((lvl1219 (lambda (vars1222 - ls1221 w1220) - (if (pair? vars1222) - (lvl1219 - (cdr vars1222) - (cons - (wrap443 - (car vars1222) - w1220) - ls1221) - w1220) - (if (id?306 - vars1222) - (cons - (wrap443 - vars1222 - w1220) - ls1221) - (if (null? - vars1222) - ls1221 - (if (syntax-object?64 - vars1222) - (lvl1219 - (syntax-object-expression65 - vars1222) - ls1221 - (join-wraps422 - w1220 - (syntax-object-wrap66 - vars1222))) - (if (annotation?132 - vars1222) - (lvl1219 - (annotation-expression - vars1222) - ls1221 - w1220) - (cons - vars1222 - ls1221))))))))) - lvl1219) - vars1218 - '() - '(()))))) + (lexical-chi-internal-57325 + lexical-*ribcage-58388 + lexical-orig-58390 + (map (lambda (lexical-d-58394) + (lexical-make-frob-57297 + lexical-d-58394 + lexical-meta?-58364)) + lexical-forms-58393) + lexical-r-58355 + lexical-mr-58356 + lexical-m?-58344)) + (lambda (lexical-r-58395 + lexical-mr-58396 + lexical-*body-58397 + lexical-*ids-58398 + lexical-*vars-58399 + lexical-*vals-58400 + lexical-*inits-58401) + (begin + (lexical-check-module-exports-57305 + lexical-source-exp-58340 + (lexical-flatten-exports-57271 + lexical-exports-58392) + lexical-*ids-58398) + ((lambda (lexical-iface-58402 + lexical-vars-58403 + lexical-vals-58404 + lexical-inits-58405 + lexical-label-58406) + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58339 + lexical-id-58391 + lexical-label-58406) + ((lambda (lexical-b-58407) + (lexical-parse-58353 + (cdr lexical-body-58354) + (lexical-extend-env-57116 + lexical-label-58406 + lexical-b-58407 + lexical-r-58395) + (lexical-extend-env-57116 + lexical-label-58406 + lexical-b-58407 + lexical-mr-58396) + (cons lexical-id-58391 + lexical-ids-58357) + lexical-vars-58403 + lexical-vals-58404 + lexical-inits-58405 + '#f)) + (cons '$module + lexical-iface-58402)))) + (lexical-make-resolved-interface-57281 + lexical-id-58391 + lexical-exports-58392 + '#f) + (append + lexical-*vars-58399 + lexical-vars-58358) + (append + lexical-*vals-58400 + lexical-vals-58359) + (append + lexical-inits-58360 + lexical-*inits-58401 + lexical-*body-58397) + (lexical-gen-label-57183)))))))))) + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 + lexical-w-58368) + (cons lexical-*ribcage-58388 + (lexical-wrap-subst-57138 + lexical-w-58368))))) + (lexical-make-ribcage-57186 + '() + '() + '())) + (if (memv lexical-t-58370 + '($import-form)) + (call-with-values + (lambda () + (lexical-parse-import-57330 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369)) + (lambda (lexical-orig-58408 + lexical-only?-58409 + lexical-mid-58410) + ((lambda (lexical-mlabel-58411) + ((lambda (lexical-binding-58412) + ((lambda (lexical-t-58413) + (if (memv lexical-t-58413 + '($module)) + ((lambda (lexical-iface-58414) + ((lambda (lexical-import-iface-58415) + ((lambda () + (begin + (if lexical-only?-58409 + (lexical-extend-ribcage-barrier!-57233 + lexical-ribcage-58339 + lexical-mid-58410) + (void)) + (lexical-do-import!-57328 + lexical-import-iface-58415 + lexical-ribcage-58339) + (lexical-parse-58353 + (cdr lexical-body-58354) + lexical-r-58355 + lexical-mr-58356 + (cons lexical-import-iface-58415 + lexical-ids-58357) + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f))))) + (lexical-make-import-interface-57200 + lexical-iface-58414 + (lexical-import-mark-delta-57326 + lexical-mid-58410 + lexical-iface-58414)))) + (lexical-binding-value-57103 + lexical-binding-58412)) + (if (memv lexical-t-58413 + '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + lexical-mid-58410) + (syntax-error + lexical-mid-58410 + '"unknown module")))) + (lexical-binding-type-57102 + lexical-binding-58412))) + (lexical-lookup-57122 + lexical-mlabel-58411 + lexical-r-58355))) + (lexical-id-var-name-57255 + lexical-mid-58410 + '(()))))) + (if (memv lexical-t-58370 + '(alias-form)) + (call-with-values + (lambda () + (lexical-parse-alias-57335 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369)) + (lambda (lexical-new-id-58416 + lexical-old-id-58417) + ((lambda (lexical-new-id-58418) + (begin + (lexical-extend-ribcage!-57231 + lexical-ribcage-58339 + lexical-new-id-58418 + (lexical-id-var-name-loc-57254 + lexical-old-id-58417 + lexical-w-58368)) + (lexical-parse-58353 + (cdr lexical-body-58354) + lexical-r-58355 + lexical-mr-58356 + (cons lexical-new-id-58418 + lexical-ids-58357) + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f))) + (lexical-wrap-57264 + lexical-new-id-58416 + lexical-w-58368)))) + (if (memv lexical-t-58370 + '(begin-form)) + (lexical-parse-58353 + ((letrec ((lexical-f-58419 + (lambda (lexical-forms-58420) + (if (null? lexical-forms-58420) + (cdr lexical-body-58354) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (car lexical-forms-58420) + lexical-w-58368) + lexical-meta?-58364) + (lexical-f-58419 + (cdr lexical-forms-58420))))))) + lexical-f-58419) + (lexical-parse-begin-57336 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369 + '#t)) + lexical-r-58355 + lexical-mr-58356 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f) + (if (memv lexical-t-58370 + '(eval-when-form)) + (call-with-values + (lambda () + (lexical-parse-eval-when-57334 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369)) + (lambda (lexical-when-list-58421 + lexical-forms-58422) + (lexical-parse-58353 + (if (memq 'eval + lexical-when-list-58421) + ((letrec ((lexical-f-58423 + (lambda (lexical-forms-58424) + (if (null? lexical-forms-58424) + (cdr lexical-body-58354) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (car lexical-forms-58424) + lexical-w-58368) + lexical-meta?-58364) + (lexical-f-58423 + (cdr lexical-forms-58424))))))) + lexical-f-58423) + lexical-forms-58422) + (cdr lexical-body-58354)) + lexical-r-58355 + lexical-mr-58356 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f))) + (if (memv lexical-t-58370 + '(meta-form)) + (lexical-parse-58353 + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (lexical-parse-meta-57333 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369) + lexical-w-58368) + '#t) + (cdr lexical-body-58354)) + lexical-r-58355 + lexical-mr-58356 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#t) + (if (memv lexical-t-58370 + '(local-syntax-form)) + (call-with-values + (lambda () + (lexical-chi-local-syntax-57338 + lexical-value-58366 + lexical-e-58367 + lexical-r-58355 + lexical-mr-58356 + lexical-w-58368 + lexical-ae-58369)) + (lambda (lexical-forms-58425 + lexical-r-58426 + lexical-mr-58427 + lexical-w-58428 + lexical-ae-58429) + (lexical-parse-58353 + ((letrec ((lexical-f-58430 + (lambda (lexical-forms-58431) + (if (null? lexical-forms-58431) + (cdr lexical-body-58354) + (cons (lexical-make-frob-57297 + (lexical-wrap-57264 + (car lexical-forms-58431) + lexical-w-58428) + lexical-meta?-58364) + (lexical-f-58430 + (cdr lexical-forms-58431))))))) + lexical-f-58430) + lexical-forms-58425) + lexical-r-58426 + lexical-mr-58427 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360 + '#f))) + (begin + (if lexical-meta-seen?-58361 + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369) + '"invalid meta definition") + (void)) + ((letrec ((lexical-f-58432 + (lambda (lexical-body-58433) + (if ((lambda (lexical-t-58434) + (if lexical-t-58434 + lexical-t-58434 + (not (lexical-frob-meta?-57300 + (car lexical-body-58433))))) + (null? lexical-body-58433)) + (lexical-return-58345 + lexical-r-58355 + lexical-mr-58356 + lexical-body-58433 + lexical-ids-58357 + lexical-vars-58358 + lexical-vals-58359 + lexical-inits-58360) + (begin + (lexical-top-level-eval-hook-56953 + (lexical-chi-meta-frob-57317 + (car lexical-body-58433) + lexical-mr-58356)) + (lexical-f-58432 + (cdr lexical-body-58433))))))) + lexical-f-58432) + (cons (lexical-make-frob-57297 + (lexical-source-wrap-57265 + lexical-e-58367 + lexical-w-58368 + lexical-ae-58369) + lexical-meta?-58364) + (cdr lexical-body-58354)))))))))))))) + lexical-type-58365)))))) + (lexical-frob-meta?-57300 + lexical-fr-58362))) + (lexical-frob-e-57299 lexical-fr-58362))) + (car lexical-body-58354)))))) + lexical-parse-58353) + lexical-body-58341 + lexical-r-58342 + lexical-mr-58343 + '() + '() + '() + '() + '#f)))) + (lexical-import-mark-delta-57326 + (lambda (lexical-mid-58435 lexical-iface-58436) + (lexical-diff-marks-57247 + (lexical-id-marks-57133 lexical-mid-58435) + (lexical-interface-marks-57274 + lexical-iface-58436)))) + (lexical-lookup-import-label-57327 + (lambda (lexical-id-58437) + ((lambda (lexical-label-58438) + (begin + (if (not lexical-label-58438) + (syntax-error + lexical-id-58437 + '"exported identifier not visible") + (void)) + lexical-label-58438)) + (lexical-id-var-name-loc-57254 + lexical-id-58437 + '(()))))) + (lexical-do-import!-57328 + (lambda (lexical-import-iface-58439 + lexical-ribcage-58440) + ((lambda (lexical-ie-58441) + (if (<= (vector-length lexical-ie-58441) '20) + ((lambda (lexical-new-marks-58442) + (lexical-vfor-each-57309 + (lambda (lexical-id-58443) + (lexical-import-extend-ribcage!-57232 + lexical-ribcage-58440 + lexical-new-marks-58442 + lexical-id-58443 + (lexical-lookup-import-label-57327 + lexical-id-58443))) + lexical-ie-58441)) + (lexical-import-interface-new-marks-57203 + lexical-import-iface-58439)) + (lexical-extend-ribcage-subst!-57235 + lexical-ribcage-58440 + lexical-import-iface-58439))) + (lexical-interface-exports-57275 + (lexical-import-interface-interface-57202 + lexical-import-iface-58439))))) + (lexical-parse-module-57329 + (lambda (lexical-e-58444 + lexical-w-58445 + lexical-ae-58446 + lexical-*w-58447) + (letrec* + ((lexical-listify-58448 + (lambda (lexical-exports-58449) + (if (null? lexical-exports-58449) + '() + (cons ((lambda (lexical-tmp-58450) + ((lambda (lexical-tmp-58451) + (if lexical-tmp-58451 + (apply (lambda (lexical-ex-58452) + (lexical-listify-58448 + lexical-ex-58452)) + lexical-tmp-58451) + ((lambda (lexical-x-58454) + (if (lexical-id?-57127 lexical-x-58454) + (lexical-wrap-57264 + lexical-x-58454 + lexical-*w-58447) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58444 + lexical-w-58445 + lexical-ae-58446) + '"invalid exports list in"))) + lexical-tmp-58450))) + ($syntax-dispatch lexical-tmp-58450 'each-any))) + (car lexical-exports-58449)) + (lexical-listify-58448 + (cdr lexical-exports-58449))))))) + ((lambda (lexical-tmp-58455) + ((lambda (lexical-tmp-58456) + (if (if lexical-tmp-58456 + (apply (lambda (lexical-_-58457 + lexical-orig-58458 + lexical-mid-58459 + lexical-ex-58460 + lexical-form-58461) + (lexical-id?-57127 lexical-mid-58459)) + lexical-tmp-58456) + '#f) + (apply (lambda (lexical-_-58462 + lexical-orig-58463 + lexical-mid-58464 + lexical-ex-58465 + lexical-form-58466) + (values + lexical-orig-58463 + (lexical-wrap-57264 + lexical-mid-58464 + lexical-w-58445) + (lexical-listify-58448 lexical-ex-58465) + (map (lambda (lexical-x-58468) + (lexical-wrap-57264 + lexical-x-58468 + lexical-*w-58447)) + lexical-form-58466))) + lexical-tmp-58456) + ((lambda (lexical-_-58470) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58444 + lexical-w-58445 + lexical-ae-58446))) + lexical-tmp-58455))) + ($syntax-dispatch + lexical-tmp-58455 + '(any any any each-any . each-any)))) + lexical-e-58444)))) + (lexical-parse-import-57330 + (lambda (lexical-e-58471 + lexical-w-58472 + lexical-ae-58473) + ((lambda (lexical-tmp-58474) + ((lambda (lexical-tmp-58475) + (if (if lexical-tmp-58475 + (apply (lambda (lexical-_-58476 + lexical-orig-58477 + lexical-mid-58478) + (lexical-id?-57127 lexical-mid-58478)) + lexical-tmp-58475) + '#f) + (apply (lambda (lexical-_-58479 + lexical-orig-58480 + lexical-mid-58481) + (values + lexical-orig-58480 + '#t + (lexical-wrap-57264 + lexical-mid-58481 + lexical-w-58472))) + lexical-tmp-58475) + ((lambda (lexical-tmp-58482) + (if (if lexical-tmp-58482 + (apply (lambda (lexical-_-58483 + lexical-orig-58484 + lexical-mid-58485) + (lexical-id?-57127 lexical-mid-58485)) + lexical-tmp-58482) + '#f) + (apply (lambda (lexical-_-58486 + lexical-orig-58487 + lexical-mid-58488) + (values + lexical-orig-58487 + '#f + (lexical-wrap-57264 + lexical-mid-58488 + lexical-w-58472))) + lexical-tmp-58482) + ((lambda (lexical-_-58489) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58471 + lexical-w-58472 + lexical-ae-58473))) + lexical-tmp-58474))) + ($syntax-dispatch + lexical-tmp-58474 + '(any any #(atom #f) any))))) + ($syntax-dispatch + lexical-tmp-58474 + '(any any #(atom #t) any)))) + lexical-e-58471))) + (lexical-parse-define-57331 + (lambda (lexical-e-58490 + lexical-w-58491 + lexical-ae-58492) + ((lambda (lexical-tmp-58493) + ((lambda (lexical-tmp-58494) + (if (if lexical-tmp-58494 + (apply (lambda (lexical-_-58495 + lexical-name-58496 + lexical-val-58497) + (lexical-id?-57127 lexical-name-58496)) + lexical-tmp-58494) + '#f) + (apply (lambda (lexical-_-58498 + lexical-name-58499 + lexical-val-58500) + (values + lexical-name-58499 + lexical-val-58500 + lexical-w-58491)) + lexical-tmp-58494) + ((lambda (lexical-tmp-58501) + (if (if lexical-tmp-58501 + (apply (lambda (lexical-_-58502 + lexical-name-58503 + lexical-args-58504 + lexical-e1-58505 + lexical-e2-58506) + (if (lexical-id?-57127 lexical-name-58503) + (lexical-valid-bound-ids?-57260 + (lexical-lambda-var-list-57345 + lexical-args-58504)) + '#f)) + lexical-tmp-58501) + '#f) + (apply (lambda (lexical-_-58507 + lexical-name-58508 + lexical-args-58509 + lexical-e1-58510 + lexical-e2-58511) + (values + (lexical-wrap-57264 + lexical-name-58508 + lexical-w-58491) + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ name args e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(e w ae) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (lexical-wrap-57264 + (cons lexical-args-58509 + (cons lexical-e1-58510 + lexical-e2-58511)) + lexical-w-58491)) + '(()))) + lexical-tmp-58501) + ((lambda (lexical-tmp-58513) + (if (if lexical-tmp-58513 + (apply (lambda (lexical-_-58514 + lexical-name-58515) + (lexical-id?-57127 + lexical-name-58515)) + lexical-tmp-58513) + '#f) + (apply (lambda (lexical-_-58516 lexical-name-58517) + (values + (lexical-wrap-57264 + lexical-name-58517 + lexical-w-58491) + '#(syntax-object + (void) + ((top) + #(ribcage + #(_ name) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(e w ae) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + '(()))) + lexical-tmp-58513) + ((lambda (lexical-_-58518) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58490 + lexical-w-58491 + lexical-ae-58492))) + lexical-tmp-58493))) + ($syntax-dispatch lexical-tmp-58493 '(any any))))) + ($syntax-dispatch + lexical-tmp-58493 + '(any (any . any) any . each-any))))) + ($syntax-dispatch + lexical-tmp-58493 + '(any any any)))) + lexical-e-58490))) + (lexical-parse-define-syntax-57332 + (lambda (lexical-e-58519 + lexical-w-58520 + lexical-ae-58521) + ((lambda (lexical-tmp-58522) + ((lambda (lexical-tmp-58523) + (if (if lexical-tmp-58523 + (apply (lambda (lexical-_-58524 + lexical-name-58525 + lexical-id-58526 + lexical-e1-58527 + lexical-e2-58528) + (if (lexical-id?-57127 lexical-name-58525) + (lexical-id?-57127 lexical-id-58526) + '#f)) + lexical-tmp-58523) + '#f) + (apply (lambda (lexical-_-58529 + lexical-name-58530 + lexical-id-58531 + lexical-e1-58532 + lexical-e2-58533) + (values + (lexical-wrap-57264 + lexical-name-58530 + lexical-w-58520) + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ name id e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(e w ae) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (cons (lexical-wrap-57264 + (list lexical-id-58531) + lexical-w-58520) + (lexical-wrap-57264 + (cons lexical-e1-58532 + lexical-e2-58533) + lexical-w-58520))) + '(()))) + lexical-tmp-58523) + ((lambda (lexical-tmp-58535) + (if (if lexical-tmp-58535 + (apply (lambda (lexical-_-58536 + lexical-name-58537 + lexical-val-58538) + (lexical-id?-57127 lexical-name-58537)) + lexical-tmp-58535) + '#f) + (apply (lambda (lexical-_-58539 + lexical-name-58540 + lexical-val-58541) + (values + lexical-name-58540 + lexical-val-58541 + lexical-w-58520)) + lexical-tmp-58535) + ((lambda (lexical-_-58542) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58519 + lexical-w-58520 + lexical-ae-58521))) + lexical-tmp-58522))) + ($syntax-dispatch + lexical-tmp-58522 + '(any any any))))) + ($syntax-dispatch + lexical-tmp-58522 + '(any (any any) any . each-any)))) + lexical-e-58519))) + (lexical-parse-meta-57333 + (lambda (lexical-e-58543 + lexical-w-58544 + lexical-ae-58545) + ((lambda (lexical-tmp-58546) + ((lambda (lexical-tmp-58547) + (if lexical-tmp-58547 + (apply (lambda (lexical-_-58548 lexical-form-58549) + lexical-form-58549) + lexical-tmp-58547) + ((lambda (lexical-_-58550) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58543 + lexical-w-58544 + lexical-ae-58545))) + lexical-tmp-58546))) + ($syntax-dispatch lexical-tmp-58546 '(any . any)))) + lexical-e-58543))) + (lexical-parse-eval-when-57334 + (lambda (lexical-e-58551 + lexical-w-58552 + lexical-ae-58553) + ((lambda (lexical-tmp-58554) + ((lambda (lexical-tmp-58555) + (if lexical-tmp-58555 + (apply (lambda (lexical-_-58556 + lexical-x-58557 + lexical-e1-58558 + lexical-e2-58559) + (values + (lexical-chi-when-list-57266 + lexical-x-58557 + lexical-w-58552) + (cons lexical-e1-58558 lexical-e2-58559))) + lexical-tmp-58555) + ((lambda (lexical-_-58562) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58551 + lexical-w-58552 + lexical-ae-58553))) + lexical-tmp-58554))) + ($syntax-dispatch + lexical-tmp-58554 + '(any each-any any . each-any)))) + lexical-e-58551))) + (lexical-parse-alias-57335 + (lambda (lexical-e-58563 + lexical-w-58564 + lexical-ae-58565) + ((lambda (lexical-tmp-58566) + ((lambda (lexical-tmp-58567) + (if (if lexical-tmp-58567 + (apply (lambda (lexical-_-58568 + lexical-new-id-58569 + lexical-old-id-58570) + (if (lexical-id?-57127 lexical-new-id-58569) + (lexical-id?-57127 lexical-old-id-58570) + '#f)) + lexical-tmp-58567) + '#f) + (apply (lambda (lexical-_-58571 + lexical-new-id-58572 + lexical-old-id-58573) + (values + lexical-new-id-58572 + lexical-old-id-58573)) + lexical-tmp-58567) + ((lambda (lexical-_-58574) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58563 + lexical-w-58564 + lexical-ae-58565))) + lexical-tmp-58566))) + ($syntax-dispatch + lexical-tmp-58566 + '(any any any)))) + lexical-e-58563))) + (lexical-parse-begin-57336 + (lambda (lexical-e-58575 + lexical-w-58576 + lexical-ae-58577 + lexical-empty-okay?-58578) + ((lambda (lexical-tmp-58579) + ((lambda (lexical-tmp-58580) + (if (if lexical-tmp-58580 + (apply (lambda (lexical-_-58581) + lexical-empty-okay?-58578) + lexical-tmp-58580) + '#f) + (apply (lambda (lexical-_-58582) '()) + lexical-tmp-58580) + ((lambda (lexical-tmp-58583) + (if lexical-tmp-58583 + (apply (lambda (lexical-_-58584 + lexical-e1-58585 + lexical-e2-58586) + (cons lexical-e1-58585 lexical-e2-58586)) + lexical-tmp-58583) + ((lambda (lexical-_-58588) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58575 + lexical-w-58576 + lexical-ae-58577))) + lexical-tmp-58579))) + ($syntax-dispatch + lexical-tmp-58579 + '(any any . each-any))))) + ($syntax-dispatch lexical-tmp-58579 '(any)))) + lexical-e-58575))) + (lexical-chi-lambda-clause-57337 + (lambda (lexical-e-58589 + lexical-c-58590 + lexical-r-58591 + lexical-mr-58592 + lexical-w-58593 + lexical-m?-58594) + ((lambda (lexical-tmp-58595) + ((lambda (lexical-tmp-58596) + (if lexical-tmp-58596 + (apply (lambda (lexical-id-58597 + lexical-e1-58598 + lexical-e2-58599) + ((lambda (lexical-ids-58600) + (if (not (lexical-valid-bound-ids?-57260 + lexical-ids-58600)) + (syntax-error + lexical-e-58589 + '"invalid parameter list in") + ((lambda (lexical-labels-58601 + lexical-new-vars-58602) + (values + lexical-new-vars-58602 + (lexical-chi-body-57324 + (cons lexical-e1-58598 lexical-e2-58599) + lexical-e-58589 + (lexical-extend-var-env*-57118 + lexical-labels-58601 + lexical-new-vars-58602 + lexical-r-58591) + lexical-mr-58592 + (lexical-make-binding-wrap-57238 + lexical-ids-58600 + lexical-labels-58601 + lexical-w-58593) + lexical-m?-58594))) + (lexical-gen-labels-57185 lexical-ids-58600) + (map lexical-gen-var-57344 + lexical-ids-58600)))) + lexical-id-58597)) + lexical-tmp-58596) + ((lambda (lexical-tmp-58605) + (if lexical-tmp-58605 + (apply (lambda (lexical-ids-58606 + lexical-e1-58607 + lexical-e2-58608) + ((lambda (lexical-old-ids-58609) + (if (not (lexical-valid-bound-ids?-57260 + lexical-old-ids-58609)) + (syntax-error + lexical-e-58589 + '"invalid parameter list in") + ((lambda (lexical-labels-58610 + lexical-new-vars-58611) + (values + ((letrec ((lexical-f-58612 + (lambda (lexical-ls1-58613 + lexical-ls2-58614) + (if (null? lexical-ls1-58613) + lexical-ls2-58614 + (lexical-f-58612 + (cdr lexical-ls1-58613) + (cons (car lexical-ls1-58613) + lexical-ls2-58614)))))) + lexical-f-58612) + (cdr lexical-new-vars-58611) + (car lexical-new-vars-58611)) + (lexical-chi-body-57324 + (cons lexical-e1-58607 + lexical-e2-58608) + lexical-e-58589 + (lexical-extend-var-env*-57118 + lexical-labels-58610 + lexical-new-vars-58611 + lexical-r-58591) + lexical-mr-58592 + (lexical-make-binding-wrap-57238 + lexical-old-ids-58609 + lexical-labels-58610 + lexical-w-58593) + lexical-m?-58594))) + (lexical-gen-labels-57185 + lexical-old-ids-58609) + (map lexical-gen-var-57344 + lexical-old-ids-58609)))) + (lexical-lambda-var-list-57345 + lexical-ids-58606))) + lexical-tmp-58605) + ((lambda (lexical-_-58616) + (syntax-error lexical-e-58589)) + lexical-tmp-58595))) + ($syntax-dispatch + lexical-tmp-58595 + '(any any . each-any))))) + ($syntax-dispatch + lexical-tmp-58595 + '(each-any any . each-any)))) + lexical-c-58590))) + (lexical-chi-local-syntax-57338 + (lambda (lexical-rec?-58617 + lexical-e-58618 + lexical-r-58619 + lexical-mr-58620 + lexical-w-58621 + lexical-ae-58622) + ((lambda (lexical-tmp-58623) + ((lambda (lexical-tmp-58624) + (if lexical-tmp-58624 + (apply (lambda (lexical-_-58625 + lexical-id-58626 + lexical-val-58627 + lexical-e1-58628 + lexical-e2-58629) + ((lambda (lexical-ids-58630) + (if (not (lexical-valid-bound-ids?-57260 + lexical-ids-58630)) + (lexical-invalid-ids-error-57262 + (map (lambda (lexical-x-58631) + (lexical-wrap-57264 + lexical-x-58631 + lexical-w-58621)) + lexical-ids-58630) + (lexical-source-wrap-57265 + lexical-e-58618 + lexical-w-58621 + lexical-ae-58622) + '"keyword") + ((lambda (lexical-labels-58632) + ((lambda (lexical-new-w-58633) + ((lambda (lexical-b*-58634) + (values + (cons lexical-e1-58628 + lexical-e2-58629) + (lexical-extend-env*-57117 + lexical-labels-58632 + lexical-b*-58634 + lexical-r-58619) + (lexical-extend-env*-57117 + lexical-labels-58632 + lexical-b*-58634 + lexical-mr-58620) + lexical-new-w-58633 + lexical-ae-58622)) + ((lambda (lexical-w-58636) + (map (lambda (lexical-x-58637) + (lexical-defer-or-eval-transformer-57124 + lexical-local-eval-hook-56954 + (lexical-chi-57319 + lexical-x-58637 + lexical-mr-58620 + lexical-mr-58620 + lexical-w-58636 + '#t))) + lexical-val-58627)) + (if lexical-rec?-58617 + lexical-new-w-58633 + lexical-w-58621)))) + (lexical-make-binding-wrap-57238 + lexical-ids-58630 + lexical-labels-58632 + lexical-w-58621))) + (lexical-gen-labels-57185 + lexical-ids-58630)))) + lexical-id-58626)) + lexical-tmp-58624) + ((lambda (lexical-_-58640) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58618 + lexical-w-58621 + lexical-ae-58622))) + lexical-tmp-58623))) + ($syntax-dispatch + lexical-tmp-58623 + '(any #(each (any any)) any . each-any)))) + lexical-e-58618))) + (lexical-chi-void-57339 + (lambda () (cons 'void '()))) + (lexical-ellipsis?-57340 + (lambda (lexical-x-58641) + (if (lexical-nonsymbol-id?-57126 lexical-x-58641) + (lexical-literal-id=?-57257 + lexical-x-58641 + '#(syntax-object + ... + ((top) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + '#f))) + (lexical-strip-annotation-57341 + (lambda (lexical-x-58642) + (if (pair? lexical-x-58642) + (cons (lexical-strip-annotation-57341 + (car lexical-x-58642)) + (lexical-strip-annotation-57341 + (cdr lexical-x-58642))) + (if (lexical-annotation?-56952 lexical-x-58642) + (annotation-stripped lexical-x-58642) + lexical-x-58642)))) + (lexical-strip*-57342 + (lambda (lexical-x-58643 + lexical-w-58644 + lexical-fn-58645) + (if (memq 'top + (lexical-wrap-marks-57137 lexical-w-58644)) + (lexical-fn-58645 lexical-x-58643) + ((letrec ((lexical-f-58646 + (lambda (lexical-x-58647) + (if (lexical-syntax-object?-56884 lexical-x-58647) + (lexical-strip*-57342 + (lexical-syntax-object-expression-56885 + lexical-x-58647) + (lexical-syntax-object-wrap-56886 + lexical-x-58647) + lexical-fn-58645) + (if (pair? lexical-x-58647) + ((lambda (lexical-a-58648 lexical-d-58649) + (if (if (eq? lexical-a-58648 + (car lexical-x-58647)) + (eq? lexical-d-58649 + (cdr lexical-x-58647)) + '#f) + lexical-x-58647 + (cons lexical-a-58648 lexical-d-58649))) + (lexical-f-58646 (car lexical-x-58647)) + (lexical-f-58646 (cdr lexical-x-58647))) + (if (vector? lexical-x-58647) + ((lambda (lexical-old-58650) + ((lambda (lexical-new-58651) + (if (andmap + eq? + lexical-old-58650 + lexical-new-58651) + lexical-x-58647 + (list->vector lexical-new-58651))) + (map lexical-f-58646 lexical-old-58650))) + (vector->list lexical-x-58647)) + lexical-x-58647)))))) + lexical-f-58646) + lexical-x-58643)))) + (lexical-strip-57343 + (lambda (lexical-x-58652 lexical-w-58653) + (lexical-strip*-57342 + lexical-x-58652 + lexical-w-58653 + (lambda (lexical-x-58654) + (if ((lambda (lexical-t-58655) + (if lexical-t-58655 + lexical-t-58655 + (if (pair? lexical-x-58654) + (lexical-annotation?-56952 (car lexical-x-58654)) + '#f))) + (lexical-annotation?-56952 lexical-x-58654)) + (lexical-strip-annotation-57341 lexical-x-58654) + lexical-x-58654))))) + (lexical-gen-var-57344 + (lambda (lexical-id-58656) + ((lambda (lexical-id-58657) + (if (lexical-annotation?-56952 lexical-id-58657) + (gensym (annotation-expression lexical-id-58657)) + (gensym lexical-id-58657))) + (if (lexical-syntax-object?-56884 lexical-id-58656) + (lexical-syntax-object-expression-56885 + lexical-id-58656) + lexical-id-58656)))) + (lexical-lambda-var-list-57345 + (lambda (lexical-vars-58658) + ((letrec ((lexical-lvl-58659 + (lambda (lexical-vars-58660 + lexical-ls-58661 + lexical-w-58662) + (if (pair? lexical-vars-58660) + (lexical-lvl-58659 + (cdr lexical-vars-58660) + (cons (lexical-wrap-57264 + (car lexical-vars-58660) + lexical-w-58662) + lexical-ls-58661) + lexical-w-58662) + (if (lexical-id?-57127 lexical-vars-58660) + (cons (lexical-wrap-57264 + lexical-vars-58660 + lexical-w-58662) + lexical-ls-58661) + (if (null? lexical-vars-58660) + lexical-ls-58661 + (if (lexical-syntax-object?-56884 + lexical-vars-58660) + (lexical-lvl-58659 + (lexical-syntax-object-expression-56885 + lexical-vars-58660) + lexical-ls-58661 + (lexical-join-wraps-57243 + lexical-w-58662 + (lexical-syntax-object-wrap-56886 + lexical-vars-58660))) + (if (lexical-annotation?-56952 + lexical-vars-58660) + (lexical-lvl-58659 + (annotation-expression lexical-vars-58660) + lexical-ls-58661 + lexical-w-58662) + (cons lexical-vars-58660 + lexical-ls-58661))))))))) + lexical-lvl-58659) + lexical-vars-58658 + '() + '(()))))) (begin (set! $sc-put-cte - (lambda (id1199 b1198 top-token1197) - (letrec ((sc-put-module1200 (lambda (exports1216 token1215 - new-marks1214) - (vfor-each488 - (lambda (id1217) - (store-import-binding416 - id1217 - token1215 - new-marks1214)) - exports1216))) - (put-cte1201 (lambda (id1212 binding1211 token1210) - ((lambda (sym1213) - (begin - (store-import-binding416 - id1212 - token1210 - '()) - (put-global-definition-hook139 - sym1213 - (if (if (eq? (binding-type281 - binding1211) - 'global) - (eq? (binding-value282 - binding1211) - sym1213) - '#f) - '#f - binding1211)))) - (if (symbol? id1212) - id1212 - (id-var-name434 id1212 '(()))))))) - ((lambda (binding1202) - ((lambda (t1203) - (if (memv t1203 '($module)) - (begin - ((lambda (iface1204) - (sc-put-module1200 - (interface-exports454 iface1204) - (interface-token455 iface1204) - '())) - (binding-value282 binding1202)) - (put-cte1201 id1199 binding1202 top-token1197)) - (if (memv t1203 '(do-alias)) - (store-import-binding416 - id1199 - top-token1197 - '()) - (if (memv t1203 '(do-import)) - ((lambda (token1205) - ((lambda (b1206) - ((lambda (t1207) - (if (memv t1207 '($module)) - ((lambda (iface1208) - ((lambda (exports1209) - ((lambda () - (begin - (if (not (eq? (interface-token455 - iface1208) - token1205)) - (syntax-error - id1199 - '"import mismatch for module") - (void)) - (sc-put-module1200 - (interface-exports454 - iface1208) - top-token1197 - (import-mark-delta505 - id1199 - iface1208)))))) - (interface-exports454 - iface1208))) - (binding-value282 b1206)) - (syntax-error - id1199 - '"unknown module"))) - (binding-type281 b1206))) - (lookup301 - (id-var-name434 id1199 '(())) - '()))) - (binding-value282 b1198)) - (put-cte1201 - id1199 - binding1202 - top-token1197))))) - (binding-type281 binding1202))) - (make-transformer-binding302 b1198))))) - (global-extend304 'local-syntax 'letrec-syntax '#t) - (global-extend304 'local-syntax 'let-syntax '#f) - (global-extend304 + (lambda (lexical-id-58663 + lexical-b-58664 + lexical-top-token-58665) + (letrec* + ((lexical-sc-put-module-58666 + (lambda (lexical-exports-58668 + lexical-token-58669 + lexical-new-marks-58670) + (lexical-vfor-each-57309 + (lambda (lexical-id-58671) + (lexical-store-import-binding-57237 + lexical-id-58671 + lexical-token-58669 + lexical-new-marks-58670)) + lexical-exports-58668))) + (lexical-put-cte-58667 + (lambda (lexical-id-58672 + lexical-binding-58673 + lexical-token-58674) + ((lambda (lexical-sym-58675) + (begin + (lexical-store-import-binding-57237 + lexical-id-58672 + lexical-token-58674 + '()) + (lexical-put-global-definition-hook-56959 + lexical-sym-58675 + (if (if (eq? (lexical-binding-type-57102 + lexical-binding-58673) + 'global) + (eq? (lexical-binding-value-57103 + lexical-binding-58673) + lexical-sym-58675) + '#f) + '#f + lexical-binding-58673)))) + (if (symbol? lexical-id-58672) + lexical-id-58672 + (lexical-id-var-name-57255 + lexical-id-58672 + '(()))))))) + ((lambda (lexical-binding-58676) + ((lambda (lexical-t-58677) + (if (memv lexical-t-58677 '($module)) + (begin + ((lambda (lexical-iface-58678) + (lexical-sc-put-module-58666 + (lexical-interface-exports-57275 + lexical-iface-58678) + (lexical-interface-token-57276 + lexical-iface-58678) + '())) + (lexical-binding-value-57103 + lexical-binding-58676)) + (lexical-put-cte-58667 + lexical-id-58663 + lexical-binding-58676 + lexical-top-token-58665)) + (if (memv lexical-t-58677 '(do-alias)) + (lexical-store-import-binding-57237 + lexical-id-58663 + lexical-top-token-58665 + '()) + (if (memv lexical-t-58677 '(do-import)) + ((lambda (lexical-token-58679) + ((lambda (lexical-b-58680) + ((lambda (lexical-t-58681) + (if (memv lexical-t-58681 '($module)) + ((lambda (lexical-iface-58682) + ((lambda (lexical-exports-58683) + ((lambda () + (begin + (if (not (eq? (lexical-interface-token-57276 + lexical-iface-58682) + lexical-token-58679)) + (syntax-error + lexical-id-58663 + '"import mismatch for module") + (void)) + (lexical-sc-put-module-58666 + (lexical-interface-exports-57275 + lexical-iface-58682) + lexical-top-token-58665 + (lexical-import-mark-delta-57326 + lexical-id-58663 + lexical-iface-58682)))))) + (lexical-interface-exports-57275 + lexical-iface-58682))) + (lexical-binding-value-57103 + lexical-b-58680)) + (syntax-error + lexical-id-58663 + '"unknown module"))) + (lexical-binding-type-57102 lexical-b-58680))) + (lexical-lookup-57122 + (lexical-id-var-name-57255 + lexical-id-58663 + '(())) + '()))) + (lexical-binding-value-57103 lexical-b-58664)) + (lexical-put-cte-58667 + lexical-id-58663 + lexical-binding-58676 + lexical-top-token-58665))))) + (lexical-binding-type-57102 + lexical-binding-58676))) + (lexical-make-transformer-binding-57123 + lexical-b-58664))))) + (lexical-global-extend-57125 + 'local-syntax + 'letrec-syntax + '#t) + (lexical-global-extend-57125 + 'local-syntax + 'let-syntax + '#f) + (lexical-global-extend-57125 'core 'fluid-let-syntax - (lambda (e1171 r1170 mr1169 w1168 ae1167 m?1166) - ((lambda (tmp1172) - ((lambda (tmp1173) - (if (if tmp1173 - (apply - (lambda (_1178 var1177 val1176 e11175 e21174) - (valid-bound-ids?439 var1177)) - tmp1173) - '#f) - (apply - (lambda (_1184 var1183 val1182 e11181 e21180) - ((lambda (names1185) - (begin - (for-each - (lambda (id1192 n1191) - ((lambda (t1193) - (if (memv t1193 '(displaced-lexical)) - (displaced-lexical-error299 - (wrap443 id1192 w1168)) - (void))) - (binding-type281 - (lookup301 n1191 r1170)))) - var1183 - names1185) - ((lambda (b*1186) - (chi-body503 (cons e11181 e21180) - (source-wrap444 e1171 w1168 ae1167) - (extend-env*296 names1185 b*1186 r1170) - (extend-env*296 names1185 b*1186 mr1169) - w1168 m?1166)) - (map (lambda (x1189) - (defer-or-eval-transformer303 - local-eval-hook134 - (chi498 x1189 mr1169 mr1169 w1168 - '#t))) - val1182)))) - (map (lambda (x1195) - (id-var-name434 x1195 w1168)) - var1183))) - tmp1173) - ((lambda (_1196) - (syntax-error (source-wrap444 e1171 w1168 ae1167))) - tmp1172))) - ($syntax-dispatch - tmp1172 - '(any #(each (any any)) any . each-any)))) - e1171))) - (global-extend304 + (lambda (lexical-e-58684 + lexical-r-58685 + lexical-mr-58686 + lexical-w-58687 + lexical-ae-58688 + lexical-m?-58689) + ((lambda (lexical-tmp-58690) + ((lambda (lexical-tmp-58691) + (if (if lexical-tmp-58691 + (apply (lambda (lexical-_-58692 + lexical-var-58693 + lexical-val-58694 + lexical-e1-58695 + lexical-e2-58696) + (lexical-valid-bound-ids?-57260 + lexical-var-58693)) + lexical-tmp-58691) + '#f) + (apply (lambda (lexical-_-58698 + lexical-var-58699 + lexical-val-58700 + lexical-e1-58701 + lexical-e2-58702) + ((lambda (lexical-names-58703) + (begin + (for-each + (lambda (lexical-id-58704 lexical-n-58705) + ((lambda (lexical-t-58706) + (if (memv lexical-t-58706 + '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + (lexical-wrap-57264 + lexical-id-58704 + lexical-w-58687)) + (void))) + (lexical-binding-type-57102 + (lexical-lookup-57122 + lexical-n-58705 + lexical-r-58685)))) + lexical-var-58699 + lexical-names-58703) + ((lambda (lexical-b*-58708) + (lexical-chi-body-57324 + (cons lexical-e1-58701 lexical-e2-58702) + (lexical-source-wrap-57265 + lexical-e-58684 + lexical-w-58687 + lexical-ae-58688) + (lexical-extend-env*-57117 + lexical-names-58703 + lexical-b*-58708 + lexical-r-58685) + (lexical-extend-env*-57117 + lexical-names-58703 + lexical-b*-58708 + lexical-mr-58686) + lexical-w-58687 + lexical-m?-58689)) + (map (lambda (lexical-x-58710) + (lexical-defer-or-eval-transformer-57124 + lexical-local-eval-hook-56954 + (lexical-chi-57319 + lexical-x-58710 + lexical-mr-58686 + lexical-mr-58686 + lexical-w-58687 + '#t))) + lexical-val-58700)))) + (map (lambda (lexical-x-58712) + (lexical-id-var-name-57255 + lexical-x-58712 + lexical-w-58687)) + lexical-var-58699))) + lexical-tmp-58691) + ((lambda (lexical-_-58714) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58684 + lexical-w-58687 + lexical-ae-58688))) + lexical-tmp-58690))) + ($syntax-dispatch + lexical-tmp-58690 + '(any #(each (any any)) any . each-any)))) + lexical-e-58684))) + (lexical-global-extend-57125 'core 'quote - (lambda (e1160 r1159 mr1158 w1157 ae1156 m?1155) - ((lambda (tmp1161) - ((lambda (tmp1162) - (if tmp1162 - (apply - (lambda (_1164 e1163) - (list 'quote (strip522 e1163 w1157))) - tmp1162) - ((lambda (_1165) - (syntax-error (source-wrap444 e1160 w1157 ae1156))) - tmp1161))) - ($syntax-dispatch tmp1161 '(any any)))) - e1160))) - (global-extend304 + (lambda (lexical-e-58715 + lexical-r-58716 + lexical-mr-58717 + lexical-w-58718 + lexical-ae-58719 + lexical-m?-58720) + ((lambda (lexical-tmp-58721) + ((lambda (lexical-tmp-58722) + (if lexical-tmp-58722 + (apply (lambda (lexical-_-58723 lexical-e-58724) + (list 'quote + (lexical-strip-57343 + lexical-e-58724 + lexical-w-58718))) + lexical-tmp-58722) + ((lambda (lexical-_-58725) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58715 + lexical-w-58718 + lexical-ae-58719))) + lexical-tmp-58721))) + ($syntax-dispatch lexical-tmp-58721 '(any any)))) + lexical-e-58715))) + (lexical-global-extend-57125 'core 'syntax ((lambda () - (letrec ((gen-syntax1039 (lambda (src1100 e1099 r1098 - maps1097 ellipsis?1096 - vec?1095) - (if (id?306 e1099) - ((lambda (label1101) - ((lambda (b1102) - (if (eq? (binding-type281 - b1102) - 'syntax) - (call-with-values - (lambda () - ((lambda (var.lev1105) - (gen-ref1040 - src1100 - (car var.lev1105) - (cdr var.lev1105) - maps1097)) - (binding-value282 - b1102))) - (lambda (var1104 - maps1103) - (values - (list - 'ref - var1104) - maps1103))) - (if (ellipsis?1096 - e1099) - (syntax-error - src1100 - '"misplaced ellipsis in syntax form") - (values - (list - 'quote - e1099) - maps1097)))) - (lookup301 - label1101 - r1098))) - (id-var-name434 e1099 '(()))) - ((lambda (tmp1106) - ((lambda (tmp1107) - (if (if tmp1107 - (apply - (lambda (dots1109 - e1108) - (ellipsis?1096 - dots1109)) - tmp1107) - '#f) - (apply - (lambda (dots1111 - e1110) - (if vec?1095 - (syntax-error - src1100 - '"misplaced ellipsis in syntax template") - (gen-syntax1039 - src1100 - e1110 r1098 - maps1097 - (lambda (x1112) - '#f) - '#f))) - tmp1107) - ((lambda (tmp1113) - (if (if tmp1113 - (apply - (lambda (x1116 - dots1115 - y1114) - (ellipsis?1096 - dots1115)) - tmp1113) - '#f) - (apply - (lambda (x1119 - dots1118 - y1117) - ((letrec ((f1120 (lambda (y1122 - k1121) - ((lambda (tmp1123) - ((lambda (tmp1124) - (if (if tmp1124 - (apply - (lambda (dots1126 - y1125) - (ellipsis?1096 - dots1126)) - tmp1124) - '#f) - (apply - (lambda (dots1128 - y1127) - (f1120 - y1127 - (lambda (maps1129) - (call-with-values - (lambda () - (k1121 - (cons - '() - maps1129))) - (lambda (x1131 - maps1130) - (if (null? - (car maps1130)) - (syntax-error - src1100 - '"extra ellipsis in syntax form") - (values - (gen-mappend1042 - x1131 - (car maps1130)) - (cdr maps1130)))))))) - tmp1124) - ((lambda (_1132) - (call-with-values - (lambda () - (gen-syntax1039 - src1100 - y1122 - r1098 - maps1097 - ellipsis?1096 - vec?1095)) - (lambda (y1134 - maps1133) - (call-with-values - (lambda () - (k1121 - maps1133)) - (lambda (x1136 - maps1135) - (values - (gen-append1041 - x1136 - y1134) - maps1135)))))) - tmp1123))) - ($syntax-dispatch - tmp1123 - '(any . - any)))) - y1122)))) - f1120) - y1117 - (lambda (maps1137) + (letrec* + ((lexical-gen-syntax-58726 + (lambda (lexical-src-58734 + lexical-e-58735 + lexical-r-58736 + lexical-maps-58737 + lexical-ellipsis?-58738 + lexical-vec?-58739) + (if (lexical-id?-57127 lexical-e-58735) + ((lambda (lexical-label-58740) + ((lambda (lexical-b-58741) + (if (eq? (lexical-binding-type-57102 + lexical-b-58741) + 'syntax) + (call-with-values + (lambda () + ((lambda (lexical-var.lev-58742) + (lexical-gen-ref-58727 + lexical-src-58734 + (car lexical-var.lev-58742) + (cdr lexical-var.lev-58742) + lexical-maps-58737)) + (lexical-binding-value-57103 + lexical-b-58741))) + (lambda (lexical-var-58743 lexical-maps-58744) + (values + (list 'ref lexical-var-58743) + lexical-maps-58744))) + (if (lexical-ellipsis?-58738 lexical-e-58735) + (syntax-error + lexical-src-58734 + '"misplaced ellipsis in syntax form") + (values + (list 'quote lexical-e-58735) + lexical-maps-58737)))) + (lexical-lookup-57122 + lexical-label-58740 + lexical-r-58736))) + (lexical-id-var-name-57255 lexical-e-58735 '(()))) + ((lambda (lexical-tmp-58745) + ((lambda (lexical-tmp-58746) + (if (if lexical-tmp-58746 + (apply (lambda (lexical-dots-58747 + lexical-e-58748) + (lexical-ellipsis?-58738 + lexical-dots-58747)) + lexical-tmp-58746) + '#f) + (apply (lambda (lexical-dots-58749 + lexical-e-58750) + (if lexical-vec?-58739 + (syntax-error + lexical-src-58734 + '"misplaced ellipsis in syntax template") + (lexical-gen-syntax-58726 + lexical-src-58734 + lexical-e-58750 + lexical-r-58736 + lexical-maps-58737 + (lambda (lexical-x-58751) '#f) + '#f))) + lexical-tmp-58746) + ((lambda (lexical-tmp-58752) + (if (if lexical-tmp-58752 + (apply (lambda (lexical-x-58753 + lexical-dots-58754 + lexical-y-58755) + (lexical-ellipsis?-58738 + lexical-dots-58754)) + lexical-tmp-58752) + '#f) + (apply (lambda (lexical-x-58756 + lexical-dots-58757 + lexical-y-58758) + ((letrec ((lexical-f-58759 + (lambda (lexical-y-58760 + lexical-k-58761) + ((lambda (lexical-tmp-58762) + ((lambda (lexical-tmp-58763) + (if (if lexical-tmp-58763 + (apply (lambda (lexical-dots-58764 + lexical-y-58765) + (lexical-ellipsis?-58738 + lexical-dots-58764)) + lexical-tmp-58763) + '#f) + (apply (lambda (lexical-dots-58766 + lexical-y-58767) + (lexical-f-58759 + lexical-y-58767 + (lambda (lexical-maps-58768) + (call-with-values + (lambda () + (lexical-k-58761 + (cons '() + lexical-maps-58768))) + (lambda (lexical-x-58769 + lexical-maps-58770) + (if (null? (car lexical-maps-58770)) + (syntax-error + lexical-src-58734 + '"extra ellipsis in syntax form") + (values + (lexical-gen-mappend-58729 + lexical-x-58769 + (car lexical-maps-58770)) + (cdr lexical-maps-58770)))))))) + lexical-tmp-58763) + ((lambda (lexical-_-58771) (call-with-values (lambda () - (gen-syntax1039 - src1100 - x1119 - r1098 - (cons - '() - maps1137) - ellipsis?1096 - '#f)) - (lambda (x1139 - maps1138) - (if (null? - (car maps1138)) - (syntax-error - src1100 - '"extra ellipsis in syntax form") + (lexical-gen-syntax-58726 + lexical-src-58734 + lexical-y-58760 + lexical-r-58736 + lexical-maps-58737 + lexical-ellipsis?-58738 + lexical-vec?-58739)) + (lambda (lexical-y-58772 + lexical-maps-58773) + (call-with-values + (lambda () + (lexical-k-58761 + lexical-maps-58773)) + (lambda (lexical-x-58774 + lexical-maps-58775) (values - (gen-map1043 - x1139 - (car maps1138)) - (cdr maps1138)))))))) - tmp1113) - ((lambda (tmp1140) - (if tmp1140 - (apply - (lambda (x1142 - y1141) - (call-with-values - (lambda () - (gen-syntax1039 - src1100 - x1142 - r1098 - maps1097 - ellipsis?1096 - '#f)) - (lambda (xnew1144 - maps1143) - (call-with-values - (lambda () - (gen-syntax1039 - src1100 - y1141 - r1098 - maps1143 - ellipsis?1096 - vec?1095)) - (lambda (ynew1146 - maps1145) - (values - (gen-cons1044 - e1099 - x1142 - y1141 - xnew1144 - ynew1146) - maps1145)))))) - tmp1140) - ((lambda (tmp1147) - (if tmp1147 - (apply - (lambda (x11149 - x21148) - ((lambda (ls1150) - (call-with-values - (lambda () - (gen-syntax1039 - src1100 - ls1150 - r1098 - maps1097 - ellipsis?1096 - '#t)) - (lambda (lsnew1152 - maps1151) - (values - (gen-vector1045 - e1099 - ls1150 - lsnew1152) - maps1151)))) - (cons - x11149 - x21148))) - tmp1147) - ((lambda (_1154) - (values - (list - 'quote - e1099) - maps1097)) - tmp1106))) - ($syntax-dispatch - tmp1106 - '#(vector - (any . - each-any)))))) - ($syntax-dispatch - tmp1106 - '(any . - any))))) - ($syntax-dispatch - tmp1106 - '(any any - . - any))))) - ($syntax-dispatch - tmp1106 - '(any any)))) - e1099)))) - (gen-ref1040 (lambda (src1090 var1089 level1088 - maps1087) - (if (= level1088 '0) - (values var1089 maps1087) - (if (null? maps1087) - (syntax-error - src1090 - '"missing ellipsis in syntax form") - (call-with-values - (lambda () - (gen-ref1040 - src1090 - var1089 - (- level1088 '1) - (cdr maps1087))) - (lambda (outer-var1092 - outer-maps1091) - ((lambda (b1093) - (if b1093 - (values - (cdr b1093) - maps1087) - ((lambda (inner-var1094) - (values - inner-var1094 - (cons - (cons - (cons - outer-var1092 - inner-var1094) - (car maps1087)) - outer-maps1091))) - (gen-var523 - 'tmp)))) - (assq - outer-var1092 - (car maps1087))))))))) - (gen-append1041 (lambda (x1086 y1085) - (if (equal? y1085 ''()) - x1086 - (list 'append x1086 y1085)))) - (gen-mappend1042 (lambda (e1084 map-env1083) - (list - 'apply - '(primitive append) - (gen-map1043 - e1084 - map-env1083)))) - (gen-map1043 (lambda (e1076 map-env1075) - ((lambda (formals1078 actuals1077) - (if (eq? (car e1076) 'ref) - (car actuals1077) - (if (andmap - (lambda (x1079) - (if (eq? (car x1079) - 'ref) - (memq - (cadr x1079) - formals1078) - '#f)) - (cdr e1076)) - (cons - 'map - (cons - (list - 'primitive - (car e1076)) - (map ((lambda (r1080) - (lambda (x1081) - (cdr (assq - (cadr - x1081) - r1080)))) - (map cons - formals1078 - actuals1077)) - (cdr e1076)))) - (cons - 'map - (cons - (list - 'lambda - formals1078 - e1076) - actuals1077))))) - (map cdr map-env1075) - (map (lambda (x1082) - (list 'ref (car x1082))) - map-env1075)))) - (gen-cons1044 (lambda (e1071 x1070 y1069 xnew1068 - ynew1067) - ((lambda (t1072) - (if (memv t1072 '(quote)) - (if (eq? (car xnew1068) 'quote) - ((lambda (xnew1074 - ynew1073) - (if (if (eq? xnew1074 - x1070) - (eq? ynew1073 - y1069) - '#f) - (list 'quote e1071) - (list - 'quote - (cons - xnew1074 - ynew1073)))) - (cadr xnew1068) - (cadr ynew1067)) - (if (eq? (cadr ynew1067) - '()) - (list 'list xnew1068) - (list - 'cons - xnew1068 - ynew1067))) - (if (memv t1072 '(list)) - (cons - 'list - (cons - xnew1068 - (cdr ynew1067))) - (list - 'cons - xnew1068 - ynew1067)))) - (car ynew1067)))) - (gen-vector1045 (lambda (e1066 ls1065 lsnew1064) - (if (eq? (car lsnew1064) 'quote) - (if (eq? (cadr lsnew1064) - ls1065) - (list 'quote e1066) - (list - 'quote - (list->vector - (cadr lsnew1064)))) - (if (eq? (car lsnew1064) 'list) - (cons - 'vector - (cdr lsnew1064)) - (list - 'list->vector - lsnew1064))))) - (regen1046 (lambda (x1061) - ((lambda (t1062) - (if (memv t1062 '(ref)) - (cadr x1061) - (if (memv t1062 '(primitive)) - (cadr x1061) - (if (memv t1062 '(quote)) - (list 'quote (cadr x1061)) - (if (memv t1062 '(lambda)) - (list - 'lambda - (cadr x1061) - (regen1046 - (caddr x1061))) - (if (memv - t1062 - '(map)) - ((lambda (ls1063) - (cons - (if (= (length - ls1063) - '2) - 'map - 'map) - ls1063)) - (map regen1046 - (cdr x1061))) - (cons - (car x1061) - (map regen1046 - (cdr x1061))))))))) - (car x1061))))) - (lambda (e1052 r1051 mr1050 w1049 ae1048 m?1047) - ((lambda (e1053) - ((lambda (tmp1054) - ((lambda (tmp1055) - (if tmp1055 - (apply - (lambda (_1057 x1056) - (call-with-values - (lambda () - (gen-syntax1039 e1053 x1056 r1051 '() - ellipsis?519 '#f)) - (lambda (e1059 maps1058) - (regen1046 e1059)))) - tmp1055) - ((lambda (_1060) (syntax-error e1053)) - tmp1054))) - ($syntax-dispatch tmp1054 '(any any)))) - e1053)) - (source-wrap444 e1052 w1049 ae1048))))))) - (global-extend304 + (lexical-gen-append-58728 + lexical-x-58774 + lexical-y-58772) + lexical-maps-58775)))))) + lexical-tmp-58762))) + ($syntax-dispatch + lexical-tmp-58762 + '(any . any)))) + lexical-y-58760)))) + lexical-f-58759) + lexical-y-58758 + (lambda (lexical-maps-58776) + (call-with-values + (lambda () + (lexical-gen-syntax-58726 + lexical-src-58734 + lexical-x-58756 + lexical-r-58736 + (cons '() + lexical-maps-58776) + lexical-ellipsis?-58738 + '#f)) + (lambda (lexical-x-58777 + lexical-maps-58778) + (if (null? (car lexical-maps-58778)) + (syntax-error + lexical-src-58734 + '"extra ellipsis in syntax form") + (values + (lexical-gen-map-58730 + lexical-x-58777 + (car lexical-maps-58778)) + (cdr lexical-maps-58778)))))))) + lexical-tmp-58752) + ((lambda (lexical-tmp-58779) + (if lexical-tmp-58779 + (apply (lambda (lexical-x-58780 + lexical-y-58781) + (call-with-values + (lambda () + (lexical-gen-syntax-58726 + lexical-src-58734 + lexical-x-58780 + lexical-r-58736 + lexical-maps-58737 + lexical-ellipsis?-58738 + '#f)) + (lambda (lexical-xnew-58782 + lexical-maps-58783) + (call-with-values + (lambda () + (lexical-gen-syntax-58726 + lexical-src-58734 + lexical-y-58781 + lexical-r-58736 + lexical-maps-58783 + lexical-ellipsis?-58738 + lexical-vec?-58739)) + (lambda (lexical-ynew-58784 + lexical-maps-58785) + (values + (lexical-gen-cons-58731 + lexical-e-58735 + lexical-x-58780 + lexical-y-58781 + lexical-xnew-58782 + lexical-ynew-58784) + lexical-maps-58785)))))) + lexical-tmp-58779) + ((lambda (lexical-tmp-58786) + (if lexical-tmp-58786 + (apply (lambda (lexical-x1-58787 + lexical-x2-58788) + ((lambda (lexical-ls-58789) + (call-with-values + (lambda () + (lexical-gen-syntax-58726 + lexical-src-58734 + lexical-ls-58789 + lexical-r-58736 + lexical-maps-58737 + lexical-ellipsis?-58738 + '#t)) + (lambda (lexical-lsnew-58790 + lexical-maps-58791) + (values + (lexical-gen-vector-58732 + lexical-e-58735 + lexical-ls-58789 + lexical-lsnew-58790) + lexical-maps-58791)))) + (cons lexical-x1-58787 + lexical-x2-58788))) + lexical-tmp-58786) + ((lambda (lexical-_-58793) + (values + (list 'quote lexical-e-58735) + lexical-maps-58737)) + lexical-tmp-58745))) + ($syntax-dispatch + lexical-tmp-58745 + '#(vector (any . each-any)))))) + ($syntax-dispatch + lexical-tmp-58745 + '(any . any))))) + ($syntax-dispatch + lexical-tmp-58745 + '(any any . any))))) + ($syntax-dispatch lexical-tmp-58745 '(any any)))) + lexical-e-58735)))) + (lexical-gen-ref-58727 + (lambda (lexical-src-58794 + lexical-var-58795 + lexical-level-58796 + lexical-maps-58797) + (if (= lexical-level-58796 '0) + (values lexical-var-58795 lexical-maps-58797) + (if (null? lexical-maps-58797) + (syntax-error + lexical-src-58794 + '"missing ellipsis in syntax form") + (call-with-values + (lambda () + (lexical-gen-ref-58727 + lexical-src-58794 + lexical-var-58795 + (- lexical-level-58796 '1) + (cdr lexical-maps-58797))) + (lambda (lexical-outer-var-58798 + lexical-outer-maps-58799) + ((lambda (lexical-b-58800) + (if lexical-b-58800 + (values + (cdr lexical-b-58800) + lexical-maps-58797) + ((lambda (lexical-inner-var-58801) + (values + lexical-inner-var-58801 + (cons (cons (cons lexical-outer-var-58798 + lexical-inner-var-58801) + (car lexical-maps-58797)) + lexical-outer-maps-58799))) + (lexical-gen-var-57344 'tmp)))) + (assq lexical-outer-var-58798 + (car lexical-maps-58797))))))))) + (lexical-gen-append-58728 + (lambda (lexical-x-58802 lexical-y-58803) + (if (equal? lexical-y-58803 ''()) + lexical-x-58802 + (list 'append lexical-x-58802 lexical-y-58803)))) + (lexical-gen-mappend-58729 + (lambda (lexical-e-58804 lexical-map-env-58805) + (list 'apply + '(primitive append) + (lexical-gen-map-58730 + lexical-e-58804 + lexical-map-env-58805)))) + (lexical-gen-map-58730 + (lambda (lexical-e-58806 lexical-map-env-58807) + ((lambda (lexical-formals-58808 lexical-actuals-58809) + (if (eq? (car lexical-e-58806) 'ref) + (car lexical-actuals-58809) + (if (andmap + (lambda (lexical-x-58810) + (if (eq? (car lexical-x-58810) 'ref) + (memq (cadr lexical-x-58810) + lexical-formals-58808) + '#f)) + (cdr lexical-e-58806)) + (cons 'map + (cons (list 'primitive (car lexical-e-58806)) + (map ((lambda (lexical-r-58811) + (lambda (lexical-x-58812) + (cdr (assq (cadr lexical-x-58812) + lexical-r-58811)))) + (map cons + lexical-formals-58808 + lexical-actuals-58809)) + (cdr lexical-e-58806)))) + (cons 'map + (cons (list 'lambda + lexical-formals-58808 + lexical-e-58806) + lexical-actuals-58809))))) + (map cdr lexical-map-env-58807) + (map (lambda (lexical-x-58813) + (list 'ref (car lexical-x-58813))) + lexical-map-env-58807)))) + (lexical-gen-cons-58731 + (lambda (lexical-e-58814 + lexical-x-58815 + lexical-y-58816 + lexical-xnew-58817 + lexical-ynew-58818) + ((lambda (lexical-t-58819) + (if (memv lexical-t-58819 '(quote)) + (if (eq? (car lexical-xnew-58817) 'quote) + ((lambda (lexical-xnew-58820 lexical-ynew-58821) + (if (if (eq? lexical-xnew-58820 lexical-x-58815) + (eq? lexical-ynew-58821 lexical-y-58816) + '#f) + (list 'quote lexical-e-58814) + (list 'quote + (cons lexical-xnew-58820 + lexical-ynew-58821)))) + (cadr lexical-xnew-58817) + (cadr lexical-ynew-58818)) + (if (eq? (cadr lexical-ynew-58818) '()) + (list 'list lexical-xnew-58817) + (list 'cons + lexical-xnew-58817 + lexical-ynew-58818))) + (if (memv lexical-t-58819 '(list)) + (cons 'list + (cons lexical-xnew-58817 + (cdr lexical-ynew-58818))) + (list 'cons + lexical-xnew-58817 + lexical-ynew-58818)))) + (car lexical-ynew-58818)))) + (lexical-gen-vector-58732 + (lambda (lexical-e-58822 + lexical-ls-58823 + lexical-lsnew-58824) + (if (eq? (car lexical-lsnew-58824) 'quote) + (if (eq? (cadr lexical-lsnew-58824) lexical-ls-58823) + (list 'quote lexical-e-58822) + (list 'quote + (list->vector (cadr lexical-lsnew-58824)))) + (if (eq? (car lexical-lsnew-58824) 'list) + (cons 'vector (cdr lexical-lsnew-58824)) + (list 'list->vector lexical-lsnew-58824))))) + (lexical-regen-58733 + (lambda (lexical-x-58825) + ((lambda (lexical-t-58826) + (if (memv lexical-t-58826 '(ref)) + (cadr lexical-x-58825) + (if (memv lexical-t-58826 '(primitive)) + (cadr lexical-x-58825) + (if (memv lexical-t-58826 '(quote)) + (list 'quote (cadr lexical-x-58825)) + (if (memv lexical-t-58826 '(lambda)) + (list 'lambda + (cadr lexical-x-58825) + (lexical-regen-58733 + (caddr lexical-x-58825))) + (if (memv lexical-t-58826 '(map)) + ((lambda (lexical-ls-58827) + (cons (if (= (length lexical-ls-58827) '2) + 'map + 'map) + lexical-ls-58827)) + (map lexical-regen-58733 + (cdr lexical-x-58825))) + (cons (car lexical-x-58825) + (map lexical-regen-58733 + (cdr lexical-x-58825))))))))) + (car lexical-x-58825))))) + (lambda (lexical-e-58828 + lexical-r-58829 + lexical-mr-58830 + lexical-w-58831 + lexical-ae-58832 + lexical-m?-58833) + ((lambda (lexical-e-58834) + ((lambda (lexical-tmp-58835) + ((lambda (lexical-tmp-58836) + (if lexical-tmp-58836 + (apply (lambda (lexical-_-58837 lexical-x-58838) + (call-with-values + (lambda () + (lexical-gen-syntax-58726 + lexical-e-58834 + lexical-x-58838 + lexical-r-58829 + '() + lexical-ellipsis?-57340 + '#f)) + (lambda (lexical-e-58839 + lexical-maps-58840) + (lexical-regen-58733 + lexical-e-58839)))) + lexical-tmp-58836) + ((lambda (lexical-_-58841) + (syntax-error lexical-e-58834)) + lexical-tmp-58835))) + ($syntax-dispatch lexical-tmp-58835 '(any any)))) + lexical-e-58834)) + (lexical-source-wrap-57265 + lexical-e-58828 + lexical-w-58831 + lexical-ae-58832))))))) + (lexical-global-extend-57125 'core 'lambda - (lambda (e1032 r1031 mr1030 w1029 ae1028 m?1027) - ((lambda (tmp1033) - ((lambda (tmp1034) - (if tmp1034 - (apply - (lambda (_1036 c1035) - (call-with-values - (lambda () - (chi-lambda-clause516 - (source-wrap444 e1032 w1029 ae1028) c1035 - r1031 mr1030 w1029 m?1027)) - (lambda (vars1038 body1037) - (list 'lambda vars1038 body1037)))) - tmp1034) - (syntax-error tmp1033))) - ($syntax-dispatch tmp1033 '(any . any)))) - e1032))) - (global-extend304 - 'core - 'letrec - (lambda (e1008 r1007 mr1006 w1005 ae1004 m?1003) - ((lambda (tmp1009) - ((lambda (tmp1010) - (if tmp1010 - (apply - (lambda (_1015 id1014 val1013 e11012 e21011) - ((lambda (ids1016) - (if (not (valid-bound-ids?439 ids1016)) - (invalid-ids-error441 - (map (lambda (x1017) - (wrap443 x1017 w1005)) - ids1016) - (source-wrap444 e1008 w1005 ae1004) - '"bound variable") - ((lambda (labels1019 new-vars1018) - ((lambda (w1021 r1020) - (build-letrec236 - ae1004 - new-vars1018 - (map (lambda (x1024) - (chi498 x1024 r1020 mr1006 - w1021 m?1003)) - val1013) - (chi-body503 (cons e11012 e21011) - (source-wrap444 - e1008 - w1021 - ae1004) - r1020 mr1006 w1021 m?1003))) - (make-binding-wrap417 - ids1016 - labels1019 - w1005) - (extend-var-env*297 - labels1019 - new-vars1018 - r1007))) - (gen-labels364 ids1016) - (map gen-var523 ids1016)))) - id1014)) - tmp1010) - ((lambda (_1026) - (syntax-error (source-wrap444 e1008 w1005 ae1004))) - tmp1009))) + (lambda (lexical-e-58842 + lexical-r-58843 + lexical-mr-58844 + lexical-w-58845 + lexical-ae-58846 + lexical-m?-58847) + ((lambda (lexical-tmp-58848) + ((lambda (lexical-tmp-58849) + (if lexical-tmp-58849 + (apply (lambda (lexical-_-58850 lexical-c-58851) + (call-with-values + (lambda () + (lexical-chi-lambda-clause-57337 + (lexical-source-wrap-57265 + lexical-e-58842 + lexical-w-58845 + lexical-ae-58846) + lexical-c-58851 + lexical-r-58843 + lexical-mr-58844 + lexical-w-58845 + lexical-m?-58847)) + (lambda (lexical-vars-58852 lexical-body-58853) + (list 'lambda + lexical-vars-58852 + lexical-body-58853)))) + lexical-tmp-58849) + (syntax-error lexical-tmp-58848))) + ($syntax-dispatch lexical-tmp-58848 '(any . any)))) + lexical-e-58842))) + ((lambda (lexical-letrec-transformer-58854) + (begin + (lexical-global-extend-57125 + 'core + 'letrec + (lexical-letrec-transformer-58854 + lexical-build-letrec-57056)) + (lexical-global-extend-57125 + 'core + 'letrec* + (lexical-letrec-transformer-58854 + lexical-build-letrec*-57057)))) + (lambda (lexical-build-58855) + (lambda (lexical-e-58856 + lexical-r-58857 + lexical-mr-58858 + lexical-w-58859 + lexical-ae-58860 + lexical-m?-58861) + ((lambda (lexical-tmp-58862) + ((lambda (lexical-tmp-58863) + (if lexical-tmp-58863 + (apply (lambda (lexical-_-58864 + lexical-id-58865 + lexical-val-58866 + lexical-e1-58867 + lexical-e2-58868) + ((lambda (lexical-ids-58869) + (if (not (lexical-valid-bound-ids?-57260 + lexical-ids-58869)) + (lexical-invalid-ids-error-57262 + (map (lambda (lexical-x-58870) + (lexical-wrap-57264 + lexical-x-58870 + lexical-w-58859)) + lexical-ids-58869) + (lexical-source-wrap-57265 + lexical-e-58856 + lexical-w-58859 + lexical-ae-58860) + '"bound variable") + ((lambda (lexical-labels-58871 + lexical-new-vars-58872) + ((lambda (lexical-w-58873 lexical-r-58874) + (lexical-build-58855 + lexical-ae-58860 + lexical-new-vars-58872 + (map (lambda (lexical-x-58875) + (lexical-chi-57319 + lexical-x-58875 + lexical-r-58874 + lexical-mr-58858 + lexical-w-58873 + lexical-m?-58861)) + lexical-val-58866) + (lexical-chi-body-57324 + (cons lexical-e1-58867 + lexical-e2-58868) + (lexical-source-wrap-57265 + lexical-e-58856 + lexical-w-58873 + lexical-ae-58860) + lexical-r-58874 + lexical-mr-58858 + lexical-w-58873 + lexical-m?-58861))) + (lexical-make-binding-wrap-57238 + lexical-ids-58869 + lexical-labels-58871 + lexical-w-58859) + (lexical-extend-var-env*-57118 + lexical-labels-58871 + lexical-new-vars-58872 + lexical-r-58857))) + (lexical-gen-labels-57185 lexical-ids-58869) + (map lexical-gen-var-57344 + lexical-ids-58869)))) + lexical-id-58865)) + lexical-tmp-58863) + ((lambda (lexical-_-58879) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58856 + lexical-w-58859 + lexical-ae-58860))) + lexical-tmp-58862))) ($syntax-dispatch - tmp1009 + lexical-tmp-58862 '(any #(each (any any)) any . each-any)))) - e1008))) - (global-extend304 + lexical-e-58856)))) + (lexical-global-extend-57125 'core 'if - (lambda (e991 r990 mr989 w988 ae987 m?986) - ((lambda (tmp992) - ((lambda (tmp993) - (if tmp993 - (apply - (lambda (_996 test995 then994) - (list - 'if - (chi498 test995 r990 mr989 w988 m?986) - (chi498 then994 r990 mr989 w988 m?986) - (chi-void518))) - tmp993) - ((lambda (tmp997) - (if tmp997 - (apply - (lambda (_1001 test1000 then999 else998) - (list - 'if - (chi498 test1000 r990 mr989 w988 m?986) - (chi498 then999 r990 mr989 w988 m?986) - (chi498 else998 r990 mr989 w988 m?986))) - tmp997) - ((lambda (_1002) - (syntax-error - (source-wrap444 e991 w988 ae987))) - tmp992))) - ($syntax-dispatch tmp992 '(any any any any))))) - ($syntax-dispatch tmp992 '(any any any)))) - e991))) - (global-extend304 'set! 'set! '()) - (global-extend304 'alias 'alias '()) - (global-extend304 'begin 'begin '()) - (global-extend304 '$module-key '$module '()) - (global-extend304 '$import '$import '()) - (global-extend304 'define 'define '()) - (global-extend304 'define-syntax 'define-syntax '()) - (global-extend304 'eval-when 'eval-when '()) - (global-extend304 'meta 'meta '()) - (global-extend304 + (lambda (lexical-e-58880 + lexical-r-58881 + lexical-mr-58882 + lexical-w-58883 + lexical-ae-58884 + lexical-m?-58885) + ((lambda (lexical-tmp-58886) + ((lambda (lexical-tmp-58887) + (if lexical-tmp-58887 + (apply (lambda (lexical-_-58888 + lexical-test-58889 + lexical-then-58890) + (list 'if + (lexical-chi-57319 + lexical-test-58889 + lexical-r-58881 + lexical-mr-58882 + lexical-w-58883 + lexical-m?-58885) + (lexical-chi-57319 + lexical-then-58890 + lexical-r-58881 + lexical-mr-58882 + lexical-w-58883 + lexical-m?-58885) + (lexical-chi-void-57339))) + lexical-tmp-58887) + ((lambda (lexical-tmp-58891) + (if lexical-tmp-58891 + (apply (lambda (lexical-_-58892 + lexical-test-58893 + lexical-then-58894 + lexical-else-58895) + (list 'if + (lexical-chi-57319 + lexical-test-58893 + lexical-r-58881 + lexical-mr-58882 + lexical-w-58883 + lexical-m?-58885) + (lexical-chi-57319 + lexical-then-58894 + lexical-r-58881 + lexical-mr-58882 + lexical-w-58883 + lexical-m?-58885) + (lexical-chi-57319 + lexical-else-58895 + lexical-r-58881 + lexical-mr-58882 + lexical-w-58883 + lexical-m?-58885))) + lexical-tmp-58891) + ((lambda (lexical-_-58896) + (syntax-error + (lexical-source-wrap-57265 + lexical-e-58880 + lexical-w-58883 + lexical-ae-58884))) + lexical-tmp-58886))) + ($syntax-dispatch + lexical-tmp-58886 + '(any any any any))))) + ($syntax-dispatch + lexical-tmp-58886 + '(any any any)))) + lexical-e-58880))) + (lexical-global-extend-57125 'set! 'set! '()) + (lexical-global-extend-57125 'alias 'alias '()) + (lexical-global-extend-57125 'begin 'begin '()) + (lexical-global-extend-57125 + '$module-key + '$module + '()) + (lexical-global-extend-57125 + '$import + '$import + '()) + (lexical-global-extend-57125 'define 'define '()) + (lexical-global-extend-57125 + 'define-syntax + 'define-syntax + '()) + (lexical-global-extend-57125 + 'eval-when + 'eval-when + '()) + (lexical-global-extend-57125 'meta 'meta '()) + (lexical-global-extend-57125 'core 'syntax-case ((lambda () - (letrec ((convert-pattern858 (lambda (pattern935 keys934) - (letrec ((cvt*936 (lambda (p*981 - n980 - ids979) - (if (null? - p*981) - (values - '() - ids979) - (call-with-values - (lambda () - (cvt*936 - (cdr p*981) - n980 - ids979)) - (lambda (y983 - ids982) - (call-with-values - (lambda () - (cvt937 - (car p*981) - n980 - ids982)) - (lambda (x985 - ids984) - (values - (cons - x985 - y983) - ids984)))))))) - (cvt937 (lambda (p940 - n939 - ids938) - (if (id?306 - p940) - (if (bound-id-member?442 - p940 - keys934) - (values - (vector - 'free-id - p940) - ids938) - (values - 'any - (cons - (cons - p940 - n939) - ids938))) - ((lambda (tmp941) - ((lambda (tmp942) - (if (if tmp942 - (apply - (lambda (x944 - dots943) - (ellipsis?519 - dots943)) - tmp942) - '#f) - (apply - (lambda (x946 - dots945) + (letrec* + ((lexical-convert-pattern-58897 + (lambda (lexical-pattern-58901 lexical-keys-58902) + (letrec* + ((lexical-cvt*-58903 + (lambda (lexical-p*-58905 + lexical-n-58906 + lexical-ids-58907) + (if (null? lexical-p*-58905) + (values '() lexical-ids-58907) + (call-with-values + (lambda () + (lexical-cvt*-58903 + (cdr lexical-p*-58905) + lexical-n-58906 + lexical-ids-58907)) + (lambda (lexical-y-58908 lexical-ids-58909) + (call-with-values + (lambda () + (lexical-cvt-58904 + (car lexical-p*-58905) + lexical-n-58906 + lexical-ids-58909)) + (lambda (lexical-x-58910 lexical-ids-58911) + (values + (cons lexical-x-58910 lexical-y-58908) + lexical-ids-58911)))))))) + (lexical-cvt-58904 + (lambda (lexical-p-58912 + lexical-n-58913 + lexical-ids-58914) + (if (lexical-id?-57127 lexical-p-58912) + (if (lexical-bound-id-member?-57263 + lexical-p-58912 + lexical-keys-58902) + (values + (vector 'free-id lexical-p-58912) + lexical-ids-58914) + (values + 'any + (cons (cons lexical-p-58912 lexical-n-58913) + lexical-ids-58914))) + ((lambda (lexical-tmp-58915) + ((lambda (lexical-tmp-58916) + (if (if lexical-tmp-58916 + (apply (lambda (lexical-x-58917 + lexical-dots-58918) + (lexical-ellipsis?-57340 + lexical-dots-58918)) + lexical-tmp-58916) + '#f) + (apply (lambda (lexical-x-58919 + lexical-dots-58920) + (call-with-values + (lambda () + (lexical-cvt-58904 + lexical-x-58919 + (+ lexical-n-58913 '1) + lexical-ids-58914)) + (lambda (lexical-p-58921 + lexical-ids-58922) + (values + (if (eq? lexical-p-58921 + 'any) + 'each-any + (vector + 'each + lexical-p-58921)) + lexical-ids-58922)))) + lexical-tmp-58916) + ((lambda (lexical-tmp-58923) + (if (if lexical-tmp-58923 + (apply (lambda (lexical-x-58924 + lexical-dots-58925 + lexical-y-58926 + lexical-z-58927) + (lexical-ellipsis?-57340 + lexical-dots-58925)) + lexical-tmp-58923) + '#f) + (apply (lambda (lexical-x-58928 + lexical-dots-58929 + lexical-y-58930 + lexical-z-58931) + (call-with-values + (lambda () + (lexical-cvt-58904 + lexical-z-58931 + lexical-n-58913 + lexical-ids-58914)) + (lambda (lexical-z-58932 + lexical-ids-58933) + (call-with-values + (lambda () + (lexical-cvt*-58903 + lexical-y-58930 + lexical-n-58913 + lexical-ids-58933)) + (lambda (lexical-y-58935 + lexical-ids-58936) + (call-with-values + (lambda () + (lexical-cvt-58904 + lexical-x-58928 + (+ lexical-n-58913 + '1) + lexical-ids-58936)) + (lambda (lexical-x-58937 + lexical-ids-58938) + (values + (vector + 'each+ + lexical-x-58937 + (reverse + lexical-y-58935) + lexical-z-58932) + lexical-ids-58938)))))))) + lexical-tmp-58923) + ((lambda (lexical-tmp-58939) + (if lexical-tmp-58939 + (apply (lambda (lexical-x-58940 + lexical-y-58941) + (call-with-values + (lambda () + (lexical-cvt-58904 + lexical-y-58941 + lexical-n-58913 + lexical-ids-58914)) + (lambda (lexical-y-58942 + lexical-ids-58943) + (call-with-values + (lambda () + (lexical-cvt-58904 + lexical-x-58940 + lexical-n-58913 + lexical-ids-58943)) + (lambda (lexical-x-58944 + lexical-ids-58945) + (values + (cons lexical-x-58944 + lexical-y-58942) + lexical-ids-58945)))))) + lexical-tmp-58939) + ((lambda (lexical-tmp-58946) + (if lexical-tmp-58946 + (apply (lambda () + (values + '() + lexical-ids-58914)) + lexical-tmp-58946) + ((lambda (lexical-tmp-58947) + (if lexical-tmp-58947 + (apply (lambda (lexical-x-58948) + (call-with-values + (lambda () + (lexical-cvt-58904 + lexical-x-58948 + lexical-n-58913 + lexical-ids-58914)) + (lambda (lexical-p-58950 + lexical-ids-58951) + (values + (vector + 'vector + lexical-p-58950) + lexical-ids-58951)))) + lexical-tmp-58947) + ((lambda (lexical-x-58952) + (values + (vector + 'atom + (lexical-strip-57343 + lexical-p-58912 + '(()))) + lexical-ids-58914)) + lexical-tmp-58915))) + ($syntax-dispatch + lexical-tmp-58915 + '#(vector each-any))))) + ($syntax-dispatch + lexical-tmp-58915 + '())))) + ($syntax-dispatch + lexical-tmp-58915 + '(any . any))))) + ($syntax-dispatch + lexical-tmp-58915 + '(any any . #(each+ any () any)))))) + ($syntax-dispatch + lexical-tmp-58915 + '(any any)))) + lexical-p-58912))))) + (lexical-cvt-58904 lexical-pattern-58901 '0 '())))) + (lexical-build-dispatch-call-58898 + (lambda (lexical-pvars-58953 + lexical-exp-58954 + lexical-y-58955 + lexical-r-58956 + lexical-mr-58957 + lexical-m?-58958) + ((lambda (lexical-ids-58959 lexical-levels-58960) + ((lambda (lexical-labels-58961 lexical-new-vars-58962) + (cons 'apply + (list (list 'lambda + lexical-new-vars-58962 + (lexical-chi-57319 + lexical-exp-58954 + (lexical-extend-env*-57117 + lexical-labels-58961 + (map (lambda (lexical-var-58963 + lexical-level-58964) + (cons 'syntax + (cons lexical-var-58963 + lexical-level-58964))) + lexical-new-vars-58962 + (map cdr + lexical-pvars-58953)) + lexical-r-58956) + lexical-mr-58957 + (lexical-make-binding-wrap-57238 + lexical-ids-58959 + lexical-labels-58961 + '(())) + lexical-m?-58958)) + lexical-y-58955))) + (lexical-gen-labels-57185 lexical-ids-58959) + (map lexical-gen-var-57344 lexical-ids-58959))) + (map car lexical-pvars-58953) + (map cdr lexical-pvars-58953)))) + (lexical-gen-clause-58899 + (lambda (lexical-x-58965 + lexical-keys-58966 + lexical-clauses-58967 + lexical-r-58968 + lexical-mr-58969 + lexical-m?-58970 + lexical-pat-58971 + lexical-fender-58972 + lexical-exp-58973) + (call-with-values + (lambda () + (lexical-convert-pattern-58897 + lexical-pat-58971 + lexical-keys-58966)) + (lambda (lexical-p-58974 lexical-pvars-58975) + (if (not (lexical-distinct-bound-ids?-57261 + (map car lexical-pvars-58975))) + (lexical-invalid-ids-error-57262 + (map car lexical-pvars-58975) + lexical-pat-58971 + '"pattern variable") + (if (not (andmap + (lambda (lexical-x-58976) + (not (lexical-ellipsis?-57340 + (car lexical-x-58976)))) + lexical-pvars-58975)) + (syntax-error + lexical-pat-58971 + '"misplaced ellipsis in syntax-case pattern") + ((lambda (lexical-y-58977) + (cons (list 'lambda + (list lexical-y-58977) + (list 'if + ((lambda (lexical-tmp-58987) + ((lambda (lexical-tmp-58988) + (if lexical-tmp-58988 + (apply (lambda () + lexical-y-58977) + lexical-tmp-58988) + ((lambda (lexical-_-58989) + (list 'if + lexical-y-58977 + (lexical-build-dispatch-call-58898 + lexical-pvars-58975 + lexical-fender-58972 + lexical-y-58977 + lexical-r-58968 + lexical-mr-58969 + lexical-m?-58970) + (list 'quote + '#f))) + lexical-tmp-58987))) + ($syntax-dispatch + lexical-tmp-58987 + '#(atom #t)))) + lexical-fender-58972) + (lexical-build-dispatch-call-58898 + lexical-pvars-58975 + lexical-exp-58973 + lexical-y-58977 + lexical-r-58968 + lexical-mr-58969 + lexical-m?-58970) + (lexical-gen-syntax-case-58900 + lexical-x-58965 + lexical-keys-58966 + lexical-clauses-58967 + lexical-r-58968 + lexical-mr-58969 + lexical-m?-58970))) + (list (if (eq? lexical-p-58974 'any) + (cons 'list (list lexical-x-58965)) + (cons '$syntax-dispatch + (list lexical-x-58965 + (list 'quote + lexical-p-58974))))))) + (lexical-gen-var-57344 'tmp)))))))) + (lexical-gen-syntax-case-58900 + (lambda (lexical-x-58990 + lexical-keys-58991 + lexical-clauses-58992 + lexical-r-58993 + lexical-mr-58994 + lexical-m?-58995) + (if (null? lexical-clauses-58992) + (cons 'syntax-error (list lexical-x-58990)) + ((lambda (lexical-tmp-58996) + ((lambda (lexical-tmp-58997) + (if lexical-tmp-58997 + (apply (lambda (lexical-pat-58998 + lexical-exp-58999) + (if (if (lexical-id?-57127 + lexical-pat-58998) + (if (not (lexical-bound-id-member?-57263 + lexical-pat-58998 + lexical-keys-58991)) + (not (lexical-ellipsis?-57340 + lexical-pat-58998)) + '#f) + '#f) + ((lambda (lexical-label-59000 + lexical-var-59001) + (cons (list 'lambda + (list lexical-var-59001) + (lexical-chi-57319 + lexical-exp-58999 + (lexical-extend-env-57116 + lexical-label-59000 + (cons 'syntax + (cons lexical-var-59001 + '0)) + lexical-r-58993) + lexical-mr-58994 + (lexical-make-binding-wrap-57238 + (list lexical-pat-58998) + (list lexical-label-59000) + '(())) + lexical-m?-58995)) + (list lexical-x-58990))) + (lexical-gen-label-57183) + (lexical-gen-var-57344 + lexical-pat-58998)) + (lexical-gen-clause-58899 + lexical-x-58990 + lexical-keys-58991 + (cdr lexical-clauses-58992) + lexical-r-58993 + lexical-mr-58994 + lexical-m?-58995 + lexical-pat-58998 + '#t + lexical-exp-58999))) + lexical-tmp-58997) + ((lambda (lexical-tmp-59002) + (if lexical-tmp-59002 + (apply (lambda (lexical-pat-59003 + lexical-fender-59004 + lexical-exp-59005) + (lexical-gen-clause-58899 + lexical-x-58990 + lexical-keys-58991 + (cdr lexical-clauses-58992) + lexical-r-58993 + lexical-mr-58994 + lexical-m?-58995 + lexical-pat-59003 + lexical-fender-59004 + lexical-exp-59005)) + lexical-tmp-59002) + ((lambda (lexical-_-59006) + (syntax-error + (car lexical-clauses-58992) + '"invalid syntax-case clause")) + lexical-tmp-58996))) + ($syntax-dispatch + lexical-tmp-58996 + '(any any any))))) + ($syntax-dispatch lexical-tmp-58996 '(any any)))) + (car lexical-clauses-58992)))))) + (lambda (lexical-e-59007 + lexical-r-59008 + lexical-mr-59009 + lexical-w-59010 + lexical-ae-59011 + lexical-m?-59012) + ((lambda (lexical-e-59013) + ((lambda (lexical-tmp-59014) + ((lambda (lexical-tmp-59015) + (if lexical-tmp-59015 + (apply (lambda (lexical-_-59016 + lexical-val-59017 + lexical-key-59018 + lexical-m-59019) + (if (andmap + (lambda (lexical-x-59020) + (if (lexical-id?-57127 + lexical-x-59020) + (not (lexical-ellipsis?-57340 + lexical-x-59020)) + '#f)) + lexical-key-59018) + ((lambda (lexical-x-59022) + (cons (list 'lambda + (list lexical-x-59022) + (lexical-gen-syntax-case-58900 + lexical-x-59022 + lexical-key-59018 + lexical-m-59019 + lexical-r-59008 + lexical-mr-59009 + lexical-m?-59012)) + (list (lexical-chi-57319 + lexical-val-59017 + lexical-r-59008 + lexical-mr-59009 + '(()) + lexical-m?-59012)))) + (lexical-gen-var-57344 'tmp)) + (syntax-error + lexical-e-59013 + '"invalid literals list in"))) + lexical-tmp-59015) + (syntax-error lexical-tmp-59014))) + ($syntax-dispatch + lexical-tmp-59014 + '(any any each-any . each-any)))) + lexical-e-59013)) + (lexical-source-wrap-57265 + lexical-e-59007 + lexical-w-59010 + lexical-ae-59011))))))) + (lexical-put-cte-hook-56957 + 'module + (lambda (lexical-x-59025) + (letrec* + ((lexical-proper-export?-59026 + (lambda (lexical-e-59027) + ((lambda (lexical-tmp-59028) + ((lambda (lexical-tmp-59029) + (if lexical-tmp-59029 + (apply (lambda (lexical-id-59030 lexical-e-59031) + (if (identifier? lexical-id-59030) + (andmap + lexical-proper-export?-59026 + lexical-e-59031) + '#f)) + lexical-tmp-59029) + ((lambda (lexical-id-59033) + (identifier? lexical-id-59033)) + lexical-tmp-59028))) + ($syntax-dispatch + lexical-tmp-59028 + '(any . each-any)))) + lexical-e-59027)))) + ((lambda (lexical-tmp-59034) + ((lambda (lexical-orig-59035) + ((lambda (lexical-tmp-59036) + ((lambda (lexical-tmp-59037) + (if lexical-tmp-59037 + (apply (lambda (lexical-_-59038 + lexical-e-59039 + lexical-d-59040) + (if (andmap + lexical-proper-export?-59026 + lexical-e-59039) + (list '#(syntax-object + begin + ((top) + #(ribcage + #(_ e d) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + #(orig) + #((top)) + #("i")) + #(ribcage + (proper-export?) + ((top)) + ("i")) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (cons '#(syntax-object + $module + ((top) + #(ribcage + #(_ e d) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + #(orig) + #((top)) + #("i")) + #(ribcage + (proper-export?) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (cons lexical-orig-59035 + (cons '#(syntax-object + anon + ((top) + #(ribcage + #(_ e d) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig) + #((top)) + #("i")) + #(ribcage + (proper-export?) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e-59039 + lexical-d-59040)))) + (cons '#(syntax-object + $import + ((top) + #(ribcage + #(_ e d) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + #(orig) + #((top)) + #("i")) + #(ribcage + (proper-export?) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (cons lexical-orig-59035 + '#(syntax-object + (#f anon) + ((top) + #(ribcage + #(_ e d) + #((top) + (top) + (top)) + #("i" "i" "i")) + #(ribcage + #(orig) + #((top)) + #("i")) + #(ribcage + (proper-export?) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))))) + (syntax-error + lexical-x-59025 + '"invalid exports list in"))) + lexical-tmp-59037) + ((lambda (lexical-tmp-59044) + (if (if lexical-tmp-59044 + (apply (lambda (lexical-_-59045 + lexical-m-59046 + lexical-e-59047 + lexical-d-59048) + (identifier? lexical-m-59046)) + lexical-tmp-59044) + '#f) + (apply (lambda (lexical-_-59049 + lexical-m-59050 + lexical-e-59051 + lexical-d-59052) + (if (andmap + lexical-proper-export?-59026 + lexical-e-59051) + (cons '#(syntax-object + $module + ((top) + #(ribcage + #(_ m e d) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage + #(orig) + #((top)) + #("i")) + #(ribcage + (proper-export?) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (cons lexical-orig-59035 + (cons lexical-m-59050 + (cons lexical-e-59051 + lexical-d-59052)))) + (syntax-error + lexical-x-59025 + '"invalid exports list in"))) + lexical-tmp-59044) + (syntax-error lexical-tmp-59036))) + ($syntax-dispatch + lexical-tmp-59036 + '(any any each-any . each-any))))) + ($syntax-dispatch + lexical-tmp-59036 + '(any each-any . each-any)))) + lexical-x-59025)) + lexical-tmp-59034)) + lexical-x-59025)))) + ((lambda () + (letrec* + ((lexical-$module-exports-59056 + (lambda (lexical-m-59058 lexical-r-59059) + ((lambda (lexical-b-59060) + ((lambda (lexical-t-59061) + (if (memv lexical-t-59061 '($module)) + ((lambda (lexical-interface-59062) + ((lambda (lexical-new-marks-59063) + ((lambda () + (lexical-vmap-57308 + (lambda (lexical-x-59064) + ((lambda (lexical-id-59065) + (lexical-make-syntax-object-56883 + (syntax-object->datum + lexical-id-59065) + ((lambda (lexical-marks-59066) + (lexical-make-wrap-57136 + lexical-marks-59066 + (if (eq? (car lexical-marks-59066) + '#f) + (cons 'shift + (lexical-wrap-subst-57138 + '((top)))) + (lexical-wrap-subst-57138 + '((top)))))) + (lexical-join-marks-57244 + lexical-new-marks-59063 + (lexical-wrap-marks-57137 + (lexical-syntax-object-wrap-56886 + lexical-id-59065)))))) + (if (pair? lexical-x-59064) + (car lexical-x-59064) + lexical-x-59064))) + (lexical-interface-exports-57275 + lexical-interface-59062))))) + (lexical-import-mark-delta-57326 + lexical-m-59058 + lexical-interface-59062))) + (lexical-binding-value-57103 lexical-b-59060)) + (if (memv lexical-t-59061 '(displaced-lexical)) + (lexical-displaced-lexical-error-57120 + lexical-m-59058) + (syntax-error lexical-m-59058 '"unknown module")))) + (lexical-binding-type-57102 lexical-b-59060))) + (lexical-r-59059 lexical-m-59058)))) + (lexical-$import-help-59057 + (lambda (lexical-orig-59067 lexical-import-only?-59068) + (lambda (lexical-r-59069) + (letrec* + ((lexical-difference-59070 + (lambda (lexical-ls1-59076 lexical-ls2-59077) + (if (null? lexical-ls1-59076) + lexical-ls1-59076 + (if (lexical-bound-id-member?-57263 + (car lexical-ls1-59076) + lexical-ls2-59077) + (lexical-difference-59070 + (cdr lexical-ls1-59076) + lexical-ls2-59077) + (cons (car lexical-ls1-59076) + (lexical-difference-59070 + (cdr lexical-ls1-59076) + lexical-ls2-59077)))))) + (lexical-prefix-add-59071 + (lambda (lexical-prefix-id-59078) + ((lambda (lexical-prefix-59079) + (lambda (lexical-id-59080) + (datum->syntax-object + lexical-id-59080 + (string->symbol + (string-append + lexical-prefix-59079 + (symbol->string + (syntax-object->datum + lexical-id-59080))))))) + (symbol->string + (syntax-object->datum lexical-prefix-id-59078))))) + (lexical-prefix-drop-59072 + (lambda (lexical-prefix-id-59081) + ((lambda (lexical-prefix-59082) + (lambda (lexical-id-59083) + ((lambda (lexical-s-59084) + ((lambda (lexical-np-59085 lexical-ns-59086) + (begin + (if (not (if (>= lexical-ns-59086 + lexical-np-59085) + (string=? + (substring + lexical-s-59084 + '0 + lexical-np-59085) + lexical-prefix-59082) + '#f)) + (syntax-error + lexical-id-59083 + (string-append + '"missing expected prefix " + lexical-prefix-59082)) + (void)) + (datum->syntax-object + lexical-id-59083 + (string->symbol + (substring + lexical-s-59084 + lexical-np-59085 + lexical-ns-59086))))) + (string-length lexical-prefix-59082) + (string-length lexical-s-59084))) + (symbol->string + (syntax-object->datum lexical-id-59083))))) + (symbol->string + (syntax-object->datum lexical-prefix-id-59081))))) + (lexical-gen-mid-59073 + (lambda (lexical-mid-59087) + (datum->syntax-object + lexical-mid-59087 + (lexical-generate-id-56963 + ((lambda (lexical-x-59088) + ((lambda (lexical-e-59089) + (if (lexical-annotation?-56952 + lexical-e-59089) + (annotation-expression lexical-e-59089) + lexical-e-59089)) + (if (lexical-syntax-object?-56884 + lexical-x-59088) + (lexical-syntax-object-expression-56885 + lexical-x-59088) + lexical-x-59088))) + lexical-mid-59087))))) + (lexical-modspec-59074 + (lambda (lexical-m-59090 lexical-exports?-59091) + ((lambda (lexical-tmp-59092) + ((lambda (lexical-tmp-59093) + (if lexical-tmp-59093 + (apply (lambda (lexical-orig-59094 + lexical-import-only?-59095) + ((lambda (lexical-tmp-59096) + ((lambda (lexical-tmp-59097) + (if (if lexical-tmp-59097 + (apply (lambda (lexical-m-59098 + lexical-id-59099) + (andmap + identifier? + lexical-id-59099)) + lexical-tmp-59097) + '#f) + (apply (lambda (lexical-m-59101 + lexical-id-59102) + (call-with-values + (lambda () + (lexical-modspec-59074 + lexical-m-59101 + '#f)) + (lambda (lexical-mid-59103 + lexical-d-59104 + lexical-exports-59105) + ((lambda (lexical-tmp-59106) + ((lambda (lexical-tmp-59107) + (if lexical-tmp-59107 + (apply (lambda (lexical-d-59108 + lexical-tmid-59109) + (values + lexical-mid-59103 + (list '#(syntax-object + begin + ((top) + #(ribcage + #(d + tmid) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-tmid-59109 + lexical-id-59102 + lexical-d-59108) + (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59109)) + (if lexical-exports?-59091 + lexical-id-59102 + '#f))) + lexical-tmp-59107) + (syntax-error + lexical-tmp-59106))) + ($syntax-dispatch + lexical-tmp-59106 + '(any any)))) + (list lexical-d-59104 + (lexical-gen-mid-59073 + lexical-mid-59103)))))) + lexical-tmp-59097) + ((lambda (lexical-tmp-59112) + (if (if lexical-tmp-59112 + (apply (lambda (lexical-m-59113 + lexical-id-59114) + (andmap + identifier? + lexical-id-59114)) + lexical-tmp-59112) + '#f) + (apply (lambda (lexical-m-59116 + lexical-id-59117) + (call-with-values + (lambda () + (lexical-modspec-59074 + lexical-m-59116 + '#t)) + (lambda (lexical-mid-59118 + lexical-d-59119 + lexical-exports-59120) + ((lambda (lexical-tmp-59121) + ((lambda (lexical-tmp-59122) + (if lexical-tmp-59122 + (apply (lambda (lexical-d-59123 + lexical-tmid-59124 + lexical-id-59125) + (values + lexical-mid-59118 + (list '#(syntax-object + begin + ((top) + #(ribcage + #(d + tmid + id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-tmid-59124 + lexical-id-59125 + lexical-d-59123) + (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59124)) + (if lexical-exports?-59091 + lexical-id-59125 + '#f))) + lexical-tmp-59122) + (syntax-error + lexical-tmp-59121))) + ($syntax-dispatch + lexical-tmp-59121 + '(any any + each-any)))) + (list lexical-d-59119 + (lexical-gen-mid-59073 + lexical-mid-59118) + (lexical-difference-59070 + lexical-exports-59120 + lexical-id-59117)))))) + lexical-tmp-59112) + ((lambda (lexical-tmp-59129) + (if (if lexical-tmp-59129 + (apply (lambda (lexical-m-59130 + lexical-prefix-id-59131) + (identifier? + lexical-prefix-id-59131)) + lexical-tmp-59129) + '#f) + (apply (lambda (lexical-m-59132 + lexical-prefix-id-59133) + (call-with-values + (lambda () + (lexical-modspec-59074 + lexical-m-59132 + '#t)) + (lambda (lexical-mid-59134 + lexical-d-59135 + lexical-exports-59136) + ((lambda (lexical-tmp-59137) + ((lambda (lexical-tmp-59138) + (if lexical-tmp-59138 + (apply (lambda (lexical-d-59139 + lexical-tmid-59140 + lexical-old-id-59141 + lexical-tmp-59142 + lexical-id-59143) + (values + lexical-mid-59134 + (list '#(syntax-object + begin + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59140 + (cons (map list + lexical-id-59143 + lexical-tmp-59142) + (cons (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59140 + (cons (map list + lexical-tmp-59142 + lexical-old-id-59141) + (cons lexical-d-59139 + (map (lambda (lexical-tmp-59149 + lexical-tmp-59148) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59148 + lexical-tmp-59149)) + lexical-old-id-59141 + lexical-tmp-59142)))))) + (cons (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59140) + (map (lambda (lexical-tmp-59151 + lexical-tmp-59150) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59150 + lexical-tmp-59151)) + lexical-tmp-59142 + lexical-id-59143))))))) + (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59140)) + (if lexical-exports?-59091 + lexical-id-59143 + '#f))) + lexical-tmp-59138) + (syntax-error + lexical-tmp-59137))) + ($syntax-dispatch + lexical-tmp-59137 + '(any any + each-any + each-any + each-any)))) + (list lexical-d-59135 + (lexical-gen-mid-59073 + lexical-mid-59134) + lexical-exports-59136 + (generate-temporaries + lexical-exports-59136) + (map (lexical-prefix-add-59071 + lexical-prefix-id-59133) + lexical-exports-59136)))))) + lexical-tmp-59129) + ((lambda (lexical-tmp-59153) + (if (if lexical-tmp-59153 + (apply (lambda (lexical-m-59154 + lexical-prefix-id-59155) + (identifier? + lexical-prefix-id-59155)) + lexical-tmp-59153) + '#f) + (apply (lambda (lexical-m-59156 + lexical-prefix-id-59157) + (call-with-values + (lambda () + (lexical-modspec-59074 + lexical-m-59156 + '#t)) + (lambda (lexical-mid-59158 + lexical-d-59159 + lexical-exports-59160) + ((lambda (lexical-tmp-59161) + ((lambda (lexical-tmp-59162) + (if lexical-tmp-59162 + (apply (lambda (lexical-d-59163 + lexical-tmid-59164 + lexical-old-id-59165 + lexical-tmp-59166 + lexical-id-59167) + (values + lexical-mid-59158 + (list '#(syntax-object + begin + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59164 + (cons (map list + lexical-id-59167 + lexical-tmp-59166) + (cons (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59164 + (cons (map list + lexical-tmp-59166 + lexical-old-id-59165) + (cons lexical-d-59163 + (map (lambda (lexical-tmp-59173 + lexical-tmp-59172) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59172 + lexical-tmp-59173)) + lexical-old-id-59165 + lexical-tmp-59166)))))) + (cons (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59164) + (map (lambda (lexical-tmp-59175 + lexical-tmp-59174) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59174 + lexical-tmp-59175)) + lexical-tmp-59166 + lexical-id-59167))))))) + (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + old-id + tmp + id) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + prefix-id) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59164)) + (if lexical-exports?-59091 + lexical-id-59167 + '#f))) + lexical-tmp-59162) + (syntax-error + lexical-tmp-59161))) + ($syntax-dispatch + lexical-tmp-59161 + '(any any + each-any + each-any + each-any)))) + (list lexical-d-59159 + (lexical-gen-mid-59073 + lexical-mid-59158) + lexical-exports-59160 + (generate-temporaries + lexical-exports-59160) + (map (lexical-prefix-drop-59072 + lexical-prefix-id-59157) + lexical-exports-59160)))))) + lexical-tmp-59153) + ((lambda (lexical-tmp-59177) + (if (if lexical-tmp-59177 + (apply (lambda (lexical-m-59178 + lexical-new-id-59179 + lexical-old-id-59180) + (if (andmap + identifier? + lexical-new-id-59179) + (andmap + identifier? + lexical-old-id-59180) + '#f)) + lexical-tmp-59177) + '#f) + (apply (lambda (lexical-m-59183 + lexical-new-id-59184 + lexical-old-id-59185) (call-with-values (lambda () - (cvt937 - x946 - (+ n939 - '1) - ids938)) - (lambda (p948 - ids947) - (values - (if (eq? p948 - 'any) - 'each-any - (vector - 'each - p948)) - ids947)))) - tmp942) - ((lambda (tmp949) - (if (if tmp949 - (apply - (lambda (x953 - dots952 - y951 - z950) - (ellipsis?519 - dots952)) - tmp949) - '#f) - (apply - (lambda (x957 - dots956 - y955 - z954) - (call-with-values - (lambda () - (cvt937 - z954 - n939 - ids938)) - (lambda (z959 - ids958) - (call-with-values - (lambda () - (cvt*936 - y955 - n939 - ids958)) - (lambda (y961 - ids960) - (call-with-values - (lambda () - (cvt937 - x957 - (+ n939 - '1) - ids960)) - (lambda (x963 - ids962) - (values - (vector - 'each+ - x963 - (reverse - y961) - z959) - ids962)))))))) - tmp949) - ((lambda (tmp965) - (if tmp965 - (apply - (lambda (x967 - y966) - (call-with-values - (lambda () - (cvt937 - y966 - n939 - ids938)) - (lambda (y969 - ids968) - (call-with-values - (lambda () - (cvt937 - x967 - n939 - ids968)) - (lambda (x971 - ids970) - (values - (cons - x971 - y969) - ids970)))))) - tmp965) - ((lambda (tmp972) - (if tmp972 - (apply - (lambda () + (lexical-modspec-59074 + lexical-m-59183 + '#t)) + (lambda (lexical-mid-59186 + lexical-d-59187 + lexical-exports-59188) + ((lambda (lexical-tmp-59189) + ((lambda (lexical-tmp-59190) + (if lexical-tmp-59190 + (apply (lambda (lexical-d-59191 + lexical-tmid-59192 + lexical-tmp-59193 + lexical-other-id-59194) (values - '() - ids938)) - tmp972) - ((lambda (tmp973) - (if tmp973 - (apply - (lambda (x974) - (call-with-values - (lambda () - (cvt937 - x974 - n939 - ids938)) - (lambda (p976 - ids975) - (values - (vector - 'vector - p976) - ids975)))) - tmp973) - ((lambda (x978) - (values - (vector - 'atom - (strip522 - p940 - '(()))) - ids938)) - tmp941))) - ($syntax-dispatch - tmp941 - '#(vector - each-any))))) - ($syntax-dispatch - tmp941 - '())))) - ($syntax-dispatch - tmp941 - '(any . - any))))) - ($syntax-dispatch - tmp941 - '(any any - . - #(each+ - any - () - any)))))) - ($syntax-dispatch - tmp941 - '(any any)))) - p940))))) - (cvt937 pattern935 '0 '())))) - (build-dispatch-call859 (lambda (pvars927 exp926 y925 - r924 mr923 m?922) - ((lambda (ids929 levels928) - ((lambda (labels931 - new-vars930) - (cons - 'apply - (list - (list - 'lambda - new-vars930 - (chi498 exp926 - (extend-env*296 - labels931 - (map (lambda (var933 - level932) - (cons - 'syntax - (cons - var933 - level932))) - new-vars930 - (map cdr - pvars927)) - r924) - mr923 - (make-binding-wrap417 - ids929 - labels931 - '(())) - m?922)) - y925))) - (gen-labels364 ids929) - (map gen-var523 - ids929))) - (map car pvars927) - (map cdr pvars927)))) - (gen-clause860 (lambda (x905 keys904 clauses903 r902 - mr901 m?900 pat899 fender898 - exp897) - (call-with-values - (lambda () - (convert-pattern858 - pat899 - keys904)) - (lambda (p907 pvars906) - (if (not (distinct-bound-ids?440 - (map car pvars906))) - (invalid-ids-error441 - (map car pvars906) - pat899 - '"pattern variable") - (if (not (andmap - (lambda (x908) - (not (ellipsis?519 - (car x908)))) - pvars906)) - (syntax-error - pat899 - '"misplaced ellipsis in syntax-case pattern") - ((lambda (y909) - (cons - (list - 'lambda - (list y909) - (list - 'if - ((lambda (tmp919) - ((lambda (tmp920) - (if tmp920 - (apply - (lambda () - y909) - tmp920) - ((lambda (_921) - (list - 'if - y909 - (build-dispatch-call859 - pvars906 - fender898 - y909 - r902 - mr901 - m?900) - (list - 'quote - '#f))) - tmp919))) - ($syntax-dispatch - tmp919 - '#(atom - #t)))) - fender898) - (build-dispatch-call859 - pvars906 - exp897 y909 - r902 mr901 - m?900) - (gen-syntax-case861 - x905 keys904 - clauses903 - r902 mr901 - m?900))) - (list - (if (eq? p907 - 'any) - (cons - 'list - (list x905)) - (cons - '$syntax-dispatch - (list - x905 - (list - 'quote - p907))))))) - (gen-var523 - 'tmp)))))))) - (gen-syntax-case861 (lambda (x885 keys884 clauses883 - r882 mr881 m?880) - (if (null? clauses883) - (cons - 'syntax-error - (list x885)) - ((lambda (tmp886) - ((lambda (tmp887) - (if tmp887 - (apply - (lambda (pat889 - exp888) - (if (if (id?306 - pat889) - (if (not (bound-id-member?442 - pat889 - keys884)) - (not (ellipsis?519 - pat889)) - '#f) - '#f) - ((lambda (label891 - var890) - (cons - (list - 'lambda - (list - var890) - (chi498 - exp888 - (extend-env295 - label891 - (cons - 'syntax - (cons - var890 - '0)) - r882) - mr881 - (make-binding-wrap417 - (list - pat889) - (list - label891) - '(())) - m?880)) - (list - x885))) - (gen-label362) - (gen-var523 - pat889)) - (gen-clause860 - x885 - keys884 - (cdr clauses883) - r882 - mr881 - m?880 - pat889 - '#t - exp888))) - tmp887) - ((lambda (tmp892) - (if tmp892 - (apply - (lambda (pat895 - fender894 - exp893) - (gen-clause860 - x885 - keys884 - (cdr clauses883) - r882 - mr881 - m?880 - pat895 - fender894 - exp893)) - tmp892) - ((lambda (_896) - (syntax-error - (car clauses883) - '"invalid syntax-case clause")) - tmp886))) - ($syntax-dispatch - tmp886 - '(any any - any))))) - ($syntax-dispatch - tmp886 - '(any any)))) - (car clauses883)))))) - (lambda (e867 r866 mr865 w864 ae863 m?862) - ((lambda (e868) - ((lambda (tmp869) - ((lambda (tmp870) - (if tmp870 - (apply - (lambda (_874 val873 key872 m871) - (if (andmap - (lambda (x876) - (if (id?306 x876) - (not (ellipsis?519 x876)) - '#f)) - key872) - ((lambda (x877) - (cons - (list - 'lambda - (list x877) - (gen-syntax-case861 x877 key872 - m871 r866 mr865 m?862)) - (list - (chi498 val873 r866 mr865 '(()) - m?862)))) - (gen-var523 'tmp)) - (syntax-error - e868 - '"invalid literals list in"))) - tmp870) - (syntax-error tmp869))) - ($syntax-dispatch - tmp869 - '(any any each-any . each-any)))) - e868)) - (source-wrap444 e867 w864 ae863))))))) - (put-cte-hook137 - 'module - (lambda (x827) - (letrec ((proper-export?828 (lambda (e851) - ((lambda (tmp852) - ((lambda (tmp853) - (if tmp853 - (apply - (lambda (id855 e854) - (if (identifier? - id855) - (andmap - proper-export?828 - e854) - '#f)) - tmp853) - ((lambda (id857) - (identifier? id857)) - tmp852))) - ($syntax-dispatch - tmp852 - '(any . each-any)))) - e851)))) - ((lambda (tmp829) - ((lambda (orig830) - ((lambda (tmp831) - ((lambda (tmp832) - (if tmp832 - (apply - (lambda (_835 e834 d833) - (if (andmap proper-export?828 e834) - (list - '#(syntax-object begin ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object $module ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig830 - (cons - '#(syntax-object anon ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons e834 d833)))) - (cons - '#(syntax-object $import ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig830 - '#(syntax-object (#f anon) ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))))) - (syntax-error - x827 - '"invalid exports list in"))) - tmp832) - ((lambda (tmp839) - (if (if tmp839 - (apply - (lambda (_843 m842 e841 d840) - (identifier? m842)) - tmp839) - '#f) - (apply - (lambda (_847 m846 e845 d844) - (if (andmap proper-export?828 e845) - (cons - '#(syntax-object $module ((top) #(ribcage #(_ m e d) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig830 - (cons - m846 - (cons e845 d844)))) - (syntax-error - x827 - '"invalid exports list in"))) - tmp839) - (syntax-error tmp831))) - ($syntax-dispatch - tmp831 - '(any any each-any . each-any))))) - ($syntax-dispatch - tmp831 - '(any each-any . each-any)))) - x827)) - tmp829)) - x827)))) - ((lambda () - (letrec (($module-exports628 (lambda (m819 r818) - ((lambda (b820) - ((lambda (t821) - (if (memv t821 '($module)) - ((lambda (interface822) - ((lambda (new-marks823) - ((lambda () - (vmap487 - (lambda (x824) - ((lambda (id825) - (make-syntax-object63 - (syntax-object->datum - id825) - ((lambda (marks826) - (make-wrap315 - marks826 - (if (eq? (car marks826) - '#f) - (cons - 'shift - (wrap-subst317 - '((top)))) - (wrap-subst317 - '((top)))))) - (join-marks423 - new-marks823 - (wrap-marks316 - (syntax-object-wrap66 - id825)))))) - (if (pair? - x824) - (car x824) - x824))) - (interface-exports454 - interface822))))) - (import-mark-delta505 - m819 - interface822))) - (binding-value282 - b820)) - (if (memv - t821 - '(displaced-lexical)) - (displaced-lexical-error299 - m819) - (syntax-error - m819 - '"unknown module")))) - (binding-type281 b820))) - (r818 m819)))) - ($import-help629 (lambda (orig633 import-only?632) - (lambda (r634) - (letrec ((difference635 (lambda (ls1817 - ls2816) - (if (null? - ls1817) - ls1817 - (if (bound-id-member?442 - (car ls1817) - ls2816) - (difference635 - (cdr ls1817) - ls2816) - (cons - (car ls1817) - (difference635 - (cdr ls1817) - ls2816)))))) - (prefix-add636 (lambda (prefix-id813) - ((lambda (prefix814) - (lambda (id815) - (datum->syntax-object - id815 - (string->symbol - (string-append - prefix814 - (symbol->string - (syntax-object->datum - id815))))))) - (symbol->string - (syntax-object->datum - prefix-id813))))) - (prefix-drop637 (lambda (prefix-id807) - ((lambda (prefix808) - (lambda (id809) - ((lambda (s810) - ((lambda (np812 - ns811) - (begin - (if (not (if (>= ns811 - np812) - (string=? - (substring - s810 - '0 - np812) - prefix808) - '#f)) - (syntax-error - id809 - (string-append - '"missing expected prefix " - prefix808)) - (void)) - (datum->syntax-object - id809 - (string->symbol - (substring - s810 - np812 - ns811))))) - (string-length - prefix808) - (string-length - s810))) - (symbol->string - (syntax-object->datum - id809))))) - (symbol->string - (syntax-object->datum - prefix-id807))))) - (gen-mid638 (lambda (mid804) - (datum->syntax-object - mid804 - (generate-id143 - ((lambda (x805) - ((lambda (e806) - (if (annotation?132 - e806) - (annotation-expression - e806) - e806)) - (if (syntax-object?64 - x805) - (syntax-object-expression65 - x805) - x805))) - mid804))))) - (modspec639 (lambda (m655 - exports?654) - ((lambda (tmp656) - ((lambda (tmp657) - (if tmp657 - (apply - (lambda (orig659 - import-only?658) - ((lambda (tmp660) - ((lambda (tmp661) - (if (if tmp661 - (apply - (lambda (m663 - id662) - (andmap - identifier? - id662)) - tmp661) - '#f) - (apply - (lambda (m666 - id665) - (call-with-values - (lambda () - (modspec639 - m666 - '#f)) - (lambda (mid669 - d668 - exports667) - ((lambda (tmp670) - ((lambda (tmp671) - (if tmp671 - (apply - (lambda (d673 - tmid672) - (values - mid669 - (list - '#(syntax-object begin ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object $module ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - tmid672 - id665 - d673) - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid672)) - (if exports?654 - id665 - '#f))) - tmp671) - (syntax-error - tmp670))) - ($syntax-dispatch - tmp670 - '(any any)))) - (list - d668 - (gen-mid638 - mid669)))))) - tmp661) - ((lambda (tmp676) - (if (if tmp676 - (apply - (lambda (m678 - id677) - (andmap - identifier? - id677)) - tmp676) - '#f) - (apply - (lambda (m681 - id680) - (call-with-values - (lambda () - (modspec639 - m681 - '#t)) - (lambda (mid684 - d683 - exports682) - ((lambda (tmp685) - ((lambda (tmp687) - (if tmp687 - (apply - (lambda (d690 - tmid689 - id688) - (values - mid684 - (list - '#(syntax-object begin ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object $module ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - tmid689 - id688 - d690) - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid689)) - (if exports?654 - id688 - '#f))) - tmp687) - (syntax-error - tmp685))) - ($syntax-dispatch - tmp685 - '(any any - each-any)))) - (list - d683 - (gen-mid638 - mid684) - (difference635 - exports682 - id680)))))) - tmp676) - ((lambda (tmp693) - (if (if tmp693 - (apply - (lambda (m695 - prefix-id694) - (identifier? - prefix-id694)) - tmp693) - '#f) - (apply - (lambda (m697 - prefix-id696) - (call-with-values - (lambda () - (modspec639 - m697 - '#t)) - (lambda (mid700 - d699 - exports698) - ((lambda (tmp701) - ((lambda (tmp702) - (if tmp702 - (apply - (lambda (d707 - tmid706 - old-id705 - tmp704 - id703) - (values - mid700 - (list - '#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid706 - (cons + lexical-mid-59186 + (list '#(syntax-object + begin + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59192 + (cons (append (map list - id703 - tmp704) - (cons - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid706 - (cons - (map list - tmp704 - old-id705) - (cons - d707 - (map (lambda (tmp714 - tmp713) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp713 - tmp714)) - old-id705 - tmp704)))))) - (cons - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid706) - (map (lambda (tmp716 - tmp715) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp715 - tmp716)) - tmp704 - id703))))))) - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid706)) - (if exports?654 - id703 - '#f))) - tmp702) - (syntax-error - tmp701))) - ($syntax-dispatch - tmp701 - '(any any - each-any - each-any - each-any)))) - (list - d699 - (gen-mid638 - mid700) - exports698 - (generate-temporaries - exports698) - (map (prefix-add636 - prefix-id696) - exports698)))))) - tmp693) - ((lambda (tmp717) - (if (if tmp717 - (apply - (lambda (m719 - prefix-id718) - (identifier? - prefix-id718)) - tmp717) - '#f) - (apply - (lambda (m721 - prefix-id720) - (call-with-values - (lambda () - (modspec639 - m721 - '#t)) - (lambda (mid724 - d723 - exports722) - ((lambda (tmp725) - ((lambda (tmp726) - (if tmp726 - (apply - (lambda (d731 - tmid730 - old-id729 - tmp728 - id727) - (values - mid724 - (list - '#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid730 - (cons - (map list - id727 - tmp728) - (cons - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid730 - (cons - (map list - tmp728 - old-id729) - (cons - d731 - (map (lambda (tmp738 - tmp737) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp737 - tmp738)) - old-id729 - tmp728)))))) - (cons - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid730) - (map (lambda (tmp740 - tmp739) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp739 - tmp740)) - tmp728 - id727))))))) - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid730)) - (if exports?654 - id727 - '#f))) - tmp726) - (syntax-error - tmp725))) - ($syntax-dispatch - tmp725 - '(any any - each-any - each-any - each-any)))) - (list - d723 - (gen-mid638 - mid724) - exports722 - (generate-temporaries - exports722) - (map (prefix-drop637 - prefix-id720) - exports722)))))) - tmp717) - ((lambda (tmp741) - (if (if tmp741 - (apply - (lambda (m744 - new-id743 - old-id742) - (if (andmap - identifier? - new-id743) - (andmap - identifier? - old-id742) - '#f)) - tmp741) - '#f) - (apply - (lambda (m749 - new-id748 - old-id747) - (call-with-values - (lambda () - (modspec639 - m749 - '#t)) - (lambda (mid752 - d751 - exports750) - ((lambda (tmp753) - ((lambda (tmp756) - (if tmp756 - (apply - (lambda (d760 - tmid759 - tmp758 - other-id757) - (values - mid752 - (list - '#(syntax-object begin ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid759 - (cons - (append - (map list - new-id748 - tmp758) - other-id757) - (cons - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid759 - (cons - (append - other-id757 - (map list - tmp758 - old-id747)) - (cons - d760 - (map (lambda (tmp770 - tmp769) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp769 - tmp770)) - old-id747 - tmp758)))))) - (cons - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid759) - (map (lambda (tmp772 - tmp771) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp771 - tmp772)) - tmp758 - new-id748))))))) - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid759)) - (if exports?654 - (append - new-id748 - other-id757) - '#f))) - tmp756) - (syntax-error - tmp753))) - ($syntax-dispatch - tmp753 - '(any any - each-any - each-any)))) - (list - d751 - (gen-mid638 - mid752) - (generate-temporaries - old-id747) - (difference635 - exports750 - old-id747)))))) - tmp741) - ((lambda (tmp773) - (if (if tmp773 - (apply - (lambda (m776 - new-id775 - old-id774) - (if (andmap - identifier? - new-id775) - (andmap - identifier? - old-id774) - '#f)) - tmp773) - '#f) - (apply - (lambda (m781 - new-id780 - old-id779) - (call-with-values - (lambda () - (modspec639 - m781 - '#t)) - (lambda (mid784 - d783 - exports782) - ((lambda (tmp785) - ((lambda (tmp786) - (if tmp786 - (apply - (lambda (d789 - tmid788 - other-id787) - (values - mid784 - (list - '#(syntax-object begin ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object $module ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - orig659 - (cons - tmid788 - (cons - (append - (map list - new-id780 - old-id779) - other-id787) - (cons - d789 - (map (lambda (tmp796 - tmp795) - (list - '#(syntax-object alias ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp795 - tmp796)) - old-id779 - new-id780)))))) - (list - '#(syntax-object $import ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - tmid788)) - (if exports?654 - (append - new-id780 - other-id787) - '#f))) - tmp786) - (syntax-error - tmp785))) - ($syntax-dispatch - tmp785 - '(any any - each-any)))) - (list - d783 - (gen-mid638 - mid784) - exports782))))) - tmp773) - ((lambda (tmp797) - (if (if tmp797 - (apply - (lambda (mid798) - (identifier? - mid798)) - tmp797) - '#f) - (apply - (lambda (mid799) - (values - mid799 - (list - '#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - mid799) - (if exports?654 - ($module-exports628 - mid799 - r634) - '#f))) - tmp797) - ((lambda (tmp800) - (if (if tmp800 - (apply - (lambda (mid801) - (identifier? - mid801)) - tmp800) - '#f) - (apply - (lambda (mid802) - (values - mid802 - (list - '#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - orig659 - import-only?658 - mid802) - (if exports?654 - ($module-exports628 - mid802 - r634) - '#f))) - tmp800) - ((lambda (_803) - (syntax-error - m655 - '"invalid module specifier")) - tmp660))) - ($syntax-dispatch - tmp660 - '(any))))) - (list - tmp660)))) - ($syntax-dispatch - tmp660 - '(#(free-id - #(syntax-object alias ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any - . - #(each - (any any))))))) - ($syntax-dispatch - tmp660 - '(#(free-id - #(syntax-object rename ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any - . - #(each - (any any))))))) - ($syntax-dispatch - tmp660 - '(#(free-id - #(syntax-object drop-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any - any))))) - ($syntax-dispatch - tmp660 - '(#(free-id - #(syntax-object add-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any - any))))) - ($syntax-dispatch - tmp660 - '(#(free-id - #(syntax-object except ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any - . - each-any))))) + lexical-new-id-59184 + lexical-tmp-59193) + lexical-other-id-59194) + (cons (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59192 + (cons (append + lexical-other-id-59194 + (map list + lexical-tmp-59193 + lexical-old-id-59185)) + (cons lexical-d-59191 + (map (lambda (lexical-tmp-59202 + lexical-tmp-59201) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59201 + lexical-tmp-59202)) + lexical-old-id-59185 + lexical-tmp-59193)))))) + (cons (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59192) + (map (lambda (lexical-tmp-59204 + lexical-tmp-59203) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59203 + lexical-tmp-59204)) + lexical-tmp-59193 + lexical-new-id-59184))))))) + (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + tmp + other-id) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59192)) + (if lexical-exports?-59091 + (append + lexical-new-id-59184 + lexical-other-id-59194) + '#f))) + lexical-tmp-59190) + (syntax-error + lexical-tmp-59189))) + ($syntax-dispatch + lexical-tmp-59189 + '(any any + each-any + each-any)))) + (list lexical-d-59187 + (lexical-gen-mid-59073 + lexical-mid-59186) + (generate-temporaries + lexical-old-id-59185) + (lexical-difference-59070 + lexical-exports-59188 + lexical-old-id-59185)))))) + lexical-tmp-59177) + ((lambda (lexical-tmp-59209) + (if (if lexical-tmp-59209 + (apply (lambda (lexical-m-59210 + lexical-new-id-59211 + lexical-old-id-59212) + (if (andmap + identifier? + lexical-new-id-59211) + (andmap + identifier? + lexical-old-id-59212) + '#f)) + lexical-tmp-59209) + '#f) + (apply (lambda (lexical-m-59215 + lexical-new-id-59216 + lexical-old-id-59217) + (call-with-values + (lambda () + (lexical-modspec-59074 + lexical-m-59215 + '#t)) + (lambda (lexical-mid-59218 + lexical-d-59219 + lexical-exports-59220) + ((lambda (lexical-tmp-59221) + ((lambda (lexical-tmp-59222) + (if lexical-tmp-59222 + (apply (lambda (lexical-d-59223 + lexical-tmid-59224 + lexical-other-id-59225) + (values + lexical-mid-59218 + (list '#(syntax-object + begin + ((top) + #(ribcage + #(d + tmid + other-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons '#(syntax-object + $module + ((top) + #(ribcage + #(d + tmid + other-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-orig-59094 + (cons lexical-tmid-59224 + (cons (append + (map list + lexical-new-id-59216 + lexical-old-id-59217) + lexical-other-id-59225) + (cons lexical-d-59223 + (map (lambda (lexical-tmp-59230 + lexical-tmp-59229) + (list '#(syntax-object + alias + ((top) + #(ribcage + #(d + tmid + other-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59229 + lexical-tmp-59230)) + lexical-old-id-59217 + lexical-new-id-59216)))))) + (list '#(syntax-object + $import + ((top) + #(ribcage + #(d + tmid + other-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(mid + d + exports) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(m + new-id + old-id) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-tmid-59224)) + (if lexical-exports?-59091 + (append + lexical-new-id-59216 + lexical-other-id-59225) + '#f))) + lexical-tmp-59222) + (syntax-error + lexical-tmp-59221))) + ($syntax-dispatch + lexical-tmp-59221 + '(any any + each-any)))) + (list lexical-d-59219 + (lexical-gen-mid-59073 + lexical-mid-59218) + lexical-exports-59220))))) + lexical-tmp-59209) + ((lambda (lexical-tmp-59233) + (if (if lexical-tmp-59233 + (apply (lambda (lexical-mid-59234) + (identifier? + lexical-mid-59234)) + lexical-tmp-59233) + '#f) + (apply (lambda (lexical-mid-59235) + (values + lexical-mid-59235 + (list '#(syntax-object + $import + ((top) + #(ribcage + #(mid) + #((top)) + #("i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-mid-59235) + (if lexical-exports?-59091 + (lexical-$module-exports-59056 + lexical-mid-59235 + lexical-r-59069) + '#f))) + lexical-tmp-59233) + ((lambda (lexical-tmp-59236) + (if (if lexical-tmp-59236 + (apply (lambda (lexical-mid-59237) + (identifier? + lexical-mid-59237)) + lexical-tmp-59236) + '#f) + (apply (lambda (lexical-mid-59238) + (values + lexical-mid-59238 + (list '#(syntax-object + $import + ((top) + #(ribcage + #(mid) + #((top)) + #("i")) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-orig-59094 + lexical-import-only?-59095 + lexical-mid-59238) + (if lexical-exports?-59091 + (lexical-$module-exports-59056 + lexical-mid-59238 + lexical-r-59069) + '#f))) + lexical-tmp-59236) + ((lambda (lexical-_-59239) + (syntax-error + lexical-m-59090 + '"invalid module specifier")) + lexical-tmp-59096))) ($syntax-dispatch - tmp660 - '(#(free-id - #(syntax-object only ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any - . - each-any)))) - m655)) - tmp657) - (syntax-error - tmp656))) - ($syntax-dispatch - tmp656 - '(any any)))) - (list - orig633 - import-only?632)))) - (modspec*640 (lambda (m650) - (call-with-values - (lambda () - (modspec639 - m650 - '#f)) - (lambda (mid653 - d652 - exports651) - d652))))) - ((lambda (tmp641) - ((lambda (tmp642) - (if tmp642 - (apply - (lambda (_644 m643) - ((lambda (tmp645) - ((lambda (tmp647) - (if tmp647 - (apply - (lambda (d648) - (cons - '#(syntax-object begin ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage #(_ m) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - d648)) - tmp647) - (syntax-error - tmp645))) - ($syntax-dispatch - tmp645 - 'each-any))) - (map modspec*640 - m643))) - tmp642) - (syntax-error tmp641))) + lexical-tmp-59096 + '(any))))) + (list lexical-tmp-59096)))) + ($syntax-dispatch + lexical-tmp-59096 + '(#(free-id + #(syntax-object + alias + ((top) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) + any + . + #(each + (any any))))))) + ($syntax-dispatch + lexical-tmp-59096 + '(#(free-id + #(syntax-object + rename + ((top) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) + any + . + #(each + (any any))))))) + ($syntax-dispatch + lexical-tmp-59096 + '(#(free-id + #(syntax-object + drop-prefix + ((top) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" + "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" + "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" + top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) + any + any))))) + ($syntax-dispatch + lexical-tmp-59096 + '(#(free-id + #(syntax-object + add-prefix + ((top) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m + exports?) + #((top) + (top)) + #("i" "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) + any + any))))) + ($syntax-dispatch + lexical-tmp-59096 + '(#(free-id + #(syntax-object + except + ((top) + #(ribcage + #(orig + import-only?) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(m exports?) + #((top) (top)) + #("i" "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) (top)) + #("i" "i")) + #(ribcage + ($import-help + $module-exports) + ((top) (top)) + ("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) + any + . + each-any))))) ($syntax-dispatch - tmp641 - '(any . each-any)))) - orig633)))))) + lexical-tmp-59096 + '(#(free-id + #(syntax-object + only + ((top) + #(ribcage + #(orig import-only?) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(m exports?) + #((top) (top)) + #("i" "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(orig import-only?) + #((top) (top)) + #("i" "i")) + #(ribcage + ($import-help + $module-exports) + ((top) (top)) + ("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) + any + . + each-any)))) + lexical-m-59090)) + lexical-tmp-59093) + (syntax-error lexical-tmp-59092))) + ($syntax-dispatch lexical-tmp-59092 '(any any)))) + (list lexical-orig-59067 + lexical-import-only?-59068)))) + (lexical-modspec*-59075 + (lambda (lexical-m-59240) + (call-with-values + (lambda () + (lexical-modspec-59074 lexical-m-59240 '#f)) + (lambda (lexical-mid-59241 + lexical-d-59242 + lexical-exports-59243) + lexical-d-59242))))) + ((lambda (lexical-tmp-59244) + ((lambda (lexical-tmp-59245) + (if lexical-tmp-59245 + (apply (lambda (lexical-_-59246 lexical-m-59247) + ((lambda (lexical-tmp-59248) + ((lambda (lexical-tmp-59249) + (if lexical-tmp-59249 + (apply (lambda (lexical-d-59250) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage + #(_ m) + #((top) + (top)) + #("i" "i")) + #(ribcage + (modspec* + modspec + gen-mid + prefix-drop + prefix-add + difference) + ((top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + #(r) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig + import-only?) + #((top) + (top)) + #("i" "i")) + #(ribcage + ($import-help + $module-exports) + ((top) + (top)) + ("i" "i")) + #(ribcage + (lambda-var-list + gen-var + strip + strip* + strip-annotation + ellipsis? + chi-void + chi-local-syntax + chi-lambda-clause + parse-begin + parse-alias + parse-eval-when + parse-meta + parse-define-syntax + parse-define + parse-import + parse-module + do-import! + lookup-import-label + import-mark-delta + chi-internal + chi-body + chi-macro + chi-set! + chi-application + chi-expr + chi + chi-sequence + chi-meta-frob + chi-frobs + ct-eval/residualize3 + ct-eval/residualize2 + rt-eval/residualize + initial-mode-set + update-mode-set + do-top-import + vfor-each + vmap + chi-external + check-defined-ids + check-module-exports + id-set-diff + chi-top-module + set-frob-meta?! + set-frob-e! + frob-meta? + frob-e + frob? + make-frob + create-module-binding + set-module-binding-exported! + set-module-binding-val! + set-module-binding-imps! + set-module-binding-label! + set-module-binding-id! + set-module-binding-type! + module-binding-exported + module-binding-val + module-binding-imps + module-binding-label + module-binding-id + module-binding-type + module-binding? + make-module-binding + make-resolved-interface + make-unresolved-interface + set-interface-token! + set-interface-exports! + set-interface-marks! + interface-token + interface-exports + interface-marks + interface? + make-interface + flatten-exports + chi-top + chi-top-sequence + chi-top* + syntax-type + chi-when-list + source-wrap + wrap + bound-id-member? + invalid-ids-error + distinct-bound-ids? + valid-bound-ids? + bound-id=? + help-bound-id=? + literal-id=? + free-id=? + id-var-name + id-var-name-loc + id-var-name&marks + id-var-name-loc&marks + top-id-free-var-name + top-id-bound-var-name + anon + diff-marks + same-marks? + join-subst + join-marks + join-wraps + smart-append + resolved-id-var-name + id->resolved-id + make-resolved-id + make-binding-wrap + store-import-binding + lookup-import-binding-name + extend-ribcage-subst! + extend-ribcage-barrier-help! + extend-ribcage-barrier! + import-extend-ribcage! + extend-ribcage! + make-empty-ribcage + barrier-marker + new-mark + anti-mark + the-anti-mark + set-env-wrap! + set-env-top-ribcage! + env-wrap + env-top-ribcage + env? + make-env + set-import-interface-new-marks! + set-import-interface-interface! + import-interface-new-marks + import-interface-interface + import-interface? + make-import-interface + set-top-ribcage-mutable?! + set-top-ribcage-key! + top-ribcage-mutable? + top-ribcage-key + top-ribcage? + make-top-ribcage + set-ribcage-labels! + set-ribcage-marks! + set-ribcage-symnames! + ribcage-labels + ribcage-marks + ribcage-symnames + ribcage? + make-ribcage + gen-labels + label? + gen-label + set-indirect-label! + get-indirect-label + indirect-label? + gen-indirect-label + anon + only-top-marked? + top-marked? + tmp-wrap + top-wrap + empty-wrap + wrap-subst + wrap-marks + make-wrap + id-sym-name&marks + id-subst + id-marks + id-sym-name + id? + nonsymbol-id? + global-extend + defer-or-eval-transformer + make-transformer-binding + lookup + lookup* + displaced-lexical-error + displaced-lexical? + extend-var-env* + extend-env* + extend-env + null-env + binding? + set-binding-value! + set-binding-type! + binding-value + binding-type + make-binding + sanitize-binding + arg-check + no-source + unannotate + self-evaluating? + lexical-var? + build-lexical-var + build-top-module + build-body + build-letrec* + build-letrec + build-sequence + build-data + build-primref + built-lambda? + build-lambda + build-revisit-only + build-visit-only + build-cte-install + build-global-definition + build-global-assignment + build-global-reference + build-lexical-assignment + build-lexical-reference + build-conditional + build-application + generate-id + update-import-binding! + get-import-binding + read-only-binding? + put-global-definition-hook + get-global-definition-hook + put-cte-hook + error-hook + define-top-level-value-hook + local-eval-hook + top-level-eval-hook + annotation? + fx>= + fx<= + fx> + fx< + fx= + fx- + fx+ + set-syntax-object-wrap! + set-syntax-object-expression! + syntax-object-wrap + syntax-object-expression + syntax-object? + make-syntax-object + noexpand + let-values + define-structure + unless + when) + ((top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + ("m" top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-d-59250)) + lexical-tmp-59249) + (syntax-error + lexical-tmp-59248))) + ($syntax-dispatch + lexical-tmp-59248 + 'each-any))) + (map lexical-modspec*-59075 + lexical-m-59247))) + lexical-tmp-59245) + (syntax-error lexical-tmp-59244))) + ($syntax-dispatch + lexical-tmp-59244 + '(any . each-any)))) + lexical-orig-59067)))))) (begin - (put-cte-hook137 + (lexical-put-cte-hook-56957 'import - (lambda (orig631) ($import-help629 orig631 '#f))) - (put-cte-hook137 + (lambda (lexical-orig-59253) + (lexical-$import-help-59057 + lexical-orig-59253 + '#f))) + (lexical-put-cte-hook-56957 'import-only - (lambda (orig630) ($import-help629 orig630 '#t))))))) + (lambda (lexical-orig-59254) + (lexical-$import-help-59057 + lexical-orig-59254 + '#t))))))) (set! sc-expand - ((lambda (ctem625 rtem624) - (lambda (x626) - ((lambda (env627) - (if (if (pair? x626) (equal? (car x626) noexpand62) '#f) - (cadr x626) - (chi-top*447 x626 '() (env-wrap388 env627) ctem625 - rtem624 '#f (env-top-ribcage387 env627)))) - (interaction-environment)))) - '(e) - '(e))) + (lambda (lexical-x-59255 + lexical-env-59256 + lexical-ctem-59257 + lexical-rtem-59258) + ((lambda (lexical-env-59259 + lexical-ctem-59260 + lexical-rtem-59261) + (if (if (pair? lexical-x-59255) + (equal? + (car lexical-x-59255) + lexical-noexpand-56881) + '#f) + (cadr lexical-x-59255) + (lexical-chi-top*-57268 + lexical-x-59255 + '() + (lexical-env-wrap-57209 lexical-env-59259) + lexical-ctem-59260 + lexical-rtem-59261 + '#f + (lexical-env-top-ribcage-57208 lexical-env-59259)))) + ((lambda (lexical-t-59262) + (if lexical-t-59262 + lexical-t-59262 + (interaction-environment))) + lexical-env-59256) + ((lambda (lexical-t-59263) + (if lexical-t-59263 lexical-t-59263 '(E))) + lexical-ctem-59257) + ((lambda (lexical-t-59264) + (if lexical-t-59264 lexical-t-59264 '(E))) + lexical-rtem-59258)))) (set! $make-environment - (lambda (token622 mutable?621) - ((lambda (top-ribcage623) - (make-env385 - top-ribcage623 - (make-wrap315 - (wrap-marks316 '((top))) - (cons top-ribcage623 (wrap-subst317 '((top))))))) - (make-top-ribcage373 token622 mutable?621)))) - (set! environment? (lambda (x620) (env?386 x620))) + (lambda (lexical-token-59265 lexical-mutable?-59266) + ((lambda (lexical-top-ribcage-59267) + (lexical-make-env-57206 + lexical-top-ribcage-59267 + (lexical-make-wrap-57136 + (lexical-wrap-marks-57137 '((top))) + (cons lexical-top-ribcage-59267 + (lexical-wrap-subst-57138 '((top))))))) + (lexical-make-top-ribcage-57194 + lexical-token-59265 + lexical-mutable?-59266)))) + (set! environment? + (lambda (lexical-x-59268) + (lexical-env?-57207 lexical-x-59268))) (set! interaction-environment - ((lambda (e619) (lambda () e619)) - ($make-environment '*top* '#t))) - (set! identifier? (lambda (x618) (nonsymbol-id?305 x618))) + ((lambda (lexical-e-59269) + (lambda () lexical-e-59269)) + ($make-environment '*top* '#t))) + (set! identifier? + (lambda (lexical-x-59270) + (lexical-nonsymbol-id?-57126 lexical-x-59270))) (set! datum->syntax-object - (lambda (id616 datum615) + (lambda (lexical-id-59271 lexical-datum-59272) (begin - ((lambda (x617) - (if (not (nonsymbol-id?305 x617)) - (error-hook136 - 'datum->syntax-object - '"invalid argument" - x617) - (void))) - id616) - (make-syntax-object63 - datum615 - (syntax-object-wrap66 id616))))) - (set! syntax->list - (lambda (orig-ls606) - ((letrec ((f607 (lambda (ls608) - ((lambda (tmp609) - ((lambda (tmp610) - (if tmp610 - (apply (lambda () '()) tmp610) - ((lambda (tmp611) - (if tmp611 - (apply - (lambda (x613 r612) - (cons x613 (f607 r612))) - tmp611) - ((lambda (_614) - (error 'syntax->list - '"invalid argument ~s" - orig-ls606)) - tmp609))) - ($syntax-dispatch - tmp609 - '(any . any))))) - ($syntax-dispatch tmp609 '()))) - ls608)))) - f607) - orig-ls606))) - (set! syntax->vector - (lambda (v600) - ((lambda (tmp601) - ((lambda (tmp602) - (if tmp602 - (apply - (lambda (x603) (apply vector (syntax->list x603))) - tmp602) - ((lambda (_605) - (error 'syntax->vector - '"invalid argument ~s" - v600)) - tmp601))) - ($syntax-dispatch tmp601 '#(vector each-any)))) - v600))) + ((lambda (lexical-x-59273) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59273)) + (lexical-error-hook-56956 + 'datum->syntax-object + '"invalid argument" + lexical-x-59273) + (void))) + lexical-id-59271) + (lexical-make-syntax-object-56883 + lexical-datum-59272 + (lexical-syntax-object-wrap-56886 + lexical-id-59271))))) + (set! unwrap-syntax + (lambda (lexical-stx-59274) + ((lambda (lexical-tmp-59275) + ((lambda (lexical-tmp-59276) + (if lexical-tmp-59276 + (apply (lambda (lexical-first-59277 lexical-rest-59278) + (cons lexical-first-59277 lexical-rest-59278)) + lexical-tmp-59276) + ((lambda (lexical-tmp-59279) + (if lexical-tmp-59279 + (apply (lambda (lexical-x-59280) + (apply vector lexical-x-59280)) + lexical-tmp-59279) + ((lambda (lexical-_-59282) lexical-stx-59274) + lexical-tmp-59275))) + ($syntax-dispatch + lexical-tmp-59275 + '#(vector each-any))))) + ($syntax-dispatch lexical-tmp-59275 '(any . any)))) + lexical-stx-59274))) (set! syntax-object->datum - (lambda (x599) (strip522 x599 '(())))) + (lambda (lexical-x-59283) + (lexical-strip-57343 lexical-x-59283 '(())))) (set! generate-temporaries - ((lambda (n595) - (lambda (ls596) + ((lambda (lexical-n-59284) + (lambda (lexical-ls-59285) (begin - ((lambda (x598) - (if (not (list? x598)) - (error-hook136 - 'generate-temporaries - '"invalid argument" - x598) - (void))) - ls596) - (map (lambda (x597) + ((lambda (lexical-x-59286) + (if (not (list? lexical-x-59286)) + (lexical-error-hook-56956 + 'generate-temporaries + '"invalid argument" + lexical-x-59286) + (void))) + lexical-ls-59285) + (map (lambda (lexical-x-59287) (begin - (set! n595 (+ n595 '1)) - (wrap443 + (set! lexical-n-59284 (+ lexical-n-59284 '1)) + (lexical-wrap-57264 (string->symbol - (string-append '"t" (number->string n595))) + (string-append + '"t" + (number->string lexical-n-59284))) '((tmp))))) - ls596)))) - '0)) + lexical-ls-59285)))) + '0)) (set! free-identifier=? - (lambda (x592 y591) + (lambda (lexical-x-59288 lexical-y-59289) (begin - ((lambda (x594) - (if (not (nonsymbol-id?305 x594)) - (error-hook136 - 'free-identifier=? - '"invalid argument" - x594) - (void))) - x592) - ((lambda (x593) - (if (not (nonsymbol-id?305 x593)) - (error-hook136 - 'free-identifier=? - '"invalid argument" - x593) - (void))) - y591) - (free-id=?435 x592 y591)))) + ((lambda (lexical-x-59290) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59290)) + (lexical-error-hook-56956 + 'free-identifier=? + '"invalid argument" + lexical-x-59290) + (void))) + lexical-x-59288) + ((lambda (lexical-x-59291) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59291)) + (lexical-error-hook-56956 + 'free-identifier=? + '"invalid argument" + lexical-x-59291) + (void))) + lexical-y-59289) + (lexical-free-id=?-57256 + lexical-x-59288 + lexical-y-59289)))) (set! bound-identifier=? - (lambda (x588 y587) + (lambda (lexical-x-59292 lexical-y-59293) (begin - ((lambda (x590) - (if (not (nonsymbol-id?305 x590)) - (error-hook136 - 'bound-identifier=? - '"invalid argument" - x590) - (void))) - x588) - ((lambda (x589) - (if (not (nonsymbol-id?305 x589)) - (error-hook136 - 'bound-identifier=? - '"invalid argument" - x589) - (void))) - y587) - (bound-id=?438 x588 y587)))) + ((lambda (lexical-x-59294) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59294)) + (lexical-error-hook-56956 + 'bound-identifier=? + '"invalid argument" + lexical-x-59294) + (void))) + lexical-x-59292) + ((lambda (lexical-x-59295) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59295)) + (lexical-error-hook-56956 + 'bound-identifier=? + '"invalid argument" + lexical-x-59295) + (void))) + lexical-y-59293) + (lexical-bound-id=?-57259 + lexical-x-59292 + lexical-y-59293)))) (set! literal-identifier=? - (lambda (x584 y583) + (lambda (lexical-x-59296 lexical-y-59297) (begin - ((lambda (x586) - (if (not (nonsymbol-id?305 x586)) - (error-hook136 - 'literal-identifier=? - '"invalid argument" - x586) - (void))) - x584) - ((lambda (x585) - (if (not (nonsymbol-id?305 x585)) - (error-hook136 - 'literal-identifier=? - '"invalid argument" - x585) - (void))) - y583) - (literal-id=?436 x584 y583)))) + ((lambda (lexical-x-59298) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59298)) + (lexical-error-hook-56956 + 'literal-identifier=? + '"invalid argument" + lexical-x-59298) + (void))) + lexical-x-59296) + ((lambda (lexical-x-59299) + (if (not (lexical-nonsymbol-id?-57126 lexical-x-59299)) + (lexical-error-hook-56956 + 'literal-identifier=? + '"invalid argument" + lexical-x-59299) + (void))) + lexical-y-59297) + (lexical-literal-id=?-57257 + lexical-x-59296 + lexical-y-59297)))) (set! syntax-error - (lambda (object578 . messages579) + (lambda (lexical-object-59301 . lexical-messages-59300) (begin (for-each - (lambda (x581) - ((lambda (x582) - (if (not (string? x582)) - (error-hook136 - 'syntax-error - '"invalid argument" - x582) - (void))) - x581)) - messages579) - ((lambda (message580) - (error-hook136 '#f message580 (strip522 object578 '(())))) - (if (null? messages579) - '"invalid syntax" - (apply string-append messages579)))))) + (lambda (lexical-x-59302) + ((lambda (lexical-x-59303) + (if (not (string? lexical-x-59303)) + (lexical-error-hook-56956 + 'syntax-error + '"invalid argument" + lexical-x-59303) + (void))) + lexical-x-59302)) + lexical-messages-59300) + ((lambda (lexical-message-59304) + (lexical-error-hook-56956 + '#f + lexical-message-59304 + (lexical-strip-57343 lexical-object-59301 '(())))) + (if (null? lexical-messages-59300) + '"invalid syntax" + (apply string-append lexical-messages-59300)))))) ((lambda () - (letrec ((match-each525 (lambda (e575 p574 w573) - (if (annotation?132 e575) - (match-each525 - (annotation-expression e575) - p574 - w573) - (if (pair? e575) - ((lambda (first576) - (if first576 - ((lambda (rest577) - (if rest577 - (cons - first576 - rest577) - '#f)) - (match-each525 - (cdr e575) - p574 - w573)) - '#f)) - (match531 - (car e575) - p574 - w573 - '())) - (if (null? e575) - '() - (if (syntax-object?64 e575) - (match-each525 - (syntax-object-expression65 - e575) - p574 - (join-wraps422 - w573 - (syntax-object-wrap66 - e575))) - '#f)))))) - (match-each+526 (lambda (e565 x-pat564 y-pat563 z-pat562 - w561 r560) - ((letrec ((f566 (lambda (e568 w567) - (if (pair? e568) - (call-with-values - (lambda () - (f566 - (cdr e568) - w567)) - (lambda (xr*571 - y-pat570 - r569) - (if r569 - (if (null? - y-pat570) - ((lambda (xr572) - (if xr572 - (values - (cons - xr572 - xr*571) - y-pat570 - r569) - (values - '#f - '#f - '#f))) - (match531 - (car e568) - x-pat564 - w567 - '())) - (values - '() - (cdr y-pat570) - (match531 - (car e568) - (car y-pat570) - w567 - r569))) - (values - '#f - '#f - '#f)))) - (if (annotation?132 - e568) - (f566 - (annotation-expression - e568) - w567) - (if (syntax-object?64 - e568) - (f566 - (syntax-object-expression65 - e568) - (join-wraps422 - w567 - (syntax-object-wrap66 - e568))) - (values - '() - y-pat563 - (match531 - e568 - z-pat562 - w567 - r560)))))))) - f566) - e565 - w561))) - (match-each-any527 (lambda (e558 w557) - (if (annotation?132 e558) - (match-each-any527 - (annotation-expression e558) - w557) - (if (pair? e558) - ((lambda (l559) - (if l559 - (cons - (wrap443 - (car e558) - w557) - l559) - '#f)) - (match-each-any527 - (cdr e558) - w557)) - (if (null? e558) - '() - (if (syntax-object?64 - e558) - (match-each-any527 - (syntax-object-expression65 - e558) - (join-wraps422 - w557 - (syntax-object-wrap66 - e558))) - '#f)))))) - (match-empty528 (lambda (p555 r554) - (if (null? p555) - r554 - (if (eq? p555 'any) - (cons '() r554) - (if (pair? p555) - (match-empty528 - (car p555) - (match-empty528 - (cdr p555) - r554)) - (if (eq? p555 'each-any) - (cons '() r554) - ((lambda (t556) - (if (memv - t556 - '(each)) - (match-empty528 - (vector-ref - p555 - '1) - r554) - (if (memv - t556 - '(each+)) - (match-empty528 - (vector-ref - p555 - '1) - (match-empty528 - (reverse - (vector-ref - p555 - '2)) - (match-empty528 - (vector-ref - p555 - '3) - r554))) - (if (memv - t556 - '(free-id - atom)) - r554 - (if (memv - t556 - '(vector)) - (match-empty528 - (vector-ref - p555 - '1) - r554) - (void)))))) - (vector-ref - p555 - '0)))))))) - (combine529 (lambda (r*553 r552) - (if (null? (car r*553)) - r552 - (cons - (map car r*553) - (combine529 - (map cdr r*553) - r552))))) - (match*530 (lambda (e545 p544 w543 r542) - (if (null? p544) - (if (null? e545) r542 '#f) - (if (pair? p544) - (if (pair? e545) - (match531 - (car e545) - (car p544) - w543 - (match531 - (cdr e545) - (cdr p544) - w543 - r542)) - '#f) - (if (eq? p544 'each-any) - ((lambda (l546) - (if l546 - (cons l546 r542) - '#f)) - (match-each-any527 - e545 - w543)) - ((lambda (t547) - (if (memv t547 '(each)) - (if (null? e545) - (match-empty528 - (vector-ref - p544 - '1) - r542) - ((lambda (r*548) - (if r*548 - (combine529 - r*548 - r542) - '#f)) - (match-each525 - e545 - (vector-ref - p544 - '1) - w543))) - (if (memv - t547 - '(free-id)) - (if (id?306 e545) - (if (literal-id=?436 - (wrap443 - e545 - w543) - (vector-ref - p544 - '1)) - r542 - '#f) - '#f) - (if (memv - t547 - '(each+)) - (call-with-values - (lambda () - (match-each+526 - e545 - (vector-ref - p544 - '1) - (vector-ref - p544 - '2) - (vector-ref - p544 - '3) - w543 - r542)) - (lambda (xr*551 - y-pat550 - r549) - (if r549 - (if (null? - y-pat550) - (if (null? - xr*551) - (match-empty528 - (vector-ref - p544 - '1) - r549) - (combine529 - xr*551 - r549)) - '#f) - '#f))) - (if (memv - t547 - '(atom)) - (if (equal? - (vector-ref - p544 - '1) - (strip522 - e545 - w543)) - r542 - '#f) - (if (memv - t547 - '(vector)) - (if (vector? - e545) - (match531 - (vector->list - e545) - (vector-ref - p544 - '1) - w543 - r542) - '#f) - (void))))))) - (vector-ref p544 '0))))))) - (match531 (lambda (e539 p538 w537 r536) - (if (not r536) - '#f - (if (eq? p538 'any) - (cons (wrap443 e539 w537) r536) - (if (syntax-object?64 e539) - (match*530 - ((lambda (e540) - (if (annotation?132 e540) - (annotation-expression - e540) - e540)) - (syntax-object-expression65 - e539)) - p538 - (join-wraps422 - w537 - (syntax-object-wrap66 e539)) - r536) - (match*530 - ((lambda (e541) - (if (annotation?132 e541) - (annotation-expression - e541) - e541)) - e539) - p538 - w537 - r536))))))) + (letrec* + ((lexical-match-each-59305 + (lambda (lexical-e-59312 lexical-p-59313 lexical-w-59314) + (if (lexical-annotation?-56952 lexical-e-59312) + (lexical-match-each-59305 + (annotation-expression lexical-e-59312) + lexical-p-59313 + lexical-w-59314) + (if (pair? lexical-e-59312) + ((lambda (lexical-first-59315) + (if lexical-first-59315 + ((lambda (lexical-rest-59316) + (if lexical-rest-59316 + (cons lexical-first-59315 lexical-rest-59316) + '#f)) + (lexical-match-each-59305 + (cdr lexical-e-59312) + lexical-p-59313 + lexical-w-59314)) + '#f)) + (lexical-match-59311 + (car lexical-e-59312) + lexical-p-59313 + lexical-w-59314 + '())) + (if (null? lexical-e-59312) + '() + (if (lexical-syntax-object?-56884 lexical-e-59312) + (lexical-match-each-59305 + (lexical-syntax-object-expression-56885 + lexical-e-59312) + lexical-p-59313 + (lexical-join-wraps-57243 + lexical-w-59314 + (lexical-syntax-object-wrap-56886 + lexical-e-59312))) + '#f)))))) + (lexical-match-each+-59306 + (lambda (lexical-e-59317 + lexical-x-pat-59318 + lexical-y-pat-59319 + lexical-z-pat-59320 + lexical-w-59321 + lexical-r-59322) + ((letrec ((lexical-f-59323 + (lambda (lexical-e-59324 lexical-w-59325) + (if (pair? lexical-e-59324) + (call-with-values + (lambda () + (lexical-f-59323 + (cdr lexical-e-59324) + lexical-w-59325)) + (lambda (lexical-xr*-59326 + lexical-y-pat-59327 + lexical-r-59328) + (if lexical-r-59328 + (if (null? lexical-y-pat-59327) + ((lambda (lexical-xr-59329) + (if lexical-xr-59329 + (values + (cons lexical-xr-59329 + lexical-xr*-59326) + lexical-y-pat-59327 + lexical-r-59328) + (values '#f '#f '#f))) + (lexical-match-59311 + (car lexical-e-59324) + lexical-x-pat-59318 + lexical-w-59325 + '())) + (values + '() + (cdr lexical-y-pat-59327) + (lexical-match-59311 + (car lexical-e-59324) + (car lexical-y-pat-59327) + lexical-w-59325 + lexical-r-59328))) + (values '#f '#f '#f)))) + (if (lexical-annotation?-56952 + lexical-e-59324) + (lexical-f-59323 + (annotation-expression lexical-e-59324) + lexical-w-59325) + (if (lexical-syntax-object?-56884 + lexical-e-59324) + (lexical-f-59323 + (lexical-syntax-object-expression-56885 + lexical-e-59324) + (lexical-join-wraps-57243 + lexical-w-59325 + (lexical-syntax-object-wrap-56886 + lexical-e-59324))) + (values + '() + lexical-y-pat-59319 + (lexical-match-59311 + lexical-e-59324 + lexical-z-pat-59320 + lexical-w-59325 + lexical-r-59322)))))))) + lexical-f-59323) + lexical-e-59317 + lexical-w-59321))) + (lexical-match-each-any-59307 + (lambda (lexical-e-59330 lexical-w-59331) + (if (lexical-annotation?-56952 lexical-e-59330) + (lexical-match-each-any-59307 + (annotation-expression lexical-e-59330) + lexical-w-59331) + (if (pair? lexical-e-59330) + ((lambda (lexical-l-59332) + (if lexical-l-59332 + (cons (lexical-wrap-57264 + (car lexical-e-59330) + lexical-w-59331) + lexical-l-59332) + '#f)) + (lexical-match-each-any-59307 + (cdr lexical-e-59330) + lexical-w-59331)) + (if (null? lexical-e-59330) + '() + (if (lexical-syntax-object?-56884 lexical-e-59330) + (lexical-match-each-any-59307 + (lexical-syntax-object-expression-56885 + lexical-e-59330) + (lexical-join-wraps-57243 + lexical-w-59331 + (lexical-syntax-object-wrap-56886 + lexical-e-59330))) + '#f)))))) + (lexical-match-empty-59308 + (lambda (lexical-p-59333 lexical-r-59334) + (if (null? lexical-p-59333) + lexical-r-59334 + (if (eq? lexical-p-59333 'any) + (cons '() lexical-r-59334) + (if (pair? lexical-p-59333) + (lexical-match-empty-59308 + (car lexical-p-59333) + (lexical-match-empty-59308 + (cdr lexical-p-59333) + lexical-r-59334)) + (if (eq? lexical-p-59333 'each-any) + (cons '() lexical-r-59334) + ((lambda (lexical-t-59335) + (if (memv lexical-t-59335 '(each)) + (lexical-match-empty-59308 + (vector-ref lexical-p-59333 '1) + lexical-r-59334) + (if (memv lexical-t-59335 '(each+)) + (lexical-match-empty-59308 + (vector-ref lexical-p-59333 '1) + (lexical-match-empty-59308 + (reverse (vector-ref lexical-p-59333 '2)) + (lexical-match-empty-59308 + (vector-ref lexical-p-59333 '3) + lexical-r-59334))) + (if (memv lexical-t-59335 '(free-id atom)) + lexical-r-59334 + (if (memv lexical-t-59335 '(vector)) + (lexical-match-empty-59308 + (vector-ref lexical-p-59333 '1) + lexical-r-59334) + (void)))))) + (vector-ref lexical-p-59333 '0)))))))) + (lexical-combine-59309 + (lambda (lexical-r*-59336 lexical-r-59337) + (if (null? (car lexical-r*-59336)) + lexical-r-59337 + (cons (map car lexical-r*-59336) + (lexical-combine-59309 + (map cdr lexical-r*-59336) + lexical-r-59337))))) + (lexical-match*-59310 + (lambda (lexical-e-59338 + lexical-p-59339 + lexical-w-59340 + lexical-r-59341) + (if (null? lexical-p-59339) + (if (null? lexical-e-59338) lexical-r-59341 '#f) + (if (pair? lexical-p-59339) + (if (pair? lexical-e-59338) + (lexical-match-59311 + (car lexical-e-59338) + (car lexical-p-59339) + lexical-w-59340 + (lexical-match-59311 + (cdr lexical-e-59338) + (cdr lexical-p-59339) + lexical-w-59340 + lexical-r-59341)) + '#f) + (if (eq? lexical-p-59339 'each-any) + ((lambda (lexical-l-59342) + (if lexical-l-59342 + (cons lexical-l-59342 lexical-r-59341) + '#f)) + (lexical-match-each-any-59307 + lexical-e-59338 + lexical-w-59340)) + ((lambda (lexical-t-59343) + (if (memv lexical-t-59343 '(each)) + (if (null? lexical-e-59338) + (lexical-match-empty-59308 + (vector-ref lexical-p-59339 '1) + lexical-r-59341) + ((lambda (lexical-r*-59344) + (if lexical-r*-59344 + (lexical-combine-59309 + lexical-r*-59344 + lexical-r-59341) + '#f)) + (lexical-match-each-59305 + lexical-e-59338 + (vector-ref lexical-p-59339 '1) + lexical-w-59340))) + (if (memv lexical-t-59343 '(free-id)) + (if (lexical-id?-57127 lexical-e-59338) + (if (lexical-literal-id=?-57257 + (lexical-wrap-57264 + lexical-e-59338 + lexical-w-59340) + (vector-ref lexical-p-59339 '1)) + lexical-r-59341 + '#f) + '#f) + (if (memv lexical-t-59343 '(each+)) + (call-with-values + (lambda () + (lexical-match-each+-59306 + lexical-e-59338 + (vector-ref lexical-p-59339 '1) + (vector-ref lexical-p-59339 '2) + (vector-ref lexical-p-59339 '3) + lexical-w-59340 + lexical-r-59341)) + (lambda (lexical-xr*-59345 + lexical-y-pat-59346 + lexical-r-59347) + (if lexical-r-59347 + (if (null? lexical-y-pat-59346) + (if (null? lexical-xr*-59345) + (lexical-match-empty-59308 + (vector-ref lexical-p-59339 '1) + lexical-r-59347) + (lexical-combine-59309 + lexical-xr*-59345 + lexical-r-59347)) + '#f) + '#f))) + (if (memv lexical-t-59343 '(atom)) + (if (equal? + (vector-ref lexical-p-59339 '1) + (lexical-strip-57343 + lexical-e-59338 + lexical-w-59340)) + lexical-r-59341 + '#f) + (if (memv lexical-t-59343 '(vector)) + (if (vector? lexical-e-59338) + (lexical-match-59311 + (vector->list lexical-e-59338) + (vector-ref lexical-p-59339 '1) + lexical-w-59340 + lexical-r-59341) + '#f) + (void))))))) + (vector-ref lexical-p-59339 '0))))))) + (lexical-match-59311 + (lambda (lexical-e-59348 + lexical-p-59349 + lexical-w-59350 + lexical-r-59351) + (if (not lexical-r-59351) + '#f + (if (eq? lexical-p-59349 'any) + (cons (lexical-wrap-57264 + lexical-e-59348 + lexical-w-59350) + lexical-r-59351) + (if (lexical-syntax-object?-56884 lexical-e-59348) + (lexical-match*-59310 + ((lambda (lexical-e-59352) + (if (lexical-annotation?-56952 lexical-e-59352) + (annotation-expression lexical-e-59352) + lexical-e-59352)) + (lexical-syntax-object-expression-56885 + lexical-e-59348)) + lexical-p-59349 + (lexical-join-wraps-57243 + lexical-w-59350 + (lexical-syntax-object-wrap-56886 + lexical-e-59348)) + lexical-r-59351) + (lexical-match*-59310 + ((lambda (lexical-e-59353) + (if (lexical-annotation?-56952 lexical-e-59353) + (annotation-expression lexical-e-59353) + lexical-e-59353)) + lexical-e-59348) + lexical-p-59349 + lexical-w-59350 + lexical-r-59351))))))) (set! $syntax-dispatch - (lambda (e533 p532) - (if (eq? p532 'any) - (list e533) - (if (syntax-object?64 e533) - (match*530 - ((lambda (e534) - (if (annotation?132 e534) - (annotation-expression e534) - e534)) - (syntax-object-expression65 e533)) - p532 - (syntax-object-wrap66 e533) - '()) - (match*530 - ((lambda (e535) - (if (annotation?132 e535) - (annotation-expression e535) - e535)) - e533) - p532 - '(()) - '())))))))))))) + (lambda (lexical-e-59354 lexical-p-59355) + (if (eq? lexical-p-59355 'any) + (list lexical-e-59354) + (if (lexical-syntax-object?-56884 lexical-e-59354) + (lexical-match*-59310 + ((lambda (lexical-e-59356) + (if (lexical-annotation?-56952 lexical-e-59356) + (annotation-expression lexical-e-59356) + lexical-e-59356)) + (lexical-syntax-object-expression-56885 + lexical-e-59354)) + lexical-p-59355 + (lexical-syntax-object-wrap-56886 + lexical-e-59354) + '()) + (lexical-match*-59310 + ((lambda (lexical-e-59357) + (if (lexical-annotation?-56952 lexical-e-59357) + (annotation-expression lexical-e-59357) + lexical-e-59357)) + lexical-e-59354) + lexical-p-59355 + '(()) + '())))))))))))) + ($sc-put-cte - '#(syntax-object with-syntax ((top) #(ribcage #(with-syntax) #((top)) #(with-syntax)))) - (lambda (x2531) - ((lambda (tmp2532) - ((lambda (tmp2533) - (if tmp2533 - (apply - (lambda (_2536 e12535 e22534) - (cons - '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons e12535 e22534))) - tmp2533) - ((lambda (tmp2538) - (if tmp2538 - (apply - (lambda (_2543 out2542 in2541 e12540 e22539) - (list - '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - in2541 - '() - (list - out2542 - (cons - '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons e12540 e22539))))) - tmp2538) - ((lambda (tmp2545) - (if tmp2545 - (apply - (lambda (_2550 out2549 in2548 e12547 e22546) - (list - '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - in2548) - '() - (list - out2549 - (cons - '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons e12547 e22546))))) - tmp2545) - (syntax-error tmp2532))) - ($syntax-dispatch - tmp2532 - '(any #(each (any any)) any . each-any))))) - ($syntax-dispatch - tmp2532 - '(any ((any any)) any . each-any))))) - ($syntax-dispatch tmp2532 '(any () any . each-any)))) - x2531)) + '#(syntax-object + with-syntax + ((top) + #(ribcage #(with-syntax) #((top)) #(with-syntax)))) + (lambda (lexical-x-59358) + ((lambda (lexical-tmp-59359) + ((lambda (lexical-tmp-59360) + (if lexical-tmp-59360 + (apply (lambda (lexical-_-59361 + lexical-e1-59362 + lexical-e2-59363) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ e1 e2) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e1-59362 lexical-e2-59363))) + lexical-tmp-59360) + ((lambda (lexical-tmp-59365) + (if lexical-tmp-59365 + (apply (lambda (lexical-_-59366 + lexical-out-59367 + lexical-in-59368 + lexical-e1-59369 + lexical-e2-59370) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + lexical-in-59368 + '() + (list lexical-out-59367 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e1-59369 + lexical-e2-59370))))) + lexical-tmp-59365) + ((lambda (lexical-tmp-59372) + (if lexical-tmp-59372 + (apply (lambda (lexical-_-59373 + lexical-out-59374 + lexical-in-59375 + lexical-e1-59376 + lexical-e2-59377) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + lexical-in-59375) + '() + (list lexical-out-59374 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(_ out in e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e1-59376 + lexical-e2-59377))))) + lexical-tmp-59372) + (syntax-error lexical-tmp-59359))) + ($syntax-dispatch + lexical-tmp-59359 + '(any #(each (any any)) any . each-any))))) + ($syntax-dispatch + lexical-tmp-59359 + '(any ((any any)) any . each-any))))) + ($syntax-dispatch + lexical-tmp-59359 + '(any () any . each-any)))) + lexical-x-59358)) '*top*) + ($sc-put-cte - '#(syntax-object with-implicit ((top) #(ribcage #(with-implicit) #((top)) #(with-implicit)))) - (lambda (x2554) - ((lambda (tmp2555) - ((lambda (tmp2556) - (if (if tmp2556 - (apply - (lambda (dummy2561 tid2560 id2559 e12558 e22557) - (andmap identifier? (cons tid2560 id2559))) - tmp2556) - '#f) - (apply - (lambda (dummy2567 tid2566 id2565 e12564 e22563) - (list - '#(syntax-object begin ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object unless ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object identifier? ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - tid2566)) - (cons - '#(syntax-object syntax-error ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (cons - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - tid2566) - '#(syntax-object ("non-identifier with-implicit template") ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))) - (cons - '#(syntax-object with-syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (cons - (map (lambda (tmp2568) - (list - tmp2568 - (list - '#(syntax-object datum->syntax-object ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - tid2566) - (list - '#(syntax-object quote ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - tmp2568)))) - id2565) - (cons e12564 e22563))))) - tmp2556) - (syntax-error tmp2555))) - ($syntax-dispatch - tmp2555 - '(any (any . each-any) any . each-any)))) - x2554)) + '#(syntax-object + with-implicit + ((top) + #(ribcage + #(with-implicit) + #((top)) + #(with-implicit)))) + (lambda (lexical-x-59381) + ((lambda (lexical-tmp-59382) + ((lambda (lexical-tmp-59383) + (if (if lexical-tmp-59383 + (apply (lambda (lexical-dummy-59384 + lexical-tid-59385 + lexical-id-59386 + lexical-e1-59387 + lexical-e2-59388) + (andmap + identifier? + (cons lexical-tid-59385 lexical-id-59386))) + lexical-tmp-59383) + '#f) + (apply (lambda (lexical-dummy-59390 + lexical-tid-59391 + lexical-id-59392 + lexical-e1-59393 + lexical-e2-59394) + (list '#(syntax-object + begin + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + unless + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + identifier? + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-tid-59391)) + (cons '#(syntax-object + syntax-error + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (cons (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-tid-59391) + '#(syntax-object + ("non-identifier with-implicit template") + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t)))))) + (cons '#(syntax-object + with-syntax + ((top) + #(ribcage + #(dummy tid id e1 e2) + #(("m" top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (cons (map (lambda (lexical-tmp-59395) + (list lexical-tmp-59395 + (list '#(syntax-object + datum->syntax-object + ((top) + #(ribcage + #(dummy + tid + id + e1 + e2) + #(("m" top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy + tid + id + e1 + e2) + #(("m" + top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" + top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-tid-59391) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(dummy + tid + id + e1 + e2) + #(("m" + top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" + top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59395)))) + lexical-id-59392) + (cons lexical-e1-59393 + lexical-e2-59394))))) + lexical-tmp-59383) + (syntax-error lexical-tmp-59382))) + ($syntax-dispatch + lexical-tmp-59382 + '(any (any . each-any) any . each-any)))) + lexical-x-59381)) '*top*) + ($sc-put-cte - '#(syntax-object datum ((top) #(ribcage #(datum) #((top)) #(datum)))) - (lambda (x2570) - ((lambda (tmp2571) - ((lambda (tmp2572) - (if tmp2572 - (apply - (lambda (dummy2574 x2573) - (list - '#(syntax-object syntax-object->datum ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - x2573))) - tmp2572) - (syntax-error tmp2571))) - ($syntax-dispatch tmp2571 '(any any)))) - x2570)) + '#(syntax-object + datum + ((top) #(ribcage #(datum) #((top)) #(datum)))) + (lambda (lexical-x-59397) + ((lambda (lexical-tmp-59398) + ((lambda (lexical-tmp-59399) + (if lexical-tmp-59399 + (apply (lambda (lexical-dummy-59400 lexical-x-59401) + (list '#(syntax-object + syntax-object->datum + ((top) + #(ribcage + #(dummy x) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy x) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + lexical-x-59401))) + lexical-tmp-59399) + (syntax-error lexical-tmp-59398))) + ($syntax-dispatch lexical-tmp-59398 '(any any)))) + lexical-x-59397)) '*top*) + ($sc-put-cte - '#(syntax-object syntax-rules ((top) #(ribcage #(syntax-rules) #((top)) #(syntax-rules)))) - (lambda (x2575) - (letrec ((clause2576 (lambda (y2592) - ((lambda (tmp2593) - ((lambda (tmp2594) - (if tmp2594 - (apply - (lambda (keyword2597 pattern2596 - template2595) - (list - (cons - '#(syntax-object dummy ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - pattern2596) - (list - '#(syntax-object syntax ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - template2595))) - tmp2594) - ((lambda (tmp2598) - (if tmp2598 - (apply - (lambda (keyword2602 - pattern2601 - fender2600 - template2599) - (list - (cons - '#(syntax-object dummy ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - pattern2601) - fender2600 - (list - '#(syntax-object syntax ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - template2599))) - tmp2598) - ((lambda (_2603) - (syntax-error x2575)) - tmp2593))) - ($syntax-dispatch - tmp2593 - '((any . any) any any))))) - ($syntax-dispatch - tmp2593 - '((any . any) any)))) - y2592)))) - ((lambda (tmp2577) - ((lambda (tmp2578) - (if (if tmp2578 - (apply - (lambda (_2581 k2580 cl2579) - (andmap identifier? k2580)) - tmp2578) - '#f) - (apply - (lambda (_2585 k2584 cl2583) - ((lambda (tmp2586) - ((lambda (tmp2588) - (if tmp2588 - (apply - (lambda (cl2589) - (list - '#(syntax-object lambda ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object (x) ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object syntax-case ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object x ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons k2584 cl2589))))) - tmp2588) - (syntax-error tmp2586))) - ($syntax-dispatch tmp2586 'each-any))) - (map clause2576 cl2583))) - tmp2578) - (syntax-error tmp2577))) - ($syntax-dispatch tmp2577 '(any each-any . each-any)))) - x2575))) + '#(syntax-object + syntax-rules + ((top) + #(ribcage + #(syntax-rules) + #((top)) + #(syntax-rules)))) + (lambda (lexical-x-59402) + (letrec* + ((lexical-clause-59403 + (lambda (lexical-y-59404) + ((lambda (lexical-tmp-59405) + ((lambda (lexical-tmp-59406) + (if lexical-tmp-59406 + (apply (lambda (lexical-keyword-59407 + lexical-pattern-59408 + lexical-template-59409) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(keyword pattern template) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(y) #((top)) #("i")) + #(ribcage (clause) ((top)) ("i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + lexical-pattern-59408) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(keyword pattern template) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(y) #((top)) #("i")) + #(ribcage (clause) ((top)) ("i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + lexical-template-59409))) + lexical-tmp-59406) + ((lambda (lexical-tmp-59410) + (if lexical-tmp-59410 + (apply (lambda (lexical-keyword-59411 + lexical-pattern-59412 + lexical-fender-59413 + lexical-template-59414) + (list (cons '#(syntax-object + dummy + ((top) + #(ribcage + #(keyword + pattern + fender + template) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(y) + #((top)) + #("i")) + #(ribcage + (clause) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-pattern-59412) + lexical-fender-59413 + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(keyword + pattern + fender + template) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(y) + #((top)) + #("i")) + #(ribcage + (clause) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-template-59414))) + lexical-tmp-59410) + ((lambda (lexical-_-59415) + (syntax-error lexical-x-59402)) + lexical-tmp-59405))) + ($syntax-dispatch + lexical-tmp-59405 + '((any . any) any any))))) + ($syntax-dispatch + lexical-tmp-59405 + '((any . any) any)))) + lexical-y-59404)))) + ((lambda (lexical-tmp-59416) + ((lambda (lexical-tmp-59417) + (if (if lexical-tmp-59417 + (apply (lambda (lexical-_-59418 + lexical-k-59419 + lexical-cl-59420) + (andmap identifier? lexical-k-59419)) + lexical-tmp-59417) + '#f) + (apply (lambda (lexical-_-59422 + lexical-k-59423 + lexical-cl-59424) + ((lambda (lexical-tmp-59425) + ((lambda (lexical-tmp-59426) + (if lexical-tmp-59426 + (apply (lambda (lexical-cl-59427) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(cl) + #((top)) + #("i")) + #(ribcage + #(_ k cl) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + (clause) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + (x) + ((top) + #(ribcage + #(cl) + #((top)) + #("i")) + #(ribcage + #(_ k cl) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + (clause) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + (cons '#(syntax-object + syntax-case + ((top) + #(ribcage + #(cl) + #((top)) + #("i")) + #(ribcage + #(_ k cl) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage + (clause) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons '#(syntax-object + x + ((top) + #(ribcage + #(cl) + #((top)) + #("i")) + #(ribcage + #(_ k cl) + #((top) + (top) + (top)) + #("i" "i" "i")) + #(ribcage + (clause) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-k-59423 + lexical-cl-59427))))) + lexical-tmp-59426) + (syntax-error lexical-tmp-59425))) + ($syntax-dispatch lexical-tmp-59425 'each-any))) + (map lexical-clause-59403 lexical-cl-59424))) + lexical-tmp-59417) + (syntax-error lexical-tmp-59416))) + ($syntax-dispatch + lexical-tmp-59416 + '(any each-any . each-any)))) + lexical-x-59402))) '*top*) + ($sc-put-cte - '#(syntax-object or ((top) #(ribcage #(or) #((top)) #(or)))) - (lambda (x2604) - ((lambda (tmp2605) - ((lambda (tmp2606) - (if tmp2606 - (apply - (lambda (_2607) - '#(syntax-object #f ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - tmp2606) - ((lambda (tmp2608) - (if tmp2608 - (apply (lambda (_2610 e2609) e2609) tmp2608) - ((lambda (tmp2611) - (if tmp2611 - (apply - (lambda (_2615 e12614 e22613 e32612) - (list - '#(syntax-object let ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e12614)) - (list - '#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - '#(syntax-object or ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons e22613 e32612))))) - tmp2611) - (syntax-error tmp2605))) - ($syntax-dispatch - tmp2605 - '(any any any . each-any))))) - ($syntax-dispatch tmp2605 '(any any))))) - ($syntax-dispatch tmp2605 '(any)))) - x2604)) + '#(syntax-object + or + ((top) #(ribcage #(or) #((top)) #(or)))) + (lambda (lexical-x-59431) + ((lambda (lexical-tmp-59432) + ((lambda (lexical-tmp-59433) + (if lexical-tmp-59433 + (apply (lambda (lexical-_-59434) + '#(syntax-object + #f + ((top) + #(ribcage #(_) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + lexical-tmp-59433) + ((lambda (lexical-tmp-59435) + (if lexical-tmp-59435 + (apply (lambda (lexical-_-59436 lexical-e-59437) + lexical-e-59437) + lexical-tmp-59435) + ((lambda (lexical-tmp-59438) + (if lexical-tmp-59438 + (apply (lambda (lexical-_-59439 + lexical-e1-59440 + lexical-e2-59441 + lexical-e3-59442) + (list '#(syntax-object + let + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-e1-59440)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons '#(syntax-object + or + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e2-59441 + lexical-e3-59442))))) + lexical-tmp-59438) + (syntax-error lexical-tmp-59432))) + ($syntax-dispatch + lexical-tmp-59432 + '(any any any . each-any))))) + ($syntax-dispatch lexical-tmp-59432 '(any any))))) + ($syntax-dispatch lexical-tmp-59432 '(any)))) + lexical-x-59431)) '*top*) + ($sc-put-cte - '#(syntax-object and ((top) #(ribcage #(and) #((top)) #(and)))) - (lambda (x2617) - ((lambda (tmp2618) - ((lambda (tmp2619) - (if tmp2619 - (apply - (lambda (_2623 e12622 e22621 e32620) - (cons - '#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12622 - (cons - (cons - '#(syntax-object and ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons e22621 e32620)) - '#(syntax-object (#f) ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))) - tmp2619) - ((lambda (tmp2625) - (if tmp2625 - (apply (lambda (_2627 e2626) e2626) tmp2625) - ((lambda (tmp2628) - (if tmp2628 - (apply - (lambda (_2629) - '#(syntax-object #t ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - tmp2628) - (syntax-error tmp2618))) - ($syntax-dispatch tmp2618 '(any))))) - ($syntax-dispatch tmp2618 '(any any))))) - ($syntax-dispatch tmp2618 '(any any any . each-any)))) - x2617)) + '#(syntax-object + and + ((top) #(ribcage #(and) #((top)) #(and)))) + (lambda (lexical-x-59444) + ((lambda (lexical-tmp-59445) + ((lambda (lexical-tmp-59446) + (if lexical-tmp-59446 + (apply (lambda (lexical-_-59447 + lexical-e1-59448 + lexical-e2-59449 + lexical-e3-59450) + (cons '#(syntax-object + if + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e1-59448 + (cons (cons '#(syntax-object + and + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e2-59449 + lexical-e3-59450)) + '#(syntax-object + (#f) + ((top) + #(ribcage + #(_ e1 e2 e3) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))))))) + lexical-tmp-59446) + ((lambda (lexical-tmp-59452) + (if lexical-tmp-59452 + (apply (lambda (lexical-_-59453 lexical-e-59454) + lexical-e-59454) + lexical-tmp-59452) + ((lambda (lexical-tmp-59455) + (if lexical-tmp-59455 + (apply (lambda (lexical-_-59456) + '#(syntax-object + #t + ((top) + #(ribcage #(_) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + lexical-tmp-59455) + (syntax-error lexical-tmp-59445))) + ($syntax-dispatch lexical-tmp-59445 '(any))))) + ($syntax-dispatch lexical-tmp-59445 '(any any))))) + ($syntax-dispatch + lexical-tmp-59445 + '(any any any . each-any)))) + lexical-x-59444)) '*top*) + ($sc-put-cte - '#(syntax-object let ((top) #(ribcage #(let) #((top)) #(let)))) - (lambda (x2630) - ((lambda (tmp2631) - ((lambda (tmp2632) - (if (if tmp2632 - (apply - (lambda (_2637 x2636 v2635 e12634 e22633) - (andmap identifier? x2636)) - tmp2632) - '#f) - (apply - (lambda (_2643 x2642 v2641 e12640 e22639) - (cons - (cons - '#(syntax-object lambda ((top) #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons x2642 (cons e12640 e22639))) - v2641)) - tmp2632) - ((lambda (tmp2647) - (if (if tmp2647 - (apply - (lambda (_2653 f2652 x2651 v2650 e12649 e22648) - (andmap identifier? (cons f2652 x2651))) - tmp2647) - '#f) - (apply - (lambda (_2660 f2659 x2658 v2657 e12656 e22655) - (cons - (list - '#(syntax-object letrec ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - f2659 - (cons - '#(syntax-object lambda ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons x2658 (cons e12656 e22655))))) - f2659) - v2657)) - tmp2647) - (syntax-error tmp2631))) - ($syntax-dispatch - tmp2631 - '(any any #(each (any any)) any . each-any))))) - ($syntax-dispatch - tmp2631 - '(any #(each (any any)) any . each-any)))) - x2630)) + '#(syntax-object + let + ((top) #(ribcage #(let) #((top)) #(let)))) + (lambda (lexical-x-59457) + ((lambda (lexical-tmp-59458) + ((lambda (lexical-tmp-59459) + (if (if lexical-tmp-59459 + (apply (lambda (lexical-_-59460 + lexical-x-59461 + lexical-v-59462 + lexical-e1-59463 + lexical-e2-59464) + (andmap identifier? lexical-x-59461)) + lexical-tmp-59459) + '#f) + (apply (lambda (lexical-_-59466 + lexical-x-59467 + lexical-v-59468 + lexical-e1-59469 + lexical-e2-59470) + (cons (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ x v e1 e2) + #((top) (top) (top) (top) (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons lexical-x-59467 + (cons lexical-e1-59469 + lexical-e2-59470))) + lexical-v-59468)) + lexical-tmp-59459) + ((lambda (lexical-tmp-59474) + (if (if lexical-tmp-59474 + (apply (lambda (lexical-_-59475 + lexical-f-59476 + lexical-x-59477 + lexical-v-59478 + lexical-e1-59479 + lexical-e2-59480) + (andmap + identifier? + (cons lexical-f-59476 lexical-x-59477))) + lexical-tmp-59474) + '#f) + (apply (lambda (lexical-_-59482 + lexical-f-59483 + lexical-x-59484 + lexical-v-59485 + lexical-e1-59486 + lexical-e2-59487) + (cons (list '#(syntax-object + letrec + ((top) + #(ribcage + #(_ f x v e1 e2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (list (list lexical-f-59483 + (cons '#(syntax-object + lambda + ((top) + #(ribcage + #(_ f x v e1 e2) + #((top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-x-59484 + (cons lexical-e1-59486 + lexical-e2-59487))))) + lexical-f-59483) + lexical-v-59485)) + lexical-tmp-59474) + (syntax-error lexical-tmp-59458))) + ($syntax-dispatch + lexical-tmp-59458 + '(any any #(each (any any)) any . each-any))))) + ($syntax-dispatch + lexical-tmp-59458 + '(any #(each (any any)) any . each-any)))) + lexical-x-59457)) '*top*) + ($sc-put-cte - '#(syntax-object let* ((top) #(ribcage #(let*) #((top)) #(let*)))) - (lambda (x2664) - ((lambda (tmp2665) - ((lambda (tmp2666) - (if (if tmp2666 - (apply - (lambda (let*2671 x2670 v2669 e12668 e22667) - (andmap identifier? x2670)) - tmp2666) - '#f) - (apply - (lambda (let*2677 x2676 v2675 e12674 e22673) - ((letrec ((f2678 (lambda (bindings2679) - (if (null? bindings2679) - (cons - '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons '() (cons e12674 e22673))) - ((lambda (tmp2681) - ((lambda (tmp2682) - (if tmp2682 - (apply - (lambda (body2684 - binding2683) - (list - '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list binding2683) - body2684)) - tmp2682) - (syntax-error tmp2681))) - ($syntax-dispatch - tmp2681 - '(any any)))) - (list - (f2678 (cdr bindings2679)) - (car bindings2679))))))) - f2678) - (map list x2676 v2675))) - tmp2666) - (syntax-error tmp2665))) - ($syntax-dispatch - tmp2665 - '(any #(each (any any)) any . each-any)))) - x2664)) + '#(syntax-object + let* + ((top) #(ribcage #(let*) #((top)) #(let*)))) + (lambda (lexical-x-59491) + ((lambda (lexical-tmp-59492) + ((lambda (lexical-tmp-59493) + (if (if lexical-tmp-59493 + (apply (lambda (lexical-let*-59494 + lexical-x-59495 + lexical-v-59496 + lexical-e1-59497 + lexical-e2-59498) + (andmap identifier? lexical-x-59495)) + lexical-tmp-59493) + '#f) + (apply (lambda (lexical-let*-59500 + lexical-x-59501 + lexical-v-59502 + lexical-e1-59503 + lexical-e2-59504) + ((letrec ((lexical-f-59505 + (lambda (lexical-bindings-59506) + (if (null? lexical-bindings-59506) + (cons '#(syntax-object + let + ((top) + #(ribcage () () ()) + #(ribcage + #(bindings) + #((top)) + #("i")) + #(ribcage #(f) #((top)) #("i")) + #(ribcage + #(let* x v e1 e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (cons '() + (cons lexical-e1-59503 + lexical-e2-59504))) + ((lambda (lexical-tmp-59508) + ((lambda (lexical-tmp-59509) + (if lexical-tmp-59509 + (apply (lambda (lexical-body-59510 + lexical-binding-59511) + (list '#(syntax-object + let + ((top) + #(ribcage + #(body + binding) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(bindings) + #((top)) + #("i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(let* + x + v + e1 + e2) + #((top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list lexical-binding-59511) + lexical-body-59510)) + lexical-tmp-59509) + (syntax-error lexical-tmp-59508))) + ($syntax-dispatch + lexical-tmp-59508 + '(any any)))) + (list (lexical-f-59505 + (cdr lexical-bindings-59506)) + (car lexical-bindings-59506))))))) + lexical-f-59505) + (map list lexical-x-59501 lexical-v-59502))) + lexical-tmp-59493) + (syntax-error lexical-tmp-59492))) + ($syntax-dispatch + lexical-tmp-59492 + '(any #(each (any any)) any . each-any)))) + lexical-x-59491)) '*top*) + ($sc-put-cte - '#(syntax-object cond ((top) #(ribcage #(cond) #((top)) #(cond)))) - (lambda (x2687) - ((lambda (tmp2688) - ((lambda (tmp2689) - (if tmp2689 - (apply - (lambda (_2692 m12691 m22690) - ((letrec ((f2693 (lambda (clause2695 clauses2694) - (if (null? clauses2694) - ((lambda (tmp2696) - ((lambda (tmp2697) - (if tmp2697 - (apply - (lambda (e12699 - e22698) - (cons - '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12699 - e22698))) - tmp2697) - ((lambda (tmp2701) - (if tmp2701 - (apply - (lambda (e02702) - (cons - '#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - (list - (list - '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02702)) - '#(syntax-object ((if t t)) ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))) - tmp2701) - ((lambda (tmp2703) - (if tmp2703 - (apply - (lambda (e02705 - e12704) - (list - '#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02705)) - (list - '#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12704 - '#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))) - tmp2703) - ((lambda (tmp2706) - (if tmp2706 - (apply - (lambda (e02709 - e12708 - e22707) - (list - '#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02709 - (cons - '#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12708 - e22707)))) - tmp2706) - ((lambda (_2711) - (syntax-error - x2687)) - tmp2696))) - ($syntax-dispatch - tmp2696 - '(any any - . - each-any))))) - ($syntax-dispatch - tmp2696 - '(any #(free-id - #(syntax-object => ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - any))))) - ($syntax-dispatch - tmp2696 - '(any))))) + '#(syntax-object + cond + ((top) #(ribcage #(cond) #((top)) #(cond)))) + (lambda (lexical-x-59515) + ((lambda (lexical-tmp-59516) + ((lambda (lexical-tmp-59517) + (if lexical-tmp-59517 + (apply (lambda (lexical-_-59518 + lexical-m1-59519 + lexical-m2-59520) + ((letrec ((lexical-f-59521 + (lambda (lexical-clause-59522 + lexical-clauses-59523) + (if (null? lexical-clauses-59523) + ((lambda (lexical-tmp-59524) + ((lambda (lexical-tmp-59525) + (if lexical-tmp-59525 + (apply (lambda (lexical-e1-59526 + lexical-e2-59527) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ m1 m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59526 + lexical-e2-59527))) + lexical-tmp-59525) + ((lambda (lexical-tmp-59529) + (if lexical-tmp-59529 + (apply (lambda (lexical-e0-59530) + (cons '#(syntax-object + let + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59530)) + '#(syntax-object + ((if t + t)) + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t)))))) + lexical-tmp-59529) + ((lambda (lexical-tmp-59531) + (if lexical-tmp-59531 + (apply (lambda (lexical-e0-59532 + lexical-e1-59533) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59532)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59533 + '#(syntax-object + (t) + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))))))) + lexical-tmp-59531) + ((lambda (lexical-tmp-59534) + (if lexical-tmp-59534 + (apply (lambda (lexical-e0-59535 + lexical-e1-59536 + lexical-e2-59537) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59535 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59536 + lexical-e2-59537)))) + lexical-tmp-59534) + ((lambda (lexical-_-59539) + (syntax-error + lexical-x-59515)) + lexical-tmp-59524))) + ($syntax-dispatch + lexical-tmp-59524 + '(any any + . + each-any))))) + ($syntax-dispatch + lexical-tmp-59524 + '(any #(free-id + #(syntax-object + => + ((top) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ m1 m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t)))) + any))))) ($syntax-dispatch - tmp2696 - '(#(free-id - #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - any - . - each-any)))) - clause2695) - ((lambda (tmp2712) - ((lambda (rest2713) - ((lambda (tmp2714) - ((lambda (tmp2715) - (if tmp2715 - (apply - (lambda (e02716) - (list - '#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02716)) - (list - '#(syntax-object if ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - rest2713))) - tmp2715) - ((lambda (tmp2717) - (if tmp2717 - (apply - (lambda (e02719 - e12718) - (list - '#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02719)) - (list - '#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12718 - '#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - rest2713))) - tmp2717) - ((lambda (tmp2720) - (if tmp2720 - (apply - (lambda (e02723 - e12722 - e22721) - (list - '#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02723 - (cons - '#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12722 - e22721)) - rest2713)) - tmp2720) - ((lambda (_2725) - (syntax-error - x2687)) - tmp2714))) - ($syntax-dispatch - tmp2714 - '(any any - . - each-any))))) - ($syntax-dispatch - tmp2714 - '(any #(free-id - #(syntax-object => ((top) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - any))))) + lexical-tmp-59524 + '(any))))) + ($syntax-dispatch + lexical-tmp-59524 + '(#(free-id + #(syntax-object + else + ((top) + #(ribcage () () ()) + #(ribcage + #(clause clauses) + #((top) (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ m1 m2) + #((top) (top) (top)) + #("i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t)))) + any + . + each-any)))) + lexical-clause-59522) + ((lambda (lexical-tmp-59540) + ((lambda (lexical-rest-59541) + ((lambda (lexical-tmp-59542) + ((lambda (lexical-tmp-59543) + (if lexical-tmp-59543 + (apply (lambda (lexical-e0-59544) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59544)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0) + #((top)) + #("i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-rest-59541))) + lexical-tmp-59543) + ((lambda (lexical-tmp-59545) + (if lexical-tmp-59545 + (apply (lambda (lexical-e0-59546 + lexical-e1-59547) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59546)) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59547 + '#(syntax-object + (t) + ((top) + #(ribcage + #(e0 + e1) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t)))) + lexical-rest-59541))) + lexical-tmp-59545) + ((lambda (lexical-tmp-59548) + (if lexical-tmp-59548 + (apply (lambda (lexical-e0-59549 + lexical-e1-59550 + lexical-e2-59551) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59549 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e0 + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + m1 + m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59550 + lexical-e2-59551)) + lexical-rest-59541)) + lexical-tmp-59548) + ((lambda (lexical-_-59553) + (syntax-error + lexical-x-59515)) + lexical-tmp-59542))) + ($syntax-dispatch + lexical-tmp-59542 + '(any any + . + each-any))))) ($syntax-dispatch - tmp2714 - '(any)))) - clause2695)) - tmp2712)) - (f2693 - (car clauses2694) - (cdr clauses2694))))))) - f2693) - m12691 - m22690)) - tmp2689) - (syntax-error tmp2688))) - ($syntax-dispatch tmp2688 '(any any . each-any)))) - x2687)) + lexical-tmp-59542 + '(any #(free-id + #(syntax-object + => + ((top) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ m1 m2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t)))) + any))))) + ($syntax-dispatch + lexical-tmp-59542 + '(any)))) + lexical-clause-59522)) + lexical-tmp-59540)) + (lexical-f-59521 + (car lexical-clauses-59523) + (cdr lexical-clauses-59523))))))) + lexical-f-59521) + lexical-m1-59519 + lexical-m2-59520)) + lexical-tmp-59517) + (syntax-error lexical-tmp-59516))) + ($syntax-dispatch + lexical-tmp-59516 + '(any any . each-any)))) + lexical-x-59515)) '*top*) + ($sc-put-cte - '#(syntax-object do ((top) #(ribcage #(do) #((top)) #(do)))) - (lambda (orig-x2727) - ((lambda (tmp2728) - ((lambda (tmp2729) - (if tmp2729 - (apply - (lambda (_2736 var2735 init2734 step2733 e02732 e12731 - c2730) - ((lambda (tmp2737) - ((lambda (tmp2747) - (if tmp2747 - (apply - (lambda (step2748) - ((lambda (tmp2749) - ((lambda (tmp2751) - (if tmp2751 - (apply - (lambda () - (list - '#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - (map list var2735 init2734) - (list - '#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02732) - (cons - '#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - (append - c2730 - (list - (cons - '#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - step2748))))))) - tmp2751) - ((lambda (tmp2756) - (if tmp2756 - (apply - (lambda (e12758 e22757) - (list - '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - (map list - var2735 - init2734) - (list - '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - e02732 - (cons - '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e12758 - e22757)) - (cons - '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - (append - c2730 - (list - (cons - '#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t))) - step2748))))))) - tmp2756) - (syntax-error tmp2749))) - ($syntax-dispatch - tmp2749 - '(any . each-any))))) - ($syntax-dispatch tmp2749 '()))) - e12731)) - tmp2747) - (syntax-error tmp2737))) - ($syntax-dispatch tmp2737 'each-any))) - (map (lambda (v2741 s2740) - ((lambda (tmp2742) - ((lambda (tmp2743) - (if tmp2743 - (apply (lambda () v2741) tmp2743) - ((lambda (tmp2744) - (if tmp2744 - (apply - (lambda (e2745) e2745) - tmp2744) - ((lambda (_2746) - (syntax-error orig-x2727)) - tmp2742))) - ($syntax-dispatch tmp2742 '(any))))) - ($syntax-dispatch tmp2742 '()))) - s2740)) - var2735 - step2733))) - tmp2729) - (syntax-error tmp2728))) - ($syntax-dispatch - tmp2728 - '(any #(each (any any . any)) - (any . each-any) - . - each-any)))) - orig-x2727)) + '#(syntax-object + do + ((top) #(ribcage #(do) #((top)) #(do)))) + (lambda (lexical-orig-x-59556) + ((lambda (lexical-tmp-59557) + ((lambda (lexical-tmp-59558) + (if lexical-tmp-59558 + (apply (lambda (lexical-_-59559 + lexical-var-59560 + lexical-init-59561 + lexical-step-59562 + lexical-e0-59563 + lexical-e1-59564 + lexical-c-59565) + ((lambda (lexical-tmp-59566) + ((lambda (lexical-tmp-59567) + (if lexical-tmp-59567 + (apply (lambda (lexical-step-59568) + ((lambda (lexical-tmp-59569) + ((lambda (lexical-tmp-59570) + (if lexical-tmp-59570 + (apply (lambda () + (list '#(syntax-object + let + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + do + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (map list + lexical-var-59560 + lexical-init-59561) + (list '#(syntax-object + if + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + not + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59563) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (append + lexical-c-59565 + (list (cons '#(syntax-object + do + ((top) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-step-59568))))))) + lexical-tmp-59570) + ((lambda (lexical-tmp-59575) + (if lexical-tmp-59575 + (apply (lambda (lexical-e1-59576 + lexical-e2-59577) + (list '#(syntax-object + let + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + do + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (map list + lexical-var-59560 + lexical-init-59561) + (list '#(syntax-object + if + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-e0-59563 + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59576 + lexical-e2-59577)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (append + lexical-c-59565 + (list (cons '#(syntax-object + do + ((top) + #(ribcage + #(e1 + e2) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(step) + #((top)) + #("i")) + #(ribcage + #(_ + var + init + step + e0 + e1 + c) + #((top) + (top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(orig-x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-step-59568))))))) + lexical-tmp-59575) + (syntax-error + lexical-tmp-59569))) + ($syntax-dispatch + lexical-tmp-59569 + '(any . each-any))))) + ($syntax-dispatch + lexical-tmp-59569 + '()))) + lexical-e1-59564)) + lexical-tmp-59567) + (syntax-error lexical-tmp-59566))) + ($syntax-dispatch lexical-tmp-59566 'each-any))) + (map (lambda (lexical-v-59584 lexical-s-59585) + ((lambda (lexical-tmp-59586) + ((lambda (lexical-tmp-59587) + (if lexical-tmp-59587 + (apply (lambda () lexical-v-59584) + lexical-tmp-59587) + ((lambda (lexical-tmp-59588) + (if lexical-tmp-59588 + (apply (lambda (lexical-e-59589) + lexical-e-59589) + lexical-tmp-59588) + ((lambda (lexical-_-59590) + (syntax-error + lexical-orig-x-59556)) + lexical-tmp-59586))) + ($syntax-dispatch + lexical-tmp-59586 + '(any))))) + ($syntax-dispatch lexical-tmp-59586 '()))) + lexical-s-59585)) + lexical-var-59560 + lexical-step-59562))) + lexical-tmp-59558) + (syntax-error lexical-tmp-59557))) + ($syntax-dispatch + lexical-tmp-59557 + '(any #(each (any any . any)) + (any . each-any) + . + each-any)))) + lexical-orig-x-59556)) '*top*) + ($sc-put-cte - '#(syntax-object quasiquote ((top) #(ribcage #(quasiquote) #((top)) #(quasiquote)))) + '#(syntax-object + quasiquote + ((top) + #(ribcage #(quasiquote) #((top)) #(quasiquote)))) ((lambda () - (letrec ((quasi2764 (lambda (p2900 lev2899) - ((lambda (tmp2901) - ((lambda (tmp2902) - (if tmp2902 - (apply - (lambda (p2903) - (if (= lev2899 '0) - (list - '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - p2903) - (quasicons2766 - '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (quasi2764 - (list p2903) - (- lev2899 '1))))) - tmp2902) - ((lambda (tmp2904) - (if tmp2904 - (apply - (lambda (p2905) - (quasicons2766 - '#(syntax-object ("quote" quasiquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (quasi2764 - (list p2905) - (+ lev2899 '1)))) - tmp2904) - ((lambda (tmp2906) - (if tmp2906 - (apply - (lambda (p2908 q2907) - ((lambda (tmp2909) - ((lambda (tmp2910) - (if tmp2910 - (apply - (lambda (p2911) - (if (= lev2899 - '0) - (quasilist*2768 - (map (lambda (tmp2912) - (list - '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp2912)) - p2911) - (quasi2764 - q2907 - lev2899)) - (quasicons2766 - (quasicons2766 - '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (quasi2764 - p2911 - (- lev2899 - '1))) - (quasi2764 - q2907 - lev2899)))) - tmp2910) - ((lambda (tmp2914) - (if tmp2914 - (apply - (lambda (p2915) - (if (= lev2899 - '0) - (quasiappend2767 - (map (lambda (tmp2916) - (list - '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp2916)) - p2915) - (quasi2764 - q2907 - lev2899)) - (quasicons2766 - (quasicons2766 - '#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (quasi2764 - p2915 - (- lev2899 - '1))) - (quasi2764 - q2907 - lev2899)))) - tmp2914) - ((lambda (_2918) - (quasicons2766 - (quasi2764 - p2908 - lev2899) - (quasi2764 - q2907 - lev2899))) - tmp2909))) - ($syntax-dispatch - tmp2909 - '(#(free-id - #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - . - each-any))))) - ($syntax-dispatch - tmp2909 - '(#(free-id - #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - . - each-any)))) - p2908)) - tmp2906) - ((lambda (tmp2919) - (if tmp2919 - (apply - (lambda (x2920) - (quasivector2769 - (vquasi2765 - x2920 - lev2899))) - tmp2919) - ((lambda (p2922) - (list - '#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - p2922)) - tmp2901))) - ($syntax-dispatch - tmp2901 - '#(vector - each-any))))) - ($syntax-dispatch - tmp2901 - '(any . any))))) - ($syntax-dispatch - tmp2901 - '(#(free-id - #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any))))) - ($syntax-dispatch - tmp2901 - '(#(free-id - #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - any)))) - p2900))) - (vquasi2765 (lambda (p2883 lev2882) - ((lambda (tmp2884) - ((lambda (tmp2885) - (if tmp2885 - (apply - (lambda (p2887 q2886) - ((lambda (tmp2888) - ((lambda (tmp2889) - (if tmp2889 - (apply - (lambda (p2890) - (if (= lev2882 '0) - (quasilist*2768 - (map (lambda (tmp2891) - (list - '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp2891)) - p2890) - (vquasi2765 - q2886 - lev2882)) - (quasicons2766 - (quasicons2766 - '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (quasi2764 - p2890 - (- lev2882 - '1))) - (vquasi2765 - q2886 - lev2882)))) - tmp2889) - ((lambda (tmp2893) - (if tmp2893 - (apply - (lambda (p2894) - (if (= lev2882 - '0) - (quasiappend2767 - (map (lambda (tmp2895) - (list - '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp2895)) - p2894) - (vquasi2765 - q2886 - lev2882)) - (quasicons2766 - (quasicons2766 - '#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (quasi2764 - p2894 - (- lev2882 - '1))) - (vquasi2765 - q2886 - lev2882)))) - tmp2893) - ((lambda (_2897) - (quasicons2766 - (quasi2764 - p2887 - lev2882) - (vquasi2765 - q2886 - lev2882))) - tmp2888))) - ($syntax-dispatch - tmp2888 - '(#(free-id - #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - . - each-any))))) - ($syntax-dispatch - tmp2888 - '(#(free-id - #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) + (letrec* + ((lexical-quasi-59593 + (lambda (lexical-p-59600 lexical-lev-59601) + ((lambda (lexical-tmp-59602) + ((lambda (lexical-tmp-59603) + (if lexical-tmp-59603 + (apply (lambda (lexical-p-59604) + (if (= lexical-lev-59601 '0) + (list '#(syntax-object + "value" + ((top) + #(ribcage #(p) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t))) + lexical-p-59604) + (lexical-quasicons-59595 + '#(syntax-object + ("quote" unquote) + ((top) + #(ribcage #(p) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t))) + (lexical-quasi-59593 + (list lexical-p-59604) + (- lexical-lev-59601 '1))))) + lexical-tmp-59603) + ((lambda (lexical-tmp-59605) + (if lexical-tmp-59605 + (apply (lambda (lexical-p-59606) + (lexical-quasicons-59595 + '#(syntax-object + ("quote" quasiquote) + ((top) + #(ribcage #(p) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t))) + (lexical-quasi-59593 + (list lexical-p-59606) + (+ lexical-lev-59601 '1)))) + lexical-tmp-59605) + ((lambda (lexical-tmp-59607) + (if lexical-tmp-59607 + (apply (lambda (lexical-p-59608 lexical-q-59609) + ((lambda (lexical-tmp-59610) + ((lambda (lexical-tmp-59611) + (if lexical-tmp-59611 + (apply (lambda (lexical-p-59612) + (if (= lexical-lev-59601 + '0) + (lexical-quasilist*-59597 + (map (lambda (lexical-tmp-59613) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p + q) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p + lev) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59613)) + lexical-p-59612) + (lexical-quasi-59593 + lexical-q-59609 + lexical-lev-59601)) + (lexical-quasicons-59595 + (lexical-quasicons-59595 + '#(syntax-object + ("quote" + unquote) + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p q) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p lev) + #((top) + (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (lexical-quasi-59593 + lexical-p-59612 + (- lexical-lev-59601 + '1))) + (lexical-quasi-59593 + lexical-q-59609 + lexical-lev-59601)))) + lexical-tmp-59611) + ((lambda (lexical-tmp-59615) + (if lexical-tmp-59615 + (apply (lambda (lexical-p-59616) + (if (= lexical-lev-59601 + '0) + (lexical-quasiappend-59596 + (map (lambda (lexical-tmp-59617) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p + q) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p + lev) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59617)) + lexical-p-59616) + (lexical-quasi-59593 + lexical-q-59609 + lexical-lev-59601)) + (lexical-quasicons-59595 + (lexical-quasicons-59595 + '#(syntax-object + ("quote" + unquote-splicing) + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p q) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p + lev) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (lexical-quasi-59593 + lexical-p-59616 + (- lexical-lev-59601 + '1))) + (lexical-quasi-59593 + lexical-q-59609 + lexical-lev-59601)))) + lexical-tmp-59615) + ((lambda (lexical-_-59619) + (lexical-quasicons-59595 + (lexical-quasi-59593 + lexical-p-59608 + lexical-lev-59601) + (lexical-quasi-59593 + lexical-q-59609 + lexical-lev-59601))) + lexical-tmp-59610))) + ($syntax-dispatch + lexical-tmp-59610 + '(#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t)))) . - each-any)))) - p2887)) - tmp2885) - ((lambda (tmp2898) - (if tmp2898 - (apply - (lambda () - '#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))) - tmp2898) - (syntax-error tmp2884))) - ($syntax-dispatch tmp2884 '())))) - ($syntax-dispatch tmp2884 '(any . any)))) - p2883))) - (quasicons2766 (lambda (x2865 y2864) - ((lambda (tmp2866) - ((lambda (tmp2867) - (if tmp2867 - (apply - (lambda (x2869 y2868) - ((lambda (tmp2870) - ((lambda (tmp2871) - (if tmp2871 - (apply - (lambda (dy2872) - ((lambda (tmp2873) - ((lambda (tmp2874) - (if tmp2874 - (apply - (lambda (dx2875) - (list - '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - dx2875 - dy2872))) - tmp2874) - ((lambda (_2876) - (if (null? - dy2872) - (list - '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - x2869) - (list - '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - x2869 - y2868))) - tmp2873))) - ($syntax-dispatch - tmp2873 - '(#(atom - "quote") - any)))) - x2869)) - tmp2871) - ((lambda (tmp2877) - (if tmp2877 - (apply - (lambda (stuff2878) - (cons - '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - x2869 - stuff2878))) - tmp2877) - ((lambda (tmp2879) - (if tmp2879 - (apply - (lambda (stuff2880) - (cons - '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (cons - x2869 - stuff2880))) - tmp2879) - ((lambda (_2881) - (list - '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - x2869 - y2868)) - tmp2870))) - ($syntax-dispatch - tmp2870 - '(#(atom - "list*") - . - any))))) - ($syntax-dispatch - tmp2870 - '(#(atom "list") - . - any))))) - ($syntax-dispatch - tmp2870 - '(#(atom "quote") - any)))) - y2868)) - tmp2867) - (syntax-error tmp2866))) - ($syntax-dispatch tmp2866 '(any any)))) - (list x2865 y2864)))) - (quasiappend2767 (lambda (x2851 y2850) - ((lambda (tmp2852) - ((lambda (tmp2853) - (if tmp2853 - (apply - (lambda () - (if (null? x2851) - '#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (if (null? (cdr x2851)) - (car x2851) - ((lambda (tmp2854) - ((lambda (tmp2855) - (if tmp2855 - (apply - (lambda (p2856) - (cons - '#(syntax-object "append" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - p2856)) - tmp2855) - (syntax-error - tmp2854))) - ($syntax-dispatch - tmp2854 - 'each-any))) - x2851)))) - tmp2853) - ((lambda (_2858) - (if (null? x2851) - y2850 - ((lambda (tmp2859) - ((lambda (tmp2860) - (if tmp2860 - (apply - (lambda (p2862 - y2861) - (cons - '#(syntax-object "append" ((top) #(ribcage #(p y) #((top) (top)) #("i" "i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (append - p2862 - (list - y2861)))) - tmp2860) - (syntax-error - tmp2859))) - ($syntax-dispatch - tmp2859 - '(each-any any)))) - (list x2851 y2850)))) - tmp2852))) + each-any))))) + ($syntax-dispatch + lexical-tmp-59610 + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t)))) + . + each-any)))) + lexical-p-59608)) + lexical-tmp-59607) + ((lambda (lexical-tmp-59620) + (if lexical-tmp-59620 + (apply (lambda (lexical-x-59621) + (lexical-quasivector-59598 + (lexical-vquasi-59594 + lexical-x-59621 + lexical-lev-59601))) + lexical-tmp-59620) + ((lambda (lexical-p-59623) + (list '#(syntax-object + "quote" + ((top) + #(ribcage #(p) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + lexical-p-59623)) + lexical-tmp-59602))) + ($syntax-dispatch + lexical-tmp-59602 + '#(vector each-any))))) + ($syntax-dispatch lexical-tmp-59602 '(any . any))))) + ($syntax-dispatch + lexical-tmp-59602 + '(#(free-id + #(syntax-object + quasiquote + ((top) + #(ribcage () () ()) + #(ribcage #(p lev) #((top) (top)) #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t)))) + any))))) + ($syntax-dispatch + lexical-tmp-59602 + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage () () ()) + #(ribcage #(p lev) #((top) (top)) #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) (top) (top) (top) (top) (top) (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t)))) + any)))) + lexical-p-59600))) + (lexical-vquasi-59594 + (lambda (lexical-p-59624 lexical-lev-59625) + ((lambda (lexical-tmp-59626) + ((lambda (lexical-tmp-59627) + (if lexical-tmp-59627 + (apply (lambda (lexical-p-59628 lexical-q-59629) + ((lambda (lexical-tmp-59630) + ((lambda (lexical-tmp-59631) + (if lexical-tmp-59631 + (apply (lambda (lexical-p-59632) + (if (= lexical-lev-59625 '0) + (lexical-quasilist*-59597 + (map (lambda (lexical-tmp-59633) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p q) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p lev) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59633)) + lexical-p-59632) + (lexical-vquasi-59594 + lexical-q-59629 + lexical-lev-59625)) + (lexical-quasicons-59595 + (lexical-quasicons-59595 + '#(syntax-object + ("quote" unquote) + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (lexical-quasi-59593 + lexical-p-59632 + (- lexical-lev-59625 + '1))) + (lexical-vquasi-59594 + lexical-q-59629 + lexical-lev-59625)))) + lexical-tmp-59631) + ((lambda (lexical-tmp-59635) + (if lexical-tmp-59635 + (apply (lambda (lexical-p-59636) + (if (= lexical-lev-59625 '0) + (lexical-quasiappend-59596 + (map (lambda (lexical-tmp-59637) + (list '#(syntax-object + "value" + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p + q) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p + lev) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59637)) + lexical-p-59636) + (lexical-vquasi-59594 + lexical-q-59629 + lexical-lev-59625)) + (lexical-quasicons-59595 + (lexical-quasicons-59595 + '#(syntax-object + ("quote" + unquote-splicing) + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (lexical-quasi-59593 + lexical-p-59636 + (- lexical-lev-59625 + '1))) + (lexical-vquasi-59594 + lexical-q-59629 + lexical-lev-59625)))) + lexical-tmp-59635) + ((lambda (lexical-_-59639) + (lexical-quasicons-59595 + (lexical-quasi-59593 + lexical-p-59628 + lexical-lev-59625) + (lexical-vquasi-59594 + lexical-q-59629 + lexical-lev-59625))) + lexical-tmp-59630))) ($syntax-dispatch - tmp2852 - '(#(atom "quote") ())))) - y2850))) - (quasilist*2768 (lambda (x2847 y2846) - ((letrec ((f2848 (lambda (x2849) - (if (null? x2849) - y2846 - (quasicons2766 - (car x2849) - (f2848 - (cdr x2849))))))) - f2848) - x2847))) - (quasivector2769 (lambda (x2817) - ((lambda (tmp2818) - ((lambda (tmp2819) - (if tmp2819 - (apply - (lambda (x2820) - (list - '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - (list->vector x2820))) - tmp2819) - ((lambda (_2822) - ((letrec ((f2823 (lambda (y2825 - k2824) - ((lambda (tmp2826) - ((lambda (tmp2827) - (if tmp2827 - (apply - (lambda (y2828) - (k2824 - (map (lambda (tmp2829) - (list - '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - tmp2829)) - y2828))) - tmp2827) - ((lambda (tmp2830) - (if tmp2830 - (apply - (lambda (y2831) - (k2824 - y2831)) - tmp2830) - ((lambda (tmp2833) - (if tmp2833 - (apply - (lambda (y2835 - z2834) - (f2823 - z2834 - (lambda (ls2836) - (k2824 - (append - y2835 - ls2836))))) - tmp2833) - ((lambda (else2838) - ((lambda (tmp2839) - ((lambda (t72840) - (list - '#(syntax-object "list->vector" ((top) #(ribcage #(t7) #(("m" tmp)) #("i")) #(ribcage #(else) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t72840)) - tmp2839)) - x2817)) - tmp2826))) - ($syntax-dispatch - tmp2826 - '(#(atom - "list*") - . - #(each+ - any - (any) - ())))))) - ($syntax-dispatch - tmp2826 - '(#(atom - "list") - . - each-any))))) - ($syntax-dispatch - tmp2826 - '(#(atom - "quote") - each-any)))) - y2825)))) - f2823) - x2817 - (lambda (ls2841) - ((lambda (tmp2842) - ((lambda (tmp2843) - (if tmp2843 - (apply - (lambda (t82844) - (cons - '#(syntax-object "vector" ((top) #(ribcage #(t8) #(("m" tmp)) #("i")) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t82844)) - tmp2843) - (syntax-error - tmp2842))) - ($syntax-dispatch - tmp2842 - 'each-any))) - ls2841)))) - tmp2818))) + lexical-tmp-59630 + '(#(free-id + #(syntax-object + unquote-splicing + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t)))) + . + each-any))))) + ($syntax-dispatch + lexical-tmp-59630 + '(#(free-id + #(syntax-object + unquote + ((top) + #(ribcage + #(p q) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t)))) + . + each-any)))) + lexical-p-59628)) + lexical-tmp-59627) + ((lambda (lexical-tmp-59640) + (if lexical-tmp-59640 + (apply (lambda () + '#(syntax-object + ("quote" ()) + ((top) + #(ribcage () () ()) + #(ribcage + #(p lev) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t)))) + lexical-tmp-59640) + (syntax-error lexical-tmp-59626))) + ($syntax-dispatch lexical-tmp-59626 '())))) + ($syntax-dispatch lexical-tmp-59626 '(any . any)))) + lexical-p-59624))) + (lexical-quasicons-59595 + (lambda (lexical-x-59641 lexical-y-59642) + ((lambda (lexical-tmp-59643) + ((lambda (lexical-tmp-59644) + (if lexical-tmp-59644 + (apply (lambda (lexical-x-59645 lexical-y-59646) + ((lambda (lexical-tmp-59647) + ((lambda (lexical-tmp-59648) + (if lexical-tmp-59648 + (apply (lambda (lexical-dy-59649) + ((lambda (lexical-tmp-59650) + ((lambda (lexical-tmp-59651) + (if lexical-tmp-59651 + (apply (lambda (lexical-dx-59652) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(dx) + #((top)) + #("i")) + #(ribcage + #(dy) + #((top)) + #("i")) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-dx-59652 + lexical-dy-59649))) + lexical-tmp-59651) + ((lambda (lexical-_-59653) + (if (null? lexical-dy-59649) + (list '#(syntax-object + "list" + ((top) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(dy) + #((top)) + #("i")) + #(ribcage + #(x y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-x-59645) + (list '#(syntax-object + "list*" + ((top) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(dy) + #((top)) + #("i")) + #(ribcage + #(x y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-x-59645 + lexical-y-59646))) + lexical-tmp-59650))) + ($syntax-dispatch + lexical-tmp-59650 + '(#(atom "quote") any)))) + lexical-x-59645)) + lexical-tmp-59648) + ((lambda (lexical-tmp-59654) + (if lexical-tmp-59654 + (apply (lambda (lexical-stuff-59655) + (cons '#(syntax-object + "list" + ((top) + #(ribcage + #(stuff) + #((top)) + #("i")) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-x-59645 + lexical-stuff-59655))) + lexical-tmp-59654) + ((lambda (lexical-tmp-59656) + (if lexical-tmp-59656 + (apply (lambda (lexical-stuff-59657) + (cons '#(syntax-object + "list*" + ((top) + #(ribcage + #(stuff) + #((top)) + #("i")) + #(ribcage + #(x y) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x y) + #((top) + (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + (cons lexical-x-59645 + lexical-stuff-59657))) + lexical-tmp-59656) + ((lambda (lexical-_-59658) + (list '#(syntax-object + "list*" + ((top) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-x-59645 + lexical-y-59646)) + lexical-tmp-59647))) + ($syntax-dispatch + lexical-tmp-59647 + '(#(atom "list*") . any))))) ($syntax-dispatch - tmp2818 - '(#(atom "quote") each-any)))) - x2817))) - (emit2770 (lambda (x2776) - ((lambda (tmp2777) - ((lambda (tmp2778) - (if tmp2778 - (apply - (lambda (x2779) - (list - '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - x2779)) - tmp2778) - ((lambda (tmp2780) - (if tmp2780 - (apply - (lambda (x2781) - ((lambda (tmp2782) - ((lambda (tmp2784) - (if tmp2784 - (apply - (lambda (t12785) - (cons - '#(syntax-object list ((top) #(ribcage #(t1) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t12785)) - tmp2784) - (syntax-error - tmp2782))) - ($syntax-dispatch - tmp2782 - 'each-any))) - (map emit2770 x2781))) - tmp2780) - ((lambda (tmp2787) - (if tmp2787 - (apply - (lambda (x2789 y2788) - ((letrec ((f2790 (lambda (x*2791) - (if (null? - x*2791) - (emit2770 - y2788) - ((lambda (tmp2792) - ((lambda (tmp2793) - (if tmp2793 - (apply - (lambda (t32795 - t22794) - (list - '#(syntax-object cons ((top) #(ribcage #(t3 t2) #(("m" tmp) ("m" tmp)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x*) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t32795 - t22794)) - tmp2793) - (syntax-error - tmp2792))) - ($syntax-dispatch - tmp2792 - '(any any)))) - (list - (emit2770 - (car x*2791)) - (f2790 - (cdr x*2791)))))))) - f2790) - x2789)) - tmp2787) - ((lambda (tmp2797) - (if tmp2797 - (apply - (lambda (x2798) - ((lambda (tmp2799) - ((lambda (tmp2801) - (if tmp2801 - (apply - (lambda (t42802) - (cons - '#(syntax-object append ((top) #(ribcage #(t4) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t42802)) - tmp2801) - (syntax-error - tmp2799))) - ($syntax-dispatch - tmp2799 - 'each-any))) - (map emit2770 - x2798))) - tmp2797) - ((lambda (tmp2804) - (if tmp2804 - (apply - (lambda (x2805) - ((lambda (tmp2806) - ((lambda (tmp2808) - (if tmp2808 - (apply - (lambda (t52809) - (cons - '#(syntax-object vector ((top) #(ribcage #(t5) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t52809)) - tmp2808) - (syntax-error - tmp2806))) - ($syntax-dispatch - tmp2806 - 'each-any))) - (map emit2770 - x2805))) - tmp2804) - ((lambda (tmp2811) - (if tmp2811 - (apply - (lambda (x2812) - ((lambda (tmp2813) - ((lambda (t62814) - (list - '#(syntax-object list->vector ((top) #(ribcage #(t6) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))) - t62814)) - tmp2813)) - (emit2770 - x2812))) - tmp2811) - ((lambda (tmp2815) - (if tmp2815 - (apply - (lambda (x2816) - x2816) - tmp2815) - (syntax-error - tmp2777))) - ($syntax-dispatch - tmp2777 - '(#(atom - "value") - any))))) - ($syntax-dispatch - tmp2777 - '(#(atom - "list->vector") - any))))) - ($syntax-dispatch - tmp2777 - '(#(atom - "vector") - . - each-any))))) - ($syntax-dispatch - tmp2777 - '(#(atom "append") - . - each-any))))) - ($syntax-dispatch - tmp2777 - '(#(atom "list*") + lexical-tmp-59647 + '(#(atom "list") . any))))) + ($syntax-dispatch + lexical-tmp-59647 + '(#(atom "quote") any)))) + lexical-y-59646)) + lexical-tmp-59644) + (syntax-error lexical-tmp-59643))) + ($syntax-dispatch lexical-tmp-59643 '(any any)))) + (list lexical-x-59641 lexical-y-59642)))) + (lexical-quasiappend-59596 + (lambda (lexical-x-59659 lexical-y-59660) + ((lambda (lexical-tmp-59661) + ((lambda (lexical-tmp-59662) + (if lexical-tmp-59662 + (apply (lambda () + (if (null? lexical-x-59659) + '#(syntax-object + ("quote" ()) + ((top) + #(ribcage () () ()) + #(ribcage #(x y) #((top) (top)) #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t))) + (if (null? (cdr lexical-x-59659)) + (car lexical-x-59659) + ((lambda (lexical-tmp-59663) + ((lambda (lexical-tmp-59664) + (if lexical-tmp-59664 + (apply (lambda (lexical-p-59665) + (cons '#(syntax-object + "append" + ((top) + #(ribcage + #(p) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-p-59665)) + lexical-tmp-59664) + (syntax-error lexical-tmp-59663))) + ($syntax-dispatch + lexical-tmp-59663 + 'each-any))) + lexical-x-59659)))) + lexical-tmp-59662) + ((lambda (lexical-_-59667) + (if (null? lexical-x-59659) + lexical-y-59660 + ((lambda (lexical-tmp-59668) + ((lambda (lexical-tmp-59669) + (if lexical-tmp-59669 + (apply (lambda (lexical-p-59670 + lexical-y-59671) + (cons '#(syntax-object + "append" + ((top) + #(ribcage + #(p y) + #((top) (top)) + #("i" "i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(x y) + #((top) (top)) + #("i" "i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + (append + lexical-p-59670 + (list lexical-y-59671)))) + lexical-tmp-59669) + (syntax-error lexical-tmp-59668))) + ($syntax-dispatch + lexical-tmp-59668 + '(each-any any)))) + (list lexical-x-59659 lexical-y-59660)))) + lexical-tmp-59661))) + ($syntax-dispatch + lexical-tmp-59661 + '(#(atom "quote") ())))) + lexical-y-59660))) + (lexical-quasilist*-59597 + (lambda (lexical-x-59673 lexical-y-59674) + ((letrec ((lexical-f-59675 + (lambda (lexical-x-59676) + (if (null? lexical-x-59676) + lexical-y-59674 + (lexical-quasicons-59595 + (car lexical-x-59676) + (lexical-f-59675 (cdr lexical-x-59676))))))) + lexical-f-59675) + lexical-x-59673))) + (lexical-quasivector-59598 + (lambda (lexical-x-59677) + ((lambda (lexical-tmp-59678) + ((lambda (lexical-tmp-59679) + (if lexical-tmp-59679 + (apply (lambda (lexical-x-59680) + (list '#(syntax-object + "quote" + ((top) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t))) + (list->vector lexical-x-59680))) + lexical-tmp-59679) + ((lambda (lexical-_-59682) + ((letrec ((lexical-f-59683 + (lambda (lexical-y-59684 lexical-k-59685) + ((lambda (lexical-tmp-59686) + ((lambda (lexical-tmp-59687) + (if lexical-tmp-59687 + (apply (lambda (lexical-y-59688) + (lexical-k-59685 + (map (lambda (lexical-tmp-59689) + (list '#(syntax-object + "quote" + ((top) + #(ribcage + #(y) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(y + k) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-tmp-59689)) + lexical-y-59688))) + lexical-tmp-59687) + ((lambda (lexical-tmp-59690) + (if lexical-tmp-59690 + (apply (lambda (lexical-y-59691) + (lexical-k-59685 + lexical-y-59691)) + lexical-tmp-59690) + ((lambda (lexical-tmp-59693) + (if lexical-tmp-59693 + (apply (lambda (lexical-y-59694 + lexical-z-59695) + (lexical-f-59683 + lexical-z-59695 + (lambda (lexical-ls-59696) + (lexical-k-59685 + (append + lexical-y-59694 + lexical-ls-59696))))) + lexical-tmp-59693) + ((lambda (lexical-else-59698) + ((lambda (lexical-tmp-59699) + ((lambda (lexical-t17-59700) + (list '#(syntax-object + "list->vector" + ((top) + #(ribcage + #(t17) + #(("m" + tmp)) + #("i")) + #(ribcage + #(else) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(y + k) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-t17-59700)) + lexical-tmp-59699)) + lexical-x-59677)) + lexical-tmp-59686))) + ($syntax-dispatch + lexical-tmp-59686 + '(#(atom "list*") + . + #(each+ + any + (any) + ())))))) + ($syntax-dispatch + lexical-tmp-59686 + '(#(atom "list") . - #(each+ any (any) - ())))))) + each-any))))) + ($syntax-dispatch + lexical-tmp-59686 + '(#(atom "quote") each-any)))) + lexical-y-59684)))) + lexical-f-59683) + lexical-x-59677 + (lambda (lexical-ls-59701) + ((lambda (lexical-tmp-59702) + ((lambda (lexical-tmp-59703) + (if lexical-tmp-59703 + (apply (lambda (lexical-t18-59704) + (cons '#(syntax-object + "vector" + ((top) + #(ribcage + #(t18) + #(("m" tmp)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(ls) + #((top)) + #("i")) + #(ribcage + #(_) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage *top* #t))) + lexical-t18-59704)) + lexical-tmp-59703) + (syntax-error lexical-tmp-59702))) + ($syntax-dispatch lexical-tmp-59702 'each-any))) + lexical-ls-59701)))) + lexical-tmp-59678))) + ($syntax-dispatch + lexical-tmp-59678 + '(#(atom "quote") each-any)))) + lexical-x-59677))) + (lexical-emit-59599 + (lambda (lexical-x-59706) + ((lambda (lexical-tmp-59707) + ((lambda (lexical-tmp-59708) + (if lexical-tmp-59708 + (apply (lambda (lexical-x-59709) + (list '#(syntax-object + quote + ((top) + #(ribcage #(x) #((top)) #("i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" "i" "i" "i" "i" "i" "i")) + #(top-ribcage *top* #t))) + lexical-x-59709)) + lexical-tmp-59708) + ((lambda (lexical-tmp-59710) + (if lexical-tmp-59710 + (apply (lambda (lexical-x-59711) + ((lambda (lexical-tmp-59712) + ((lambda (lexical-tmp-59713) + (if lexical-tmp-59713 + (apply (lambda (lexical-t19-59714) + (cons '#(syntax-object + list + ((top) + #(ribcage + #(t19) + #(("m" tmp)) + #("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-t19-59714)) + lexical-tmp-59713) + (syntax-error lexical-tmp-59712))) ($syntax-dispatch - tmp2777 - '(#(atom "list") . each-any))))) + lexical-tmp-59712 + 'each-any))) + (map lexical-emit-59599 lexical-x-59711))) + lexical-tmp-59710) + ((lambda (lexical-tmp-59717) + (if lexical-tmp-59717 + (apply (lambda (lexical-x-59718 lexical-y-59719) + ((letrec ((lexical-f-59720 + (lambda (lexical-x*-59721) + (if (null? lexical-x*-59721) + (lexical-emit-59599 + lexical-y-59719) + ((lambda (lexical-tmp-59722) + ((lambda (lexical-tmp-59723) + (if lexical-tmp-59723 + (apply (lambda (lexical-t21-59724 + lexical-t20-59725) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(t21 + t20) + #(("m" + tmp) + ("m" + tmp)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x*) + #((top)) + #("i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(x + y) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-t21-59724 + lexical-t20-59725)) + lexical-tmp-59723) + (syntax-error + lexical-tmp-59722))) + ($syntax-dispatch + lexical-tmp-59722 + '(any any)))) + (list (lexical-emit-59599 + (car lexical-x*-59721)) + (lexical-f-59720 + (cdr lexical-x*-59721)))))))) + lexical-f-59720) + lexical-x-59718)) + lexical-tmp-59717) + ((lambda (lexical-tmp-59727) + (if lexical-tmp-59727 + (apply (lambda (lexical-x-59728) + ((lambda (lexical-tmp-59729) + ((lambda (lexical-tmp-59730) + (if lexical-tmp-59730 + (apply (lambda (lexical-t22-59731) + (cons '#(syntax-object + append + ((top) + #(ribcage + #(t22) + #(("m" + tmp)) + #("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-t22-59731)) + lexical-tmp-59730) + (syntax-error + lexical-tmp-59729))) + ($syntax-dispatch + lexical-tmp-59729 + 'each-any))) + (map lexical-emit-59599 + lexical-x-59728))) + lexical-tmp-59727) + ((lambda (lexical-tmp-59734) + (if lexical-tmp-59734 + (apply (lambda (lexical-x-59735) + ((lambda (lexical-tmp-59736) + ((lambda (lexical-tmp-59737) + (if lexical-tmp-59737 + (apply (lambda (lexical-t23-59738) + (cons '#(syntax-object + vector + ((top) + #(ribcage + #(t23) + #(("m" + tmp)) + #("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-t23-59738)) + lexical-tmp-59737) + (syntax-error + lexical-tmp-59736))) + ($syntax-dispatch + lexical-tmp-59736 + 'each-any))) + (map lexical-emit-59599 + lexical-x-59735))) + lexical-tmp-59734) + ((lambda (lexical-tmp-59741) + (if lexical-tmp-59741 + (apply (lambda (lexical-x-59742) + ((lambda (lexical-tmp-59743) + ((lambda (lexical-t24-59744) + (list '#(syntax-object + list->vector + ((top) + #(ribcage + #(t24) + #(("m" + tmp)) + #("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(ribcage + (emit quasivector + quasilist* + quasiappend + quasicons + vquasi + quasi) + ((top) + (top) + (top) + (top) + (top) + (top) + (top)) + ("i" + "i" + "i" + "i" + "i" + "i" + "i")) + #(top-ribcage + *top* + #t))) + lexical-t24-59744)) + lexical-tmp-59743)) + (lexical-emit-59599 + lexical-x-59742))) + lexical-tmp-59741) + ((lambda (lexical-tmp-59745) + (if lexical-tmp-59745 + (apply (lambda (lexical-x-59746) + lexical-x-59746) + lexical-tmp-59745) + (syntax-error + lexical-tmp-59707))) + ($syntax-dispatch + lexical-tmp-59707 + '(#(atom "value") any))))) + ($syntax-dispatch + lexical-tmp-59707 + '(#(atom "list->vector") any))))) + ($syntax-dispatch + lexical-tmp-59707 + '(#(atom "vector") . each-any))))) ($syntax-dispatch - tmp2777 - '(#(atom "quote") any)))) - x2776)))) - (lambda (x2771) - ((lambda (tmp2772) - ((lambda (tmp2773) - (if tmp2773 - (apply - (lambda (_2775 e2774) (emit2770 (quasi2764 e2774 '0))) - tmp2773) - (syntax-error tmp2772))) - ($syntax-dispatch tmp2772 '(any any)))) - x2771))))) + lexical-tmp-59707 + '(#(atom "append") . each-any))))) + ($syntax-dispatch + lexical-tmp-59707 + '(#(atom "list*") . #(each+ any (any) ())))))) + ($syntax-dispatch + lexical-tmp-59707 + '(#(atom "list") . each-any))))) + ($syntax-dispatch + lexical-tmp-59707 + '(#(atom "quote") any)))) + lexical-x-59706)))) + (lambda (lexical-x-59747) + ((lambda (lexical-tmp-59748) + ((lambda (lexical-tmp-59749) + (if lexical-tmp-59749 + (apply (lambda (lexical-_-59750 lexical-e-59751) + (lexical-emit-59599 + (lexical-quasi-59593 lexical-e-59751 '0))) + lexical-tmp-59749) + (syntax-error lexical-tmp-59748))) + ($syntax-dispatch lexical-tmp-59748 '(any any)))) + lexical-x-59747))))) '*top*) + ($sc-put-cte - '#(syntax-object unquote ((top) #(ribcage #(unquote) #((top)) #(unquote)))) - (lambda (x2923) (syntax-error x2923 '"misplaced")) + '#(syntax-object + unquote + ((top) #(ribcage #(unquote) #((top)) #(unquote)))) + (lambda (lexical-x-59755) + (syntax-error lexical-x-59755 '"misplaced")) '*top*) + ($sc-put-cte - '#(syntax-object unquote-splicing ((top) #(ribcage #(unquote-splicing) #((top)) #(unquote-splicing)))) - (lambda (x2924) (syntax-error x2924 '"misplaced")) + '#(syntax-object + unquote-splicing + ((top) + #(ribcage + #(unquote-splicing) + #((top)) + #(unquote-splicing)))) + (lambda (lexical-x-59756) + (syntax-error lexical-x-59756 '"misplaced")) '*top*) + ($sc-put-cte - '#(syntax-object quasisyntax ((top) #(ribcage #(quasisyntax) #((top)) #(quasisyntax)))) - (lambda (x2925) - (letrec ((qs2926 (lambda (q2977 n2976 b*2975 k2974) - ((lambda (tmp2978) - ((lambda (tmp2979) - (if tmp2979 - (apply - (lambda (d2980) - (qs2926 - d2980 - (+ n2976 '1) - b*2975 - (lambda (b*2982 dnew2981) - (k2974 - b*2982 - (if (eq? dnew2981 d2980) - q2977 - ((lambda (tmp2983) - ((lambda (d2984) - (cons - '#(syntax-object quasisyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - d2984)) - tmp2983)) - dnew2981)))))) - tmp2979) - ((lambda (tmp2985) - (if (if tmp2985 - (apply - (lambda (d2986) - (not (= n2976 '0))) - tmp2985) - '#f) - (apply - (lambda (d2987) - (qs2926 - d2987 - (- n2976 '1) - b*2975 - (lambda (b*2989 dnew2988) - (k2974 - b*2989 - (if (eq? dnew2988 d2987) - q2977 - ((lambda (tmp2990) - ((lambda (d2991) - (cons - '#(syntax-object unsyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - d2991)) - tmp2990)) - dnew2988)))))) - tmp2985) - ((lambda (tmp2992) - (if (if tmp2992 - (apply - (lambda (d2993) - (not (= n2976 '0))) - tmp2992) - '#f) - (apply - (lambda (d2994) - (qs2926 - d2994 - (- n2976 '1) - b*2975 - (lambda (b*2996 - dnew2995) - (k2974 - b*2996 - (if (eq? dnew2995 - d2994) - q2977 - ((lambda (tmp2997) - ((lambda (d2998) - (cons - '#(syntax-object unsyntax-splicing ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - d2998)) - tmp2997)) - dnew2995)))))) - tmp2992) - ((lambda (tmp2999) - (if (if tmp2999 - (apply - (lambda (q3000) - (= n2976 '0)) - tmp2999) - '#f) - (apply - (lambda (q3001) - ((lambda (tmp3002) - ((lambda (tmp3003) - (if tmp3003 - (apply - (lambda (t3004) - (k2974 - (cons - (list - t3004 - q3001) - b*2975) - t3004)) - tmp3003) - (syntax-error - tmp3002))) - ($syntax-dispatch - tmp3002 - '(any)))) - (generate-temporaries - (list - q3001)))) - tmp2999) - ((lambda (tmp3005) - (if (if tmp3005 - (apply - (lambda (q3007 - d3006) - (= n2976 - '0)) - tmp3005) - '#f) - (apply - (lambda (q3009 - d3008) - (qs2926 - d3008 - n2976 - b*2975 - (lambda (b*3011 - dnew3010) - ((lambda (tmp3012) - ((lambda (tmp3014) - (if tmp3014 - (apply - (lambda (t3015) - (k2974 - (append - (map list - t3015 - q3009) - b*3011) - ((lambda (tmp3016) - ((lambda (d3017) - (append - t3015 - d3017)) - tmp3016)) - dnew3010))) - tmp3014) - (syntax-error - tmp3012))) - ($syntax-dispatch - tmp3012 - 'each-any))) - (generate-temporaries - q3009))))) - tmp3005) - ((lambda (tmp3021) - (if (if tmp3021 - (apply - (lambda (q3023 - d3022) - (= n2976 - '0)) - tmp3021) - '#f) - (apply - (lambda (q3025 - d3024) - (qs2926 - d3024 - n2976 - b*2975 - (lambda (b*3027 - dnew3026) - ((lambda (tmp3028) - ((lambda (tmp3030) - (if tmp3030 - (apply - (lambda (t3031) - (k2974 - (append - (map (lambda (tmp3041 - tmp3040) - (list - (cons - tmp3040 - '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))) - tmp3041)) - q3025 - t3031) - b*3027) - ((lambda (tmp3032) - ((lambda (tmp3034) - (if tmp3034 - (apply - (lambda (m3035) - ((lambda (tmp3036) - ((lambda (d3037) - (append - (apply - append - m3035) - d3037)) - tmp3036)) - dnew3026)) - tmp3034) - (syntax-error - tmp3032))) - ($syntax-dispatch - tmp3032 - '#(each - each-any)))) - (map (lambda (tmp3033) - (cons - tmp3033 - '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))) - t3031)))) - tmp3030) - (syntax-error - tmp3028))) - ($syntax-dispatch - tmp3028 - 'each-any))) - (generate-temporaries - q3025))))) - tmp3021) - ((lambda (tmp3042) - (if tmp3042 - (apply - (lambda (a3044 - d3043) - (qs2926 - a3044 - n2976 - b*2975 - (lambda (b*3046 - anew3045) - (qs2926 - d3043 - n2976 - b*3046 - (lambda (b*3048 - dnew3047) - (k2974 - b*3048 - (if (if (eq? anew3045 - a3044) - (eq? dnew3047 - d3043) - '#f) - q2977 - ((lambda (tmp3049) - ((lambda (tmp3050) - (if tmp3050 - (apply - (lambda (a3052 - d3051) - (cons - a3052 - d3051)) - tmp3050) - (syntax-error - tmp3049))) - ($syntax-dispatch - tmp3049 - '(any any)))) - (list - anew3045 - dnew3047))))))))) - tmp3042) - ((lambda (tmp3053) - (if tmp3053 - (apply - (lambda (x3054) - (vqs2927 - x3054 - n2976 - b*2975 - (lambda (b*3056 - xnew*3055) - (k2974 - b*3056 - (if ((letrec ((same?3057 (lambda (x*3059 - xnew*3058) - (if (null? - x*3059) - (null? - xnew*3058) - (if (not (null? - xnew*3058)) - (if (eq? (car x*3059) - (car xnew*3058)) - (same?3057 - (cdr x*3059) - (cdr xnew*3058)) - '#f) - '#f))))) - same?3057) - x3054 - xnew*3055) - q2977 - ((lambda (tmp3061) - ((lambda (tmp3062) - (if tmp3062 - (apply - (lambda (x3063) - (list->vector - x3063)) - tmp3062) - (syntax-error - tmp3061))) - ($syntax-dispatch - tmp3061 - 'each-any))) - xnew*3055)))))) - tmp3053) - ((lambda (_3066) - (k2974 - b*2975 - q2977)) - tmp2978))) - ($syntax-dispatch - tmp2978 - '#(vector - each-any))))) - ($syntax-dispatch - tmp2978 - '(any . - any))))) - ($syntax-dispatch - tmp2978 - '((#(free-id - #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - . - each-any) - . - any))))) + '#(syntax-object + quasisyntax + ((top) + #(ribcage #(quasisyntax) #((top)) #(quasisyntax)))) + (lambda (lexical-x-59757) + (letrec* + ((lexical-qs-59758 + (lambda (lexical-q-59760 + lexical-n-59761 + lexical-b*-59762 + lexical-k-59763) + ((lambda (lexical-tmp-59764) + ((lambda (lexical-tmp-59765) + (if lexical-tmp-59765 + (apply (lambda (lexical-d-59766) + (lexical-qs-59758 + lexical-d-59766 + (+ lexical-n-59761 '1) + lexical-b*-59762 + (lambda (lexical-b*-59767 lexical-dnew-59768) + (lexical-k-59763 + lexical-b*-59767 + (if (eq? lexical-dnew-59768 lexical-d-59766) + lexical-q-59760 + ((lambda (lexical-tmp-59769) + ((lambda (lexical-d-59770) + (cons '#(syntax-object + quasisyntax + ((top) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(b* dnew) + #((top) (top)) + #("i" "i")) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-d-59770)) + lexical-tmp-59769)) + lexical-dnew-59768)))))) + lexical-tmp-59765) + ((lambda (lexical-tmp-59771) + (if (if lexical-tmp-59771 + (apply (lambda (lexical-d-59772) + (not (= lexical-n-59761 '0))) + lexical-tmp-59771) + '#f) + (apply (lambda (lexical-d-59773) + (lexical-qs-59758 + lexical-d-59773 + (- lexical-n-59761 '1) + lexical-b*-59762 + (lambda (lexical-b*-59774 + lexical-dnew-59775) + (lexical-k-59763 + lexical-b*-59774 + (if (eq? lexical-dnew-59775 + lexical-d-59773) + lexical-q-59760 + ((lambda (lexical-tmp-59776) + ((lambda (lexical-d-59777) + (cons '#(syntax-object + unsyntax + ((top) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(b* dnew) + #((top) (top)) + #("i" "i")) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) + (top) + (top) + (top)) + #("i" "i" "i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-d-59777)) + lexical-tmp-59776)) + lexical-dnew-59775)))))) + lexical-tmp-59771) + ((lambda (lexical-tmp-59778) + (if (if lexical-tmp-59778 + (apply (lambda (lexical-d-59779) + (not (= lexical-n-59761 '0))) + lexical-tmp-59778) + '#f) + (apply (lambda (lexical-d-59780) + (lexical-qs-59758 + lexical-d-59780 + (- lexical-n-59761 '1) + lexical-b*-59762 + (lambda (lexical-b*-59781 + lexical-dnew-59782) + (lexical-k-59763 + lexical-b*-59781 + (if (eq? lexical-dnew-59782 + lexical-d-59780) + lexical-q-59760 + ((lambda (lexical-tmp-59783) + ((lambda (lexical-d-59784) + (cons '#(syntax-object + unsyntax-splicing + ((top) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(b* dnew) + #((top) (top)) + #("i" "i")) + #(ribcage + #(d) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(q n b* k) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-d-59784)) + lexical-tmp-59783)) + lexical-dnew-59782)))))) + lexical-tmp-59778) + ((lambda (lexical-tmp-59785) + (if (if lexical-tmp-59785 + (apply (lambda (lexical-q-59786) + (= lexical-n-59761 '0)) + lexical-tmp-59785) + '#f) + (apply (lambda (lexical-q-59787) + ((lambda (lexical-tmp-59788) + ((lambda (lexical-tmp-59789) + (if lexical-tmp-59789 + (apply (lambda (lexical-t-59790) + (lexical-k-59763 + (cons (list lexical-t-59790 + lexical-q-59787) + lexical-b*-59762) + lexical-t-59790)) + lexical-tmp-59789) + (syntax-error + lexical-tmp-59788))) + ($syntax-dispatch + lexical-tmp-59788 + '(any)))) + (generate-temporaries + (list lexical-q-59787)))) + lexical-tmp-59785) + ((lambda (lexical-tmp-59791) + (if (if lexical-tmp-59791 + (apply (lambda (lexical-q-59792 + lexical-d-59793) + (= lexical-n-59761 '0)) + lexical-tmp-59791) + '#f) + (apply (lambda (lexical-q-59794 + lexical-d-59795) + (lexical-qs-59758 + lexical-d-59795 + lexical-n-59761 + lexical-b*-59762 + (lambda (lexical-b*-59796 + lexical-dnew-59797) + ((lambda (lexical-tmp-59798) + ((lambda (lexical-tmp-59799) + (if lexical-tmp-59799 + (apply (lambda (lexical-t-59800) + (lexical-k-59763 + (append + (map list + lexical-t-59800 + lexical-q-59794) + lexical-b*-59796) + ((lambda (lexical-tmp-59803) + ((lambda (lexical-d-59804) + (append + lexical-t-59800 + lexical-d-59804)) + lexical-tmp-59803)) + lexical-dnew-59797))) + lexical-tmp-59799) + (syntax-error + lexical-tmp-59798))) ($syntax-dispatch - tmp2978 - '((#(free-id - #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - . - each-any) - . - any))))) - ($syntax-dispatch - tmp2978 - '(#(free-id - #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - any))))) - ($syntax-dispatch - tmp2978 - '(#(free-id - #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - . - any))))) + lexical-tmp-59798 + 'each-any))) + (generate-temporaries + lexical-q-59794))))) + lexical-tmp-59791) + ((lambda (lexical-tmp-59807) + (if (if lexical-tmp-59807 + (apply (lambda (lexical-q-59808 + lexical-d-59809) + (= lexical-n-59761 + '0)) + lexical-tmp-59807) + '#f) + (apply (lambda (lexical-q-59810 + lexical-d-59811) + (lexical-qs-59758 + lexical-d-59811 + lexical-n-59761 + lexical-b*-59762 + (lambda (lexical-b*-59812 + lexical-dnew-59813) + ((lambda (lexical-tmp-59814) + ((lambda (lexical-tmp-59815) + (if lexical-tmp-59815 + (apply (lambda (lexical-t-59816) + (lexical-k-59763 + (append + (map (lambda (lexical-tmp-59818 + lexical-tmp-59817) + (list (cons lexical-tmp-59817 + '(#(syntax-object + ... + ((top) + #(ribcage + #(t) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(b* + dnew) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(q + d) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(q + n + b* + k) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + (vqs qs) + ((top) + (top)) + ("i" + "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))))) + lexical-tmp-59818)) + lexical-q-59810 + lexical-t-59816) + lexical-b*-59812) + ((lambda (lexical-tmp-59819) + ((lambda (lexical-tmp-59820) + (if lexical-tmp-59820 + (apply (lambda (lexical-m-59821) + ((lambda (lexical-tmp-59822) + ((lambda (lexical-d-59823) + (append + (apply append + lexical-m-59821) + lexical-d-59823)) + lexical-tmp-59822)) + lexical-dnew-59813)) + lexical-tmp-59820) + (syntax-error + lexical-tmp-59819))) + ($syntax-dispatch + lexical-tmp-59819 + '#(each + each-any)))) + (map (lambda (lexical-tmp-59826) + (cons lexical-tmp-59826 + '(#(syntax-object + ... + ((top) + #(ribcage + #(t) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(b* + dnew) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(q + d) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(q + n + b* + k) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + (vqs qs) + ((top) + (top)) + ("i" + "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t)))))) + lexical-t-59816)))) + lexical-tmp-59815) + (syntax-error + lexical-tmp-59814))) + ($syntax-dispatch + lexical-tmp-59814 + 'each-any))) + (generate-temporaries + lexical-q-59810))))) + lexical-tmp-59807) + ((lambda (lexical-tmp-59828) + (if lexical-tmp-59828 + (apply (lambda (lexical-a-59829 + lexical-d-59830) + (lexical-qs-59758 + lexical-a-59829 + lexical-n-59761 + lexical-b*-59762 + (lambda (lexical-b*-59831 + lexical-anew-59832) + (lexical-qs-59758 + lexical-d-59830 + lexical-n-59761 + lexical-b*-59831 + (lambda (lexical-b*-59833 + lexical-dnew-59834) + (lexical-k-59763 + lexical-b*-59833 + (if (if (eq? lexical-anew-59832 + lexical-a-59829) + (eq? lexical-dnew-59834 + lexical-d-59830) + '#f) + lexical-q-59760 + ((lambda (lexical-tmp-59835) + ((lambda (lexical-tmp-59836) + (if lexical-tmp-59836 + (apply (lambda (lexical-a-59837 + lexical-d-59838) + (cons lexical-a-59837 + lexical-d-59838)) + lexical-tmp-59836) + (syntax-error + lexical-tmp-59835))) + ($syntax-dispatch + lexical-tmp-59835 + '(any any)))) + (list lexical-anew-59832 + lexical-dnew-59834))))))))) + lexical-tmp-59828) + ((lambda (lexical-tmp-59839) + (if lexical-tmp-59839 + (apply (lambda (lexical-x-59840) + (lexical-vqs-59759 + lexical-x-59840 + lexical-n-59761 + lexical-b*-59762 + (lambda (lexical-b*-59842 + lexical-xnew*-59843) + (lexical-k-59763 + lexical-b*-59842 + (if ((letrec ((lexical-same?-59844 + (lambda (lexical-x*-59845 + lexical-xnew*-59846) + (if (null? lexical-x*-59845) + (null? lexical-xnew*-59846) + (if (not (null? lexical-xnew*-59846)) + (if (eq? (car lexical-x*-59845) + (car lexical-xnew*-59846)) + (lexical-same?-59844 + (cdr lexical-x*-59845) + (cdr lexical-xnew*-59846)) + '#f) + '#f))))) + lexical-same?-59844) + lexical-x-59840 + lexical-xnew*-59843) + lexical-q-59760 + ((lambda (lexical-tmp-59848) + ((lambda (lexical-tmp-59849) + (if lexical-tmp-59849 + (apply (lambda (lexical-x-59850) + (list->vector + lexical-x-59850)) + lexical-tmp-59849) + (syntax-error + lexical-tmp-59848))) + ($syntax-dispatch + lexical-tmp-59848 + 'each-any))) + lexical-xnew*-59843)))))) + lexical-tmp-59839) + ((lambda (lexical-_-59852) + (lexical-k-59763 + lexical-b*-59762 + lexical-q-59760)) + lexical-tmp-59764))) + ($syntax-dispatch + lexical-tmp-59764 + '#(vector each-any))))) + ($syntax-dispatch + lexical-tmp-59764 + '(any . any))))) + ($syntax-dispatch + lexical-tmp-59764 + '((#(free-id + #(syntax-object + unsyntax-splicing + ((top) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t)))) + . + each-any) + . + any))))) ($syntax-dispatch - tmp2978 - '(#(free-id - #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) + lexical-tmp-59764 + '((#(free-id + #(syntax-object + unsyntax + ((top) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) . - any))))) - ($syntax-dispatch - tmp2978 - '(#(free-id - #(syntax-object quasisyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - . - any)))) - q2977))) - (vqs2927 (lambda (x*2942 n2941 b*2940 k2939) - (if (null? x*2942) - (k2939 b*2940 '()) - (vqs2927 - (cdr x*2942) - n2941 - b*2940 - (lambda (b*2944 xnew*2943) - ((lambda (tmp2945) - ((lambda (tmp2946) - (if (if tmp2946 - (apply - (lambda (q2947) - (= n2941 '0)) - tmp2946) - '#f) - (apply - (lambda (q2948) - ((lambda (tmp2949) - ((lambda (tmp2951) - (if tmp2951 - (apply - (lambda (t2952) - (k2939 - (append - (map list - t2952 - q2948) - b*2944) - (append - t2952 - xnew*2943))) - tmp2951) - (syntax-error - tmp2949))) - ($syntax-dispatch - tmp2949 - 'each-any))) - (generate-temporaries - q2948))) - tmp2946) - ((lambda (tmp2956) - (if (if tmp2956 - (apply - (lambda (q2957) - (= n2941 '0)) - tmp2956) - '#f) - (apply - (lambda (q2958) - ((lambda (tmp2959) - ((lambda (tmp2961) - (if tmp2961 - (apply - (lambda (t2962) - (k2939 - (append - (map (lambda (tmp2970 - tmp2969) - (list - (cons - tmp2969 - '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))) - tmp2970)) - q2958 - t2962) - b*2944) - ((lambda (tmp2963) - ((lambda (tmp2965) - (if tmp2965 - (apply - (lambda (m2966) - (append - (apply - append - m2966) - xnew*2943)) - tmp2965) - (syntax-error - tmp2963))) - ($syntax-dispatch - tmp2963 - '#(each - each-any)))) - (map (lambda (tmp2964) - (cons - tmp2964 - '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))) - t2962)))) - tmp2961) - (syntax-error - tmp2959))) - ($syntax-dispatch - tmp2959 - 'each-any))) - (generate-temporaries - q2958))) - tmp2956) - ((lambda (_2971) - (qs2926 - (car x*2942) - n2941 - b*2944 - (lambda (b*2973 - xnew2972) - (k2939 - b*2973 - (cons - xnew2972 - xnew*2943))))) - tmp2945))) - ($syntax-dispatch - tmp2945 - '(#(free-id - #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - . - each-any))))) - ($syntax-dispatch - tmp2945 - '(#(free-id - #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - . - each-any)))) - (car x*2942)))))))) - ((lambda (tmp2928) - ((lambda (tmp2929) - (if tmp2929 - (apply - (lambda (_2931 x2930) - (qs2926 - x2930 - '0 - '() - (lambda (b*2933 xnew2932) - (if (eq? xnew2932 x2930) - (list - '#(syntax-object syntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - x2930) - ((lambda (tmp2934) - ((lambda (tmp2935) - (if tmp2935 - (apply - (lambda (b2937 x2936) - (list - '#(syntax-object with-syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - b2937 - (list - '#(syntax-object syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - x2936))) - tmp2935) - (syntax-error tmp2934))) + each-any) + . + any))))) + ($syntax-dispatch + lexical-tmp-59764 + '(#(free-id + #(syntax-object + unsyntax + ((top) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + any))))) + ($syntax-dispatch + lexical-tmp-59764 + '(#(free-id + #(syntax-object + unsyntax-splicing + ((top) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage (vqs qs) ((top) (top)) ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + . + any))))) + ($syntax-dispatch + lexical-tmp-59764 + '(#(free-id + #(syntax-object + unsyntax + ((top) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage (vqs qs) ((top) (top)) ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + . + any))))) + ($syntax-dispatch + lexical-tmp-59764 + '(#(free-id + #(syntax-object + quasisyntax + ((top) + #(ribcage () () ()) + #(ribcage + #(q n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage (vqs qs) ((top) (top)) ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + . + any)))) + lexical-q-59760))) + (lexical-vqs-59759 + (lambda (lexical-x*-59853 + lexical-n-59854 + lexical-b*-59855 + lexical-k-59856) + (if (null? lexical-x*-59853) + (lexical-k-59856 lexical-b*-59855 '()) + (lexical-vqs-59759 + (cdr lexical-x*-59853) + lexical-n-59854 + lexical-b*-59855 + (lambda (lexical-b*-59857 lexical-xnew*-59858) + ((lambda (lexical-tmp-59859) + ((lambda (lexical-tmp-59860) + (if (if lexical-tmp-59860 + (apply (lambda (lexical-q-59861) + (= lexical-n-59854 '0)) + lexical-tmp-59860) + '#f) + (apply (lambda (lexical-q-59862) + ((lambda (lexical-tmp-59863) + ((lambda (lexical-tmp-59864) + (if lexical-tmp-59864 + (apply (lambda (lexical-t-59865) + (lexical-k-59856 + (append + (map list + lexical-t-59865 + lexical-q-59862) + lexical-b*-59857) + (append + lexical-t-59865 + lexical-xnew*-59858))) + lexical-tmp-59864) + (syntax-error lexical-tmp-59863))) + ($syntax-dispatch + lexical-tmp-59863 + 'each-any))) + (generate-temporaries lexical-q-59862))) + lexical-tmp-59860) + ((lambda (lexical-tmp-59870) + (if (if lexical-tmp-59870 + (apply (lambda (lexical-q-59871) + (= lexical-n-59854 '0)) + lexical-tmp-59870) + '#f) + (apply (lambda (lexical-q-59872) + ((lambda (lexical-tmp-59873) + ((lambda (lexical-tmp-59874) + (if lexical-tmp-59874 + (apply (lambda (lexical-t-59875) + (lexical-k-59856 + (append + (map (lambda (lexical-tmp-59877 + lexical-tmp-59876) + (list (cons lexical-tmp-59876 + '(#(syntax-object + ... + ((top) + #(ribcage + #(t) + #((top)) + #("i")) + #(ribcage + #(q) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(b* + xnew*) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x* + n + b* + k) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + (vqs qs) + ((top) + (top)) + ("i" + "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))))) + lexical-tmp-59877)) + lexical-q-59872 + lexical-t-59875) + lexical-b*-59857) + ((lambda (lexical-tmp-59878) + ((lambda (lexical-tmp-59879) + (if lexical-tmp-59879 + (apply (lambda (lexical-m-59880) + (append + (apply append + lexical-m-59880) + lexical-xnew*-59858)) + lexical-tmp-59879) + (syntax-error + lexical-tmp-59878))) + ($syntax-dispatch + lexical-tmp-59878 + '#(each + each-any)))) + (map (lambda (lexical-tmp-59883) + (cons lexical-tmp-59883 + '(#(syntax-object + ... + ((top) + #(ribcage + #(t) + #((top)) + #("i")) + #(ribcage + #(q) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(b* + xnew*) + #((top) + (top)) + #("i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x* + n + b* + k) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + (vqs qs) + ((top) + (top)) + ("i" + "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t)))))) + lexical-t-59875)))) + lexical-tmp-59874) + (syntax-error + lexical-tmp-59873))) + ($syntax-dispatch + lexical-tmp-59873 + 'each-any))) + (generate-temporaries + lexical-q-59872))) + lexical-tmp-59870) + ((lambda (lexical-_-59885) + (lexical-qs-59758 + (car lexical-x*-59853) + lexical-n-59854 + lexical-b*-59857 + (lambda (lexical-b*-59886 + lexical-xnew-59887) + (lexical-k-59856 + lexical-b*-59886 + (cons lexical-xnew-59887 + lexical-xnew*-59858))))) + lexical-tmp-59859))) + ($syntax-dispatch + lexical-tmp-59859 + '(#(free-id + #(syntax-object + unsyntax-splicing + ((top) + #(ribcage () () ()) + #(ribcage + #(b* xnew*) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x* n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage (vqs qs) ((top) (top)) ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + . + each-any))))) + ($syntax-dispatch + lexical-tmp-59859 + '(#(free-id + #(syntax-object + unsyntax + ((top) + #(ribcage () () ()) + #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x* n b* k) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage (vqs qs) ((top) (top)) ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t)))) + . + each-any)))) + (car lexical-x*-59853)))))))) + ((lambda (lexical-tmp-59888) + ((lambda (lexical-tmp-59889) + (if lexical-tmp-59889 + (apply (lambda (lexical-_-59890 lexical-x-59891) + (lexical-qs-59758 + lexical-x-59891 + '0 + '() + (lambda (lexical-b*-59892 lexical-xnew-59893) + (if (eq? lexical-xnew-59893 lexical-x-59891) + (list '#(syntax-object + syntax + ((top) + #(ribcage () () ()) + #(ribcage + #(b* xnew) + #((top) (top)) + #("i" "i")) + #(ribcage + #(_ x) + #((top) (top)) + #("i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + lexical-x-59891) + ((lambda (lexical-tmp-59894) + ((lambda (lexical-tmp-59895) + (if lexical-tmp-59895 + (apply (lambda (lexical-b-59896 + lexical-x-59897) + (list '#(syntax-object + with-syntax + ((top) + #(ribcage + #(b x) + #((top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(b* xnew) + #((top) (top)) + #("i" "i")) + #(ribcage + #(_ x) + #((top) (top)) + #("i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-b-59896 + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(b x) + #((top) (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(b* xnew) + #((top) (top)) + #("i" "i")) + #(ribcage + #(_ x) + #((top) (top)) + #("i" "i")) + #(ribcage + (vqs qs) + ((top) (top)) + ("i" "i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-x-59897))) + lexical-tmp-59895) + (syntax-error lexical-tmp-59894))) ($syntax-dispatch - tmp2934 + lexical-tmp-59894 '(each-any any)))) - (list b*2933 xnew2932)))))) - tmp2929) - (syntax-error tmp2928))) - ($syntax-dispatch tmp2928 '(any any)))) - x2925))) + (list lexical-b*-59892 lexical-xnew-59893)))))) + lexical-tmp-59889) + (syntax-error lexical-tmp-59888))) + ($syntax-dispatch lexical-tmp-59888 '(any any)))) + lexical-x-59757))) '*top*) + ($sc-put-cte - '#(syntax-object unsyntax ((top) #(ribcage #(unsyntax) #((top)) #(unsyntax)))) - (lambda (x3067) (syntax-error x3067 '"misplaced")) + '#(syntax-object + unsyntax + ((top) + #(ribcage #(unsyntax) #((top)) #(unsyntax)))) + (lambda (lexical-x-59900) + (syntax-error lexical-x-59900 '"misplaced")) '*top*) + ($sc-put-cte - '#(syntax-object unsyntax-splicing ((top) #(ribcage #(unsyntax-splicing) #((top)) #(unsyntax-splicing)))) - (lambda (x3068) (syntax-error x3068 '"misplaced")) + '#(syntax-object + unsyntax-splicing + ((top) + #(ribcage + #(unsyntax-splicing) + #((top)) + #(unsyntax-splicing)))) + (lambda (lexical-x-59901) + (syntax-error lexical-x-59901 '"misplaced")) '*top*) + ($sc-put-cte - '#(syntax-object include ((top) #(ribcage #(include) #((top)) #(include)))) - (lambda (x3069) - (letrec ((read-file3070 (lambda (fn3081 k3080) - ((lambda (p3082) - ((letrec ((f3083 (lambda () - ((lambda (x3084) - (if (eof-object? - x3084) - (begin - (close-input-port - p3082) - '()) - (cons - (datum->syntax-object - k3080 - x3084) - (f3083)))) - (read p3082))))) - f3083))) - (open-input-file fn3081))))) - ((lambda (tmp3071) - ((lambda (tmp3072) - (if tmp3072 - (apply - (lambda (k3074 filename3073) - ((lambda (fn3075) - ((lambda (tmp3076) - ((lambda (tmp3077) - (if tmp3077 - (apply - (lambda (exp3078) - (cons - '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i" "i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - exp3078)) - tmp3077) - (syntax-error tmp3076))) - ($syntax-dispatch tmp3076 'each-any))) - (read-file3070 fn3075 k3074))) - (syntax-object->datum filename3073))) - tmp3072) - (syntax-error tmp3071))) - ($syntax-dispatch tmp3071 '(any any)))) - x3069))) + '#(syntax-object + include + ((top) #(ribcage #(include) #((top)) #(include)))) + (lambda (lexical-x-59902) + (letrec* + ((lexical-read-file-59903 + (lambda (lexical-fn-59904 lexical-k-59905) + ((lambda (lexical-p-59906) + ((letrec ((lexical-f-59907 + (lambda () + ((lambda (lexical-x-59908) + (if (eof-object? lexical-x-59908) + (begin (close-input-port lexical-p-59906) '()) + (cons (datum->syntax-object + lexical-k-59905 + lexical-x-59908) + (lexical-f-59907)))) + (read lexical-p-59906))))) + lexical-f-59907))) + (open-input-file lexical-fn-59904))))) + ((lambda (lexical-tmp-59909) + ((lambda (lexical-tmp-59910) + (if lexical-tmp-59910 + (apply (lambda (lexical-k-59911 lexical-filename-59912) + ((lambda (lexical-fn-59913) + ((lambda (lexical-tmp-59914) + ((lambda (lexical-tmp-59915) + (if lexical-tmp-59915 + (apply (lambda (lexical-exp-59916) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(exp) + #((top)) + #("i")) + #(ribcage () () ()) + #(ribcage + #(fn) + #((top)) + #("i")) + #(ribcage + #(k filename) + #((top) (top)) + #("i" "i")) + #(ribcage + (read-file) + ((top)) + ("i")) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-exp-59916)) + lexical-tmp-59915) + (syntax-error lexical-tmp-59914))) + ($syntax-dispatch lexical-tmp-59914 'each-any))) + (lexical-read-file-59903 + lexical-fn-59913 + lexical-k-59911))) + (syntax-object->datum lexical-filename-59912))) + lexical-tmp-59910) + (syntax-error lexical-tmp-59909))) + ($syntax-dispatch lexical-tmp-59909 '(any any)))) + lexical-x-59902))) '*top*) + ($sc-put-cte - '#(syntax-object case ((top) #(ribcage #(case) #((top)) #(case)))) - (lambda (x3085) - ((lambda (tmp3086) - ((lambda (tmp3087) - (if tmp3087 - (apply - (lambda (_3091 e3090 m13089 m23088) - ((lambda (tmp3092) - ((lambda (body3119) - (list - '#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - '#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - e3090)) - body3119)) - tmp3092)) - ((letrec ((f3093 (lambda (clause3095 clauses3094) - (if (null? clauses3094) - ((lambda (tmp3096) - ((lambda (tmp3097) - (if tmp3097 - (apply - (lambda (e13099 - e23098) - (cons - '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e13099 - e23098))) - tmp3097) - ((lambda (tmp3101) - (if tmp3101 - (apply - (lambda (k3104 - e13103 - e23102) - (list - '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - k3104)) - (cons - '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e13103 - e23102)))) - tmp3101) - ((lambda (_3107) - (syntax-error - x3085)) - tmp3096))) - ($syntax-dispatch - tmp3096 - '(each-any - any - . - each-any))))) + '#(syntax-object + case + ((top) #(ribcage #(case) #((top)) #(case)))) + (lambda (lexical-x-59919) + ((lambda (lexical-tmp-59920) + ((lambda (lexical-tmp-59921) + (if lexical-tmp-59921 + (apply (lambda (lexical-_-59922 + lexical-e-59923 + lexical-m1-59924 + lexical-m2-59925) + ((lambda (lexical-tmp-59926) + ((lambda (lexical-body-59927) + (list '#(syntax-object + let + ((top) + #(ribcage #(body) #((top)) #("i")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #((top)) #("i")) + #(top-ribcage *top* #t))) + (list (list '#(syntax-object + t + ((top) + #(ribcage + #(body) + #((top)) + #("i")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-e-59923)) + lexical-body-59927)) + lexical-tmp-59926)) + ((letrec ((lexical-f-59928 + (lambda (lexical-clause-59929 + lexical-clauses-59930) + (if (null? lexical-clauses-59930) + ((lambda (lexical-tmp-59931) + ((lambda (lexical-tmp-59932) + (if lexical-tmp-59932 + (apply (lambda (lexical-e1-59933 + lexical-e2-59934) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(e1 e2) + #((top) + (top)) + #("i" "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ e m1 m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59933 + lexical-e2-59934))) + lexical-tmp-59932) + ((lambda (lexical-tmp-59936) + (if lexical-tmp-59936 + (apply (lambda (lexical-k-59937 + lexical-e1-59938 + lexical-e2-59939) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-k-59937)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59938 + lexical-e2-59939)))) + lexical-tmp-59936) + ((lambda (lexical-_-59942) + (syntax-error + lexical-x-59919)) + lexical-tmp-59931))) + ($syntax-dispatch + lexical-tmp-59931 + '(each-any any . each-any))))) + ($syntax-dispatch + lexical-tmp-59931 + '(#(free-id + #(syntax-object + else + ((top) + #(ribcage () () ()) + #(ribcage + #(clause clauses) + #((top) (top)) + #("i" "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ e m1 m2) + #((top) (top) (top) (top)) + #("i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage *top* #t)))) + any + . + each-any)))) + lexical-clause-59929) + ((lambda (lexical-tmp-59943) + ((lambda (lexical-rest-59944) + ((lambda (lexical-tmp-59945) + ((lambda (lexical-tmp-59946) + (if lexical-tmp-59946 + (apply (lambda (lexical-k-59947 + lexical-e1-59948 + lexical-e2-59949) + (list '#(syntax-object + if + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + memv + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + '#(syntax-object + t + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + quote + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-k-59947)) + (cons '#(syntax-object + begin + ((top) + #(ribcage + #(k + e1 + e2) + #((top) + (top) + (top)) + #("i" + "i" + "i")) + #(ribcage + #(rest) + #((top)) + #("i")) + #(ribcage + () + () + ()) + #(ribcage + #(clause + clauses) + #((top) + (top)) + #("i" + "i")) + #(ribcage + #(f) + #((top)) + #("i")) + #(ribcage + #(_ + e + m1 + m2) + #((top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #((top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-e1-59948 + lexical-e2-59949)) + lexical-rest-59944)) + lexical-tmp-59946) + ((lambda (lexical-_-59952) + (syntax-error + lexical-x-59919)) + lexical-tmp-59945))) ($syntax-dispatch - tmp3096 - '(#(free-id - #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))) - any - . - each-any)))) - clause3095) - ((lambda (tmp3108) - ((lambda (rest3109) - ((lambda (tmp3110) - ((lambda (tmp3111) - (if tmp3111 - (apply - (lambda (k3114 - e13113 - e23112) - (list - '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - k3114)) - (cons - '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))) - (cons - e13113 - e23112)) - rest3109)) - tmp3111) - ((lambda (_3117) - (syntax-error - x3085)) - tmp3110))) - ($syntax-dispatch - tmp3110 - '(each-any - any - . - each-any)))) - clause3095)) - tmp3108)) - (f3093 - (car clauses3094) - (cdr clauses3094))))))) - f3093) - m13089 - m23088))) - tmp3087) - (syntax-error tmp3086))) - ($syntax-dispatch tmp3086 '(any any any . each-any)))) - x3085)) + lexical-tmp-59945 + '(each-any any . each-any)))) + lexical-clause-59929)) + lexical-tmp-59943)) + (lexical-f-59928 + (car lexical-clauses-59930) + (cdr lexical-clauses-59930))))))) + lexical-f-59928) + lexical-m1-59924 + lexical-m2-59925))) + lexical-tmp-59921) + (syntax-error lexical-tmp-59920))) + ($syntax-dispatch + lexical-tmp-59920 + '(any any any . each-any)))) + lexical-x-59919)) '*top*) + ($sc-put-cte - '#(syntax-object identifier-syntax ((top) #(ribcage #(identifier-syntax) #((top)) #(identifier-syntax)))) - (lambda (x3120) - ((lambda (tmp3121) - ((lambda (tmp3122) - (if tmp3122 - (apply - (lambda (dummy3124 e3123) - (list - '#(syntax-object lambda ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object (x) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax-case ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '() - (list - '#(syntax-object id ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object (identifier? (syntax id)) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - e3123)) - (list - '(#(syntax-object _ ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - #(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - #(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (cons - e3123 - '(#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - #(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))))))) - tmp3122) - ((lambda (tmp3125) - (if (if tmp3125 - (apply - (lambda (dummy3131 id3130 exp13129 var3128 - val3127 exp23126) - (if (identifier? id3130) - (identifier? var3128) - '#f)) - tmp3125) - '#f) - (apply - (lambda (dummy3137 id3136 exp13135 var3134 val3133 - exp23132) - (list - '#(syntax-object cons ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object (quote macro!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object lambda ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object (x) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax-case ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - '#(syntax-object (set!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - (list - '#(syntax-object set! ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - var3134 - val3133) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - exp23132)) - (list - (cons - id3136 - '(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - #(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (cons - exp13135 - '(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - #(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))))) - (list - id3136 - (list - '#(syntax-object identifier? ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - id3136)) - (list - '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))) - exp13135)))))) - tmp3125) - (syntax-error tmp3121))) - ($syntax-dispatch - tmp3121 - '(any (any any) - ((#(free-id - #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))) - any - any) - any)))))) - ($syntax-dispatch tmp3121 '(any any)))) - x3120)) + '#(syntax-object + identifier-syntax + ((top) + #(ribcage + #(identifier-syntax) + #((top)) + #(identifier-syntax)))) + (lambda (lexical-x-59955) + ((lambda (lexical-tmp-59956) + ((lambda (lexical-tmp-59957) + (if lexical-tmp-59957 + (apply (lambda (lexical-dummy-59958 lexical-e-59959) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + (x) + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + x + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + '() + (list '#(syntax-object + id + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + (identifier? (syntax id)) + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t))) + lexical-e-59959)) + (list '(#(syntax-object + _ + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + #(syntax-object + x + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + #(syntax-object + ... + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t)))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t))) + (cons lexical-e-59959 + '(#(syntax-object + x + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + #(syntax-object + ... + ((top) + #(ribcage + #(dummy e) + #(("m" top) (top)) + #("i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t)))))))))) + lexical-tmp-59957) + ((lambda (lexical-tmp-59960) + (if (if lexical-tmp-59960 + (apply (lambda (lexical-dummy-59961 + lexical-id-59962 + lexical-exp1-59963 + lexical-var-59964 + lexical-val-59965 + lexical-exp2-59966) + (if (identifier? lexical-id-59962) + (identifier? lexical-var-59964) + '#f)) + lexical-tmp-59960) + '#f) + (apply (lambda (lexical-dummy-59967 + lexical-id-59968 + lexical-exp1-59969 + lexical-var-59970 + lexical-val-59971 + lexical-exp2-59972) + (list '#(syntax-object + cons + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + 'macro! + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + lambda + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + (x) + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t))) + (list '#(syntax-object + syntax-case + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + x + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t))) + '#(syntax-object + (set!) + ((top) + #(ribcage + #(dummy id exp1 var val exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" "i" "i" "i" "i" "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage *top* #t))) + (list (list '#(syntax-object + set! + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-var-59970 + lexical-val-59971) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-exp2-59972)) + (list (cons lexical-id-59968 + '(#(syntax-object + x + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + #(syntax-object + ... + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + (cons lexical-exp1-59969 + '(#(syntax-object + x + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" + top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" + top)) + #("i")) + #(top-ribcage + *top* + #t))) + #(syntax-object + ... + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" + top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" + top)) + #("i")) + #(top-ribcage + *top* + #t))))))) + (list lexical-id-59968 + (list '#(syntax-object + identifier? + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage + () + () + ()) + #(ribcage + #(x) + #(("m" + top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-id-59968)) + (list '#(syntax-object + syntax + ((top) + #(ribcage + #(dummy + id + exp1 + var + val + exp2) + #(("m" top) + (top) + (top) + (top) + (top) + (top)) + #("i" + "i" + "i" + "i" + "i" + "i")) + #(ribcage () () ()) + #(ribcage + #(x) + #(("m" top)) + #("i")) + #(top-ribcage + *top* + #t))) + lexical-exp1-59969)))))) + lexical-tmp-59960) + (syntax-error lexical-tmp-59956))) + ($syntax-dispatch + lexical-tmp-59956 + '(any (any any) + ((#(free-id + #(syntax-object + set! + ((top) + #(ribcage () () ()) + #(ribcage #(x) #(("m" top)) #("i")) + #(top-ribcage *top* #t)))) + any + any) + any)))))) + ($syntax-dispatch lexical-tmp-59956 '(any any)))) + lexical-x-59955)) '*top*) + diff --git a/goldfish/scheme/r7rs-small.scm b/goldfish/scheme/r7rs-small.scm new file mode 100644 index 00000000..90ebb32c --- /dev/null +++ b/goldfish/scheme/r7rs-small.scm @@ -0,0 +1,182 @@ +(define-syntax define-library + (lambda (stx) + (define (library-name->symbol name-stx) + (let ((name (syntax-object->datum name-stx))) + (if (symbol? name) + name + (string->symbol + (let loop ((lst name)) + (if (null? lst) + "" + (let ((str (let ((x (car lst))) + (if (symbol? x) (symbol->string x) (number->string x))))) + (if (null? (cdr lst)) + str + (string-append str "." (loop (cdr lst))))))))))) + + ;; 辅助函数：从代码块中提取 define/define-syntax 定义的名字 + (define (extract-defined-names code-list) + (let loop ((lst code-list) (acc '())) + (if (null? lst) + acc + (let ((form (syntax-object->datum (car lst)))) + (cond + ((and (pair? form) (memq (car form) '(define define-syntax))) + (loop (cdr lst) (cons (if (pair? (cadr form)) (caadr form) (cadr form)) acc))) + (else (loop (cdr lst) acc))))))) + + (define (partition-decls decl-context decls exports imports code) + (syntax-case decls (export import begin) + (() (values exports imports (reverse code))) + (((export clause ...) . decls) + (partition-decls decl-context (syntax decls) (append exports #'(clause ...)) imports code)) + (((import clause ...) . decls) + (let ((processed-imps + (map (lambda (imp) + (let ((sym (library-name->symbol imp))) + (datum->syntax-object decl-context sym))) + #'(clause ...)))) + (partition-decls decl-context (syntax decls) exports (append imports processed-imps) code))) + (((begin expr ...) . decls) + (partition-decls decl-context (syntax decls) exports imports + (append (reverse #'(expr ...)) code))) + ((other . decls) + (partition-decls decl-context (syntax decls) exports imports (cons (syntax other) code))))) + + (syntax-case stx () + ((_ name decl ...) + (let* ((keyword (syntax-case stx () ((k . _) (syntax k)))) + (lib-sym (library-name->symbol (syntax name))) + (mod-id (datum->syntax-object keyword lib-sym))) + (call-with-values + (lambda () (partition-decls keyword #'(decl ...) '() '() '())) + (lambda (exports imports code) + (newline) (display "============================") + (newline) (display "=== define-library start ===") (newline) + (newline) (display "exports: ") (display exports) (newline) + (newline) (display "imports: ") (display imports) (newline) + (newline) (display "--- START OF CODE ---") (newline) + (for-each (lambda (form) + (write (syntax-object->datum form)) + (newline)) + code) + (display "--- END OF CODE ---") (newline) + (newline) (display "=== define-library end ===") + (newline) (display "==========================") (newline) + + ;; 处理导出逻辑 + (let loop ((exps exports) + (final-exports '()) + (rename-aliases '())) + (if (null? exps) + (with-syntax ((mid mod-id) + ((exp-ids ...) final-exports) + ((aliases ...) rename-aliases) + ((imp-ids ...) imports) + ((actual-content ...) code)) + ;; 这里的生成不再依赖 psyntax 的 rename 语法 + (let ((so (if (null? imports) + #'(module mid (exp-ids ...) + aliases ... + actual-content ...) + #'(module mid (exp-ids ...) + (import imp-ids ...) + aliases ... + actual-content ...)))) + (display "----> ") (display (map syntax->datum so)) + (newline) + so)) + + (syntax-case (car exps) (rename) + ((rename internal external) + (loop (cdr exps) + (cons (syntax external) final-exports) + ;; 核心：在内部用 alias 把 external 绑定到 internal + (cons #'(alias external internal) rename-aliases))) + (id + (loop (cdr exps) + (cons (syntax id) final-exports) + rename-aliases)))))))))))) + +(define *loaded-libraries* (make-hash-table)) + +(define (psyntax-load-r7rs filename) + (display "p.loading: ") (display filename) (newline) + (let ((fn (find-file-in-paths filename))) + (unless fn (error "File not found" filename)) + (or (hash-table-ref *loaded-libraries* fn) + (begin + (hash-table-set! *loaded-libraries* fn #t) + (with-input-from-file fn + (lambda () + (let loop ((expr (read))) + (unless (eof-object? expr) + (scan-for-imports expr) + + (let ((expa (sc-expand expr #f #f #f))) + + (display "expr: ") (display expr) (newline) + (display "expa: ") (display expa) (newline) + (newline) + + ; (display "p.symbols: ") (newline) + ; (hash-table-for-each *symbol-properties* + ; (lambda (key val) + ; (display " ") (display key) + ; (display " -> ") (display val) + ; (newline))) + + (newline) + (%primitive-eval expa (rootlet))) + (loop (read)))))))))) + +(define (scan-for-imports expr) + (cond + ((and (pair? expr) (eq? (car expr) 'import)) + (for-each load-library-by-spec (cdr expr))) + ((and (pair? expr) (eq? (car expr) 'define-library)) + (for-each (lambda (item) + (if (and (pair? item) (eq? (car item) 'import)) + (for-each load-library-by-spec (cdr item)))) + (cddr expr))))) + + + + +(define hash-table-for-each + (lambda (ht proc) + (for-each (lambda (x) + (proc (car x) (cdr x))) + ht))) + +;; 在模块展开时添加调试 +(define (debug-import-resolution import-spec current-module) + (display "DEBUG - Resolving import: ") (display import-spec) + (display " for module: ") (display current-module) (newline) + (newline)) + +;; 修改 load-library-by-spec 添加调试 +(define (load-library-by-spec spec) + (let* ((parts (map (lambda (x) + (if (symbol? x) (symbol->string x) (number->string x))) + spec)) + (path-str (let loop ((p parts)) + (if (null? (cdr p)) + (car p) + (string-append (car p) "/" (loop (cdr p)))))) + (filename (string-append path-str ".scm")) + (lib-sym (string->symbol path-str))) ;; 创建与 define-library 中相同的符号 + (display "p.symbols for ") (display spec) (display " -> ") (display lib-sym) (newline) + (debug-import-resolution spec lib-sym) + (psyntax-load-r7rs filename))) + +; (define (load-library-by-spec spec) +; (let* ((parts (map (lambda (x) +; (if (symbol? x) (symbol->string x) (number->string x))) +; spec)) +; (path-str (let loop ((p parts)) +; (if (null? (cdr p)) +; (car p) +; (string-append (car p) "/" (loop (cdr p)))))) +; (filename (string-append path-str ".scm"))) +; (psyntax-load-r7rs filename))) diff --git a/goldfish/scheme/r7rs.scm b/goldfish/scheme/r7rs.scm index b3c0f478..30c3abcc 100644 --- a/goldfish/scheme/r7rs.scm +++ b/goldfish/scheme/r7rs.scm @@ -1,39 +1,89 @@ -(define (libname->symbol stx) - ;; 将 (scheme base) 这种列表转换成一个唯一的符号 - ;; 比如转换为 '| (scheme base) |' 保持与你旧代码的符号惯例一致 - (let ((obj (syntax->datum stx))) - (string->symbol (object->string obj)))) +; 0-clause BSD +; Adapted from S7 Scheme's r7rs.scm +(define-macro (define-library libname . body) ; |(lib name)| -> environment + `(define ,(symbol (object->string libname)) + (with-let (sublet (unlet) + (cons 'import import) + (cons '*export* ()) + (cons 'export (define-macro (,(gensym) . names) + `(set! *export* (append ',names *export*))))) + ,@body + (apply inlet + (map (lambda (entry) + (if (or (member (car entry) '(*export* export import)) + (and (pair? *export*) + (not (member (car entry) *export*)))) + (values) + entry)) + (curlet)))))) -(define-syntax define-library - (lambda (x) - (syntax-case x (export import begin) - ((_ libname clause ...) - (letrec ((parse-clauses - (lambda (cls exports imports body) - (if (null? cls) - (values exports imports body) - (syntax-case (car cls) (export import begin) - ;; 收集导出：(export a b (rename c d)) - ((export names ...) - (parse-clauses (cdr cls) - (append (syntax (names ...)) exports) - imports body)) - ;; 收集导入：(import (scheme base) (prefix (lib) p:)) - ((import libs ...) - (parse-clauses (cdr cls) exports - (append (syntax (libs ...)) imports) body)) - ;; 收集主体代码：(begin (define x 1) ...) - ((begin forms ...) - (parse-clauses (cdr cls) exports imports - (append (syntax (forms ...)) body))))))) - ;; 忽略未识别的子句（如 include-library-declarations） - (_ (parse-clauses (cdr cls) exports imports body))) - (let-values (((exports imports body) - (parse-clauses (syntax (clause ...)) '() '() '()))) - ;; 核心转换： - ;; 将 R7RS libname (a b c) 转换为 psyntax 期望的扁平符号或结构 - (let ((module-id (libname->symbol (syntax libname)))) - (syntax `(module ,module-id ,exports - (import ,@imports) - ,@body))))))))) +(unless (defined? 'r7rs-import-library-filename) + (define (r7rs-import-library-filename libs) + (when (pair? libs) + (let ((lib-filename (let loop ((lib (if (memq (caar libs) '(only except prefix rename)) + (cadar libs) + (car libs))) + (name "")) + (set! name (string-append name (symbol->string (car lib)))) + (if (null? (cdr lib)) + (string-append name ".scm") + (begin + (set! name (string-append name "/")) + (loop (cdr lib) name)))))) + (when (not (defined? (symbol (object->string (car libs))))) + ;(display "Loading ") (display lib-filename) (newline) + (load lib-filename)) + (r7rs-import-library-filename (cdr libs)))))) +(define-macro (import . libs) + `(begin + (r7rs-import-library-filename ',libs) + (varlet (curlet) + ,@(map (lambda (lib) + (case (car lib) + ((only) + `((lambda (e names) + (apply inlet + (map (lambda (name) + (cons name (e name))) + names))) + (symbol->value (symbol (object->string (cadr ',lib)))) + (cddr ',lib))) + ((except) + `((lambda (e names) + (apply inlet + (map (lambda (entry) + (if (member (car entry) names) + (values) + entry)) + e))) + (symbol->value (symbol (object->string (cadr ',lib)))) + (cddr ',lib))) + ((prefix) + `((lambda (e prefx) + (apply inlet + (map (lambda (entry) + (cons (string->symbol + (string-append (symbol->string prefx) + (symbol->string (car entry)))) + (cdr entry))) + e))) + (symbol->value (symbol (object->string (cadr ',lib)))) + (caddr ',lib))) + ((rename) + `((lambda (e names) + (apply inlet + (map (lambda (entry) + (let ((info (assoc (car entry) names))) + (if info + (cons (cadr info) (cdr entry)) + entry))) + e))) + (symbol->value (symbol (object->string (cadr ',lib)))) + (cddr ',lib))) + (else + `(let ((sym (symbol (object->string ',lib)))) + (if (not (defined? sym)) + (format () "~A not loaded~%" sym) + (symbol->value sym)))))) + libs)))) diff --git a/goldfish/scheme/s7-shim.scm b/goldfish/scheme/s7-shim.scm new file mode 100644 index 00000000..6fdaa12d --- /dev/null +++ b/goldfish/scheme/s7-shim.scm @@ -0,0 +1,139 @@ +(define-syntax define-macro + (lambda (x) + (syntax-case x () + ((_ (macro . args) body1 body ...) + #'(define-macro macro (lambda args body1 body ...))) + ((_ macro transformer) + #'(define-syntax macro + (lambda (y) + (syntax-case y () + ((_ . args) + (let ((v (syntax->datum (syntax args)))) + (datum->syntax y (apply transformer v))))))))))) + +(define-syntax syntax-rules + (lambda (stx) + (syntax-case stx () + ((_ (lit ...) (pat tmpl) ...) + #'(lambda (stx*) + (syntax-case stx* (lit ...) + (pat (syntax tmpl)) ...))) + ((_ (lit ...) (pat tmpl) ... . __) + (syntax-violation 'syntax-rules "invalid syntax" stx))))) + +(define-syntax define-syntax-rule + (syntax-rules () + ((_ (name . pattern) template) + (define-syntax name + (syntax-rules () + ((_ . pattern) template)))))) + +(define (list-head l k) + (let loop ((l l) + (k k)) + (if (zero? k) + '() + (cons (car l) (loop (cdr l) (- k 1)))))) + +(define-syntax-rule (lambda* (spec ...) body ...) + (lambda*-specs (spec ...) () () body ...)) + +;; 归一化 +(define-syntax lambda*-specs + (syntax-rules () + ((_ () ((id d) ...) body ...) + (lambda _args + (lambda*-bind ((id d) ...) _args body ...))) + ;; 带显式默认值 + ((_ ((x d) . rest) (acc ...) body ...) + (lambda*-specs rest (acc ... (x d)) body ...)) + ;; 无默认值 → #f + ((_ (x . rest) (acc ...) body ...) + (lambda*-specs rest (acc ... (x #f)) body ...)))) + +;; 顺序绑定 +(define-syntax lambda*-bind + (syntax-rules () + ((_ () _args body ...) + (let () body ...)) + ((_ ((x d) . more) _args body ...) + (let ((x (if (null? _args) d (car _args))) + (_rest (if (null? _args) '() (cdr _args)))) + (lambda*-bind more _rest body ...))))) + +(define-syntax define* + (lambda (x) + (syntax-case x () + ((_ (id . args) b0 b1 ...) + #'(define id (lambda* args (let () b0 b1 ...)))) + ((_ id val) (identifier? (syntax id)) + #'(define id val))))) + + + + +; (define (and-map f lst) +; (let loop ((result #t) +; (l lst)) +; (and result +; (or (and (null? l) +; result) +; (loop (f (car l)) (cdr l)))))) +; +; (define-syntax define-values +; (lambda (orig-form) +; (syntax-case orig-form () +; ((_ () expr) +; ;; XXX Work around the lack of hygienic top-level identifiers +; (with-syntax (((dummy) (generate-temporaries '(dummy)))) +; #`(define dummy +; (call-with-values (lambda () expr) +; (lambda () #f))))) +; ((_ (var) expr) +; (identifier? (syntax var)) +; #`(define var +; (call-with-values (lambda () expr) +; (lambda (v) v)))) +; ((_ (var0 ... varn) expr) +; (and-map identifier? #'(var0 ... varn)) +; ;; XXX Work around the lack of hygienic toplevel identifiers +; (with-syntax (((dummy) (generate-temporaries '(dummy)))) +; #`(begin +; ;; Avoid mutating the user-visible variables +; (define dummy +; (call-with-values (lambda () expr) +; (lambda (var0 ... varn) +; (list var0 ... varn)))) +; (define var0 +; (let ((v (car dummy))) +; (set! dummy (cdr dummy)) +; v)) +; ... +; (define varn +; (let ((v (car dummy))) +; (set! dummy #f) ; blackhole dummy +; v))))) +; ((_ var expr) +; (identifier? (syntax var)) +; #'(define var +; (call-with-values (lambda () expr) +; list))) +; ((_ (var0 ... . varn) expr) +; (and-map identifier? #'(var0 ... varn)) +; ;; XXX Work around the lack of hygienic toplevel identifiers +; (with-syntax (((dummy) (generate-temporaries '(dummy)))) +; #`(begin +; ;; Avoid mutating the user-visible variables +; (define dummy +; (call-with-values (lambda () expr) +; (lambda (var0 ... . varn) +; (list var0 ... varn)))) +; (define var0 +; (let ((v (car dummy))) +; (set! dummy (cdr dummy)) +; v)) +; ... +; (define varn +; (let ((v (car dummy))) +; (set! dummy #f) ; blackhole dummy +; v)))))))) diff --git a/src/goldfish.hpp b/src/goldfish.hpp index 94b05afa..b636e830 100644 --- a/src/goldfish.hpp +++ b/src/goldfish.hpp @@ -388,6 +388,42 @@ f_delete_file (s7_scheme* sc, s7_pointer args) { return s7_make_boolean (sc, tb_file_remove (path_c)); } +static s7_pointer goldfish_sanitize_datum(s7_scheme *sc, s7_pointer obj) { + if (s7_is_pair(obj)) { + return s7_cons(sc, + goldfish_sanitize_datum(sc, s7_car(obj)), + goldfish_sanitize_datum(sc, s7_cdr(obj))); + } + + if (!s7_is_symbol(obj) && !s7_is_number(obj) && !s7_is_string(obj) && !s7_is_boolean(obj)) { + char *str = s7_object_to_c_string(sc, obj); + s7_pointer result = obj; + + if (strstr(str, "#_list-values") || strcmp(str, "list-values") == 0) { + result = s7_make_symbol(sc, "list-values"); + } else if (strstr(str, "#_apply-values") || strcmp(str, "apply-values") == 0) { + result = s7_make_symbol(sc, "apply-values"); + } else if (strstr(str, "#_quote") || strcmp(str, "quote") == 0) { + result = s7_make_symbol(sc, "quote"); + } + + free(str); + return result; + } + + return obj; +} + +static s7_pointer f_goldfish_read(s7_scheme *sc, s7_pointer args) { + s7_pointer port = s7_car(args); + if (!s7_is_input_port(sc, port)) { + return s7_wrong_type_arg_error(sc, "goldfish-read", 1, port, "an input port"); + } + s7_pointer raw_obj = s7_read(sc, port); + if (raw_obj == s7_eof_object(sc)) return raw_obj; + return goldfish_sanitize_datum(sc, raw_obj); +} + inline void glue_goldfish (s7_scheme* sc) { s7_pointer cur_env= s7_curlet (sc); @@ -396,12 +432,17 @@ glue_goldfish (s7_scheme* sc) { const char* d_version = "(version) => string"; const char* s_delete_file= "g_delete-file"; const char* d_delete_file= "(g_delete-file string) => boolean"; + const char* s_goldfish_read= "g_goldfish-read"; + const char* d_goldfish_read= "(g_goldfish-read port) => any"; s7_define (sc, cur_env, s7_make_symbol (sc, s_version), s7_make_typed_function (sc, s_version, f_version, 0, 0, false, d_version, NULL)); s7_define (sc, cur_env, s7_make_symbol (sc, s_delete_file), s7_make_typed_function (sc, s_delete_file, f_delete_file, 1, 0, false, d_delete_file, NULL)); + + s7_define (sc, cur_env, s7_make_symbol (sc, s_goldfish_read), + s7_make_typed_function (sc, s_goldfish_read, f_goldfish_read, 1, 0, false, d_goldfish_read, NULL)); } static s7_pointer