diff --git a/demo/define-syntax-def.scm b/demo/define-syntax-def.scm new file mode 100644 index 00000000..a6e93530 --- /dev/null +++ b/demo/define-syntax-def.scm @@ -0,0 +1,3 @@ +(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 14f4a671..797c8d11 100644 --- a/goldfish/scheme/boot.scm +++ b/goldfish/scheme/boot.scm @@ -1,3 +1,108 @@ +(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) + (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) + (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) + (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) + (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) + #f))) + +(define (remprop symbol key) + (let ((props (hash-table-ref *symbol-properties* symbol))) + (if props + (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) +(define sc-expand #f) +(define $make-environment #f) +(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) +(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) + +(set! (*s7* 'symbol-quote?) #t) + +(define %primitive-eval eval) +(define %primitive-load load) + +(define (eval expr . env) + (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) (if (not (g_access path 0)) ; F_OK @@ -7,101 +112,74 @@ (error 'permission-error (string-append "No permission: " path)))) (error 'type-error "(file-exists? path): path should be string"))) -(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)))) - -; 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 (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) + (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 new file mode 100644 index 00000000..4c7a1131 --- /dev/null +++ b/goldfish/scheme/psyntax.pp @@ -0,0 +1,60717 @@ +;;; psyntax.pp +;;; automatically generated from psyntax.ss +;;; 2025年11月09日 星期日 02时18分01秒 CST +;;; see copyright notice in psyntax.ss + +((lambda () + (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) + '#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) + (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))) + (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 + (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 + 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 () + (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 (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)) + (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 () + (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 () + (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 + (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 () + (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 + 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 () + (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 () + (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 (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 (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 (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* + ((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 () + (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 + (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 (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 + lexical-tmp-58862 + '(any #(each (any any)) any . each-any)))) + lexical-e-58856)))) + (lexical-global-extend-57125 + 'core + 'if + (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* + ((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 () + (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 + 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 + 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 + 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 + 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 + (lexical-put-cte-hook-56957 + 'import + (lambda (lexical-orig-59253) + (lexical-$import-help-59057 + lexical-orig-59253 + '#f))) + (lexical-put-cte-hook-56957 + 'import-only + (lambda (lexical-orig-59254) + (lexical-$import-help-59057 + lexical-orig-59254 + '#t))))))) + (set! sc-expand + (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 (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 (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 (lexical-id-59271 lexical-datum-59272) + (begin + ((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 (lexical-x-59283) + (lexical-strip-57343 lexical-x-59283 '(())))) + (set! generate-temporaries + ((lambda (lexical-n-59284) + (lambda (lexical-ls-59285) + (begin + ((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! lexical-n-59284 (+ lexical-n-59284 '1)) + (lexical-wrap-57264 + (string->symbol + (string-append + '"t" + (number->string lexical-n-59284))) + '((tmp))))) + lexical-ls-59285)))) + '0)) + (set! free-identifier=? + (lambda (lexical-x-59288 lexical-y-59289) + (begin + ((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 (lexical-x-59292 lexical-y-59293) + (begin + ((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 (lexical-x-59296 lexical-y-59297) + (begin + ((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 (lexical-object-59301 . lexical-messages-59300) + (begin + (for-each + (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* + ((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 (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 (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 (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 (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 (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 (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 (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 (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 (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 (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 + 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 + 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 (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)))) + ((lambda () + (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))))) + ($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 + 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 + 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))))) + ($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 + 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 + 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 (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 (lexical-x-59756) + (syntax-error lexical-x-59756 '"misplaced")) + '*top*) + +($sc-put-cte + '#(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 + 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 + 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)))) + . + 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 + lexical-tmp-59894 + '(each-any any)))) + (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 (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 (lexical-x-59901) + (syntax-error lexical-x-59901 '"misplaced")) + '*top*) + +($sc-put-cte + '#(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 (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 + 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 (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 new file mode 100644 index 00000000..30c3abcc --- /dev/null +++ b/goldfish/scheme/r7rs.scm @@ -0,0 +1,89 @@ +; 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/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