;;; psyntax.pp
;;; automatically generated from psyntax.ss
;;; Mon Feb 26 23:22:05 EST 2007
;;; see copyright notice in psyntax.ss

((lambda ()
   (letrec ((noexpand62 '"noexpand")
            (make-syntax-object63 (lambda (expression2530 wrap2529)
                                    (vector
                                      'syntax-object
                                      expression2530
                                      wrap2529)))
            (syntax-object?64 (lambda (x2528)
                                (if (vector? x2528)
                                    (if (= (vector-length x2528) '3)
                                        (eq? (vector-ref x2528 '0)
                                             'syntax-object)
                                        '#f)
                                    '#f)))
            (syntax-object-expression65 (lambda (x2527)
                                          (vector-ref x2527 '1)))
            (syntax-object-wrap66 (lambda (x2526)
                                    (vector-ref x2526 '2)))
            (set-syntax-object-expression!67 (lambda (x2525 update2524)
                                               (vector-set!
                                                 x2525
                                                 '1
                                                 update2524)))
            (set-syntax-object-wrap!68 (lambda (x2523 update2522)
                                         (vector-set!
                                           x2523
                                           '2
                                           update2522)))
            (annotation?132 (lambda (x2521) '#f))
            (top-level-eval-hook133 (lambda (x2520)
                                      (eval (list noexpand62 x2520))))
            (local-eval-hook134 (lambda (x2519)
                                  (eval (list noexpand62 x2519))))
            (define-top-level-value-hook135 (lambda (sym2518 val2517)
                                              (top-level-eval-hook133
                                                (list
                                                  'define
                                                  sym2518
                                                  (list 'quote val2517)))))
            (error-hook136 (lambda (who2516 why2515 what2514)
                             (error who2516 '"~a ~s" why2515 what2514)))
            (put-cte-hook137 (lambda (symbol2513 val2512)
                               ($sc-put-cte symbol2513 val2512 '*top*)))
            (get-global-definition-hook138 (lambda (symbol2511)
                                             (getprop
                                               symbol2511
                                               '*sc-expander*)))
            (put-global-definition-hook139 (lambda (symbol2510 x2509)
                                             (if (not x2509)
                                                 (remprop
                                                   symbol2510
                                                   '*sc-expander*)
                                                 (putprop
                                                   symbol2510
                                                   '*sc-expander*
                                                   x2509))))
            (read-only-binding?140 (lambda (symbol2508) '#f))
            (get-import-binding141 (lambda (symbol2507 token2506)
                                     (getprop symbol2507 token2506)))
            (update-import-binding!142 (lambda (symbol2504 token2503
                                                p2502)
                                         ((lambda (x2505)
                                            (if (not x2505)
                                                (remprop
                                                  symbol2504
                                                  token2503)
                                                (putprop
                                                  symbol2504
                                                  token2503
                                                  x2505)))
                                           (p2502
                                             (get-import-binding141
                                               symbol2504
                                               token2503)))))
            (generate-id143 ((lambda (digits2488)
                               ((lambda (base2490 session-key2489)
                                  (letrec ((make-digit2491 (lambda (x2501)
                                                             (string-ref
                                                               digits2488
                                                               x2501)))
                                           (fmt2492 (lambda (n2495)
                                                      ((letrec ((fmt2496 (lambda (n2498
                                                                                  a2497)
                                                                           (if (< n2498
                                                                                  base2490)
                                                                               (list->string
                                                                                 (cons
                                                                                   (make-digit2491
                                                                                     n2498)
                                                                                   a2497))
                                                                               ((lambda (r2500
                                                                                         rest2499)
                                                                                  (fmt2496
                                                                                    rest2499
                                                                                    (cons
                                                                                      (make-digit2491
                                                                                        r2500)
                                                                                      a2497)))
                                                                                 (modulo
                                                                                   n2498
                                                                                   base2490)
                                                                                 (quotient
                                                                                   n2498
                                                                                   base2490))))))
                                                         fmt2496)
                                                        n2495
                                                        '()))))
                                    ((lambda (n2493)
                                       (lambda (name2494)
                                         (begin
                                           (set! n2493 (+ n2493 '1))
                                           (string->symbol
                                             (string-append
                                               session-key2489
                                               (fmt2492 n2493))))))
                                      '-1)))
                                 (string-length digits2488)
                                 '"_"))
                              '"0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ!$%&*/:<=>?~_^.+-"))
            (built-lambda?217 (lambda (x2487)
                                (if (pair? x2487)
                                    (eq? (car x2487) 'lambda)
                                    '#f)))
            (build-sequence235 (lambda (ae2484 exps2483)
                                 ((letrec ((loop2485 (lambda (exps2486)
                                                       (if (null?
                                                             (cdr exps2486))
                                                           (car exps2486)
                                                           (if (equal?
                                                                 (car exps2486)
                                                                 '(void))
                                                               (loop2485
                                                                 (cdr exps2486))
                                                               (cons
                                                                 'begin
                                                                 exps2486))))))
                                    loop2485)
                                   exps2483)))
            (build-letrec236 (lambda (ae2482 vars2481 val-exps2480
                                      body-exp2479)
                               (if (null? vars2481)
                                   body-exp2479
                                   (list
                                     'letrec
                                     (map list vars2481 val-exps2480)
                                     body-exp2479))))
            (build-body237 (lambda (ae2478 vars2477 val-exps2476
                                    body-exp2475)
                             (build-letrec236
                               ae2478
                               vars2477
                               val-exps2476
                               body-exp2475)))
            (build-top-module238 (lambda (ae2463 types2462 vars2461
                                          val-exps2460 body-exp2459)
                                   (call-with-values
                                     (lambda ()
                                       ((letrec ((f2467 (lambda (types2469
                                                                 vars2468)
                                                          (if (null?
                                                                types2469)
                                                              (values
                                                                '()
                                                                '()
                                                                '())
                                                              ((lambda (var2470)
                                                                 (call-with-values
                                                                   (lambda ()
                                                                     (f2467
                                                                       (cdr types2469)
                                                                       (cdr vars2468)))
                                                                   (lambda (vars2473
                                                                            defns2472
                                                                            sets2471)
                                                                     (if (eq? (car types2469)
                                                                              'global)
                                                                         ((lambda (x2474)
                                                                            (values
                                                                              (cons
                                                                                x2474
                                                                                vars2473)
                                                                              (cons
                                                                                (list
                                                                                  'define
                                                                                  var2470
                                                                                  (chi-void518))
                                                                                defns2472)
                                                                              (cons
                                                                                (list
                                                                                  'set!
                                                                                  var2470
                                                                                  x2474)
                                                                                sets2471)))
                                                                           (gensym))
                                                                         (values
                                                                           (cons
                                                                             var2470
                                                                             vars2473)
                                                                           defns2472
                                                                           sets2471)))))
                                                                (car vars2468))))))
                                          f2467)
                                         types2462
                                         vars2461))
                                     (lambda (vars2466 defns2465 sets2464)
                                       (if (null? defns2465)
                                           (build-letrec236
                                             ae2463
                                             vars2466
                                             val-exps2460
                                             body-exp2459)
                                           (build-sequence235
                                             '#f
                                             (append
                                               defns2465
                                               (list
                                                 (build-letrec236
                                                   ae2463
                                                   vars2466
                                                   val-exps2460
                                                   (build-sequence235
                                                     '#f
                                                     (append
                                                       sets2464
                                                       (list
                                                         body-exp2459))))))))))))
            (sanitize-binding271 (lambda (b2455)
                                   (if (procedure? b2455)
                                       (cons 'macro b2455)
                                       (if (binding?285 b2455)
                                           (if ((lambda (t2456)
                                                  (if (memv
                                                        t2456
                                                        '(core
                                                           macro
                                                           macro!
                                                           deferred))
                                                      (procedure?
                                                        (binding-value282
                                                          b2455))
                                                      (if (memv
                                                            t2456
                                                            '($module))
                                                          (interface?452
                                                            (binding-value282
                                                              b2455))
                                                          (if (memv
                                                                t2456
                                                                '(lexical))
                                                              '#f
                                                              (if (memv
                                                                    t2456
                                                                    '(global
                                                                       meta-variable))
                                                                  (symbol?
                                                                    (binding-value282
                                                                      b2455))
                                                                  (if (memv
                                                                        t2456
                                                                        '(syntax))
                                                                      ((lambda (x2457)
                                                                         (if (pair?
                                                                               x2457)
                                                                             (if '#f
                                                                                 ((lambda (n2458)
                                                                                    (if (integer?
                                                                                          n2458)
                                                                                        (if (exact?
                                                                                              n2458)
                                                                                            (>= n2458
                                                                                                '0)
                                                                                            '#f)
                                                                                        '#f))
                                                                                   (cdr x2457))
                                                                                 '#f)
                                                                             '#f))
                                                                        (binding-value282
                                                                          b2455))
                                                                      (if (memv
                                                                            t2456
                                                                            '(begin
                                                                               define
                                                                               define-syntax
                                                                               set!
                                                                               $module-key
                                                                               $import
                                                                               eval-when
                                                                               meta))
                                                                          (null?
                                                                            (binding-value282
                                                                              b2455))
                                                                          (if (memv
                                                                                t2456
                                                                                '(local-syntax))
                                                                              (boolean?
                                                                                (binding-value282
                                                                                  b2455))
                                                                              (if (memv
                                                                                    t2456
                                                                                    '(displaced-lexical))
                                                                                  (eq? (binding-value282
                                                                                         b2455)
                                                                                       '#f)
                                                                                  '#t)))))))))
                                                 (binding-type281 b2455))
                                               b2455
                                               '#f)
                                           '#f))))
            (binding-type281 car)
            (binding-value282 cdr)
            (set-binding-type!283 set-car!)
            (set-binding-value!284 set-cdr!)
            (binding?285 (lambda (x2454)
                           (if (pair? x2454) (symbol? (car x2454)) '#f)))
            (extend-env295 (lambda (label2453 binding2452 r2451)
                             (cons (cons label2453 binding2452) r2451)))
            (extend-env*296 (lambda (labels2450 bindings2449 r2448)
                              (if (null? labels2450)
                                  r2448
                                  (extend-env*296
                                    (cdr labels2450)
                                    (cdr bindings2449)
                                    (extend-env295
                                      (car labels2450)
                                      (car bindings2449)
                                      r2448)))))
            (extend-var-env*297 (lambda (labels2447 vars2446 r2445)
                                  (if (null? labels2447)
                                      r2445
                                      (extend-var-env*297
                                        (cdr labels2447)
                                        (cdr vars2446)
                                        (extend-env295
                                          (car labels2447)
                                          (cons 'lexical (car vars2446))
                                          r2445)))))
            (displaced-lexical?298 (lambda (id2442 r2441)
                                     ((lambda (n2443)
                                        (if n2443
                                            ((lambda (b2444)
                                               (eq? (binding-type281 b2444)
                                                    'displaced-lexical))
                                              (lookup301 n2443 r2441))
                                            '#f))
                                       (id-var-name434 id2442 '(())))))
            (displaced-lexical-error299 (lambda (id2440)
                                          (syntax-error
                                            id2440
                                            (if (id-var-name434
                                                  id2440
                                                  '(()))
                                                '"identifier out of context"
                                                '"identifier not visible"))))
            (lookup*300 (lambda (x2437 r2436)
                          ((lambda (t2438)
                             (if t2438
                                 (cdr t2438)
                                 (if (symbol? x2437)
                                     ((lambda (t2439)
                                        (if t2439
                                            t2439
                                            (cons 'global x2437)))
                                       (get-global-definition-hook138
                                         x2437))
                                     '(displaced-lexical . #f))))
                            (assq x2437 r2436))))
            (lookup301 (lambda (x2431 r2430)
                         (letrec ((whack-binding!2432 (lambda (b2435
                                                               *b2434)
                                                        (begin
                                                          (set-binding-type!283
                                                            b2435
                                                            (binding-type281
                                                              *b2434))
                                                          (set-binding-value!284
                                                            b2435
                                                            (binding-value282
                                                              *b2434))))))
                           ((lambda (b2433)
                              (begin
                                (if (eq? (binding-type281 b2433) 'deferred)
                                    (whack-binding!2432
                                      b2433
                                      (make-transformer-binding302
                                        ((binding-value282 b2433))))
                                    (void))
                                b2433))
                             (lookup*300 x2431 r2430)))))
            (make-transformer-binding302 (lambda (b2428)
                                           ((lambda (t2429)
                                              (if t2429
                                                  t2429
                                                  (syntax-error
                                                    b2428
                                                    '"invalid transformer")))
                                             (sanitize-binding271 b2428))))
            (defer-or-eval-transformer303 (lambda (eval2427 x2426)
                                            (if (built-lambda?217 x2426)
                                                (cons
                                                  'deferred
                                                  (lambda ()
                                                    (eval2427 x2426)))
                                                (make-transformer-binding302
                                                  (eval2427 x2426)))))
            (global-extend304 (lambda (type2425 sym2424 val2423)
                                (put-cte-hook137
                                  sym2424
                                  (cons type2425 val2423))))
            (nonsymbol-id?305 (lambda (x2421)
                                (if (syntax-object?64 x2421)
                                    (symbol?
                                      ((lambda (e2422)
                                         (if (annotation?132 e2422)
                                             (annotation-expression e2422)
                                             e2422))
                                        (syntax-object-expression65
                                          x2421)))
                                    '#f)))
            (id?306 (lambda (x2419)
                      (if (symbol? x2419)
                          '#t
                          (if (syntax-object?64 x2419)
                              (symbol?
                                ((lambda (e2420)
                                   (if (annotation?132 e2420)
                                       (annotation-expression e2420)
                                       e2420))
                                  (syntax-object-expression65 x2419)))
                              (if (annotation?132 x2419)
                                  (symbol? (annotation-expression x2419))
                                  '#f)))))
            (id-marks312 (lambda (id2418)
                           (if (syntax-object?64 id2418)
                               (wrap-marks316
                                 (syntax-object-wrap66 id2418))
                               (wrap-marks316 '((top))))))
            (id-subst313 (lambda (id2417)
                           (if (syntax-object?64 id2417)
                               (wrap-subst317
                                 (syntax-object-wrap66 id2417))
                               (wrap-marks316 '((top))))))
            (id-sym-name&marks314 (lambda (x2414 w2413)
                                    (if (syntax-object?64 x2414)
                                        (values
                                          ((lambda (e2415)
                                             (if (annotation?132 e2415)
                                                 (annotation-expression
                                                   e2415)
                                                 e2415))
                                            (syntax-object-expression65
                                              x2414))
                                          (join-marks423
                                            (wrap-marks316 w2413)
                                            (wrap-marks316
                                              (syntax-object-wrap66
                                                x2414))))
                                        (values
                                          ((lambda (e2416)
                                             (if (annotation?132 e2416)
                                                 (annotation-expression
                                                   e2416)
                                                 e2416))
                                            x2414)
                                          (wrap-marks316 w2413)))))
            (make-wrap315 cons)
            (wrap-marks316 car)
            (wrap-subst317 cdr)
            (make-indirect-label355 (lambda (label2412)
                                      (vector 'indirect-label label2412)))
            (indirect-label?356 (lambda (x2411)
                                  (if (vector? x2411)
                                      (if (= (vector-length x2411) '2)
                                          (eq? (vector-ref x2411 '0)
                                               'indirect-label)
                                          '#f)
                                      '#f)))
            (indirect-label-label357 (lambda (x2410)
                                       (vector-ref x2410 '1)))
            (set-indirect-label-label!358 (lambda (x2409 update2408)
                                            (vector-set!
                                              x2409
                                              '1
                                              update2408)))
            (gen-indirect-label359 (lambda ()
                                     (make-indirect-label355
                                       (gen-label362))))
            (get-indirect-label360 (lambda (x2407)
                                     (indirect-label-label357 x2407)))
            (set-indirect-label!361 (lambda (x2406 v2405)
                                      (set-indirect-label-label!358
                                        x2406
                                        v2405)))
            (gen-label362 (lambda () (string '#\i)))
            (label?363 (lambda (x2402)
                         ((lambda (t2403)
                            (if t2403
                                t2403
                                ((lambda (t2404)
                                   (if t2404
                                       t2404
                                       (indirect-label?356 x2402)))
                                  (symbol? x2402))))
                           (string? x2402))))
            (gen-labels364 (lambda (ls2401)
                             (if (null? ls2401)
                                 '()
                                 (cons
                                   (gen-label362)
                                   (gen-labels364 (cdr ls2401))))))
            (make-ribcage365 (lambda (symnames2400 marks2399 labels2398)
                               (vector
                                 'ribcage
                                 symnames2400
                                 marks2399
                                 labels2398)))
            (ribcage?366 (lambda (x2397)
                           (if (vector? x2397)
                               (if (= (vector-length x2397) '4)
                                   (eq? (vector-ref x2397 '0) 'ribcage)
                                   '#f)
                               '#f)))
            (ribcage-symnames367 (lambda (x2396) (vector-ref x2396 '1)))
            (ribcage-marks368 (lambda (x2395) (vector-ref x2395 '2)))
            (ribcage-labels369 (lambda (x2394) (vector-ref x2394 '3)))
            (set-ribcage-symnames!370 (lambda (x2393 update2392)
                                        (vector-set! x2393 '1 update2392)))
            (set-ribcage-marks!371 (lambda (x2391 update2390)
                                     (vector-set! x2391 '2 update2390)))
            (set-ribcage-labels!372 (lambda (x2389 update2388)
                                      (vector-set! x2389 '3 update2388)))
            (make-top-ribcage373 (lambda (key2387 mutable?2386)
                                   (vector
                                     'top-ribcage
                                     key2387
                                     mutable?2386)))
            (top-ribcage?374 (lambda (x2385)
                               (if (vector? x2385)
                                   (if (= (vector-length x2385) '3)
                                       (eq? (vector-ref x2385 '0)
                                            'top-ribcage)
                                       '#f)
                                   '#f)))
            (top-ribcage-key375 (lambda (x2384) (vector-ref x2384 '1)))
            (top-ribcage-mutable?376 (lambda (x2383)
                                       (vector-ref x2383 '2)))
            (set-top-ribcage-key!377 (lambda (x2382 update2381)
                                       (vector-set! x2382 '1 update2381)))
            (set-top-ribcage-mutable?!378 (lambda (x2380 update2379)
                                            (vector-set!
                                              x2380
                                              '2
                                              update2379)))
            (make-import-interface379 (lambda (interface2378
                                               new-marks2377)
                                        (vector
                                          'import-interface
                                          interface2378
                                          new-marks2377)))
            (import-interface?380 (lambda (x2376)
                                    (if (vector? x2376)
                                        (if (= (vector-length x2376) '3)
                                            (eq? (vector-ref x2376 '0)
                                                 'import-interface)
                                            '#f)
                                        '#f)))
            (import-interface-interface381 (lambda (x2375)
                                             (vector-ref x2375 '1)))
            (import-interface-new-marks382 (lambda (x2374)
                                             (vector-ref x2374 '2)))
            (set-import-interface-interface!383 (lambda (x2373
                                                         update2372)
                                                  (vector-set!
                                                    x2373
                                                    '1
                                                    update2372)))
            (set-import-interface-new-marks!384 (lambda (x2371
                                                         update2370)
                                                  (vector-set!
                                                    x2371
                                                    '2
                                                    update2370)))
            (make-env385 (lambda (top-ribcage2369 wrap2368)
                           (vector 'env top-ribcage2369 wrap2368)))
            (env?386 (lambda (x2367)
                       (if (vector? x2367)
                           (if (= (vector-length x2367) '3)
                               (eq? (vector-ref x2367 '0) 'env)
                               '#f)
                           '#f)))
            (env-top-ribcage387 (lambda (x2366) (vector-ref x2366 '1)))
            (env-wrap388 (lambda (x2365) (vector-ref x2365 '2)))
            (set-env-top-ribcage!389 (lambda (x2364 update2363)
                                       (vector-set! x2364 '1 update2363)))
            (set-env-wrap!390 (lambda (x2362 update2361)
                                (vector-set! x2362 '2 update2361)))
            (anti-mark400 (lambda (w2360)
                            (make-wrap315
                              (cons '#f (wrap-marks316 w2360))
                              (cons 'shift (wrap-subst317 w2360)))))
            (barrier-marker405 '#f)
            (extend-ribcage!410 (lambda (ribcage2358 id2357 label2356)
                                  (begin
                                    (set-ribcage-symnames!370
                                      ribcage2358
                                      (cons
                                        ((lambda (e2359)
                                           (if (annotation?132 e2359)
                                               (annotation-expression
                                                 e2359)
                                               e2359))
                                          (syntax-object-expression65
                                            id2357))
                                        (ribcage-symnames367 ribcage2358)))
                                    (set-ribcage-marks!371
                                      ribcage2358
                                      (cons
                                        (wrap-marks316
                                          (syntax-object-wrap66 id2357))
                                        (ribcage-marks368 ribcage2358)))
                                    (set-ribcage-labels!372
                                      ribcage2358
                                      (cons
                                        label2356
                                        (ribcage-labels369
                                          ribcage2358))))))
            (import-extend-ribcage!411 (lambda (ribcage2354
                                                new-marks2353 id2352
                                                label2351)
                                         (begin
                                           (set-ribcage-symnames!370
                                             ribcage2354
                                             (cons
                                               ((lambda (e2355)
                                                  (if (annotation?132
                                                        e2355)
                                                      (annotation-expression
                                                        e2355)
                                                      e2355))
                                                 (syntax-object-expression65
                                                   id2352))
                                               (ribcage-symnames367
                                                 ribcage2354)))
                                           (set-ribcage-marks!371
                                             ribcage2354
                                             (cons
                                               (join-marks423
                                                 new-marks2353
                                                 (wrap-marks316
                                                   (syntax-object-wrap66
                                                     id2352)))
                                               (ribcage-marks368
                                                 ribcage2354)))
                                           (set-ribcage-labels!372
                                             ribcage2354
                                             (cons
                                               label2351
                                               (ribcage-labels369
                                                 ribcage2354))))))
            (extend-ribcage-barrier!412 (lambda (ribcage2350
                                                 killer-id2349)
                                          (extend-ribcage-barrier-help!413
                                            ribcage2350
                                            (syntax-object-wrap66
                                              killer-id2349))))
            (extend-ribcage-barrier-help!413 (lambda (ribcage2348
                                                      wrap2347)
                                               (begin
                                                 (set-ribcage-symnames!370
                                                   ribcage2348
                                                   (cons
                                                     barrier-marker405
                                                     (ribcage-symnames367
                                                       ribcage2348)))
                                                 (set-ribcage-marks!371
                                                   ribcage2348
                                                   (cons
                                                     (wrap-marks316
                                                       wrap2347)
                                                     (ribcage-marks368
                                                       ribcage2348))))))
            (extend-ribcage-subst!414 (lambda (ribcage2346
                                               import-iface2345)
                                        (set-ribcage-symnames!370
                                          ribcage2346
                                          (cons
                                            import-iface2345
                                            (ribcage-symnames367
                                              ribcage2346)))))
            (lookup-import-binding-name415 (lambda (sym2340 marks2339
                                                    token2338
                                                    new-marks2337)
                                             ((lambda (new2341)
                                                (if new2341
                                                    ((letrec ((f2342 (lambda (new2343)
                                                                       (if (pair?
                                                                             new2343)
                                                                           ((lambda (t2344)
                                                                              (if t2344
                                                                                  t2344
                                                                                  (f2342
                                                                                    (cdr new2343))))
                                                                             (f2342
                                                                               (car new2343)))
                                                                           (if (symbol?
                                                                                 new2343)
                                                                               (if (same-marks?425
                                                                                     marks2339
                                                                                     (join-marks423
                                                                                       new-marks2337
                                                                                       (wrap-marks316
                                                                                         '((top)))))
                                                                                   new2343
                                                                                   '#f)
                                                                               (if (same-marks?425
                                                                                     marks2339
                                                                                     (join-marks423
                                                                                       new-marks2337
                                                                                       (wrap-marks316
                                                                                         (syntax-object-wrap66
                                                                                           new2343))))
                                                                                   new2343
                                                                                   '#f))))))
                                                       f2342)
                                                      new2341)
                                                    '#f))
                                               (get-import-binding141
                                                 sym2340
                                                 token2338))))
            (store-import-binding416 (lambda (id2321 token2320
                                              new-marks2319)
                                       (letrec ((cons-id2322 (lambda (id2336
                                                                      x2335)
                                                               (if (not x2335)
                                                                   id2336
                                                                   (cons
                                                                     id2336
                                                                     x2335))))
                                                (weed2323 (lambda (marks2334
                                                                   x2333)
                                                            (if (pair?
                                                                  x2333)
                                                                (if (same-marks?425
                                                                      (id-marks312
                                                                        (car x2333))
                                                                      marks2334)
                                                                    (weed2323
                                                                      marks2334
                                                                      (cdr x2333))
                                                                    (cons-id2322
                                                                      (car x2333)
                                                                      (weed2323
                                                                        marks2334
                                                                        (cdr x2333))))
                                                                (if x2333
                                                                    (if (not (same-marks?425
                                                                               (id-marks312
                                                                                 x2333)
                                                                               marks2334))
                                                                        x2333
                                                                        '#f)
                                                                    '#f)))))
                                         ((lambda (id2324)
                                            ((lambda (sym2325)
                                               (if (not (eq? id2324
                                                             sym2325))
                                                   ((lambda (marks2326)
                                                      (update-import-binding!142
                                                        sym2325
                                                        token2320
                                                        (lambda (old-binding2327)
                                                          ((lambda (x2328)
                                                             (cons-id2322
                                                               (if (same-marks?425
                                                                     marks2326
                                                                     (wrap-marks316
                                                                       '((top))))
                                                                   (resolved-id-var-name420
                                                                     id2324)
                                                                   id2324)
                                                               x2328))
                                                            (weed2323
                                                              marks2326
                                                              old-binding2327)))))
                                                     (id-marks312 id2324))
                                                   (void)))
                                              ((lambda (x2329)
                                                 ((lambda (e2330)
                                                    (if (annotation?132
                                                          e2330)
                                                        (annotation-expression
                                                          e2330)
                                                        e2330))
                                                   (if (syntax-object?64
                                                         x2329)
                                                       (syntax-object-expression65
                                                         x2329)
                                                       x2329)))
                                                id2324)))
                                           (if (null? new-marks2319)
                                               id2321
                                               (make-syntax-object63
                                                 ((lambda (x2331)
                                                    ((lambda (e2332)
                                                       (if (annotation?132
                                                             e2332)
                                                           (annotation-expression
                                                             e2332)
                                                           e2332))
                                                      (if (syntax-object?64
                                                            x2331)
                                                          (syntax-object-expression65
                                                            x2331)
                                                          x2331)))
                                                   id2321)
                                                 (make-wrap315
                                                   (join-marks423
                                                     new-marks2319
                                                     (id-marks312 id2321))
                                                   (id-subst313
                                                     id2321))))))))
            (make-binding-wrap417 (lambda (ids2309 labels2308 w2307)
                                    (if (null? ids2309)
                                        w2307
                                        (make-wrap315
                                          (wrap-marks316 w2307)
                                          (cons
                                            ((lambda (labelvec2310)
                                               ((lambda (n2311)
                                                  ((lambda (symnamevec2313
                                                            marksvec2312)
                                                     (begin
                                                       ((letrec ((f2314 (lambda (ids2316
                                                                                 i2315)
                                                                          (if (not (null?
                                                                                     ids2316))
                                                                              (call-with-values
                                                                                (lambda ()
                                                                                  (id-sym-name&marks314
                                                                                    (car ids2316)
                                                                                    w2307))
                                                                                (lambda (symname2318
                                                                                         marks2317)
                                                                                  (begin
                                                                                    (vector-set!
                                                                                      symnamevec2313
                                                                                      i2315
                                                                                      symname2318)
                                                                                    (vector-set!
                                                                                      marksvec2312
                                                                                      i2315
                                                                                      marks2317)
                                                                                    (f2314
                                                                                      (cdr ids2316)
                                                                                      (+ i2315
                                                                                         '1)))))
                                                                              (void)))))
                                                          f2314)
                                                         ids2309
                                                         '0)
                                                       (make-ribcage365
                                                         symnamevec2313
                                                         marksvec2312
                                                         labelvec2310)))
                                                    (make-vector n2311)
                                                    (make-vector n2311)))
                                                 (vector-length
                                                   labelvec2310)))
                                              (list->vector labels2308))
                                            (wrap-subst317 w2307))))))
            (make-resolved-id418 (lambda (fromsym2306 marks2305
                                          tosym2304)
                                   (make-syntax-object63
                                     fromsym2306
                                     (make-wrap315
                                       marks2305
                                       (list
                                         (make-ribcage365
                                           (vector fromsym2306)
                                           (vector marks2305)
                                           (vector tosym2304)))))))
            (id->resolved-id419 (lambda (id2299)
                                  (call-with-values
                                    (lambda ()
                                      (id-var-name&marks432 id2299 '(())))
                                    (lambda (tosym2301 marks2300)
                                      (begin
                                        (if (not tosym2301)
                                            (syntax-error
                                              id2299
                                              '"identifier not visible for export")
                                            (void))
                                        (make-resolved-id418
                                          ((lambda (x2302)
                                             ((lambda (e2303)
                                                (if (annotation?132 e2303)
                                                    (annotation-expression
                                                      e2303)
                                                    e2303))
                                               (if (syntax-object?64 x2302)
                                                   (syntax-object-expression65
                                                     x2302)
                                                   x2302)))
                                            id2299)
                                          marks2300
                                          tosym2301))))))
            (resolved-id-var-name420 (lambda (id2298)
                                       (vector-ref
                                         (ribcage-labels369
                                           (car (wrap-subst317
                                                  (syntax-object-wrap66
                                                    id2298))))
                                         '0)))
            (smart-append421 (lambda (m12297 m22296)
                               (if (null? m22296)
                                   m12297
                                   (append m12297 m22296))))
            (join-wraps422 (lambda (w12293 w22292)
                             ((lambda (m12295 s12294)
                                (if (null? m12295)
                                    (if (null? s12294)
                                        w22292
                                        (make-wrap315
                                          (wrap-marks316 w22292)
                                          (join-subst424
                                            s12294
                                            (wrap-subst317 w22292))))
                                    (make-wrap315
                                      (join-marks423
                                        m12295
                                        (wrap-marks316 w22292))
                                      (join-subst424
                                        s12294
                                        (wrap-subst317 w22292)))))
                               (wrap-marks316 w12293)
                               (wrap-subst317 w12293))))
            (join-marks423 (lambda (m12291 m22290)
                             (smart-append421 m12291 m22290)))
            (join-subst424 (lambda (s12289 s22288)
                             (smart-append421 s12289 s22288)))
            (same-marks?425 (lambda (x2286 y2285)
                              ((lambda (t2287)
                                 (if t2287
                                     t2287
                                     (if (not (null? x2286))
                                         (if (not (null? y2285))
                                             (if (eq? (car x2286)
                                                      (car y2285))
                                                 (same-marks?425
                                                   (cdr x2286)
                                                   (cdr y2285))
                                                 '#f)
                                             '#f)
                                         '#f)))
                                (eq? x2286 y2285))))
            (diff-marks426 (lambda (m12279 m22278)
                             ((lambda (n12281 n22280)
                                ((letrec ((f2282 (lambda (n12284 m12283)
                                                   (if (> n12284 n22280)
                                                       (cons
                                                         (car m12283)
                                                         (f2282
                                                           (- n12284 '1)
                                                           (cdr m12283)))
                                                       (if (equal?
                                                             m12283
                                                             m22278)
                                                           '()
                                                           (error 'sc-expand
                                                             '"internal error in diff-marks: ~s is not a tail of ~s"
                                                             m12283
                                                             m22278))))))
                                   f2282)
                                  n12281
                                  m12279))
                               (length m12279)
                               (length m22278))))
            (leave-implicit?427 (lambda (token2277)
                                  (eq? token2277 '*top*)))
            (new-binding428 (lambda (sym2274 marks2273 token2272)
                              ((lambda (loc2275)
                                 ((lambda (id2276)
                                    (begin
                                      (store-import-binding416
                                        id2276
                                        token2272
                                        '())
                                      (values loc2275 id2276)))
                                   (make-resolved-id418
                                     sym2274
                                     marks2273
                                     loc2275)))
                                (if (if (leave-implicit?427 token2272)
                                        (same-marks?425
                                          marks2273
                                          (wrap-marks316 '((top))))
                                        '#f)
                                    sym2274
                                    (generate-id143 sym2274)))))
            (top-id-bound-var-name429 (lambda (sym2268 marks2267
                                               top-ribcage2266)
                                        ((lambda (token2269)
                                           ((lambda (t2270)
                                              (if t2270
                                                  ((lambda (id2271)
                                                     (if (symbol? id2271)
                                                         (if (read-only-binding?140
                                                               id2271)
                                                             (new-binding428
                                                               sym2268
                                                               marks2267
                                                               token2269)
                                                             (values
                                                               id2271
                                                               (make-resolved-id418
                                                                 sym2268
                                                                 marks2267
                                                                 id2271)))
                                                         (values
                                                           (resolved-id-var-name420
                                                             id2271)
                                                           id2271)))
                                                    t2270)
                                                  (new-binding428
                                                    sym2268
                                                    marks2267
                                                    token2269)))
                                             (lookup-import-binding-name415
                                               sym2268
                                               marks2267
                                               token2269
                                               '())))
                                          (top-ribcage-key375
                                            top-ribcage2266))))
            (top-id-free-var-name430 (lambda (sym2260 marks2259
                                              top-ribcage2258)
                                       ((lambda (token2261)
                                          ((lambda (t2262)
                                             (if t2262
                                                 ((lambda (id2263)
                                                    (if (symbol? id2263)
                                                        id2263
                                                        (resolved-id-var-name420
                                                          id2263)))
                                                   t2262)
                                                 (if (if (top-ribcage-mutable?376
                                                           top-ribcage2258)
                                                         (same-marks?425
                                                           marks2259
                                                           (wrap-marks316
                                                             '((top))))
                                                         '#f)
                                                     (call-with-values
                                                       (lambda ()
                                                         (new-binding428
                                                           sym2260
                                                           (wrap-marks316
                                                             '((top)))
                                                           token2261))
                                                       (lambda (sym2265
                                                                id2264)
                                                         sym2265))
                                                     '#f)))
                                            (lookup-import-binding-name415
                                              sym2260
                                              marks2259
                                              token2261
                                              '())))
                                         (top-ribcage-key375
                                           top-ribcage2258))))
            (id-var-name-loc&marks431 (lambda (id2209 w2208)
                                        (letrec ((search2210 (lambda (sym2253
                                                                      subst2252
                                                                      marks2251)
                                                               (if (null?
                                                                     subst2252)
                                                                   (values
                                                                     '#f
                                                                     marks2251)
                                                                   ((lambda (fst2254)
                                                                      (if (eq? fst2254
                                                                               'shift)
                                                                          (search2210
                                                                            sym2253
                                                                            (cdr subst2252)
                                                                            (cdr marks2251))
                                                                          (if (ribcage?366
                                                                                fst2254)
                                                                              ((lambda (symnames2255)
                                                                                 (if (vector?
                                                                                       symnames2255)
                                                                                     (search-vector-rib2212
                                                                                       sym2253
                                                                                       subst2252
                                                                                       marks2251
                                                                                       symnames2255
                                                                                       fst2254)
                                                                                     (search-list-rib2211
                                                                                       sym2253
                                                                                       subst2252
                                                                                       marks2251
                                                                                       symnames2255
                                                                                       fst2254)))
                                                                                (ribcage-symnames367
                                                                                  fst2254))
                                                                              (if (top-ribcage?374
                                                                                    fst2254)
                                                                                  ((lambda (t2256)
                                                                                     (if t2256
                                                                                         ((lambda (var-name2257)
                                                                                            (values
                                                                                              var-name2257
                                                                                              marks2251))
                                                                                           t2256)
                                                                                         (search2210
                                                                                           sym2253
                                                                                           (cdr subst2252)
                                                                                           marks2251)))
                                                                                    (top-id-free-var-name430
                                                                                      sym2253
                                                                                      marks2251
                                                                                      fst2254))
                                                                                  (error 'sc-expand
                                                                                    '"internal error in id-var-name-loc&marks: improper subst ~s"
                                                                                    subst2252)))))
                                                                     (car subst2252)))))
                                                 (search-list-rib2211 (lambda (sym2231
                                                                               subst2230
                                                                               marks2229
                                                                               symnames2228
                                                                               ribcage2227)
                                                                        ((letrec ((f2232 (lambda (symnames2234
                                                                                                  i2233)
                                                                                           (if (null?
                                                                                                 symnames2234)
                                                                                               (search2210
                                                                                                 sym2231
                                                                                                 (cdr subst2230)
                                                                                                 marks2229)
                                                                                               ((lambda (x2235)
                                                                                                  (if (if (eq? x2235
                                                                                                               sym2231)
                                                                                                          (same-marks?425
                                                                                                            marks2229
                                                                                                            (list-ref
                                                                                                              (ribcage-marks368
                                                                                                                ribcage2227)
                                                                                                              i2233))
                                                                                                          '#f)
                                                                                                      (values
                                                                                                        (list-ref
                                                                                                          (ribcage-labels369
                                                                                                            ribcage2227)
                                                                                                          i2233)
                                                                                                        marks2229)
                                                                                                      (if (import-interface?380
                                                                                                            x2235)
                                                                                                          ((lambda (iface2237
                                                                                                                    new-marks2236)
                                                                                                             ((lambda (t2238)
                                                                                                                (if t2238
                                                                                                                    ((lambda (token2239)
                                                                                                                       ((lambda (t2240)
                                                                                                                          (if t2240
                                                                                                                              ((lambda (id2241)
                                                                                                                                 (values
                                                                                                                                   (if (symbol?
                                                                                                                                         id2241)
                                                                                                                                       id2241
                                                                                                                                       (resolved-id-var-name420
                                                                                                                                         id2241))
                                                                                                                                   marks2229))
                                                                                                                                t2240)
                                                                                                                              (f2232
                                                                                                                                (cdr symnames2234)
                                                                                                                                i2233)))
                                                                                                                         (lookup-import-binding-name415
                                                                                                                           sym2231
                                                                                                                           marks2229
                                                                                                                           token2239
                                                                                                                           new-marks2236)))
                                                                                                                      t2238)
                                                                                                                    ((lambda (ie2242)
                                                                                                                       ((lambda (n2243)
                                                                                                                          ((lambda ()
                                                                                                                             ((letrec ((g2244 (lambda (j2245)
                                                                                                                                                (if (= j2245
                                                                                                                                                       n2243)
                                                                                                                                                    (f2232
                                                                                                                                                      (cdr symnames2234)
                                                                                                                                                      i2233)
                                                                                                                                                    ((lambda (id2246)
                                                                                                                                                       ((lambda (id.sym2248
                                                                                                                                                                 id.marks2247)
                                                                                                                                                          (if (help-bound-id=?437
                                                                                                                                                                id.sym2248
                                                                                                                                                                id.marks2247
                                                                                                                                                                sym2231
                                                                                                                                                                marks2229)
                                                                                                                                                              (values
                                                                                                                                                                (lookup-import-label506
                                                                                                                                                                  id2246)
                                                                                                                                                                marks2229)
                                                                                                                                                              (g2244
                                                                                                                                                                (+ j2245
                                                                                                                                                                   '1))))
                                                                                                                                                         ((lambda (x2249)
                                                                                                                                                            ((lambda (e2250)
                                                                                                                                                               (if (annotation?132
                                                                                                                                                                     e2250)
                                                                                                                                                                   (annotation-expression
                                                                                                                                                                     e2250)
                                                                                                                                                                   e2250))
                                                                                                                                                              (if (syntax-object?64
                                                                                                                                                                    x2249)
                                                                                                                                                                  (syntax-object-expression65
                                                                                                                                                                    x2249)
                                                                                                                                                                  x2249)))
                                                                                                                                                           id2246)
                                                                                                                                                         (join-marks423
                                                                                                                                                           new-marks2236
                                                                                                                                                           (id-marks312
                                                                                                                                                             id2246))))
                                                                                                                                                      (vector-ref
                                                                                                                                                        ie2242
                                                                                                                                                        j2245))))))
                                                                                                                                g2244)
                                                                                                                               '0))))
                                                                                                                         (vector-length
                                                                                                                           ie2242)))
                                                                                                                      (interface-exports454
                                                                                                                        iface2237))))
                                                                                                               (interface-token455
                                                                                                                 iface2237)))
                                                                                                            (import-interface-interface381
                                                                                                              x2235)
                                                                                                            (import-interface-new-marks382
                                                                                                              x2235))
                                                                                                          (if (if (eq? x2235
                                                                                                                       barrier-marker405)
                                                                                                                  (same-marks?425
                                                                                                                    marks2229
                                                                                                                    (list-ref
                                                                                                                      (ribcage-marks368
                                                                                                                        ribcage2227)
                                                                                                                      i2233))
                                                                                                                  '#f)
                                                                                                              (values
                                                                                                                '#f
                                                                                                                marks2229)
                                                                                                              (f2232
                                                                                                                (cdr symnames2234)
                                                                                                                (+ i2233
                                                                                                                   '1))))))
                                                                                                 (car symnames2234))))))
                                                                           f2232)
                                                                          symnames2228
                                                                          '0)))
                                                 (search-vector-rib2212 (lambda (sym2223
                                                                                 subst2222
                                                                                 marks2221
                                                                                 symnames2220
                                                                                 ribcage2219)
                                                                          ((lambda (n2224)
                                                                             ((letrec ((f2225 (lambda (i2226)
                                                                                                (if (= i2226
                                                                                                       n2224)
                                                                                                    (search2210
                                                                                                      sym2223
                                                                                                      (cdr subst2222)
                                                                                                      marks2221)
                                                                                                    (if (if (eq? (vector-ref
                                                                                                                   symnames2220
                                                                                                                   i2226)
                                                                                                                 sym2223)
                                                                                                            (same-marks?425
                                                                                                              marks2221
                                                                                                              (vector-ref
                                                                                                                (ribcage-marks368
                                                                                                                  ribcage2219)
                                                                                                                i2226))
                                                                                                            '#f)
                                                                                                        (values
                                                                                                          (vector-ref
                                                                                                            (ribcage-labels369
                                                                                                              ribcage2219)
                                                                                                            i2226)
                                                                                                          marks2221)
                                                                                                        (f2225
                                                                                                          (+ i2226
                                                                                                             '1)))))))
                                                                                f2225)
                                                                               '0))
                                                                            (vector-length
                                                                              symnames2220)))))
                                          (if (symbol? id2209)
                                              (search2210
                                                id2209
                                                (wrap-subst317 w2208)
                                                (wrap-marks316 w2208))
                                              (if (syntax-object?64 id2209)
                                                  ((lambda (sym2214 w12213)
                                                     (call-with-values
                                                       (lambda ()
                                                         (search2210
                                                           sym2214
                                                           (wrap-subst317
                                                             w2208)
                                                           (join-marks423
                                                             (wrap-marks316
                                                               w2208)
                                                             (wrap-marks316
                                                               w12213))))
                                                       (lambda (name2216
                                                                marks2215)
                                                         (if name2216
                                                             (values
                                                               name2216
                                                               marks2215)
                                                             (search2210
                                                               sym2214
                                                               (wrap-subst317
                                                                 w12213)
                                                               marks2215)))))
                                                    ((lambda (e2217)
                                                       (if (annotation?132
                                                             e2217)
                                                           (annotation-expression
                                                             e2217)
                                                           e2217))
                                                      (syntax-object-expression65
                                                        id2209))
                                                    (syntax-object-wrap66
                                                      id2209))
                                                  (if (annotation?132
                                                        id2209)
                                                      (search2210
                                                        ((lambda (e2218)
                                                           (if (annotation?132
                                                                 e2218)
                                                               (annotation-expression
                                                                 e2218)
                                                               e2218))
                                                          id2209)
                                                        (wrap-subst317
                                                          w2208)
                                                        (wrap-marks316
                                                          w2208))
                                                      (error-hook136
                                                        'id-var-name
                                                        '"invalid id"
                                                        id2209)))))))
            (id-var-name&marks432 (lambda (id2205 w2204)
                                    (call-with-values
                                      (lambda ()
                                        (id-var-name-loc&marks431
                                          id2205
                                          w2204))
                                      (lambda (label2207 marks2206)
                                        (values
                                          (if (indirect-label?356
                                                label2207)
                                              (get-indirect-label360
                                                label2207)
                                              label2207)
                                          marks2206)))))
            (id-var-name-loc433 (lambda (id2201 w2200)
                                  (call-with-values
                                    (lambda ()
                                      (id-var-name-loc&marks431
                                        id2201
                                        w2200))
                                    (lambda (label2203 marks2202)
                                      label2203))))
            (id-var-name434 (lambda (id2197 w2196)
                              (call-with-values
                                (lambda ()
                                  (id-var-name-loc&marks431 id2197 w2196))
                                (lambda (label2199 marks2198)
                                  (if (indirect-label?356 label2199)
                                      (get-indirect-label360 label2199)
                                      label2199)))))
            (free-id=?435 (lambda (i2191 j2190)
                            (if (eq? ((lambda (x2194)
                                        ((lambda (e2195)
                                           (if (annotation?132 e2195)
                                               (annotation-expression
                                                 e2195)
                                               e2195))
                                          (if (syntax-object?64 x2194)
                                              (syntax-object-expression65
                                                x2194)
                                              x2194)))
                                       i2191)
                                     ((lambda (x2192)
                                        ((lambda (e2193)
                                           (if (annotation?132 e2193)
                                               (annotation-expression
                                                 e2193)
                                               e2193))
                                          (if (syntax-object?64 x2192)
                                              (syntax-object-expression65
                                                x2192)
                                              x2192)))
                                       j2190))
                                (eq? (id-var-name434 i2191 '(()))
                                     (id-var-name434 j2190 '(())))
                                '#f)))
            (literal-id=?436 (lambda (id2180 literal2179)
                               (if (eq? ((lambda (x2183)
                                           ((lambda (e2184)
                                              (if (annotation?132 e2184)
                                                  (annotation-expression
                                                    e2184)
                                                  e2184))
                                             (if (syntax-object?64 x2183)
                                                 (syntax-object-expression65
                                                   x2183)
                                                 x2183)))
                                          id2180)
                                        ((lambda (x2181)
                                           ((lambda (e2182)
                                              (if (annotation?132 e2182)
                                                  (annotation-expression
                                                    e2182)
                                                  e2182))
                                             (if (syntax-object?64 x2181)
                                                 (syntax-object-expression65
                                                   x2181)
                                                 x2181)))
                                          literal2179))
                                   ((lambda (n-id2186 n-literal2185)
                                      ((lambda (t2187)
                                         (if t2187
                                             t2187
                                             (if ((lambda (t2188)
                                                    (if t2188
                                                        t2188
                                                        (symbol?
                                                          n-id2186)))
                                                   (not n-id2186))
                                                 ((lambda (t2189)
                                                    (if t2189
                                                        t2189
                                                        (symbol?
                                                          n-literal2185)))
                                                   (not n-literal2185))
                                                 '#f)))
                                        (eq? n-id2186 n-literal2185)))
                                     (id-var-name434 id2180 '(()))
                                     (id-var-name434 literal2179 '(())))
                                   '#f)))
            (help-bound-id=?437 (lambda (i.sym2178 i.marks2177 j.sym2176
                                         j.marks2175)
                                  (if (eq? i.sym2178 j.sym2176)
                                      (same-marks?425
                                        i.marks2177
                                        j.marks2175)
                                      '#f)))
            (bound-id=?438 (lambda (i2170 j2169)
                             (help-bound-id=?437
                               ((lambda (x2173)
                                  ((lambda (e2174)
                                     (if (annotation?132 e2174)
                                         (annotation-expression e2174)
                                         e2174))
                                    (if (syntax-object?64 x2173)
                                        (syntax-object-expression65 x2173)
                                        x2173)))
                                 i2170)
                               (id-marks312 i2170)
                               ((lambda (x2171)
                                  ((lambda (e2172)
                                     (if (annotation?132 e2172)
                                         (annotation-expression e2172)
                                         e2172))
                                    (if (syntax-object?64 x2171)
                                        (syntax-object-expression65 x2171)
                                        x2171)))
                                 j2169)
                               (id-marks312 j2169))))
            (valid-bound-ids?439 (lambda (ids2165)
                                   (if ((letrec ((all-ids?2166 (lambda (ids2167)
                                                                 ((lambda (t2168)
                                                                    (if t2168
                                                                        t2168
                                                                        (if (id?306
                                                                              (car ids2167))
                                                                            (all-ids?2166
                                                                              (cdr ids2167))
                                                                            '#f)))
                                                                   (null?
                                                                     ids2167)))))
                                          all-ids?2166)
                                         ids2165)
                                       (distinct-bound-ids?440 ids2165)
                                       '#f)))
            (distinct-bound-ids?440 (lambda (ids2161)
                                      ((letrec ((distinct?2162 (lambda (ids2163)
                                                                 ((lambda (t2164)
                                                                    (if t2164
                                                                        t2164
                                                                        (if (not (bound-id-member?442
                                                                                   (car ids2163)
                                                                                   (cdr ids2163)))
                                                                            (distinct?2162
                                                                              (cdr ids2163))
                                                                            '#f)))
                                                                   (null?
                                                                     ids2163)))))
                                         distinct?2162)
                                        ids2161)))
            (invalid-ids-error441 (lambda (ids2157 exp2156 class2155)
                                    ((letrec ((find2158 (lambda (ids2160
                                                                 gooduns2159)
                                                          (if (null?
                                                                ids2160)
                                                              (syntax-error
                                                                exp2156)
                                                              (if (id?306
                                                                    (car ids2160))
                                                                  (if (bound-id-member?442
                                                                        (car ids2160)
                                                                        gooduns2159)
                                                                      (syntax-error
                                                                        (car ids2160)
                                                                        '"duplicate "
                                                                        class2155)
                                                                      (find2158
                                                                        (cdr ids2160)
                                                                        (cons
                                                                          (car ids2160)
                                                                          gooduns2159)))
                                                                  (syntax-error
                                                                    (car ids2160)
                                                                    '"invalid "
                                                                    class2155))))))
                                       find2158)
                                      ids2157
                                      '())))
            (bound-id-member?442 (lambda (x2153 list2152)
                                   (if (not (null? list2152))
                                       ((lambda (t2154)
                                          (if t2154
                                              t2154
                                              (bound-id-member?442
                                                x2153
                                                (cdr list2152))))
                                         (bound-id=?438
                                           x2153
                                           (car list2152)))
                                       '#f)))
            (wrap443 (lambda (x2151 w2150)
                       (if (if (null? (wrap-marks316 w2150))
                               (null? (wrap-subst317 w2150))
                               '#f)
                           x2151
                           (if (syntax-object?64 x2151)
                               (make-syntax-object63
                                 (syntax-object-expression65 x2151)
                                 (join-wraps422
                                   w2150
                                   (syntax-object-wrap66 x2151)))
                               (if (null? x2151)
                                   x2151
                                   (make-syntax-object63 x2151 w2150))))))
            (source-wrap444 (lambda (x2149 w2148 ae2147)
                              (wrap443
                                (if (annotation?132 ae2147)
                                    (begin
                                      (if (not (eq? (annotation-expression
                                                      ae2147)
                                                    x2149))
                                          (error 'sc-expand
                                            '"internal error in source-wrap: ae/x mismatch")
                                          (void))
                                      ae2147)
                                    x2149)
                                w2148)))
            (chi-when-list445 (lambda (when-list2145 w2144)
                                (map (lambda (x2146)
                                       (if (literal-id=?436
                                             x2146
                                             '#(syntax-object compile ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                           'compile
                                           (if (literal-id=?436
                                                 x2146
                                                 '#(syntax-object load ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                               'load
                                               (if (literal-id=?436
                                                     x2146
                                                     '#(syntax-object visit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                   'visit
                                                   (if (literal-id=?436
                                                         x2146
                                                         '#(syntax-object revisit ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                       'revisit
                                                       (if (literal-id=?436
                                                             x2146
                                                             '#(syntax-object eval ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(when-list w) #((top) (top)) #("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                           'eval
                                                           (syntax-error
                                                             (wrap443
                                                               x2146
                                                               w2144)
                                                             '"invalid eval-when situation")))))))
                                     when-list2145)))
            (syntax-type446 (lambda (e2129 r2128 w2127 ae2126 rib2125)
                              (if (symbol? e2129)
                                  ((lambda (n2130)
                                     ((lambda (b2131)
                                        ((lambda (type2132)
                                           ((lambda ()
                                              ((lambda (t2133)
                                                 (if (memv
                                                       t2133
                                                       '(macro macro!))
                                                     (syntax-type446
                                                       (chi-macro502
                                                         (binding-value282
                                                           b2131)
                                                         e2129 r2128 w2127
                                                         ae2126 rib2125)
                                                       r2128 '(()) '#f
                                                       rib2125)
                                                     (values type2132
                                                       (binding-value282
                                                         b2131)
                                                       e2129 w2127
                                                       ae2126)))
                                                type2132))))
                                          (binding-type281 b2131)))
                                       (lookup301 n2130 r2128)))
                                    (id-var-name434 e2129 w2127))
                                  (if (pair? e2129)
                                      ((lambda (first2134)
                                         (if (id?306 first2134)
                                             ((lambda (n2135)
                                                ((lambda (b2136)
                                                   ((lambda (type2137)
                                                      ((lambda ()
                                                         ((lambda (t2138)
                                                            (if (memv
                                                                  t2138
                                                                  '(lexical))
                                                                (values
                                                                  'lexical-call
                                                                  (binding-value282
                                                                    b2136)
                                                                  e2129
                                                                  w2127
                                                                  ae2126)
                                                                (if (memv
                                                                      t2138
                                                                      '(macro
                                                                         macro!))
                                                                    (syntax-type446
                                                                      (chi-macro502
                                                                        (binding-value282
                                                                          b2136)
                                                                        e2129
                                                                        r2128
                                                                        w2127
                                                                        ae2126
                                                                        rib2125)
                                                                      r2128
                                                                      '(())
                                                                      '#f
                                                                      rib2125)
                                                                    (if (memv
                                                                          t2138
                                                                          '(core))
                                                                        (values
                                                                          type2137
                                                                          (binding-value282
                                                                            b2136)
                                                                          e2129
                                                                          w2127
                                                                          ae2126)
                                                                        (if (memv
                                                                              t2138
                                                                              '(begin))
                                                                            (values
                                                                              'begin-form
                                                                              '#f
                                                                              e2129
                                                                              w2127
                                                                              ae2126)
                                                                            (if (memv
                                                                                  t2138
                                                                                  '(alias))
                                                                                (values
                                                                                  'alias-form
                                                                                  '#f
                                                                                  e2129
                                                                                  w2127
                                                                                  ae2126)
                                                                                (if (memv
                                                                                      t2138
                                                                                      '(define))
                                                                                    (values
                                                                                      'define-form
                                                                                      '#f
                                                                                      e2129
                                                                                      w2127
                                                                                      ae2126)
                                                                                    (if (memv
                                                                                          t2138
                                                                                          '(define-syntax))
                                                                                        (values
                                                                                          'define-syntax-form
                                                                                          '#f
                                                                                          e2129
                                                                                          w2127
                                                                                          ae2126)
                                                                                        (if (memv
                                                                                              t2138
                                                                                              '(set!))
                                                                                            (chi-set!501
                                                                                              e2129
                                                                                              r2128
                                                                                              w2127
                                                                                              ae2126
                                                                                              rib2125)
                                                                                            (if (memv
                                                                                                  t2138
                                                                                                  '($module-key))
                                                                                                (values
                                                                                                  '$module-form
                                                                                                  '#f
                                                                                                  e2129
                                                                                                  w2127
                                                                                                  ae2126)
                                                                                                (if (memv
                                                                                                      t2138
                                                                                                      '($import))
                                                                                                    (values
                                                                                                      '$import-form
                                                                                                      '#f
                                                                                                      e2129
                                                                                                      w2127
                                                                                                      ae2126)
                                                                                                    (if (memv
                                                                                                          t2138
                                                                                                          '(eval-when))
                                                                                                        (values
                                                                                                          'eval-when-form
                                                                                                          '#f
                                                                                                          e2129
                                                                                                          w2127
                                                                                                          ae2126)
                                                                                                        (if (memv
                                                                                                              t2138
                                                                                                              '(meta))
                                                                                                            (values
                                                                                                              'meta-form
                                                                                                              '#f
                                                                                                              e2129
                                                                                                              w2127
                                                                                                              ae2126)
                                                                                                            (if (memv
                                                                                                                  t2138
                                                                                                                  '(local-syntax))
                                                                                                                (values
                                                                                                                  'local-syntax-form
                                                                                                                  (binding-value282
                                                                                                                    b2136)
                                                                                                                  e2129
                                                                                                                  w2127
                                                                                                                  ae2126)
                                                                                                                (values
                                                                                                                  'call
                                                                                                                  '#f
                                                                                                                  e2129
                                                                                                                  w2127
                                                                                                                  ae2126)))))))))))))))
                                                           type2137))))
                                                     (binding-type281
                                                       b2136)))
                                                  (lookup301 n2135 r2128)))
                                               (id-var-name434
                                                 first2134
                                                 w2127))
                                             (values 'call '#f e2129 w2127
                                               ae2126)))
                                        (car e2129))
                                      (if (syntax-object?64 e2129)
                                          (syntax-type446
                                            (syntax-object-expression65
                                              e2129)
                                            r2128
                                            (join-wraps422
                                              w2127
                                              (syntax-object-wrap66 e2129))
                                            '#f rib2125)
                                          (if (annotation?132 e2129)
                                              (syntax-type446
                                                (annotation-expression
                                                  e2129)
                                                r2128 w2127 e2129 rib2125)
                                              (if ((lambda (x2139)
                                                     ((lambda (t2140)
                                                        (if t2140
                                                            t2140
                                                            ((lambda (t2141)
                                                               (if t2141
                                                                   t2141
                                                                   ((lambda (t2142)
                                                                      (if t2142
                                                                          t2142
                                                                          ((lambda (t2143)
                                                                             (if t2143
                                                                                 t2143
                                                                                 (null?
                                                                                   x2139)))
                                                                            (char?
                                                                              x2139))))
                                                                     (string?
                                                                       x2139))))
                                                              (number?
                                                                x2139))))
                                                       (boolean? x2139)))
                                                    e2129)
                                                  (values 'constant '#f
                                                    e2129 w2127 ae2126)
                                                  (values 'other '#f e2129
                                                    w2127 ae2126))))))))
            (chi-top*447 (lambda (e2120 r2119 w2118 ctem2117 rtem2116
                                  meta?2115 top-ribcage2114)
                           ((lambda (meta-residuals2121)
                              (letrec ((meta-residualize!2122 (lambda (x2124)
                                                                (set! meta-residuals2121
                                                                  (cons
                                                                    x2124
                                                                    meta-residuals2121)))))
                                ((lambda (e2123)
                                   (build-sequence235
                                     '#f
                                     (reverse
                                       (cons e2123 meta-residuals2121))))
                                  (chi-top449 e2120 r2119 w2118 ctem2117
                                    rtem2116 meta?2115 top-ribcage2114
                                    meta-residualize!2122 '#f))))
                             '())))
            (chi-top-sequence448 (lambda (body2110 r2109 w2108 ae2107
                                          ctem2106 rtem2105 meta?2104
                                          ribcage2103
                                          meta-residualize!2102)
                                   (build-sequence235
                                     ae2107
                                     ((letrec ((dobody2111 (lambda (body2112)
                                                             (if (null?
                                                                   body2112)
                                                                 '()
                                                                 ((lambda (first2113)
                                                                    (cons
                                                                      first2113
                                                                      (dobody2111
                                                                        (cdr body2112))))
                                                                   (chi-top449
                                                                     (car body2112)
                                                                     r2109
                                                                     w2108
                                                                     ctem2106
                                                                     rtem2105
                                                                     meta?2104
                                                                     ribcage2103
                                                                     meta-residualize!2102
                                                                     '#f))))))
                                        dobody2111)
                                       body2110))))
            (chi-top449 (lambda (e2047 r2046 w2045 ctem2044 rtem2043
                                 meta?2042 top-ribcage2041
                                 meta-residualize!2040 meta-seen?2039)
                          (call-with-values
                            (lambda ()
                              (syntax-type446 e2047 r2046 w2045 '#f
                                top-ribcage2041))
                            (lambda (type2052 value2051 e2050 w2049 ae2048)
                              ((lambda (t2053)
                                 (if (memv t2053 '(begin-form))
                                     ((lambda (forms2054)
                                        (if (null? forms2054)
                                            (chi-void518)
                                            (chi-top-sequence448 forms2054
                                              r2046 w2049 ae2048 ctem2044
                                              rtem2043 meta?2042
                                              top-ribcage2041
                                              meta-residualize!2040)))
                                       (parse-begin515
                                         e2050
                                         w2049
                                         ae2048
                                         '#t))
                                     (if (memv t2053 '(local-syntax-form))
                                         (call-with-values
                                           (lambda ()
                                             (chi-local-syntax517 value2051
                                               e2050 r2046 r2046 w2049
                                               ae2048))
                                           (lambda (forms2059 r2058 mr2057
                                                    w2056 ae2055)
                                             (chi-top-sequence448 forms2059
                                               r2058 w2056 ae2055 ctem2044
                                               rtem2043 meta?2042
                                               top-ribcage2041
                                               meta-residualize!2040)))
                                         (if (memv t2053 '(eval-when-form))
                                             (call-with-values
                                               (lambda ()
                                                 (parse-eval-when513
                                                   e2050
                                                   w2049
                                                   ae2048))
                                               (lambda (when-list2061
                                                        forms2060)
                                                 ((lambda (ctem2063
                                                           rtem2062)
                                                    (if (if (null?
                                                              ctem2063)
                                                            (null?
                                                              rtem2062)
                                                            '#f)
                                                        (chi-void518)
                                                        (chi-top-sequence448
                                                          forms2060 r2046
                                                          w2049 ae2048
                                                          ctem2063 rtem2062
                                                          meta?2042
                                                          top-ribcage2041
                                                          meta-residualize!2040)))
                                                   (update-mode-set490
                                                     when-list2061
                                                     ctem2044)
                                                   (update-mode-set490
                                                     when-list2061
                                                     rtem2043))))
                                             (if (memv t2053 '(meta-form))
                                                 (chi-top449
                                                   (parse-meta512
                                                     e2050
                                                     w2049
                                                     ae2048)
                                                   r2046 w2049 ctem2044
                                                   rtem2043 '#t
                                                   top-ribcage2041
                                                   meta-residualize!2040
                                                   '#t)
                                                 (if (memv
                                                       t2053
                                                       '(define-syntax-form))
                                                     (call-with-values
                                                       (lambda ()
                                                         (parse-define-syntax511
                                                           e2050
                                                           w2049
                                                           ae2048))
                                                       (lambda (id2066
                                                                rhs2065
                                                                w2064)
                                                         ((lambda (id2067)
                                                            (begin
                                                              (if (displaced-lexical?298
                                                                    id2067
                                                                    r2046)
                                                                  (displaced-lexical-error299
                                                                    id2067)
                                                                  (void))
                                                              (if (not (top-ribcage-mutable?376
                                                                         top-ribcage2041))
                                                                  (syntax-error
                                                                    (source-wrap444
                                                                      e2050
                                                                      w2064
                                                                      ae2048)
                                                                    '"invalid definition in read-only environment")
                                                                  (void))
                                                              ((lambda (sym2068)
                                                                 (call-with-values
                                                                   (lambda ()
                                                                     (top-id-bound-var-name429
                                                                       sym2068
                                                                       (wrap-marks316
                                                                         (syntax-object-wrap66
                                                                           id2067))
                                                                       top-ribcage2041))
                                                                   (lambda (valsym2070
                                                                            bound-id2069)
                                                                     (begin
                                                                       (if (not (eq? (id-var-name434
                                                                                       id2067
                                                                                       '(()))
                                                                                     valsym2070))
                                                                           (syntax-error
                                                                             (source-wrap444
                                                                               e2050
                                                                               w2064
                                                                               ae2048)
                                                                             '"definition not permitted")
                                                                           (void))
                                                                       (if (read-only-binding?140
                                                                             valsym2070)
                                                                           (syntax-error
                                                                             (source-wrap444
                                                                               e2050
                                                                               w2064
                                                                               ae2048)
                                                                             '"invalid definition of read-only identifier")
                                                                           (void))
                                                                       (ct-eval/residualize2493
                                                                         ctem2044
                                                                         (lambda ()
                                                                           (list
                                                                             '$sc-put-cte
                                                                             (list
                                                                               'quote
                                                                               bound-id2069)
                                                                             (chi498
                                                                               rhs2065
                                                                               r2046
                                                                               r2046
                                                                               w2064
                                                                               '#t)
                                                                             (list
                                                                               'quote
                                                                               (top-ribcage-key375
                                                                                 top-ribcage2041)))))))))
                                                                ((lambda (x2071)
                                                                   ((lambda (e2072)
                                                                      (if (annotation?132
                                                                            e2072)
                                                                          (annotation-expression
                                                                            e2072)
                                                                          e2072))
                                                                     (if (syntax-object?64
                                                                           x2071)
                                                                         (syntax-object-expression65
                                                                           x2071)
                                                                         x2071)))
                                                                  id2067))))
                                                           (wrap443
                                                             id2066
                                                             w2064))))
                                                     (if (memv
                                                           t2053
                                                           '(define-form))
                                                         (call-with-values
                                                           (lambda ()
                                                             (parse-define510
                                                               e2050
                                                               w2049
                                                               ae2048))
                                                           (lambda (id2075
                                                                    rhs2074
                                                                    w2073)
                                                             ((lambda (id2076)
                                                                (begin
                                                                  (if (displaced-lexical?298
                                                                        id2076
                                                                        r2046)
                                                                      (displaced-lexical-error299
                                                                        id2076)
                                                                      (void))
                                                                  (if (not (top-ribcage-mutable?376
                                                                             top-ribcage2041))
                                                                      (syntax-error
                                                                        (source-wrap444
                                                                          e2050
                                                                          w2073
                                                                          ae2048)
                                                                        '"invalid definition in read-only environment")
                                                                      (void))
                                                                  ((lambda (sym2077)
                                                                     (call-with-values
                                                                       (lambda ()
                                                                         (top-id-bound-var-name429
                                                                           sym2077
                                                                           (wrap-marks316
                                                                             (syntax-object-wrap66
                                                                               id2076))
                                                                           top-ribcage2041))
                                                                       (lambda (valsym2079
                                                                                bound-id2078)
                                                                         (begin
                                                                           (if (not (eq? (id-var-name434
                                                                                           id2076
                                                                                           '(()))
                                                                                         valsym2079))
                                                                               (syntax-error
                                                                                 (source-wrap444
                                                                                   e2050
                                                                                   w2073
                                                                                   ae2048)
                                                                                 '"definition not permitted")
                                                                               (void))
                                                                           (if (read-only-binding?140
                                                                                 valsym2079)
                                                                               (syntax-error
                                                                                 (source-wrap444
                                                                                   e2050
                                                                                   w2073
                                                                                   ae2048)
                                                                                 '"invalid definition of read-only identifier")
                                                                               (void))
                                                                           (if meta?2042
                                                                               (ct-eval/residualize2493
                                                                                 ctem2044
                                                                                 (lambda ()
                                                                                   (build-sequence235
                                                                                     '#f
                                                                                     (list
                                                                                       (list
                                                                                         '$sc-put-cte
                                                                                         (list
                                                                                           'quote
                                                                                           bound-id2078)
                                                                                         (list
                                                                                           'quote
                                                                                           (cons
                                                                                             'meta-variable
                                                                                             valsym2079))
                                                                                         (list
                                                                                           'quote
                                                                                           (top-ribcage-key375
                                                                                             top-ribcage2041)))
                                                                                       (list
                                                                                         'define
                                                                                         valsym2079
                                                                                         (chi498
                                                                                           rhs2074
                                                                                           r2046
                                                                                           r2046
                                                                                           w2073
                                                                                           '#t))))))
                                                                               ((lambda (x2080)
                                                                                  (build-sequence235
                                                                                    '#f
                                                                                    (list
                                                                                      x2080
                                                                                      (rt-eval/residualize492
                                                                                        rtem2043
                                                                                        (lambda ()
                                                                                          (list
                                                                                            'define
                                                                                            valsym2079
                                                                                            (chi498
                                                                                              rhs2074
                                                                                              r2046
                                                                                              r2046
                                                                                              w2073
                                                                                              '#f)))))))
                                                                                 (ct-eval/residualize2493
                                                                                   ctem2044
                                                                                   (lambda ()
                                                                                     (list
                                                                                       '$sc-put-cte
                                                                                       (list
                                                                                         'quote
                                                                                         bound-id2078)
                                                                                       (list
                                                                                         'quote
                                                                                         (cons
                                                                                           'global
                                                                                           valsym2079))
                                                                                       (list
                                                                                         'quote
                                                                                         (top-ribcage-key375
                                                                                           top-ribcage2041)))))))))))
                                                                    ((lambda (x2081)
                                                                       ((lambda (e2082)
                                                                          (if (annotation?132
                                                                                e2082)
                                                                              (annotation-expression
                                                                                e2082)
                                                                              e2082))
                                                                         (if (syntax-object?64
                                                                               x2081)
                                                                             (syntax-object-expression65
                                                                               x2081)
                                                                             x2081)))
                                                                      id2076))))
                                                               (wrap443
                                                                 id2075
                                                                 w2073))))
                                                         (if (memv
                                                               t2053
                                                               '($module-form))
                                                             ((lambda (ribcage2083)
                                                                (call-with-values
                                                                  (lambda ()
                                                                    (parse-module508
                                                                      e2050
                                                                      w2049
                                                                      ae2048
                                                                      (make-wrap315
                                                                        (wrap-marks316
                                                                          w2049)
                                                                        (cons
                                                                          ribcage2083
                                                                          (wrap-subst317
                                                                            w2049)))))
                                                                  (lambda (orig2087
                                                                           id2086
                                                                           exports2085
                                                                           forms2084)
                                                                    (begin
                                                                      (if (displaced-lexical?298
                                                                            id2086
                                                                            r2046)
                                                                          (displaced-lexical-error299
                                                                            (wrap443
                                                                              id2086
                                                                              w2049))
                                                                          (void))
                                                                      (if (not (top-ribcage-mutable?376
                                                                                 top-ribcage2041))
                                                                          (syntax-error
                                                                            orig2087
                                                                            '"invalid definition in read-only environment")
                                                                          (void))
                                                                      (chi-top-module482
                                                                        orig2087
                                                                        r2046
                                                                        r2046
                                                                        top-ribcage2041
                                                                        ribcage2083
                                                                        ctem2044
                                                                        rtem2043
                                                                        meta?2042
                                                                        id2086
                                                                        exports2085
                                                                        forms2084
                                                                        meta-residualize!2040)))))
                                                               (make-ribcage365
                                                                 '()
                                                                 '()
                                                                 '()))
                                                             (if (memv
                                                                   t2053
                                                                   '($import-form))
                                                                 (call-with-values
                                                                   (lambda ()
                                                                     (parse-import509
                                                                       e2050
                                                                       w2049
                                                                       ae2048))
                                                                   (lambda (orig2090
                                                                            only?2089
                                                                            mid2088)
                                                                     (begin
                                                                       (if (not (top-ribcage-mutable?376
                                                                                  top-ribcage2041))
                                                                           (syntax-error
                                                                             orig2090
                                                                             '"invalid definition in read-only environment")
                                                                           (void))
                                                                       (ct-eval/residualize2493
                                                                         ctem2044
                                                                         (lambda ()
                                                                           ((lambda (binding2091)
                                                                              ((lambda (t2092)
                                                                                 (if (memv
                                                                                       t2092
                                                                                       '($module))
                                                                                     (do-top-import489
                                                                                       only?2089
                                                                                       top-ribcage2041
                                                                                       mid2088
                                                                                       (interface-token455
                                                                                         (binding-value282
                                                                                           binding2091)))
                                                                                     (if (memv
                                                                                           t2092
                                                                                           '(displaced-lexical))
                                                                                         (displaced-lexical-error299
                                                                                           mid2088)
                                                                                         (syntax-error
                                                                                           mid2088
                                                                                           '"unknown module"))))
                                                                                (binding-type281
                                                                                  binding2091)))
                                                                             (lookup301
                                                                               (id-var-name434
                                                                                 mid2088
                                                                                 '(()))
                                                                               '())))))))
                                                                 (if (memv
                                                                       t2053
                                                                       '(alias-form))
                                                                     (call-with-values
                                                                       (lambda ()
                                                                         (parse-alias514
                                                                           e2050
                                                                           w2049
                                                                           ae2048))
                                                                       (lambda (new-id2094
                                                                                old-id2093)
                                                                         ((lambda (new-id2095)
                                                                            (begin
                                                                              (if (displaced-lexical?298
                                                                                    new-id2095
                                                                                    r2046)
                                                                                  (displaced-lexical-error299
                                                                                    new-id2095)
                                                                                  (void))
                                                                              (if (not (top-ribcage-mutable?376
                                                                                         top-ribcage2041))
                                                                                  (syntax-error
                                                                                    (source-wrap444
                                                                                      e2050
                                                                                      w2049
                                                                                      ae2048)
                                                                                    '"invalid definition in read-only environment")
                                                                                  (void))
                                                                              ((lambda (sym2096)
                                                                                 (call-with-values
                                                                                   (lambda ()
                                                                                     (top-id-bound-var-name429
                                                                                       sym2096
                                                                                       (wrap-marks316
                                                                                         (syntax-object-wrap66
                                                                                           new-id2095))
                                                                                       top-ribcage2041))
                                                                                   (lambda (valsym2098
                                                                                            bound-id2097)
                                                                                     (begin
                                                                                       (if (not (eq? (id-var-name434
                                                                                                       new-id2095
                                                                                                       '(()))
                                                                                                     valsym2098))
                                                                                           (syntax-error
                                                                                             (source-wrap444
                                                                                               e2050
                                                                                               w2049
                                                                                               ae2048)
                                                                                             '"definition not permitted")
                                                                                           (void))
                                                                                       (if (read-only-binding?140
                                                                                             valsym2098)
                                                                                           (syntax-error
                                                                                             (source-wrap444
                                                                                               e2050
                                                                                               w2049
                                                                                               ae2048)
                                                                                             '"invalid definition of read-only identifier")
                                                                                           (void))
                                                                                       (ct-eval/residualize2493
                                                                                         ctem2044
                                                                                         (lambda ()
                                                                                           (list
                                                                                             '$sc-put-cte
                                                                                             (list
                                                                                               'quote
                                                                                               (make-resolved-id418
                                                                                                 sym2096
                                                                                                 (wrap-marks316
                                                                                                   (syntax-object-wrap66
                                                                                                     new-id2095))
                                                                                                 (id-var-name434
                                                                                                   old-id2093
                                                                                                   w2049)))
                                                                                             (list
                                                                                               'quote
                                                                                               '(do-alias
                                                                                                  .
                                                                                                  #f))
                                                                                             (list
                                                                                               'quote
                                                                                               (top-ribcage-key375
                                                                                                 top-ribcage2041)))))))))
                                                                                ((lambda (x2099)
                                                                                   ((lambda (e2100)
                                                                                      (if (annotation?132
                                                                                            e2100)
                                                                                          (annotation-expression
                                                                                            e2100)
                                                                                          e2100))
                                                                                     (if (syntax-object?64
                                                                                           x2099)
                                                                                         (syntax-object-expression65
                                                                                           x2099)
                                                                                         x2099)))
                                                                                  new-id2095))))
                                                                           (wrap443
                                                                             new-id2094
                                                                             w2049))))
                                                                     (begin
                                                                       (if meta-seen?2039
                                                                           (syntax-error
                                                                             (source-wrap444
                                                                               e2050
                                                                               w2049
                                                                               ae2048)
                                                                             '"invalid meta definition")
                                                                           (void))
                                                                       (if meta?2042
                                                                           ((lambda (x2101)
                                                                              (begin
                                                                                (top-level-eval-hook133
                                                                                  x2101)
                                                                                (ct-eval/residualize3494
                                                                                  ctem2044
                                                                                  void
                                                                                  (lambda ()
                                                                                    x2101))))
                                                                             (chi-expr499
                                                                               type2052
                                                                               value2051
                                                                               e2050
                                                                               r2046
                                                                               r2046
                                                                               w2049
                                                                               ae2048
                                                                               '#t))
                                                                           (rt-eval/residualize492
                                                                             rtem2043
                                                                             (lambda ()
                                                                               (chi-expr499
                                                                                 type2052
                                                                                 value2051
                                                                                 e2050
                                                                                 r2046
                                                                                 r2046
                                                                                 w2049
                                                                                 ae2048
                                                                                 '#f)))))))))))))))
                                type2052)))))
            (flatten-exports450 (lambda (exports2035)
                                  ((letrec ((loop2036 (lambda (exports2038
                                                               ls2037)
                                                        (if (null?
                                                              exports2038)
                                                            ls2037
                                                            (loop2036
                                                              (cdr exports2038)
                                                              (if (pair?
                                                                    (car exports2038))
                                                                  (loop2036
                                                                    (car exports2038)
                                                                    ls2037)
                                                                  (cons
                                                                    (car exports2038)
                                                                    ls2037)))))))
                                     loop2036)
                                    exports2035
                                    '())))
            (make-interface451 (lambda (marks2034 exports2033 token2032)
                                 (vector
                                   'interface
                                   marks2034
                                   exports2033
                                   token2032)))
            (interface?452 (lambda (x2031)
                             (if (vector? x2031)
                                 (if (= (vector-length x2031) '4)
                                     (eq? (vector-ref x2031 '0) 'interface)
                                     '#f)
                                 '#f)))
            (interface-marks453 (lambda (x2030) (vector-ref x2030 '1)))
            (interface-exports454 (lambda (x2029)
                                    (vector-ref x2029 '2)))
            (interface-token455 (lambda (x2028) (vector-ref x2028 '3)))
            (set-interface-marks!456 (lambda (x2027 update2026)
                                       (vector-set! x2027 '1 update2026)))
            (set-interface-exports!457 (lambda (x2025 update2024)
                                         (vector-set!
                                           x2025
                                           '2
                                           update2024)))
            (set-interface-token!458 (lambda (x2023 update2022)
                                       (vector-set! x2023 '3 update2022)))
            (make-unresolved-interface459 (lambda (mid2020 exports2019)
                                            (make-interface451
                                              (wrap-marks316
                                                (syntax-object-wrap66
                                                  mid2020))
                                              (list->vector
                                                (map (lambda (x2021)
                                                       (if (pair? x2021)
                                                           (car x2021)
                                                           x2021))
                                                     exports2019))
                                              '#f)))
            (make-resolved-interface460 (lambda (mid2017 exports2016
                                                 token2015)
                                          (make-interface451
                                            (wrap-marks316
                                              (syntax-object-wrap66
                                                mid2017))
                                            (list->vector
                                              (map (lambda (x2018)
                                                     (id->resolved-id419
                                                       (if (pair? x2018)
                                                           (car x2018)
                                                           x2018)))
                                                   exports2016))
                                            token2015)))
            (make-module-binding461 (lambda (type2014 id2013 label2012
                                             imps2011 val2010 exported2009)
                                      (vector 'module-binding type2014
                                        id2013 label2012 imps2011 val2010
                                        exported2009)))
            (module-binding?462 (lambda (x2008)
                                  (if (vector? x2008)
                                      (if (= (vector-length x2008) '7)
                                          (eq? (vector-ref x2008 '0)
                                               'module-binding)
                                          '#f)
                                      '#f)))
            (module-binding-type463 (lambda (x2007)
                                      (vector-ref x2007 '1)))
            (module-binding-id464 (lambda (x2006)
                                    (vector-ref x2006 '2)))
            (module-binding-label465 (lambda (x2005)
                                       (vector-ref x2005 '3)))
            (module-binding-imps466 (lambda (x2004)
                                      (vector-ref x2004 '4)))
            (module-binding-val467 (lambda (x2003)
                                     (vector-ref x2003 '5)))
            (module-binding-exported468 (lambda (x2002)
                                          (vector-ref x2002 '6)))
            (set-module-binding-type!469 (lambda (x2001 update2000)
                                           (vector-set!
                                             x2001
                                             '1
                                             update2000)))
            (set-module-binding-id!470 (lambda (x1999 update1998)
                                         (vector-set!
                                           x1999
                                           '2
                                           update1998)))
            (set-module-binding-label!471 (lambda (x1997 update1996)
                                            (vector-set!
                                              x1997
                                              '3
                                              update1996)))
            (set-module-binding-imps!472 (lambda (x1995 update1994)
                                           (vector-set!
                                             x1995
                                             '4
                                             update1994)))
            (set-module-binding-val!473 (lambda (x1993 update1992)
                                          (vector-set!
                                            x1993
                                            '5
                                            update1992)))
            (set-module-binding-exported!474 (lambda (x1991 update1990)
                                               (vector-set!
                                                 x1991
                                                 '6
                                                 update1990)))
            (create-module-binding475 (lambda (type1989 id1988 label1987
                                               imps1986 val1985)
                                        (make-module-binding461 type1989
                                          id1988 label1987 imps1986 val1985
                                          '#f)))
            (make-frob476 (lambda (e1984 meta?1983)
                            (vector 'frob e1984 meta?1983)))
            (frob?477 (lambda (x1982)
                        (if (vector? x1982)
                            (if (= (vector-length x1982) '3)
                                (eq? (vector-ref x1982 '0) 'frob)
                                '#f)
                            '#f)))
            (frob-e478 (lambda (x1981) (vector-ref x1981 '1)))
            (frob-meta?479 (lambda (x1980) (vector-ref x1980 '2)))
            (set-frob-e!480 (lambda (x1979 update1978)
                              (vector-set! x1979 '1 update1978)))
            (set-frob-meta?!481 (lambda (x1977 update1976)
                                  (vector-set! x1977 '2 update1976)))
            (chi-top-module482 (lambda (orig1917 r1916 mr1915
                                        top-ribcage1914 ribcage1913
                                        ctem1912 rtem1911 meta?1910 id1909
                                        exports1908 forms1907
                                        meta-residualize!1906)
                                 ((lambda (fexports1918)
                                    (call-with-values
                                      (lambda ()
                                        (chi-external486 ribcage1913
                                          orig1917
                                          (map (lambda (d1975)
                                                 (make-frob476
                                                   d1975
                                                   meta?1910))
                                               forms1907)
                                          r1916 mr1915 ctem1912 exports1908
                                          fexports1918
                                          meta-residualize!1906))
                                      (lambda (r1922 mr1921 bindings1920
                                               inits1919)
                                        ((letrec ((process-exports1923 (lambda (fexports1925
                                                                                ctdefs1924)
                                                                         (if (null?
                                                                               fexports1925)
                                                                             ((letrec ((process-locals1926 (lambda (bs1931
                                                                                                                    r1930
                                                                                                                    dts1929
                                                                                                                    dvs1928
                                                                                                                    des1927)
                                                                                                             (if (null?
                                                                                                                   bs1931)
                                                                                                                 ((lambda (des1933
                                                                                                                           inits1932)
                                                                                                                    (build-sequence235
                                                                                                                      '#f
                                                                                                                      (append
                                                                                                                        (ctdefs1924)
                                                                                                                        (list
                                                                                                                          (ct-eval/residualize2493
                                                                                                                            ctem1912
                                                                                                                            (lambda ()
                                                                                                                              ((lambda (sym1934)
                                                                                                                                 ((lambda (token1935)
                                                                                                                                    ((lambda (b1936)
                                                                                                                                       ((lambda ()
                                                                                                                                          (call-with-values
                                                                                                                                            (lambda ()
                                                                                                                                              (top-id-bound-var-name429
                                                                                                                                                sym1934
                                                                                                                                                (wrap-marks316
                                                                                                                                                  (syntax-object-wrap66
                                                                                                                                                    id1909))
                                                                                                                                                top-ribcage1914))
                                                                                                                                            (lambda (valsym1938
                                                                                                                                                     bound-id1937)
                                                                                                                                              (begin
                                                                                                                                                (if (not (eq? (id-var-name434
                                                                                                                                                                id1909
                                                                                                                                                                '(()))
                                                                                                                                                              valsym1938))
                                                                                                                                                    (syntax-error
                                                                                                                                                      orig1917
                                                                                                                                                      '"definition not permitted")
                                                                                                                                                    (void))
                                                                                                                                                (if (read-only-binding?140
                                                                                                                                                      valsym1938)
                                                                                                                                                    (syntax-error
                                                                                                                                                      orig1917
                                                                                                                                                      '"invalid definition of read-only identifier")
                                                                                                                                                    (void))
                                                                                                                                                (list
                                                                                                                                                  '$sc-put-cte
                                                                                                                                                  (list
                                                                                                                                                    'quote
                                                                                                                                                    bound-id1937)
                                                                                                                                                  b1936
                                                                                                                                                  (list
                                                                                                                                                    'quote
                                                                                                                                                    (top-ribcage-key375
                                                                                                                                                      top-ribcage1914)))))))))
                                                                                                                                      (list
                                                                                                                                        'quote
                                                                                                                                        (cons
                                                                                                                                          '$module
                                                                                                                                          (make-resolved-interface460
                                                                                                                                            id1909
                                                                                                                                            exports1908
                                                                                                                                            token1935)))))
                                                                                                                                   (generate-id143
                                                                                                                                     sym1934)))
                                                                                                                                ((lambda (x1939)
                                                                                                                                   ((lambda (e1940)
                                                                                                                                      (if (annotation?132
                                                                                                                                            e1940)
                                                                                                                                          (annotation-expression
                                                                                                                                            e1940)
                                                                                                                                          e1940))
                                                                                                                                     (if (syntax-object?64
                                                                                                                                           x1939)
                                                                                                                                         (syntax-object-expression65
                                                                                                                                           x1939)
                                                                                                                                         x1939)))
                                                                                                                                  id1909))))
                                                                                                                          (rt-eval/residualize492
                                                                                                                            rtem1911
                                                                                                                            (lambda ()
                                                                                                                              (build-top-module238
                                                                                                                                '#f
                                                                                                                                dts1929
                                                                                                                                dvs1928
                                                                                                                                des1933
                                                                                                                                (if (null?
                                                                                                                                      inits1932)
                                                                                                                                    (chi-void518)
                                                                                                                                    (build-sequence235
                                                                                                                                      '#f
                                                                                                                                      (append
                                                                                                                                        inits1932
                                                                                                                                        (list
                                                                                                                                          (chi-void518))))))))))))
                                                                                                                   (chi-frobs495
                                                                                                                     des1927
                                                                                                                     r1930
                                                                                                                     mr1921
                                                                                                                     '#f)
                                                                                                                   (chi-frobs495
                                                                                                                     inits1919
                                                                                                                     r1930
                                                                                                                     mr1921
                                                                                                                     '#f))
                                                                                                                 ((lambda (b1942
                                                                                                                           bs1941)
                                                                                                                    ((lambda (t1943)
                                                                                                                       ((lambda (t1944)
                                                                                                                          (if (memv
                                                                                                                                t1944
                                                                                                                                '(define-form))
                                                                                                                              ((lambda (label1945)
                                                                                                                                 (if (module-binding-exported468
                                                                                                                                       b1942)
                                                                                                                                     ((lambda (var1946)
                                                                                                                                        (process-locals1926
                                                                                                                                          bs1941
                                                                                                                                          r1930
                                                                                                                                          (cons
                                                                                                                                            'global
                                                                                                                                            dts1929)
                                                                                                                                          (cons
                                                                                                                                            label1945
                                                                                                                                            dvs1928)
                                                                                                                                          (cons
                                                                                                                                            (module-binding-val467
                                                                                                                                              b1942)
                                                                                                                                            des1927)))
                                                                                                                                       (module-binding-id464
                                                                                                                                         b1942))
                                                                                                                                     ((lambda (var1947)
                                                                                                                                        (process-locals1926
                                                                                                                                          bs1941
                                                                                                                                          (extend-env295
                                                                                                                                            label1945
                                                                                                                                            (cons
                                                                                                                                              'lexical
                                                                                                                                              var1947)
                                                                                                                                            r1930)
                                                                                                                                          (cons
                                                                                                                                            'local
                                                                                                                                            dts1929)
                                                                                                                                          (cons
                                                                                                                                            var1947
                                                                                                                                            dvs1928)
                                                                                                                                          (cons
                                                                                                                                            (module-binding-val467
                                                                                                                                              b1942)
                                                                                                                                            des1927)))
                                                                                                                                       (gen-var523
                                                                                                                                         (module-binding-id464
                                                                                                                                           b1942)))))
                                                                                                                                (get-indirect-label360
                                                                                                                                  (module-binding-label465
                                                                                                                                    b1942)))
                                                                                                                              (if (memv
                                                                                                                                    t1944
                                                                                                                                    '(ctdefine-form
                                                                                                                                       define-syntax-form
                                                                                                                                       $module-form
                                                                                                                                       alias-form))
                                                                                                                                  (process-locals1926
                                                                                                                                    bs1941
                                                                                                                                    r1930
                                                                                                                                    dts1929
                                                                                                                                    dvs1928
                                                                                                                                    des1927)
                                                                                                                                  (error 'sc-expand-internal
                                                                                                                                    '"unexpected module binding type ~s"
                                                                                                                                    t1943))))
                                                                                                                         (module-binding-type463
                                                                                                                           b1942)))
                                                                                                                      (module-binding-type463
                                                                                                                        b1942)))
                                                                                                                   (car bs1931)
                                                                                                                   (cdr bs1931))))))
                                                                                process-locals1926)
                                                                               bindings1920
                                                                               r1922
                                                                               '()
                                                                               '()
                                                                               '())
                                                                             ((lambda (id1949
                                                                                       fexports1948)
                                                                                ((letrec ((loop1950 (lambda (bs1951)
                                                                                                      (if (null?
                                                                                                            bs1951)
                                                                                                          (process-exports1923
                                                                                                            fexports1948
                                                                                                            ctdefs1924)
                                                                                                          ((lambda (b1953
                                                                                                                    bs1952)
                                                                                                             (if (free-id=?435
                                                                                                                   (module-binding-id464
                                                                                                                     b1953)
                                                                                                                   id1949)
                                                                                                                 (if (module-binding-exported468
                                                                                                                       b1953)
                                                                                                                     (process-exports1923
                                                                                                                       fexports1948
                                                                                                                       ctdefs1924)
                                                                                                                     ((lambda (t1954)
                                                                                                                        ((lambda (label1955)
                                                                                                                           ((lambda (imps1956)
                                                                                                                              ((lambda (fexports1957)
                                                                                                                                 ((lambda ()
                                                                                                                                    (begin
                                                                                                                                      (set-module-binding-exported!474
                                                                                                                                        b1953
                                                                                                                                        '#t)
                                                                                                                                      ((lambda (t1958)
                                                                                                                                         (if (memv
                                                                                                                                               t1958
                                                                                                                                               '(define-form))
                                                                                                                                             ((lambda (sym1959)
                                                                                                                                                (begin
                                                                                                                                                  (set-indirect-label!361
                                                                                                                                                    label1955
                                                                                                                                                    sym1959)
                                                                                                                                                  (process-exports1923
                                                                                                                                                    fexports1957
                                                                                                                                                    ctdefs1924)))
                                                                                                                                               (generate-id143
                                                                                                                                                 ((lambda (x1960)
                                                                                                                                                    ((lambda (e1961)
                                                                                                                                                       (if (annotation?132
                                                                                                                                                             e1961)
                                                                                                                                                           (annotation-expression
                                                                                                                                                             e1961)
                                                                                                                                                           e1961))
                                                                                                                                                      (if (syntax-object?64
                                                                                                                                                            x1960)
                                                                                                                                                          (syntax-object-expression65
                                                                                                                                                            x1960)
                                                                                                                                                          x1960)))
                                                                                                                                                   id1949)))
                                                                                                                                             (if (memv
                                                                                                                                                   t1958
                                                                                                                                                   '(ctdefine-form))
                                                                                                                                                 ((lambda (b1962)
                                                                                                                                                    (process-exports1923
                                                                                                                                                      fexports1957
                                                                                                                                                      (lambda ()
                                                                                                                                                        ((lambda (sym1963)
                                                                                                                                                           (begin
                                                                                                                                                             (set-indirect-label!361
                                                                                                                                                               label1955
                                                                                                                                                               sym1963)
                                                                                                                                                             (cons
                                                                                                                                                               (ct-eval/residualize3494
                                                                                                                                                                 ctem1912
                                                                                                                                                                 (lambda ()
                                                                                                                                                                   (put-cte-hook137
                                                                                                                                                                     sym1963
                                                                                                                                                                     b1962))
                                                                                                                                                                 (lambda ()
                                                                                                                                                                   (list
                                                                                                                                                                     '$sc-put-cte
                                                                                                                                                                     (list
                                                                                                                                                                       'quote
                                                                                                                                                                       sym1963)
                                                                                                                                                                     (list
                                                                                                                                                                       'quote
                                                                                                                                                                       b1962)
                                                                                                                                                                     (list
                                                                                                                                                                       'quote
                                                                                                                                                                       '#f))))
                                                                                                                                                               (ctdefs1924))))
                                                                                                                                                          (binding-value282
                                                                                                                                                            b1962)))))
                                                                                                                                                   (module-binding-val467
                                                                                                                                                     b1953))
                                                                                                                                                 (if (memv
                                                                                                                                                       t1958
                                                                                                                                                       '(define-syntax-form))
                                                                                                                                                     ((lambda (sym1964)
                                                                                                                                                        (process-exports1923
                                                                                                                                                          fexports1957
                                                                                                                                                          (lambda ()
                                                                                                                                                            ((lambda (local-label1965)
                                                                                                                                                               (begin
                                                                                                                                                                 (set-indirect-label!361
                                                                                                                                                                   label1955
                                                                                                                                                                   sym1964)
                                                                                                                                                                 (cons
                                                                                                                                                                   (ct-eval/residualize3494
                                                                                                                                                                     ctem1912
                                                                                                                                                                     (lambda ()
                                                                                                                                                                       (put-cte-hook137
                                                                                                                                                                         sym1964
                                                                                                                                                                         (car (module-binding-val467
                                                                                                                                                                                b1953))))
                                                                                                                                                                     (lambda ()
                                                                                                                                                                       (list
                                                                                                                                                                         '$sc-put-cte
                                                                                                                                                                         (list
                                                                                                                                                                           'quote
                                                                                                                                                                           sym1964)
                                                                                                                                                                         (cdr (module-binding-val467
                                                                                                                                                                                b1953))
                                                                                                                                                                         (list
                                                                                                                                                                           'quote
                                                                                                                                                                           '#f))))
                                                                                                                                                                   (ctdefs1924))))
                                                                                                                                                              (get-indirect-label360
                                                                                                                                                                label1955)))))
                                                                                                                                                       (generate-id143
                                                                                                                                                         ((lambda (x1966)
                                                                                                                                                            ((lambda (e1967)
                                                                                                                                                               (if (annotation?132
                                                                                                                                                                     e1967)
                                                                                                                                                                   (annotation-expression
                                                                                                                                                                     e1967)
                                                                                                                                                                   e1967))
                                                                                                                                                              (if (syntax-object?64
                                                                                                                                                                    x1966)
                                                                                                                                                                  (syntax-object-expression65
                                                                                                                                                                    x1966)
                                                                                                                                                                  x1966)))
                                                                                                                                                           id1949)))
                                                                                                                                                     (if (memv
                                                                                                                                                           t1958
                                                                                                                                                           '($module-form))
                                                                                                                                                         ((lambda (sym1969
                                                                                                                                                                   exports1968)
                                                                                                                                                            (process-exports1923
                                                                                                                                                              (append
                                                                                                                                                                (flatten-exports450
                                                                                                                                                                  exports1968)
                                                                                                                                                                fexports1957)
                                                                                                                                                              (lambda ()
                                                                                                                                                                (begin
                                                                                                                                                                  (set-indirect-label!361
                                                                                                                                                                    label1955
                                                                                                                                                                    sym1969)
                                                                                                                                                                  ((lambda (rest1970)
                                                                                                                                                                     ((lambda (x1971)
                                                                                                                                                                        (cons
                                                                                                                                                                          (ct-eval/residualize3494
                                                                                                                                                                            ctem1912
                                                                                                                                                                            (lambda ()
                                                                                                                                                                              (put-cte-hook137
                                                                                                                                                                                sym1969
                                                                                                                                                                                x1971))
                                                                                                                                                                            (lambda ()
                                                                                                                                                                              (list
                                                                                                                                                                                '$sc-put-cte
                                                                                                                                                                                (list
                                                                                                                                                                                  'quote
                                                                                                                                                                                  sym1969)
                                                                                                                                                                                (list
                                                                                                                                                                                  'quote
                                                                                                                                                                                  x1971)
                                                                                                                                                                                (list
                                                                                                                                                                                  'quote
                                                                                                                                                                                  '#f))))
                                                                                                                                                                          rest1970))
                                                                                                                                                                       (cons
                                                                                                                                                                         '$module
                                                                                                                                                                         (make-resolved-interface460
                                                                                                                                                                           id1949
                                                                                                                                                                           exports1968
                                                                                                                                                                           sym1969))))
                                                                                                                                                                    (ctdefs1924))))))
                                                                                                                                                           (generate-id143
                                                                                                                                                             ((lambda (x1972)
                                                                                                                                                                ((lambda (e1973)
                                                                                                                                                                   (if (annotation?132
                                                                                                                                                                         e1973)
                                                                                                                                                                       (annotation-expression
                                                                                                                                                                         e1973)
                                                                                                                                                                       e1973))
                                                                                                                                                                  (if (syntax-object?64
                                                                                                                                                                        x1972)
                                                                                                                                                                      (syntax-object-expression65
                                                                                                                                                                        x1972)
                                                                                                                                                                      x1972)))
                                                                                                                                                               id1949))
                                                                                                                                                           (module-binding-val467
                                                                                                                                                             b1953))
                                                                                                                                                         (if (memv
                                                                                                                                                               t1958
                                                                                                                                                               '(alias-form))
                                                                                                                                                             (process-exports1923
                                                                                                                                                               fexports1957
                                                                                                                                                               (lambda ()
                                                                                                                                                                 ((lambda (rest1974)
                                                                                                                                                                    (begin
                                                                                                                                                                      (if (indirect-label?356
                                                                                                                                                                            label1955)
                                                                                                                                                                          (if (not (symbol?
                                                                                                                                                                                     (get-indirect-label360
                                                                                                                                                                                       label1955)))
                                                                                                                                                                              (syntax-error
                                                                                                                                                                                (module-binding-id464
                                                                                                                                                                                  b1953)
                                                                                                                                                                                '"unexported target of alias")
                                                                                                                                                                              (void))
                                                                                                                                                                          (void))
                                                                                                                                                                      rest1974))
                                                                                                                                                                   (ctdefs1924))))
                                                                                                                                                             (error 'sc-expand-internal
                                                                                                                                                               '"unexpected module binding type ~s"
                                                                                                                                                               t1954)))))))
                                                                                                                                        t1954)))))
                                                                                                                                (append
                                                                                                                                  imps1956
                                                                                                                                  fexports1948)))
                                                                                                                             (module-binding-imps466
                                                                                                                               b1953)))
                                                                                                                          (module-binding-label465
                                                                                                                            b1953)))
                                                                                                                       (module-binding-type463
                                                                                                                         b1953)))
                                                                                                                 (loop1950
                                                                                                                   bs1952)))
                                                                                                            (car bs1951)
                                                                                                            (cdr bs1951))))))
                                                                                   loop1950)
                                                                                  bindings1920))
                                                                               (car fexports1925)
                                                                               (cdr fexports1925))))))
                                           process-exports1923)
                                          fexports1918
                                          (lambda () '())))))
                                   (flatten-exports450 exports1908))))
            (id-set-diff483 (lambda (exports1905 defs1904)
                              (if (null? exports1905)
                                  '()
                                  (if (bound-id-member?442
                                        (car exports1905)
                                        defs1904)
                                      (id-set-diff483
                                        (cdr exports1905)
                                        defs1904)
                                      (cons
                                        (car exports1905)
                                        (id-set-diff483
                                          (cdr exports1905)
                                          defs1904))))))
            (check-module-exports484 (lambda (source-exp1879
                                              fexports1878 ids1877)
                                       (letrec ((defined?1880 (lambda (e1887
                                                                       ids1886)
                                                                (ormap
                                                                  (lambda (x1888)
                                                                    (if (import-interface?380
                                                                          x1888)
                                                                        ((lambda (x.iface1890
                                                                                  x.new-marks1889)
                                                                           ((lambda (t1891)
                                                                              (if t1891
                                                                                  ((lambda (token1892)
                                                                                     (lookup-import-binding-name415
                                                                                       ((lambda (x1893)
                                                                                          ((lambda (e1894)
                                                                                             (if (annotation?132
                                                                                                   e1894)
                                                                                                 (annotation-expression
                                                                                                   e1894)
                                                                                                 e1894))
                                                                                            (if (syntax-object?64
                                                                                                  x1893)
                                                                                                (syntax-object-expression65
                                                                                                  x1893)
                                                                                                x1893)))
                                                                                         e1887)
                                                                                       (id-marks312
                                                                                         e1887)
                                                                                       token1892
                                                                                       x.new-marks1889))
                                                                                    t1891)
                                                                                  ((lambda (v1895)
                                                                                     ((letrec ((lp1896 (lambda (i1897)
                                                                                                         (if (>= i1897
                                                                                                                 '0)
                                                                                                             ((lambda (t1898)
                                                                                                                (if t1898
                                                                                                                    t1898
                                                                                                                    (lp1896
                                                                                                                      (- i1897
                                                                                                                         '1))))
                                                                                                               ((lambda (id1899)
                                                                                                                  (help-bound-id=?437
                                                                                                                    ((lambda (x1902)
                                                                                                                       ((lambda (e1903)
                                                                                                                          (if (annotation?132
                                                                                                                                e1903)
                                                                                                                              (annotation-expression
                                                                                                                                e1903)
                                                                                                                              e1903))
                                                                                                                         (if (syntax-object?64
                                                                                                                               x1902)
                                                                                                                             (syntax-object-expression65
                                                                                                                               x1902)
                                                                                                                             x1902)))
                                                                                                                      id1899)
                                                                                                                    (join-marks423
                                                                                                                      x.new-marks1889
                                                                                                                      (id-marks312
                                                                                                                        id1899))
                                                                                                                    ((lambda (x1900)
                                                                                                                       ((lambda (e1901)
                                                                                                                          (if (annotation?132
                                                                                                                                e1901)
                                                                                                                              (annotation-expression
                                                                                                                                e1901)
                                                                                                                              e1901))
                                                                                                                         (if (syntax-object?64
                                                                                                                               x1900)
                                                                                                                             (syntax-object-expression65
                                                                                                                               x1900)
                                                                                                                             x1900)))
                                                                                                                      e1887)
                                                                                                                    (id-marks312
                                                                                                                      e1887)))
                                                                                                                 (vector-ref
                                                                                                                   v1895
                                                                                                                   i1897)))
                                                                                                             '#f))))
                                                                                        lp1896)
                                                                                       (- (vector-length
                                                                                            v1895)
                                                                                          '1)))
                                                                                    (interface-exports454
                                                                                      x.iface1890))))
                                                                             (interface-token455
                                                                               x.iface1890)))
                                                                          (import-interface-interface381
                                                                            x1888)
                                                                          (import-interface-new-marks382
                                                                            x1888))
                                                                        (bound-id=?438
                                                                          e1887
                                                                          x1888)))
                                                                  ids1886))))
                                         ((letrec ((loop1881 (lambda (fexports1883
                                                                      missing1882)
                                                               (if (null?
                                                                     fexports1883)
                                                                   (if (not (null?
                                                                              missing1882))
                                                                       (syntax-error
                                                                         (car missing1882)
                                                                         (if (= (length
                                                                                  missing1882)
                                                                                '1)
                                                                             '"missing definition for export"
                                                                             '"missing definition for multiple exports, including"))
                                                                       (void))
                                                                   ((lambda (e1885
                                                                             fexports1884)
                                                                      (if (defined?1880
                                                                            e1885
                                                                            ids1877)
                                                                          (loop1881
                                                                            fexports1884
                                                                            missing1882)
                                                                          (loop1881
                                                                            fexports1884
                                                                            (cons
                                                                              e1885
                                                                              missing1882))))
                                                                     (car fexports1883)
                                                                     (cdr fexports1883))))))
                                            loop1881)
                                           fexports1878
                                           '()))))
            (check-defined-ids485 (lambda (source-exp1826 ls1825)
                                    (letrec ((vfold1827 (lambda (v1872
                                                                 p1871
                                                                 cls1870)
                                                          ((lambda (len1873)
                                                             ((letrec ((lp1874 (lambda (i1876
                                                                                        cls1875)
                                                                                 (if (= i1876
                                                                                        len1873)
                                                                                     cls1875
                                                                                     (lp1874
                                                                                       (+ i1876
                                                                                          '1)
                                                                                       (p1871
                                                                                         (vector-ref
                                                                                           v1872
                                                                                           i1876)
                                                                                         cls1875))))))
                                                                lp1874)
                                                               '0
                                                               cls1870))
                                                            (vector-length
                                                              v1872))))
                                             (conflicts1828 (lambda (x1857
                                                                     y1856
                                                                     cls1855)
                                                              (if (import-interface?380
                                                                    x1857)
                                                                  ((lambda (x.iface1859
                                                                            x.new-marks1858)
                                                                     (if (import-interface?380
                                                                           y1856)
                                                                         ((lambda (y.iface1861
                                                                                   y.new-marks1860)
                                                                            ((lambda (xe1863
                                                                                      ye1862)
                                                                               (if (> (vector-length
                                                                                        xe1863)
                                                                                      (vector-length
                                                                                        ye1862))
                                                                                   (vfold1827
                                                                                     ye1862
                                                                                     (lambda (id1865
                                                                                              cls1864)
                                                                                       (id-iface-conflicts1829
                                                                                         id1865
                                                                                         y.new-marks1860
                                                                                         x.iface1859
                                                                                         x.new-marks1858
                                                                                         cls1864))
                                                                                     cls1855)
                                                                                   (vfold1827
                                                                                     xe1863
                                                                                     (lambda (id1867
                                                                                              cls1866)
                                                                                       (id-iface-conflicts1829
                                                                                         id1867
                                                                                         x.new-marks1858
                                                                                         y.iface1861
                                                                                         y.new-marks1860
                                                                                         cls1866))
                                                                                     cls1855)))
                                                                              (interface-exports454
                                                                                x.iface1859)
                                                                              (interface-exports454
                                                                                y.iface1861)))
                                                                           (import-interface-interface381
                                                                             y1856)
                                                                           (import-interface-new-marks382
                                                                             y1856))
                                                                         (id-iface-conflicts1829
                                                                           y1856
                                                                           '()
                                                                           x.iface1859
                                                                           x.new-marks1858
                                                                           cls1855)))
                                                                    (import-interface-interface381
                                                                      x1857)
                                                                    (import-interface-new-marks382
                                                                      x1857))
                                                                  (if (import-interface?380
                                                                        y1856)
                                                                      ((lambda (y.iface1869
                                                                                y.new-marks1868)
                                                                         (id-iface-conflicts1829
                                                                           x1857
                                                                           '()
                                                                           y.iface1869
                                                                           y.new-marks1868
                                                                           cls1855))
                                                                        (import-interface-interface381
                                                                          y1856)
                                                                        (import-interface-new-marks382
                                                                          y1856))
                                                                      (if (bound-id=?438
                                                                            x1857
                                                                            y1856)
                                                                          (cons
                                                                            x1857
                                                                            cls1855)
                                                                          cls1855)))))
                                             (id-iface-conflicts1829 (lambda (id1842
                                                                              id.new-marks1841
                                                                              iface1840
                                                                              iface.new-marks1839
                                                                              cls1838)
                                                                       ((lambda (id.sym1844
                                                                                 id.marks1843)
                                                                          ((lambda (t1845)
                                                                             (if t1845
                                                                                 ((lambda (token1846)
                                                                                    (if (lookup-import-binding-name415
                                                                                          id.sym1844
                                                                                          id.marks1843
                                                                                          token1846
                                                                                          iface.new-marks1839)
                                                                                        (cons
                                                                                          id1842
                                                                                          cls1838)
                                                                                        cls1838))
                                                                                   t1845)
                                                                                 (vfold1827
                                                                                   (interface-exports454
                                                                                     iface1840)
                                                                                   (lambda (*id1848
                                                                                            cls1847)
                                                                                     ((lambda (*id.sym1850
                                                                                               *id.marks1849)
                                                                                        (if (help-bound-id=?437
                                                                                              *id.sym1850
                                                                                              *id.marks1849
                                                                                              id.sym1844
                                                                                              id.marks1843)
                                                                                            (cons
                                                                                              *id1848
                                                                                              cls1847)
                                                                                            cls1847))
                                                                                       ((lambda (x1851)
                                                                                          ((lambda (e1852)
                                                                                             (if (annotation?132
                                                                                                   e1852)
                                                                                                 (annotation-expression
                                                                                                   e1852)
                                                                                                 e1852))
                                                                                            (if (syntax-object?64
                                                                                                  x1851)
                                                                                                (syntax-object-expression65
                                                                                                  x1851)
                                                                                                x1851)))
                                                                                         *id1848)
                                                                                       (join-marks423
                                                                                         iface.new-marks1839
                                                                                         (id-marks312
                                                                                           *id1848))))
                                                                                   cls1838)))
                                                                            (interface-token455
                                                                              iface1840)))
                                                                         ((lambda (x1853)
                                                                            ((lambda (e1854)
                                                                               (if (annotation?132
                                                                                     e1854)
                                                                                   (annotation-expression
                                                                                     e1854)
                                                                                   e1854))
                                                                              (if (syntax-object?64
                                                                                    x1853)
                                                                                  (syntax-object-expression65
                                                                                    x1853)
                                                                                  x1853)))
                                                                           id1842)
                                                                         (join-marks423
                                                                           id.new-marks1841
                                                                           (id-marks312
                                                                             id1842))))))
                                      (if (not (null? ls1825))
                                          ((letrec ((lp1830 (lambda (x1833
                                                                     ls1832
                                                                     cls1831)
                                                              (if (null?
                                                                    ls1832)
                                                                  (if (not (null?
                                                                             cls1831))
                                                                      ((lambda (cls1834)
                                                                         (syntax-error
                                                                           source-exp1826
                                                                           '"duplicate definition for "
                                                                           (symbol->string
                                                                             (car cls1834))
                                                                           '" in"))
                                                                        (syntax-object->datum
                                                                          cls1831))
                                                                      (void))
                                                                  ((letrec ((lp21835 (lambda (ls21837
                                                                                              cls1836)
                                                                                       (if (null?
                                                                                             ls21837)
                                                                                           (lp1830
                                                                                             (car ls1832)
                                                                                             (cdr ls1832)
                                                                                             cls1836)
                                                                                           (lp21835
                                                                                             (cdr ls21837)
                                                                                             (conflicts1828
                                                                                               x1833
                                                                                               (car ls21837)
                                                                                               cls1836))))))
                                                                     lp21835)
                                                                    ls1832
                                                                    cls1831)))))
                                             lp1830)
                                            (car ls1825)
                                            (cdr ls1825)
                                            '())
                                          (void)))))
            (chi-external486 (lambda (ribcage1721 source-exp1720
                                      body1719 r1718 mr1717 ctem1716
                                      exports1715 fexports1714
                                      meta-residualize!1713)
                               (letrec ((return1722 (lambda (r1824 mr1823
                                                             bindings1822
                                                             ids1821
                                                             inits1820)
                                                      (begin
                                                        (check-defined-ids485
                                                          source-exp1720
                                                          ids1821)
                                                        (check-module-exports484
                                                          source-exp1720
                                                          fexports1714
                                                          ids1821)
                                                        (values
                                                          r1824
                                                          mr1823
                                                          bindings1822
                                                          inits1820))))
                                        (get-implicit-exports1723 (lambda (id1817)
                                                                    ((letrec ((f1818 (lambda (exports1819)
                                                                                       (if (null?
                                                                                             exports1819)
                                                                                           '()
                                                                                           (if (if (pair?
                                                                                                     (car exports1819))
                                                                                                   (bound-id=?438
                                                                                                     id1817
                                                                                                     (caar
                                                                                                       exports1819))
                                                                                                   '#f)
                                                                                               (flatten-exports450
                                                                                                 (cdar
                                                                                                   exports1819))
                                                                                               (f1818
                                                                                                 (cdr exports1819)))))))
                                                                       f1818)
                                                                      exports1715)))
                                        (update-imp-exports1724 (lambda (bindings1812
                                                                         exports1811)
                                                                  ((lambda (exports1813)
                                                                     (map (lambda (b1814)
                                                                            ((lambda (id1815)
                                                                               (if (not (bound-id-member?442
                                                                                          id1815
                                                                                          exports1813))
                                                                                   b1814
                                                                                   (create-module-binding475
                                                                                     (module-binding-type463
                                                                                       b1814)
                                                                                     id1815
                                                                                     (module-binding-label465
                                                                                       b1814)
                                                                                     (append
                                                                                       (get-implicit-exports1723
                                                                                         id1815)
                                                                                       (module-binding-imps466
                                                                                         b1814))
                                                                                     (module-binding-val467
                                                                                       b1814))))
                                                                              (module-binding-id464
                                                                                b1814)))
                                                                          bindings1812))
                                                                    (map (lambda (x1816)
                                                                           (if (pair?
                                                                                 x1816)
                                                                               (car x1816)
                                                                               x1816))
                                                                         exports1811)))))
                                 ((letrec ((parse1725 (lambda (body1732
                                                               r1731 mr1730
                                                               ids1729
                                                               bindings1728
                                                               inits1727
                                                               meta-seen?1726)
                                                        (if (null?
                                                              body1732)
                                                            (return1722
                                                              r1731 mr1730
                                                              bindings1728
                                                              ids1729
                                                              inits1727)
                                                            ((lambda (fr1733)
                                                               ((lambda (e1734)
                                                                  ((lambda (meta?1735)
                                                                     ((lambda ()
                                                                        (call-with-values
                                                                          (lambda ()
                                                                            (syntax-type446
                                                                              e1734
                                                                              r1731
                                                                              '(())
                                                                              '#f
                                                                              ribcage1721))
                                                                          (lambda (type1740
                                                                                   value1739
                                                                                   e1738
                                                                                   w1737
                                                                                   ae1736)
                                                                            ((lambda (t1741)
                                                                               (if (memv
                                                                                     t1741
                                                                                     '(define-form))
                                                                                   (call-with-values
                                                                                     (lambda ()
                                                                                       (parse-define510
                                                                                         e1738
                                                                                         w1737
                                                                                         ae1736))
                                                                                     (lambda (id1744
                                                                                              rhs1743
                                                                                              w1742)
                                                                                       ((lambda (id1745)
                                                                                          ((lambda (label1746)
                                                                                             ((lambda (imps1747)
                                                                                                ((lambda ()
                                                                                                   (begin
                                                                                                     (extend-ribcage!410
                                                                                                       ribcage1721
                                                                                                       id1745
                                                                                                       label1746)
                                                                                                     (if meta?1735
                                                                                                         ((lambda (sym1748)
                                                                                                            ((lambda (b1749)
                                                                                                               ((lambda ()
                                                                                                                  ((lambda (mr1750)
                                                                                                                     ((lambda (exp1751)
                                                                                                                        (begin
                                                                                                                          (define-top-level-value-hook135
                                                                                                                            sym1748
                                                                                                                            (top-level-eval-hook133
                                                                                                                              exp1751))
                                                                                                                          (meta-residualize!1713
                                                                                                                            (ct-eval/residualize3494
                                                                                                                              ctem1716
                                                                                                                              void
                                                                                                                              (lambda ()
                                                                                                                                (list
                                                                                                                                  'define
                                                                                                                                  sym1748
                                                                                                                                  exp1751))))
                                                                                                                          (parse1725
                                                                                                                            (cdr body1732)
                                                                                                                            r1731
                                                                                                                            mr1750
                                                                                                                            (cons
                                                                                                                              id1745
                                                                                                                              ids1729)
                                                                                                                            (cons
                                                                                                                              (create-module-binding475
                                                                                                                                'ctdefine-form
                                                                                                                                id1745
                                                                                                                                label1746
                                                                                                                                imps1747
                                                                                                                                b1749)
                                                                                                                              bindings1728)
                                                                                                                            inits1727
                                                                                                                            '#f)))
                                                                                                                       (chi498
                                                                                                                         rhs1743
                                                                                                                         mr1750
                                                                                                                         mr1750
                                                                                                                         w1742
                                                                                                                         '#t)))
                                                                                                                    (extend-env295
                                                                                                                      (get-indirect-label360
                                                                                                                        label1746)
                                                                                                                      b1749
                                                                                                                      mr1730)))))
                                                                                                              (cons
                                                                                                                'meta-variable
                                                                                                                sym1748)))
                                                                                                           (generate-id143
                                                                                                             ((lambda (x1752)
                                                                                                                ((lambda (e1753)
                                                                                                                   (if (annotation?132
                                                                                                                         e1753)
                                                                                                                       (annotation-expression
                                                                                                                         e1753)
                                                                                                                       e1753))
                                                                                                                  (if (syntax-object?64
                                                                                                                        x1752)
                                                                                                                      (syntax-object-expression65
                                                                                                                        x1752)
                                                                                                                      x1752)))
                                                                                                               id1745)))
                                                                                                         (parse1725
                                                                                                           (cdr body1732)
                                                                                                           r1731
                                                                                                           mr1730
                                                                                                           (cons
                                                                                                             id1745
                                                                                                             ids1729)
                                                                                                           (cons
                                                                                                             (create-module-binding475
                                                                                                               type1740
                                                                                                               id1745
                                                                                                               label1746
                                                                                                               imps1747
                                                                                                               (make-frob476
                                                                                                                 (wrap443
                                                                                                                   rhs1743
                                                                                                                   w1742)
                                                                                                                 meta?1735))
                                                                                                             bindings1728)
                                                                                                           inits1727
                                                                                                           '#f))))))
                                                                                               (get-implicit-exports1723
                                                                                                 id1745)))
                                                                                            (gen-indirect-label359)))
                                                                                         (wrap443
                                                                                           id1744
                                                                                           w1742))))
                                                                                   (if (memv
                                                                                         t1741
                                                                                         '(define-syntax-form))
                                                                                       (call-with-values
                                                                                         (lambda ()
                                                                                           (parse-define-syntax511
                                                                                             e1738
                                                                                             w1737
                                                                                             ae1736))
                                                                                         (lambda (id1756
                                                                                                  rhs1755
                                                                                                  w1754)
                                                                                           ((lambda (id1757)
                                                                                              ((lambda (label1758)
                                                                                                 ((lambda (imps1759)
                                                                                                    ((lambda (exp1760)
                                                                                                       ((lambda ()
                                                                                                          (begin
                                                                                                            (extend-ribcage!410
                                                                                                              ribcage1721
                                                                                                              id1757
                                                                                                              label1758)
                                                                                                            ((lambda (l1762
                                                                                                                      b1761)
                                                                                                               (parse1725
                                                                                                                 (cdr body1732)
                                                                                                                 (extend-env295
                                                                                                                   l1762
                                                                                                                   b1761
                                                                                                                   r1731)
                                                                                                                 (extend-env295
                                                                                                                   l1762
                                                                                                                   b1761
                                                                                                                   mr1730)
                                                                                                                 (cons
                                                                                                                   id1757
                                                                                                                   ids1729)
                                                                                                                 (cons
                                                                                                                   (create-module-binding475
                                                                                                                     type1740
                                                                                                                     id1757
                                                                                                                     label1758
                                                                                                                     imps1759
                                                                                                                     (cons
                                                                                                                       b1761
                                                                                                                       exp1760))
                                                                                                                   bindings1728)
                                                                                                                 inits1727
                                                                                                                 '#f))
                                                                                                              (get-indirect-label360
                                                                                                                label1758)
                                                                                                              (defer-or-eval-transformer303
                                                                                                                top-level-eval-hook133
                                                                                                                exp1760))))))
                                                                                                      (chi498
                                                                                                        rhs1755
                                                                                                        mr1730
                                                                                                        mr1730
                                                                                                        w1754
                                                                                                        '#t)))
                                                                                                   (get-implicit-exports1723
                                                                                                     id1757)))
                                                                                                (gen-indirect-label359)))
                                                                                             (wrap443
                                                                                               id1756
                                                                                               w1754))))
                                                                                       (if (memv
                                                                                             t1741
                                                                                             '($module-form))
                                                                                           ((lambda (*ribcage1763)
                                                                                              ((lambda (*w1764)
                                                                                                 ((lambda ()
                                                                                                    (call-with-values
                                                                                                      (lambda ()
                                                                                                        (parse-module508
                                                                                                          e1738
                                                                                                          w1737
                                                                                                          ae1736
                                                                                                          *w1764))
                                                                                                      (lambda (orig1768
                                                                                                               id1767
                                                                                                               *exports1766
                                                                                                               forms1765)
                                                                                                        (call-with-values
                                                                                                          (lambda ()
                                                                                                            (chi-external486
                                                                                                              *ribcage1763
                                                                                                              orig1768
                                                                                                              (map (lambda (d1780)
                                                                                                                     (make-frob476
                                                                                                                       d1780
                                                                                                                       meta?1735))
                                                                                                                   forms1765)
                                                                                                              r1731
                                                                                                              mr1730
                                                                                                              ctem1716
                                                                                                              *exports1766
                                                                                                              (flatten-exports450
                                                                                                                *exports1766)
                                                                                                              meta-residualize!1713))
                                                                                                          (lambda (r1772
                                                                                                                   mr1771
                                                                                                                   *bindings1770
                                                                                                                   *inits1769)
                                                                                                            ((lambda (iface1777
                                                                                                                      bindings1776
                                                                                                                      inits1775
                                                                                                                      label1774
                                                                                                                      imps1773)
                                                                                                               (begin
                                                                                                                 (extend-ribcage!410
                                                                                                                   ribcage1721
                                                                                                                   id1767
                                                                                                                   label1774)
                                                                                                                 ((lambda (l1779
                                                                                                                           b1778)
                                                                                                                    (parse1725
                                                                                                                      (cdr body1732)
                                                                                                                      (extend-env295
                                                                                                                        l1779
                                                                                                                        b1778
                                                                                                                        r1772)
                                                                                                                      (extend-env295
                                                                                                                        l1779
                                                                                                                        b1778
                                                                                                                        mr1771)
                                                                                                                      (cons
                                                                                                                        id1767
                                                                                                                        ids1729)
                                                                                                                      (cons
                                                                                                                        (create-module-binding475
                                                                                                                          type1740
                                                                                                                          id1767
                                                                                                                          label1774
                                                                                                                          imps1773
                                                                                                                          *exports1766)
                                                                                                                        bindings1776)
                                                                                                                      inits1775
                                                                                                                      '#f))
                                                                                                                   (get-indirect-label360
                                                                                                                     label1774)
                                                                                                                   (cons
                                                                                                                     '$module
                                                                                                                     iface1777))))
                                                                                                              (make-unresolved-interface459
                                                                                                                id1767
                                                                                                                *exports1766)
                                                                                                              (append
                                                                                                                *bindings1770
                                                                                                                bindings1728)
                                                                                                              (append
                                                                                                                inits1727
                                                                                                                *inits1769)
                                                                                                              (gen-indirect-label359)
                                                                                                              (get-implicit-exports1723
                                                                                                                id1767)))))))))
                                                                                                (make-wrap315
                                                                                                  (wrap-marks316
                                                                                                    w1737)
                                                                                                  (cons
                                                                                                    *ribcage1763
                                                                                                    (wrap-subst317
                                                                                                      w1737)))))
                                                                                             (make-ribcage365
                                                                                               '()
                                                                                               '()
                                                                                               '()))
                                                                                           (if (memv
                                                                                                 t1741
                                                                                                 '($import-form))
                                                                                               (call-with-values
                                                                                                 (lambda ()
                                                                                                   (parse-import509
                                                                                                     e1738
                                                                                                     w1737
                                                                                                     ae1736))
                                                                                                 (lambda (orig1783
                                                                                                          only?1782
                                                                                                          mid1781)
                                                                                                   ((lambda (mlabel1784)
                                                                                                      ((lambda (binding1785)
                                                                                                         ((lambda (t1786)
                                                                                                            (if (memv
                                                                                                                  t1786
                                                                                                                  '($module))
                                                                                                                ((lambda (iface1787)
                                                                                                                   ((lambda (import-iface1788)
                                                                                                                      ((lambda ()
                                                                                                                         (begin
                                                                                                                           (if only?1782
                                                                                                                               (extend-ribcage-barrier!412
                                                                                                                                 ribcage1721
                                                                                                                                 mid1781)
                                                                                                                               (void))
                                                                                                                           (do-import!507
                                                                                                                             import-iface1788
                                                                                                                             ribcage1721)
                                                                                                                           (parse1725
                                                                                                                             (cdr body1732)
                                                                                                                             r1731
                                                                                                                             mr1730
                                                                                                                             (cons
                                                                                                                               import-iface1788
                                                                                                                               ids1729)
                                                                                                                             (update-imp-exports1724
                                                                                                                               bindings1728
                                                                                                                               (vector->list
                                                                                                                                 (interface-exports454
                                                                                                                                   iface1787)))
                                                                                                                             inits1727
                                                                                                                             '#f)))))
                                                                                                                     (make-import-interface379
                                                                                                                       iface1787
                                                                                                                       (import-mark-delta505
                                                                                                                         mid1781
                                                                                                                         iface1787))))
                                                                                                                  (binding-value282
                                                                                                                    binding1785))
                                                                                                                (if (memv
                                                                                                                      t1786
                                                                                                                      '(displaced-lexical))
                                                                                                                    (displaced-lexical-error299
                                                                                                                      mid1781)
                                                                                                                    (syntax-error
                                                                                                                      mid1781
                                                                                                                      '"unknown module"))))
                                                                                                           (binding-type281
                                                                                                             binding1785)))
                                                                                                        (lookup301
                                                                                                          mlabel1784
                                                                                                          r1731)))
                                                                                                     (id-var-name434
                                                                                                       mid1781
                                                                                                       '(())))))
                                                                                               (if (memv
                                                                                                     t1741
                                                                                                     '(alias-form))
                                                                                                   (call-with-values
                                                                                                     (lambda ()
                                                                                                       (parse-alias514
                                                                                                         e1738
                                                                                                         w1737
                                                                                                         ae1736))
                                                                                                     (lambda (new-id1790
                                                                                                              old-id1789)
                                                                                                       ((lambda (new-id1791)
                                                                                                          ((lambda (label1792)
                                                                                                             ((lambda (imps1793)
                                                                                                                ((lambda ()
                                                                                                                   (begin
                                                                                                                     (extend-ribcage!410
                                                                                                                       ribcage1721
                                                                                                                       new-id1791
                                                                                                                       label1792)
                                                                                                                     (parse1725
                                                                                                                       (cdr body1732)
                                                                                                                       r1731
                                                                                                                       mr1730
                                                                                                                       (cons
                                                                                                                         new-id1791
                                                                                                                         ids1729)
                                                                                                                       (cons
                                                                                                                         (create-module-binding475
                                                                                                                           type1740
                                                                                                                           new-id1791
                                                                                                                           label1792
                                                                                                                           imps1793
                                                                                                                           '#f)
                                                                                                                         bindings1728)
                                                                                                                       inits1727
                                                                                                                       '#f)))))
                                                                                                               (get-implicit-exports1723
                                                                                                                 new-id1791)))
                                                                                                            (id-var-name-loc433
                                                                                                              old-id1789
                                                                                                              w1737)))
                                                                                                         (wrap443
                                                                                                           new-id1790
                                                                                                           w1737))))
                                                                                                   (if (memv
                                                                                                         t1741
                                                                                                         '(begin-form))
                                                                                                       (parse1725
                                                                                                         ((letrec ((f1794 (lambda (forms1795)
                                                                                                                            (if (null?
                                                                                                                                  forms1795)
                                                                                                                                (cdr body1732)
                                                                                                                                (cons
                                                                                                                                  (make-frob476
                                                                                                                                    (wrap443
                                                                                                                                      (car forms1795)
                                                                                                                                      w1737)
                                                                                                                                    meta?1735)
                                                                                                                                  (f1794
                                                                                                                                    (cdr forms1795)))))))
                                                                                                            f1794)
                                                                                                           (parse-begin515
                                                                                                             e1738
                                                                                                             w1737
                                                                                                             ae1736
                                                                                                             '#t))
                                                                                                         r1731
                                                                                                         mr1730
                                                                                                         ids1729
                                                                                                         bindings1728
                                                                                                         inits1727
                                                                                                         '#f)
                                                                                                       (if (memv
                                                                                                             t1741
                                                                                                             '(eval-when-form))
                                                                                                           (call-with-values
                                                                                                             (lambda ()
                                                                                                               (parse-eval-when513
                                                                                                                 e1738
                                                                                                                 w1737
                                                                                                                 ae1736))
                                                                                                             (lambda (when-list1797
                                                                                                                      forms1796)
                                                                                                               (parse1725
                                                                                                                 (if (memq
                                                                                                                       'eval
                                                                                                                       when-list1797)
                                                                                                                     ((letrec ((f1798 (lambda (forms1799)
                                                                                                                                        (if (null?
                                                                                                                                              forms1799)
                                                                                                                                            (cdr body1732)
                                                                                                                                            (cons
                                                                                                                                              (make-frob476
                                                                                                                                                (wrap443
                                                                                                                                                  (car forms1799)
                                                                                                                                                  w1737)
                                                                                                                                                meta?1735)
                                                                                                                                              (f1798
                                                                                                                                                (cdr forms1799)))))))
                                                                                                                        f1798)
                                                                                                                       forms1796)
                                                                                                                     (cdr body1732))
                                                                                                                 r1731
                                                                                                                 mr1730
                                                                                                                 ids1729
                                                                                                                 bindings1728
                                                                                                                 inits1727
                                                                                                                 '#f)))
                                                                                                           (if (memv
                                                                                                                 t1741
                                                                                                                 '(meta-form))
                                                                                                               (parse1725
                                                                                                                 (cons
                                                                                                                   (make-frob476
                                                                                                                     (wrap443
                                                                                                                       (parse-meta512
                                                                                                                         e1738
                                                                                                                         w1737
                                                                                                                         ae1736)
                                                                                                                       w1737)
                                                                                                                     '#t)
                                                                                                                   (cdr body1732))
                                                                                                                 r1731
                                                                                                                 mr1730
                                                                                                                 ids1729
                                                                                                                 bindings1728
                                                                                                                 inits1727
                                                                                                                 '#t)
                                                                                                               (if (memv
                                                                                                                     t1741
                                                                                                                     '(local-syntax-form))
                                                                                                                   (call-with-values
                                                                                                                     (lambda ()
                                                                                                                       (chi-local-syntax517
                                                                                                                         value1739
                                                                                                                         e1738
                                                                                                                         r1731
                                                                                                                         mr1730
                                                                                                                         w1737
                                                                                                                         ae1736))
                                                                                                                     (lambda (forms1804
                                                                                                                              r1803
                                                                                                                              mr1802
                                                                                                                              w1801
                                                                                                                              ae1800)
                                                                                                                       (parse1725
                                                                                                                         ((letrec ((f1805 (lambda (forms1806)
                                                                                                                                            (if (null?
                                                                                                                                                  forms1806)
                                                                                                                                                (cdr body1732)
                                                                                                                                                (cons
                                                                                                                                                  (make-frob476
                                                                                                                                                    (wrap443
                                                                                                                                                      (car forms1806)
                                                                                                                                                      w1801)
                                                                                                                                                    meta?1735)
                                                                                                                                                  (f1805
                                                                                                                                                    (cdr forms1806)))))))
                                                                                                                            f1805)
                                                                                                                           forms1804)
                                                                                                                         r1803
                                                                                                                         mr1802
                                                                                                                         ids1729
                                                                                                                         bindings1728
                                                                                                                         inits1727
                                                                                                                         '#f)))
                                                                                                                   (begin
                                                                                                                     (if meta-seen?1726
                                                                                                                         (syntax-error
                                                                                                                           (source-wrap444
                                                                                                                             e1738
                                                                                                                             w1737
                                                                                                                             ae1736)
                                                                                                                           '"invalid meta definition")
                                                                                                                         (void))
                                                                                                                     ((letrec ((f1807 (lambda (body1808)
                                                                                                                                        (if ((lambda (t1809)
                                                                                                                                               (if t1809
                                                                                                                                                   t1809
                                                                                                                                                   (not (frob-meta?479
                                                                                                                                                          (car body1808)))))
                                                                                                                                              (null?
                                                                                                                                                body1808))
                                                                                                                                            (return1722
                                                                                                                                              r1731
                                                                                                                                              mr1730
                                                                                                                                              bindings1728
                                                                                                                                              ids1729
                                                                                                                                              (append
                                                                                                                                                inits1727
                                                                                                                                                body1808))
                                                                                                                                            (begin
                                                                                                                                              ((lambda (x1810)
                                                                                                                                                 (begin
                                                                                                                                                   (top-level-eval-hook133
                                                                                                                                                     x1810)
                                                                                                                                                   (meta-residualize!1713
                                                                                                                                                     (ct-eval/residualize3494
                                                                                                                                                       ctem1716
                                                                                                                                                       void
                                                                                                                                                       (lambda ()
                                                                                                                                                         x1810)))))
                                                                                                                                                (chi-meta-frob496
                                                                                                                                                  (car body1808)
                                                                                                                                                  mr1730))
                                                                                                                                              (f1807
                                                                                                                                                (cdr body1808)))))))
                                                                                                                        f1807)
                                                                                                                       (cons
                                                                                                                         (make-frob476
                                                                                                                           (source-wrap444
                                                                                                                             e1738
                                                                                                                             w1737
                                                                                                                             ae1736)
                                                                                                                           meta?1735)
                                                                                                                         (cdr body1732))))))))))))))
                                                                              type1740))))))
                                                                    (frob-meta?479
                                                                      fr1733)))
                                                                 (frob-e478
                                                                   fr1733)))
                                                              (car body1732))))))
                                    parse1725) body1719 r1718 mr1717 '()
                                   '() '() '#f))))
            (vmap487 (lambda (fn1709 v1708)
                       ((letrec ((do1710 (lambda (i1712 ls1711)
                                           (if (< i1712 '0)
                                               ls1711
                                               (do1710
                                                 (- i1712 '1)
                                                 (cons
                                                   (fn1709
                                                     (vector-ref
                                                       v1708
                                                       i1712))
                                                   ls1711))))))
                          do1710)
                         (- (vector-length v1708) '1)
                         '())))
            (vfor-each488 (lambda (fn1704 v1703)
                            ((lambda (len1705)
                               ((letrec ((do1706 (lambda (i1707)
                                                   (if (not (= i1707
                                                               len1705))
                                                       (begin
                                                         (fn1704
                                                           (vector-ref
                                                             v1703
                                                             i1707))
                                                         (do1706
                                                           (+ i1707 '1)))
                                                       (void)))))
                                  do1706)
                                 '0))
                              (vector-length v1703))))
            (do-top-import489 (lambda (import-only?1702 top-ribcage1701
                                       mid1700 token1699)
                                (list
                                  '$sc-put-cte
                                  (list 'quote mid1700)
                                  (list 'quote (cons 'do-import token1699))
                                  (list
                                    'quote
                                    (top-ribcage-key375
                                      top-ribcage1701)))))
            (update-mode-set490 ((lambda (table1690)
                                   (lambda (when-list1692 mode-set1691)
                                     (letrec ((remq1693 (lambda (x1698
                                                                 ls1697)
                                                          (if (null?
                                                                ls1697)
                                                              '()
                                                              (if (eq? (car ls1697)
                                                                       x1698)
                                                                  (remq1693
                                                                    x1698
                                                                    (cdr ls1697))
                                                                  (cons
                                                                    (car ls1697)
                                                                    (remq1693
                                                                      x1698
                                                                      (cdr ls1697))))))))
                                       (remq1693
                                         '-
                                         (apply
                                           append
                                           (map (lambda (m1694)
                                                  ((lambda (row1695)
                                                     (map (lambda (s1696)
                                                            (cdr (assq
                                                                   s1696
                                                                   row1695)))
                                                          when-list1692))
                                                    (cdr (assq
                                                           m1694
                                                           table1690))))
                                                mode-set1691))))))
                                  '((l (load . l) (compile . c) (visit . v)
                                       (revisit . r) (eval . -))
                                     (c (load . -) (compile . -)
                                        (visit . -) (revisit . -)
                                        (eval . c))
                                     (v (load . v) (compile . c)
                                        (visit . v) (revisit . -)
                                        (eval . -))
                                     (r (load . r) (compile . c)
                                        (visit . -) (revisit . r)
                                        (eval . -))
                                     (e (load . -) (compile . -)
                                        (visit . -) (revisit . -)
                                        (eval . e)))))
            (initial-mode-set491 (lambda (when-list1686
                                          compiling-a-file1685)
                                   (apply
                                     append
                                     (map (lambda (s1687)
                                            (if compiling-a-file1685
                                                ((lambda (t1688)
                                                   (if (memv
                                                         t1688
                                                         '(compile))
                                                       '(c)
                                                       (if (memv
                                                             t1688
                                                             '(load))
                                                           '(l)
                                                           (if (memv
                                                                 t1688
                                                                 '(visit))
                                                               '(v)
                                                               (if (memv
                                                                     t1688
                                                                     '(revisit))
                                                                   '(r)
                                                                   '())))))
                                                  s1687)
                                                ((lambda (t1689)
                                                   (if (memv t1689 '(eval))
                                                       '(e)
                                                       '()))
                                                  s1687)))
                                          when-list1686))))
            (rt-eval/residualize492 (lambda (rtem1680 thunk1679)
                                      (if (memq 'e rtem1680)
                                          (thunk1679)
                                          ((lambda (thunk1681)
                                             (if (memq 'v rtem1680)
                                                 (if ((lambda (t1682)
                                                        (if t1682
                                                            t1682
                                                            (memq
                                                              'r
                                                              rtem1680)))
                                                       (memq 'l rtem1680))
                                                     (thunk1681)
                                                     (thunk1681))
                                                 (if ((lambda (t1683)
                                                        (if t1683
                                                            t1683
                                                            (memq
                                                              'r
                                                              rtem1680)))
                                                       (memq 'l rtem1680))
                                                     (thunk1681)
                                                     (chi-void518))))
                                            (if (memq 'c rtem1680)
                                                ((lambda (x1684)
                                                   (begin
                                                     (top-level-eval-hook133
                                                       x1684)
                                                     (lambda () x1684)))
                                                  (thunk1679))
                                                thunk1679)))))
            (ct-eval/residualize2493 (lambda (ctem1676 thunk1675)
                                       ((lambda (t1677)
                                          (ct-eval/residualize3494
                                            ctem1676
                                            (lambda ()
                                              (begin
                                                (if (not t1677)
                                                    (set! t1677
                                                      (thunk1675))
                                                    (void))
                                                (top-level-eval-hook133
                                                  t1677)))
                                            (lambda ()
                                              ((lambda (t1678)
                                                 (if t1678
                                                     t1678
                                                     (thunk1675)))
                                                t1677))))
                                         '#f)))
            (ct-eval/residualize3494 (lambda (ctem1672 eval-thunk1671
                                              residualize-thunk1670)
                                       (if (memq 'e ctem1672)
                                           (begin
                                             (eval-thunk1671)
                                             (chi-void518))
                                           (begin
                                             (if (memq 'c ctem1672)
                                                 (eval-thunk1671)
                                                 (void))
                                             (if (memq 'r ctem1672)
                                                 (if ((lambda (t1673)
                                                        (if t1673
                                                            t1673
                                                            (memq
                                                              'v
                                                              ctem1672)))
                                                       (memq 'l ctem1672))
                                                     (residualize-thunk1670)
                                                     (residualize-thunk1670))
                                                 (if ((lambda (t1674)
                                                        (if t1674
                                                            t1674
                                                            (memq
                                                              'v
                                                              ctem1672)))
                                                       (memq 'l ctem1672))
                                                     (residualize-thunk1670)
                                                     (chi-void518)))))))
            (chi-frobs495 (lambda (frob*1668 r1667 mr1666 m?1665)
                            (map (lambda (x1669)
                                   (chi498 (frob-e478 x1669) r1667 mr1666
                                     '(()) m?1665))
                                 frob*1668)))
            (chi-meta-frob496 (lambda (x1664 mr1663)
                                (chi498 (frob-e478 x1664) mr1663 mr1663
                                  '(()) '#t)))
            (chi-sequence497 (lambda (body1659 r1658 mr1657 w1656 ae1655
                                      m?1654)
                               (build-sequence235
                                 ae1655
                                 ((letrec ((dobody1660 (lambda (body1661)
                                                         (if (null?
                                                               body1661)
                                                             '()
                                                             ((lambda (first1662)
                                                                (cons
                                                                  first1662
                                                                  (dobody1660
                                                                    (cdr body1661))))
                                                               (chi498
                                                                 (car body1661)
                                                                 r1658
                                                                 mr1657
                                                                 w1656
                                                                 m?1654))))))
                                    dobody1660)
                                   body1659))))
            (chi498 (lambda (e1648 r1647 mr1646 w1645 m?1644)
                      (call-with-values
                        (lambda ()
                          (syntax-type446 e1648 r1647 w1645 '#f '#f))
                        (lambda (type1653 value1652 e1651 w1650 ae1649)
                          (chi-expr499 type1653 value1652 e1651 r1647
                            mr1646 w1650 ae1649 m?1644)))))
            (chi-expr499 (lambda (type1628 value1627 e1626 r1625 mr1624
                                  w1623 ae1622 m?1621)
                           ((lambda (t1629)
                              (if (memv t1629 '(lexical))
                                  value1627
                                  (if (memv t1629 '(core))
                                      (value1627 e1626 r1625 mr1624 w1623
                                        ae1622 m?1621)
                                      (if (memv t1629 '(lexical-call))
                                          (chi-application500 value1627
                                            e1626 r1625 mr1624 w1623 ae1622
                                            m?1621)
                                          (if (memv t1629 '(constant))
                                              (list
                                                'quote
                                                (strip522
                                                  (source-wrap444
                                                    e1626
                                                    w1623
                                                    ae1622)
                                                  '(())))
                                              (if (memv t1629 '(global))
                                                  value1627
                                                  (if (memv
                                                        t1629
                                                        '(meta-variable))
                                                      (if m?1621
                                                          value1627
                                                          (displaced-lexical-error299
                                                            (source-wrap444
                                                              e1626
                                                              w1623
                                                              ae1622)))
                                                      (if (memv
                                                            t1629
                                                            '(call))
                                                          (chi-application500
                                                            (chi498
                                                              (car e1626)
                                                              r1625 mr1624
                                                              w1623 m?1621)
                                                            e1626 r1625
                                                            mr1624 w1623
                                                            ae1622 m?1621)
                                                          (if (memv
                                                                t1629
                                                                '(begin-form))
                                                              (chi-sequence497
                                                                (parse-begin515
                                                                  e1626
                                                                  w1623
                                                                  ae1622
                                                                  '#f)
                                                                r1625
                                                                mr1624
                                                                w1623
                                                                ae1622
                                                                m?1621)
                                                              (if (memv
                                                                    t1629
                                                                    '(local-syntax-form))
                                                                  (call-with-values
                                                                    (lambda ()
                                                                      (chi-local-syntax517
                                                                        value1627
                                                                        e1626
                                                                        r1625
                                                                        mr1624
                                                                        w1623
                                                                        ae1622))
                                                                    (lambda (forms1634
                                                                             r1633
                                                                             mr1632
                                                                             w1631
                                                                             ae1630)
                                                                      (chi-sequence497
                                                                        forms1634
                                                                        r1633
                                                                        mr1632
                                                                        w1631
                                                                        ae1630
                                                                        m?1621)))
                                                                  (if (memv
                                                                        t1629
                                                                        '(eval-when-form))
                                                                      (call-with-values
                                                                        (lambda ()
                                                                          (parse-eval-when513
                                                                            e1626
                                                                            w1623
                                                                            ae1622))
                                                                        (lambda (when-list1636
                                                                                 forms1635)
                                                                          (if (memq
                                                                                'eval
                                                                                when-list1636)
                                                                              (chi-sequence497
                                                                                forms1635
                                                                                r1625
                                                                                mr1624
                                                                                w1623
                                                                                ae1622
                                                                                m?1621)
                                                                              (chi-void518))))
                                                                      (if (memv
                                                                            t1629
                                                                            '(meta-form))
                                                                          (syntax-error
                                                                            (source-wrap444
                                                                              e1626
                                                                              w1623
                                                                              ae1622)
                                                                            '"invalid context for meta definition")
                                                                          (if (memv
                                                                                t1629
                                                                                '(define-form))
                                                                              (begin
                                                                                (parse-define510
                                                                                  e1626
                                                                                  w1623
                                                                                  ae1622)
                                                                                (syntax-error
                                                                                  (source-wrap444
                                                                                    e1626
                                                                                    w1623
                                                                                    ae1622)
                                                                                  '"invalid context for definition"))
                                                                              (if (memv
                                                                                    t1629
                                                                                    '(define-syntax-form))
                                                                                  (begin
                                                                                    (parse-define-syntax511
                                                                                      e1626
                                                                                      w1623
                                                                                      ae1622)
                                                                                    (syntax-error
                                                                                      (source-wrap444
                                                                                        e1626
                                                                                        w1623
                                                                                        ae1622)
                                                                                      '"invalid context for definition"))
                                                                                  (if (memv
                                                                                        t1629
                                                                                        '($module-form))
                                                                                      (call-with-values
                                                                                        (lambda ()
                                                                                          (parse-module508
                                                                                            e1626
                                                                                            w1623
                                                                                            ae1622
                                                                                            w1623))
                                                                                        (lambda (orig1640
                                                                                                 id1639
                                                                                                 exports1638
                                                                                                 forms1637)
                                                                                          (syntax-error
                                                                                            orig1640
                                                                                            '"invalid context for definition")))
                                                                                      (if (memv
                                                                                            t1629
                                                                                            '($import-form))
                                                                                          (call-with-values
                                                                                            (lambda ()
                                                                                              (parse-import509
                                                                                                e1626
                                                                                                w1623
                                                                                                ae1622))
                                                                                            (lambda (orig1643
                                                                                                     only?1642
                                                                                                     mid1641)
                                                                                              (syntax-error
                                                                                                orig1643
                                                                                                '"invalid context for definition")))
                                                                                          (if (memv
                                                                                                t1629
                                                                                                '(alias-form))
                                                                                              (begin
                                                                                                (parse-alias514
                                                                                                  e1626
                                                                                                  w1623
                                                                                                  ae1622)
                                                                                                (syntax-error
                                                                                                  (source-wrap444
                                                                                                    e1626
                                                                                                    w1623
                                                                                                    ae1622)
                                                                                                  '"invalid context for definition"))
                                                                                              (if (memv
                                                                                                    t1629
                                                                                                    '(syntax))
                                                                                                  (syntax-error
                                                                                                    (source-wrap444
                                                                                                      e1626
                                                                                                      w1623
                                                                                                      ae1622)
                                                                                                    '"reference to pattern variable outside syntax form")
                                                                                                  (if (memv
                                                                                                        t1629
                                                                                                        '(displaced-lexical))
                                                                                                      (displaced-lexical-error299
                                                                                                        (source-wrap444
                                                                                                          e1626
                                                                                                          w1623
                                                                                                          ae1622))
                                                                                                      (syntax-error
                                                                                                        (source-wrap444
                                                                                                          e1626
                                                                                                          w1623
                                                                                                          ae1622)))))))))))))))))))))
                             type1628)))
            (chi-application500 (lambda (x1613 e1612 r1611 mr1610 w1609
                                         ae1608 m?1607)
                                  ((lambda (tmp1614)
                                     ((lambda (tmp1615)
                                        (if tmp1615
                                            (apply
                                              (lambda (e01617 e11616)
                                                (cons
                                                  x1613
                                                  (map (lambda (e1619)
                                                         (chi498 e1619
                                                           r1611 mr1610
                                                           w1609 m?1607))
                                                       e11616)))
                                              tmp1615)
                                            ((lambda (_1620)
                                               (syntax-error
                                                 (source-wrap444
                                                   e1612
                                                   w1609
                                                   ae1608)))
                                              tmp1614)))
                                       ($syntax-dispatch
                                         tmp1614
                                         '(any . each-any))))
                                    e1612)))
            (chi-set!501 (lambda (e1581 r1580 w1579 ae1578 rib1577)
                           ((lambda (tmp1582)
                              ((lambda (tmp1583)
                                 (if (if tmp1583
                                         (apply
                                           (lambda (_1586 id1585 val1584)
                                             (id?306 id1585))
                                           tmp1583)
                                         '#f)
                                     (apply
                                       (lambda (_1589 id1588 val1587)
                                         ((lambda (n1590)
                                            ((lambda (b1591)
                                               ((lambda (t1592)
                                                  (if (memv
                                                        t1592
                                                        '(macro!))
                                                      ((lambda (id1594
                                                                val1593)
                                                         (syntax-type446
                                                           (chi-macro502
                                                             (binding-value282
                                                               b1591)
                                                             (list
                                                               '#(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(id val) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(t) #(("m" top)) #("i")) #(ribcage () () ()) #(ribcage #(b) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(n) #((top)) #("i")) #(ribcage #(_ id val) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(e r w ae rib) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                               id1594
                                                               val1593)
                                                             r1580 '(())
                                                             '#f rib1577)
                                                           r1580 '(()) '#f
                                                           rib1577))
                                                        (wrap443
                                                          id1588
                                                          w1579)
                                                        (wrap443
                                                          val1587
                                                          w1579))
                                                      (values 'core
                                                        (lambda (e1600
                                                                 r1599
                                                                 mr1598
                                                                 w1597
                                                                 ae1596
                                                                 m?1595)
                                                          ((lambda (val1602
                                                                    n1601)
                                                             ((lambda (b1603)
                                                                ((lambda (t1604)
                                                                   (if (memv
                                                                         t1604
                                                                         '(lexical))
                                                                       (list
                                                                         'set!
                                                                         (binding-value282
                                                                           b1603)
                                                                         val1602)
                                                                       (if (memv
                                                                             t1604
                                                                             '(global))
                                                                           ((lambda (sym1605)
                                                                              (begin
                                                                                (if (read-only-binding?140
                                                                                      n1601)
                                                                                    (syntax-error
                                                                                      (source-wrap444
                                                                                        e1600
                                                                                        w1597
                                                                                        ae1596)
                                                                                      '"invalid assignment to read-only variable")
                                                                                    (void))
                                                                                (list
                                                                                  'set!
                                                                                  sym1605
                                                                                  val1602)))
                                                                             (binding-value282
                                                                               b1603))
                                                                           (if (memv
                                                                                 t1604
                                                                                 '(meta-variable))
                                                                               (if m?1595
                                                                                   (list
                                                                                     'set!
                                                                                     (binding-value282
                                                                                       b1603)
                                                                                     val1602)
                                                                                   (displaced-lexical-error299
                                                                                     (wrap443
                                                                                       id1588
                                                                                       w1597)))
                                                                               (if (memv
                                                                                     t1604
                                                                                     '(displaced-lexical))
                                                                                   (displaced-lexical-error299
                                                                                     (wrap443
                                                                                       id1588
                                                                                       w1597))
                                                                                   (syntax-error
                                                                                     (source-wrap444
                                                                                       e1600
                                                                                       w1597
                                                                                       ae1596)))))))
                                                                  (binding-type281
                                                                    b1603)))
                                                               (lookup301
                                                                 n1601
                                                                 r1599)))
                                                            (chi498 val1587
                                                              r1599 mr1598
                                                              w1597 m?1595)
                                                            (id-var-name434
                                                              id1588
                                                              w1597)))
                                                        e1581 w1579
                                                        ae1578)))
                                                 (binding-type281 b1591)))
                                              (lookup301 n1590 r1580)))
                                           (id-var-name434 id1588 w1579)))
                                       tmp1583)
                                     ((lambda (_1606)
                                        (syntax-error
                                          (source-wrap444
                                            e1581
                                            w1579
                                            ae1578)))
                                       tmp1582)))
                                ($syntax-dispatch tmp1582 '(any any any))))
                             e1581)))
            (chi-macro502 (lambda (p1564 e1563 r1562 w1561 ae1560
                                   rib1559)
                            (letrec ((rebuild-macro-output1565 (lambda (x1569
                                                                        m1568)
                                                                 (if (pair?
                                                                       x1569)
                                                                     (cons
                                                                       (rebuild-macro-output1565
                                                                         (car x1569)
                                                                         m1568)
                                                                       (rebuild-macro-output1565
                                                                         (cdr x1569)
                                                                         m1568))
                                                                     (if (syntax-object?64
                                                                           x1569)
                                                                         ((lambda (w1570)
                                                                            ((lambda (ms1572
                                                                                      s1571)
                                                                               (make-syntax-object63
                                                                                 (syntax-object-expression65
                                                                                   x1569)
                                                                                 (if (if (pair?
                                                                                           ms1572)
                                                                                         (eq? (car ms1572)
                                                                                              '#f)
                                                                                         '#f)
                                                                                     (make-wrap315
                                                                                       (cdr ms1572)
                                                                                       (cdr s1571))
                                                                                     (make-wrap315
                                                                                       (cons
                                                                                         m1568
                                                                                         ms1572)
                                                                                       (if rib1559
                                                                                           (cons
                                                                                             rib1559
                                                                                             (cons
                                                                                               'shift
                                                                                               s1571))
                                                                                           (cons
                                                                                             'shift
                                                                                             s1571))))))
                                                                              (wrap-marks316
                                                                                w1570)
                                                                              (wrap-subst317
                                                                                w1570)))
                                                                           (syntax-object-wrap66
                                                                             x1569))
                                                                         (if (vector?
                                                                               x1569)
                                                                             ((lambda (n1573)
                                                                                ((lambda (v1574)
                                                                                   ((lambda ()
                                                                                      ((letrec ((do1575 (lambda (i1576)
                                                                                                          (if (= i1576
                                                                                                                 n1573)
                                                                                                              v1574
                                                                                                              (begin
                                                                                                                (vector-set!
                                                                                                                  v1574
                                                                                                                  i1576
                                                                                                                  (rebuild-macro-output1565
                                                                                                                    (vector-ref
                                                                                                                      x1569
                                                                                                                      i1576)
                                                                                                                    m1568))
                                                                                                                (do1575
                                                                                                                  (+ i1576
                                                                                                                     '1)))))))
                                                                                         do1575)
                                                                                        '0))))
                                                                                  (make-vector
                                                                                    n1573)))
                                                                               (vector-length
                                                                                 x1569))
                                                                             (if (symbol?
                                                                                   x1569)
                                                                                 (syntax-error
                                                                                   (source-wrap444
                                                                                     e1563
                                                                                     w1561
                                                                                     ae1560)
                                                                                   '"encountered raw symbol "
                                                                                   (symbol->string
                                                                                     x1569)
                                                                                   '" in output of macro")
                                                                                 x1569)))))))
                              (rebuild-macro-output1565
                                ((lambda (out1566)
                                   (if (procedure? out1566)
                                       (out1566
                                         (lambda (id1567)
                                           (begin
                                             (if (not (identifier? id1567))
                                                 (syntax-error
                                                   id1567
                                                   '"environment argument is not an identifier")
                                                 (void))
                                             (lookup301
                                               (id-var-name434
                                                 id1567
                                                 '(()))
                                               r1562))))
                                       out1566))
                                  (p1564
                                    (source-wrap444
                                      e1563
                                      (anti-mark400 w1561)
                                      ae1560)))
                                (string '#\m)))))
            (chi-body503 (lambda (body1547 outer-form1546 r1545 mr1544
                                  w1543 m?1542)
                           ((lambda (ribcage1548)
                              ((lambda (w1549)
                                 ((lambda (body1550)
                                    ((lambda ()
                                       (call-with-values
                                         (lambda ()
                                           (chi-internal504 ribcage1548
                                             outer-form1546 body1550 r1545
                                             mr1544 m?1542))
                                         (lambda (r1557 mr1556 exprs1555
                                                  ids1554 vars1553 vals1552
                                                  inits1551)
                                           (begin
                                             (if (null? exprs1555)
                                                 (syntax-error
                                                   outer-form1546
                                                   '"no expressions in body")
                                                 (void))
                                             (build-body237
                                               '#f
                                               (reverse vars1553)
                                               (chi-frobs495
                                                 (reverse vals1552)
                                                 r1557
                                                 mr1556
                                                 m?1542)
                                               (build-sequence235
                                                 '#f
                                                 (chi-frobs495
                                                   (append
                                                     inits1551
                                                     exprs1555)
                                                   r1557
                                                   mr1556
                                                   m?1542)))))))))
                                   (map (lambda (x1558)
                                          (make-frob476
                                            (wrap443 x1558 w1549)
                                            '#f))
                                        body1547)))
                                (make-wrap315
                                  (wrap-marks316 w1543)
                                  (cons
                                    ribcage1548
                                    (wrap-subst317 w1543)))))
                             (make-ribcage365 '() '() '()))))
            (chi-internal504 (lambda (ribcage1451 source-exp1450
                                      body1449 r1448 mr1447 m?1446)
                               (letrec ((return1452 (lambda (r1541 mr1540
                                                             exprs1539
                                                             ids1538
                                                             vars1537
                                                             vals1536
                                                             inits1535)
                                                      (begin
                                                        (check-defined-ids485
                                                          source-exp1450
                                                          ids1538)
                                                        (values r1541
                                                          mr1540 exprs1539
                                                          ids1538 vars1537
                                                          vals1536
                                                          inits1535)))))
                                 ((letrec ((parse1453 (lambda (body1461
                                                               r1460 mr1459
                                                               ids1458
                                                               vars1457
                                                               vals1456
                                                               inits1455
                                                               meta-seen?1454)
                                                        (if (null?
                                                              body1461)
                                                            (return1452
                                                              r1460 mr1459
                                                              body1461
                                                              ids1458
                                                              vars1457
                                                              vals1456
                                                              inits1455)
                                                            ((lambda (fr1462)
                                                               ((lambda (e1463)
                                                                  ((lambda (meta?1464)
                                                                     ((lambda ()
                                                                        (call-with-values
                                                                          (lambda ()
                                                                            (syntax-type446
                                                                              e1463
                                                                              r1460
                                                                              '(())
                                                                              '#f
                                                                              ribcage1451))
                                                                          (lambda (type1469
                                                                                   value1468
                                                                                   e1467
                                                                                   w1466
                                                                                   ae1465)
                                                                            ((lambda (t1470)
                                                                               (if (memv
                                                                                     t1470
                                                                                     '(define-form))
                                                                                   (call-with-values
                                                                                     (lambda ()
                                                                                       (parse-define510
                                                                                         e1467
                                                                                         w1466
                                                                                         ae1465))
                                                                                     (lambda (id1473
                                                                                              rhs1472
                                                                                              w1471)
                                                                                       ((lambda (id1475
                                                                                                 label1474)
                                                                                          (if meta?1464
                                                                                              ((lambda (sym1476)
                                                                                                 (begin
                                                                                                   (extend-ribcage!410
                                                                                                     ribcage1451
                                                                                                     id1475
                                                                                                     label1474)
                                                                                                   ((lambda (mr1477)
                                                                                                      (begin
                                                                                                        (define-top-level-value-hook135
                                                                                                          sym1476
                                                                                                          (top-level-eval-hook133
                                                                                                            (chi498
                                                                                                              rhs1472
                                                                                                              mr1477
                                                                                                              mr1477
                                                                                                              w1471
                                                                                                              '#t)))
                                                                                                        (parse1453
                                                                                                          (cdr body1461)
                                                                                                          r1460
                                                                                                          mr1477
                                                                                                          (cons
                                                                                                            id1475
                                                                                                            ids1458)
                                                                                                          vars1457
                                                                                                          vals1456
                                                                                                          inits1455
                                                                                                          '#f)))
                                                                                                     (extend-env295
                                                                                                       label1474
                                                                                                       (cons
                                                                                                         'meta-variable
                                                                                                         sym1476)
                                                                                                       mr1459))))
                                                                                                (generate-id143
                                                                                                  ((lambda (x1478)
                                                                                                     ((lambda (e1479)
                                                                                                        (if (annotation?132
                                                                                                              e1479)
                                                                                                            (annotation-expression
                                                                                                              e1479)
                                                                                                            e1479))
                                                                                                       (if (syntax-object?64
                                                                                                             x1478)
                                                                                                           (syntax-object-expression65
                                                                                                             x1478)
                                                                                                           x1478)))
                                                                                                    id1475)))
                                                                                              ((lambda (var1480)
                                                                                                 (begin
                                                                                                   (extend-ribcage!410
                                                                                                     ribcage1451
                                                                                                     id1475
                                                                                                     label1474)
                                                                                                   (parse1453
                                                                                                     (cdr body1461)
                                                                                                     (extend-env295
                                                                                                       label1474
                                                                                                       (cons
                                                                                                         'lexical
                                                                                                         var1480)
                                                                                                       r1460)
                                                                                                     mr1459
                                                                                                     (cons
                                                                                                       id1475
                                                                                                       ids1458)
                                                                                                     (cons
                                                                                                       var1480
                                                                                                       vars1457)
                                                                                                     (cons
                                                                                                       (make-frob476
                                                                                                         (wrap443
                                                                                                           rhs1472
                                                                                                           w1471)
                                                                                                         meta?1464)
                                                                                                       vals1456)
                                                                                                     inits1455
                                                                                                     '#f)))
                                                                                                (gen-var523
                                                                                                  id1475))))
                                                                                         (wrap443
                                                                                           id1473
                                                                                           w1471)
                                                                                         (gen-label362))))
                                                                                   (if (memv
                                                                                         t1470
                                                                                         '(define-syntax-form))
                                                                                       (call-with-values
                                                                                         (lambda ()
                                                                                           (parse-define-syntax511
                                                                                             e1467
                                                                                             w1466
                                                                                             ae1465))
                                                                                         (lambda (id1483
                                                                                                  rhs1482
                                                                                                  w1481)
                                                                                           ((lambda (id1486
                                                                                                     label1485
                                                                                                     exp1484)
                                                                                              (begin
                                                                                                (extend-ribcage!410
                                                                                                  ribcage1451
                                                                                                  id1486
                                                                                                  label1485)
                                                                                                ((lambda (b1487)
                                                                                                   (parse1453
                                                                                                     (cdr body1461)
                                                                                                     (extend-env295
                                                                                                       label1485
                                                                                                       b1487
                                                                                                       r1460)
                                                                                                     (extend-env295
                                                                                                       label1485
                                                                                                       b1487
                                                                                                       mr1459)
                                                                                                     (cons
                                                                                                       id1486
                                                                                                       ids1458)
                                                                                                     vars1457
                                                                                                     vals1456
                                                                                                     inits1455
                                                                                                     '#f))
                                                                                                  (defer-or-eval-transformer303
                                                                                                    local-eval-hook134
                                                                                                    exp1484))))
                                                                                             (wrap443
                                                                                               id1483
                                                                                               w1481)
                                                                                             (gen-label362)
                                                                                             (chi498
                                                                                               rhs1482
                                                                                               mr1459
                                                                                               mr1459
                                                                                               w1481
                                                                                               '#t))))
                                                                                       (if (memv
                                                                                             t1470
                                                                                             '($module-form))
                                                                                           ((lambda (*ribcage1488)
                                                                                              ((lambda (*w1489)
                                                                                                 ((lambda ()
                                                                                                    (call-with-values
                                                                                                      (lambda ()
                                                                                                        (parse-module508
                                                                                                          e1467
                                                                                                          w1466
                                                                                                          ae1465
                                                                                                          *w1489))
                                                                                                      (lambda (orig1493
                                                                                                               id1492
                                                                                                               exports1491
                                                                                                               forms1490)
                                                                                                        (call-with-values
                                                                                                          (lambda ()
                                                                                                            (chi-internal504
                                                                                                              *ribcage1488
                                                                                                              orig1493
                                                                                                              (map (lambda (d1507)
                                                                                                                     (make-frob476
                                                                                                                       d1507
                                                                                                                       meta?1464))
                                                                                                                   forms1490)
                                                                                                              r1460
                                                                                                              mr1459
                                                                                                              m?1446))
                                                                                                          (lambda (r1500
                                                                                                                   mr1499
                                                                                                                   *body1498
                                                                                                                   *ids1497
                                                                                                                   *vars1496
                                                                                                                   *vals1495
                                                                                                                   *inits1494)
                                                                                                            (begin
                                                                                                              (check-module-exports484
                                                                                                                source-exp1450
                                                                                                                (flatten-exports450
                                                                                                                  exports1491)
                                                                                                                *ids1497)
                                                                                                              ((lambda (iface1505
                                                                                                                        vars1504
                                                                                                                        vals1503
                                                                                                                        inits1502
                                                                                                                        label1501)
                                                                                                                 (begin
                                                                                                                   (extend-ribcage!410
                                                                                                                     ribcage1451
                                                                                                                     id1492
                                                                                                                     label1501)
                                                                                                                   ((lambda (b1506)
                                                                                                                      (parse1453
                                                                                                                        (cdr body1461)
                                                                                                                        (extend-env295
                                                                                                                          label1501
                                                                                                                          b1506
                                                                                                                          r1500)
                                                                                                                        (extend-env295
                                                                                                                          label1501
                                                                                                                          b1506
                                                                                                                          mr1499)
                                                                                                                        (cons
                                                                                                                          id1492
                                                                                                                          ids1458)
                                                                                                                        vars1504
                                                                                                                        vals1503
                                                                                                                        inits1502
                                                                                                                        '#f))
                                                                                                                     (cons
                                                                                                                       '$module
                                                                                                                       iface1505))))
                                                                                                                (make-resolved-interface460
                                                                                                                  id1492
                                                                                                                  exports1491
                                                                                                                  '#f)
                                                                                                                (append
                                                                                                                  *vars1496
                                                                                                                  vars1457)
                                                                                                                (append
                                                                                                                  *vals1495
                                                                                                                  vals1456)
                                                                                                                (append
                                                                                                                  inits1455
                                                                                                                  *inits1494
                                                                                                                  *body1498)
                                                                                                                (gen-label362))))))))))
                                                                                                (make-wrap315
                                                                                                  (wrap-marks316
                                                                                                    w1466)
                                                                                                  (cons
                                                                                                    *ribcage1488
                                                                                                    (wrap-subst317
                                                                                                      w1466)))))
                                                                                             (make-ribcage365
                                                                                               '()
                                                                                               '()
                                                                                               '()))
                                                                                           (if (memv
                                                                                                 t1470
                                                                                                 '($import-form))
                                                                                               (call-with-values
                                                                                                 (lambda ()
                                                                                                   (parse-import509
                                                                                                     e1467
                                                                                                     w1466
                                                                                                     ae1465))
                                                                                                 (lambda (orig1510
                                                                                                          only?1509
                                                                                                          mid1508)
                                                                                                   ((lambda (mlabel1511)
                                                                                                      ((lambda (binding1512)
                                                                                                         ((lambda (t1513)
                                                                                                            (if (memv
                                                                                                                  t1513
                                                                                                                  '($module))
                                                                                                                ((lambda (iface1514)
                                                                                                                   ((lambda (import-iface1515)
                                                                                                                      ((lambda ()
                                                                                                                         (begin
                                                                                                                           (if only?1509
                                                                                                                               (extend-ribcage-barrier!412
                                                                                                                                 ribcage1451
                                                                                                                                 mid1508)
                                                                                                                               (void))
                                                                                                                           (do-import!507
                                                                                                                             import-iface1515
                                                                                                                             ribcage1451)
                                                                                                                           (parse1453
                                                                                                                             (cdr body1461)
                                                                                                                             r1460
                                                                                                                             mr1459
                                                                                                                             (cons
                                                                                                                               import-iface1515
                                                                                                                               ids1458)
                                                                                                                             vars1457
                                                                                                                             vals1456
                                                                                                                             inits1455
                                                                                                                             '#f)))))
                                                                                                                     (make-import-interface379
                                                                                                                       iface1514
                                                                                                                       (import-mark-delta505
                                                                                                                         mid1508
                                                                                                                         iface1514))))
                                                                                                                  (binding-value282
                                                                                                                    binding1512))
                                                                                                                (if (memv
                                                                                                                      t1513
                                                                                                                      '(displaced-lexical))
                                                                                                                    (displaced-lexical-error299
                                                                                                                      mid1508)
                                                                                                                    (syntax-error
                                                                                                                      mid1508
                                                                                                                      '"unknown module"))))
                                                                                                           (binding-type281
                                                                                                             binding1512)))
                                                                                                        (lookup301
                                                                                                          mlabel1511
                                                                                                          r1460)))
                                                                                                     (id-var-name434
                                                                                                       mid1508
                                                                                                       '(())))))
                                                                                               (if (memv
                                                                                                     t1470
                                                                                                     '(alias-form))
                                                                                                   (call-with-values
                                                                                                     (lambda ()
                                                                                                       (parse-alias514
                                                                                                         e1467
                                                                                                         w1466
                                                                                                         ae1465))
                                                                                                     (lambda (new-id1517
                                                                                                              old-id1516)
                                                                                                       ((lambda (new-id1518)
                                                                                                          (begin
                                                                                                            (extend-ribcage!410
                                                                                                              ribcage1451
                                                                                                              new-id1518
                                                                                                              (id-var-name-loc433
                                                                                                                old-id1516
                                                                                                                w1466))
                                                                                                            (parse1453
                                                                                                              (cdr body1461)
                                                                                                              r1460
                                                                                                              mr1459
                                                                                                              (cons
                                                                                                                new-id1518
                                                                                                                ids1458)
                                                                                                              vars1457
                                                                                                              vals1456
                                                                                                              inits1455
                                                                                                              '#f)))
                                                                                                         (wrap443
                                                                                                           new-id1517
                                                                                                           w1466))))
                                                                                                   (if (memv
                                                                                                         t1470
                                                                                                         '(begin-form))
                                                                                                       (parse1453
                                                                                                         ((letrec ((f1519 (lambda (forms1520)
                                                                                                                            (if (null?
                                                                                                                                  forms1520)
                                                                                                                                (cdr body1461)
                                                                                                                                (cons
                                                                                                                                  (make-frob476
                                                                                                                                    (wrap443
                                                                                                                                      (car forms1520)
                                                                                                                                      w1466)
                                                                                                                                    meta?1464)
                                                                                                                                  (f1519
                                                                                                                                    (cdr forms1520)))))))
                                                                                                            f1519)
                                                                                                           (parse-begin515
                                                                                                             e1467
                                                                                                             w1466
                                                                                                             ae1465
                                                                                                             '#t))
                                                                                                         r1460
                                                                                                         mr1459
                                                                                                         ids1458
                                                                                                         vars1457
                                                                                                         vals1456
                                                                                                         inits1455
                                                                                                         '#f)
                                                                                                       (if (memv
                                                                                                             t1470
                                                                                                             '(eval-when-form))
                                                                                                           (call-with-values
                                                                                                             (lambda ()
                                                                                                               (parse-eval-when513
                                                                                                                 e1467
                                                                                                                 w1466
                                                                                                                 ae1465))
                                                                                                             (lambda (when-list1522
                                                                                                                      forms1521)
                                                                                                               (parse1453
                                                                                                                 (if (memq
                                                                                                                       'eval
                                                                                                                       when-list1522)
                                                                                                                     ((letrec ((f1523 (lambda (forms1524)
                                                                                                                                        (if (null?
                                                                                                                                              forms1524)
                                                                                                                                            (cdr body1461)
                                                                                                                                            (cons
                                                                                                                                              (make-frob476
                                                                                                                                                (wrap443
                                                                                                                                                  (car forms1524)
                                                                                                                                                  w1466)
                                                                                                                                                meta?1464)
                                                                                                                                              (f1523
                                                                                                                                                (cdr forms1524)))))))
                                                                                                                        f1523)
                                                                                                                       forms1521)
                                                                                                                     (cdr body1461))
                                                                                                                 r1460
                                                                                                                 mr1459
                                                                                                                 ids1458
                                                                                                                 vars1457
                                                                                                                 vals1456
                                                                                                                 inits1455
                                                                                                                 '#f)))
                                                                                                           (if (memv
                                                                                                                 t1470
                                                                                                                 '(meta-form))
                                                                                                               (parse1453
                                                                                                                 (cons
                                                                                                                   (make-frob476
                                                                                                                     (wrap443
                                                                                                                       (parse-meta512
                                                                                                                         e1467
                                                                                                                         w1466
                                                                                                                         ae1465)
                                                                                                                       w1466)
                                                                                                                     '#t)
                                                                                                                   (cdr body1461))
                                                                                                                 r1460
                                                                                                                 mr1459
                                                                                                                 ids1458
                                                                                                                 vars1457
                                                                                                                 vals1456
                                                                                                                 inits1455
                                                                                                                 '#t)
                                                                                                               (if (memv
                                                                                                                     t1470
                                                                                                                     '(local-syntax-form))
                                                                                                                   (call-with-values
                                                                                                                     (lambda ()
                                                                                                                       (chi-local-syntax517
                                                                                                                         value1468
                                                                                                                         e1467
                                                                                                                         r1460
                                                                                                                         mr1459
                                                                                                                         w1466
                                                                                                                         ae1465))
                                                                                                                     (lambda (forms1529
                                                                                                                              r1528
                                                                                                                              mr1527
                                                                                                                              w1526
                                                                                                                              ae1525)
                                                                                                                       (parse1453
                                                                                                                         ((letrec ((f1530 (lambda (forms1531)
                                                                                                                                            (if (null?
                                                                                                                                                  forms1531)
                                                                                                                                                (cdr body1461)
                                                                                                                                                (cons
                                                                                                                                                  (make-frob476
                                                                                                                                                    (wrap443
                                                                                                                                                      (car forms1531)
                                                                                                                                                      w1526)
                                                                                                                                                    meta?1464)
                                                                                                                                                  (f1530
                                                                                                                                                    (cdr forms1531)))))))
                                                                                                                            f1530)
                                                                                                                           forms1529)
                                                                                                                         r1528
                                                                                                                         mr1527
                                                                                                                         ids1458
                                                                                                                         vars1457
                                                                                                                         vals1456
                                                                                                                         inits1455
                                                                                                                         '#f)))
                                                                                                                   (begin
                                                                                                                     (if meta-seen?1454
                                                                                                                         (syntax-error
                                                                                                                           (source-wrap444
                                                                                                                             e1467
                                                                                                                             w1466
                                                                                                                             ae1465)
                                                                                                                           '"invalid meta definition")
                                                                                                                         (void))
                                                                                                                     ((letrec ((f1532 (lambda (body1533)
                                                                                                                                        (if ((lambda (t1534)
                                                                                                                                               (if t1534
                                                                                                                                                   t1534
                                                                                                                                                   (not (frob-meta?479
                                                                                                                                                          (car body1533)))))
                                                                                                                                              (null?
                                                                                                                                                body1533))
                                                                                                                                            (return1452
                                                                                                                                              r1460
                                                                                                                                              mr1459
                                                                                                                                              body1533
                                                                                                                                              ids1458
                                                                                                                                              vars1457
                                                                                                                                              vals1456
                                                                                                                                              inits1455)
                                                                                                                                            (begin
                                                                                                                                              (top-level-eval-hook133
                                                                                                                                                (chi-meta-frob496
                                                                                                                                                  (car body1533)
                                                                                                                                                  mr1459))
                                                                                                                                              (f1532
                                                                                                                                                (cdr body1533)))))))
                                                                                                                        f1532)
                                                                                                                       (cons
                                                                                                                         (make-frob476
                                                                                                                           (source-wrap444
                                                                                                                             e1467
                                                                                                                             w1466
                                                                                                                             ae1465)
                                                                                                                           meta?1464)
                                                                                                                         (cdr body1461))))))))))))))
                                                                              type1469))))))
                                                                    (frob-meta?479
                                                                      fr1462)))
                                                                 (frob-e478
                                                                   fr1462)))
                                                              (car body1461))))))
                                    parse1453) body1449 r1448 mr1447 '()
                                   '() '() '() '#f))))
            (import-mark-delta505 (lambda (mid1445 iface1444)
                                    (diff-marks426
                                      (id-marks312 mid1445)
                                      (interface-marks453 iface1444))))
            (lookup-import-label506 (lambda (id1442)
                                      ((lambda (label1443)
                                         (begin
                                           (if (not label1443)
                                               (syntax-error
                                                 id1442
                                                 '"exported identifier not visible")
                                               (void))
                                           label1443))
                                        (id-var-name-loc433
                                          id1442
                                          '(())))))
            (do-import!507 (lambda (import-iface1438 ribcage1437)
                             ((lambda (ie1439)
                                (if (<= (vector-length ie1439) '20)
                                    ((lambda (new-marks1440)
                                       (vfor-each488
                                         (lambda (id1441)
                                           (import-extend-ribcage!411
                                             ribcage1437
                                             new-marks1440
                                             id1441
                                             (lookup-import-label506
                                               id1441)))
                                         ie1439))
                                      (import-interface-new-marks382
                                        import-iface1438))
                                    (extend-ribcage-subst!414
                                      ribcage1437
                                      import-iface1438)))
                               (interface-exports454
                                 (import-interface-interface381
                                   import-iface1438)))))
            (parse-module508 (lambda (e1413 w1412 ae1411 *w1410)
                               (letrec ((listify1414 (lambda (exports1431)
                                                       (if (null?
                                                             exports1431)
                                                           '()
                                                           (cons
                                                             ((lambda (tmp1432)
                                                                ((lambda (tmp1433)
                                                                   (if tmp1433
                                                                       (apply
                                                                         (lambda (ex1434)
                                                                           (listify1414
                                                                             ex1434))
                                                                         tmp1433)
                                                                       ((lambda (x1436)
                                                                          (if (id?306
                                                                                x1436)
                                                                              (wrap443
                                                                                x1436
                                                                                *w1410)
                                                                              (syntax-error
                                                                                (source-wrap444
                                                                                  e1413
                                                                                  w1412
                                                                                  ae1411)
                                                                                '"invalid exports list in")))
                                                                         tmp1432)))
                                                                  ($syntax-dispatch
                                                                    tmp1432
                                                                    'each-any)))
                                                               (car exports1431))
                                                             (listify1414
                                                               (cdr exports1431)))))))
                                 ((lambda (tmp1415)
                                    ((lambda (tmp1416)
                                       (if (if tmp1416
                                               (apply
                                                 (lambda (_1421 orig1420
                                                          mid1419 ex1418
                                                          form1417)
                                                   (id?306 mid1419))
                                                 tmp1416)
                                               '#f)
                                           (apply
                                             (lambda (_1426 orig1425
                                                      mid1424 ex1423
                                                      form1422)
                                               (values
                                                 orig1425
                                                 (wrap443 mid1424 w1412)
                                                 (listify1414 ex1423)
                                                 (map (lambda (x1428)
                                                        (wrap443
                                                          x1428
                                                          *w1410))
                                                      form1422)))
                                             tmp1416)
                                           ((lambda (_1430)
                                              (syntax-error
                                                (source-wrap444
                                                  e1413
                                                  w1412
                                                  ae1411)))
                                             tmp1415)))
                                      ($syntax-dispatch
                                        tmp1415
                                        '(any any any each-any .
                                              each-any))))
                                   e1413))))
            (parse-import509 (lambda (e1393 w1392 ae1391)
                               ((lambda (tmp1394)
                                  ((lambda (tmp1395)
                                     (if (if tmp1395
                                             (apply
                                               (lambda (_1398 orig1397
                                                        mid1396)
                                                 (id?306 mid1396))
                                               tmp1395)
                                             '#f)
                                         (apply
                                           (lambda (_1401 orig1400 mid1399)
                                             (values
                                               orig1400
                                               '#t
                                               (wrap443 mid1399 w1392)))
                                           tmp1395)
                                         ((lambda (tmp1402)
                                            (if (if tmp1402
                                                    (apply
                                                      (lambda (_1405
                                                               orig1404
                                                               mid1403)
                                                        (id?306 mid1403))
                                                      tmp1402)
                                                    '#f)
                                                (apply
                                                  (lambda (_1408 orig1407
                                                           mid1406)
                                                    (values
                                                      orig1407
                                                      '#f
                                                      (wrap443
                                                        mid1406
                                                        w1392)))
                                                  tmp1402)
                                                ((lambda (_1409)
                                                   (syntax-error
                                                     (source-wrap444
                                                       e1393
                                                       w1392
                                                       ae1391)))
                                                  tmp1394)))
                                           ($syntax-dispatch
                                             tmp1394
                                             '(any any #(atom #f) any)))))
                                    ($syntax-dispatch
                                      tmp1394
                                      '(any any #(atom #t) any))))
                                 e1393)))
            (parse-define510 (lambda (e1364 w1363 ae1362)
                               ((lambda (tmp1365)
                                  ((lambda (tmp1366)
                                     (if (if tmp1366
                                             (apply
                                               (lambda (_1369 name1368
                                                        val1367)
                                                 (id?306 name1368))
                                               tmp1366)
                                             '#f)
                                         (apply
                                           (lambda (_1372 name1371 val1370)
                                             (values
                                               name1371
                                               val1370
                                               w1363))
                                           tmp1366)
                                         ((lambda (tmp1373)
                                            (if (if tmp1373
                                                    (apply
                                                      (lambda (_1378
                                                               name1377
                                                               args1376
                                                               e11375
                                                               e21374)
                                                        (if (id?306
                                                              name1377)
                                                            (valid-bound-ids?439
                                                              (lambda-var-list524
                                                                args1376))
                                                            '#f))
                                                      tmp1373)
                                                    '#f)
                                                (apply
                                                  (lambda (_1383 name1382
                                                           args1381 e11380
                                                           e21379)
                                                    (values
                                                      (wrap443
                                                        name1382
                                                        w1363)
                                                      (cons
                                                        '#(syntax-object lambda ((top) #(ribcage #(_ name args e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                        (wrap443
                                                          (cons
                                                            args1381
                                                            (cons
                                                              e11380
                                                              e21379))
                                                          w1363))
                                                      '(())))
                                                  tmp1373)
                                                ((lambda (tmp1385)
                                                   (if (if tmp1385
                                                           (apply
                                                             (lambda (_1387
                                                                      name1386)
                                                               (id?306
                                                                 name1386))
                                                             tmp1385)
                                                           '#f)
                                                       (apply
                                                         (lambda (_1389
                                                                  name1388)
                                                           (values
                                                             (wrap443
                                                               name1388
                                                               w1363)
                                                             '#(syntax-object (void) ((top) #(ribcage #(_ name) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                             '(())))
                                                         tmp1385)
                                                       ((lambda (_1390)
                                                          (syntax-error
                                                            (source-wrap444
                                                              e1364
                                                              w1363
                                                              ae1362)))
                                                         tmp1365)))
                                                  ($syntax-dispatch
                                                    tmp1365
                                                    '(any any)))))
                                           ($syntax-dispatch
                                             tmp1365
                                             '(any (any . any)
                                                   any
                                                   .
                                                   each-any)))))
                                    ($syntax-dispatch
                                      tmp1365
                                      '(any any any))))
                                 e1364)))
            (parse-define-syntax511 (lambda (e1340 w1339 ae1338)
                                      ((lambda (tmp1341)
                                         ((lambda (tmp1342)
                                            (if (if tmp1342
                                                    (apply
                                                      (lambda (_1347
                                                               name1346
                                                               id1345
                                                               e11344
                                                               e21343)
                                                        (if (id?306
                                                              name1346)
                                                            (id?306 id1345)
                                                            '#f))
                                                      tmp1342)
                                                    '#f)
                                                (apply
                                                  (lambda (_1352 name1351
                                                           id1350 e11349
                                                           e21348)
                                                    (values
                                                      (wrap443
                                                        name1351
                                                        w1339)
                                                      (cons
                                                        '#(syntax-object lambda ((top) #(ribcage #(_ name id e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(e w ae) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                        (cons
                                                          (wrap443
                                                            (list id1350)
                                                            w1339)
                                                          (wrap443
                                                            (cons
                                                              e11349
                                                              e21348)
                                                            w1339)))
                                                      '(())))
                                                  tmp1342)
                                                ((lambda (tmp1354)
                                                   (if (if tmp1354
                                                           (apply
                                                             (lambda (_1357
                                                                      name1356
                                                                      val1355)
                                                               (id?306
                                                                 name1356))
                                                             tmp1354)
                                                           '#f)
                                                       (apply
                                                         (lambda (_1360
                                                                  name1359
                                                                  val1358)
                                                           (values
                                                             name1359
                                                             val1358
                                                             w1339))
                                                         tmp1354)
                                                       ((lambda (_1361)
                                                          (syntax-error
                                                            (source-wrap444
                                                              e1340
                                                              w1339
                                                              ae1338)))
                                                         tmp1341)))
                                                  ($syntax-dispatch
                                                    tmp1341
                                                    '(any any any)))))
                                           ($syntax-dispatch
                                             tmp1341
                                             '(any (any any)
                                                   any
                                                   .
                                                   each-any))))
                                        e1340)))
            (parse-meta512 (lambda (e1332 w1331 ae1330)
                             ((lambda (tmp1333)
                                ((lambda (tmp1334)
                                   (if tmp1334
                                       (apply
                                         (lambda (_1336 form1335) form1335)
                                         tmp1334)
                                       ((lambda (_1337)
                                          (syntax-error
                                            (source-wrap444
                                              e1332
                                              w1331
                                              ae1330)))
                                         tmp1333)))
                                  ($syntax-dispatch tmp1333 '(any . any))))
                               e1332)))
            (parse-eval-when513 (lambda (e1320 w1319 ae1318)
                                  ((lambda (tmp1321)
                                     ((lambda (tmp1322)
                                        (if tmp1322
                                            (apply
                                              (lambda (_1326 x1325 e11324
                                                       e21323)
                                                (values
                                                  (chi-when-list445
                                                    x1325
                                                    w1319)
                                                  (cons e11324 e21323)))
                                              tmp1322)
                                            ((lambda (_1329)
                                               (syntax-error
                                                 (source-wrap444
                                                   e1320
                                                   w1319
                                                   ae1318)))
                                              tmp1321)))
                                       ($syntax-dispatch
                                         tmp1321
                                         '(any each-any any . each-any))))
                                    e1320)))
            (parse-alias514 (lambda (e1308 w1307 ae1306)
                              ((lambda (tmp1309)
                                 ((lambda (tmp1310)
                                    (if (if tmp1310
                                            (apply
                                              (lambda (_1313 new-id1312
                                                       old-id1311)
                                                (if (id?306 new-id1312)
                                                    (id?306 old-id1311)
                                                    '#f))
                                              tmp1310)
                                            '#f)
                                        (apply
                                          (lambda (_1316 new-id1315
                                                   old-id1314)
                                            (values new-id1315 old-id1314))
                                          tmp1310)
                                        ((lambda (_1317)
                                           (syntax-error
                                             (source-wrap444
                                               e1308
                                               w1307
                                               ae1306)))
                                          tmp1309)))
                                   ($syntax-dispatch
                                     tmp1309
                                     '(any any any))))
                                e1308)))
            (parse-begin515 (lambda (e1295 w1294 ae1293 empty-okay?1292)
                              ((lambda (tmp1296)
                                 ((lambda (tmp1297)
                                    (if (if tmp1297
                                            (apply
                                              (lambda (_1298)
                                                empty-okay?1292)
                                              tmp1297)
                                            '#f)
                                        (apply
                                          (lambda (_1299) '())
                                          tmp1297)
                                        ((lambda (tmp1300)
                                           (if tmp1300
                                               (apply
                                                 (lambda (_1303 e11302
                                                          e21301)
                                                   (cons e11302 e21301))
                                                 tmp1300)
                                               ((lambda (_1305)
                                                  (syntax-error
                                                    (source-wrap444
                                                      e1295
                                                      w1294
                                                      ae1293)))
                                                 tmp1296)))
                                          ($syntax-dispatch
                                            tmp1296
                                            '(any any . each-any)))))
                                   ($syntax-dispatch tmp1296 '(any))))
                                e1295)))
            (chi-lambda-clause516 (lambda (e1269 c1268 r1267 mr1266
                                           w1265 m?1264)
                                    ((lambda (tmp1270)
                                       ((lambda (tmp1271)
                                          (if tmp1271
                                              (apply
                                                (lambda (id1274 e11273
                                                         e21272)
                                                  ((lambda (ids1275)
                                                     (if (not (valid-bound-ids?439
                                                                ids1275))
                                                         (syntax-error
                                                           e1269
                                                           '"invalid parameter list in")
                                                         ((lambda (labels1277
                                                                   new-vars1276)
                                                            (values
                                                              new-vars1276
                                                              (chi-body503
                                                                (cons
                                                                  e11273
                                                                  e21272)
                                                                e1269
                                                                (extend-var-env*297
                                                                  labels1277
                                                                  new-vars1276
                                                                  r1267)
                                                                mr1266
                                                                (make-binding-wrap417
                                                                  ids1275
                                                                  labels1277
                                                                  w1265)
                                                                m?1264)))
                                                           (gen-labels364
                                                             ids1275)
                                                           (map gen-var523
                                                                ids1275))))
                                                    id1274))
                                                tmp1271)
                                              ((lambda (tmp1280)
                                                 (if tmp1280
                                                     (apply
                                                       (lambda (ids1283
                                                                e11282
                                                                e21281)
                                                         ((lambda (old-ids1284)
                                                            (if (not (valid-bound-ids?439
                                                                       old-ids1284))
                                                                (syntax-error
                                                                  e1269
                                                                  '"invalid parameter list in")
                                                                ((lambda (labels1286
                                                                          new-vars1285)
                                                                   (values
                                                                     ((letrec ((f1288 (lambda (ls11290
                                                                                               ls21289)
                                                                                        (if (null?
                                                                                              ls11290)
                                                                                            ls21289
                                                                                            (f1288
                                                                                              (cdr ls11290)
                                                                                              (cons
                                                                                                (car ls11290)
                                                                                                ls21289))))))
                                                                        f1288)
                                                                       (cdr new-vars1285)
                                                                       (car new-vars1285))
                                                                     (chi-body503
                                                                       (cons
                                                                         e11282
                                                                         e21281)
                                                                       e1269
                                                                       (extend-var-env*297
                                                                         labels1286
                                                                         new-vars1285
                                                                         r1267)
                                                                       mr1266
                                                                       (make-binding-wrap417
                                                                         old-ids1284
                                                                         labels1286
                                                                         w1265)
                                                                       m?1264)))
                                                                  (gen-labels364
                                                                    old-ids1284)
                                                                  (map gen-var523
                                                                       old-ids1284))))
                                                           (lambda-var-list524
                                                             ids1283)))
                                                       tmp1280)
                                                     ((lambda (_1291)
                                                        (syntax-error
                                                          e1269))
                                                       tmp1270)))
                                                ($syntax-dispatch
                                                  tmp1270
                                                  '(any any . each-any)))))
                                         ($syntax-dispatch
                                           tmp1270
                                           '(each-any any . each-any))))
                                      c1268)))
            (chi-local-syntax517 (lambda (rec?1245 e1244 r1243 mr1242
                                          w1241 ae1240)
                                   ((lambda (tmp1246)
                                      ((lambda (tmp1247)
                                         (if tmp1247
                                             (apply
                                               (lambda (_1252 id1251
                                                        val1250 e11249
                                                        e21248)
                                                 ((lambda (ids1253)
                                                    (if (not (valid-bound-ids?439
                                                               ids1253))
                                                        (invalid-ids-error441
                                                          (map (lambda (x1254)
                                                                 (wrap443
                                                                   x1254
                                                                   w1241))
                                                               ids1253)
                                                          (source-wrap444
                                                            e1244
                                                            w1241
                                                            ae1240)
                                                          '"keyword")
                                                        ((lambda (labels1255)
                                                           ((lambda (new-w1256)
                                                              ((lambda (b*1257)
                                                                 (values
                                                                   (cons
                                                                     e11249
                                                                     e21248)
                                                                   (extend-env*296
                                                                     labels1255
                                                                     b*1257
                                                                     r1243)
                                                                   (extend-env*296
                                                                     labels1255
                                                                     b*1257
                                                                     mr1242)
                                                                   new-w1256
                                                                   ae1240))
                                                                ((lambda (w1259)
                                                                   (map (lambda (x1261)
                                                                          (defer-or-eval-transformer303
                                                                            local-eval-hook134
                                                                            (chi498
                                                                              x1261
                                                                              mr1242
                                                                              mr1242
                                                                              w1259
                                                                              '#t)))
                                                                        val1250))
                                                                  (if rec?1245
                                                                      new-w1256
                                                                      w1241))))
                                                             (make-binding-wrap417
                                                               ids1253
                                                               labels1255
                                                               w1241)))
                                                          (gen-labels364
                                                            ids1253))))
                                                   id1251))
                                               tmp1247)
                                             ((lambda (_1263)
                                                (syntax-error
                                                  (source-wrap444
                                                    e1244
                                                    w1241
                                                    ae1240)))
                                               tmp1246)))
                                        ($syntax-dispatch
                                          tmp1246
                                          '(any #(each (any any))
                                                any
                                                .
                                                each-any))))
                                     e1244)))
            (chi-void518 (lambda () (cons 'void '())))
            (ellipsis?519 (lambda (x1239)
                            (if (nonsymbol-id?305 x1239)
                                (literal-id=?436
                                  x1239
                                  '#(syntax-object ... ((top) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                '#f)))
            (strip-annotation520 (lambda (x1238)
                                   (if (pair? x1238)
                                       (cons
                                         (strip-annotation520 (car x1238))
                                         (strip-annotation520 (cdr x1238)))
                                       (if (annotation?132 x1238)
                                           (annotation-stripped x1238)
                                           x1238))))
            (strip*521 (lambda (x1231 w1230 fn1229)
                         (if (memq 'top (wrap-marks316 w1230))
                             (fn1229 x1231)
                             ((letrec ((f1232 (lambda (x1233)
                                                (if (syntax-object?64
                                                      x1233)
                                                    (strip*521
                                                      (syntax-object-expression65
                                                        x1233)
                                                      (syntax-object-wrap66
                                                        x1233)
                                                      fn1229)
                                                    (if (pair? x1233)
                                                        ((lambda (a1235
                                                                  d1234)
                                                           (if (if (eq? a1235
                                                                        (car x1233))
                                                                   (eq? d1234
                                                                        (cdr x1233))
                                                                   '#f)
                                                               x1233
                                                               (cons
                                                                 a1235
                                                                 d1234)))
                                                          (f1232
                                                            (car x1233))
                                                          (f1232
                                                            (cdr x1233)))
                                                        (if (vector? x1233)
                                                            ((lambda (old1236)
                                                               ((lambda (new1237)
                                                                  (if (andmap
                                                                        eq?
                                                                        old1236
                                                                        new1237)
                                                                      x1233
                                                                      (list->vector
                                                                        new1237)))
                                                                 (map f1232
                                                                      old1236)))
                                                              (vector->list
                                                                x1233))
                                                            x1233))))))
                                f1232)
                               x1231))))
            (strip522 (lambda (x1226 w1225)
                        (strip*521
                          x1226
                          w1225
                          (lambda (x1227)
                            (if ((lambda (t1228)
                                   (if t1228
                                       t1228
                                       (if (pair? x1227)
                                           (annotation?132 (car x1227))
                                           '#f)))
                                  (annotation?132 x1227))
                                (strip-annotation520 x1227)
                                x1227)))))
            (gen-var523 (lambda (id1223)
                          ((lambda (id1224)
                             (if (annotation?132 id1224)
                                 (gensym)
                                 (gensym)))
                            (if (syntax-object?64 id1223)
                                (syntax-object-expression65 id1223)
                                id1223))))
            (lambda-var-list524 (lambda (vars1218)
                                  ((letrec ((lvl1219 (lambda (vars1222
                                                              ls1221 w1220)
                                                       (if (pair? vars1222)
                                                           (lvl1219
                                                             (cdr vars1222)
                                                             (cons
                                                               (wrap443
                                                                 (car vars1222)
                                                                 w1220)
                                                               ls1221)
                                                             w1220)
                                                           (if (id?306
                                                                 vars1222)
                                                               (cons
                                                                 (wrap443
                                                                   vars1222
                                                                   w1220)
                                                                 ls1221)
                                                               (if (null?
                                                                     vars1222)
                                                                   ls1221
                                                                   (if (syntax-object?64
                                                                         vars1222)
                                                                       (lvl1219
                                                                         (syntax-object-expression65
                                                                           vars1222)
                                                                         ls1221
                                                                         (join-wraps422
                                                                           w1220
                                                                           (syntax-object-wrap66
                                                                             vars1222)))
                                                                       (if (annotation?132
                                                                             vars1222)
                                                                           (lvl1219
                                                                             (annotation-expression
                                                                               vars1222)
                                                                             ls1221
                                                                             w1220)
                                                                           (cons
                                                                             vars1222
                                                                             ls1221)))))))))
                                     lvl1219)
                                    vars1218
                                    '()
                                    '(())))))
     (begin
       (set! $sc-put-cte
         (lambda (id1199 b1198 top-token1197)
           (letrec ((sc-put-module1200 (lambda (exports1216 token1215
                                                new-marks1214)
                                         (vfor-each488
                                           (lambda (id1217)
                                             (store-import-binding416
                                               id1217
                                               token1215
                                               new-marks1214))
                                           exports1216)))
                    (put-cte1201 (lambda (id1212 binding1211 token1210)
                                   ((lambda (sym1213)
                                      (begin
                                        (store-import-binding416
                                          id1212
                                          token1210
                                          '())
                                        (put-global-definition-hook139
                                          sym1213
                                          (if (if (eq? (binding-type281
                                                         binding1211)
                                                       'global)
                                                  (eq? (binding-value282
                                                         binding1211)
                                                       sym1213)
                                                  '#f)
                                              '#f
                                              binding1211))))
                                     (if (symbol? id1212)
                                         id1212
                                         (id-var-name434 id1212 '(())))))))
             ((lambda (binding1202)
                ((lambda (t1203)
                   (if (memv t1203 '($module))
                       (begin
                         ((lambda (iface1204)
                            (sc-put-module1200
                              (interface-exports454 iface1204)
                              (interface-token455 iface1204)
                              '()))
                           (binding-value282 binding1202))
                         (put-cte1201 id1199 binding1202 top-token1197))
                       (if (memv t1203 '(do-alias))
                           (store-import-binding416
                             id1199
                             top-token1197
                             '())
                           (if (memv t1203 '(do-import))
                               ((lambda (token1205)
                                  ((lambda (b1206)
                                     ((lambda (t1207)
                                        (if (memv t1207 '($module))
                                            ((lambda (iface1208)
                                               ((lambda (exports1209)
                                                  ((lambda ()
                                                     (begin
                                                       (if (not (eq? (interface-token455
                                                                       iface1208)
                                                                     token1205))
                                                           (syntax-error
                                                             id1199
                                                             '"import mismatch for module")
                                                           (void))
                                                       (sc-put-module1200
                                                         (interface-exports454
                                                           iface1208)
                                                         top-token1197
                                                         (import-mark-delta505
                                                           id1199
                                                           iface1208))))))
                                                 (interface-exports454
                                                   iface1208)))
                                              (binding-value282 b1206))
                                            (syntax-error
                                              id1199
                                              '"unknown module")))
                                       (binding-type281 b1206)))
                                    (lookup301
                                      (id-var-name434 id1199 '(()))
                                      '())))
                                 (binding-value282 b1198))
                               (put-cte1201
                                 id1199
                                 binding1202
                                 top-token1197)))))
                  (binding-type281 binding1202)))
               (make-transformer-binding302 b1198)))))
       (global-extend304 'local-syntax 'letrec-syntax '#t)
       (global-extend304 'local-syntax 'let-syntax '#f)
       (global-extend304
         'core
         'fluid-let-syntax
         (lambda (e1171 r1170 mr1169 w1168 ae1167 m?1166)
           ((lambda (tmp1172)
              ((lambda (tmp1173)
                 (if (if tmp1173
                         (apply
                           (lambda (_1178 var1177 val1176 e11175 e21174)
                             (valid-bound-ids?439 var1177))
                           tmp1173)
                         '#f)
                     (apply
                       (lambda (_1184 var1183 val1182 e11181 e21180)
                         ((lambda (names1185)
                            (begin
                              (for-each
                                (lambda (id1192 n1191)
                                  ((lambda (t1193)
                                     (if (memv t1193 '(displaced-lexical))
                                         (displaced-lexical-error299
                                           (wrap443 id1192 w1168))
                                         (void)))
                                    (binding-type281
                                      (lookup301 n1191 r1170))))
                                var1183
                                names1185)
                              ((lambda (b*1186)
                                 (chi-body503 (cons e11181 e21180)
                                   (source-wrap444 e1171 w1168 ae1167)
                                   (extend-env*296 names1185 b*1186 r1170)
                                   (extend-env*296 names1185 b*1186 mr1169)
                                   w1168 m?1166))
                                (map (lambda (x1189)
                                       (defer-or-eval-transformer303
                                         local-eval-hook134
                                         (chi498 x1189 mr1169 mr1169 w1168
                                           '#t)))
                                     val1182))))
                           (map (lambda (x1195)
                                  (id-var-name434 x1195 w1168))
                                var1183)))
                       tmp1173)
                     ((lambda (_1196)
                        (syntax-error (source-wrap444 e1171 w1168 ae1167)))
                       tmp1172)))
                ($syntax-dispatch
                  tmp1172
                  '(any #(each (any any)) any . each-any))))
             e1171)))
       (global-extend304
         'core
         'quote
         (lambda (e1160 r1159 mr1158 w1157 ae1156 m?1155)
           ((lambda (tmp1161)
              ((lambda (tmp1162)
                 (if tmp1162
                     (apply
                       (lambda (_1164 e1163)
                         (list 'quote (strip522 e1163 w1157)))
                       tmp1162)
                     ((lambda (_1165)
                        (syntax-error (source-wrap444 e1160 w1157 ae1156)))
                       tmp1161)))
                ($syntax-dispatch tmp1161 '(any any))))
             e1160)))
       (global-extend304
         'core
         'syntax
         ((lambda ()
            (letrec ((gen-syntax1039 (lambda (src1100 e1099 r1098
                                              maps1097 ellipsis?1096
                                              vec?1095)
                                       (if (id?306 e1099)
                                           ((lambda (label1101)
                                              ((lambda (b1102)
                                                 (if (eq? (binding-type281
                                                            b1102)
                                                          'syntax)
                                                     (call-with-values
                                                       (lambda ()
                                                         ((lambda (var.lev1105)
                                                            (gen-ref1040
                                                              src1100
                                                              (car var.lev1105)
                                                              (cdr var.lev1105)
                                                              maps1097))
                                                           (binding-value282
                                                             b1102)))
                                                       (lambda (var1104
                                                                maps1103)
                                                         (values
                                                           (list
                                                             'ref
                                                             var1104)
                                                           maps1103)))
                                                     (if (ellipsis?1096
                                                           e1099)
                                                         (syntax-error
                                                           src1100
                                                           '"misplaced ellipsis in syntax form")
                                                         (values
                                                           (list
                                                             'quote
                                                             e1099)
                                                           maps1097))))
                                                (lookup301
                                                  label1101
                                                  r1098)))
                                             (id-var-name434 e1099 '(())))
                                           ((lambda (tmp1106)
                                              ((lambda (tmp1107)
                                                 (if (if tmp1107
                                                         (apply
                                                           (lambda (dots1109
                                                                    e1108)
                                                             (ellipsis?1096
                                                               dots1109))
                                                           tmp1107)
                                                         '#f)
                                                     (apply
                                                       (lambda (dots1111
                                                                e1110)
                                                         (if vec?1095
                                                             (syntax-error
                                                               src1100
                                                               '"misplaced ellipsis in syntax template")
                                                             (gen-syntax1039
                                                               src1100
                                                               e1110 r1098
                                                               maps1097
                                                               (lambda (x1112)
                                                                 '#f)
                                                               '#f)))
                                                       tmp1107)
                                                     ((lambda (tmp1113)
                                                        (if (if tmp1113
                                                                (apply
                                                                  (lambda (x1116
                                                                           dots1115
                                                                           y1114)
                                                                    (ellipsis?1096
                                                                      dots1115))
                                                                  tmp1113)
                                                                '#f)
                                                            (apply
                                                              (lambda (x1119
                                                                       dots1118
                                                                       y1117)
                                                                ((letrec ((f1120 (lambda (y1122
                                                                                          k1121)
                                                                                   ((lambda (tmp1123)
                                                                                      ((lambda (tmp1124)
                                                                                         (if (if tmp1124
                                                                                                 (apply
                                                                                                   (lambda (dots1126
                                                                                                            y1125)
                                                                                                     (ellipsis?1096
                                                                                                       dots1126))
                                                                                                   tmp1124)
                                                                                                 '#f)
                                                                                             (apply
                                                                                               (lambda (dots1128
                                                                                                        y1127)
                                                                                                 (f1120
                                                                                                   y1127
                                                                                                   (lambda (maps1129)
                                                                                                     (call-with-values
                                                                                                       (lambda ()
                                                                                                         (k1121
                                                                                                           (cons
                                                                                                             '()
                                                                                                             maps1129)))
                                                                                                       (lambda (x1131
                                                                                                                maps1130)
                                                                                                         (if (null?
                                                                                                               (car maps1130))
                                                                                                             (syntax-error
                                                                                                               src1100
                                                                                                               '"extra ellipsis in syntax form")
                                                                                                             (values
                                                                                                               (gen-mappend1042
                                                                                                                 x1131
                                                                                                                 (car maps1130))
                                                                                                               (cdr maps1130))))))))
                                                                                               tmp1124)
                                                                                             ((lambda (_1132)
                                                                                                (call-with-values
                                                                                                  (lambda ()
                                                                                                    (gen-syntax1039
                                                                                                      src1100
                                                                                                      y1122
                                                                                                      r1098
                                                                                                      maps1097
                                                                                                      ellipsis?1096
                                                                                                      vec?1095))
                                                                                                  (lambda (y1134
                                                                                                           maps1133)
                                                                                                    (call-with-values
                                                                                                      (lambda ()
                                                                                                        (k1121
                                                                                                          maps1133))
                                                                                                      (lambda (x1136
                                                                                                               maps1135)
                                                                                                        (values
                                                                                                          (gen-append1041
                                                                                                            x1136
                                                                                                            y1134)
                                                                                                          maps1135))))))
                                                                                               tmp1123)))
                                                                                        ($syntax-dispatch
                                                                                          tmp1123
                                                                                          '(any .
                                                                                                any))))
                                                                                     y1122))))
                                                                   f1120)
                                                                  y1117
                                                                  (lambda (maps1137)
                                                                    (call-with-values
                                                                      (lambda ()
                                                                        (gen-syntax1039
                                                                          src1100
                                                                          x1119
                                                                          r1098
                                                                          (cons
                                                                            '()
                                                                            maps1137)
                                                                          ellipsis?1096
                                                                          '#f))
                                                                      (lambda (x1139
                                                                               maps1138)
                                                                        (if (null?
                                                                              (car maps1138))
                                                                            (syntax-error
                                                                              src1100
                                                                              '"extra ellipsis in syntax form")
                                                                            (values
                                                                              (gen-map1043
                                                                                x1139
                                                                                (car maps1138))
                                                                              (cdr maps1138))))))))
                                                              tmp1113)
                                                            ((lambda (tmp1140)
                                                               (if tmp1140
                                                                   (apply
                                                                     (lambda (x1142
                                                                              y1141)
                                                                       (call-with-values
                                                                         (lambda ()
                                                                           (gen-syntax1039
                                                                             src1100
                                                                             x1142
                                                                             r1098
                                                                             maps1097
                                                                             ellipsis?1096
                                                                             '#f))
                                                                         (lambda (xnew1144
                                                                                  maps1143)
                                                                           (call-with-values
                                                                             (lambda ()
                                                                               (gen-syntax1039
                                                                                 src1100
                                                                                 y1141
                                                                                 r1098
                                                                                 maps1143
                                                                                 ellipsis?1096
                                                                                 vec?1095))
                                                                             (lambda (ynew1146
                                                                                      maps1145)
                                                                               (values
                                                                                 (gen-cons1044
                                                                                   e1099
                                                                                   x1142
                                                                                   y1141
                                                                                   xnew1144
                                                                                   ynew1146)
                                                                                 maps1145))))))
                                                                     tmp1140)
                                                                   ((lambda (tmp1147)
                                                                      (if tmp1147
                                                                          (apply
                                                                            (lambda (x11149
                                                                                     x21148)
                                                                              ((lambda (ls1150)
                                                                                 (call-with-values
                                                                                   (lambda ()
                                                                                     (gen-syntax1039
                                                                                       src1100
                                                                                       ls1150
                                                                                       r1098
                                                                                       maps1097
                                                                                       ellipsis?1096
                                                                                       '#t))
                                                                                   (lambda (lsnew1152
                                                                                            maps1151)
                                                                                     (values
                                                                                       (gen-vector1045
                                                                                         e1099
                                                                                         ls1150
                                                                                         lsnew1152)
                                                                                       maps1151))))
                                                                                (cons
                                                                                  x11149
                                                                                  x21148)))
                                                                            tmp1147)
                                                                          ((lambda (_1154)
                                                                             (values
                                                                               (list
                                                                                 'quote
                                                                                 e1099)
                                                                               maps1097))
                                                                            tmp1106)))
                                                                     ($syntax-dispatch
                                                                       tmp1106
                                                                       '#(vector
                                                                          (any .
                                                                               each-any))))))
                                                              ($syntax-dispatch
                                                                tmp1106
                                                                '(any .
                                                                      any)))))
                                                       ($syntax-dispatch
                                                         tmp1106
                                                         '(any any
                                                               .
                                                               any)))))
                                                ($syntax-dispatch
                                                  tmp1106
                                                  '(any any))))
                                             e1099))))
                     (gen-ref1040 (lambda (src1090 var1089 level1088
                                           maps1087)
                                    (if (= level1088 '0)
                                        (values var1089 maps1087)
                                        (if (null? maps1087)
                                            (syntax-error
                                              src1090
                                              '"missing ellipsis in syntax form")
                                            (call-with-values
                                              (lambda ()
                                                (gen-ref1040
                                                  src1090
                                                  var1089
                                                  (- level1088 '1)
                                                  (cdr maps1087)))
                                              (lambda (outer-var1092
                                                       outer-maps1091)
                                                ((lambda (b1093)
                                                   (if b1093
                                                       (values
                                                         (cdr b1093)
                                                         maps1087)
                                                       ((lambda (inner-var1094)
                                                          (values
                                                            inner-var1094
                                                            (cons
                                                              (cons
                                                                (cons
                                                                  outer-var1092
                                                                  inner-var1094)
                                                                (car maps1087))
                                                              outer-maps1091)))
                                                         (gen-var523
                                                           'tmp))))
                                                  (assq
                                                    outer-var1092
                                                    (car maps1087)))))))))
                     (gen-append1041 (lambda (x1086 y1085)
                                       (if (equal? y1085 ''())
                                           x1086
                                           (list 'append x1086 y1085))))
                     (gen-mappend1042 (lambda (e1084 map-env1083)
                                        (list
                                          'apply
                                          '(primitive append)
                                          (gen-map1043
                                            e1084
                                            map-env1083))))
                     (gen-map1043 (lambda (e1076 map-env1075)
                                    ((lambda (formals1078 actuals1077)
                                       (if (eq? (car e1076) 'ref)
                                           (car actuals1077)
                                           (if (andmap
                                                 (lambda (x1079)
                                                   (if (eq? (car x1079)
                                                            'ref)
                                                       (memq
                                                         (cadr x1079)
                                                         formals1078)
                                                       '#f))
                                                 (cdr e1076))
                                               (cons
                                                 'map
                                                 (cons
                                                   (list
                                                     'primitive
                                                     (car e1076))
                                                   (map ((lambda (r1080)
                                                           (lambda (x1081)
                                                             (cdr (assq
                                                                    (cadr
                                                                      x1081)
                                                                    r1080))))
                                                          (map cons
                                                               formals1078
                                                               actuals1077))
                                                        (cdr e1076))))
                                               (cons
                                                 'map
                                                 (cons
                                                   (list
                                                     'lambda
                                                     formals1078
                                                     e1076)
                                                   actuals1077)))))
                                      (map cdr map-env1075)
                                      (map (lambda (x1082)
                                             (list 'ref (car x1082)))
                                           map-env1075))))
                     (gen-cons1044 (lambda (e1071 x1070 y1069 xnew1068
                                            ynew1067)
                                     ((lambda (t1072)
                                        (if (memv t1072 '(quote))
                                            (if (eq? (car xnew1068) 'quote)
                                                ((lambda (xnew1074
                                                          ynew1073)
                                                   (if (if (eq? xnew1074
                                                                x1070)
                                                           (eq? ynew1073
                                                                y1069)
                                                           '#f)
                                                       (list 'quote e1071)
                                                       (list
                                                         'quote
                                                         (cons
                                                           xnew1074
                                                           ynew1073))))
                                                  (cadr xnew1068)
                                                  (cadr ynew1067))
                                                (if (eq? (cadr ynew1067)
                                                         '())
                                                    (list 'list xnew1068)
                                                    (list
                                                      'cons
                                                      xnew1068
                                                      ynew1067)))
                                            (if (memv t1072 '(list))
                                                (cons
                                                  'list
                                                  (cons
                                                    xnew1068
                                                    (cdr ynew1067)))
                                                (list
                                                  'cons
                                                  xnew1068
                                                  ynew1067))))
                                       (car ynew1067))))
                     (gen-vector1045 (lambda (e1066 ls1065 lsnew1064)
                                       (if (eq? (car lsnew1064) 'quote)
                                           (if (eq? (cadr lsnew1064)
                                                    ls1065)
                                               (list 'quote e1066)
                                               (list
                                                 'quote
                                                 (list->vector
                                                   (cadr lsnew1064))))
                                           (if (eq? (car lsnew1064) 'list)
                                               (cons
                                                 'vector
                                                 (cdr lsnew1064))
                                               (list
                                                 'list->vector
                                                 lsnew1064)))))
                     (regen1046 (lambda (x1061)
                                  ((lambda (t1062)
                                     (if (memv t1062 '(ref))
                                         (cadr x1061)
                                         (if (memv t1062 '(primitive))
                                             (cadr x1061)
                                             (if (memv t1062 '(quote))
                                                 (list 'quote (cadr x1061))
                                                 (if (memv t1062 '(lambda))
                                                     (list
                                                       'lambda
                                                       (cadr x1061)
                                                       (regen1046
                                                         (caddr x1061)))
                                                     (if (memv
                                                           t1062
                                                           '(map))
                                                         ((lambda (ls1063)
                                                            (cons
                                                              (if (= (length
                                                                       ls1063)
                                                                     '2)
                                                                  'map
                                                                  'map)
                                                              ls1063))
                                                           (map regen1046
                                                                (cdr x1061)))
                                                         (cons
                                                           (car x1061)
                                                           (map regen1046
                                                                (cdr x1061)))))))))
                                    (car x1061)))))
              (lambda (e1052 r1051 mr1050 w1049 ae1048 m?1047)
                ((lambda (e1053)
                   ((lambda (tmp1054)
                      ((lambda (tmp1055)
                         (if tmp1055
                             (apply
                               (lambda (_1057 x1056)
                                 (call-with-values
                                   (lambda ()
                                     (gen-syntax1039 e1053 x1056 r1051 '()
                                       ellipsis?519 '#f))
                                   (lambda (e1059 maps1058)
                                     (regen1046 e1059))))
                               tmp1055)
                             ((lambda (_1060) (syntax-error e1053))
                               tmp1054)))
                        ($syntax-dispatch tmp1054 '(any any))))
                     e1053))
                  (source-wrap444 e1052 w1049 ae1048)))))))
       (global-extend304
         'core
         'lambda
         (lambda (e1032 r1031 mr1030 w1029 ae1028 m?1027)
           ((lambda (tmp1033)
              ((lambda (tmp1034)
                 (if tmp1034
                     (apply
                       (lambda (_1036 c1035)
                         (call-with-values
                           (lambda ()
                             (chi-lambda-clause516
                               (source-wrap444 e1032 w1029 ae1028) c1035
                               r1031 mr1030 w1029 m?1027))
                           (lambda (vars1038 body1037)
                             (list 'lambda vars1038 body1037))))
                       tmp1034)
                     (syntax-error tmp1033)))
                ($syntax-dispatch tmp1033 '(any . any))))
             e1032)))
       (global-extend304
         'core
         'letrec
         (lambda (e1008 r1007 mr1006 w1005 ae1004 m?1003)
           ((lambda (tmp1009)
              ((lambda (tmp1010)
                 (if tmp1010
                     (apply
                       (lambda (_1015 id1014 val1013 e11012 e21011)
                         ((lambda (ids1016)
                            (if (not (valid-bound-ids?439 ids1016))
                                (invalid-ids-error441
                                  (map (lambda (x1017)
                                         (wrap443 x1017 w1005))
                                       ids1016)
                                  (source-wrap444 e1008 w1005 ae1004)
                                  '"bound variable")
                                ((lambda (labels1019 new-vars1018)
                                   ((lambda (w1021 r1020)
                                      (build-letrec236
                                        ae1004
                                        new-vars1018
                                        (map (lambda (x1024)
                                               (chi498 x1024 r1020 mr1006
                                                 w1021 m?1003))
                                             val1013)
                                        (chi-body503 (cons e11012 e21011)
                                          (source-wrap444
                                            e1008
                                            w1021
                                            ae1004)
                                          r1020 mr1006 w1021 m?1003)))
                                     (make-binding-wrap417
                                       ids1016
                                       labels1019
                                       w1005)
                                     (extend-var-env*297
                                       labels1019
                                       new-vars1018
                                       r1007)))
                                  (gen-labels364 ids1016)
                                  (map gen-var523 ids1016))))
                           id1014))
                       tmp1010)
                     ((lambda (_1026)
                        (syntax-error (source-wrap444 e1008 w1005 ae1004)))
                       tmp1009)))
                ($syntax-dispatch
                  tmp1009
                  '(any #(each (any any)) any . each-any))))
             e1008)))
       (global-extend304
         'core
         'if
         (lambda (e991 r990 mr989 w988 ae987 m?986)
           ((lambda (tmp992)
              ((lambda (tmp993)
                 (if tmp993
                     (apply
                       (lambda (_996 test995 then994)
                         (list
                           'if
                           (chi498 test995 r990 mr989 w988 m?986)
                           (chi498 then994 r990 mr989 w988 m?986)
                           (chi-void518)))
                       tmp993)
                     ((lambda (tmp997)
                        (if tmp997
                            (apply
                              (lambda (_1001 test1000 then999 else998)
                                (list
                                  'if
                                  (chi498 test1000 r990 mr989 w988 m?986)
                                  (chi498 then999 r990 mr989 w988 m?986)
                                  (chi498 else998 r990 mr989 w988 m?986)))
                              tmp997)
                            ((lambda (_1002)
                               (syntax-error
                                 (source-wrap444 e991 w988 ae987)))
                              tmp992)))
                       ($syntax-dispatch tmp992 '(any any any any)))))
                ($syntax-dispatch tmp992 '(any any any))))
             e991)))
       (global-extend304 'set! 'set! '())
       (global-extend304 'alias 'alias '())
       (global-extend304 'begin 'begin '())
       (global-extend304 '$module-key '$module '())
       (global-extend304 '$import '$import '())
       (global-extend304 'define 'define '())
       (global-extend304 'define-syntax 'define-syntax '())
       (global-extend304 'eval-when 'eval-when '())
       (global-extend304 'meta 'meta '())
       (global-extend304
         'core
         'syntax-case
         ((lambda ()
            (letrec ((convert-pattern858 (lambda (pattern935 keys934)
                                           (letrec ((cvt*936 (lambda (p*981
                                                                      n980
                                                                      ids979)
                                                               (if (null?
                                                                     p*981)
                                                                   (values
                                                                     '()
                                                                     ids979)
                                                                   (call-with-values
                                                                     (lambda ()
                                                                       (cvt*936
                                                                         (cdr p*981)
                                                                         n980
                                                                         ids979))
                                                                     (lambda (y983
                                                                              ids982)
                                                                       (call-with-values
                                                                         (lambda ()
                                                                           (cvt937
                                                                             (car p*981)
                                                                             n980
                                                                             ids982))
                                                                         (lambda (x985
                                                                                  ids984)
                                                                           (values
                                                                             (cons
                                                                               x985
                                                                               y983)
                                                                             ids984))))))))
                                                    (cvt937 (lambda (p940
                                                                     n939
                                                                     ids938)
                                                              (if (id?306
                                                                    p940)
                                                                  (if (bound-id-member?442
                                                                        p940
                                                                        keys934)
                                                                      (values
                                                                        (vector
                                                                          'free-id
                                                                          p940)
                                                                        ids938)
                                                                      (values
                                                                        'any
                                                                        (cons
                                                                          (cons
                                                                            p940
                                                                            n939)
                                                                          ids938)))
                                                                  ((lambda (tmp941)
                                                                     ((lambda (tmp942)
                                                                        (if (if tmp942
                                                                                (apply
                                                                                  (lambda (x944
                                                                                           dots943)
                                                                                    (ellipsis?519
                                                                                      dots943))
                                                                                  tmp942)
                                                                                '#f)
                                                                            (apply
                                                                              (lambda (x946
                                                                                       dots945)
                                                                                (call-with-values
                                                                                  (lambda ()
                                                                                    (cvt937
                                                                                      x946
                                                                                      (+ n939
                                                                                         '1)
                                                                                      ids938))
                                                                                  (lambda (p948
                                                                                           ids947)
                                                                                    (values
                                                                                      (if (eq? p948
                                                                                               'any)
                                                                                          'each-any
                                                                                          (vector
                                                                                            'each
                                                                                            p948))
                                                                                      ids947))))
                                                                              tmp942)
                                                                            ((lambda (tmp949)
                                                                               (if (if tmp949
                                                                                       (apply
                                                                                         (lambda (x953
                                                                                                  dots952
                                                                                                  y951
                                                                                                  z950)
                                                                                           (ellipsis?519
                                                                                             dots952))
                                                                                         tmp949)
                                                                                       '#f)
                                                                                   (apply
                                                                                     (lambda (x957
                                                                                              dots956
                                                                                              y955
                                                                                              z954)
                                                                                       (call-with-values
                                                                                         (lambda ()
                                                                                           (cvt937
                                                                                             z954
                                                                                             n939
                                                                                             ids938))
                                                                                         (lambda (z959
                                                                                                  ids958)
                                                                                           (call-with-values
                                                                                             (lambda ()
                                                                                               (cvt*936
                                                                                                 y955
                                                                                                 n939
                                                                                                 ids958))
                                                                                             (lambda (y961
                                                                                                      ids960)
                                                                                               (call-with-values
                                                                                                 (lambda ()
                                                                                                   (cvt937
                                                                                                     x957
                                                                                                     (+ n939
                                                                                                        '1)
                                                                                                     ids960))
                                                                                                 (lambda (x963
                                                                                                          ids962)
                                                                                                   (values
                                                                                                     (vector
                                                                                                       'each+
                                                                                                       x963
                                                                                                       (reverse
                                                                                                         y961)
                                                                                                       z959)
                                                                                                     ids962))))))))
                                                                                     tmp949)
                                                                                   ((lambda (tmp965)
                                                                                      (if tmp965
                                                                                          (apply
                                                                                            (lambda (x967
                                                                                                     y966)
                                                                                              (call-with-values
                                                                                                (lambda ()
                                                                                                  (cvt937
                                                                                                    y966
                                                                                                    n939
                                                                                                    ids938))
                                                                                                (lambda (y969
                                                                                                         ids968)
                                                                                                  (call-with-values
                                                                                                    (lambda ()
                                                                                                      (cvt937
                                                                                                        x967
                                                                                                        n939
                                                                                                        ids968))
                                                                                                    (lambda (x971
                                                                                                             ids970)
                                                                                                      (values
                                                                                                        (cons
                                                                                                          x971
                                                                                                          y969)
                                                                                                        ids970))))))
                                                                                            tmp965)
                                                                                          ((lambda (tmp972)
                                                                                             (if tmp972
                                                                                                 (apply
                                                                                                   (lambda ()
                                                                                                     (values
                                                                                                       '()
                                                                                                       ids938))
                                                                                                   tmp972)
                                                                                                 ((lambda (tmp973)
                                                                                                    (if tmp973
                                                                                                        (apply
                                                                                                          (lambda (x974)
                                                                                                            (call-with-values
                                                                                                              (lambda ()
                                                                                                                (cvt937
                                                                                                                  x974
                                                                                                                  n939
                                                                                                                  ids938))
                                                                                                              (lambda (p976
                                                                                                                       ids975)
                                                                                                                (values
                                                                                                                  (vector
                                                                                                                    'vector
                                                                                                                    p976)
                                                                                                                  ids975))))
                                                                                                          tmp973)
                                                                                                        ((lambda (x978)
                                                                                                           (values
                                                                                                             (vector
                                                                                                               'atom
                                                                                                               (strip522
                                                                                                                 p940
                                                                                                                 '(())))
                                                                                                             ids938))
                                                                                                          tmp941)))
                                                                                                   ($syntax-dispatch
                                                                                                     tmp941
                                                                                                     '#(vector
                                                                                                        each-any)))))
                                                                                            ($syntax-dispatch
                                                                                              tmp941
                                                                                              '()))))
                                                                                     ($syntax-dispatch
                                                                                       tmp941
                                                                                       '(any .
                                                                                             any)))))
                                                                              ($syntax-dispatch
                                                                                tmp941
                                                                                '(any any
                                                                                      .
                                                                                      #(each+
                                                                                        any
                                                                                        ()
                                                                                        any))))))
                                                                       ($syntax-dispatch
                                                                         tmp941
                                                                         '(any any))))
                                                                    p940)))))
                                             (cvt937 pattern935 '0 '()))))
                     (build-dispatch-call859 (lambda (pvars927 exp926 y925
                                                      r924 mr923 m?922)
                                               ((lambda (ids929 levels928)
                                                  ((lambda (labels931
                                                            new-vars930)
                                                     (cons
                                                       'apply
                                                       (list
                                                         (list
                                                           'lambda
                                                           new-vars930
                                                           (chi498 exp926
                                                             (extend-env*296
                                                               labels931
                                                               (map (lambda (var933
                                                                             level932)
                                                                      (cons
                                                                        'syntax
                                                                        (cons
                                                                          var933
                                                                          level932)))
                                                                    new-vars930
                                                                    (map cdr
                                                                         pvars927))
                                                               r924)
                                                             mr923
                                                             (make-binding-wrap417
                                                               ids929
                                                               labels931
                                                               '(()))
                                                             m?922))
                                                         y925)))
                                                    (gen-labels364 ids929)
                                                    (map gen-var523
                                                         ids929)))
                                                 (map car pvars927)
                                                 (map cdr pvars927))))
                     (gen-clause860 (lambda (x905 keys904 clauses903 r902
                                             mr901 m?900 pat899 fender898
                                             exp897)
                                      (call-with-values
                                        (lambda ()
                                          (convert-pattern858
                                            pat899
                                            keys904))
                                        (lambda (p907 pvars906)
                                          (if (not (distinct-bound-ids?440
                                                     (map car pvars906)))
                                              (invalid-ids-error441
                                                (map car pvars906)
                                                pat899
                                                '"pattern variable")
                                              (if (not (andmap
                                                         (lambda (x908)
                                                           (not (ellipsis?519
                                                                  (car x908))))
                                                         pvars906))
                                                  (syntax-error
                                                    pat899
                                                    '"misplaced ellipsis in syntax-case pattern")
                                                  ((lambda (y909)
                                                     (cons
                                                       (list
                                                         'lambda
                                                         (list y909)
                                                         (list
                                                           'if
                                                           ((lambda (tmp919)
                                                              ((lambda (tmp920)
                                                                 (if tmp920
                                                                     (apply
                                                                       (lambda ()
                                                                         y909)
                                                                       tmp920)
                                                                     ((lambda (_921)
                                                                        (list
                                                                          'if
                                                                          y909
                                                                          (build-dispatch-call859
                                                                            pvars906
                                                                            fender898
                                                                            y909
                                                                            r902
                                                                            mr901
                                                                            m?900)
                                                                          (list
                                                                            'quote
                                                                            '#f)))
                                                                       tmp919)))
                                                                ($syntax-dispatch
                                                                  tmp919
                                                                  '#(atom
                                                                     #t))))
                                                             fender898)
                                                           (build-dispatch-call859
                                                             pvars906
                                                             exp897 y909
                                                             r902 mr901
                                                             m?900)
                                                           (gen-syntax-case861
                                                             x905 keys904
                                                             clauses903
                                                             r902 mr901
                                                             m?900)))
                                                       (list
                                                         (if (eq? p907
                                                                  'any)
                                                             (cons
                                                               'list
                                                               (list x905))
                                                             (cons
                                                               '$syntax-dispatch
                                                               (list
                                                                 x905
                                                                 (list
                                                                   'quote
                                                                   p907)))))))
                                                    (gen-var523
                                                      'tmp))))))))
                     (gen-syntax-case861 (lambda (x885 keys884 clauses883
                                                  r882 mr881 m?880)
                                           (if (null? clauses883)
                                               (cons
                                                 'syntax-error
                                                 (list x885))
                                               ((lambda (tmp886)
                                                  ((lambda (tmp887)
                                                     (if tmp887
                                                         (apply
                                                           (lambda (pat889
                                                                    exp888)
                                                             (if (if (id?306
                                                                       pat889)
                                                                     (if (not (bound-id-member?442
                                                                                pat889
                                                                                keys884))
                                                                         (not (ellipsis?519
                                                                                pat889))
                                                                         '#f)
                                                                     '#f)
                                                                 ((lambda (label891
                                                                           var890)
                                                                    (cons
                                                                      (list
                                                                        'lambda
                                                                        (list
                                                                          var890)
                                                                        (chi498
                                                                          exp888
                                                                          (extend-env295
                                                                            label891
                                                                            (cons
                                                                              'syntax
                                                                              (cons
                                                                                var890
                                                                                '0))
                                                                            r882)
                                                                          mr881
                                                                          (make-binding-wrap417
                                                                            (list
                                                                              pat889)
                                                                            (list
                                                                              label891)
                                                                            '(()))
                                                                          m?880))
                                                                      (list
                                                                        x885)))
                                                                   (gen-label362)
                                                                   (gen-var523
                                                                     pat889))
                                                                 (gen-clause860
                                                                   x885
                                                                   keys884
                                                                   (cdr clauses883)
                                                                   r882
                                                                   mr881
                                                                   m?880
                                                                   pat889
                                                                   '#t
                                                                   exp888)))
                                                           tmp887)
                                                         ((lambda (tmp892)
                                                            (if tmp892
                                                                (apply
                                                                  (lambda (pat895
                                                                           fender894
                                                                           exp893)
                                                                    (gen-clause860
                                                                      x885
                                                                      keys884
                                                                      (cdr clauses883)
                                                                      r882
                                                                      mr881
                                                                      m?880
                                                                      pat895
                                                                      fender894
                                                                      exp893))
                                                                  tmp892)
                                                                ((lambda (_896)
                                                                   (syntax-error
                                                                     (car clauses883)
                                                                     '"invalid syntax-case clause"))
                                                                  tmp886)))
                                                           ($syntax-dispatch
                                                             tmp886
                                                             '(any any
                                                                   any)))))
                                                    ($syntax-dispatch
                                                      tmp886
                                                      '(any any))))
                                                 (car clauses883))))))
              (lambda (e867 r866 mr865 w864 ae863 m?862)
                ((lambda (e868)
                   ((lambda (tmp869)
                      ((lambda (tmp870)
                         (if tmp870
                             (apply
                               (lambda (_874 val873 key872 m871)
                                 (if (andmap
                                       (lambda (x876)
                                         (if (id?306 x876)
                                             (not (ellipsis?519 x876))
                                             '#f))
                                       key872)
                                     ((lambda (x877)
                                        (cons
                                          (list
                                            'lambda
                                            (list x877)
                                            (gen-syntax-case861 x877 key872
                                              m871 r866 mr865 m?862))
                                          (list
                                            (chi498 val873 r866 mr865 '(())
                                              m?862))))
                                       (gen-var523 'tmp))
                                     (syntax-error
                                       e868
                                       '"invalid literals list in")))
                               tmp870)
                             (syntax-error tmp869)))
                        ($syntax-dispatch
                          tmp869
                          '(any any each-any . each-any))))
                     e868))
                  (source-wrap444 e867 w864 ae863)))))))
       (put-cte-hook137
         'module
         (lambda (x827)
           (letrec ((proper-export?828 (lambda (e851)
                                         ((lambda (tmp852)
                                            ((lambda (tmp853)
                                               (if tmp853
                                                   (apply
                                                     (lambda (id855 e854)
                                                       (if (identifier?
                                                             id855)
                                                           (andmap
                                                             proper-export?828
                                                             e854)
                                                           '#f))
                                                     tmp853)
                                                   ((lambda (id857)
                                                      (identifier? id857))
                                                     tmp852)))
                                              ($syntax-dispatch
                                                tmp852
                                                '(any . each-any))))
                                           e851))))
             ((lambda (tmp829)
                ((lambda (orig830)
                   ((lambda (tmp831)
                      ((lambda (tmp832)
                         (if tmp832
                             (apply
                               (lambda (_835 e834 d833)
                                 (if (andmap proper-export?828 e834)
                                     (list
                                       '#(syntax-object begin ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                       (cons
                                         '#(syntax-object $module ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                         (cons
                                           orig830
                                           (cons
                                             '#(syntax-object anon ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                             (cons e834 d833))))
                                       (cons
                                         '#(syntax-object $import ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                         (cons
                                           orig830
                                           '#(syntax-object (#f anon) ((top) #(ribcage #(_ e d) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))))
                                     (syntax-error
                                       x827
                                       '"invalid exports list in")))
                               tmp832)
                             ((lambda (tmp839)
                                (if (if tmp839
                                        (apply
                                          (lambda (_843 m842 e841 d840)
                                            (identifier? m842))
                                          tmp839)
                                        '#f)
                                    (apply
                                      (lambda (_847 m846 e845 d844)
                                        (if (andmap proper-export?828 e845)
                                            (cons
                                              '#(syntax-object $module ((top) #(ribcage #(_ m e d) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage #(orig) #((top)) #("i")) #(ribcage (proper-export?) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                              (cons
                                                orig830
                                                (cons
                                                  m846
                                                  (cons e845 d844))))
                                            (syntax-error
                                              x827
                                              '"invalid exports list in")))
                                      tmp839)
                                    (syntax-error tmp831)))
                               ($syntax-dispatch
                                 tmp831
                                 '(any any each-any . each-any)))))
                        ($syntax-dispatch
                          tmp831
                          '(any each-any . each-any))))
                     x827))
                  tmp829))
               x827))))
       ((lambda ()
          (letrec (($module-exports628 (lambda (m819 r818)
                                         ((lambda (b820)
                                            ((lambda (t821)
                                               (if (memv t821 '($module))
                                                   ((lambda (interface822)
                                                      ((lambda (new-marks823)
                                                         ((lambda ()
                                                            (vmap487
                                                              (lambda (x824)
                                                                ((lambda (id825)
                                                                   (make-syntax-object63
                                                                     (syntax-object->datum
                                                                       id825)
                                                                     ((lambda (marks826)
                                                                        (make-wrap315
                                                                          marks826
                                                                          (if (eq? (car marks826)
                                                                                   '#f)
                                                                              (cons
                                                                                'shift
                                                                                (wrap-subst317
                                                                                  '((top))))
                                                                              (wrap-subst317
                                                                                '((top))))))
                                                                       (join-marks423
                                                                         new-marks823
                                                                         (wrap-marks316
                                                                           (syntax-object-wrap66
                                                                             id825))))))
                                                                  (if (pair?
                                                                        x824)
                                                                      (car x824)
                                                                      x824)))
                                                              (interface-exports454
                                                                interface822)))))
                                                        (import-mark-delta505
                                                          m819
                                                          interface822)))
                                                     (binding-value282
                                                       b820))
                                                   (if (memv
                                                         t821
                                                         '(displaced-lexical))
                                                       (displaced-lexical-error299
                                                         m819)
                                                       (syntax-error
                                                         m819
                                                         '"unknown module"))))
                                              (binding-type281 b820)))
                                           (r818 m819))))
                   ($import-help629 (lambda (orig633 import-only?632)
                                      (lambda (r634)
                                        (letrec ((difference635 (lambda (ls1817
                                                                         ls2816)
                                                                  (if (null?
                                                                        ls1817)
                                                                      ls1817
                                                                      (if (bound-id-member?442
                                                                            (car ls1817)
                                                                            ls2816)
                                                                          (difference635
                                                                            (cdr ls1817)
                                                                            ls2816)
                                                                          (cons
                                                                            (car ls1817)
                                                                            (difference635
                                                                              (cdr ls1817)
                                                                              ls2816))))))
                                                 (prefix-add636 (lambda (prefix-id813)
                                                                  ((lambda (prefix814)
                                                                     (lambda (id815)
                                                                       (datum->syntax-object
                                                                         id815
                                                                         (string->symbol
                                                                           (string-append
                                                                             prefix814
                                                                             (symbol->string
                                                                               (syntax-object->datum
                                                                                 id815)))))))
                                                                    (symbol->string
                                                                      (syntax-object->datum
                                                                        prefix-id813)))))
                                                 (prefix-drop637 (lambda (prefix-id807)
                                                                   ((lambda (prefix808)
                                                                      (lambda (id809)
                                                                        ((lambda (s810)
                                                                           ((lambda (np812
                                                                                     ns811)
                                                                              (begin
                                                                                (if (not (if (>= ns811
                                                                                                 np812)
                                                                                             (string=?
                                                                                               (substring
                                                                                                 s810
                                                                                                 '0
                                                                                                 np812)
                                                                                               prefix808)
                                                                                             '#f))
                                                                                    (syntax-error
                                                                                      id809
                                                                                      (string-append
                                                                                        '"missing expected prefix "
                                                                                        prefix808))
                                                                                    (void))
                                                                                (datum->syntax-object
                                                                                  id809
                                                                                  (string->symbol
                                                                                    (substring
                                                                                      s810
                                                                                      np812
                                                                                      ns811)))))
                                                                             (string-length
                                                                               prefix808)
                                                                             (string-length
                                                                               s810)))
                                                                          (symbol->string
                                                                            (syntax-object->datum
                                                                              id809)))))
                                                                     (symbol->string
                                                                       (syntax-object->datum
                                                                         prefix-id807)))))
                                                 (gen-mid638 (lambda (mid804)
                                                               (datum->syntax-object
                                                                 mid804
                                                                 (generate-id143
                                                                   ((lambda (x805)
                                                                      ((lambda (e806)
                                                                         (if (annotation?132
                                                                               e806)
                                                                             (annotation-expression
                                                                               e806)
                                                                             e806))
                                                                        (if (syntax-object?64
                                                                              x805)
                                                                            (syntax-object-expression65
                                                                              x805)
                                                                            x805)))
                                                                     mid804)))))
                                                 (modspec639 (lambda (m655
                                                                      exports?654)
                                                               ((lambda (tmp656)
                                                                  ((lambda (tmp657)
                                                                     (if tmp657
                                                                         (apply
                                                                           (lambda (orig659
                                                                                    import-only?658)
                                                                             ((lambda (tmp660)
                                                                                ((lambda (tmp661)
                                                                                   (if (if tmp661
                                                                                           (apply
                                                                                             (lambda (m663
                                                                                                      id662)
                                                                                               (andmap
                                                                                                 identifier?
                                                                                                 id662))
                                                                                             tmp661)
                                                                                           '#f)
                                                                                       (apply
                                                                                         (lambda (m666
                                                                                                  id665)
                                                                                           (call-with-values
                                                                                             (lambda ()
                                                                                               (modspec639
                                                                                                 m666
                                                                                                 '#f))
                                                                                             (lambda (mid669
                                                                                                      d668
                                                                                                      exports667)
                                                                                               ((lambda (tmp670)
                                                                                                  ((lambda (tmp671)
                                                                                                     (if tmp671
                                                                                                         (apply
                                                                                                           (lambda (d673
                                                                                                                    tmid672)
                                                                                                             (values
                                                                                                               mid669
                                                                                                               (list
                                                                                                                 '#(syntax-object begin ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                 (list
                                                                                                                   '#(syntax-object $module ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                   orig659
                                                                                                                   tmid672
                                                                                                                   id665
                                                                                                                   d673)
                                                                                                                 (list
                                                                                                                   '#(syntax-object $import ((top) #(ribcage #(d tmid) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                   orig659
                                                                                                                   import-only?658
                                                                                                                   tmid672))
                                                                                                               (if exports?654
                                                                                                                   id665
                                                                                                                   '#f)))
                                                                                                           tmp671)
                                                                                                         (syntax-error
                                                                                                           tmp670)))
                                                                                                    ($syntax-dispatch
                                                                                                      tmp670
                                                                                                      '(any any))))
                                                                                                 (list
                                                                                                   d668
                                                                                                   (gen-mid638
                                                                                                     mid669))))))
                                                                                         tmp661)
                                                                                       ((lambda (tmp676)
                                                                                          (if (if tmp676
                                                                                                  (apply
                                                                                                    (lambda (m678
                                                                                                             id677)
                                                                                                      (andmap
                                                                                                        identifier?
                                                                                                        id677))
                                                                                                    tmp676)
                                                                                                  '#f)
                                                                                              (apply
                                                                                                (lambda (m681
                                                                                                         id680)
                                                                                                  (call-with-values
                                                                                                    (lambda ()
                                                                                                      (modspec639
                                                                                                        m681
                                                                                                        '#t))
                                                                                                    (lambda (mid684
                                                                                                             d683
                                                                                                             exports682)
                                                                                                      ((lambda (tmp685)
                                                                                                         ((lambda (tmp687)
                                                                                                            (if tmp687
                                                                                                                (apply
                                                                                                                  (lambda (d690
                                                                                                                           tmid689
                                                                                                                           id688)
                                                                                                                    (values
                                                                                                                      mid684
                                                                                                                      (list
                                                                                                                        '#(syntax-object begin ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                        (list
                                                                                                                          '#(syntax-object $module ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                          orig659
                                                                                                                          tmid689
                                                                                                                          id688
                                                                                                                          d690)
                                                                                                                        (list
                                                                                                                          '#(syntax-object $import ((top) #(ribcage #(d tmid id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                          orig659
                                                                                                                          import-only?658
                                                                                                                          tmid689))
                                                                                                                      (if exports?654
                                                                                                                          id688
                                                                                                                          '#f)))
                                                                                                                  tmp687)
                                                                                                                (syntax-error
                                                                                                                  tmp685)))
                                                                                                           ($syntax-dispatch
                                                                                                             tmp685
                                                                                                             '(any any
                                                                                                                   each-any))))
                                                                                                        (list
                                                                                                          d683
                                                                                                          (gen-mid638
                                                                                                            mid684)
                                                                                                          (difference635
                                                                                                            exports682
                                                                                                            id680))))))
                                                                                                tmp676)
                                                                                              ((lambda (tmp693)
                                                                                                 (if (if tmp693
                                                                                                         (apply
                                                                                                           (lambda (m695
                                                                                                                    prefix-id694)
                                                                                                             (identifier?
                                                                                                               prefix-id694))
                                                                                                           tmp693)
                                                                                                         '#f)
                                                                                                     (apply
                                                                                                       (lambda (m697
                                                                                                                prefix-id696)
                                                                                                         (call-with-values
                                                                                                           (lambda ()
                                                                                                             (modspec639
                                                                                                               m697
                                                                                                               '#t))
                                                                                                           (lambda (mid700
                                                                                                                    d699
                                                                                                                    exports698)
                                                                                                             ((lambda (tmp701)
                                                                                                                ((lambda (tmp702)
                                                                                                                   (if tmp702
                                                                                                                       (apply
                                                                                                                         (lambda (d707
                                                                                                                                  tmid706
                                                                                                                                  old-id705
                                                                                                                                  tmp704
                                                                                                                                  id703)
                                                                                                                           (values
                                                                                                                             mid700
                                                                                                                             (list
                                                                                                                               '#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                               (cons
                                                                                                                                 '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                 (cons
                                                                                                                                   orig659
                                                                                                                                   (cons
                                                                                                                                     tmid706
                                                                                                                                     (cons
                                                                                                                                       (map list
                                                                                                                                            id703
                                                                                                                                            tmp704)
                                                                                                                                       (cons
                                                                                                                                         (cons
                                                                                                                                           '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                           (cons
                                                                                                                                             orig659
                                                                                                                                             (cons
                                                                                                                                               tmid706
                                                                                                                                               (cons
                                                                                                                                                 (map list
                                                                                                                                                      tmp704
                                                                                                                                                      old-id705)
                                                                                                                                                 (cons
                                                                                                                                                   d707
                                                                                                                                                   (map (lambda (tmp714
                                                                                                                                                                 tmp713)
                                                                                                                                                          (list
                                                                                                                                                            '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                            tmp713
                                                                                                                                                            tmp714))
                                                                                                                                                        old-id705
                                                                                                                                                        tmp704))))))
                                                                                                                                         (cons
                                                                                                                                           (list
                                                                                                                                             '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                             orig659
                                                                                                                                             import-only?658
                                                                                                                                             tmid706)
                                                                                                                                           (map (lambda (tmp716
                                                                                                                                                         tmp715)
                                                                                                                                                  (list
                                                                                                                                                    '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                    tmp715
                                                                                                                                                    tmp716))
                                                                                                                                                tmp704
                                                                                                                                                id703)))))))
                                                                                                                               (list
                                                                                                                                 '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                 orig659
                                                                                                                                 import-only?658
                                                                                                                                 tmid706))
                                                                                                                             (if exports?654
                                                                                                                                 id703
                                                                                                                                 '#f)))
                                                                                                                         tmp702)
                                                                                                                       (syntax-error
                                                                                                                         tmp701)))
                                                                                                                  ($syntax-dispatch
                                                                                                                    tmp701
                                                                                                                    '(any any
                                                                                                                          each-any
                                                                                                                          each-any
                                                                                                                          each-any))))
                                                                                                               (list
                                                                                                                 d699
                                                                                                                 (gen-mid638
                                                                                                                   mid700)
                                                                                                                 exports698
                                                                                                                 (generate-temporaries
                                                                                                                   exports698)
                                                                                                                 (map (prefix-add636
                                                                                                                        prefix-id696)
                                                                                                                      exports698))))))
                                                                                                       tmp693)
                                                                                                     ((lambda (tmp717)
                                                                                                        (if (if tmp717
                                                                                                                (apply
                                                                                                                  (lambda (m719
                                                                                                                           prefix-id718)
                                                                                                                    (identifier?
                                                                                                                      prefix-id718))
                                                                                                                  tmp717)
                                                                                                                '#f)
                                                                                                            (apply
                                                                                                              (lambda (m721
                                                                                                                       prefix-id720)
                                                                                                                (call-with-values
                                                                                                                  (lambda ()
                                                                                                                    (modspec639
                                                                                                                      m721
                                                                                                                      '#t))
                                                                                                                  (lambda (mid724
                                                                                                                           d723
                                                                                                                           exports722)
                                                                                                                    ((lambda (tmp725)
                                                                                                                       ((lambda (tmp726)
                                                                                                                          (if tmp726
                                                                                                                              (apply
                                                                                                                                (lambda (d731
                                                                                                                                         tmid730
                                                                                                                                         old-id729
                                                                                                                                         tmp728
                                                                                                                                         id727)
                                                                                                                                  (values
                                                                                                                                    mid724
                                                                                                                                    (list
                                                                                                                                      '#(syntax-object begin ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                      (cons
                                                                                                                                        '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                        (cons
                                                                                                                                          orig659
                                                                                                                                          (cons
                                                                                                                                            tmid730
                                                                                                                                            (cons
                                                                                                                                              (map list
                                                                                                                                                   id727
                                                                                                                                                   tmp728)
                                                                                                                                              (cons
                                                                                                                                                (cons
                                                                                                                                                  '#(syntax-object $module ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                  (cons
                                                                                                                                                    orig659
                                                                                                                                                    (cons
                                                                                                                                                      tmid730
                                                                                                                                                      (cons
                                                                                                                                                        (map list
                                                                                                                                                             tmp728
                                                                                                                                                             old-id729)
                                                                                                                                                        (cons
                                                                                                                                                          d731
                                                                                                                                                          (map (lambda (tmp738
                                                                                                                                                                        tmp737)
                                                                                                                                                                 (list
                                                                                                                                                                   '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                                   tmp737
                                                                                                                                                                   tmp738))
                                                                                                                                                               old-id729
                                                                                                                                                               tmp728))))))
                                                                                                                                                (cons
                                                                                                                                                  (list
                                                                                                                                                    '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                    orig659
                                                                                                                                                    import-only?658
                                                                                                                                                    tmid730)
                                                                                                                                                  (map (lambda (tmp740
                                                                                                                                                                tmp739)
                                                                                                                                                         (list
                                                                                                                                                           '#(syntax-object alias ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                           tmp739
                                                                                                                                                           tmp740))
                                                                                                                                                       tmp728
                                                                                                                                                       id727)))))))
                                                                                                                                      (list
                                                                                                                                        '#(syntax-object $import ((top) #(ribcage #(d tmid old-id tmp id) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m prefix-id) #((top) (top)) #("i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                        orig659
                                                                                                                                        import-only?658
                                                                                                                                        tmid730))
                                                                                                                                    (if exports?654
                                                                                                                                        id727
                                                                                                                                        '#f)))
                                                                                                                                tmp726)
                                                                                                                              (syntax-error
                                                                                                                                tmp725)))
                                                                                                                         ($syntax-dispatch
                                                                                                                           tmp725
                                                                                                                           '(any any
                                                                                                                                 each-any
                                                                                                                                 each-any
                                                                                                                                 each-any))))
                                                                                                                      (list
                                                                                                                        d723
                                                                                                                        (gen-mid638
                                                                                                                          mid724)
                                                                                                                        exports722
                                                                                                                        (generate-temporaries
                                                                                                                          exports722)
                                                                                                                        (map (prefix-drop637
                                                                                                                               prefix-id720)
                                                                                                                             exports722))))))
                                                                                                              tmp717)
                                                                                                            ((lambda (tmp741)
                                                                                                               (if (if tmp741
                                                                                                                       (apply
                                                                                                                         (lambda (m744
                                                                                                                                  new-id743
                                                                                                                                  old-id742)
                                                                                                                           (if (andmap
                                                                                                                                 identifier?
                                                                                                                                 new-id743)
                                                                                                                               (andmap
                                                                                                                                 identifier?
                                                                                                                                 old-id742)
                                                                                                                               '#f))
                                                                                                                         tmp741)
                                                                                                                       '#f)
                                                                                                                   (apply
                                                                                                                     (lambda (m749
                                                                                                                              new-id748
                                                                                                                              old-id747)
                                                                                                                       (call-with-values
                                                                                                                         (lambda ()
                                                                                                                           (modspec639
                                                                                                                             m749
                                                                                                                             '#t))
                                                                                                                         (lambda (mid752
                                                                                                                                  d751
                                                                                                                                  exports750)
                                                                                                                           ((lambda (tmp753)
                                                                                                                              ((lambda (tmp756)
                                                                                                                                 (if tmp756
                                                                                                                                     (apply
                                                                                                                                       (lambda (d760
                                                                                                                                                tmid759
                                                                                                                                                tmp758
                                                                                                                                                other-id757)
                                                                                                                                         (values
                                                                                                                                           mid752
                                                                                                                                           (list
                                                                                                                                             '#(syntax-object begin ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                             (cons
                                                                                                                                               '#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                               (cons
                                                                                                                                                 orig659
                                                                                                                                                 (cons
                                                                                                                                                   tmid759
                                                                                                                                                   (cons
                                                                                                                                                     (append
                                                                                                                                                       (map list
                                                                                                                                                            new-id748
                                                                                                                                                            tmp758)
                                                                                                                                                       other-id757)
                                                                                                                                                     (cons
                                                                                                                                                       (cons
                                                                                                                                                         '#(syntax-object $module ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                         (cons
                                                                                                                                                           orig659
                                                                                                                                                           (cons
                                                                                                                                                             tmid759
                                                                                                                                                             (cons
                                                                                                                                                               (append
                                                                                                                                                                 other-id757
                                                                                                                                                                 (map list
                                                                                                                                                                      tmp758
                                                                                                                                                                      old-id747))
                                                                                                                                                               (cons
                                                                                                                                                                 d760
                                                                                                                                                                 (map (lambda (tmp770
                                                                                                                                                                               tmp769)
                                                                                                                                                                        (list
                                                                                                                                                                          '#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                                          tmp769
                                                                                                                                                                          tmp770))
                                                                                                                                                                      old-id747
                                                                                                                                                                      tmp758))))))
                                                                                                                                                       (cons
                                                                                                                                                         (list
                                                                                                                                                           '#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                           orig659
                                                                                                                                                           import-only?658
                                                                                                                                                           tmid759)
                                                                                                                                                         (map (lambda (tmp772
                                                                                                                                                                       tmp771)
                                                                                                                                                                (list
                                                                                                                                                                  '#(syntax-object alias ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                                  tmp771
                                                                                                                                                                  tmp772))
                                                                                                                                                              tmp758
                                                                                                                                                              new-id748)))))))
                                                                                                                                             (list
                                                                                                                                               '#(syntax-object $import ((top) #(ribcage #(d tmid tmp other-id) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                               orig659
                                                                                                                                               import-only?658
                                                                                                                                               tmid759))
                                                                                                                                           (if exports?654
                                                                                                                                               (append
                                                                                                                                                 new-id748
                                                                                                                                                 other-id757)
                                                                                                                                               '#f)))
                                                                                                                                       tmp756)
                                                                                                                                     (syntax-error
                                                                                                                                       tmp753)))
                                                                                                                                ($syntax-dispatch
                                                                                                                                  tmp753
                                                                                                                                  '(any any
                                                                                                                                        each-any
                                                                                                                                        each-any))))
                                                                                                                             (list
                                                                                                                               d751
                                                                                                                               (gen-mid638
                                                                                                                                 mid752)
                                                                                                                               (generate-temporaries
                                                                                                                                 old-id747)
                                                                                                                               (difference635
                                                                                                                                 exports750
                                                                                                                                 old-id747))))))
                                                                                                                     tmp741)
                                                                                                                   ((lambda (tmp773)
                                                                                                                      (if (if tmp773
                                                                                                                              (apply
                                                                                                                                (lambda (m776
                                                                                                                                         new-id775
                                                                                                                                         old-id774)
                                                                                                                                  (if (andmap
                                                                                                                                        identifier?
                                                                                                                                        new-id775)
                                                                                                                                      (andmap
                                                                                                                                        identifier?
                                                                                                                                        old-id774)
                                                                                                                                      '#f))
                                                                                                                                tmp773)
                                                                                                                              '#f)
                                                                                                                          (apply
                                                                                                                            (lambda (m781
                                                                                                                                     new-id780
                                                                                                                                     old-id779)
                                                                                                                              (call-with-values
                                                                                                                                (lambda ()
                                                                                                                                  (modspec639
                                                                                                                                    m781
                                                                                                                                    '#t))
                                                                                                                                (lambda (mid784
                                                                                                                                         d783
                                                                                                                                         exports782)
                                                                                                                                  ((lambda (tmp785)
                                                                                                                                     ((lambda (tmp786)
                                                                                                                                        (if tmp786
                                                                                                                                            (apply
                                                                                                                                              (lambda (d789
                                                                                                                                                       tmid788
                                                                                                                                                       other-id787)
                                                                                                                                                (values
                                                                                                                                                  mid784
                                                                                                                                                  (list
                                                                                                                                                    '#(syntax-object begin ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                    (cons
                                                                                                                                                      '#(syntax-object $module ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                      (cons
                                                                                                                                                        orig659
                                                                                                                                                        (cons
                                                                                                                                                          tmid788
                                                                                                                                                          (cons
                                                                                                                                                            (append
                                                                                                                                                              (map list
                                                                                                                                                                   new-id780
                                                                                                                                                                   old-id779)
                                                                                                                                                              other-id787)
                                                                                                                                                            (cons
                                                                                                                                                              d789
                                                                                                                                                              (map (lambda (tmp796
                                                                                                                                                                            tmp795)
                                                                                                                                                                     (list
                                                                                                                                                                       '#(syntax-object alias ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                                       tmp795
                                                                                                                                                                       tmp796))
                                                                                                                                                                   old-id779
                                                                                                                                                                   new-id780))))))
                                                                                                                                                    (list
                                                                                                                                                      '#(syntax-object $import ((top) #(ribcage #(d tmid other-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(mid d exports) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(m new-id old-id) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                      orig659
                                                                                                                                                      import-only?658
                                                                                                                                                      tmid788))
                                                                                                                                                  (if exports?654
                                                                                                                                                      (append
                                                                                                                                                        new-id780
                                                                                                                                                        other-id787)
                                                                                                                                                      '#f)))
                                                                                                                                              tmp786)
                                                                                                                                            (syntax-error
                                                                                                                                              tmp785)))
                                                                                                                                       ($syntax-dispatch
                                                                                                                                         tmp785
                                                                                                                                         '(any any
                                                                                                                                               each-any))))
                                                                                                                                    (list
                                                                                                                                      d783
                                                                                                                                      (gen-mid638
                                                                                                                                        mid784)
                                                                                                                                      exports782)))))
                                                                                                                            tmp773)
                                                                                                                          ((lambda (tmp797)
                                                                                                                             (if (if tmp797
                                                                                                                                     (apply
                                                                                                                                       (lambda (mid798)
                                                                                                                                         (identifier?
                                                                                                                                           mid798))
                                                                                                                                       tmp797)
                                                                                                                                     '#f)
                                                                                                                                 (apply
                                                                                                                                   (lambda (mid799)
                                                                                                                                     (values
                                                                                                                                       mid799
                                                                                                                                       (list
                                                                                                                                         '#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                         orig659
                                                                                                                                         import-only?658
                                                                                                                                         mid799)
                                                                                                                                       (if exports?654
                                                                                                                                           ($module-exports628
                                                                                                                                             mid799
                                                                                                                                             r634)
                                                                                                                                           '#f)))
                                                                                                                                   tmp797)
                                                                                                                                 ((lambda (tmp800)
                                                                                                                                    (if (if tmp800
                                                                                                                                            (apply
                                                                                                                                              (lambda (mid801)
                                                                                                                                                (identifier?
                                                                                                                                                  mid801))
                                                                                                                                              tmp800)
                                                                                                                                            '#f)
                                                                                                                                        (apply
                                                                                                                                          (lambda (mid802)
                                                                                                                                            (values
                                                                                                                                              mid802
                                                                                                                                              (list
                                                                                                                                                '#(syntax-object $import ((top) #(ribcage #(mid) #((top)) #("i")) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                                                                orig659
                                                                                                                                                import-only?658
                                                                                                                                                mid802)
                                                                                                                                              (if exports?654
                                                                                                                                                  ($module-exports628
                                                                                                                                                    mid802
                                                                                                                                                    r634)
                                                                                                                                                  '#f)))
                                                                                                                                          tmp800)
                                                                                                                                        ((lambda (_803)
                                                                                                                                           (syntax-error
                                                                                                                                             m655
                                                                                                                                             '"invalid module specifier"))
                                                                                                                                          tmp660)))
                                                                                                                                   ($syntax-dispatch
                                                                                                                                     tmp660
                                                                                                                                     '(any)))))
                                                                                                                            (list
                                                                                                                              tmp660))))
                                                                                                                     ($syntax-dispatch
                                                                                                                       tmp660
                                                                                                                       '(#(free-id
                                                                                                                           #(syntax-object alias ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                                                                          any
                                                                                                                          .
                                                                                                                          #(each
                                                                                                                            (any any)))))))
                                                                                                              ($syntax-dispatch
                                                                                                                tmp660
                                                                                                                '(#(free-id
                                                                                                                    #(syntax-object rename ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                                                                   any
                                                                                                                   .
                                                                                                                   #(each
                                                                                                                     (any any)))))))
                                                                                                       ($syntax-dispatch
                                                                                                         tmp660
                                                                                                         '(#(free-id
                                                                                                             #(syntax-object drop-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                                                            any
                                                                                                            any)))))
                                                                                                ($syntax-dispatch
                                                                                                  tmp660
                                                                                                  '(#(free-id
                                                                                                      #(syntax-object add-prefix ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                                                     any
                                                                                                     any)))))
                                                                                         ($syntax-dispatch
                                                                                           tmp660
                                                                                           '(#(free-id
                                                                                               #(syntax-object except ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                                              any
                                                                                              .
                                                                                              each-any)))))
                                                                                  ($syntax-dispatch
                                                                                    tmp660
                                                                                    '(#(free-id
                                                                                        #(syntax-object only ((top) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(m exports?) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                                       any
                                                                                       .
                                                                                       each-any))))
                                                                               m655))
                                                                           tmp657)
                                                                         (syntax-error
                                                                           tmp656)))
                                                                    ($syntax-dispatch
                                                                      tmp656
                                                                      '(any any))))
                                                                 (list
                                                                   orig633
                                                                   import-only?632))))
                                                 (modspec*640 (lambda (m650)
                                                                (call-with-values
                                                                  (lambda ()
                                                                    (modspec639
                                                                      m650
                                                                      '#f))
                                                                  (lambda (mid653
                                                                           d652
                                                                           exports651)
                                                                    d652)))))
                                          ((lambda (tmp641)
                                             ((lambda (tmp642)
                                                (if tmp642
                                                    (apply
                                                      (lambda (_644 m643)
                                                        ((lambda (tmp645)
                                                           ((lambda (tmp647)
                                                              (if tmp647
                                                                  (apply
                                                                    (lambda (d648)
                                                                      (cons
                                                                        '#(syntax-object begin ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage #(_ m) #((top) (top)) #("i" "i")) #(ribcage (modspec* modspec gen-mid prefix-drop prefix-add difference) ((top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i")) #(ribcage #(r) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(orig import-only?) #((top) (top)) #("i" "i")) #(ribcage ($import-help $module-exports) ((top) (top)) ("i" "i")) #(ribcage (lambda-var-list gen-var strip strip* strip-annotation ellipsis? chi-void chi-local-syntax chi-lambda-clause parse-begin parse-alias parse-eval-when parse-meta parse-define-syntax parse-define parse-import parse-module do-import! lookup-import-label import-mark-delta chi-internal chi-body chi-macro chi-set! chi-application chi-expr chi chi-sequence chi-meta-frob chi-frobs ct-eval/residualize3 ct-eval/residualize2 rt-eval/residualize initial-mode-set update-mode-set do-top-import vfor-each vmap chi-external check-defined-ids check-module-exports id-set-diff chi-top-module set-frob-meta?! set-frob-e! frob-meta? frob-e frob? make-frob create-module-binding set-module-binding-exported! set-module-binding-val! set-module-binding-imps! set-module-binding-label! set-module-binding-id! set-module-binding-type! module-binding-exported module-binding-val module-binding-imps module-binding-label module-binding-id module-binding-type module-binding? make-module-binding make-resolved-interface make-unresolved-interface set-interface-token! set-interface-exports! set-interface-marks! interface-token interface-exports interface-marks interface? make-interface flatten-exports chi-top chi-top-sequence chi-top* syntax-type chi-when-list source-wrap wrap bound-id-member? invalid-ids-error distinct-bound-ids? valid-bound-ids? bound-id=? help-bound-id=? literal-id=? free-id=? id-var-name id-var-name-loc id-var-name&marks id-var-name-loc&marks top-id-free-var-name top-id-bound-var-name anon diff-marks same-marks? join-subst join-marks join-wraps smart-append resolved-id-var-name id->resolved-id make-resolved-id make-binding-wrap store-import-binding lookup-import-binding-name extend-ribcage-subst! extend-ribcage-barrier-help! extend-ribcage-barrier! import-extend-ribcage! extend-ribcage! make-empty-ribcage barrier-marker new-mark anti-mark the-anti-mark set-env-wrap! set-env-top-ribcage! env-wrap env-top-ribcage env? make-env set-import-interface-new-marks! set-import-interface-interface! import-interface-new-marks import-interface-interface import-interface? make-import-interface set-top-ribcage-mutable?! set-top-ribcage-key! top-ribcage-mutable? top-ribcage-key top-ribcage? make-top-ribcage set-ribcage-labels! set-ribcage-marks! set-ribcage-symnames! ribcage-labels ribcage-marks ribcage-symnames ribcage? make-ribcage gen-labels label? gen-label set-indirect-label! get-indirect-label indirect-label? gen-indirect-label anon only-top-marked? top-marked? tmp-wrap top-wrap empty-wrap wrap-subst wrap-marks make-wrap id-sym-name&marks id-subst id-marks id-sym-name id? nonsymbol-id? global-extend defer-or-eval-transformer make-transformer-binding lookup lookup* displaced-lexical-error displaced-lexical? extend-var-env* extend-env* extend-env null-env binding? set-binding-value! set-binding-type! binding-value binding-type make-binding sanitize-binding arg-check no-source unannotate self-evaluating? lexical-var? build-lexical-var build-top-module build-body build-letrec build-sequence build-data build-primref built-lambda? build-lambda build-revisit-only build-visit-only build-cte-install build-global-definition build-global-assignment build-global-reference build-lexical-assignment build-lexical-reference build-conditional build-application generate-id update-import-binding! get-import-binding read-only-binding? put-global-definition-hook get-global-definition-hook put-cte-hook error-hook define-top-level-value-hook local-eval-hook top-level-eval-hook annotation? fx>= fx<= fx> fx< fx= fx- fx+ set-syntax-object-wrap! set-syntax-object-expression! syntax-object-wrap syntax-object-expression syntax-object? make-syntax-object noexpand let-values define-structure unless when) ((top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) ("m" top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                        d648))
                                                                    tmp647)
                                                                  (syntax-error
                                                                    tmp645)))
                                                             ($syntax-dispatch
                                                               tmp645
                                                               'each-any)))
                                                          (map modspec*640
                                                               m643)))
                                                      tmp642)
                                                    (syntax-error tmp641)))
                                               ($syntax-dispatch
                                                 tmp641
                                                 '(any . each-any))))
                                            orig633))))))
            (begin
              (put-cte-hook137
                'import
                (lambda (orig631) ($import-help629 orig631 '#f)))
              (put-cte-hook137
                'import-only
                (lambda (orig630) ($import-help629 orig630 '#t)))))))
       (set! sc-expand
         ((lambda (ctem625 rtem624)
            (lambda (x626)
              ((lambda (env627)
                 (if (if (pair? x626) (equal? (car x626) noexpand62) '#f)
                     (cadr x626)
                     (chi-top*447 x626 '() (env-wrap388 env627) ctem625
                       rtem624 '#f (env-top-ribcage387 env627))))
                (interaction-environment))))
           '(e)
           '(e)))
       (set! $make-environment
         (lambda (token622 mutable?621)
           ((lambda (top-ribcage623)
              (make-env385
                top-ribcage623
                (make-wrap315
                  (wrap-marks316 '((top)))
                  (cons top-ribcage623 (wrap-subst317 '((top)))))))
             (make-top-ribcage373 token622 mutable?621))))
       (set! environment? (lambda (x620) (env?386 x620)))
       (set! interaction-environment
         ((lambda (e619) (lambda () e619))
           ($make-environment '*top* '#t)))
       (set! identifier? (lambda (x618) (nonsymbol-id?305 x618)))
       (set! datum->syntax-object
         (lambda (id616 datum615)
           (begin
             ((lambda (x617)
                (if (not (nonsymbol-id?305 x617))
                    (error-hook136
                      'datum->syntax-object
                      '"invalid argument"
                      x617)
                    (void)))
               id616)
             (make-syntax-object63
               datum615
               (syntax-object-wrap66 id616)))))
       (set! syntax->list
         (lambda (orig-ls606)
           ((letrec ((f607 (lambda (ls608)
                             ((lambda (tmp609)
                                ((lambda (tmp610)
                                   (if tmp610
                                       (apply (lambda () '()) tmp610)
                                       ((lambda (tmp611)
                                          (if tmp611
                                              (apply
                                                (lambda (x613 r612)
                                                  (cons x613 (f607 r612)))
                                                tmp611)
                                              ((lambda (_614)
                                                 (error 'syntax->list
                                                   '"invalid argument ~s"
                                                   orig-ls606))
                                                tmp609)))
                                         ($syntax-dispatch
                                           tmp609
                                           '(any . any)))))
                                  ($syntax-dispatch tmp609 '())))
                               ls608))))
              f607)
             orig-ls606)))
       (set! syntax->vector
         (lambda (v600)
           ((lambda (tmp601)
              ((lambda (tmp602)
                 (if tmp602
                     (apply
                       (lambda (x603) (apply vector (syntax->list x603)))
                       tmp602)
                     ((lambda (_605)
                        (error 'syntax->vector
                          '"invalid argument ~s"
                          v600))
                       tmp601)))
                ($syntax-dispatch tmp601 '#(vector each-any))))
             v600)))
       (set! syntax-object->datum
         (lambda (x599) (strip522 x599 '(()))))
       (set! generate-temporaries
         ((lambda (n595)
            (lambda (ls596)
              (begin
                ((lambda (x598)
                   (if (not (list? x598))
                       (error-hook136
                         'generate-temporaries
                         '"invalid argument"
                         x598)
                       (void)))
                  ls596)
                (map (lambda (x597)
                       (begin
                         (set! n595 (+ n595 '1))
                         (wrap443
                           (string->symbol
                             (string-append '"t" (number->string n595)))
                           '((tmp)))))
                     ls596))))
           '0))
       (set! free-identifier=?
         (lambda (x592 y591)
           (begin
             ((lambda (x594)
                (if (not (nonsymbol-id?305 x594))
                    (error-hook136
                      'free-identifier=?
                      '"invalid argument"
                      x594)
                    (void)))
               x592)
             ((lambda (x593)
                (if (not (nonsymbol-id?305 x593))
                    (error-hook136
                      'free-identifier=?
                      '"invalid argument"
                      x593)
                    (void)))
               y591)
             (free-id=?435 x592 y591))))
       (set! bound-identifier=?
         (lambda (x588 y587)
           (begin
             ((lambda (x590)
                (if (not (nonsymbol-id?305 x590))
                    (error-hook136
                      'bound-identifier=?
                      '"invalid argument"
                      x590)
                    (void)))
               x588)
             ((lambda (x589)
                (if (not (nonsymbol-id?305 x589))
                    (error-hook136
                      'bound-identifier=?
                      '"invalid argument"
                      x589)
                    (void)))
               y587)
             (bound-id=?438 x588 y587))))
       (set! literal-identifier=?
         (lambda (x584 y583)
           (begin
             ((lambda (x586)
                (if (not (nonsymbol-id?305 x586))
                    (error-hook136
                      'literal-identifier=?
                      '"invalid argument"
                      x586)
                    (void)))
               x584)
             ((lambda (x585)
                (if (not (nonsymbol-id?305 x585))
                    (error-hook136
                      'literal-identifier=?
                      '"invalid argument"
                      x585)
                    (void)))
               y583)
             (literal-id=?436 x584 y583))))
       (set! syntax-error
         (lambda (object578 . messages579)
           (begin
             (for-each
               (lambda (x581)
                 ((lambda (x582)
                    (if (not (string? x582))
                        (error-hook136
                          'syntax-error
                          '"invalid argument"
                          x582)
                        (void)))
                   x581))
               messages579)
             ((lambda (message580)
                (error-hook136 '#f message580 (strip522 object578 '(()))))
               (if (null? messages579)
                   '"invalid syntax"
                   (apply string-append messages579))))))
       ((lambda ()
          (letrec ((match-each525 (lambda (e575 p574 w573)
                                    (if (annotation?132 e575)
                                        (match-each525
                                          (annotation-expression e575)
                                          p574
                                          w573)
                                        (if (pair? e575)
                                            ((lambda (first576)
                                               (if first576
                                                   ((lambda (rest577)
                                                      (if rest577
                                                          (cons
                                                            first576
                                                            rest577)
                                                          '#f))
                                                     (match-each525
                                                       (cdr e575)
                                                       p574
                                                       w573))
                                                   '#f))
                                              (match531
                                                (car e575)
                                                p574
                                                w573
                                                '()))
                                            (if (null? e575)
                                                '()
                                                (if (syntax-object?64 e575)
                                                    (match-each525
                                                      (syntax-object-expression65
                                                        e575)
                                                      p574
                                                      (join-wraps422
                                                        w573
                                                        (syntax-object-wrap66
                                                          e575)))
                                                    '#f))))))
                   (match-each+526 (lambda (e565 x-pat564 y-pat563 z-pat562
                                            w561 r560)
                                     ((letrec ((f566 (lambda (e568 w567)
                                                       (if (pair? e568)
                                                           (call-with-values
                                                             (lambda ()
                                                               (f566
                                                                 (cdr e568)
                                                                 w567))
                                                             (lambda (xr*571
                                                                      y-pat570
                                                                      r569)
                                                               (if r569
                                                                   (if (null?
                                                                         y-pat570)
                                                                       ((lambda (xr572)
                                                                          (if xr572
                                                                              (values
                                                                                (cons
                                                                                  xr572
                                                                                  xr*571)
                                                                                y-pat570
                                                                                r569)
                                                                              (values
                                                                                '#f
                                                                                '#f
                                                                                '#f)))
                                                                         (match531
                                                                           (car e568)
                                                                           x-pat564
                                                                           w567
                                                                           '()))
                                                                       (values
                                                                         '()
                                                                         (cdr y-pat570)
                                                                         (match531
                                                                           (car e568)
                                                                           (car y-pat570)
                                                                           w567
                                                                           r569)))
                                                                   (values
                                                                     '#f
                                                                     '#f
                                                                     '#f))))
                                                           (if (annotation?132
                                                                 e568)
                                                               (f566
                                                                 (annotation-expression
                                                                   e568)
                                                                 w567)
                                                               (if (syntax-object?64
                                                                     e568)
                                                                   (f566
                                                                     (syntax-object-expression65
                                                                       e568)
                                                                     (join-wraps422
                                                                       w567
                                                                       (syntax-object-wrap66
                                                                         e568)))
                                                                   (values
                                                                     '()
                                                                     y-pat563
                                                                     (match531
                                                                       e568
                                                                       z-pat562
                                                                       w567
                                                                       r560))))))))
                                        f566)
                                       e565
                                       w561)))
                   (match-each-any527 (lambda (e558 w557)
                                        (if (annotation?132 e558)
                                            (match-each-any527
                                              (annotation-expression e558)
                                              w557)
                                            (if (pair? e558)
                                                ((lambda (l559)
                                                   (if l559
                                                       (cons
                                                         (wrap443
                                                           (car e558)
                                                           w557)
                                                         l559)
                                                       '#f))
                                                  (match-each-any527
                                                    (cdr e558)
                                                    w557))
                                                (if (null? e558)
                                                    '()
                                                    (if (syntax-object?64
                                                          e558)
                                                        (match-each-any527
                                                          (syntax-object-expression65
                                                            e558)
                                                          (join-wraps422
                                                            w557
                                                            (syntax-object-wrap66
                                                              e558)))
                                                        '#f))))))
                   (match-empty528 (lambda (p555 r554)
                                     (if (null? p555)
                                         r554
                                         (if (eq? p555 'any)
                                             (cons '() r554)
                                             (if (pair? p555)
                                                 (match-empty528
                                                   (car p555)
                                                   (match-empty528
                                                     (cdr p555)
                                                     r554))
                                                 (if (eq? p555 'each-any)
                                                     (cons '() r554)
                                                     ((lambda (t556)
                                                        (if (memv
                                                              t556
                                                              '(each))
                                                            (match-empty528
                                                              (vector-ref
                                                                p555
                                                                '1)
                                                              r554)
                                                            (if (memv
                                                                  t556
                                                                  '(each+))
                                                                (match-empty528
                                                                  (vector-ref
                                                                    p555
                                                                    '1)
                                                                  (match-empty528
                                                                    (reverse
                                                                      (vector-ref
                                                                        p555
                                                                        '2))
                                                                    (match-empty528
                                                                      (vector-ref
                                                                        p555
                                                                        '3)
                                                                      r554)))
                                                                (if (memv
                                                                      t556
                                                                      '(free-id
                                                                         atom))
                                                                    r554
                                                                    (if (memv
                                                                          t556
                                                                          '(vector))
                                                                        (match-empty528
                                                                          (vector-ref
                                                                            p555
                                                                            '1)
                                                                          r554)
                                                                        (void))))))
                                                       (vector-ref
                                                         p555
                                                         '0))))))))
                   (combine529 (lambda (r*553 r552)
                                 (if (null? (car r*553))
                                     r552
                                     (cons
                                       (map car r*553)
                                       (combine529
                                         (map cdr r*553)
                                         r552)))))
                   (match*530 (lambda (e545 p544 w543 r542)
                                (if (null? p544)
                                    (if (null? e545) r542 '#f)
                                    (if (pair? p544)
                                        (if (pair? e545)
                                            (match531
                                              (car e545)
                                              (car p544)
                                              w543
                                              (match531
                                                (cdr e545)
                                                (cdr p544)
                                                w543
                                                r542))
                                            '#f)
                                        (if (eq? p544 'each-any)
                                            ((lambda (l546)
                                               (if l546
                                                   (cons l546 r542)
                                                   '#f))
                                              (match-each-any527
                                                e545
                                                w543))
                                            ((lambda (t547)
                                               (if (memv t547 '(each))
                                                   (if (null? e545)
                                                       (match-empty528
                                                         (vector-ref
                                                           p544
                                                           '1)
                                                         r542)
                                                       ((lambda (r*548)
                                                          (if r*548
                                                              (combine529
                                                                r*548
                                                                r542)
                                                              '#f))
                                                         (match-each525
                                                           e545
                                                           (vector-ref
                                                             p544
                                                             '1)
                                                           w543)))
                                                   (if (memv
                                                         t547
                                                         '(free-id))
                                                       (if (id?306 e545)
                                                           (if (literal-id=?436
                                                                 (wrap443
                                                                   e545
                                                                   w543)
                                                                 (vector-ref
                                                                   p544
                                                                   '1))
                                                               r542
                                                               '#f)
                                                           '#f)
                                                       (if (memv
                                                             t547
                                                             '(each+))
                                                           (call-with-values
                                                             (lambda ()
                                                               (match-each+526
                                                                 e545
                                                                 (vector-ref
                                                                   p544
                                                                   '1)
                                                                 (vector-ref
                                                                   p544
                                                                   '2)
                                                                 (vector-ref
                                                                   p544
                                                                   '3)
                                                                 w543
                                                                 r542))
                                                             (lambda (xr*551
                                                                      y-pat550
                                                                      r549)
                                                               (if r549
                                                                   (if (null?
                                                                         y-pat550)
                                                                       (if (null?
                                                                             xr*551)
                                                                           (match-empty528
                                                                             (vector-ref
                                                                               p544
                                                                               '1)
                                                                             r549)
                                                                           (combine529
                                                                             xr*551
                                                                             r549))
                                                                       '#f)
                                                                   '#f)))
                                                           (if (memv
                                                                 t547
                                                                 '(atom))
                                                               (if (equal?
                                                                     (vector-ref
                                                                       p544
                                                                       '1)
                                                                     (strip522
                                                                       e545
                                                                       w543))
                                                                   r542
                                                                   '#f)
                                                               (if (memv
                                                                     t547
                                                                     '(vector))
                                                                   (if (vector?
                                                                         e545)
                                                                       (match531
                                                                         (vector->list
                                                                           e545)
                                                                         (vector-ref
                                                                           p544
                                                                           '1)
                                                                         w543
                                                                         r542)
                                                                       '#f)
                                                                   (void)))))))
                                              (vector-ref p544 '0)))))))
                   (match531 (lambda (e539 p538 w537 r536)
                               (if (not r536)
                                   '#f
                                   (if (eq? p538 'any)
                                       (cons (wrap443 e539 w537) r536)
                                       (if (syntax-object?64 e539)
                                           (match*530
                                             ((lambda (e540)
                                                (if (annotation?132 e540)
                                                    (annotation-expression
                                                      e540)
                                                    e540))
                                               (syntax-object-expression65
                                                 e539))
                                             p538
                                             (join-wraps422
                                               w537
                                               (syntax-object-wrap66 e539))
                                             r536)
                                           (match*530
                                             ((lambda (e541)
                                                (if (annotation?132 e541)
                                                    (annotation-expression
                                                      e541)
                                                    e541))
                                               e539)
                                             p538
                                             w537
                                             r536)))))))
            (set! $syntax-dispatch
              (lambda (e533 p532)
                (if (eq? p532 'any)
                    (list e533)
                    (if (syntax-object?64 e533)
                        (match*530
                          ((lambda (e534)
                             (if (annotation?132 e534)
                                 (annotation-expression e534)
                                 e534))
                            (syntax-object-expression65 e533))
                          p532
                          (syntax-object-wrap66 e533)
                          '())
                        (match*530
                          ((lambda (e535)
                             (if (annotation?132 e535)
                                 (annotation-expression e535)
                                 e535))
                            e533)
                          p532
                          '(())
                          '()))))))))))))
($sc-put-cte
  '#(syntax-object with-syntax ((top) #(ribcage #(with-syntax) #((top)) #(with-syntax))))
  (lambda (x2531)
    ((lambda (tmp2532)
       ((lambda (tmp2533)
          (if tmp2533
              (apply
                (lambda (_2536 e12535 e22534)
                  (cons
                    '#(syntax-object begin ((top) #(ribcage #(_ e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                    (cons e12535 e22534)))
                tmp2533)
              ((lambda (tmp2538)
                 (if tmp2538
                     (apply
                       (lambda (_2543 out2542 in2541 e12540 e22539)
                         (list
                           '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                           in2541
                           '()
                           (list
                             out2542
                             (cons
                               '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                               (cons e12540 e22539)))))
                       tmp2538)
                     ((lambda (tmp2545)
                        (if tmp2545
                            (apply
                              (lambda (_2550 out2549 in2548 e12547 e22546)
                                (list
                                  '#(syntax-object syntax-case ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                  (cons
                                    '#(syntax-object list ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                    in2548)
                                  '()
                                  (list
                                    out2549
                                    (cons
                                      '#(syntax-object begin ((top) #(ribcage #(_ out in e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                      (cons e12547 e22546)))))
                              tmp2545)
                            (syntax-error tmp2532)))
                       ($syntax-dispatch
                         tmp2532
                         '(any #(each (any any)) any . each-any)))))
                ($syntax-dispatch
                  tmp2532
                  '(any ((any any)) any . each-any)))))
         ($syntax-dispatch tmp2532 '(any () any . each-any))))
      x2531))
  '*top*)
($sc-put-cte
  '#(syntax-object with-implicit ((top) #(ribcage #(with-implicit) #((top)) #(with-implicit))))
  (lambda (x2554)
    ((lambda (tmp2555)
       ((lambda (tmp2556)
          (if (if tmp2556
                  (apply
                    (lambda (dummy2561 tid2560 id2559 e12558 e22557)
                      (andmap identifier? (cons tid2560 id2559)))
                    tmp2556)
                  '#f)
              (apply
                (lambda (dummy2567 tid2566 id2565 e12564 e22563)
                  (list
                    '#(syntax-object begin ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                    (list
                      '#(syntax-object unless ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                      (list
                        '#(syntax-object identifier? ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                        (list
                          '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                          tid2566))
                      (cons
                        '#(syntax-object syntax-error ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                        (cons
                          (list
                            '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                            tid2566)
                          '#(syntax-object ("non-identifier with-implicit template") ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))))
                    (cons
                      '#(syntax-object with-syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                      (cons
                        (map (lambda (tmp2568)
                               (list
                                 tmp2568
                                 (list
                                   '#(syntax-object datum->syntax-object ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                   (list
                                     '#(syntax-object syntax ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                     tid2566)
                                   (list
                                     '#(syntax-object quote ((top) #(ribcage #(dummy tid id e1 e2) #(("m" top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                     tmp2568))))
                             id2565)
                        (cons e12564 e22563)))))
                tmp2556)
              (syntax-error tmp2555)))
         ($syntax-dispatch
           tmp2555
           '(any (any . each-any) any . each-any))))
      x2554))
  '*top*)
($sc-put-cte
  '#(syntax-object datum ((top) #(ribcage #(datum) #((top)) #(datum))))
  (lambda (x2570)
    ((lambda (tmp2571)
       ((lambda (tmp2572)
          (if tmp2572
              (apply
                (lambda (dummy2574 x2573)
                  (list
                    '#(syntax-object syntax-object->datum ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                    (list
                      '#(syntax-object syntax ((top) #(ribcage #(dummy x) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                      x2573)))
                tmp2572)
              (syntax-error tmp2571)))
         ($syntax-dispatch tmp2571 '(any any))))
      x2570))
  '*top*)
($sc-put-cte
  '#(syntax-object syntax-rules ((top) #(ribcage #(syntax-rules) #((top)) #(syntax-rules))))
  (lambda (x2575)
    (letrec ((clause2576 (lambda (y2592)
                           ((lambda (tmp2593)
                              ((lambda (tmp2594)
                                 (if tmp2594
                                     (apply
                                       (lambda (keyword2597 pattern2596
                                                template2595)
                                         (list
                                           (cons
                                             '#(syntax-object dummy ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                             pattern2596)
                                           (list
                                             '#(syntax-object syntax ((top) #(ribcage #(keyword pattern template) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                             template2595)))
                                       tmp2594)
                                     ((lambda (tmp2598)
                                        (if tmp2598
                                            (apply
                                              (lambda (keyword2602
                                                       pattern2601
                                                       fender2600
                                                       template2599)
                                                (list
                                                  (cons
                                                    '#(syntax-object dummy ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                    pattern2601)
                                                  fender2600
                                                  (list
                                                    '#(syntax-object syntax ((top) #(ribcage #(keyword pattern fender template) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(y) #((top)) #("i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                    template2599)))
                                              tmp2598)
                                            ((lambda (_2603)
                                               (syntax-error x2575))
                                              tmp2593)))
                                       ($syntax-dispatch
                                         tmp2593
                                         '((any . any) any any)))))
                                ($syntax-dispatch
                                  tmp2593
                                  '((any . any) any))))
                             y2592))))
      ((lambda (tmp2577)
         ((lambda (tmp2578)
            (if (if tmp2578
                    (apply
                      (lambda (_2581 k2580 cl2579)
                        (andmap identifier? k2580))
                      tmp2578)
                    '#f)
                (apply
                  (lambda (_2585 k2584 cl2583)
                    ((lambda (tmp2586)
                       ((lambda (tmp2588)
                          (if tmp2588
                              (apply
                                (lambda (cl2589)
                                  (list
                                    '#(syntax-object lambda ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                    '#(syntax-object (x) ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                    (cons
                                      '#(syntax-object syntax-case ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                      (cons
                                        '#(syntax-object x ((top) #(ribcage #(cl) #((top)) #("i")) #(ribcage #(_ k cl) #((top) (top) (top)) #("i" "i" "i")) #(ribcage (clause) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                        (cons k2584 cl2589)))))
                                tmp2588)
                              (syntax-error tmp2586)))
                         ($syntax-dispatch tmp2586 'each-any)))
                      (map clause2576 cl2583)))
                  tmp2578)
                (syntax-error tmp2577)))
           ($syntax-dispatch tmp2577 '(any each-any . each-any))))
        x2575)))
  '*top*)
($sc-put-cte
  '#(syntax-object or ((top) #(ribcage #(or) #((top)) #(or))))
  (lambda (x2604)
    ((lambda (tmp2605)
       ((lambda (tmp2606)
          (if tmp2606
              (apply
                (lambda (_2607)
                  '#(syntax-object #f ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                tmp2606)
              ((lambda (tmp2608)
                 (if tmp2608
                     (apply (lambda (_2610 e2609) e2609) tmp2608)
                     ((lambda (tmp2611)
                        (if tmp2611
                            (apply
                              (lambda (_2615 e12614 e22613 e32612)
                                (list
                                  '#(syntax-object let ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                  (list
                                    (list
                                      '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                      e12614))
                                  (list
                                    '#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                    '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                    '#(syntax-object t ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                    (cons
                                      '#(syntax-object or ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                      (cons e22613 e32612)))))
                              tmp2611)
                            (syntax-error tmp2605)))
                       ($syntax-dispatch
                         tmp2605
                         '(any any any . each-any)))))
                ($syntax-dispatch tmp2605 '(any any)))))
         ($syntax-dispatch tmp2605 '(any))))
      x2604))
  '*top*)
($sc-put-cte
  '#(syntax-object and ((top) #(ribcage #(and) #((top)) #(and))))
  (lambda (x2617)
    ((lambda (tmp2618)
       ((lambda (tmp2619)
          (if tmp2619
              (apply
                (lambda (_2623 e12622 e22621 e32620)
                  (cons
                    '#(syntax-object if ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                    (cons
                      e12622
                      (cons
                        (cons
                          '#(syntax-object and ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                          (cons e22621 e32620))
                        '#(syntax-object (#f) ((top) #(ribcage #(_ e1 e2 e3) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))))
                tmp2619)
              ((lambda (tmp2625)
                 (if tmp2625
                     (apply (lambda (_2627 e2626) e2626) tmp2625)
                     ((lambda (tmp2628)
                        (if tmp2628
                            (apply
                              (lambda (_2629)
                                '#(syntax-object #t ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                              tmp2628)
                            (syntax-error tmp2618)))
                       ($syntax-dispatch tmp2618 '(any)))))
                ($syntax-dispatch tmp2618 '(any any)))))
         ($syntax-dispatch tmp2618 '(any any any . each-any))))
      x2617))
  '*top*)
($sc-put-cte
  '#(syntax-object let ((top) #(ribcage #(let) #((top)) #(let))))
  (lambda (x2630)
    ((lambda (tmp2631)
       ((lambda (tmp2632)
          (if (if tmp2632
                  (apply
                    (lambda (_2637 x2636 v2635 e12634 e22633)
                      (andmap identifier? x2636))
                    tmp2632)
                  '#f)
              (apply
                (lambda (_2643 x2642 v2641 e12640 e22639)
                  (cons
                    (cons
                      '#(syntax-object lambda ((top) #(ribcage #(_ x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                      (cons x2642 (cons e12640 e22639)))
                    v2641))
                tmp2632)
              ((lambda (tmp2647)
                 (if (if tmp2647
                         (apply
                           (lambda (_2653 f2652 x2651 v2650 e12649 e22648)
                             (andmap identifier? (cons f2652 x2651)))
                           tmp2647)
                         '#f)
                     (apply
                       (lambda (_2660 f2659 x2658 v2657 e12656 e22655)
                         (cons
                           (list
                             '#(syntax-object letrec ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                             (list
                               (list
                                 f2659
                                 (cons
                                   '#(syntax-object lambda ((top) #(ribcage #(_ f x v e1 e2) #((top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                   (cons x2658 (cons e12656 e22655)))))
                             f2659)
                           v2657))
                       tmp2647)
                     (syntax-error tmp2631)))
                ($syntax-dispatch
                  tmp2631
                  '(any any #(each (any any)) any . each-any)))))
         ($syntax-dispatch
           tmp2631
           '(any #(each (any any)) any . each-any))))
      x2630))
  '*top*)
($sc-put-cte
  '#(syntax-object let* ((top) #(ribcage #(let*) #((top)) #(let*))))
  (lambda (x2664)
    ((lambda (tmp2665)
       ((lambda (tmp2666)
          (if (if tmp2666
                  (apply
                    (lambda (let*2671 x2670 v2669 e12668 e22667)
                      (andmap identifier? x2670))
                    tmp2666)
                  '#f)
              (apply
                (lambda (let*2677 x2676 v2675 e12674 e22673)
                  ((letrec ((f2678 (lambda (bindings2679)
                                     (if (null? bindings2679)
                                         (cons
                                           '#(syntax-object let ((top) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                           (cons '() (cons e12674 e22673)))
                                         ((lambda (tmp2681)
                                            ((lambda (tmp2682)
                                               (if tmp2682
                                                   (apply
                                                     (lambda (body2684
                                                              binding2683)
                                                       (list
                                                         '#(syntax-object let ((top) #(ribcage #(body binding) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(bindings) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(let* x v e1 e2) #((top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                         (list binding2683)
                                                         body2684))
                                                     tmp2682)
                                                   (syntax-error tmp2681)))
                                              ($syntax-dispatch
                                                tmp2681
                                                '(any any))))
                                           (list
                                             (f2678 (cdr bindings2679))
                                             (car bindings2679)))))))
                     f2678)
                    (map list x2676 v2675)))
                tmp2666)
              (syntax-error tmp2665)))
         ($syntax-dispatch
           tmp2665
           '(any #(each (any any)) any . each-any))))
      x2664))
  '*top*)
($sc-put-cte
  '#(syntax-object cond ((top) #(ribcage #(cond) #((top)) #(cond))))
  (lambda (x2687)
    ((lambda (tmp2688)
       ((lambda (tmp2689)
          (if tmp2689
              (apply
                (lambda (_2692 m12691 m22690)
                  ((letrec ((f2693 (lambda (clause2695 clauses2694)
                                     (if (null? clauses2694)
                                         ((lambda (tmp2696)
                                            ((lambda (tmp2697)
                                               (if tmp2697
                                                   (apply
                                                     (lambda (e12699
                                                              e22698)
                                                       (cons
                                                         '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                         (cons
                                                           e12699
                                                           e22698)))
                                                     tmp2697)
                                                   ((lambda (tmp2701)
                                                      (if tmp2701
                                                          (apply
                                                            (lambda (e02702)
                                                              (cons
                                                                '#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                (cons
                                                                  (list
                                                                    (list
                                                                      '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                      e02702))
                                                                  '#(syntax-object ((if t t)) ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))
                                                            tmp2701)
                                                          ((lambda (tmp2703)
                                                             (if tmp2703
                                                                 (apply
                                                                   (lambda (e02705
                                                                            e12704)
                                                                     (list
                                                                       '#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                       (list
                                                                         (list
                                                                           '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                           e02705))
                                                                       (list
                                                                         '#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                         '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                         (cons
                                                                           e12704
                                                                           '#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))))
                                                                   tmp2703)
                                                                 ((lambda (tmp2706)
                                                                    (if tmp2706
                                                                        (apply
                                                                          (lambda (e02709
                                                                                   e12708
                                                                                   e22707)
                                                                            (list
                                                                              '#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                              e02709
                                                                              (cons
                                                                                '#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                                (cons
                                                                                  e12708
                                                                                  e22707))))
                                                                          tmp2706)
                                                                        ((lambda (_2711)
                                                                           (syntax-error
                                                                             x2687))
                                                                          tmp2696)))
                                                                   ($syntax-dispatch
                                                                     tmp2696
                                                                     '(any any
                                                                           .
                                                                           each-any)))))
                                                            ($syntax-dispatch
                                                              tmp2696
                                                              '(any #(free-id
                                                                      #(syntax-object => ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                                    any)))))
                                                     ($syntax-dispatch
                                                       tmp2696
                                                       '(any)))))
                                              ($syntax-dispatch
                                                tmp2696
                                                '(#(free-id
                                                    #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                   any
                                                   .
                                                   each-any))))
                                           clause2695)
                                         ((lambda (tmp2712)
                                            ((lambda (rest2713)
                                               ((lambda (tmp2714)
                                                  ((lambda (tmp2715)
                                                     (if tmp2715
                                                         (apply
                                                           (lambda (e02716)
                                                             (list
                                                               '#(syntax-object let ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                               (list
                                                                 (list
                                                                   '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                   e02716))
                                                               (list
                                                                 '#(syntax-object if ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                 '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                 '#(syntax-object t ((top) #(ribcage #(e0) #((top)) #("i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                 rest2713)))
                                                           tmp2715)
                                                         ((lambda (tmp2717)
                                                            (if tmp2717
                                                                (apply
                                                                  (lambda (e02719
                                                                           e12718)
                                                                    (list
                                                                      '#(syntax-object let ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                      (list
                                                                        (list
                                                                          '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                          e02719))
                                                                      (list
                                                                        '#(syntax-object if ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                        '#(syntax-object t ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                        (cons
                                                                          e12718
                                                                          '#(syntax-object (t) ((top) #(ribcage #(e0 e1) #((top) (top)) #("i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                                        rest2713)))
                                                                  tmp2717)
                                                                ((lambda (tmp2720)
                                                                   (if tmp2720
                                                                       (apply
                                                                         (lambda (e02723
                                                                                  e12722
                                                                                  e22721)
                                                                           (list
                                                                             '#(syntax-object if ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                             e02723
                                                                             (cons
                                                                               '#(syntax-object begin ((top) #(ribcage #(e0 e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                               (cons
                                                                                 e12722
                                                                                 e22721))
                                                                             rest2713))
                                                                         tmp2720)
                                                                       ((lambda (_2725)
                                                                          (syntax-error
                                                                            x2687))
                                                                         tmp2714)))
                                                                  ($syntax-dispatch
                                                                    tmp2714
                                                                    '(any any
                                                                          .
                                                                          each-any)))))
                                                           ($syntax-dispatch
                                                             tmp2714
                                                             '(any #(free-id
                                                                     #(syntax-object => ((top) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ m1 m2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                                   any)))))
                                                    ($syntax-dispatch
                                                      tmp2714
                                                      '(any))))
                                                 clause2695))
                                              tmp2712))
                                           (f2693
                                             (car clauses2694)
                                             (cdr clauses2694)))))))
                     f2693)
                    m12691
                    m22690))
                tmp2689)
              (syntax-error tmp2688)))
         ($syntax-dispatch tmp2688 '(any any . each-any))))
      x2687))
  '*top*)
($sc-put-cte
  '#(syntax-object do ((top) #(ribcage #(do) #((top)) #(do))))
  (lambda (orig-x2727)
    ((lambda (tmp2728)
       ((lambda (tmp2729)
          (if tmp2729
              (apply
                (lambda (_2736 var2735 init2734 step2733 e02732 e12731
                         c2730)
                  ((lambda (tmp2737)
                     ((lambda (tmp2747)
                        (if tmp2747
                            (apply
                              (lambda (step2748)
                                ((lambda (tmp2749)
                                   ((lambda (tmp2751)
                                      (if tmp2751
                                          (apply
                                            (lambda ()
                                              (list
                                                '#(syntax-object let ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                '#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                (map list var2735 init2734)
                                                (list
                                                  '#(syntax-object if ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                  (list
                                                    '#(syntax-object not ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                    e02732)
                                                  (cons
                                                    '#(syntax-object begin ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                    (append
                                                      c2730
                                                      (list
                                                        (cons
                                                          '#(syntax-object do ((top) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                          step2748)))))))
                                            tmp2751)
                                          ((lambda (tmp2756)
                                             (if tmp2756
                                                 (apply
                                                   (lambda (e12758 e22757)
                                                     (list
                                                       '#(syntax-object let ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                       '#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                       (map list
                                                            var2735
                                                            init2734)
                                                       (list
                                                         '#(syntax-object if ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                         e02732
                                                         (cons
                                                           '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                           (cons
                                                             e12758
                                                             e22757))
                                                         (cons
                                                           '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                           (append
                                                             c2730
                                                             (list
                                                               (cons
                                                                 '#(syntax-object do ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage #(step) #((top)) #("i")) #(ribcage #(_ var init step e0 e1 c) #((top) (top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(orig-x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                 step2748)))))))
                                                   tmp2756)
                                                 (syntax-error tmp2749)))
                                            ($syntax-dispatch
                                              tmp2749
                                              '(any . each-any)))))
                                     ($syntax-dispatch tmp2749 '())))
                                  e12731))
                              tmp2747)
                            (syntax-error tmp2737)))
                       ($syntax-dispatch tmp2737 'each-any)))
                    (map (lambda (v2741 s2740)
                           ((lambda (tmp2742)
                              ((lambda (tmp2743)
                                 (if tmp2743
                                     (apply (lambda () v2741) tmp2743)
                                     ((lambda (tmp2744)
                                        (if tmp2744
                                            (apply
                                              (lambda (e2745) e2745)
                                              tmp2744)
                                            ((lambda (_2746)
                                               (syntax-error orig-x2727))
                                              tmp2742)))
                                       ($syntax-dispatch tmp2742 '(any)))))
                                ($syntax-dispatch tmp2742 '())))
                             s2740))
                         var2735
                         step2733)))
                tmp2729)
              (syntax-error tmp2728)))
         ($syntax-dispatch
           tmp2728
           '(any #(each (any any . any))
                 (any . each-any)
                 .
                 each-any))))
      orig-x2727))
  '*top*)
($sc-put-cte
  '#(syntax-object quasiquote ((top) #(ribcage #(quasiquote) #((top)) #(quasiquote))))
  ((lambda ()
     (letrec ((quasi2764 (lambda (p2900 lev2899)
                           ((lambda (tmp2901)
                              ((lambda (tmp2902)
                                 (if tmp2902
                                     (apply
                                       (lambda (p2903)
                                         (if (= lev2899 '0)
                                             (list
                                               '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                               p2903)
                                             (quasicons2766
                                               '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                               (quasi2764
                                                 (list p2903)
                                                 (- lev2899 '1)))))
                                       tmp2902)
                                     ((lambda (tmp2904)
                                        (if tmp2904
                                            (apply
                                              (lambda (p2905)
                                                (quasicons2766
                                                  '#(syntax-object ("quote" quasiquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                  (quasi2764
                                                    (list p2905)
                                                    (+ lev2899 '1))))
                                              tmp2904)
                                            ((lambda (tmp2906)
                                               (if tmp2906
                                                   (apply
                                                     (lambda (p2908 q2907)
                                                       ((lambda (tmp2909)
                                                          ((lambda (tmp2910)
                                                             (if tmp2910
                                                                 (apply
                                                                   (lambda (p2911)
                                                                     (if (= lev2899
                                                                            '0)
                                                                         (quasilist*2768
                                                                           (map (lambda (tmp2912)
                                                                                  (list
                                                                                    '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                    tmp2912))
                                                                                p2911)
                                                                           (quasi2764
                                                                             q2907
                                                                             lev2899))
                                                                         (quasicons2766
                                                                           (quasicons2766
                                                                             '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                             (quasi2764
                                                                               p2911
                                                                               (- lev2899
                                                                                  '1)))
                                                                           (quasi2764
                                                                             q2907
                                                                             lev2899))))
                                                                   tmp2910)
                                                                 ((lambda (tmp2914)
                                                                    (if tmp2914
                                                                        (apply
                                                                          (lambda (p2915)
                                                                            (if (= lev2899
                                                                                   '0)
                                                                                (quasiappend2767
                                                                                  (map (lambda (tmp2916)
                                                                                         (list
                                                                                           '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                           tmp2916))
                                                                                       p2915)
                                                                                  (quasi2764
                                                                                    q2907
                                                                                    lev2899))
                                                                                (quasicons2766
                                                                                  (quasicons2766
                                                                                    '#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                    (quasi2764
                                                                                      p2915
                                                                                      (- lev2899
                                                                                         '1)))
                                                                                  (quasi2764
                                                                                    q2907
                                                                                    lev2899))))
                                                                          tmp2914)
                                                                        ((lambda (_2918)
                                                                           (quasicons2766
                                                                             (quasi2764
                                                                               p2908
                                                                               lev2899)
                                                                             (quasi2764
                                                                               q2907
                                                                               lev2899)))
                                                                          tmp2909)))
                                                                   ($syntax-dispatch
                                                                     tmp2909
                                                                     '(#(free-id
                                                                         #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                        .
                                                                        each-any)))))
                                                            ($syntax-dispatch
                                                              tmp2909
                                                              '(#(free-id
                                                                  #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                                 .
                                                                 each-any))))
                                                         p2908))
                                                     tmp2906)
                                                   ((lambda (tmp2919)
                                                      (if tmp2919
                                                          (apply
                                                            (lambda (x2920)
                                                              (quasivector2769
                                                                (vquasi2765
                                                                  x2920
                                                                  lev2899)))
                                                            tmp2919)
                                                          ((lambda (p2922)
                                                             (list
                                                               '#(syntax-object "quote" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                               p2922))
                                                            tmp2901)))
                                                     ($syntax-dispatch
                                                       tmp2901
                                                       '#(vector
                                                          each-any)))))
                                              ($syntax-dispatch
                                                tmp2901
                                                '(any . any)))))
                                       ($syntax-dispatch
                                         tmp2901
                                         '(#(free-id
                                             #(syntax-object quasiquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                            any)))))
                                ($syntax-dispatch
                                  tmp2901
                                  '(#(free-id
                                      #(syntax-object unquote ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                     any))))
                             p2900)))
              (vquasi2765 (lambda (p2883 lev2882)
                            ((lambda (tmp2884)
                               ((lambda (tmp2885)
                                  (if tmp2885
                                      (apply
                                        (lambda (p2887 q2886)
                                          ((lambda (tmp2888)
                                             ((lambda (tmp2889)
                                                (if tmp2889
                                                    (apply
                                                      (lambda (p2890)
                                                        (if (= lev2882 '0)
                                                            (quasilist*2768
                                                              (map (lambda (tmp2891)
                                                                     (list
                                                                       '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                       tmp2891))
                                                                   p2890)
                                                              (vquasi2765
                                                                q2886
                                                                lev2882))
                                                            (quasicons2766
                                                              (quasicons2766
                                                                '#(syntax-object ("quote" unquote) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                (quasi2764
                                                                  p2890
                                                                  (- lev2882
                                                                     '1)))
                                                              (vquasi2765
                                                                q2886
                                                                lev2882))))
                                                      tmp2889)
                                                    ((lambda (tmp2893)
                                                       (if tmp2893
                                                           (apply
                                                             (lambda (p2894)
                                                               (if (= lev2882
                                                                      '0)
                                                                   (quasiappend2767
                                                                     (map (lambda (tmp2895)
                                                                            (list
                                                                              '#(syntax-object "value" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                              tmp2895))
                                                                          p2894)
                                                                     (vquasi2765
                                                                       q2886
                                                                       lev2882))
                                                                   (quasicons2766
                                                                     (quasicons2766
                                                                       '#(syntax-object ("quote" unquote-splicing) ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                       (quasi2764
                                                                         p2894
                                                                         (- lev2882
                                                                            '1)))
                                                                     (vquasi2765
                                                                       q2886
                                                                       lev2882))))
                                                             tmp2893)
                                                           ((lambda (_2897)
                                                              (quasicons2766
                                                                (quasi2764
                                                                  p2887
                                                                  lev2882)
                                                                (vquasi2765
                                                                  q2886
                                                                  lev2882)))
                                                             tmp2888)))
                                                      ($syntax-dispatch
                                                        tmp2888
                                                        '(#(free-id
                                                            #(syntax-object unquote-splicing ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                           .
                                                           each-any)))))
                                               ($syntax-dispatch
                                                 tmp2888
                                                 '(#(free-id
                                                     #(syntax-object unquote ((top) #(ribcage #(p q) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                                    .
                                                    each-any))))
                                            p2887))
                                        tmp2885)
                                      ((lambda (tmp2898)
                                         (if tmp2898
                                             (apply
                                               (lambda ()
                                                 '#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(p lev) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t))))
                                               tmp2898)
                                             (syntax-error tmp2884)))
                                        ($syntax-dispatch tmp2884 '()))))
                                 ($syntax-dispatch tmp2884 '(any . any))))
                              p2883)))
              (quasicons2766 (lambda (x2865 y2864)
                               ((lambda (tmp2866)
                                  ((lambda (tmp2867)
                                     (if tmp2867
                                         (apply
                                           (lambda (x2869 y2868)
                                             ((lambda (tmp2870)
                                                ((lambda (tmp2871)
                                                   (if tmp2871
                                                       (apply
                                                         (lambda (dy2872)
                                                           ((lambda (tmp2873)
                                                              ((lambda (tmp2874)
                                                                 (if tmp2874
                                                                     (apply
                                                                       (lambda (dx2875)
                                                                         (list
                                                                           '#(syntax-object "quote" ((top) #(ribcage #(dx) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                           (cons
                                                                             dx2875
                                                                             dy2872)))
                                                                       tmp2874)
                                                                     ((lambda (_2876)
                                                                        (if (null?
                                                                              dy2872)
                                                                            (list
                                                                              '#(syntax-object "list" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                              x2869)
                                                                            (list
                                                                              '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(dy) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                              x2869
                                                                              y2868)))
                                                                       tmp2873)))
                                                                ($syntax-dispatch
                                                                  tmp2873
                                                                  '(#(atom
                                                                      "quote")
                                                                     any))))
                                                             x2869))
                                                         tmp2871)
                                                       ((lambda (tmp2877)
                                                          (if tmp2877
                                                              (apply
                                                                (lambda (stuff2878)
                                                                  (cons
                                                                    '#(syntax-object "list" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                    (cons
                                                                      x2869
                                                                      stuff2878)))
                                                                tmp2877)
                                                              ((lambda (tmp2879)
                                                                 (if tmp2879
                                                                     (apply
                                                                       (lambda (stuff2880)
                                                                         (cons
                                                                           '#(syntax-object "list*" ((top) #(ribcage #(stuff) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                           (cons
                                                                             x2869
                                                                             stuff2880)))
                                                                       tmp2879)
                                                                     ((lambda (_2881)
                                                                        (list
                                                                          '#(syntax-object "list*" ((top) #(ribcage #(_) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                          x2869
                                                                          y2868))
                                                                       tmp2870)))
                                                                ($syntax-dispatch
                                                                  tmp2870
                                                                  '(#(atom
                                                                      "list*")
                                                                     .
                                                                     any)))))
                                                         ($syntax-dispatch
                                                           tmp2870
                                                           '(#(atom "list")
                                                              .
                                                              any)))))
                                                  ($syntax-dispatch
                                                    tmp2870
                                                    '(#(atom "quote")
                                                       any))))
                                               y2868))
                                           tmp2867)
                                         (syntax-error tmp2866)))
                                    ($syntax-dispatch tmp2866 '(any any))))
                                 (list x2865 y2864))))
              (quasiappend2767 (lambda (x2851 y2850)
                                 ((lambda (tmp2852)
                                    ((lambda (tmp2853)
                                       (if tmp2853
                                           (apply
                                             (lambda ()
                                               (if (null? x2851)
                                                   '#(syntax-object ("quote" ()) ((top) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                   (if (null? (cdr x2851))
                                                       (car x2851)
                                                       ((lambda (tmp2854)
                                                          ((lambda (tmp2855)
                                                             (if tmp2855
                                                                 (apply
                                                                   (lambda (p2856)
                                                                     (cons
                                                                       '#(syntax-object "append" ((top) #(ribcage #(p) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                       p2856))
                                                                   tmp2855)
                                                                 (syntax-error
                                                                   tmp2854)))
                                                            ($syntax-dispatch
                                                              tmp2854
                                                              'each-any)))
                                                         x2851))))
                                             tmp2853)
                                           ((lambda (_2858)
                                              (if (null? x2851)
                                                  y2850
                                                  ((lambda (tmp2859)
                                                     ((lambda (tmp2860)
                                                        (if tmp2860
                                                            (apply
                                                              (lambda (p2862
                                                                       y2861)
                                                                (cons
                                                                  '#(syntax-object "append" ((top) #(ribcage #(p y) #((top) (top)) #("i" "i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                  (append
                                                                    p2862
                                                                    (list
                                                                      y2861))))
                                                              tmp2860)
                                                            (syntax-error
                                                              tmp2859)))
                                                       ($syntax-dispatch
                                                         tmp2859
                                                         '(each-any any))))
                                                    (list x2851 y2850))))
                                             tmp2852)))
                                      ($syntax-dispatch
                                        tmp2852
                                        '(#(atom "quote") ()))))
                                   y2850)))
              (quasilist*2768 (lambda (x2847 y2846)
                                ((letrec ((f2848 (lambda (x2849)
                                                   (if (null? x2849)
                                                       y2846
                                                       (quasicons2766
                                                         (car x2849)
                                                         (f2848
                                                           (cdr x2849)))))))
                                   f2848)
                                  x2847)))
              (quasivector2769 (lambda (x2817)
                                 ((lambda (tmp2818)
                                    ((lambda (tmp2819)
                                       (if tmp2819
                                           (apply
                                             (lambda (x2820)
                                               (list
                                                 '#(syntax-object "quote" ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                 (list->vector x2820)))
                                             tmp2819)
                                           ((lambda (_2822)
                                              ((letrec ((f2823 (lambda (y2825
                                                                        k2824)
                                                                 ((lambda (tmp2826)
                                                                    ((lambda (tmp2827)
                                                                       (if tmp2827
                                                                           (apply
                                                                             (lambda (y2828)
                                                                               (k2824
                                                                                 (map (lambda (tmp2829)
                                                                                        (list
                                                                                          '#(syntax-object "quote" ((top) #(ribcage #(y) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                          tmp2829))
                                                                                      y2828)))
                                                                             tmp2827)
                                                                           ((lambda (tmp2830)
                                                                              (if tmp2830
                                                                                  (apply
                                                                                    (lambda (y2831)
                                                                                      (k2824
                                                                                        y2831))
                                                                                    tmp2830)
                                                                                  ((lambda (tmp2833)
                                                                                     (if tmp2833
                                                                                         (apply
                                                                                           (lambda (y2835
                                                                                                    z2834)
                                                                                             (f2823
                                                                                               z2834
                                                                                               (lambda (ls2836)
                                                                                                 (k2824
                                                                                                   (append
                                                                                                     y2835
                                                                                                     ls2836)))))
                                                                                           tmp2833)
                                                                                         ((lambda (else2838)
                                                                                            ((lambda (tmp2839)
                                                                                               ((lambda (t72840)
                                                                                                  (list
                                                                                                    '#(syntax-object "list->vector" ((top) #(ribcage #(t7) #(("m" tmp)) #("i")) #(ribcage #(else) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(y k) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                                    t72840))
                                                                                                 tmp2839))
                                                                                              x2817))
                                                                                           tmp2826)))
                                                                                    ($syntax-dispatch
                                                                                      tmp2826
                                                                                      '(#(atom
                                                                                          "list*")
                                                                                         .
                                                                                         #(each+
                                                                                           any
                                                                                           (any)
                                                                                           ()))))))
                                                                             ($syntax-dispatch
                                                                               tmp2826
                                                                               '(#(atom
                                                                                   "list")
                                                                                  .
                                                                                  each-any)))))
                                                                      ($syntax-dispatch
                                                                        tmp2826
                                                                        '(#(atom
                                                                            "quote")
                                                                           each-any))))
                                                                   y2825))))
                                                 f2823)
                                                x2817
                                                (lambda (ls2841)
                                                  ((lambda (tmp2842)
                                                     ((lambda (tmp2843)
                                                        (if tmp2843
                                                            (apply
                                                              (lambda (t82844)
                                                                (cons
                                                                  '#(syntax-object "vector" ((top) #(ribcage #(t8) #(("m" tmp)) #("i")) #(ribcage () () ()) #(ribcage #(ls) #((top)) #("i")) #(ribcage #(_) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                  t82844))
                                                              tmp2843)
                                                            (syntax-error
                                                              tmp2842)))
                                                       ($syntax-dispatch
                                                         tmp2842
                                                         'each-any)))
                                                    ls2841))))
                                             tmp2818)))
                                      ($syntax-dispatch
                                        tmp2818
                                        '(#(atom "quote") each-any))))
                                   x2817)))
              (emit2770 (lambda (x2776)
                          ((lambda (tmp2777)
                             ((lambda (tmp2778)
                                (if tmp2778
                                    (apply
                                      (lambda (x2779)
                                        (list
                                          '#(syntax-object quote ((top) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                          x2779))
                                      tmp2778)
                                    ((lambda (tmp2780)
                                       (if tmp2780
                                           (apply
                                             (lambda (x2781)
                                               ((lambda (tmp2782)
                                                  ((lambda (tmp2784)
                                                     (if tmp2784
                                                         (apply
                                                           (lambda (t12785)
                                                             (cons
                                                               '#(syntax-object list ((top) #(ribcage #(t1) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                               t12785))
                                                           tmp2784)
                                                         (syntax-error
                                                           tmp2782)))
                                                    ($syntax-dispatch
                                                      tmp2782
                                                      'each-any)))
                                                 (map emit2770 x2781)))
                                             tmp2780)
                                           ((lambda (tmp2787)
                                              (if tmp2787
                                                  (apply
                                                    (lambda (x2789 y2788)
                                                      ((letrec ((f2790 (lambda (x*2791)
                                                                         (if (null?
                                                                               x*2791)
                                                                             (emit2770
                                                                               y2788)
                                                                             ((lambda (tmp2792)
                                                                                ((lambda (tmp2793)
                                                                                   (if tmp2793
                                                                                       (apply
                                                                                         (lambda (t32795
                                                                                                  t22794)
                                                                                           (list
                                                                                             '#(syntax-object cons ((top) #(ribcage #(t3 t2) #(("m" tmp) ("m" tmp)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x*) #((top)) #("i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(x y) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                             t32795
                                                                                             t22794))
                                                                                         tmp2793)
                                                                                       (syntax-error
                                                                                         tmp2792)))
                                                                                  ($syntax-dispatch
                                                                                    tmp2792
                                                                                    '(any any))))
                                                                               (list
                                                                                 (emit2770
                                                                                   (car x*2791))
                                                                                 (f2790
                                                                                   (cdr x*2791))))))))
                                                         f2790)
                                                        x2789))
                                                    tmp2787)
                                                  ((lambda (tmp2797)
                                                     (if tmp2797
                                                         (apply
                                                           (lambda (x2798)
                                                             ((lambda (tmp2799)
                                                                ((lambda (tmp2801)
                                                                   (if tmp2801
                                                                       (apply
                                                                         (lambda (t42802)
                                                                           (cons
                                                                             '#(syntax-object append ((top) #(ribcage #(t4) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                             t42802))
                                                                         tmp2801)
                                                                       (syntax-error
                                                                         tmp2799)))
                                                                  ($syntax-dispatch
                                                                    tmp2799
                                                                    'each-any)))
                                                               (map emit2770
                                                                    x2798)))
                                                           tmp2797)
                                                         ((lambda (tmp2804)
                                                            (if tmp2804
                                                                (apply
                                                                  (lambda (x2805)
                                                                    ((lambda (tmp2806)
                                                                       ((lambda (tmp2808)
                                                                          (if tmp2808
                                                                              (apply
                                                                                (lambda (t52809)
                                                                                  (cons
                                                                                    '#(syntax-object vector ((top) #(ribcage #(t5) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                    t52809))
                                                                                tmp2808)
                                                                              (syntax-error
                                                                                tmp2806)))
                                                                         ($syntax-dispatch
                                                                           tmp2806
                                                                           'each-any)))
                                                                      (map emit2770
                                                                           x2805)))
                                                                  tmp2804)
                                                                ((lambda (tmp2811)
                                                                   (if tmp2811
                                                                       (apply
                                                                         (lambda (x2812)
                                                                           ((lambda (tmp2813)
                                                                              ((lambda (t62814)
                                                                                 (list
                                                                                   '#(syntax-object list->vector ((top) #(ribcage #(t6) #(("m" tmp)) #("i")) #(ribcage #(x) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(ribcage (emit quasivector quasilist* quasiappend quasicons vquasi quasi) ((top) (top) (top) (top) (top) (top) (top)) ("i" "i" "i" "i" "i" "i" "i")) #(top-ribcage *top* #t)))
                                                                                   t62814))
                                                                                tmp2813))
                                                                             (emit2770
                                                                               x2812)))
                                                                         tmp2811)
                                                                       ((lambda (tmp2815)
                                                                          (if tmp2815
                                                                              (apply
                                                                                (lambda (x2816)
                                                                                  x2816)
                                                                                tmp2815)
                                                                              (syntax-error
                                                                                tmp2777)))
                                                                         ($syntax-dispatch
                                                                           tmp2777
                                                                           '(#(atom
                                                                               "value")
                                                                              any)))))
                                                                  ($syntax-dispatch
                                                                    tmp2777
                                                                    '(#(atom
                                                                        "list->vector")
                                                                       any)))))
                                                           ($syntax-dispatch
                                                             tmp2777
                                                             '(#(atom
                                                                 "vector")
                                                                .
                                                                each-any)))))
                                                    ($syntax-dispatch
                                                      tmp2777
                                                      '(#(atom "append")
                                                         .
                                                         each-any)))))
                                             ($syntax-dispatch
                                               tmp2777
                                               '(#(atom "list*")
                                                  .
                                                  #(each+ any (any)
                                                    ()))))))
                                      ($syntax-dispatch
                                        tmp2777
                                        '(#(atom "list") . each-any)))))
                               ($syntax-dispatch
                                 tmp2777
                                 '(#(atom "quote") any))))
                            x2776))))
       (lambda (x2771)
         ((lambda (tmp2772)
            ((lambda (tmp2773)
               (if tmp2773
                   (apply
                     (lambda (_2775 e2774) (emit2770 (quasi2764 e2774 '0)))
                     tmp2773)
                   (syntax-error tmp2772)))
              ($syntax-dispatch tmp2772 '(any any))))
           x2771)))))
  '*top*)
($sc-put-cte
  '#(syntax-object unquote ((top) #(ribcage #(unquote) #((top)) #(unquote))))
  (lambda (x2923) (syntax-error x2923 '"misplaced"))
  '*top*)
($sc-put-cte
  '#(syntax-object unquote-splicing ((top) #(ribcage #(unquote-splicing) #((top)) #(unquote-splicing))))
  (lambda (x2924) (syntax-error x2924 '"misplaced"))
  '*top*)
($sc-put-cte
  '#(syntax-object quasisyntax ((top) #(ribcage #(quasisyntax) #((top)) #(quasisyntax))))
  (lambda (x2925)
    (letrec ((qs2926 (lambda (q2977 n2976 b*2975 k2974)
                       ((lambda (tmp2978)
                          ((lambda (tmp2979)
                             (if tmp2979
                                 (apply
                                   (lambda (d2980)
                                     (qs2926
                                       d2980
                                       (+ n2976 '1)
                                       b*2975
                                       (lambda (b*2982 dnew2981)
                                         (k2974
                                           b*2982
                                           (if (eq? dnew2981 d2980)
                                               q2977
                                               ((lambda (tmp2983)
                                                  ((lambda (d2984)
                                                     (cons
                                                       '#(syntax-object quasisyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                       d2984))
                                                    tmp2983))
                                                 dnew2981))))))
                                   tmp2979)
                                 ((lambda (tmp2985)
                                    (if (if tmp2985
                                            (apply
                                              (lambda (d2986)
                                                (not (= n2976 '0)))
                                              tmp2985)
                                            '#f)
                                        (apply
                                          (lambda (d2987)
                                            (qs2926
                                              d2987
                                              (- n2976 '1)
                                              b*2975
                                              (lambda (b*2989 dnew2988)
                                                (k2974
                                                  b*2989
                                                  (if (eq? dnew2988 d2987)
                                                      q2977
                                                      ((lambda (tmp2990)
                                                         ((lambda (d2991)
                                                            (cons
                                                              '#(syntax-object unsyntax ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                              d2991))
                                                           tmp2990))
                                                        dnew2988))))))
                                          tmp2985)
                                        ((lambda (tmp2992)
                                           (if (if tmp2992
                                                   (apply
                                                     (lambda (d2993)
                                                       (not (= n2976 '0)))
                                                     tmp2992)
                                                   '#f)
                                               (apply
                                                 (lambda (d2994)
                                                   (qs2926
                                                     d2994
                                                     (- n2976 '1)
                                                     b*2975
                                                     (lambda (b*2996
                                                              dnew2995)
                                                       (k2974
                                                         b*2996
                                                         (if (eq? dnew2995
                                                                  d2994)
                                                             q2977
                                                             ((lambda (tmp2997)
                                                                ((lambda (d2998)
                                                                   (cons
                                                                     '#(syntax-object unsyntax-splicing ((top) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(d) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                     d2998))
                                                                  tmp2997))
                                                               dnew2995))))))
                                                 tmp2992)
                                               ((lambda (tmp2999)
                                                  (if (if tmp2999
                                                          (apply
                                                            (lambda (q3000)
                                                              (= n2976 '0))
                                                            tmp2999)
                                                          '#f)
                                                      (apply
                                                        (lambda (q3001)
                                                          ((lambda (tmp3002)
                                                             ((lambda (tmp3003)
                                                                (if tmp3003
                                                                    (apply
                                                                      (lambda (t3004)
                                                                        (k2974
                                                                          (cons
                                                                            (list
                                                                              t3004
                                                                              q3001)
                                                                            b*2975)
                                                                          t3004))
                                                                      tmp3003)
                                                                    (syntax-error
                                                                      tmp3002)))
                                                               ($syntax-dispatch
                                                                 tmp3002
                                                                 '(any))))
                                                            (generate-temporaries
                                                              (list
                                                                q3001))))
                                                        tmp2999)
                                                      ((lambda (tmp3005)
                                                         (if (if tmp3005
                                                                 (apply
                                                                   (lambda (q3007
                                                                            d3006)
                                                                     (= n2976
                                                                        '0))
                                                                   tmp3005)
                                                                 '#f)
                                                             (apply
                                                               (lambda (q3009
                                                                        d3008)
                                                                 (qs2926
                                                                   d3008
                                                                   n2976
                                                                   b*2975
                                                                   (lambda (b*3011
                                                                            dnew3010)
                                                                     ((lambda (tmp3012)
                                                                        ((lambda (tmp3014)
                                                                           (if tmp3014
                                                                               (apply
                                                                                 (lambda (t3015)
                                                                                   (k2974
                                                                                     (append
                                                                                       (map list
                                                                                            t3015
                                                                                            q3009)
                                                                                       b*3011)
                                                                                     ((lambda (tmp3016)
                                                                                        ((lambda (d3017)
                                                                                           (append
                                                                                             t3015
                                                                                             d3017))
                                                                                          tmp3016))
                                                                                       dnew3010)))
                                                                                 tmp3014)
                                                                               (syntax-error
                                                                                 tmp3012)))
                                                                          ($syntax-dispatch
                                                                            tmp3012
                                                                            'each-any)))
                                                                       (generate-temporaries
                                                                         q3009)))))
                                                               tmp3005)
                                                             ((lambda (tmp3021)
                                                                (if (if tmp3021
                                                                        (apply
                                                                          (lambda (q3023
                                                                                   d3022)
                                                                            (= n2976
                                                                               '0))
                                                                          tmp3021)
                                                                        '#f)
                                                                    (apply
                                                                      (lambda (q3025
                                                                               d3024)
                                                                        (qs2926
                                                                          d3024
                                                                          n2976
                                                                          b*2975
                                                                          (lambda (b*3027
                                                                                   dnew3026)
                                                                            ((lambda (tmp3028)
                                                                               ((lambda (tmp3030)
                                                                                  (if tmp3030
                                                                                      (apply
                                                                                        (lambda (t3031)
                                                                                          (k2974
                                                                                            (append
                                                                                              (map (lambda (tmp3041
                                                                                                            tmp3040)
                                                                                                     (list
                                                                                                       (cons
                                                                                                         tmp3040
                                                                                                         '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))
                                                                                                       tmp3041))
                                                                                                   q3025
                                                                                                   t3031)
                                                                                              b*3027)
                                                                                            ((lambda (tmp3032)
                                                                                               ((lambda (tmp3034)
                                                                                                  (if tmp3034
                                                                                                      (apply
                                                                                                        (lambda (m3035)
                                                                                                          ((lambda (tmp3036)
                                                                                                             ((lambda (d3037)
                                                                                                                (append
                                                                                                                  (apply
                                                                                                                    append
                                                                                                                    m3035)
                                                                                                                  d3037))
                                                                                                               tmp3036))
                                                                                                            dnew3026))
                                                                                                        tmp3034)
                                                                                                      (syntax-error
                                                                                                        tmp3032)))
                                                                                                 ($syntax-dispatch
                                                                                                   tmp3032
                                                                                                   '#(each
                                                                                                      each-any))))
                                                                                              (map (lambda (tmp3033)
                                                                                                     (cons
                                                                                                       tmp3033
                                                                                                       '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* dnew) #((top) (top)) #("i" "i")) #(ribcage #(q d) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))
                                                                                                   t3031))))
                                                                                        tmp3030)
                                                                                      (syntax-error
                                                                                        tmp3028)))
                                                                                 ($syntax-dispatch
                                                                                   tmp3028
                                                                                   'each-any)))
                                                                              (generate-temporaries
                                                                                q3025)))))
                                                                      tmp3021)
                                                                    ((lambda (tmp3042)
                                                                       (if tmp3042
                                                                           (apply
                                                                             (lambda (a3044
                                                                                      d3043)
                                                                               (qs2926
                                                                                 a3044
                                                                                 n2976
                                                                                 b*2975
                                                                                 (lambda (b*3046
                                                                                          anew3045)
                                                                                   (qs2926
                                                                                     d3043
                                                                                     n2976
                                                                                     b*3046
                                                                                     (lambda (b*3048
                                                                                              dnew3047)
                                                                                       (k2974
                                                                                         b*3048
                                                                                         (if (if (eq? anew3045
                                                                                                      a3044)
                                                                                                 (eq? dnew3047
                                                                                                      d3043)
                                                                                                 '#f)
                                                                                             q2977
                                                                                             ((lambda (tmp3049)
                                                                                                ((lambda (tmp3050)
                                                                                                   (if tmp3050
                                                                                                       (apply
                                                                                                         (lambda (a3052
                                                                                                                  d3051)
                                                                                                           (cons
                                                                                                             a3052
                                                                                                             d3051))
                                                                                                         tmp3050)
                                                                                                       (syntax-error
                                                                                                         tmp3049)))
                                                                                                  ($syntax-dispatch
                                                                                                    tmp3049
                                                                                                    '(any any))))
                                                                                               (list
                                                                                                 anew3045
                                                                                                 dnew3047)))))))))
                                                                             tmp3042)
                                                                           ((lambda (tmp3053)
                                                                              (if tmp3053
                                                                                  (apply
                                                                                    (lambda (x3054)
                                                                                      (vqs2927
                                                                                        x3054
                                                                                        n2976
                                                                                        b*2975
                                                                                        (lambda (b*3056
                                                                                                 xnew*3055)
                                                                                          (k2974
                                                                                            b*3056
                                                                                            (if ((letrec ((same?3057 (lambda (x*3059
                                                                                                                              xnew*3058)
                                                                                                                       (if (null?
                                                                                                                             x*3059)
                                                                                                                           (null?
                                                                                                                             xnew*3058)
                                                                                                                           (if (not (null?
                                                                                                                                      xnew*3058))
                                                                                                                               (if (eq? (car x*3059)
                                                                                                                                        (car xnew*3058))
                                                                                                                                   (same?3057
                                                                                                                                     (cdr x*3059)
                                                                                                                                     (cdr xnew*3058))
                                                                                                                                   '#f)
                                                                                                                               '#f)))))
                                                                                                   same?3057)
                                                                                                  x3054
                                                                                                  xnew*3055)
                                                                                                q2977
                                                                                                ((lambda (tmp3061)
                                                                                                   ((lambda (tmp3062)
                                                                                                      (if tmp3062
                                                                                                          (apply
                                                                                                            (lambda (x3063)
                                                                                                              (list->vector
                                                                                                                x3063))
                                                                                                            tmp3062)
                                                                                                          (syntax-error
                                                                                                            tmp3061)))
                                                                                                     ($syntax-dispatch
                                                                                                       tmp3061
                                                                                                       'each-any)))
                                                                                                  xnew*3055))))))
                                                                                    tmp3053)
                                                                                  ((lambda (_3066)
                                                                                     (k2974
                                                                                       b*2975
                                                                                       q2977))
                                                                                    tmp2978)))
                                                                             ($syntax-dispatch
                                                                               tmp2978
                                                                               '#(vector
                                                                                  each-any)))))
                                                                      ($syntax-dispatch
                                                                        tmp2978
                                                                        '(any .
                                                                              any)))))
                                                               ($syntax-dispatch
                                                                 tmp2978
                                                                 '((#(free-id
                                                                      #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                                     .
                                                                     each-any)
                                                                    .
                                                                    any)))))
                                                        ($syntax-dispatch
                                                          tmp2978
                                                          '((#(free-id
                                                               #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                              .
                                                              each-any)
                                                             .
                                                             any)))))
                                                 ($syntax-dispatch
                                                   tmp2978
                                                   '(#(free-id
                                                       #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                      any)))))
                                          ($syntax-dispatch
                                            tmp2978
                                            '(#(free-id
                                                #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                               .
                                               any)))))
                                   ($syntax-dispatch
                                     tmp2978
                                     '(#(free-id
                                         #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                        .
                                        any)))))
                            ($syntax-dispatch
                              tmp2978
                              '(#(free-id
                                  #(syntax-object quasisyntax ((top) #(ribcage () () ()) #(ribcage #(q n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                 .
                                 any))))
                         q2977)))
             (vqs2927 (lambda (x*2942 n2941 b*2940 k2939)
                        (if (null? x*2942)
                            (k2939 b*2940 '())
                            (vqs2927
                              (cdr x*2942)
                              n2941
                              b*2940
                              (lambda (b*2944 xnew*2943)
                                ((lambda (tmp2945)
                                   ((lambda (tmp2946)
                                      (if (if tmp2946
                                              (apply
                                                (lambda (q2947)
                                                  (= n2941 '0))
                                                tmp2946)
                                              '#f)
                                          (apply
                                            (lambda (q2948)
                                              ((lambda (tmp2949)
                                                 ((lambda (tmp2951)
                                                    (if tmp2951
                                                        (apply
                                                          (lambda (t2952)
                                                            (k2939
                                                              (append
                                                                (map list
                                                                     t2952
                                                                     q2948)
                                                                b*2944)
                                                              (append
                                                                t2952
                                                                xnew*2943)))
                                                          tmp2951)
                                                        (syntax-error
                                                          tmp2949)))
                                                   ($syntax-dispatch
                                                     tmp2949
                                                     'each-any)))
                                                (generate-temporaries
                                                  q2948)))
                                            tmp2946)
                                          ((lambda (tmp2956)
                                             (if (if tmp2956
                                                     (apply
                                                       (lambda (q2957)
                                                         (= n2941 '0))
                                                       tmp2956)
                                                     '#f)
                                                 (apply
                                                   (lambda (q2958)
                                                     ((lambda (tmp2959)
                                                        ((lambda (tmp2961)
                                                           (if tmp2961
                                                               (apply
                                                                 (lambda (t2962)
                                                                   (k2939
                                                                     (append
                                                                       (map (lambda (tmp2970
                                                                                     tmp2969)
                                                                              (list
                                                                                (cons
                                                                                  tmp2969
                                                                                  '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))))
                                                                                tmp2970))
                                                                            q2958
                                                                            t2962)
                                                                       b*2944)
                                                                     ((lambda (tmp2963)
                                                                        ((lambda (tmp2965)
                                                                           (if tmp2965
                                                                               (apply
                                                                                 (lambda (m2966)
                                                                                   (append
                                                                                     (apply
                                                                                       append
                                                                                       m2966)
                                                                                     xnew*2943))
                                                                                 tmp2965)
                                                                               (syntax-error
                                                                                 tmp2963)))
                                                                          ($syntax-dispatch
                                                                            tmp2963
                                                                            '#(each
                                                                               each-any))))
                                                                       (map (lambda (tmp2964)
                                                                              (cons
                                                                                tmp2964
                                                                                '(#(syntax-object ... ((top) #(ribcage #(t) #((top)) #("i")) #(ribcage #(q) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))))
                                                                            t2962))))
                                                                 tmp2961)
                                                               (syntax-error
                                                                 tmp2959)))
                                                          ($syntax-dispatch
                                                            tmp2959
                                                            'each-any)))
                                                       (generate-temporaries
                                                         q2958)))
                                                   tmp2956)
                                                 ((lambda (_2971)
                                                    (qs2926
                                                      (car x*2942)
                                                      n2941
                                                      b*2944
                                                      (lambda (b*2973
                                                               xnew2972)
                                                        (k2939
                                                          b*2973
                                                          (cons
                                                            xnew2972
                                                            xnew*2943)))))
                                                   tmp2945)))
                                            ($syntax-dispatch
                                              tmp2945
                                              '(#(free-id
                                                  #(syntax-object unsyntax-splicing ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                 .
                                                 each-any)))))
                                     ($syntax-dispatch
                                       tmp2945
                                       '(#(free-id
                                           #(syntax-object unsyntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew*) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x* n b* k) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                          .
                                          each-any))))
                                  (car x*2942))))))))
      ((lambda (tmp2928)
         ((lambda (tmp2929)
            (if tmp2929
                (apply
                  (lambda (_2931 x2930)
                    (qs2926
                      x2930
                      '0
                      '()
                      (lambda (b*2933 xnew2932)
                        (if (eq? xnew2932 x2930)
                            (list
                              '#(syntax-object syntax ((top) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                              x2930)
                            ((lambda (tmp2934)
                               ((lambda (tmp2935)
                                  (if tmp2935
                                      (apply
                                        (lambda (b2937 x2936)
                                          (list
                                            '#(syntax-object with-syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                            b2937
                                            (list
                                              '#(syntax-object syntax ((top) #(ribcage #(b x) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(b* xnew) #((top) (top)) #("i" "i")) #(ribcage #(_ x) #((top) (top)) #("i" "i")) #(ribcage (vqs qs) ((top) (top)) ("i" "i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                              x2936)))
                                        tmp2935)
                                      (syntax-error tmp2934)))
                                 ($syntax-dispatch
                                   tmp2934
                                   '(each-any any))))
                              (list b*2933 xnew2932))))))
                  tmp2929)
                (syntax-error tmp2928)))
           ($syntax-dispatch tmp2928 '(any any))))
        x2925)))
  '*top*)
($sc-put-cte
  '#(syntax-object unsyntax ((top) #(ribcage #(unsyntax) #((top)) #(unsyntax))))
  (lambda (x3067) (syntax-error x3067 '"misplaced"))
  '*top*)
($sc-put-cte
  '#(syntax-object unsyntax-splicing ((top) #(ribcage #(unsyntax-splicing) #((top)) #(unsyntax-splicing))))
  (lambda (x3068) (syntax-error x3068 '"misplaced"))
  '*top*)
($sc-put-cte
  '#(syntax-object include ((top) #(ribcage #(include) #((top)) #(include))))
  (lambda (x3069)
    (letrec ((read-file3070 (lambda (fn3081 k3080)
                              ((lambda (p3082)
                                 ((letrec ((f3083 (lambda ()
                                                    ((lambda (x3084)
                                                       (if (eof-object?
                                                             x3084)
                                                           (begin
                                                             (close-input-port
                                                               p3082)
                                                             '())
                                                           (cons
                                                             (datum->syntax-object
                                                               k3080
                                                               x3084)
                                                             (f3083))))
                                                      (read p3082)))))
                                    f3083)))
                                (open-input-file fn3081)))))
      ((lambda (tmp3071)
         ((lambda (tmp3072)
            (if tmp3072
                (apply
                  (lambda (k3074 filename3073)
                    ((lambda (fn3075)
                       ((lambda (tmp3076)
                          ((lambda (tmp3077)
                             (if tmp3077
                                 (apply
                                   (lambda (exp3078)
                                     (cons
                                       '#(syntax-object begin ((top) #(ribcage #(exp) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(fn) #((top)) #("i")) #(ribcage #(k filename) #((top) (top)) #("i" "i")) #(ribcage (read-file) ((top)) ("i")) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                       exp3078))
                                   tmp3077)
                                 (syntax-error tmp3076)))
                            ($syntax-dispatch tmp3076 'each-any)))
                         (read-file3070 fn3075 k3074)))
                      (syntax-object->datum filename3073)))
                  tmp3072)
                (syntax-error tmp3071)))
           ($syntax-dispatch tmp3071 '(any any))))
        x3069)))
  '*top*)
($sc-put-cte
  '#(syntax-object case ((top) #(ribcage #(case) #((top)) #(case))))
  (lambda (x3085)
    ((lambda (tmp3086)
       ((lambda (tmp3087)
          (if tmp3087
              (apply
                (lambda (_3091 e3090 m13089 m23088)
                  ((lambda (tmp3092)
                     ((lambda (body3119)
                        (list
                          '#(syntax-object let ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                          (list
                            (list
                              '#(syntax-object t ((top) #(ribcage #(body) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                              e3090))
                          body3119))
                       tmp3092))
                    ((letrec ((f3093 (lambda (clause3095 clauses3094)
                                       (if (null? clauses3094)
                                           ((lambda (tmp3096)
                                              ((lambda (tmp3097)
                                                 (if tmp3097
                                                     (apply
                                                       (lambda (e13099
                                                                e23098)
                                                         (cons
                                                           '#(syntax-object begin ((top) #(ribcage #(e1 e2) #((top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                           (cons
                                                             e13099
                                                             e23098)))
                                                       tmp3097)
                                                     ((lambda (tmp3101)
                                                        (if tmp3101
                                                            (apply
                                                              (lambda (k3104
                                                                       e13103
                                                                       e23102)
                                                                (list
                                                                  '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                  (list
                                                                    '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                    '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                    (list
                                                                      '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                      k3104))
                                                                  (cons
                                                                    '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                    (cons
                                                                      e13103
                                                                      e23102))))
                                                              tmp3101)
                                                            ((lambda (_3107)
                                                               (syntax-error
                                                                 x3085))
                                                              tmp3096)))
                                                       ($syntax-dispatch
                                                         tmp3096
                                                         '(each-any
                                                            any
                                                            .
                                                            each-any)))))
                                                ($syntax-dispatch
                                                  tmp3096
                                                  '(#(free-id
                                                      #(syntax-object else ((top) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t))))
                                                     any
                                                     .
                                                     each-any))))
                                             clause3095)
                                           ((lambda (tmp3108)
                                              ((lambda (rest3109)
                                                 ((lambda (tmp3110)
                                                    ((lambda (tmp3111)
                                                       (if tmp3111
                                                           (apply
                                                             (lambda (k3114
                                                                      e13113
                                                                      e23112)
                                                               (list
                                                                 '#(syntax-object if ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                 (list
                                                                   '#(syntax-object memv ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                   '#(syntax-object t ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                   (list
                                                                     '#(syntax-object quote ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                     k3114))
                                                                 (cons
                                                                   '#(syntax-object begin ((top) #(ribcage #(k e1 e2) #((top) (top) (top)) #("i" "i" "i")) #(ribcage #(rest) #((top)) #("i")) #(ribcage () () ()) #(ribcage #(clause clauses) #((top) (top)) #("i" "i")) #(ribcage #(f) #((top)) #("i")) #(ribcage #(_ e m1 m2) #((top) (top) (top) (top)) #("i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #((top)) #("i")) #(top-ribcage *top* #t)))
                                                                   (cons
                                                                     e13113
                                                                     e23112))
                                                                 rest3109))
                                                             tmp3111)
                                                           ((lambda (_3117)
                                                              (syntax-error
                                                                x3085))
                                                             tmp3110)))
                                                      ($syntax-dispatch
                                                        tmp3110
                                                        '(each-any
                                                           any
                                                           .
                                                           each-any))))
                                                   clause3095))
                                                tmp3108))
                                             (f3093
                                               (car clauses3094)
                                               (cdr clauses3094)))))))
                       f3093)
                      m13089
                      m23088)))
                tmp3087)
              (syntax-error tmp3086)))
         ($syntax-dispatch tmp3086 '(any any any . each-any))))
      x3085))
  '*top*)
($sc-put-cte
  '#(syntax-object identifier-syntax ((top) #(ribcage #(identifier-syntax) #((top)) #(identifier-syntax))))
  (lambda (x3120)
    ((lambda (tmp3121)
       ((lambda (tmp3122)
          (if tmp3122
              (apply
                (lambda (dummy3124 e3123)
                  (list
                    '#(syntax-object lambda ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                    '#(syntax-object (x) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                    (list
                      '#(syntax-object syntax-case ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                      '#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                      '()
                      (list
                        '#(syntax-object id ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                        '#(syntax-object (identifier? (syntax id)) ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                        (list
                          '#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                          e3123))
                      (list
                        '(#(syntax-object _ ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                           #(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                           #(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))
                        (list
                          '#(syntax-object syntax ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                          (cons
                            e3123
                            '(#(syntax-object x ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                               #(syntax-object ... ((top) #(ribcage #(dummy e) #(("m" top) (top)) #("i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))))))))
                tmp3122)
              ((lambda (tmp3125)
                 (if (if tmp3125
                         (apply
                           (lambda (dummy3131 id3130 exp13129 var3128
                                    val3127 exp23126)
                             (if (identifier? id3130)
                                 (identifier? var3128)
                                 '#f))
                           tmp3125)
                         '#f)
                     (apply
                       (lambda (dummy3137 id3136 exp13135 var3134 val3133
                                exp23132)
                         (list
                           '#(syntax-object cons ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                           '#(syntax-object (quote macro!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                           (list
                             '#(syntax-object lambda ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                             '#(syntax-object (x) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                             (list
                               '#(syntax-object syntax-case ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                               '#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                               '#(syntax-object (set!) ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                               (list
                                 (list
                                   '#(syntax-object set! ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                   var3134
                                   val3133)
                                 (list
                                   '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                   exp23132))
                               (list
                                 (cons
                                   id3136
                                   '(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                      #(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))
                                 (list
                                   '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                   (cons
                                     exp13135
                                     '(#(syntax-object x ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                        #(syntax-object ... ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))))))
                               (list
                                 id3136
                                 (list
                                   '#(syntax-object identifier? ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                   (list
                                     '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                     id3136))
                                 (list
                                   '#(syntax-object syntax ((top) #(ribcage #(dummy id exp1 var val exp2) #(("m" top) (top) (top) (top) (top) (top)) #("i" "i" "i" "i" "i" "i")) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t)))
                                   exp13135))))))
                       tmp3125)
                     (syntax-error tmp3121)))
                ($syntax-dispatch
                  tmp3121
                  '(any (any any)
                        ((#(free-id
                            #(syntax-object set! ((top) #(ribcage () () ()) #(ribcage #(x) #(("m" top)) #("i")) #(top-ribcage *top* #t))))
                           any
                           any)
                          any))))))
         ($syntax-dispatch tmp3121 '(any any))))
      x3120))
  '*top*)